#ifdef HAVE_CONFIG_H

# include <config.h>

#endif

#include <cstring>

#include <string>

#include <stdexcept>

#include <libxml/parser.h>

#include "xml/repr.h"

#include "xml/attribute-record.h"

#include "xml/rebase-hrefs.h"

#include "xml/simple-document.h"

#include "xml/text-node.h"

#include "io/sys.h"

#include "io/uristream.h"

#include "io/stringstream.h"

#include "io/gzipstream.h"

#include "extension/extension.h"

#include "attribute-rel-util.h"

#include "preferences.h"

#include <glibmm/miscutils.h>

using Inkscape::IO::Writer;

using Inkscape::Util::List;

using Inkscape::Util::cons;

using Inkscape::XML::Document;

using Inkscape::XML::SimpleDocument;

using Inkscape::XML::Node;

using Inkscape::XML::AttributeRecord;

using Inkscape::XML::calc_abs_doc_base;

using Inkscape::XML::rebase_href_attrs;

Document *sp_repr_do_read (xmlDocPtr doc, const gchar *default_ns);

static Node *sp_repr_svg_read_node (Document *xml_doc, xmlNodePtr node, const gchar *default_ns, GHashTable *prefix_map);

static gint sp_repr_qualified_name (gchar *p, gint len, xmlNsPtr ns, const xmlChar *name, const gchar *default_ns, GHashTable *prefix_map);

static void sp_repr_write_stream_root_element(Node *repr, Writer &out,

bool add_whitespace, gchar const *default_ns,

int inlineattrs, int indent,

gchar const *old_href_abs_base,

gchar const *new_href_abs_base);

static void sp_repr_write_stream_element(Node *repr, Writer &out,

gint indent_level, bool add_whitespace,

Glib::QueryQuark elide_prefix,

List<AttributeRecord const> attributes,

int inlineattrs, int indent,

gchar const *old_href_abs_base,

gchar const *new_href_abs_base);

#ifdef HAVE_LIBWMF

static xmlDocPtr sp_wmf_convert (const char * file_name);

static char * sp_wmf_image_name (void * context);

#endif /* HAVE_LIBWMF */

class XmlSource

{

public:

XmlSource()

: filename(0),

encoding(0),

fp(0),

firstFewLen(0),

dummy("x"),

instr(0),

gzin(0)

{

for (int k=0;k<4;k++)

{

firstFew[k]=0;

}

}

virtual ~XmlSource()

{

close();

if ( encoding ) {

g_free(encoding);

encoding = 0;

}

}

int setFile( char const * filename );

xmlDocPtr readXml();

bool SystemCheck; // Checks for SYSTEM Entities

static int readCb( void * context, char * buffer, int len );

static int closeCb( void * context );

char const* getEncoding() const { return encoding; }

int read( char * buffer, int len );

int close();

private:

const char* filename;

char* encoding;

FILE* fp;

unsigned char firstFew[4];

int firstFewLen;

Inkscape::URI dummy;

Inkscape::IO::UriInputStream* instr;

Inkscape::IO::GzipInputStream* gzin;

};

int XmlSource::setFile(char const *filename)

