GOOF----LE-8-2.0ÄP]×4hI] gguile¤ ¤ gdefine-module*¤ ¤ ¤ gsxml¤ gsimple¤ ¤ gfilenameS¤ fsxml/simple.scm¤ gimportsS¤ gssax¤ g input-parse¤   ¤ ¤  ¤ ¤ g transform¤ ¤ ¤ gice-9¤ gmatch¤ ¤ ¤ gsrfi¤ gsrfi-13¤ ¤ ¤ ¤ gexportsS¤ g xml->sxml¤ g sxml->xml¤ !g sxml->string¤ " !¤ #gset-current-module¤ $#¤ %#¤ &gstring-concatenate/shared¤ 'gstring?¤ (gssax:reverse-collect-str¤ )g next-token¤ *]¤ +freading internal DOCTYPE¤ ,gpeek-next-char¤ -g read-char¤ .f]¤ /gread-internal-doctype-as-string¤ 0g namespacesS¤ 10 Œ¤ 2gdeclare-namespaces?S¤ 32 Œ¤ 4gtrim-whitespace?S¤ 54 Œ¤ 6gentitiesS¤ 76 Œ¤ 8gdefault-entity-handlerS¤ 98 Œ¤ :gdoctype-handlerS¤ ;: Œ¤ <13579;¤ =gcurrent-input-port¤ >gmap¤ ?gssax:uri-string->symbol¤ @gerror¤ A@¤ B@¤ Cfno matching pattern¤ Dg symbol-append¤ Egstring->symbol¤ Ff:¤ Ggssax:scan-Misc¤ HG¤ IG¤ Jg eof-object?¤ KJ¤ LJ¤ Mg parser-error¤ NM¤ OM¤ PfXML [22], unexpected EOF¤ QgPI¤ Rg*PI*¤ Sgssax:read-pi-body-as-string¤ TgDECL¤ UE¤ VE¤ WfDOCTYPE¤ Xf.XML [22], expected DOCTYPE declaration, found ¤ Ygassert-curr-char¤ ZY¤ [Y¤ \g ssax:S-chars¤ ]\¤ ^\¤ _fXML [28], space after DOCTYPE¤ `g ssax:skip-S¤ a`¤ b`¤ cgssax:read-QName¤ dc¤ ec¤ fgssax:ncname-starting-char?¤ gf¤ hf¤ igssax:read-external-id¤ ji¤ ki¤ l>[¤ mfXML [28], end-of-DOCTYPE¤ ngcall-with-values¤ ogssax:skip-internal-dtd¤ p6 Œ¤ qp1¤ rgappend¤ sgassq¤ tg *DEFAULT*¤ ugSTART¤ vfXML [22], unexpected markup ¤ wgssax:Prefix-XML¤ xw¤ yw¤ zfspace¤ {gssax:complete-start-tag¤ |{¤ }{¤ ~g EMPTY-TAG¤ g ssax:reverse-collect-str-drop-ws¤ €g attlist-fold¤ g@¤ ‚gEMPTY¤ ƒgssax:assert-token¤ „ƒ¤ …ƒ¤ †gssax:read-markup-token¤ ‡†¤ ˆ†¤ ‰gEND¤ Šf[elementvalid] broken for ¤ ‹f while expecting ¤ Œgassoc¤ Œ¤ ŽŒ¤ fpreserve¤ gssax:read-char-data¤ ‘¤ ’¤ “g string-null?¤ ”f[GIMatch] broken for ¤ •g ENTITY-REF¤ –gssax:handle-parsed-entity¤ —–¤ ˜–¤ ™gPCDATA¤ šf* with char content only; unexpected token ¤ ›fXML [43] broken for ¤ œgopen-input-string¤ greverse¤ žg*TOP*¤ Ÿgmake-hash-table¤  g hashq-ref¤ ¡gsymbol->string¤ ¢g string-index¤ £g substring¤ ¤f"Invalid QName: more than one colon¤ ¥gfor-each¤ ¦gchar-alphabetic?¤ §g string-ref¤ ¨fInvalid name starting character¤ ©gstring-for-each¤ ªf 0123456789.-_¤ «fInvalid name character¤ ¬g hashq-set!¤ ­g check-name¤ ®gattribute-value->xml¤ ¯gstring->escaped-xml¤ °g procedure?¤ ±gwith-output-to-port¤ ²gcall-with-output-string¤ ³gdisplay¤ ´f="¤ µgattribute->xml¤ ¶f bad attribute¤ ·fbad attributes¤ ¸f¤ ºfbad element body¤ »f />¤ ¼g element->xml¤ ½g entity->xml¤ ¾f¤ Àgpi->xml¤ Ágcurrent-output-port¤ Âg*ENTITY*¤ Ãfbad *ENTITY* args¤ Äglength¤ Åf bad *PI* args¤ Ægstring-concatenate-reverse¤ Çgfoldts¤ Ègappend!¤ Églist->char-set¤ Êgcar¤ Ëg string-length¤ Ìgassv¤ Ígmake-char-quotator¤ Îf<¤ Ï<ÎŒ¤ Ðf>¤ Ñ>ÐŒ¤ Òf&¤ Ó&ÒŒ¤ Ôf"¤ Õ"ÔŒ¤ ÖÏÑÓÕ¤C5hh?]4   "54%>"G&'h¥](CŽ(C"c((C45ŒC45$ŽŒ"ÿÿÅŽ(" 45ŒŒ"ÿÿ"ÿÿg fragments  ‰g fragments  {gresult   {gstrs   {gfilenamefsxml/simple.scmŒ , ŒŒ  - ŒŒ . ŒŒ / ŒŒ  - ŒŒ  1 ŒŒ  2 ŒŒ $ 4 ŒŒ ( 5 ŒŒ 1 5 ŒŒ 3 6 ŒŒ 8 6 ŒŒ : 6 ŒŒ > 2 ŒŒ A 7 ŒŒ F 7 /ŒŒ I 7 )ŒŒ S 7 ŒŒ V 9 ŒŒ Y ; ŒŒ _ < ŒŒ f = ŒŒ o = ŒŒ p : ŒŒ q > ŒŒ { 9 ŒŒ { 1 ŒŒ ~ 1 /ŒŒ  1 :ŒŒ ‰ 1 ŒŒ  ‰ gnamegssax:reverse-collect-strŒC(R&)*+,-.hHÚ]4L5>4L5†$4L>"GC4L5ŒŒCÒgfragment  Bgfilenamefsxml/simple.scmŒ B ŒŒ  D ŒŒ  D ŒŒ  D ŒŒ D $ŒŒ  D ŒŒ  C ŒŒ  E ŒŒ  E ŒŒ  E ŒŒ  G ŒŒ 5 H ŒŒ : I ŒŒ ; I ŒŒ @ I ŒŒ  B gnamegloopŒCh ¡] OQ456™gport  gloop gfilenamefsxml/simple.scmŒ @ ŒŒ B ŒŒ  A ŒŒ   gnamegread-internal-doctype-as-stringŒC/R<=>?BCh@˜]ˆ$#ŽL$"45ŒŒC456gel  9gw  ,gx   ,gfilenamefsxml/simple.scmŒ l ŒŒ  m ŒŒ  o ŒŒ # q ŒŒ * o ŒŒ - m ŒŒ  9 Ch€]LO6xg namespaces  gfilenamefsxml/simple.scmŒ k ŒŒ  l ŒŒ   gnamegmunge-namespacesŒCDEFh(µ]ˆ$Ž456C­gname  %gw  "gx   "gfilenamefsxml/simple.scmŒ } ŒŒ  ~ ŒŒ  € ŒŒ  € -ŒŒ  € ŒŒ " € ŒŒ  % gnameg name->sxmlŒCILOPQRSTVWX[^_behklmn/oh@C]L$LLLL$ 4L5"6L$4L>"G"D;gfilenamefsxml/simple.scmŒ Ž ŒŒ  @ Cqrsthp-/03##4L$4L5$L"LŒLŒ"L544L54LL55LDgentities  kg namespaces  kgfilenamefsxml/simple.scmŒ „ ŒŒ  „ ŒŒ # „ /ŒŒ ' † ŒŒ 1 x ŒŒ 2 y ŒŒ 6 y ŒŒ : y ŒŒ > x ŒŒ F z ŒŒ I z ŒŒ T † ŒŒ U ‡ ŒŒ X ‡ ŒŒ _ u ŒŒ g ‡ ŒŒ k … ŒŒ  k gentitiesS Œg namespacesS ŒCuhC]L$L6D;gfilenamefsxml/simple.scmŒ Ž ŒŒ   Cqrsthp-/03##4L$4L5$L"LŒLŒ"L544L54LL55LDgentities  kg namespaces  kgfilenamefsxml/simple.scmŒ „ ŒŒ  „ ŒŒ # „ /ŒŒ ' † ŒŒ 1 x ŒŒ 2 y ŒŒ 6 y ŒŒ : y ŒŒ > x ŒŒ F z ŒŒ I z ŒŒ T † ŒŒ U ‡ ŒŒ X ‡ ŒŒ _ u ŒŒ g ‡ ŒŒ k … ŒŒ  k gentitiesS Œg namespacesS ŒCvILOPQRSuv hˆ+]4545$6†$3Ž45Œ"ÿÿ£†$LŽŽ6 6#gport  ˆgelems  ˆgentities   ˆg namespaces   ˆgseed   ˆgtoken  ˆgkey  ! ˆgtarget  / Egseed  E _ gfilenamefsxml/simple.scmŒ Ž ŒŒ  ˆ gnameg#scan-for-significant-prolog-token-2ŒCyVz}~(€hi]4L5ŽŒCagattr  gaccum  gfilenamefsxml/simple.scmŒ Ž ŒŒ   C‚…bˆ‰OŠ‹hƒ]L6{gtoken  gexp-kind  gexp-head   gfilenamefsxml/simple.scmŒ Ž ŒŒ   Chi]4L5ŽŒCagattr  gaccum  gfilenamefsxml/simple.scmŒ Ž ŒŒ   CŽ’“h €]45$ŒCŒŒCxgstring1  gstring2  gseed   gfilenamefsxml/simple.scmŒ Ž ŒŒ   CL‰…O”‹hƒ]LL6{gtoken  gexp-kind  gexp-head   gfilenamefsxml/simple.scmŒ Ž ŒŒ   C(€hi]4L5ŽŒCagattr  gaccum  gfilenamefsxml/simple.scmŒ Ž ŒŒ   CQRS•˜h~]L6vgport  gentities  gseed   gfilenamefsxml/simple.scmŒ Ž ŒŒ  C“h €]45$ŒCŒŒCxgstring1  gstring2  gseed   gfilenamefsxml/simple.scmŒ Ž ŒŒ   Cu™OŠš›hpd],4> G45$C†$j4LO>"GL$ 45"454  L OL54L L 5(" ŒŒŒLŒC †$/Ž 45Œ"ÿÿ*†$-4ŽLO5"ÿþô†$NL&4L >"G"4LŽLL5"ÿþ6\gport  ogentities  og expect-eof?   ogseed   ogseed   og term-token   ogkey  + ogseed  |  gattrs  |  gtarget  ¬ Âgseed   Øgseed  ø gseed  O e gfilenamefsxml/simple.scmŒ Ž ŒŒ  o gnamegloopŒChPí]64L> G  †$IL$ 45"454LO5  4L5 ( " Œ ŒŒŒC †$~4 <4 5†$ 4 5"  O>"GL$ 45"454LO5  4L5 ( " Œ ŒŒŒC4M5  $  Ž‡"  O    L LLQ  6ågstart-tag-head  Pgport  Pgentities   Pg namespaces   Pg preserve-ws?   Pg parent-seed   Pgelem-gi   Pg attributes   Pg namespaces   Pgexpected-content  Pgseed N rgattrs N rgseed Õ ùgattrs Õ ùgt  g preserve-ws?  Pgloop - Pgfilenamefsxml/simple.scmŒ Ž ŒŒ  P gnameghandle-start-tagŒCh@2]H45ŒKOLLQ6*gstart-tag-head  :gport  :gelems   :gentities   :g namespaces   :g preserve-ws?   :gseed   :g xml-space-gi   :ghandle-start-tag   : gfilenamefsxml/simple.scmŒ Ž ŒŒ  : gnamegelement-parserŒChÈo]r"’4545$6†$'Ž45Œ"ÿÿ¯†$åŽ4  5‚  $"4 >"G 4  >"G4>"G45 4455$ 45" 4>"G[4 5† 4   LOLLLLO> G    6†$@Ž4LOLLLLO> G   Ž   66OOQLLQ"ÿþBggport  Ägseed  Ägport   ˜gseed   ˜gtoken  ˜gkey  % ˜gtarget  3 Igseed  I Wg token-head  c Egt o ”gdocname à Egsystemid á Eginternal-subset?  Egelems , Egentities , Eg namespaces  , Egseed  , Egelems  q Žgentities q Žg namespaces q Žgseed q Žg#scan-for-significant-prolog-token-2  ª Ägelement-parser  ª Ägfilenamefsxml/simple.scmŒ Ž ŒŒ  Ä gnamegparserŒC'œž h¸V-/03 #45######OO QQ 45$ 45" 44  55   ŒCNgstring-or-port  µg namespaces  µgdeclare-namespaces?   µgtrim-whitespace?   µgentities   µgdefault-entity-handler   µgdoctype-handler   µgmunge-namespaces  p µg name->sxml  p µgparser p µgport ž µgelements ­ µ gfilenamefsxml/simple.scmŒ V ŒŒ  V /ŒŒ ' W ŒŒ B Z ŒŒ ‡ Ó ŒŒ ‘ Ó ŒŒ ’ Ô ŒŒ ž Ó ŒŒ ¡ Ö ŒŒ ¤ Ö ŒŒ © Ö )ŒŒ « Ö ŒŒ ­ Ö ŒŒ ­ Ó ŒŒ ± × ŒŒ  µ g namespacesS Œgdeclare-namespaces?S Œgtrim-whitespace?S ŒgentitiesS Œgdefault-entity-handlerS Œgdoctype-handlerS Œgnameg xml->sxmlŒg documentationf‰Use SSAX to parse an XML document into SXML. Takes one optional argument, @var{string-or-port}, which defaults to the current input port.ŒCR4Ÿi5 ¡¢£@¤¥¦§@¨©¦¢ª@«h8·] 45$C45$CLL6¯gc  4gt 4gt  4gfilenamefsxml/simple.scmŒ ê ŒŒ  ë ŒŒ ë ŒŒ  ë 0ŒŒ  ë >ŒŒ  ë 0ŒŒ  ë ŒŒ , ì "ŒŒ 4 ì ŒŒ  4 Chhå]$X44 55$"&4 5_‚$" 4L5$LO6CCÝgs  bgt  Kgt  - Hgfilenamefsxml/simple.scmŒ ä ŒŒ  å ŒŒ æ ŒŒ æ *ŒŒ  æ ŒŒ  æ ŒŒ # ç ŒŒ - ç ŒŒ - æ ŒŒ ; è ŒŒ ? è ŒŒ E è ŒŒ O å ŒŒ ^ é ŒŒ  b C¬ hÈ»]!4L5$C454:5$4 5"$"$4—5"$144—5:5$4>"G""4O>"G L6³gname  Ägstr  Ägi  # Ägt  : Mghead  M Ägtail  d Ägfilenamefsxml/simple.scmŒ Û ŒŒ  Ü ŒŒ  Ü ŒŒ  Ý ŒŒ  Ý ŒŒ  Þ ŒŒ # Ý ŒŒ + ß ŒŒ , ß "ŒŒ : ß ŒŒ M Ý ŒŒ U à ŒŒ V à ŒŒ ] à -ŒŒ _ à ŒŒ d Ý ŒŒ l á ŒŒ m á ŒŒ p á !ŒŒ w á 0ŒŒ y á !ŒŒ } á ŒŒ á ŒŒ ‚ â ŒŒ † â ŒŒ â ŒŒ ž ã ŒŒ ® î ŒŒ ³ ã ŒŒ Ä ï ŒŒ  Ä CO­R®'¯°±²³h_]L6Wgport  gfilenamefsxml/simple.scmŒ  ŒŒ  -ŒŒ  Chh]ˆ$4>"GŽ6(C45$645$64O56gvalue  ggport  ggfilenamefsxml/simple.scmŒ õ ŒŒ  ÷ ŒŒ ö ŒŒ ø ŒŒ  ø ŒŒ  ø ŒŒ # ù ŒŒ ' ù ŒŒ - ö ŒŒ 0 ü ŒŒ : ö ŒŒ B ý ŒŒ C þ ŒŒ M ö ŒŒ U ÿ ŒŒ X  ŒŒ g  ŒŒ  g gnamegattribute-value->xmlŒC®R­³´®hXÔ]4>"G4>"G4>"G4>"G"6Ìgattr  Xgvalue  Xgport   Xgfilenamefsxml/simple.scmŒ  ŒŒ   ŒŒ   ŒŒ )  ŒŒ -  ŒŒ 4  ŒŒ =  ŒŒ X  ŒŒ  X gnamegattribute->xmlŒCµR­³µ@¶· ¸¹º» hp¾]4>"G4<>"G4>"G$™"‰ˆ$^4 >"Gˆ$4Ž>"G"4>"GŽ"ÿÿž(""4>"G""ÿÿo"ˆ$…4>>"G"eˆ$4>"GŽ"ÿÿÛ(04>"G4>"G 6 6"ÿÿ“ 6¶gtag  ogattrs  ogbody   ogport   ogattrs  F Ïgattr  P «gbody  ú _gfilenamefsxml/simple.scmŒ  ŒŒ   ŒŒ   ŒŒ )  ŒŒ B  ŒŒ F  ŒŒ I  ŒŒ M  ŒŒ P  ŒŒ P  ŒŒ S  ŒŒ i  ŒŒ m  ŒŒ n  ŒŒ s  "ŒŒ v  -ŒŒ }  ŒŒ Š  ŒŒ Ž  ŒŒ —  ŒŒ ¢  ŒŒ ¨  ŒŒ ±  ŒŒ ¶  ŒŒ º  ŒŒ à  ŒŒ Ï  ŒŒ Þ  ŒŒ â  ŒŒ ã  ŒŒ ú  ŒŒ ý  ŒŒ   ŒŒ  ! ŒŒ  ! ŒŒ  ! ŒŒ  " ŒŒ  " ŒŒ %  ŒŒ & $ ŒŒ * $ ŒŒ 1 $ ŒŒ : % ŒŒ Q & ŒŒ U & ŒŒ Y ( ŒŒ _ ( ŒŒ _  ŒŒ k ) ŒŒ o ) ŒŒ3  o gnameg element->xmlŒC¼R³h8š]4&>"G4>"G;6’gname  2gport  2gfilenamefsxml/simple.scmŒ , ŒŒ  - ŒŒ  . ŒŒ 2 / ŒŒ  2 gnameg entity->xmlŒC½R³¾¿h`Ó]4>"G4>"G4 >"G4>"G6Ëgtag  Zgstr  Zgport   Zgfilenamefsxml/simple.scmŒ 2 ŒŒ  3 ŒŒ  3 ŒŒ  3 ŒŒ  4 ŒŒ + 5 ŒŒ ? 6 ŒŒ V 7 ŒŒ Z 7 ŒŒ  Z gnamegpi->xmlŒCÀRÁž Â@ÃĽRÅÀ¼¥ h\]L6Tgx  gfilenamefsxml/simple.scmŒ T ŒŒ T ŒŒ  C'¯°±²³h_]L6Wgport  gfilenamefsxml/simple.scmŒ ^ ŒŒ ^ -ŒŒ  Chpë-.,3#45ˆ$úŠ$å†$ Ž6†$5" Ž6Ž‰$4Ž5 ‘$ Ž6"ÿÿÓ"ÿÿÏ †$;"  Ž6Ž‰$"4Ž5 ‘$ ŽŽŽ6"ÿÿÍ"ÿÿÉŽˆ$$ˆ$ &Ž""" $Ž"6O645$6(C$.&C45$64O56Cãgtree kgport kgtag  +  gelems  Ä  gattrs  ò  gfilenamefsxml/simple.scmŒ 9 ŒŒ  9 *ŒŒ  > ŒŒ = ŒŒ # ? ŒŒ $ ? ŒŒ ( ? ŒŒ + A ŒŒ + A ŒŒ 6 B ŒŒ ; D ŒŒ ? D ŒŒ H B ŒŒ P H ŒŒ S H ,ŒŒ U H ŒŒ U F ŒŒ X F ŒŒ Y F ŒŒ ] F ŒŒ ^ F ,ŒŒ c F 4ŒŒ e F ,ŒŒ g F )ŒŒ k F ŒŒ p G ŒŒ u G ŒŒ † B ŒŒ Ž L ŒŒ ‘ L (ŒŒ “ L ŒŒ “ J ŒŒ – J ŒŒ — J ŒŒ › J ŒŒ œ J ,ŒŒ ¡ J 4ŒŒ £ J ,ŒŒ ¦ J )ŒŒ ª J ŒŒ ¯ K ŒŒ ³ K &ŒŒ ¹ K ŒŒ Ä N ŒŒ Ä N ŒŒ É O ŒŒ Í O ŒŒ Ð O 5ŒŒ Ñ O .ŒŒ Õ O ŒŒ × P %ŒŒ Ú P (ŒŒ ß O ŒŒ â Q ŒŒ ò N ŒŒ  R 'ŒŒ  R 1ŒŒ  R ŒŒ  T ŒŒ  U ŒŒ % = ŒŒ - V ŒŒ 3 = ŒŒ E Z ŒŒ O = ŒŒ W [ ŒŒ Z ^ ŒŒ i ] ŒŒE k gnameg sxml->xmlŒg documentationf•Serialize the sxml tree @var{tree} as XML. The output will be written to the current output port, unless the optional argument @var{port} is present.ŒC RÆÇhq]Cigseed  gtree  gfilenamefsxml/simple.scmŒ f ŒŒ  g ŒŒ   CÈh‡]6gseed  gkid-seed  gtree   gfilenamefsxml/simple.scmŒ h ŒŒ i ŒŒ  C'hƒ]45$ŒCC{gseed  gtree  gfilenamefsxml/simple.scmŒ j ŒŒ  k ŒŒ k ŒŒ  k ŒŒ   Chõ]456ígsxml  gfilenamefsxml/simple.scmŒ a ŒŒ  e ŒŒ  l ŒŒ  e ŒŒ  d ŒŒ   gnameg sxml->stringŒg documentationfMDetag an sxml tree @var{sxml} into a string. Does not perform any formatting.ŒC!RÉ>Ê¢Ȩ̈³£hÐð]*4L 5$®"Ÿ45•$C$s445L5Ž—4L5’$!445>"G"4>"G—"ÿÿw44556 "ÿÿV6ègstr  Êgport  Êgbad-pos  Êgfrom   ·gto   ·gi  B Rg quoted-char  R ¡gnew-to  R ¡gfilenamefsxml/simple.scmŒ y ŒŒ  v ŒŒ z ŒŒ  { ŒŒ  } ŒŒ   ŒŒ "  ŒŒ & ~ ŒŒ / „ ŒŒ 2 „ "ŒŒ > „ ŒŒ ? „ ŒŒ B † 'ŒŒ B † ŒŒ E v ŒŒ R ƒ ŒŒ [ ‡ ŒŒ _ ‡ ŒŒ ` ˆ ŒŒ c ˆ ŒŒ t ˆ ŒŒ ‰ ŒŒ — Š ŒŒ ¡ Š ŒŒ ¤  ŒŒ «  -ŒŒ ³  ŒŒ ·  ŒŒ · } ŒŒ Ê | ŒŒ  Ê Ch ·] 4455OC¯g char-encoding  g bad-chars  gfilenamefsxml/simple.scmŒ o ŒŒ  p ŒŒ  p #ŒŒ  p ŒŒ  p ŒŒ   gnamegmake-char-quotatorŒCÍR4ÍiÖ5¯RC gm  ,g *good-cache* "à (gfilenamefsxml/simple.scmŒ   ŒŒ x , ŒŒ Œ @ ŒŒ "Ù V ŒŒ "Ú Ú ŒŒ "à Ú ŒŒ ( Ù ŒŒ *, õ ŒŒ +w  ŒŒ /Ñ  ŒŒ 0µ , ŒŒ 1þ 2 ŒŒ 8– 9 ŒŒ ; a ŒŒ ?Z o ŒŒ ?[ ’ ŒŒ ?a “ ŒŒ ?c ’ ŒŒ ?f ‘ ŒŒ  ?h C6