1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154 |
- /*
- * File loading code for Mini-XML, a small XML file parsing library.
- *
- * https://www.msweet.org/mxml
- *
- * Copyright © 2003-2020 by Michael R Sweet.
- *
- * Licensed under Apache License v2.0. See the file "LICENSE" for more
- * information.
- */
- /*
- * Include necessary headers...
- */
- #ifndef _WIN32
- # include <unistd.h>
- #endif /* !_WIN32 */
- #include "mxml-private.h"
- /*
- * Character encoding...
- */
- #define ENCODE_UTF8 0 /* UTF-8 */
- #define ENCODE_UTF16BE 1 /* UTF-16 Big-Endian */
- #define ENCODE_UTF16LE 2 /* UTF-16 Little-Endian */
- /*
- * Macro to test for a bad XML character...
- */
- #define mxml_bad_char(ch) ((ch) < ' ' && (ch) != '\n' && (ch) != '\r' && (ch) != '\t')
- /*
- * Types and structures...
- */
- typedef int (*_mxml_getc_cb_t)(void *, int *);
- typedef int (*_mxml_putc_cb_t)(int, void *);
- typedef struct _mxml_fdbuf_s /**** File descriptor buffer ****/
- {
- int fd; /* File descriptor */
- unsigned char *current, /* Current position in buffer */
- *end, /* End of buffer */
- buffer[8192]; /* Character buffer */
- } _mxml_fdbuf_t;
- /*
- * Local functions...
- */
- static int mxml_add_char(int ch, char **ptr, char **buffer, int *bufsize);
- static int mxml_fd_getc(void *p, int *encoding);
- static int mxml_fd_putc(int ch, void *p);
- static int mxml_fd_read(_mxml_fdbuf_t *buf);
- static int mxml_fd_write(_mxml_fdbuf_t *buf);
- static int mxml_file_getc(void *p, int *encoding);
- static int mxml_file_putc(int ch, void *p);
- static int mxml_get_entity(mxml_node_t *parent, void *p, int *encoding, _mxml_getc_cb_t getc_cb, int *line);
- static inline int mxml_isspace(int ch)
- {
- return (ch == ' ' || ch == '\t' || ch == '\r' || ch == '\n');
- }
- static mxml_node_t *mxml_load_data(mxml_node_t *top, void *p, mxml_load_cb_t cb, _mxml_getc_cb_t getc_cb, mxml_sax_cb_t sax_cb, void *sax_data);
- static int mxml_parse_element(mxml_node_t *node, void *p, int *encoding, _mxml_getc_cb_t getc_cb, int *line);
- static int mxml_string_getc(void *p, int *encoding);
- static int mxml_string_putc(int ch, void *p);
- static int mxml_write_name(const char *s, void *p, _mxml_putc_cb_t putc_cb);
- static int mxml_write_node(mxml_node_t *node, void *p, mxml_save_cb_t cb, int col, _mxml_putc_cb_t putc_cb, _mxml_global_t *global);
- static int mxml_write_string(const char *s, void *p, _mxml_putc_cb_t putc_cb);
- static int mxml_write_ws(mxml_node_t *node, void *p, mxml_save_cb_t cb, int ws, int col, _mxml_putc_cb_t putc_cb);
- /*
- * 'mxmlLoadFd()' - Load a file descriptor into an XML node tree.
- *
- * The nodes in the specified file are added to the specified top node.
- * If no top node is provided, the XML file MUST be well-formed with a
- * single parent node like <?xml> for the entire file. The callback
- * function returns the value type that should be used for child nodes.
- * The constants @code MXML_INTEGER_CALLBACK@, @code MXML_OPAQUE_CALLBACK@,
- * @code MXML_REAL_CALLBACK@, and @code MXML_TEXT_CALLBACK@ are defined for
- * loading child (data) nodes of the specified type.
- *
- * Note: The most common programming error when using the Mini-XML library is
- * to load an XML file using the @code MXML_TEXT_CALLBACK@, which returns inline
- * text as a series of whitespace-delimited words, instead of using the
- * @code MXML_OPAQUE_CALLBACK@ which returns the inline text as a single string
- * (including whitespace).
- */
- mxml_node_t * /* O - First node or @code NULL@ if the file could not be read. */
- mxmlLoadFd(mxml_node_t *top, /* I - Top node */
- int fd, /* I - File descriptor to read from */
- mxml_load_cb_t cb) /* I - Callback function or constant */
- {
- _mxml_fdbuf_t buf; /* File descriptor buffer */
- /*
- * Initialize the file descriptor buffer...
- */
- buf.fd = fd;
- buf.current = buf.buffer;
- buf.end = buf.buffer;
- /*
- * Read the XML data...
- */
- return (mxml_load_data(top, &buf, cb, mxml_fd_getc, MXML_NO_CALLBACK, NULL));
- }
- /*
- * 'mxmlLoadFile()' - Load a file into an XML node tree.
- *
- * The nodes in the specified file are added to the specified top node.
- * If no top node is provided, the XML file MUST be well-formed with a
- * single parent node like <?xml> for the entire file. The callback
- * function returns the value type that should be used for child nodes.
- * The constants @code MXML_INTEGER_CALLBACK@, @code MXML_OPAQUE_CALLBACK@,
- * @code MXML_REAL_CALLBACK@, and @code MXML_TEXT_CALLBACK@ are defined for
- * loading child (data) nodes of the specified type.
- *
- * Note: The most common programming error when using the Mini-XML library is
- * to load an XML file using the @code MXML_TEXT_CALLBACK@, which returns inline
- * text as a series of whitespace-delimited words, instead of using the
- * @code MXML_OPAQUE_CALLBACK@ which returns the inline text as a single string
- * (including whitespace).
- */
- mxml_node_t * /* O - First node or @code NULL@ if the file could not be read. */
- mxmlLoadFile(mxml_node_t *top, /* I - Top node */
- FILE *fp, /* I - File to read from */
- mxml_load_cb_t cb) /* I - Callback function or constant */
- {
- /*
- * Read the XML data...
- */
- return (mxml_load_data(top, fp, cb, mxml_file_getc, MXML_NO_CALLBACK, NULL));
- }
- /*
- * 'mxmlLoadString()' - Load a string into an XML node tree.
- *
- * The nodes in the specified string are added to the specified top node.
- * If no top node is provided, the XML string MUST be well-formed with a
- * single parent node like <?xml> for the entire string. The callback
- * function returns the value type that should be used for child nodes.
- * The constants @code MXML_INTEGER_CALLBACK@, @code MXML_OPAQUE_CALLBACK@,
- * @code MXML_REAL_CALLBACK@, and @code MXML_TEXT_CALLBACK@ are defined for
- * loading child (data) nodes of the specified type.
- *
- * Note: The most common programming error when using the Mini-XML library is
- * to load an XML file using the @code MXML_TEXT_CALLBACK@, which returns inline
- * text as a series of whitespace-delimited words, instead of using the
- * @code MXML_OPAQUE_CALLBACK@ which returns the inline text as a single string
- * (including whitespace).
- */
- mxml_node_t * /* O - First node or @code NULL@ if the string has errors. */
- mxmlLoadString(mxml_node_t *top, /* I - Top node */
- const char *s, /* I - String to load */
- mxml_load_cb_t cb) /* I - Callback function or constant */
- {
- /*
- * Read the XML data...
- */
- return (mxml_load_data(top, (void *)&s, cb, mxml_string_getc, MXML_NO_CALLBACK,
- NULL));
- }
- /*
- * 'mxmlSaveAllocString()' - Save an XML tree to an allocated string.
- *
- * This function returns a pointer to a string containing the textual
- * representation of the XML node tree. The string should be freed
- * using the free() function when you are done with it. @code NULL@ is returned
- * if the node would produce an empty string or if the string cannot be
- * allocated.
- *
- * The callback argument specifies a function that returns a whitespace
- * string or NULL before and after each element. If @code MXML_NO_CALLBACK@
- * is specified, whitespace will only be added before @code MXML_TEXT@ nodes
- * with leading whitespace and before attribute names inside opening
- * element tags.
- */
- char * /* O - Allocated string or @code NULL@ */
- mxmlSaveAllocString(
- mxml_node_t *node, /* I - Node to write */
- mxml_save_cb_t cb) /* I - Whitespace callback or @code MXML_NO_CALLBACK@ */
- {
- int bytes; /* Required bytes */
- char buffer[8192]; /* Temporary buffer */
- char *s; /* Allocated string */
- /*
- * Write the node to the temporary buffer...
- */
- bytes = mxmlSaveString(node, buffer, sizeof(buffer), cb);
- if (bytes <= 0)
- return (NULL);
- if (bytes < (int)(sizeof(buffer) - 1))
- {
- /*
- * Node fit inside the buffer, so just duplicate that string and
- * return...
- */
- return (strdup(buffer));
- }
- /*
- * Allocate a buffer of the required size and save the node to the
- * new buffer...
- */
- if ((s = malloc(bytes + 1)) == NULL)
- return (NULL);
- mxmlSaveString(node, s, bytes + 1, cb);
- /*
- * Return the allocated string...
- */
- return (s);
- }
- /*
- * 'mxmlSaveFd()' - Save an XML tree to a file descriptor.
- *
- * The callback argument specifies a function that returns a whitespace
- * string or NULL before and after each element. If @code MXML_NO_CALLBACK@
- * is specified, whitespace will only be added before @code MXML_TEXT@ nodes
- * with leading whitespace and before attribute names inside opening
- * element tags.
- */
- int /* O - 0 on success, -1 on error. */
- mxmlSaveFd(mxml_node_t *node, /* I - Node to write */
- int fd, /* I - File descriptor to write to */
- mxml_save_cb_t cb) /* I - Whitespace callback or @code MXML_NO_CALLBACK@ */
- {
- int col; /* Final column */
- _mxml_fdbuf_t buf; /* File descriptor buffer */
- _mxml_global_t *global = _mxml_global();
- /* Global data */
- /*
- * Initialize the file descriptor buffer...
- */
- buf.fd = fd;
- buf.current = buf.buffer;
- buf.end = buf.buffer + sizeof(buf.buffer);
- /*
- * Write the node...
- */
- if ((col = mxml_write_node(node, &buf, cb, 0, mxml_fd_putc, global)) < 0)
- return (-1);
- if (col > 0)
- if (mxml_fd_putc('\n', &buf) < 0)
- return (-1);
- /*
- * Flush and return...
- */
- return (mxml_fd_write(&buf));
- }
- /*
- * 'mxmlSaveFile()' - Save an XML tree to a file.
- *
- * The callback argument specifies a function that returns a whitespace
- * string or NULL before and after each element. If @code MXML_NO_CALLBACK@
- * is specified, whitespace will only be added before @code MXML_TEXT@ nodes
- * with leading whitespace and before attribute names inside opening
- * element tags.
- */
- int /* O - 0 on success, -1 on error. */
- mxmlSaveFile(mxml_node_t *node, /* I - Node to write */
- FILE *fp, /* I - File to write to */
- mxml_save_cb_t cb) /* I - Whitespace callback or @code MXML_NO_CALLBACK@ */
- {
- int col; /* Final column */
- _mxml_global_t *global = _mxml_global();
- /* Global data */
- /*
- * Write the node...
- */
- if ((col = mxml_write_node(node, fp, cb, 0, mxml_file_putc, global)) < 0)
- return (-1);
- if (col > 0)
- if (putc('\n', fp) < 0)
- return (-1);
- /*
- * Return 0 (success)...
- */
- return (0);
- }
- /*
- * 'mxmlSaveString()' - Save an XML node tree to a string.
- *
- * This function returns the total number of bytes that would be
- * required for the string but only copies (bufsize - 1) characters
- * into the specified buffer.
- *
- * The callback argument specifies a function that returns a whitespace
- * string or NULL before and after each element. If @code MXML_NO_CALLBACK@
- * is specified, whitespace will only be added before @code MXML_TEXT@ nodes
- * with leading whitespace and before attribute names inside opening
- * element tags.
- */
- int /* O - Size of string */
- mxmlSaveString(mxml_node_t *node, /* I - Node to write */
- char *buffer, /* I - String buffer */
- int bufsize, /* I - Size of string buffer */
- mxml_save_cb_t cb) /* I - Whitespace callback or @code MXML_NO_CALLBACK@ */
- {
- int col; /* Final column */
- char *ptr[2]; /* Pointers for putc_cb */
- _mxml_global_t *global = _mxml_global();
- /* Global data */
- /*
- * Write the node...
- */
- ptr[0] = buffer;
- ptr[1] = buffer + bufsize;
- if ((col = mxml_write_node(node, ptr, cb, 0, mxml_string_putc, global)) < 0)
- return (-1);
- if (col > 0)
- mxml_string_putc('\n', ptr);
- /*
- * Nul-terminate the buffer...
- */
- if (ptr[0] >= ptr[1])
- buffer[bufsize - 1] = '\0';
- else
- ptr[0][0] = '\0';
- /*
- * Return the number of characters...
- */
- return ((int)(ptr[0] - buffer));
- }
- /*
- * 'mxmlSAXLoadFd()' - Load a file descriptor into an XML node tree
- * using a SAX callback.
- *
- * The nodes in the specified file are added to the specified top node.
- * If no top node is provided, the XML file MUST be well-formed with a
- * single parent node like <?xml> for the entire file. The callback
- * function returns the value type that should be used for child nodes.
- * The constants @code MXML_INTEGER_CALLBACK@, @code MXML_OPAQUE_CALLBACK@,
- * @code MXML_REAL_CALLBACK@, and @code MXML_TEXT_CALLBACK@ are defined for
- * loading child nodes of the specified type.
- *
- * The SAX callback must call @link mxmlRetain@ for any nodes that need to
- * be kept for later use. Otherwise, nodes are deleted when the parent
- * node is closed or after each data, comment, CDATA, or directive node.
- *
- * @since Mini-XML 2.3@
- */
- mxml_node_t * /* O - First node or @code NULL@ if the file could not be read. */
- mxmlSAXLoadFd(mxml_node_t *top, /* I - Top node */
- int fd, /* I - File descriptor to read from */
- mxml_load_cb_t cb, /* I - Callback function or constant */
- mxml_sax_cb_t sax_cb, /* I - SAX callback or @code MXML_NO_CALLBACK@ */
- void *sax_data) /* I - SAX user data */
- {
- _mxml_fdbuf_t buf; /* File descriptor buffer */
- /*
- * Initialize the file descriptor buffer...
- */
- buf.fd = fd;
- buf.current = buf.buffer;
- buf.end = buf.buffer;
- /*
- * Read the XML data...
- */
- return (mxml_load_data(top, &buf, cb, mxml_fd_getc, sax_cb, sax_data));
- }
- /*
- * 'mxmlSAXLoadFile()' - Load a file into an XML node tree
- * using a SAX callback.
- *
- * The nodes in the specified file are added to the specified top node.
- * If no top node is provided, the XML file MUST be well-formed with a
- * single parent node like <?xml> for the entire file. The callback
- * function returns the value type that should be used for child nodes.
- * The constants @code MXML_INTEGER_CALLBACK@, @code MXML_OPAQUE_CALLBACK@,
- * @code MXML_REAL_CALLBACK@, and @code MXML_TEXT_CALLBACK@ are defined for
- * loading child nodes of the specified type.
- *
- * The SAX callback must call @link mxmlRetain@ for any nodes that need to
- * be kept for later use. Otherwise, nodes are deleted when the parent
- * node is closed or after each data, comment, CDATA, or directive node.
- *
- * @since Mini-XML 2.3@
- */
- mxml_node_t * /* O - First node or @code NULL@ if the file could not be read. */
- mxmlSAXLoadFile(
- mxml_node_t *top, /* I - Top node */
- FILE *fp, /* I - File to read from */
- mxml_load_cb_t cb, /* I - Callback function or constant */
- mxml_sax_cb_t sax_cb, /* I - SAX callback or @code MXML_NO_CALLBACK@ */
- void *sax_data) /* I - SAX user data */
- {
- /*
- * Read the XML data...
- */
- return (mxml_load_data(top, fp, cb, mxml_file_getc, sax_cb, sax_data));
- }
- /*
- * 'mxmlSAXLoadString()' - Load a string into an XML node tree
- * using a SAX callback.
- *
- * The nodes in the specified string are added to the specified top node.
- * If no top node is provided, the XML string MUST be well-formed with a
- * single parent node like <?xml> for the entire string. The callback
- * function returns the value type that should be used for child nodes.
- * The constants @code MXML_INTEGER_CALLBACK@, @code MXML_OPAQUE_CALLBACK@,
- * @code MXML_REAL_CALLBACK@, and @code MXML_TEXT_CALLBACK@ are defined for
- * loading child nodes of the specified type.
- *
- * The SAX callback must call @link mxmlRetain@ for any nodes that need to
- * be kept for later use. Otherwise, nodes are deleted when the parent
- * node is closed or after each data, comment, CDATA, or directive node.
- *
- * @since Mini-XML 2.3@
- */
- mxml_node_t * /* O - First node or @code NULL@ if the string has errors. */
- mxmlSAXLoadString(
- mxml_node_t *top, /* I - Top node */
- const char *s, /* I - String to load */
- mxml_load_cb_t cb, /* I - Callback function or constant */
- mxml_sax_cb_t sax_cb, /* I - SAX callback or @code MXML_NO_CALLBACK@ */
- void *sax_data) /* I - SAX user data */
- {
- /*
- * Read the XML data...
- */
- return (mxml_load_data(top, (void *)&s, cb, mxml_string_getc, sax_cb, sax_data));
- }
- /*
- * 'mxmlSetCustomHandlers()' - Set the handling functions for custom data.
- *
- * The load function accepts a node pointer and a data string and must
- * return 0 on success and non-zero on error.
- *
- * The save function accepts a node pointer and must return a malloc'd
- * string on success and @code NULL@ on error.
- *
- */
- void
- mxmlSetCustomHandlers(
- mxml_custom_load_cb_t load, /* I - Load function */
- mxml_custom_save_cb_t save) /* I - Save function */
- {
- _mxml_global_t *global = _mxml_global();
- /* Global data */
- global->custom_load_cb = load;
- global->custom_save_cb = save;
- }
- /*
- * 'mxmlSetErrorCallback()' - Set the error message callback.
- */
- void
- mxmlSetErrorCallback(mxml_error_cb_t cb)/* I - Error callback function */
- {
- _mxml_global_t *global = _mxml_global();
- /* Global data */
- global->error_cb = cb;
- }
- /*
- * 'mxmlSetWrapMargin()' - Set the wrap margin when saving XML data.
- *
- * Wrapping is disabled when "column" is 0.
- *
- * @since Mini-XML 2.3@
- */
- void
- mxmlSetWrapMargin(int column) /* I - Column for wrapping, 0 to disable wrapping */
- {
- _mxml_global_t *global = _mxml_global();
- /* Global data */
- global->wrap = column;
- }
- /*
- * 'mxml_add_char()' - Add a character to a buffer, expanding as needed.
- */
- static int /* O - 0 on success, -1 on error */
- mxml_add_char(int ch, /* I - Character to add */
- char **bufptr, /* IO - Current position in buffer */
- char **buffer, /* IO - Current buffer */
- int *bufsize) /* IO - Current buffer size */
- {
- char *newbuffer; /* New buffer value */
- if (*bufptr >= (*buffer + *bufsize - 4))
- {
- /*
- * Increase the size of the buffer...
- */
- if (*bufsize < 1024)
- (*bufsize) *= 2;
- else
- (*bufsize) += 1024;
- if ((newbuffer = realloc(*buffer, *bufsize)) == NULL)
- {
- free(*buffer);
- mxml_error("Unable to expand string buffer to %d bytes!", *bufsize);
- return (-1);
- }
- *bufptr = newbuffer + (*bufptr - *buffer);
- *buffer = newbuffer;
- }
- if (ch < 0x80)
- {
- /*
- * Single byte ASCII...
- */
- *(*bufptr)++ = ch;
- }
- else if (ch < 0x800)
- {
- /*
- * Two-byte UTF-8...
- */
- *(*bufptr)++ = 0xc0 | (ch >> 6);
- *(*bufptr)++ = 0x80 | (ch & 0x3f);
- }
- else if (ch < 0x10000)
- {
- /*
- * Three-byte UTF-8...
- */
- *(*bufptr)++ = 0xe0 | (ch >> 12);
- *(*bufptr)++ = 0x80 | ((ch >> 6) & 0x3f);
- *(*bufptr)++ = 0x80 | (ch & 0x3f);
- }
- else
- {
- /*
- * Four-byte UTF-8...
- */
- *(*bufptr)++ = 0xf0 | (ch >> 18);
- *(*bufptr)++ = 0x80 | ((ch >> 12) & 0x3f);
- *(*bufptr)++ = 0x80 | ((ch >> 6) & 0x3f);
- *(*bufptr)++ = 0x80 | (ch & 0x3f);
- }
- return (0);
- }
- /*
- * 'mxml_fd_getc()' - Read a character from a file descriptor.
- */
- static int /* O - Character or EOF */
- mxml_fd_getc(void *p, /* I - File descriptor buffer */
- int *encoding) /* IO - Encoding */
- {
- _mxml_fdbuf_t *buf; /* File descriptor buffer */
- int ch, /* Current character */
- temp; /* Temporary character */
- /*
- * Grab the next character in the buffer...
- */
- buf = (_mxml_fdbuf_t *)p;
- if (buf->current >= buf->end)
- if (mxml_fd_read(buf) < 0)
- return (EOF);
- ch = *(buf->current)++;
- switch (*encoding)
- {
- case ENCODE_UTF8 :
- /*
- * Got a UTF-8 character; convert UTF-8 to Unicode and return...
- */
- if (!(ch & 0x80))
- {
- #if DEBUG > 1
- printf("mxml_fd_getc: %c (0x%04x)\n", ch < ' ' ? '.' : ch, ch);
- #endif /* DEBUG > 1 */
- if (mxml_bad_char(ch))
- {
- mxml_error("Bad control character 0x%02x not allowed by XML standard!",
- ch);
- return (EOF);
- }
- return (ch);
- }
- else if (ch == 0xfe)
- {
- /*
- * UTF-16 big-endian BOM?
- */
- if (buf->current >= buf->end)
- if (mxml_fd_read(buf) < 0)
- return (EOF);
- ch = *(buf->current)++;
- if (ch != 0xff)
- return (EOF);
- *encoding = ENCODE_UTF16BE;
- return (mxml_fd_getc(p, encoding));
- }
- else if (ch == 0xff)
- {
- /*
- * UTF-16 little-endian BOM?
- */
- if (buf->current >= buf->end)
- if (mxml_fd_read(buf) < 0)
- return (EOF);
- ch = *(buf->current)++;
- if (ch != 0xfe)
- return (EOF);
- *encoding = ENCODE_UTF16LE;
- return (mxml_fd_getc(p, encoding));
- }
- else if ((ch & 0xe0) == 0xc0)
- {
- /*
- * Two-byte value...
- */
- if (buf->current >= buf->end)
- if (mxml_fd_read(buf) < 0)
- return (EOF);
- temp = *(buf->current)++;
- if ((temp & 0xc0) != 0x80)
- return (EOF);
- ch = ((ch & 0x1f) << 6) | (temp & 0x3f);
- if (ch < 0x80)
- {
- mxml_error("Invalid UTF-8 sequence for character 0x%04x!", ch);
- return (EOF);
- }
- }
- else if ((ch & 0xf0) == 0xe0)
- {
- /*
- * Three-byte value...
- */
- if (buf->current >= buf->end)
- if (mxml_fd_read(buf) < 0)
- return (EOF);
- temp = *(buf->current)++;
- if ((temp & 0xc0) != 0x80)
- return (EOF);
- ch = ((ch & 0x0f) << 6) | (temp & 0x3f);
- if (buf->current >= buf->end)
- if (mxml_fd_read(buf) < 0)
- return (EOF);
- temp = *(buf->current)++;
- if ((temp & 0xc0) != 0x80)
- return (EOF);
- ch = (ch << 6) | (temp & 0x3f);
- if (ch < 0x800)
- {
- mxml_error("Invalid UTF-8 sequence for character 0x%04x!", ch);
- return (EOF);
- }
- /*
- * Ignore (strip) Byte Order Mark (BOM)...
- */
- if (ch == 0xfeff)
- return (mxml_fd_getc(p, encoding));
- }
- else if ((ch & 0xf8) == 0xf0)
- {
- /*
- * Four-byte value...
- */
- if (buf->current >= buf->end)
- if (mxml_fd_read(buf) < 0)
- return (EOF);
- temp = *(buf->current)++;
- if ((temp & 0xc0) != 0x80)
- return (EOF);
- ch = ((ch & 0x07) << 6) | (temp & 0x3f);
- if (buf->current >= buf->end)
- if (mxml_fd_read(buf) < 0)
- return (EOF);
- temp = *(buf->current)++;
- if ((temp & 0xc0) != 0x80)
- return (EOF);
- ch = (ch << 6) | (temp & 0x3f);
- if (buf->current >= buf->end)
- if (mxml_fd_read(buf) < 0)
- return (EOF);
- temp = *(buf->current)++;
- if ((temp & 0xc0) != 0x80)
- return (EOF);
- ch = (ch << 6) | (temp & 0x3f);
- if (ch < 0x10000)
- {
- mxml_error("Invalid UTF-8 sequence for character 0x%04x!", ch);
- return (EOF);
- }
- }
- else
- return (EOF);
- break;
- case ENCODE_UTF16BE :
- /*
- * Read UTF-16 big-endian char...
- */
- if (buf->current >= buf->end)
- if (mxml_fd_read(buf) < 0)
- return (EOF);
- temp = *(buf->current)++;
- ch = (ch << 8) | temp;
- if (mxml_bad_char(ch))
- {
- mxml_error("Bad control character 0x%02x not allowed by XML standard!",
- ch);
- return (EOF);
- }
- else if (ch >= 0xd800 && ch <= 0xdbff)
- {
- /*
- * Multi-word UTF-16 char...
- */
- int lch;
- if (buf->current >= buf->end)
- if (mxml_fd_read(buf) < 0)
- return (EOF);
- lch = *(buf->current)++;
- if (buf->current >= buf->end)
- if (mxml_fd_read(buf) < 0)
- return (EOF);
- temp = *(buf->current)++;
- lch = (lch << 8) | temp;
- if (lch < 0xdc00 || lch >= 0xdfff)
- return (EOF);
- ch = (((ch & 0x3ff) << 10) | (lch & 0x3ff)) + 0x10000;
- }
- break;
- case ENCODE_UTF16LE :
- /*
- * Read UTF-16 little-endian char...
- */
- if (buf->current >= buf->end)
- if (mxml_fd_read(buf) < 0)
- return (EOF);
- temp = *(buf->current)++;
- ch |= (temp << 8);
- if (mxml_bad_char(ch))
- {
- mxml_error("Bad control character 0x%02x not allowed by XML standard!",
- ch);
- return (EOF);
- }
- else if (ch >= 0xd800 && ch <= 0xdbff)
- {
- /*
- * Multi-word UTF-16 char...
- */
- int lch;
- if (buf->current >= buf->end)
- if (mxml_fd_read(buf) < 0)
- return (EOF);
- lch = *(buf->current)++;
- if (buf->current >= buf->end)
- if (mxml_fd_read(buf) < 0)
- return (EOF);
- temp = *(buf->current)++;
- lch |= (temp << 8);
- if (lch < 0xdc00 || lch >= 0xdfff)
- return (EOF);
- ch = (((ch & 0x3ff) << 10) | (lch & 0x3ff)) + 0x10000;
- }
- break;
- }
- #if DEBUG > 1
- printf("mxml_fd_getc: %c (0x%04x)\n", ch < ' ' ? '.' : ch, ch);
- #endif /* DEBUG > 1 */
- return (ch);
- }
- /*
- * 'mxml_fd_putc()' - Write a character to a file descriptor.
- */
- static int /* O - 0 on success, -1 on error */
- mxml_fd_putc(int ch, /* I - Character */
- void *p) /* I - File descriptor buffer */
- {
- _mxml_fdbuf_t *buf; /* File descriptor buffer */
- /*
- * Flush the write buffer as needed...
- */
- buf = (_mxml_fdbuf_t *)p;
- if (buf->current >= buf->end)
- if (mxml_fd_write(buf) < 0)
- return (-1);
- *(buf->current)++ = ch;
- /*
- * Return successfully...
- */
- return (0);
- }
- /*
- * 'mxml_fd_read()' - Read a buffer of data from a file descriptor.
- */
- static int /* O - 0 on success, -1 on error */
- mxml_fd_read(_mxml_fdbuf_t *buf) /* I - File descriptor buffer */
- {
- int bytes; /* Bytes read... */
- /*
- * Range check input...
- */
- if (!buf)
- return (-1);
- /*
- * Read from the file descriptor...
- */
- while ((bytes = (int)read(buf->fd, buf->buffer, sizeof(buf->buffer))) < 0)
- #ifdef EINTR
- if (errno != EAGAIN && errno != EINTR)
- #else
- if (errno != EAGAIN)
- #endif /* EINTR */
- return (-1);
- if (bytes == 0)
- return (-1);
- /*
- * Update the pointers and return success...
- */
- buf->current = buf->buffer;
- buf->end = buf->buffer + bytes;
- return (0);
- }
- /*
- * 'mxml_fd_write()' - Write a buffer of data to a file descriptor.
- */
- static int /* O - 0 on success, -1 on error */
- mxml_fd_write(_mxml_fdbuf_t *buf) /* I - File descriptor buffer */
- {
- int bytes; /* Bytes written */
- unsigned char *ptr; /* Pointer into buffer */
- /*
- * Range check...
- */
- if (!buf)
- return (-1);
- /*
- * Return 0 if there is nothing to write...
- */
- if (buf->current == buf->buffer)
- return (0);
- /*
- * Loop until we have written everything...
- */
- for (ptr = buf->buffer; ptr < buf->current; ptr += bytes)
- if ((bytes = (int)write(buf->fd, ptr, buf->current - ptr)) < 0)
- return (-1);
- /*
- * All done, reset pointers and return success...
- */
- buf->current = buf->buffer;
- return (0);
- }
- /*
- * 'mxml_file_getc()' - Get a character from a file.
- */
- static int /* O - Character or EOF */
- mxml_file_getc(void *p, /* I - Pointer to file */
- int *encoding) /* IO - Encoding */
- {
- int ch, /* Character from file */
- temp; /* Temporary character */
- FILE *fp; /* Pointer to file */
- /*
- * Read a character from the file and see if it is EOF or ASCII...
- */
- fp = (FILE *)p;
- ch = getc(fp);
- if (ch == EOF)
- return (EOF);
- switch (*encoding)
- {
- case ENCODE_UTF8 :
- /*
- * Got a UTF-8 character; convert UTF-8 to Unicode and return...
- */
- if (!(ch & 0x80))
- {
- if (mxml_bad_char(ch))
- {
- mxml_error("Bad control character 0x%02x not allowed by XML standard!",
- ch);
- return (EOF);
- }
- #if DEBUG > 1
- printf("mxml_file_getc: %c (0x%04x)\n", ch < ' ' ? '.' : ch, ch);
- #endif /* DEBUG > 1 */
- return (ch);
- }
- else if (ch == 0xfe)
- {
- /*
- * UTF-16 big-endian BOM?
- */
- ch = getc(fp);
- if (ch != 0xff)
- return (EOF);
- *encoding = ENCODE_UTF16BE;
- return (mxml_file_getc(p, encoding));
- }
- else if (ch == 0xff)
- {
- /*
- * UTF-16 little-endian BOM?
- */
- ch = getc(fp);
- if (ch != 0xfe)
- return (EOF);
- *encoding = ENCODE_UTF16LE;
- return (mxml_file_getc(p, encoding));
- }
- else if ((ch & 0xe0) == 0xc0)
- {
- /*
- * Two-byte value...
- */
- if ((temp = getc(fp)) == EOF || (temp & 0xc0) != 0x80)
- return (EOF);
- ch = ((ch & 0x1f) << 6) | (temp & 0x3f);
- if (ch < 0x80)
- {
- mxml_error("Invalid UTF-8 sequence for character 0x%04x!", ch);
- return (EOF);
- }
- }
- else if ((ch & 0xf0) == 0xe0)
- {
- /*
- * Three-byte value...
- */
- if ((temp = getc(fp)) == EOF || (temp & 0xc0) != 0x80)
- return (EOF);
- ch = ((ch & 0x0f) << 6) | (temp & 0x3f);
- if ((temp = getc(fp)) == EOF || (temp & 0xc0) != 0x80)
- return (EOF);
- ch = (ch << 6) | (temp & 0x3f);
- if (ch < 0x800)
- {
- mxml_error("Invalid UTF-8 sequence for character 0x%04x!", ch);
- return (EOF);
- }
- /*
- * Ignore (strip) Byte Order Mark (BOM)...
- */
- if (ch == 0xfeff)
- return (mxml_file_getc(p, encoding));
- }
- else if ((ch & 0xf8) == 0xf0)
- {
- /*
- * Four-byte value...
- */
- if ((temp = getc(fp)) == EOF || (temp & 0xc0) != 0x80)
- return (EOF);
- ch = ((ch & 0x07) << 6) | (temp & 0x3f);
- if ((temp = getc(fp)) == EOF || (temp & 0xc0) != 0x80)
- return (EOF);
- ch = (ch << 6) | (temp & 0x3f);
- if ((temp = getc(fp)) == EOF || (temp & 0xc0) != 0x80)
- return (EOF);
- ch = (ch << 6) | (temp & 0x3f);
- if (ch < 0x10000)
- {
- mxml_error("Invalid UTF-8 sequence for character 0x%04x!", ch);
- return (EOF);
- }
- }
- else
- return (EOF);
- break;
- case ENCODE_UTF16BE :
- /*
- * Read UTF-16 big-endian char...
- */
- ch = (ch << 8) | getc(fp);
- if (mxml_bad_char(ch))
- {
- mxml_error("Bad control character 0x%02x not allowed by XML standard!",
- ch);
- return (EOF);
- }
- else if (ch >= 0xd800 && ch <= 0xdbff)
- {
- /*
- * Multi-word UTF-16 char...
- */
- int lch = getc(fp);
- lch = (lch << 8) | getc(fp);
- if (lch < 0xdc00 || lch >= 0xdfff)
- return (EOF);
- ch = (((ch & 0x3ff) << 10) | (lch & 0x3ff)) + 0x10000;
- }
- break;
- case ENCODE_UTF16LE :
- /*
- * Read UTF-16 little-endian char...
- */
- ch |= (getc(fp) << 8);
- if (mxml_bad_char(ch))
- {
- mxml_error("Bad control character 0x%02x not allowed by XML standard!",
- ch);
- return (EOF);
- }
- else if (ch >= 0xd800 && ch <= 0xdbff)
- {
- /*
- * Multi-word UTF-16 char...
- */
- int lch = getc(fp);
- lch |= (getc(fp) << 8);
- if (lch < 0xdc00 || lch >= 0xdfff)
- return (EOF);
- ch = (((ch & 0x3ff) << 10) | (lch & 0x3ff)) + 0x10000;
- }
- break;
- }
- #if DEBUG > 1
- printf("mxml_file_getc: %c (0x%04x)\n", ch < ' ' ? '.' : ch, ch);
- #endif /* DEBUG > 1 */
- return (ch);
- }
- /*
- * 'mxml_file_putc()' - Write a character to a file.
- */
- static int /* O - 0 on success, -1 on failure */
- mxml_file_putc(int ch, /* I - Character to write */
- void *p) /* I - Pointer to file */
- {
- return (putc(ch, (FILE *)p) == EOF ? -1 : 0);
- }
- /*
- * 'mxml_get_entity()' - Get the character corresponding to an entity...
- */
- static int /* O - Character value or EOF on error */
- mxml_get_entity(mxml_node_t *parent, /* I - Parent node */
- void *p, /* I - Pointer to source */
- int *encoding, /* IO - Character encoding */
- int (*getc_cb)(void *, int *),
- /* I - Get character function */
- int *line) /* IO - Current line number */
- {
- int ch; /* Current character */
- char entity[64], /* Entity string */
- *entptr; /* Pointer into entity */
- entptr = entity;
- while ((ch = (*getc_cb)(p, encoding)) != EOF)
- {
- if (ch > 126 || (!isalnum(ch) && ch != '#'))
- break;
- else if (entptr < (entity + sizeof(entity) - 1))
- *entptr++ = ch;
- else
- {
- mxml_error("Entity name too long under parent <%s> on line %d.", parent ? parent->value.element.name : "null", *line);
- break;
- }
- }
- *entptr = '\0';
- if (ch != ';')
- {
- mxml_error("Character entity '%s' not terminated under parent <%s> on line %d.", entity, parent ? parent->value.element.name : "null", *line);
- if (ch == '\n')
- (*line)++;
- return (EOF);
- }
- if (entity[0] == '#')
- {
- if (entity[1] == 'x')
- ch = (int)strtol(entity + 2, NULL, 16);
- else
- ch = (int)strtol(entity + 1, NULL, 10);
- }
- else if ((ch = mxmlEntityGetValue(entity)) < 0)
- mxml_error("Entity name '%s;' not supported under parent <%s> on line %d.", entity, parent ? parent->value.element.name : "null", *line);
- if (mxml_bad_char(ch))
- {
- mxml_error("Bad control character 0x%02x under parent <%s> on line %d not allowed by XML standard.", ch, parent ? parent->value.element.name : "null", *line);
- return (EOF);
- }
- return (ch);
- }
- /*
- * 'mxml_load_data()' - Load data into an XML node tree.
- */
- static mxml_node_t * /* O - First node or NULL if the file could not be read. */
- mxml_load_data(
- mxml_node_t *top, /* I - Top node */
- void *p, /* I - Pointer to data */
- mxml_load_cb_t cb, /* I - Callback function or MXML_NO_CALLBACK */
- _mxml_getc_cb_t getc_cb, /* I - Read function */
- mxml_sax_cb_t sax_cb, /* I - SAX callback or MXML_NO_CALLBACK */
- void *sax_data) /* I - SAX user data */
- {
- mxml_node_t *node, /* Current node */
- *first, /* First node added */
- *parent; /* Current parent node */
- int line = 1, /* Current line number */
- ch, /* Character from file */
- whitespace; /* Non-zero if whitespace seen */
- char *buffer, /* String buffer */
- *bufptr; /* Pointer into buffer */
- int bufsize; /* Size of buffer */
- mxml_type_t type; /* Current node type */
- int encoding; /* Character encoding */
- _mxml_global_t *global = _mxml_global();
- /* Global data */
- static const char * const types[] = /* Type strings... */
- {
- "MXML_ELEMENT", /* XML element with attributes */
- "MXML_INTEGER", /* Integer value */
- "MXML_OPAQUE", /* Opaque string */
- "MXML_REAL", /* Real value */
- "MXML_TEXT", /* Text fragment */
- "MXML_CUSTOM" /* Custom data */
- };
- /*
- * Read elements and other nodes from the file...
- */
- if ((buffer = malloc(64)) == NULL)
- {
- mxml_error("Unable to allocate string buffer!");
- return (NULL);
- }
- bufsize = 64;
- bufptr = buffer;
- parent = top;
- first = NULL;
- whitespace = 0;
- encoding = ENCODE_UTF8;
- if (cb && parent)
- type = (*cb)(parent);
- else if (parent)
- type = MXML_TEXT;
- else
- type = MXML_IGNORE;
- if ((ch = (*getc_cb)(p, &encoding)) == EOF)
- {
- free(buffer);
- return (NULL);
- }
- else if (ch != '<' && !top)
- {
- free(buffer);
- mxml_error("XML does not start with '<' (saw '%c').", ch);
- return (NULL);
- }
- do
- {
- if ((ch == '<' ||
- (mxml_isspace(ch) && type != MXML_OPAQUE && type != MXML_CUSTOM)) &&
- bufptr > buffer)
- {
- /*
- * Add a new value node...
- */
- *bufptr = '\0';
- switch (type)
- {
- case MXML_INTEGER :
- node = mxmlNewInteger(parent, (int)strtol(buffer, &bufptr, 0));
- break;
- case MXML_OPAQUE :
- node = mxmlNewOpaque(parent, buffer);
- break;
- case MXML_REAL :
- node = mxmlNewReal(parent, strtod(buffer, &bufptr));
- break;
- case MXML_TEXT :
- node = mxmlNewText(parent, whitespace, buffer);
- break;
- case MXML_CUSTOM :
- if (global->custom_load_cb)
- {
- /*
- * Use the callback to fill in the custom data...
- */
- node = mxmlNewCustom(parent, NULL, NULL);
- if ((*global->custom_load_cb)(node, buffer))
- {
- mxml_error("Bad custom value '%s' in parent <%s> on line %d.", buffer, parent ? parent->value.element.name : "null", line);
- mxmlDelete(node);
- node = NULL;
- }
- break;
- }
- default : /* Ignore... */
- node = NULL;
- break;
- }
- if (*bufptr)
- {
- /*
- * Bad integer/real number value...
- */
- mxml_error("Bad %s value '%s' in parent <%s> on line %d.", type == MXML_INTEGER ? "integer" : "real", buffer, parent ? parent->value.element.name : "null", line);
- break;
- }
- bufptr = buffer;
- whitespace = mxml_isspace(ch) && type == MXML_TEXT;
- if (!node && type != MXML_IGNORE)
- {
- /*
- * Print error and return...
- */
- mxml_error("Unable to add value node of type %s to parent <%s> on line %d.", types[type], parent ? parent->value.element.name : "null", line);
- goto error;
- }
- if (sax_cb)
- {
- (*sax_cb)(node, MXML_SAX_DATA, sax_data);
- if (!mxmlRelease(node))
- node = NULL;
- }
- if (!first && node)
- first = node;
- }
- else if (mxml_isspace(ch) && type == MXML_TEXT)
- whitespace = 1;
- if (ch == '\n')
- line ++;
- /*
- * Add lone whitespace node if we have an element and existing
- * whitespace...
- */
- if (ch == '<' && whitespace && type == MXML_TEXT)
- {
- if (parent)
- {
- node = mxmlNewText(parent, whitespace, "");
- if (sax_cb)
- {
- (*sax_cb)(node, MXML_SAX_DATA, sax_data);
- if (!mxmlRelease(node))
- node = NULL;
- }
- if (!first && node)
- first = node;
- }
- whitespace = 0;
- }
- if (ch == '<')
- {
- /*
- * Start of open/close tag...
- */
- bufptr = buffer;
- while ((ch = (*getc_cb)(p, &encoding)) != EOF)
- {
- if (mxml_isspace(ch) || ch == '>' || (ch == '/' && bufptr > buffer))
- break;
- else if (ch == '<')
- {
- mxml_error("Bare < in element!");
- goto error;
- }
- else if (ch == '&')
- {
- if ((ch = mxml_get_entity(parent, p, &encoding, getc_cb, &line)) == EOF)
- goto error;
- if (mxml_add_char(ch, &bufptr, &buffer, &bufsize))
- goto error;
- }
- else if (ch < '0' && ch != '!' && ch != '-' && ch != '.' && ch != '/')
- goto error;
- else if (mxml_add_char(ch, &bufptr, &buffer, &bufsize))
- goto error;
- else if (((bufptr - buffer) == 1 && buffer[0] == '?') ||
- ((bufptr - buffer) == 3 && !strncmp(buffer, "!--", 3)) ||
- ((bufptr - buffer) == 8 && !strncmp(buffer, "![CDATA[", 8)))
- break;
- if (ch == '\n')
- line ++;
- }
- *bufptr = '\0';
- if (!strcmp(buffer, "!--"))
- {
- /*
- * Gather rest of comment...
- */
- while ((ch = (*getc_cb)(p, &encoding)) != EOF)
- {
- if (ch == '>' && bufptr > (buffer + 4) &&
- bufptr[-3] != '-' && bufptr[-2] == '-' && bufptr[-1] == '-')
- break;
- else if (mxml_add_char(ch, &bufptr, &buffer, &bufsize))
- goto error;
- if (ch == '\n')
- line ++;
- }
- /*
- * Error out if we didn't get the whole comment...
- */
- if (ch != '>')
- {
- /*
- * Print error and return...
- */
- mxml_error("Early EOF in comment node on line %d.", line);
- goto error;
- }
- /*
- * Otherwise add this as an element under the current parent...
- */
- *bufptr = '\0';
- if (!parent && first)
- {
- /*
- * There can only be one root element!
- */
- mxml_error("<%s> cannot be a second root node after <%s> on line %d.", buffer, first->value.element.name, line);
- goto error;
- }
- if ((node = mxmlNewElement(parent, buffer)) == NULL)
- {
- /*
- * Just print error for now...
- */
- mxml_error("Unable to add comment node to parent <%s> on line %d.", parent ? parent->value.element.name : "null", line);
- break;
- }
- if (sax_cb)
- {
- (*sax_cb)(node, MXML_SAX_COMMENT, sax_data);
- if (!mxmlRelease(node))
- node = NULL;
- }
- if (node && !first)
- first = node;
- }
- else if (!strcmp(buffer, "![CDATA["))
- {
- /*
- * Gather CDATA section...
- */
- while ((ch = (*getc_cb)(p, &encoding)) != EOF)
- {
- if (ch == '>' && !strncmp(bufptr - 2, "]]", 2))
- {
- /*
- * Drop terminator from CDATA string...
- */
- bufptr[-2] = '\0';
- break;
- }
- else if (mxml_add_char(ch, &bufptr, &buffer, &bufsize))
- goto error;
- if (ch == '\n')
- line ++;
- }
- /*
- * Error out if we didn't get the whole comment...
- */
- if (ch != '>')
- {
- /*
- * Print error and return...
- */
- mxml_error("Early EOF in CDATA node on line %d.", line);
- goto error;
- }
- /*
- * Otherwise add this as an element under the current parent...
- */
- *bufptr = '\0';
- if (!parent && first)
- {
- /*
- * There can only be one root element!
- */
- mxml_error("<%s> cannot be a second root node after <%s> on line %d.", buffer, first->value.element.name, line);
- goto error;
- }
- if ((node = mxmlNewElement(parent, buffer)) == NULL)
- {
- /*
- * Print error and return...
- */
- mxml_error("Unable to add CDATA node to parent <%s> on line %d.", parent ? parent->value.element.name : "null", line);
- goto error;
- }
- if (sax_cb)
- {
- (*sax_cb)(node, MXML_SAX_CDATA, sax_data);
- if (!mxmlRelease(node))
- node = NULL;
- }
- if (node && !first)
- first = node;
- }
- else if (buffer[0] == '?')
- {
- /*
- * Gather rest of processing instruction...
- */
- while ((ch = (*getc_cb)(p, &encoding)) != EOF)
- {
- if (ch == '>' && bufptr > buffer && bufptr[-1] == '?')
- break;
- else if (mxml_add_char(ch, &bufptr, &buffer, &bufsize))
- goto error;
- if (ch == '\n')
- line ++;
- }
- /*
- * Error out if we didn't get the whole processing instruction...
- */
- if (ch != '>')
- {
- /*
- * Print error and return...
- */
- mxml_error("Early EOF in processing instruction node on line %d.", line);
- goto error;
- }
- /*
- * Otherwise add this as an element under the current parent...
- */
- *bufptr = '\0';
- if (!parent && first)
- {
- /*
- * There can only be one root element!
- */
- mxml_error("<%s> cannot be a second root node after <%s> on line %d.", buffer, first->value.element.name, line);
- goto error;
- }
- if ((node = mxmlNewElement(parent, buffer)) == NULL)
- {
- /*
- * Print error and return...
- */
- mxml_error("Unable to add processing instruction node to parent <%s> on line %d.", parent ? parent->value.element.name : "null", line);
- goto error;
- }
- if (sax_cb)
- {
- (*sax_cb)(node, MXML_SAX_DIRECTIVE, sax_data);
- if (strncmp(node->value.element.name, "?xml ", 5) && !mxmlRelease(node))
- node = NULL;
- }
- if (node)
- {
- if (!first)
- first = node;
- if (!parent)
- {
- parent = node;
- if (cb)
- type = (*cb)(parent);
- else
- type = MXML_TEXT;
- }
- }
- }
- else if (buffer[0] == '!')
- {
- /*
- * Gather rest of declaration...
- */
- do
- {
- if (ch == '>')
- break;
- else
- {
- if (ch == '&')
- {
- if ((ch = mxml_get_entity(parent, p, &encoding, getc_cb, &line)) == EOF)
- goto error;
- }
- if (mxml_add_char(ch, &bufptr, &buffer, &bufsize))
- goto error;
- }
- if (ch == '\n')
- line ++;
- }
- while ((ch = (*getc_cb)(p, &encoding)) != EOF);
- /*
- * Error out if we didn't get the whole declaration...
- */
- if (ch != '>')
- {
- /*
- * Print error and return...
- */
- mxml_error("Early EOF in declaration node on line %d.", line);
- goto error;
- }
- /*
- * Otherwise add this as an element under the current parent...
- */
- *bufptr = '\0';
- if (!parent && first)
- {
- /*
- * There can only be one root element!
- */
- mxml_error("<%s> cannot be a second root node after <%s> on line %d.", buffer, first->value.element.name, line);
- goto error;
- }
- if ((node = mxmlNewElement(parent, buffer)) == NULL)
- {
- /*
- * Print error and return...
- */
- mxml_error("Unable to add declaration node to parent <%s> on line %d.", parent ? parent->value.element.name : "null", line);
- goto error;
- }
- if (sax_cb)
- {
- (*sax_cb)(node, MXML_SAX_DIRECTIVE, sax_data);
- if (!mxmlRelease(node))
- node = NULL;
- }
- if (node)
- {
- if (!first)
- first = node;
- if (!parent)
- {
- parent = node;
- if (cb)
- type = (*cb)(parent);
- else
- type = MXML_TEXT;
- }
- }
- }
- else if (buffer[0] == '/')
- {
- /*
- * Handle close tag...
- */
- if (!parent || strcmp(buffer + 1, parent->value.element.name))
- {
- /*
- * Close tag doesn't match tree; print an error for now...
- */
- mxml_error("Mismatched close tag <%s> under parent <%s> on line %d.", buffer, parent ? parent->value.element.name : "(null)", line);
- goto error;
- }
- /*
- * Keep reading until we see >...
- */
- while (ch != '>' && ch != EOF)
- ch = (*getc_cb)(p, &encoding);
- node = parent;
- parent = parent->parent;
- if (sax_cb)
- {
- (*sax_cb)(node, MXML_SAX_ELEMENT_CLOSE, sax_data);
- if (!mxmlRelease(node) && first == node)
- first = NULL;
- }
- /*
- * Ascend into the parent and set the value type as needed...
- */
- if (cb && parent)
- type = (*cb)(parent);
- }
- else
- {
- /*
- * Handle open tag...
- */
- if (!parent && first)
- {
- /*
- * There can only be one root element!
- */
- mxml_error("<%s> cannot be a second root node after <%s> on line %d.", buffer, first->value.element.name, line);
- goto error;
- }
- if ((node = mxmlNewElement(parent, buffer)) == NULL)
- {
- /*
- * Just print error for now...
- */
- mxml_error("Unable to add element node to parent <%s> on line %d.", parent ? parent->value.element.name : "null", line);
- goto error;
- }
- if (mxml_isspace(ch))
- {
- if ((ch = mxml_parse_element(node, p, &encoding, getc_cb, &line)) == EOF)
- goto error;
- }
- else if (ch == '/')
- {
- if ((ch = (*getc_cb)(p, &encoding)) != '>')
- {
- mxml_error("Expected > but got '%c' instead for element <%s/> on line %d.", ch, buffer, line);
- mxmlDelete(node);
- goto error;
- }
- ch = '/';
- }
- if (sax_cb)
- (*sax_cb)(node, MXML_SAX_ELEMENT_OPEN, sax_data);
- if (!first)
- first = node;
- if (ch == EOF)
- break;
- if (ch != '/')
- {
- /*
- * Descend into this node, setting the value type as needed...
- */
- parent = node;
- if (cb && parent)
- type = (*cb)(parent);
- else
- type = MXML_TEXT;
- }
- else if (sax_cb)
- {
- (*sax_cb)(node, MXML_SAX_ELEMENT_CLOSE, sax_data);
- if (!mxmlRelease(node) && first == node)
- first = NULL;
- }
- }
- bufptr = buffer;
- }
- else if (ch == '&')
- {
- /*
- * Add character entity to current buffer...
- */
- if ((ch = mxml_get_entity(parent, p, &encoding, getc_cb, &line)) == EOF)
- goto error;
- if (mxml_add_char(ch, &bufptr, &buffer, &bufsize))
- goto error;
- }
- else if (type == MXML_OPAQUE || type == MXML_CUSTOM || !mxml_isspace(ch))
- {
- /*
- * Add character to current buffer...
- */
- if (mxml_add_char(ch, &bufptr, &buffer, &bufsize))
- goto error;
- }
- }
- while ((ch = (*getc_cb)(p, &encoding)) != EOF);
- /*
- * Free the string buffer - we don't need it anymore...
- */
- free(buffer);
- /*
- * Find the top element and return it...
- */
- if (parent)
- {
- node = parent;
- while (parent != top && parent->parent)
- parent = parent->parent;
- if (node != parent)
- {
- mxml_error("Missing close tag </%s> under parent <%s> on line %d.", node->value.element.name, node->parent ? node->parent->value.element.name : "(null)", line);
- mxmlDelete(first);
- return (NULL);
- }
- }
- if (parent)
- return (parent);
- else
- return (first);
- /*
- * Common error return...
- */
- error:
- mxmlDelete(first);
- free(buffer);
- return (NULL);
- }
- /*
- * 'mxml_parse_element()' - Parse an element for any attributes...
- */
- static int /* O - Terminating character */
- mxml_parse_element(
- mxml_node_t *node, /* I - Element node */
- void *p, /* I - Data to read from */
- int *encoding, /* IO - Encoding */
- _mxml_getc_cb_t getc_cb, /* I - Data callback */
- int *line) /* IO - Current line number */
- {
- int ch, /* Current character in file */
- quote; /* Quoting character */
- char *name, /* Attribute name */
- *value, /* Attribute value */
- *ptr; /* Pointer into name/value */
- int namesize, /* Size of name string */
- valsize; /* Size of value string */
- /*
- * Initialize the name and value buffers...
- */
- if ((name = malloc(64)) == NULL)
- {
- mxml_error("Unable to allocate memory for name!");
- return (EOF);
- }
- namesize = 64;
- if ((value = malloc(64)) == NULL)
- {
- free(name);
- mxml_error("Unable to allocate memory for value!");
- return (EOF);
- }
- valsize = 64;
- /*
- * Loop until we hit a >, /, ?, or EOF...
- */
- while ((ch = (*getc_cb)(p, encoding)) != EOF)
- {
- #if DEBUG > 1
- fprintf(stderr, "parse_element: ch='%c'\n", ch);
- #endif /* DEBUG > 1 */
- /*
- * Skip leading whitespace...
- */
- if (mxml_isspace(ch))
- {
- if (ch == '\n')
- (*line)++;
- continue;
- }
- /*
- * Stop at /, ?, or >...
- */
- if (ch == '/' || ch == '?')
- {
- /*
- * Grab the > character and print an error if it isn't there...
- */
- quote = (*getc_cb)(p, encoding);
- if (quote != '>')
- {
- mxml_error("Expected '>' after '%c' for element %s, but got '%c' on line %d.", ch, node->value.element.name, quote, *line);
- goto error;
- }
- break;
- }
- else if (ch == '<')
- {
- mxml_error("Bare < in element %s on line %d.", node->value.element.name, *line);
- goto error;
- }
- else if (ch == '>')
- break;
- /*
- * Read the attribute name...
- */
- ptr = name;
- if (mxml_add_char(ch, &ptr, &name, &namesize))
- goto error;
- if (ch == '\"' || ch == '\'')
- {
- /*
- * Name is in quotes, so get a quoted string...
- */
- quote = ch;
- while ((ch = (*getc_cb)(p, encoding)) != EOF)
- {
- if (ch == '&')
- {
- if ((ch = mxml_get_entity(node, p, encoding, getc_cb, line)) == EOF)
- goto error;
- }
- else if (ch == '\n')
- (*line)++;
- if (mxml_add_char(ch, &ptr, &name, &namesize))
- goto error;
- if (ch == quote)
- break;
- }
- }
- else
- {
- /*
- * Grab an normal, non-quoted name...
- */
- while ((ch = (*getc_cb)(p, encoding)) != EOF)
- {
- if (mxml_isspace(ch) || ch == '=' || ch == '/' || ch == '>' ||
- ch == '?')
- {
- if (ch == '\n')
- (*line)++;
- break;
- }
- else
- {
- if (ch == '&')
- {
- if ((ch = mxml_get_entity(node, p, encoding, getc_cb, line)) == EOF)
- goto error;
- }
- if (mxml_add_char(ch, &ptr, &name, &namesize))
- goto error;
- }
- }
- }
- *ptr = '\0';
- if (mxmlElementGetAttr(node, name))
- {
- mxml_error("Duplicate attribute '%s' in element %s on line %d.", name, node->value.element.name, *line);
- goto error;
- }
- while (ch != EOF && mxml_isspace(ch))
- {
- ch = (*getc_cb)(p, encoding);
- if (ch == '\n')
- (*line)++;
- }
- if (ch == '=')
- {
- /*
- * Read the attribute value...
- */
- while ((ch = (*getc_cb)(p, encoding)) != EOF && mxml_isspace(ch))
- {
- if (ch == '\n')
- (*line)++;
- }
- if (ch == EOF)
- {
- mxml_error("Missing value for attribute '%s' in element %s on line %d.", name, node->value.element.name, *line);
- goto error;
- }
- if (ch == '\'' || ch == '\"')
- {
- /*
- * Read quoted value...
- */
- quote = ch;
- ptr = value;
- while ((ch = (*getc_cb)(p, encoding)) != EOF)
- {
- if (ch == quote)
- {
- break;
- }
- else
- {
- if (ch == '&')
- {
- if ((ch = mxml_get_entity(node, p, encoding, getc_cb, line)) == EOF)
- goto error;
- }
- else if (ch == '\n')
- (*line)++;
- if (mxml_add_char(ch, &ptr, &value, &valsize))
- goto error;
- }
- }
- *ptr = '\0';
- }
- else
- {
- /*
- * Read unquoted value...
- */
- ptr = value;
- if (mxml_add_char(ch, &ptr, &value, &valsize))
- goto error;
- while ((ch = (*getc_cb)(p, encoding)) != EOF)
- {
- if (mxml_isspace(ch) || ch == '=' || ch == '/' || ch == '>')
- {
- if (ch == '\n')
- (*line)++;
- break;
- }
- else
- {
- if (ch == '&')
- {
- if ((ch = mxml_get_entity(node, p, encoding, getc_cb, line)) == EOF)
- goto error;
- }
- if (mxml_add_char(ch, &ptr, &value, &valsize))
- goto error;
- }
- }
- *ptr = '\0';
- }
- /*
- * Set the attribute with the given string value...
- */
- mxmlElementSetAttr(node, name, value);
- }
- else
- {
- mxml_error("Missing value for attribute '%s' in element %s on line %d.", name, node->value.element.name, *line);
- goto error;
- }
- /*
- * Check the end character...
- */
- if (ch == '/' || ch == '?')
- {
- /*
- * Grab the > character and print an error if it isn't there...
- */
- quote = (*getc_cb)(p, encoding);
- if (quote != '>')
- {
- mxml_error("Expected '>' after '%c' for element %s, but got '%c' on line %d.", ch, node->value.element.name, quote, *line);
- ch = EOF;
- }
- break;
- }
- else if (ch == '>')
- break;
- }
- /*
- * Free the name and value buffers and return...
- */
- free(name);
- free(value);
- return (ch);
- /*
- * Common error return point...
- */
- error:
- free(name);
- free(value);
- return (EOF);
- }
- /*
- * 'mxml_string_getc()' - Get a character from a string.
- */
- static int /* O - Character or EOF */
- mxml_string_getc(void *p, /* I - Pointer to file */
- int *encoding) /* IO - Encoding */
- {
- int ch; /* Character */
- const char **s; /* Pointer to string pointer */
- s = (const char **)p;
- if ((ch = (*s)[0] & 255) != 0 || *encoding == ENCODE_UTF16LE)
- {
- /*
- * Got character; convert UTF-8 to integer and return...
- */
- (*s)++;
- switch (*encoding)
- {
- case ENCODE_UTF8 :
- if (!(ch & 0x80))
- {
- #if DEBUG > 1
- printf("mxml_string_getc: %c (0x%04x)\n", ch < ' ' ? '.' : ch, ch);
- #endif /* DEBUG > 1 */
- if (mxml_bad_char(ch))
- {
- mxml_error("Bad control character 0x%02x not allowed by XML standard!",
- ch);
- return (EOF);
- }
- return (ch);
- }
- else if (ch == 0xfe)
- {
- /*
- * UTF-16 big-endian BOM?
- */
- if (((*s)[0] & 255) != 0xff)
- return (EOF);
- *encoding = ENCODE_UTF16BE;
- (*s)++;
- return (mxml_string_getc(p, encoding));
- }
- else if (ch == 0xff)
- {
- /*
- * UTF-16 little-endian BOM?
- */
- if (((*s)[0] & 255) != 0xfe)
- return (EOF);
- *encoding = ENCODE_UTF16LE;
- (*s)++;
- return (mxml_string_getc(p, encoding));
- }
- else if ((ch & 0xe0) == 0xc0)
- {
- /*
- * Two-byte value...
- */
- if (((*s)[0] & 0xc0) != 0x80)
- return (EOF);
- ch = ((ch & 0x1f) << 6) | ((*s)[0] & 0x3f);
- (*s)++;
- if (ch < 0x80)
- {
- mxml_error("Invalid UTF-8 sequence for character 0x%04x!", ch);
- return (EOF);
- }
- #if DEBUG > 1
- printf("mxml_string_getc: %c (0x%04x)\n", ch < ' ' ? '.' : ch, ch);
- #endif /* DEBUG > 1 */
- return (ch);
- }
- else if ((ch & 0xf0) == 0xe0)
- {
- /*
- * Three-byte value...
- */
- if (((*s)[0] & 0xc0) != 0x80 ||
- ((*s)[1] & 0xc0) != 0x80)
- return (EOF);
- ch = ((((ch & 0x0f) << 6) | ((*s)[0] & 0x3f)) << 6) | ((*s)[1] & 0x3f);
- (*s) += 2;
- if (ch < 0x800)
- {
- mxml_error("Invalid UTF-8 sequence for character 0x%04x!", ch);
- return (EOF);
- }
- /*
- * Ignore (strip) Byte Order Mark (BOM)...
- */
- if (ch == 0xfeff)
- return (mxml_string_getc(p, encoding));
- #if DEBUG > 1
- printf("mxml_string_getc: %c (0x%04x)\n", ch < ' ' ? '.' : ch, ch);
- #endif /* DEBUG > 1 */
- return (ch);
- }
- else if ((ch & 0xf8) == 0xf0)
- {
- /*
- * Four-byte value...
- */
- if (((*s)[0] & 0xc0) != 0x80 ||
- ((*s)[1] & 0xc0) != 0x80 ||
- ((*s)[2] & 0xc0) != 0x80)
- return (EOF);
- ch = ((((((ch & 0x07) << 6) | ((*s)[0] & 0x3f)) << 6) |
- ((*s)[1] & 0x3f)) << 6) | ((*s)[2] & 0x3f);
- (*s) += 3;
- if (ch < 0x10000)
- {
- mxml_error("Invalid UTF-8 sequence for character 0x%04x!", ch);
- return (EOF);
- }
- #if DEBUG > 1
- printf("mxml_string_getc: %c (0x%04x)\n", ch < ' ' ? '.' : ch, ch);
- #endif /* DEBUG > 1 */
- return (ch);
- }
- else
- return (EOF);
- case ENCODE_UTF16BE :
- /*
- * Read UTF-16 big-endian char...
- */
- ch = (ch << 8) | ((*s)[0] & 255);
- (*s) ++;
- if (mxml_bad_char(ch))
- {
- mxml_error("Bad control character 0x%02x not allowed by XML standard!",
- ch);
- return (EOF);
- }
- else if (ch >= 0xd800 && ch <= 0xdbff)
- {
- /*
- * Multi-word UTF-16 char...
- */
- int lch; /* Lower word */
- if (!(*s)[0])
- return (EOF);
- lch = (((*s)[0] & 255) << 8) | ((*s)[1] & 255);
- (*s) += 2;
- if (lch < 0xdc00 || lch >= 0xdfff)
- return (EOF);
- ch = (((ch & 0x3ff) << 10) | (lch & 0x3ff)) + 0x10000;
- }
- #if DEBUG > 1
- printf("mxml_string_getc: %c (0x%04x)\n", ch < ' ' ? '.' : ch, ch);
- #endif /* DEBUG > 1 */
- return (ch);
- case ENCODE_UTF16LE :
- /*
- * Read UTF-16 little-endian char...
- */
- ch = ch | (((*s)[0] & 255) << 8);
- if (!ch)
- {
- (*s) --;
- return (EOF);
- }
- (*s) ++;
- if (mxml_bad_char(ch))
- {
- mxml_error("Bad control character 0x%02x not allowed by XML standard!",
- ch);
- return (EOF);
- }
- else if (ch >= 0xd800 && ch <= 0xdbff)
- {
- /*
- * Multi-word UTF-16 char...
- */
- int lch; /* Lower word */
- if (!(*s)[1])
- return (EOF);
- lch = (((*s)[1] & 255) << 8) | ((*s)[0] & 255);
- (*s) += 2;
- if (lch < 0xdc00 || lch >= 0xdfff)
- return (EOF);
- ch = (((ch & 0x3ff) << 10) | (lch & 0x3ff)) + 0x10000;
- }
- #if DEBUG > 1
- printf("mxml_string_getc: %c (0x%04x)\n", ch < ' ' ? '.' : ch, ch);
- #endif /* DEBUG > 1 */
- return (ch);
- }
- }
- return (EOF);
- }
- /*
- * 'mxml_string_putc()' - Write a character to a string.
- */
- static int /* O - 0 on success, -1 on failure */
- mxml_string_putc(int ch, /* I - Character to write */
- void *p) /* I - Pointer to string pointers */
- {
- char **pp; /* Pointer to string pointers */
- pp = (char **)p;
- if (pp[0] < pp[1])
- pp[0][0] = ch;
- pp[0] ++;
- return (0);
- }
- /*
- * 'mxml_write_name()' - Write a name string.
- */
- static int /* O - 0 on success, -1 on failure */
- mxml_write_name(const char *s, /* I - Name to write */
- void *p, /* I - Write pointer */
- int (*putc_cb)(int, void *))
- /* I - Write callback */
- {
- char quote; /* Quote character */
- const char *name; /* Entity name */
- if (*s == '\"' || *s == '\'')
- {
- /*
- * Write a quoted name string...
- */
- if ((*putc_cb)(*s, p) < 0)
- return (-1);
- quote = *s++;
- while (*s && *s != quote)
- {
- if ((name = mxmlEntityGetName(*s)) != NULL)
- {
- if ((*putc_cb)('&', p) < 0)
- return (-1);
- while (*name)
- {
- if ((*putc_cb)(*name, p) < 0)
- return (-1);
- name ++;
- }
- if ((*putc_cb)(';', p) < 0)
- return (-1);
- }
- else if ((*putc_cb)(*s, p) < 0)
- return (-1);
- s ++;
- }
- /*
- * Write the end quote...
- */
- if ((*putc_cb)(quote, p) < 0)
- return (-1);
- }
- else
- {
- /*
- * Write a non-quoted name string...
- */
- while (*s)
- {
- if ((*putc_cb)(*s, p) < 0)
- return (-1);
- s ++;
- }
- }
- return (0);
- }
- /*
- * 'mxml_write_node()' - Save an XML node to a file.
- */
- static int /* O - Column or -1 on error */
- mxml_write_node(mxml_node_t *node, /* I - Node to write */
- void *p, /* I - File to write to */
- mxml_save_cb_t cb, /* I - Whitespace callback */
- int col, /* I - Current column */
- _mxml_putc_cb_t putc_cb,/* I - Output callback */
- _mxml_global_t *global)/* I - Global data */
- {
- mxml_node_t *current, /* Current node */
- *next; /* Next node */
- int i, /* Looping var */
- width; /* Width of attr + value */
- _mxml_attr_t *attr; /* Current attribute */
- char s[255]; /* Temporary string */
- /*
- * Loop through this node and all of its children...
- */
- for (current = node; current; current = next)
- {
- /*
- * Print the node value...
- */
- switch (current->type)
- {
- case MXML_ELEMENT :
- col = mxml_write_ws(current, p, cb, MXML_WS_BEFORE_OPEN, col, putc_cb);
- if ((*putc_cb)('<', p) < 0)
- return (-1);
- if (current->value.element.name[0] == '?' ||
- !strncmp(current->value.element.name, "!--", 3))
- {
- /*
- * Comments and processing instructions do not use character
- * entities.
- */
- const char *ptr; /* Pointer into name */
- for (ptr = current->value.element.name; *ptr; ptr ++)
- if ((*putc_cb)(*ptr, p) < 0)
- return (-1);
- }
- else if (!strncmp(current->value.element.name, "![CDATA[", 8))
- {
- /*
- * CDATA elements do not use character entities, but also need the
- * "]]" terminator added at the end.
- */
- const char *ptr; /* Pointer into name */
- for (ptr = current->value.element.name; *ptr; ptr ++)
- if ((*putc_cb)(*ptr, p) < 0)
- return (-1);
- if ((*putc_cb)(']', p) < 0)
- return (-1);
- if ((*putc_cb)(']', p) < 0)
- return (-1);
- }
- else if (mxml_write_name(current->value.element.name, p, putc_cb) < 0)
- return (-1);
- col += strlen(current->value.element.name) + 1;
- for (i = current->value.element.num_attrs, attr = current->value.element.attrs;
- i > 0;
- i --, attr ++)
- {
- width = (int)strlen(attr->name);
- if (attr->value)
- width += strlen(attr->value) + 3;
- if (global->wrap > 0 && (col + width) > global->wrap)
- {
- if ((*putc_cb)('\n', p) < 0)
- return (-1);
- col = 0;
- }
- else
- {
- if ((*putc_cb)(' ', p) < 0)
- return (-1);
- col ++;
- }
- if (mxml_write_name(attr->name, p, putc_cb) < 0)
- return (-1);
- if (attr->value)
- {
- if ((*putc_cb)('=', p) < 0)
- return (-1);
- if ((*putc_cb)('\"', p) < 0)
- return (-1);
- if (mxml_write_string(attr->value, p, putc_cb) < 0)
- return (-1);
- if ((*putc_cb)('\"', p) < 0)
- return (-1);
- }
- col += width;
- }
- if (current->child)
- {
- /*
- * Write children...
- */
- if ((*putc_cb)('>', p) < 0)
- return (-1);
- else
- col ++;
- col = mxml_write_ws(current, p, cb, MXML_WS_AFTER_OPEN, col, putc_cb);
- }
- else if (current->value.element.name[0] == '!' ||
- current->value.element.name[0] == '?')
- {
- /*
- * The ? and ! elements are special-cases...
- */
- if ((*putc_cb)('>', p) < 0)
- return (-1);
- else
- col ++;
- col = mxml_write_ws(current, p, cb, MXML_WS_AFTER_OPEN, col, putc_cb);
- }
- else
- {
- if ((*putc_cb)(' ', p) < 0)
- return (-1);
- if ((*putc_cb)('/', p) < 0)
- return (-1);
- if ((*putc_cb)('>', p) < 0)
- return (-1);
- col += 3;
- col = mxml_write_ws(current, p, cb, MXML_WS_AFTER_OPEN, col, putc_cb);
- }
- break;
- case MXML_INTEGER :
- if (current->prev)
- {
- if (global->wrap > 0 && col > global->wrap)
- {
- if ((*putc_cb)('\n', p) < 0)
- return (-1);
- col = 0;
- }
- else if ((*putc_cb)(' ', p) < 0)
- return (-1);
- else
- col ++;
- }
- snprintf(s, sizeof(s), "%d", current->value.integer);
- if (mxml_write_string(s, p, putc_cb) < 0)
- return (-1);
- col += strlen(s);
- break;
- case MXML_OPAQUE :
- if (mxml_write_string(current->value.opaque, p, putc_cb) < 0)
- return (-1);
- col += strlen(current->value.opaque);
- break;
- case MXML_REAL :
- if (current->prev)
- {
- if (global->wrap > 0 && col > global->wrap)
- {
- if ((*putc_cb)('\n', p) < 0)
- return (-1);
- col = 0;
- }
- else if ((*putc_cb)(' ', p) < 0)
- return (-1);
- else
- col ++;
- }
- snprintf(s, sizeof(s), "%f", current->value.real);
- if (mxml_write_string(s, p, putc_cb) < 0)
- return (-1);
- col += strlen(s);
- break;
- case MXML_TEXT :
- if (current->value.text.whitespace && col > 0)
- {
- if (global->wrap > 0 && col > global->wrap)
- {
- if ((*putc_cb)('\n', p) < 0)
- return (-1);
- col = 0;
- }
- else if ((*putc_cb)(' ', p) < 0)
- return (-1);
- else
- col ++;
- }
- if (mxml_write_string(current->value.text.string, p, putc_cb) < 0)
- return (-1);
- col += strlen(current->value.text.string);
- break;
- case MXML_CUSTOM :
- if (global->custom_save_cb)
- {
- char *data; /* Custom data string */
- const char *newline; /* Last newline in string */
- if ((data = (*global->custom_save_cb)(current)) == NULL)
- return (-1);
- if (mxml_write_string(data, p, putc_cb) < 0)
- return (-1);
- if ((newline = strrchr(data, '\n')) == NULL)
- col += strlen(data);
- else
- col = (int)strlen(newline);
- free(data);
- break;
- }
- default : /* Should never happen */
- return (-1);
- }
- /*
- * Figure out the next node...
- */
- if ((next = current->child) == NULL)
- {
- if (current == node)
- {
- /*
- * Don't traverse to sibling node if we are at the "root" node...
- */
- next = NULL;
- }
- else
- {
- /*
- * Try the next sibling, and continue traversing upwards as needed...
- */
- while ((next = current->next) == NULL)
- {
- if (current == node || !current->parent)
- break;
- /*
- * The ? and ! elements are special-cases and have no end tags...
- */
- current = current->parent;
- if (current->value.element.name[0] != '!' &&
- current->value.element.name[0] != '?')
- {
- col = mxml_write_ws(current, p, cb, MXML_WS_BEFORE_CLOSE, col, putc_cb);
- if ((*putc_cb)('<', p) < 0)
- return (-1);
- if ((*putc_cb)('/', p) < 0)
- return (-1);
- if (mxml_write_string(current->value.element.name, p, putc_cb) < 0)
- return (-1);
- if ((*putc_cb)('>', p) < 0)
- return (-1);
- col += strlen(current->value.element.name) + 3;
- col = mxml_write_ws(current, p, cb, MXML_WS_AFTER_CLOSE, col, putc_cb);
- }
- if (current == node)
- break;
- }
- }
- }
- }
- return (col);
- }
- /*
- * 'mxml_write_string()' - Write a string, escaping & and < as needed.
- */
- static int /* O - 0 on success, -1 on failure */
- mxml_write_string(
- const char *s, /* I - String to write */
- void *p, /* I - Write pointer */
- _mxml_putc_cb_t putc_cb) /* I - Write callback */
- {
- const char *name; /* Entity name, if any */
- while (*s)
- {
- if ((name = mxmlEntityGetName(*s)) != NULL)
- {
- if ((*putc_cb)('&', p) < 0)
- return (-1);
- while (*name)
- {
- if ((*putc_cb)(*name, p) < 0)
- return (-1);
- name ++;
- }
- if ((*putc_cb)(';', p) < 0)
- return (-1);
- }
- else if ((*putc_cb)(*s, p) < 0)
- return (-1);
- s ++;
- }
- return (0);
- }
- /*
- * 'mxml_write_ws()' - Do whitespace callback...
- */
- static int /* O - New column */
- mxml_write_ws(mxml_node_t *node, /* I - Current node */
- void *p, /* I - Write pointer */
- mxml_save_cb_t cb, /* I - Callback function */
- int ws, /* I - Where value */
- int col, /* I - Current column */
- _mxml_putc_cb_t putc_cb) /* I - Write callback */
- {
- const char *s; /* Whitespace string */
- if (cb && (s = (*cb)(node, ws)) != NULL)
- {
- while (*s)
- {
- if ((*putc_cb)(*s, p) < 0)
- return (-1);
- else if (*s == '\n')
- col = 0;
- else if (*s == '\t')
- {
- col += MXML_TAB;
- col = col - (col % MXML_TAB);
- }
- else
- col ++;
- s ++;
- }
- }
- return (col);
- }
|