{

int retVal = -1;

this->SystemCheck = false;

this->filename = filename;

fp = Inkscape::IO::fopen_utf8name(filename, "r");

if ( fp ) {

// First peek in the file to see what it is

memset( firstFew, 0, sizeof(firstFew) );

size_t some = fread( firstFew, 1, 4, fp );

if ( fp ) {

// first check for compression

if ( (some >= 2) && (firstFew[0] == 0x1f) && (firstFew[1] == 0x8b) ) {

//g_message(" the file being read is gzip'd. extract it");

fclose(fp);

fp = 0;

fp = Inkscape::IO::fopen_utf8name(filename, "r");

instr = new Inkscape::IO::UriInputStream(fp, dummy);

gzin = new Inkscape::IO::GzipInputStream(*instr);

memset( firstFew, 0, sizeof(firstFew) );

some = 0;

int single = 0;

while ( some < 4 && single >= 0 )

{

single = gzin->get();

if ( single >= 0 ) {

firstFew[some++] = 0x0ff & single;

} else {

break;

}

}

}

int encSkip = 0;

if ( (some >= 2) &&(firstFew[0] == 0xfe) && (firstFew[1] == 0xff) ) {

encoding = g_strdup("UTF-16BE");

encSkip = 2;

} else if ( (some >= 2) && (firstFew[0] == 0xff) && (firstFew[1] == 0xfe) ) {

encoding = g_strdup("UTF-16LE");

encSkip = 2;

} else if ( (some >= 3) && (firstFew[0] == 0xef) && (firstFew[1] == 0xbb) && (firstFew[2] == 0xbf) ) {

encoding = g_strdup("UTF-8");

encSkip = 3;

}

if ( encSkip ) {

memmove( firstFew, firstFew + encSkip, (some - encSkip) );

some -= encSkip;

}

firstFewLen = some;

retVal = 0; // no error

}

}

return retVal;

}

xmlDocPtr XmlSource::readXml()

{

int parse_options = XML_PARSE_HUGE; // do not use XML_PARSE_NOENT ! see bug lp:1025185

Inkscape::Preferences *prefs = Inkscape::Preferences::get();

bool allowNetAccess = prefs->getBool("/options/externalresources/xml/allow_net_access", false);

if (!allowNetAccess) parse_options |= XML_PARSE_NONET;

if (SystemCheck) parse_options |= XML_PARSE_NOENT;

return xmlReadIO( readCb, closeCb, this,

filename, getEncoding(), parse_options);

}

int XmlSource::readCb( void * context, char * buffer, int len )

{

int retVal = -1;

if ( context ) {

XmlSource* self = static_cast<XmlSource*>(context);

retVal = self->read( buffer, len );

if(self->SystemCheck) {

// Check for ENTITY SYSTEM cdata and kill with fire, does

// Break svg files who use entities for ns and system entities.

GRegex *entity_regex = g_regex_new(

"<!ENTITY\\s+[^>\\s]+\\s+SYSTEM\\s+\"[^>\"]+\"\\s*>",

G_REGEX_CASELESS, G_REGEX_MATCH_NEWLINE_ANY, NULL);

gchar *fixed_buffer = g_regex_replace(

entity_regex, buffer, len, 0, "",

G_REGEX_MATCH_NEWLINE_ANY, NULL);

g_regex_unref(entity_regex);

buffer = fixed_buffer;

}

}

return retVal;

}

int XmlSource::closeCb(void * context)

{

if ( context ) {

XmlSource* self = static_cast<XmlSource*>(context);

self->close();

}

return 0;

}

int XmlSource::read( char *buffer, int len )

{

int retVal = 0;

size_t got = 0;

if ( firstFewLen > 0 ) {

int some = (len < firstFewLen) ? len : firstFewLen;

memcpy( buffer, firstFew, some );

if ( len < firstFewLen ) {

memmove( firstFew, firstFew + some, (firstFewLen - some) );

}

firstFewLen -= some;

got = some;

} else if ( gzin ) {

int single = 0;

while ( (static_cast<int>(got) < len) && (single >= 0) )

{

single = gzin->get();

if ( single >= 0 ) {

buffer[got++] = 0x0ff & single;

} else {

break;

}

}

} else {

got = fread( buffer, 1, len, fp );

}

if ( feof(fp) ) {

retVal = got;

} else if ( ferror(fp) ) {

retVal = -1;

} else {

retVal = got;

}

return retVal;

}

int XmlSource::close()

{

if ( gzin ) {

gzin->close();

delete gzin;

gzin = 0;

}

if ( instr ) {

instr->close();

fp = 0;

delete instr;

instr = 0;

}

if ( fp ) {

fclose(fp);

fp = 0;

}

return 0;

}

Document *sp_repr_read_file (const gchar * filename, const gchar *default_ns)

