GOOF----LE-8-2.0í1]l4ho] gguile¤ ¤ gdefine-module*¤ ¤ ¤ gsxml¤ gssax¤ g input-parse¤ ¤ gfilenameS¤ fsxml/ssax/input-parse.scm¤ gimportsS¤ gice-9¤ grdelim¤  ¤ ¤ ¤ gexportsS¤ gpeek-next-char¤ gassert-curr-char¤ g skip-until¤ g skip-while¤ g next-token¤ g next-token-of¤ gread-text-line¤ g read-string¤ gfind-string-from-port?¤  ¤ gset-current-module¤ ¤ ¤ g integer->char¤ !g ascii->char¤ "g char->integer¤ #g char->ascii¤ $g char-newline¤ %g char-return¤ &g1+¤ 'ginc¤ (g1-¤ )gdec¤ *gmake-syntax-transformer¤ +*¤ ,*¤ -g define-opt¤ .gmacro¤ /g $sc-dispatch¤ 0/¤ 1/¤ 2g_¤ 3gany¤ 423Œ¤ 5g syntax->datum¤ 65¤ 75¤ 8g datum->syntax¤ 98¤ :8¤ ;greverse¤ gappend¤ ?goptionalS¤ @gsyntax-violation¤ A@¤ B@¤ Cf-source expression failed to match any pattern¤ Dgthrow¤ Eg parser-error¤ Fgcurrent-input-port¤ Gg read-char¤ Hg peek-char¤ Igmemv¤ JfWrong character ¤ Kf (0x¤ Lg eof-object?¤ Mf*eof*¤ Ngnumber->string¤ Of) ¤ Pf. ¤ Qf expected¤ Rgnumber?¤ SfUnexpected EOF while skipping ¤ Tf characters¤ Ugmemq¤ Vg*eof*¤ Wf$Unexpected EOF while skipping until ¤ Xg make-string¤ Yginput-parse:init-buffer¤ Zf¤ [g string-length¤ \g substring¤ ]fEOF while reading a token ¤ ^g string-append¤ _g string-set!¤ `gnext-token-old¤ agstring-concatenate-reverse¤ bg procedure?¤ cg*read-line-breaks*¤ dfreading a line¤ eg list->string¤ fgdelete¤ ggread-delimited¤ hgpeek¤ ig read-line¤ jgchar=?¤ kg string-ref¤C5hP(›]4    54>"G i!R"i#R $R %R&i'R(i)R4,-.147:;<=>?hpr-1345ˆ$$ˆ$&Ž"""$44ŽŒ55ŒŒŒCŒŒŒCjgbindings ngbody ng body-rest  ng rev-bindings   ng opt-bindings  > ngfilenamefsxml/ssax/input-parse.scmŒ J ŒŒ K ŒŒ  K ŒŒ  M ŒŒ  M ŒŒ  M +ŒŒ  M $ŒŒ ! M ŒŒ # N ŒŒ & N ŒŒ + M ŒŒ . O ŒŒ > K ŒŒ F P ŒŒ H Q ŒŒ I Q ŒŒ L Q ŒŒ S Q 5ŒŒ T Q $ŒŒ V Q ŒŒ Z Q ŒŒ _ Q ŒŒ d T ŒŒ n  Chm] 45L4?6egargs  gv gfilenamefsxml/ssax/input-parse.scmŒ  J ŒŒ   CBCh(k] 45$ O@6cgy  'gtmp 'gfilenamefsxml/ssax/input-parse.scmŒ J ŒŒ  ' C5-RDEh±-13@©gport gmessage grest  gfilenamefsxml/ssax/input-parse.scmŒ V ŒŒ W ŒŒ  W ŒŒ   gnameg parser-errorŒCERFGHh8–-.,3#454>"G6Žgport 1gfilenamefsxml/upstream/input-parse.scmŒ , ŒŒ  , ,ŒŒ  - ŒŒ 1 . ŒŒ 1 gnamegpeek-next-charŒCRFGIEJKLMN"OPQhhH-.,3#454545$C45$"4 4 5 5   6 @gexpected-chars ggcomment ggport  ggc  ggfilenamefsxml/upstream/input-parse.scmŒ ; ŒŒ  < .ŒŒ  = ŒŒ = ŒŒ # > ŒŒ / > ŒŒ 8 ? ŒŒ < @ ŒŒ = @ ŒŒ G @ ŒŒ I @ &ŒŒ N A ŒŒ Q A $ŒŒ [ A ŒŒ ] A ;ŒŒ a B ŒŒ e B 'ŒŒ g ? ŒŒ g  gnamegassert-curr-charŒCRFRLGEST)IUVW hȺ-.,3#4545$O"C ”$94455$4>"G"45"ÿÿ¿C"ÿÿµ"B4 5$C45$4  5$C 645"ÿÿ¾45"ÿÿ±²garg Ægport Ægi  ( kgc  w ¹gfilenamefsxml/upstream/input-parse.scmŒ Q ŒŒ  Q ,ŒŒ  S ŒŒ $ R ŒŒ ( T ŒŒ + U ŒŒ 0 T ŒŒ 1 V ŒŒ 4 V ŒŒ < V ŒŒ @ V ŒŒ A W ŒŒ G W ŒŒ K X ŒŒ P W ŒŒ ] T ŒŒ i T ŒŒ w Z ŒŒ x \ ŒŒ „ [ ŒŒ ˆ ] ŒŒ ’ [ ŒŒ “ ^ ŒŒ — ^ ŒŒ › ^ ŒŒ Ÿ ^ ŒŒ ¨ _ ŒŒ ¬ _ ŒŒ ­ ` ŒŒ ¹ ` ŒŒ ¹ Z ŒŒ º Z ŒŒ Æ Z ŒŒ" Æ gnameg skip-untilŒCRFIGHh`è-.,3#45"/45$4>"G45"ÿÿÔC45"ÿÿÄàg skip-chars Ygport Ygc   Lgfilenamefsxml/upstream/input-parse.scmŒ k ŒŒ  k 3ŒŒ  l ŒŒ  m ŒŒ * l ŒŒ + n ŒŒ = l ŒŒ I l ŒŒ M l ŒŒ Y l ŒŒ Y gnameg skip-whileŒCR4Xi 5hQ]LCIgfilenamefsxml/upstream/input-parse.scmŒ ŒŒ   COYRZFY[I\LUVE]^X_G'Hhø-.,3 ##4545H4J5HJH"©45$ J 645$ 4 5$ J 6  6J•$!4 J4 J55KJK4J5K"4J>"G4>"G4545"ÿÿW 45"ÿÿEˆgprefix-skipped-chars ög break-chars ögcomment  ögport  ögbuffer  ( ög curr-buf-len  1 ögquantum  5 ögi  ; ägc  ; ä gfilenamefsxml/upstream/input-parse.scmŒ ¡ ŒŒ  ¢ +ŒŒ  ¢ 5ŒŒ $ £ ŒŒ ( £ ŒŒ + ¤ ŒŒ 1 £ ŒŒ ; ¦ ŒŒ < ¨ ŒŒ H § ŒŒ Q ¨ ŒŒ R © ŒŒ \ § ŒŒ ] ª ŒŒ a ª ŒŒ e ª ŒŒ i ª ŒŒ r « ŒŒ x ¬ ŒŒ | ¬ ŒŒ ® ŒŒ … ® ŒŒ † ° ŒŒ ‹ ° 1ŒŒ “ ° ŒŒ • ° ŒŒ ™ ± ŒŒ š ² !ŒŒ ¢ ² ŒŒ § ³ ŒŒ ½ ´ ŒŒ Ï µ ŒŒ Ö µ ŒŒ ä µ ŒŒ ä ¦ ŒŒ æ ¦ ŒŒ ö ¦ ŒŒ& ö  gnamegnext-token-oldŒC`RZF[I\aLUVE]X_G'HYh¹-.,3 ##45"Ø45"À4 5$(  664 5$04 5$(  66  6•$4 5Œ "ÿÿq4  >"G4>"G4545 "ÿÿ@  "ÿÿ54545"ÿÿ±gprefix-skipped-chars g break-chars gcomment  gport  gbuffer  ' ÿgfilled-buffer-l  ' ÿgc  ' ÿg curr-buf-len  . ÿgi  4 ôgc 4 ô gfilenamefsxml/upstream/input-parse.scmŒ Ä ŒŒ  Å %ŒŒ  Å /ŒŒ ' Æ ŒŒ ( È ŒŒ . È ŒŒ 4 É ŒŒ 5 Ë ŒŒ A Ê ŒŒ G Ì ŒŒ P Ì (ŒŒ Z Í ŒŒ [ Î ŒŒ e Ê ŒŒ f Ï ŒŒ j Ï ŒŒ n Ï ŒŒ r Ï ŒŒ x Ð ŒŒ Ð *ŒŒ ‹ Ñ ŒŒ ‘ Ò !ŒŒ • Ò ŒŒ š Ó ŒŒ ž Ê ŒŒ Ÿ Ô ŒŒ ª Õ ŒŒ ¶ Ô ŒŒ · × ŒŒ Í Ø ŒŒ ß Ù ŒŒ æ Ù ŒŒ ô Ù ŒŒ ô É ŒŒ ÿ Æ ŒŒ  Æ ŒŒ  Æ BŒŒ  Ç ŒŒ  Æ ŒŒ(   gnameg next-tokenŒCRFY[bXH_G'\aI hhj-.,3#45454545$™"Š"•$45Œ"ÿÿß4455$54>"G4>"G4 5"ÿÿš(   6 6 "ÿÿz"ÿÿk"Œ"•$45Œ"ÿÿß454 5$54>"G4>"G4 5"ÿÿ˜(   6 6 "ÿÿx"ÿÿibgincl-list/pred hgport hgbuffer   hg curr-buf-len  ' hgbuffer  8 Âgfilled-buffer-l  8 Âgi  < »gc  e »gbuffer  Ñ ]gfilled-buffer-l  Ñ ]gi  Õ Vgc  ù V gfilenamefsxml/upstream/input-parse.scmŒ ø ŒŒ  ù +ŒŒ  ú ŒŒ  ú ŒŒ ! û ŒŒ ' ú ŒŒ * ü ŒŒ 4 ü ŒŒ 8 ý ŒŒ < þ ŒŒ A ÿ ŒŒ E ÿ ŒŒ F  ŒŒ Q  ,ŒŒ Y  ŒŒ Z  ŒŒ ]  #ŒŒ e  ŒŒ e  ŒŒ m  ŒŒ n  ŒŒ „  ŒŒ –  ŒŒ ¢  ŒŒ ¨  ŒŒ ±  *ŒŒ »  ŒŒ » þ ŒŒ  ý ŒŒ Å ý 1ŒŒ Í ý ŒŒ Ñ  ŒŒ Õ  ŒŒ Ú  ŒŒ Þ  ŒŒ ß  ŒŒ ê  ,ŒŒ ò  ŒŒ ó  ŒŒ ù  ŒŒ ü  ŒŒ   ŒŒ   ŒŒ   ŒŒ 1  ŒŒ =  ŒŒ C  ŒŒ L  ,ŒŒ V  ŒŒ V  ŒŒ ]  ŒŒ `  1ŒŒ h  ŒŒ6 h gnameg next-token-ofŒCR$i%iVcRFLHcdG% h€J-.,3#454455$64545†$(45 †$4>"G""CBgport zgline ; zgc  D zgfilenamefsxml/upstream/input-parse.scmŒ * ŒŒ  * ,ŒŒ  + ŒŒ  + ŒŒ % + ŒŒ ) + ŒŒ / + %ŒŒ 0 - ŒŒ 3 - ŒŒ 7 . ŒŒ ; - ŒŒ ; , ŒŒ > / ŒŒ D , ŒŒ K 0 ŒŒ O 0 ŒŒ P 0 'ŒŒ Y 0 !ŒŒ ] 0 ŒŒ ^ 1 ŒŒ z gnamegread-text-lineŒCRFXL\'_GZ h˜‡-.,3#45 ”$m45"P45$  6454>"G‘$C45"ÿÿ° 45"ÿÿ Cgn ‘gport ‘gbuffer  ( Žgi  . ~gc  . ~gi1  I ~gfilenamefsxml/upstream/input-parse.scmŒ < ŒŒ  < +ŒŒ  = ŒŒ ! = ŒŒ " > ŒŒ ( > ŒŒ . ? ŒŒ / @ ŒŒ 9 @ ŒŒ B @ ŒŒ C A ŒŒ I A ŒŒ L B ŒŒ f C ŒŒ j C ŒŒ p D ŒŒ ~ D ŒŒ ~ ? ŒŒ € ? ŒŒ Ž ? ŒŒ = ŒŒ ‘ gnameg read-stringŒCRZFefVLHUE]ghh°-.,3##4544554( 45" 455$4 5$C  64  54455$4 5$C  6Cgprefix-skipped-chars ªg break-chars ªgcomment  ªgport  ªgdelims  1 ªgtoken  { ªgfilenamefsxml/ssax/input-parse.scmŒ ] ŒŒ  ^ +ŒŒ  ^ 5ŒŒ $ _ ŒŒ ' _ ŒŒ + _ &ŒŒ / _ ŒŒ 1 _ ŒŒ 1 _ ŒŒ 4 ` ŒŒ < ` ŒŒ = a ŒŒ H b ŒŒ R ` ŒŒ V ` ŒŒ W c ŒŒ [ c ŒŒ _ c ŒŒ c c ŒŒ e d ŒŒ l e ŒŒ p e ŒŒ q f ŒŒ y f 1ŒŒ { f ŒŒ { f ŒŒ ~ g ŒŒ g ŒŒ ‰ g ŒŒ g ŒŒ Ž h ŒŒ ’ h ŒŒ – h ŒŒ š g ŒŒ £ i !ŒŒ § i ŒŒ% ª  gnameg next-tokenŒCRFih Š-.,3#456‚gport gfilenamefsxml/ssax/input-parse.scmŒ l ŒŒ  l ,ŒŒ  m ŒŒ  gnamegread-text-lineŒCRRHLbhp]4M5€$"MM’$K4L5M$C45$C4M5$N4M5$CCM†$CCC gt gc * ngfilenamefsxml/ssax/input-parse.scmŒ | ŒŒ  | !ŒŒ | ŒŒ | ŒŒ  } ŒŒ # | ŒŒ $ ~ !ŒŒ * ~ ŒŒ 2  ŒŒ 6 € !ŒŒ @  ŒŒ C !ŒŒ M  ŒŒ P ‚ !ŒŒ Q ƒ %ŒŒ [ ƒ !ŒŒ e „ !ŒŒ i  ŒŒ  p gnameg my-peek-charŒCGjk[hp†-13 HJ("JKHHO"G45$8K4>"GJ—K44 55$ " "ÿÿ»C"b45•$JC45$B4455$#K4>"GJ—K—"ÿÿ« "C"c˜ “$"ÿÿ<"E •$"ÿÿr44 54 –55$  — "ÿÿÈ—"ÿÿ¤  "ÿÿ´Q KK"ÿþÉ~gstr ig  ig max-no-char  ig no-chars-read   igpeeked?   igc  7 yg pos-to-match  } ßgc  “ ßgi  ã Fgmatched-substr-len  ã Fgj  è Fgk ú ?g my-peek-char  F ig no-chars-read  S egpeeked?  S egfilenamefsxml/ssax/input-parse.scmŒ t ŒŒ  w ŒŒ  w /ŒŒ  w ŒŒ  x ŒŒ 2 ‰ ŒŒ 3 Š ŒŒ 7 Š ŒŒ ? ‹ ŒŒ B † ŒŒ C † /ŒŒ W ‡ /ŒŒ Y ‡ ŒŒ Z ŒŒ _ &ŒŒ h ŒŒ l ŒŒ s Ž ŒŒ w ŒŒ } ” ŒŒ € • ŒŒ ‡ • ŒŒ ‹ • ŒŒ — ŒŒ “ — ŒŒ › ˜ ŒŒ œ ™ ŒŒ ¡ ™ (ŒŒ « ™ ŒŒ ¯ ™ ŒŒ ² † ŒŒ ³ † /ŒŒ Ç ‡ /ŒŒ É ‡ ŒŒ Ì œ 3ŒŒ Ò œ ŒŒ Ý š ŒŒ ã ¦ ŒŒ è § ŒŒ è § ŒŒ î ¨ ŒŒ ò ¨ ŒŒ ö ª ŒŒ ú « ŒŒ ÿ ¬ ŒŒ  ¬ ŒŒ  ­ ŒŒ  ® ŒŒ  ® "ŒŒ  ¯ "ŒŒ ! ¯ 2ŒŒ # ¯ "ŒŒ % ® ŒŒ ) ® ŒŒ , ° ŒŒ 2 ° ŒŒ 5 ± %ŒŒ ? ± ŒŒ ? « ŒŒ F x ŒŒ i ³ ŒŒ> i  gnamegfind-string-from-port?Œg documentationfdLooks for @var{str} in @var{}, optionally within the first @var{max-no-char} characters.ŒCRC“gm  ,gbuffer ] Ñgfilenamefsxml/ssax/input-parse.scmŒ  6 ŒŒ 3 B ŒŒ : C ŒŒ ? D ŒŒ D E ŒŒ K F ŒŒ R G ŒŒ „ V ŒŒgfilenamefsxml/upstream/input-parse.scmŒ i , ŒŒ C ; ŒŒ í Q ŒŒ S k ŒŒ T œ ŒŒ ] œ ŒŒ Ô › ŒŒ “ ¡ ŒŒ œ Ä ŒŒ  ø ŒŒ § ( :ŒŒ ª ( ŒŒ ­ ( ŒŒ  * ŒŒ â < ŒŒgfilenamefsxml/ssax/input-parse.scmŒ Ù ] ŒŒ l ŒŒ (I t ŒŒ  (K C6