{

// g_warning( "Reading file: %s", filename );

xmlDocPtr doc = 0;

Document * rdoc = 0;

xmlSubstituteEntitiesDefault(1);

g_return_val_if_fail (filename != NULL, NULL);

g_return_val_if_fail (Inkscape::IO::file_test( filename, G_FILE_TEST_EXISTS ), NULL);

/* fixme: A file can disappear at any time, including between now and when we actually try to

// TODO: bulia, please look over

gsize bytesRead = 0;

gsize bytesWritten = 0;

GError* error = NULL;

// TODO: need to replace with our own fopen and reading

gchar* localFilename = g_filename_from_utf8 ( filename,

-1, &bytesRead, &bytesWritten, &error);

g_return_val_if_fail( localFilename != NULL, NULL );

Inkscape::IO::dump_fopen_call( filename, "N" );

#ifdef HAVE_LIBWMF

if (strlen (localFilename) > 4) {

if ( (strcmp (localFilename + strlen (localFilename) - 4,".wmf") == 0)

|| (strcmp (localFilename + strlen (localFilename) - 4,".WMF") == 0)) {

doc = sp_wmf_convert (localFilename);

}

}

#endif // !HAVE_LIBWMF

if ( !doc ) {

XmlSource src;

if ( (src.setFile(filename) == 0) ) {

doc = src.readXml();

rdoc = sp_repr_do_read( doc, default_ns );

// For some reason, failed ns loading results in this

// We try a system check version of load with NOENT for adobe

if(rdoc && strcmp(rdoc->root()->name(), "ns:svg") == 0) {

xmlFreeDoc( doc );

src.setFile(filename);

src.SystemCheck = true;

doc = src.readXml();

rdoc = sp_repr_do_read( doc, default_ns );

}

}

}

if ( doc ) {

xmlFreeDoc( doc );

}

if ( localFilename ) {

g_free( localFilename );

}

return rdoc;

}

Document *sp_repr_read_mem (const gchar * buffer, gint length, const gchar *default_ns)

{

xmlDocPtr doc;

Document * rdoc;

xmlSubstituteEntitiesDefault(1);

g_return_val_if_fail (buffer != NULL, NULL);

doc = xmlParseMemory (const_cast<gchar *>(buffer), length);

rdoc = sp_repr_do_read (doc, default_ns);

if (doc) {

xmlFreeDoc (doc);

}

return rdoc;

}

Document *sp_repr_read_buf (const Glib::ustring &buf, const gchar *default_ns)

{

return sp_repr_read_mem(buf.c_str(), buf.size(), default_ns);

}

namespace Inkscape {

struct compare_quark_ids {

bool operator()(Glib::QueryQuark const &a, Glib::QueryQuark const &b) const {

return a.id() < b.id();

}

};

}

namespace {

typedef std::map<Glib::QueryQuark, Glib::QueryQuark, Inkscape::compare_quark_ids> PrefixMap;

Glib::QueryQuark qname_prefix(Glib::QueryQuark qname) {

static PrefixMap prefix_map;

PrefixMap::iterator iter = prefix_map.find(qname);

if ( iter != prefix_map.end() ) {

return (*iter).second;

} else {

gchar const *name_string=g_quark_to_string(qname);

gchar const *prefix_end=strchr(name_string, ':');

if (prefix_end) {

Glib::Quark prefix=Glib::ustring(name_string, prefix_end);

prefix_map.insert(PrefixMap::value_type(qname, prefix));

return prefix;

} else {

return GQuark(0);

}

}

}

}

namespace {

void promote_to_namespace(Node *repr, const gchar *prefix) {

if ( repr->type() == Inkscape::XML::ELEMENT_NODE ) {

GQuark code = repr->code();

if (!qname_prefix(code).id()) {

gchar *svg_name = g_strconcat(prefix, ":", g_quark_to_string(code), NULL);

repr->setCodeUnsafe(g_quark_from_string(svg_name));

g_free(svg_name);

}

for ( Node *child = repr->firstChild() ; child ; child = child->next() ) {

promote_to_namespace(child, prefix);

}

}

}

}

Document *sp_repr_do_read (xmlDocPtr doc, const gchar *default_ns)

{

if (doc == NULL) {

return NULL;

}

xmlNodePtr node=xmlDocGetRootElement (doc);

if (node == NULL) {

return NULL;

}

GHashTable * prefix_map;

prefix_map = g_hash_table_new (g_str_hash, g_str_equal);

Document *rdoc = new Inkscape::XML::SimpleDocument();

Node *root=NULL;

for ( node = doc->children ; node != NULL ; node = node->next ) {

if (node->type == XML_ELEMENT_NODE) {

Node *repr=sp_repr_svg_read_node(rdoc, node, default_ns, prefix_map);

rdoc->appendChild(repr);

Inkscape::GC::release(repr);

if (!root) {

root = repr;

} else {

root = NULL;

break;

}

} else if ( node->type == XML_COMMENT_NODE || node->type == XML_PI_NODE ) {

Node *repr=sp_repr_svg_read_node(rdoc, node, default_ns, prefix_map);

rdoc->appendChild(repr);

Inkscape::GC::release(repr);

}

}

if (root != NULL) {

/* promote elements of some XML documents that don't use namespaces

if ( default_ns && !strchr(root->name(), ':') ) {

if ( !strcmp(default_ns, SP_SVG_NS_URI) ) {

promote_to_namespace(root, "svg");

}

if ( !strcmp(default_ns, INKSCAPE_EXTENSION_URI) ) {

promote_to_namespace(root, INKSCAPE_EXTENSION_NS_NC);

}

}

// Clean unnecessary attributes and style properties from SVG documents. (Controlled by

// preferences.) Note: internal Inkscape svg files will also be cleaned (filters.svg,

// icons.svg). How can one tell if a file is internal?

if ( !strcmp(root->name(), "svg:svg" ) ) {

Inkscape::Preferences *prefs = Inkscape::Preferences::get();

bool clean = prefs->getBool("/options/svgoutput/check_on_reading");

if( clean ) {

sp_attribute_clean_tree( root );

}

}

}

g_hash_table_destroy (prefix_map);

return rdoc;

}

gint sp_repr_qualified_name (gchar *p, gint len, xmlNsPtr ns, const xmlChar *name, const gchar */*default_ns*/, GHashTable *prefix_map)

{

const xmlChar *prefix;

if (ns){

if (ns->href ) {

prefix = reinterpret_cast<const xmlChar*>( sp_xml_ns_uri_prefix(reinterpret_cast<const gchar*>(ns->href),

reinterpret_cast<const char*>(ns->prefix)) );

void* p0 = reinterpret_cast<gpointer>(const_cast<xmlChar *>(prefix));

void* p1 = reinterpret_cast<gpointer>(const_cast<xmlChar *>(ns->href));

g_hash_table_insert( prefix_map, p0, p1 );

}

else {

prefix = NULL;

}

}

else {

prefix = NULL;

}

if (prefix) {

return g_snprintf (p, len, "%s:%s", reinterpret_cast<const gchar*>(prefix), name);

} else {

return g_snprintf (p, len, "%s", name);

}

}

static Node *sp_repr_svg_read_node (Document *xml_doc, xmlNodePtr node, const gchar *default_ns, GHashTable *prefix_map)

{

xmlAttrPtr prop;

xmlNodePtr child;

gchar c[256];

if (node->type == XML_TEXT_NODE || node->type == XML_CDATA_SECTION_NODE) {

if (node->content == NULL || *(node->content) == '\0') {

return NULL; // empty text node

}

bool preserve = (xmlNodeGetSpacePreserve (node) == 1);

xmlChar *p;

for (p = node->content; *p && g_ascii_isspace (*p) && !preserve; p++)

; // skip all whitespace

if (!(*p)) { // this is an all-whitespace node, and preserve == default

return NULL; // we do not preserve all-whitespace nodes unless we are asked to

}

// We keep track of original node type so that CDATA sections are preserved on output.

return xml_doc->createTextNode(reinterpret_cast<gchar *>(node->content),

node->type == XML_CDATA_SECTION_NODE );

}

if (node->type == XML_COMMENT_NODE) {

return xml_doc->createComment(reinterpret_cast<gchar *>(node->content));

}

if (node->type == XML_PI_NODE) {

return xml_doc->createPI(reinterpret_cast<const gchar *>(node->name),

reinterpret_cast<const gchar *>(node->content));

}

if (node->type == XML_ENTITY_DECL) {

return NULL;

}

sp_repr_qualified_name (c, 256, node->ns, node->name, default_ns, prefix_map);

Node *repr = xml_doc->createElement(c);

/* TODO remember node->ns->prefix if node->ns != NULL */

for (prop = node->properties; prop != NULL; prop = prop->next) {

if (prop->children) {

sp_repr_qualified_name (c, 256, prop->ns, prop->name, default_ns, prefix_map);

repr->setAttribute(c, reinterpret_cast<gchar*>(prop->children->content));

/* TODO remember prop->ns->prefix if prop->ns != NULL */

}

}

if (node->content) {

repr->setContent(reinterpret_cast<gchar*>(node->content));

}

child = node->xmlChildrenNode;

for (child = node->xmlChildrenNode; child != NULL; child = child->next) {

Node *crepr = sp_repr_svg_read_node (xml_doc, child, default_ns, prefix_map);

if (crepr) {

repr->appendChild(crepr);

Inkscape::GC::release(crepr);

}

}

return repr;

}

static void sp_repr_save_writer(Document *doc, Inkscape::IO::Writer *out,

gchar const *default_ns,

gchar const *old_href_abs_base,

gchar const *new_href_abs_base)

{

Inkscape::Preferences *prefs = Inkscape::Preferences::get();

bool inlineattrs = prefs->getBool("/options/svgoutput/inlineattrs");

int indent = prefs->getInt("/options/svgoutput/indent", 2);

/* fixme: do this The Right Way */

out->writeString( "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?>\n" );

const gchar *str = static_cast<Node *>(doc)->attribute("doctype");

if (str) {

out->writeString( str );

}

for (Node *repr = sp_repr_document_first_child(doc);

repr; repr = repr->next())

{

Inkscape::XML::NodeType const node_type = repr->type();

if ( node_type == Inkscape::XML::ELEMENT_NODE ) {

sp_repr_write_stream_root_element(repr, *out, TRUE, default_ns, inlineattrs, indent,

old_href_abs_base, new_href_abs_base);

} else {

sp_repr_write_stream(repr, *out, 0, TRUE, GQuark(0), inlineattrs, indent,

old_href_abs_base, new_href_abs_base);

if ( node_type == Inkscape::XML::COMMENT_NODE ) {

out->writeChar('\n');

}

}

}

}

Glib::ustring sp_repr_save_buf(Document *doc)

{

Inkscape::IO::StringOutputStream souts;

Inkscape::IO::OutputStreamWriter outs(souts);

sp_repr_save_writer(doc, &outs, SP_INKSCAPE_NS_URI, 0, 0);

outs.close();

Glib::ustring buf = souts.getString();

return buf;

}

void sp_repr_save_stream(Document *doc, FILE *fp, gchar const *default_ns, bool compress,

gchar const *const old_href_abs_base,

gchar const *const new_href_abs_base)

{

Inkscape::URI dummy("x");

Inkscape::IO::UriOutputStream bout(fp, dummy);

Inkscape::IO::GzipOutputStream *gout = compress ? new Inkscape::IO::GzipOutputStream(bout) : NULL;

Inkscape::IO::OutputStreamWriter *out = compress ? new Inkscape::IO::OutputStreamWriter( *gout ) : new Inkscape::IO::OutputStreamWriter( bout );

sp_repr_save_writer(doc, out, default_ns, old_href_abs_base, new_href_abs_base);

delete out;

delete gout;

}

bool sp_repr_save_rebased_file(Document *doc, gchar const *const filename, gchar const *default_ns,

gchar const *old_base, gchar const *for_filename)

{

if (!filename) {

return false;

}

bool compress;

{

size_t const filename_len = strlen(filename);

compress = ( filename_len > 5

&& strcasecmp(".svgz", filename + filename_len - 5) == 0 );

}

Inkscape::IO::dump_fopen_call( filename, "B" );

FILE *file = Inkscape::IO::fopen_utf8name(filename, "w");

if (file == NULL) {

return false;

}

Glib::ustring old_href_abs_base;

Glib::ustring new_href_abs_base;

if (for_filename) {

old_href_abs_base = calc_abs_doc_base(old_base);

if (Glib::path_is_absolute(for_filename)) {

new_href_abs_base = Glib::path_get_dirname(for_filename);

} else {

Glib::ustring const cwd = Glib::get_current_dir();

Glib::ustring const for_abs_filename = Glib::build_filename(cwd, for_filename);

new_href_abs_base = Glib::path_get_dirname(for_abs_filename);

}

/* effic: Once we're confident that we never need (or never want) to resort

}

sp_repr_save_stream(doc, file, default_ns, compress, old_href_abs_base.c_str(), new_href_abs_base.c_str());

if (fclose (file) != 0) {

return false;

}

return true;

}

bool sp_repr_save_file(Document *doc, gchar const *const filename, gchar const *default_ns)

{

return sp_repr_save_rebased_file(doc, filename, default_ns, NULL, NULL);

}

static void repr_quote_write (Writer &out, const gchar * val)

{

if (val) {

for (; *val != '\0'; val++) {

switch (*val) {

case '"': out.writeString( "&quot;" ); break;

case '&': out.writeString( "&amp;" ); break;

case '<': out.writeString( "&lt;" ); break;

case '>': out.writeString( "&gt;" ); break;

default: out.writeChar( *val ); break;

}

}

}

}

static void repr_write_comment( Writer &out, const gchar * val, bool addWhitespace, gint indentLevel, int indent )

{

if ( indentLevel > 16 ) {

indentLevel = 16;

}

if (addWhitespace && indent) {

for (gint i = 0; i < indentLevel; i++) {

for (gint j = 0; j < indent; j++) {

out.writeString(" ");

}

}

}

out.writeString("<!--");

// WARNING out.printf() and out.writeString() are *NOT* non-ASCII friendly.

if (val) {

for (const gchar* cur = val; *cur; cur++ ) {

out.writeChar(*cur);

}

} else {

out.writeString(" ");

}

out.writeString("-->");

if (addWhitespace) {

out.writeString("\n");

}

}

namespace {

typedef std::map<Glib::QueryQuark, gchar const *, Inkscape::compare_quark_ids> LocalNameMap;

typedef std::map<Glib::QueryQuark, Inkscape::Util::ptr_shared<char>, Inkscape::compare_quark_ids> NSMap;

gchar const *qname_local_name(Glib::QueryQuark qname) {

static LocalNameMap local_name_map;

LocalNameMap::iterator iter = local_name_map.find(qname);

if ( iter != local_name_map.end() ) {

return (*iter).second;

} else {

gchar const *name_string=g_quark_to_string(qname);

gchar const *prefix_end=strchr(name_string, ':');

if (prefix_end) {

return prefix_end + 1;

} else {

return name_string;

}

}

}

void add_ns_map_entry(NSMap &ns_map, Glib::QueryQuark prefix) {

using Inkscape::Util::ptr_shared;

using Inkscape::Util::share_unsafe;

static const Glib::QueryQuark xml_prefix("xml");

NSMap::iterator iter=ns_map.find(prefix);

if ( iter == ns_map.end() ) {

if (prefix.id()) {

gchar const *uri=sp_xml_ns_prefix_uri(g_quark_to_string(prefix));

if (uri) {

ns_map.insert(NSMap::value_type(prefix, share_unsafe(uri)));

} else if ( prefix != xml_prefix ) {

g_warning("No namespace known for normalized prefix %s", g_quark_to_string(prefix));

}

} else {

ns_map.insert(NSMap::value_type(prefix, ptr_shared<char>()));

}

}

}

void populate_ns_map(NSMap &ns_map, Node &repr) {

if ( repr.type() == Inkscape::XML::ELEMENT_NODE ) {

add_ns_map_entry(ns_map, qname_prefix(repr.code()));

for ( List<AttributeRecord const> iter=repr.attributeList() ;

iter ; ++iter )

{

Glib::QueryQuark prefix=qname_prefix(iter->key);

if (prefix.id()) {

add_ns_map_entry(ns_map, prefix);

}

}

for ( Node *child=repr.firstChild() ;

child ; child = child->next() )

{

populate_ns_map(ns_map, *child);

}

}

}

}

static void sp_repr_write_stream_root_element(Node *repr, Writer &out,

bool add_whitespace, gchar const *default_ns,

int inlineattrs, int indent,

gchar const *const old_href_base,

gchar const *const new_href_base)

{

using Inkscape::Util::ptr_shared;

g_assert(repr != NULL);

// Clean unnecessary attributes and stype properties. (Controlled by preferences.)

Inkscape::Preferences *prefs = Inkscape::Preferences::get();

bool clean = prefs->getBool("/options/svgoutput/check_on_writing");

if (clean) sp_attribute_clean_tree( repr );

Glib::QueryQuark xml_prefix=g_quark_from_static_string("xml");

NSMap ns_map;

populate_ns_map(ns_map, *repr);

Glib::QueryQuark elide_prefix=GQuark(0);

if ( default_ns && ns_map.find(GQuark(0)) == ns_map.end() ) {

elide_prefix = g_quark_from_string(sp_xml_ns_uri_prefix(default_ns, NULL));

}

List<AttributeRecord const> attributes=repr->attributeList();

for ( NSMap::iterator iter=ns_map.begin() ; iter != ns_map.end() ; ++iter )

{

Glib::QueryQuark prefix=(*iter).first;

ptr_shared<char> ns_uri=(*iter).second;

if (prefix.id()) {

if ( prefix != xml_prefix ) {

if ( elide_prefix == prefix ) {

attributes = cons(AttributeRecord(g_quark_from_static_string("xmlns"), ns_uri), attributes);

}

Glib::ustring attr_name="xmlns:";

attr_name.append(g_quark_to_string(prefix));

GQuark key = g_quark_from_string(attr_name.c_str());

attributes = cons(AttributeRecord(key, ns_uri), attributes);

}

} else {

// if there are non-namespaced elements, we can't globally

// use a default namespace

elide_prefix = GQuark(0);

}

}

return sp_repr_write_stream_element(repr, out, 0, add_whitespace, elide_prefix, attributes,

inlineattrs, indent, old_href_base, new_href_base);

}

void sp_repr_write_stream( Node *repr, Writer &out, gint indent_level,

bool add_whitespace, Glib::QueryQuark elide_prefix,

int inlineattrs, int indent,

gchar const *const old_href_base,

gchar const *const new_href_base)

{

switch (repr->type()) {

case Inkscape::XML::TEXT_NODE: {

if( dynamic_cast<const Inkscape::XML::TextNode *>(repr)->is_CData() ) {

// Preserve CDATA sections, not converting '&' to &amp;, etc.

out.printf( "<![CDATA[%s]]>", repr->content() );

} else {

repr_quote_write( out, repr->content() );

}

break;

}

case Inkscape::XML::COMMENT_NODE: {

repr_write_comment( out, repr->content(), add_whitespace, indent_level, indent );

break;

}

case Inkscape::XML::PI_NODE: {

out.printf( "<?%s %s?>", repr->name(), repr->content() );

break;

}

case Inkscape::XML::ELEMENT_NODE: {

sp_repr_write_stream_element( repr, out, indent_level,

add_whitespace, elide_prefix,

repr->attributeList(),

inlineattrs, indent,

old_href_base, new_href_base);

break;

}

case Inkscape::XML::DOCUMENT_NODE: {

g_assert_not_reached();

break;

}

default: {

g_assert_not_reached();

}

}

}

void sp_repr_write_stream_element( Node * repr, Writer & out,

gint indent_level, bool add_whitespace,

Glib::QueryQuark elide_prefix,

List<AttributeRecord const> attributes,

int inlineattrs, int indent,

gchar const *old_href_base,

gchar const *new_href_base )

{

Node *child = 0;

bool loose = false;

g_return_if_fail (repr != NULL);

if ( indent_level > 16 ) {

indent_level = 16;

}

if (add_whitespace && indent) {

for (gint i = 0; i < indent_level; i++) {

for (gint j = 0; j < indent; j++) {

out.writeString(" ");

}

}

}

GQuark code = repr->code();

gchar const *element_name;

if ( elide_prefix == qname_prefix(code) ) {

element_name = qname_local_name(code);

} else {

element_name = g_quark_to_string(code);

}

out.printf( "<%s", element_name );

// if this is a <text> element, suppress formatting whitespace

// for its content and children:

gchar const *xml_space_attr = repr->attribute("xml:space");

if (xml_space_attr != NULL && !strcmp(xml_space_attr, "preserve")) {

add_whitespace = false;

}

// THIS DOESN'T APPEAR TO DO ANYTHING. Can it be commented out or deleted?

{

GQuark const href_key = g_quark_from_static_string("xlink:href");

GQuark const absref_key = g_quark_from_static_string("sodipodi:absref");

gchar const *xxHref = 0;

//gchar const *xxAbsref = 0;

for ( List<AttributeRecord const> ai(attributes); ai; ++ai ) {

if ( ai->key == href_key ) {

xxHref = ai->value;

//} else if ( ai->key == absref_key ) {

//xxAbsref = ai->value;

}

}

// Might add a special case for absref but no href.

if ( old_href_base && new_href_base && xxHref ) {

//g_message("href rebase test with [%s] and [%s]", xxHref, xxAbsref);

//std::string newOne = rebase_href_attrs( old_href_base, new_href_base, xxHref, xxAbsref );

}

}

for ( List<AttributeRecord const> iter = rebase_href_attrs(old_href_base, new_href_base,

attributes);

iter ; ++iter )

{

if (!inlineattrs) {

out.writeString("\n");

if (indent) {

for ( gint i = 0 ; i < indent_level + 1 ; i++ ) {

for ( gint j = 0 ; j < indent ; j++ ) {

out.writeString(" ");

}

}

}

}

out.printf(" %s=\"", g_quark_to_string(iter->key));

repr_quote_write(out, iter->value);

out.writeChar('"');

}

loose = TRUE;

for (child = repr->firstChild() ; child != NULL; child = child->next()) {

if (child->type() == Inkscape::XML::TEXT_NODE) {

loose = FALSE;

break;

}

}

if (repr->firstChild()) {

out.writeString( ">" );

if (loose && add_whitespace) {

out.writeString( "\n" );

}

for (child = repr->firstChild(); child != NULL; child = child->next()) {

sp_repr_write_stream(child, out, ( loose ? indent_level + 1 : 0 ),

add_whitespace, elide_prefix, inlineattrs, indent,

old_href_base, new_href_base);

}

if (loose && add_whitespace && indent) {

for (gint i = 0; i < indent_level; i++) {

for ( gint j = 0 ; j < indent ; j++ ) {

out.writeString(" ");

}

}

}

out.printf( "</%s>", element_name );

} else {

out.writeString( " />" );

}

// text elements cannot nest, so we can output newline

// after closing text

if (add_whitespace || !strcmp (repr->name(), "svg:text")) {

out.writeString( "\n" );

}

}