GOOF----LE-8-2.0j ]� 4 h$c ] g guile� � g define-module*� � � g sxml� g ssax� � g filenameS�
f
sxml/ssax.scm� g importsS� g input-parse�
�
� g srfi� g srfi-1� � � g srfi-13� � � � g exportsS� g current-ssax-error-port� g with-ssax-error-to-port� g
xml-token?� g xml-token-kind� g xml-token-head� g make-empty-attlist� g attlist-add� g
attlist-null?� g attlist-remove-top� !g attlist->alist� "g attlist-fold� #g define-parsed-entity!� $g reset-parsed-entity-definitions!� %g ssax:uri-string->symbol� &g ssax:skip-internal-dtd� 'g ssax:read-pi-body-as-string� (g ssax:reverse-collect-str-drop-ws� )g ssax:read-markup-token� *g ssax:read-cdata-body� +g ssax:read-char-ref� ,g ssax:read-attributes� -g ssax:complete-start-tag� .g ssax:read-external-id� /g ssax:read-char-data� 0g ssax:xml->sxml� 1g ssax:make-parser� 2g ssax:make-pi-parser� 3g ssax:make-elem-parser� 4 !"#$%&'()*+,-./0123 � 5g set-current-module� 65 � 75 � 8g throw� 9g parser-error� :g
integer->char� ;g ascii->char� <g
char->integer� =g char->ascii� >g make-parameter� ?g current-error-port� @g parameter-fluid� Ag *current-ssax-error-port*� Bg
parameter?� CB � DB � Eg scm-error� Fg wrong-type-arg� Gf parameterize� Hf Not a parameter: ~S� Ig with-output-to-port� Jg display� Kf ;;; SSAX warning: � Lg for-each� Mg newline� Ng ssax:warn� Og string� Pg ucscode->string� Qg char-newline� Rg char-return� Sg char-tab� Tf
� Ug nl� Vg amp� Wf &� XVW�� Yg lt� Zf <� [YZ�� \g gt� ]f >� ^\]�� _g apos� `f '� a_`�� bg quot� cf "� dbc�� eX[^ad � fg ssax:predefined-parsed-entities� gg make-syntax-transformer� hg � ig � jg begin0� kg macro� lg $sc-dispatch� ml � nl � og any� pg each-any� qop�� roq�� sg
syntax-object� tg let� ug top� vu � wg ribcage� xg dummy� yg form� zg form1� {xyz � |g m-b6cceb-18� }|u � ~}vv � f l-b6cceb-1d� �f l-b6cceb-1e� �f l-b6cceb-1f� ��� � �w{~� � �w � �g x� �� � �} � �f l-b6cceb-1a� �� � �w��� � �v��� � �g hygiene� �� � �st�� � �g val� �s��� � �g append� �� � �� � �� � �g syntax-violation� �� � �� � �f -source expression failed to match any pattern� �g let*-values� �o�� �o��� �g begin� �g bodies� �x� � �g m-b6cceb-24� ��u � ��v � �f l-b6cceb-29� �f l-b6cceb-2a� ��� � �w��� � �� � �f l-b6cceb-26� �� � �w��� � �v��� � �s��� � �o � ��o � ��o�� ��o�� �o��� �g var� �g initializer� �g rest� �x���� � ��vvvv � �f l-b6cceb-2e� �f l-b6cceb-2f� �f l-b6cceb-30� �f l-b6cceb-31� �f l-b6cceb-32� ������ � �w��� � �v��� � �st�� � �s��� � �oo � ��o�� ��o�� �o� �g call-with-values� �g vars� �x���� � �f l-b6cceb-39� �f l-b6cceb-3a� �f l-b6cceb-3b� �f l-b6cceb-3c� �f l-b6cceb-3d� ������ � �w��� � �v��� � �s��� � �g lambda� �s��� � �s��� � �g 1+� �g inc� �g 1-� �g dec� �g include-from-path/filtered� �g with-input-from-file� �g %search-load-path� �g eof-object?� �g reverse� �g read� �g memq� �g _� ��oo � �g
datum->syntax� �g
syntax->datum� �g exp� �� � �v � �f l-b6cceb-5d� �� � �w��� � �g accept-list� �g file� ��� � �vv � �f l-b6cceb-56� �f l-b6cceb-57� ��� � �w��� � �g
read-filtered� �� � �v � �f l-b6cceb-45� �� � �w��� � �f l-b6cceb-44� �� � �w��� � �v����� � �s��� � �g assert� �g atom� �f doit� ��� � �o�pp � g cond�g expr�g r-exp�x �g m-b6cceb-62�u �vv �f l-b6cceb-67�f l-b6cceb-68� f l-b6cceb-69�
�w
� �
f l-b6cceb-64�
�w� �v� �s � �g and�s� �g =>�s� �s�� �s�� � � � �g else�s� �g error�s� �f assertion failure: ~a� s� �!g list�"s!� �#g quote�$s#� �%f collect�&�% �'o&p �(x �)v �*f l-b6cceb-71�+f l-b6cceb-72�,*+ �-w(), �.v-� �/s�.� �0s�.� �1 �2g free-id�3g report:�4v� �5s34� �625 �76p��8p7��9&8��:o9��;f l-b6cceb-77�<f l-b6cceb-78�=f l-b6cceb-79�>;<= �?w> �@v?� �As�@� �Bs�@� �Cpq��D&C��EoD��Fg expr1�Gg stuff�HxFG �Ivvv �Jf l-b6cceb-80�Kf l-b6cceb-81�Lf l-b6cceb-82�Mf l-b6cceb-83�NJKLM �OwHIN �PvO� �Qs�P� �Rs%P� �SxG �Tf l-b6cceb-8b�Uf l-b6cceb-8c�VTU �WwS)V �XvW� �Ys�X� �Zs%X� �[g assure�\ooo �]g error-msg�^x�] �_g m-b6cceb-90�`_u �a`vv �bf l-b6cceb-95�cf l-b6cceb-96�df l-b6cceb-97�ebcd �fw^ae �g` �hf l-b6cceb-92�ih �jw�gi �kvf�j �ls�k� �ms3k� �ng run-test�of scan-exp�p�o �qg define�rg m-b6cceb-9c�sru �ts �uf l-b6cceb-9e�vu �ww�tv �xv�w �ysqx� �z2y �{zoo �|op{ �}g body�~x�} �svv ��f l-b6cceb-a1��f l-b6cceb-a2��f l-b6cceb-a3����� ��w~� ��v��w ��sq�� ��sn�� ��so�� ��opo ��g
letrec-syntax��g ?body��x� ��sv ��f l-b6cceb-a8��f l-b6cceb-a9���� ��w��� ��v��w ��s��� ��g scan-exp��s��� ��g syntax-rules��s��� ��s#�� ��g
quasiquote��s��� ��g !��s��� ����� ��� ��g k-head��s��� ��g args��s��� ��������������� �������������� ��g hd��s��� ��g tl��s��� ��������� ��g k��s��� ����� ��g scan-lit-lst��s��� ��g do-wrap��s��� ������ ����� ���� ���� ����� ���� ��s��� ���� ����� ��g if��s��� ��g string?��s��� ���� ��g string->symbol��s��� ���� ������ ��������Ȍ���� ����� ��g do-tl��s��� ������� ����� ���� ����� ��������Ҍ���� ���������� ���� ��� ��g processed-hd��s��� ��g fn��s��� ������ ��� ��������ތ���� ��g old-tl��s��� ������� ��g do-cons��s��� ������ ����� ���� ������ ���� ��g processed-tl��s��� ������ ���쌤���������� ����� ���� ��s��� ������ ���� �������������� ����� ���� ��g do-finish��s��� ��g new-body��s��� � �� � � �� �� �g unquote�s�� �g unquote-splicing�s�� ��� � ��� �
� ���� �� �
���� �
�� ��� ���� ��� � �� ��� ���� ��� � ���� �� ������� ���� ������ � �� �! �"��� �#"� �$�
!# �%�$ �&����% �'�� �(' �)x} �*f l-b6cceb-ad�+f l-b6cceb-ae�,*+ �-w)�, �.v-�w �/s�.� �0g map�10 �20 �3sn.� �4so.� �5g make-xml-token�6g pair?�7g car�8g token�9x8 �:g m-b6cceb-b2�;:u �<;v �=f l-b6cceb-b7�>f l-b6cceb-b8�?=> �@w9<? �A; �Bf l-b6cceb-b4�CB �Dw�AC �Ev@�D �Fs7E� �Gg cdr�Hg m-b6cceb-bb�IHu �JIv �Kf l-b6cceb-c0�Lf l-b6cceb-c1�MKL �Nw9JM �OI �Pf l-b6cceb-bd�QP �Rw�OQ �SvN�R �TsGS� �Ug
string-length�Vg char-whitespace?�Wg
string-ref�Xg string-whitespace?�Yg assq-values�Zg
fold-right�[g fold�\
�]g ssax:S-chars�^g
skip-while�_g ssax:skip-S�`g char?�ag char-alphabetic?�bg char=?�cg ssax:ncname-starting-char?�dg peek-char�ef XMLNS [4] for '�fg
next-token-of�gg string-index�hf
0123456789.-_�ig ssax:read-NCName�jg read-char�kg ssax:read-QName�lf xml�mg ssax:Prefix-XML�ng =�og string<?�pg symbol->string�qg <�rg >�sg ssax:largest-unres-name�tg name-compare�uf #LARGEST-SYMBOL�vg assert-curr-char�w< �xf start of the token�yg END�z> �{f XML [42]�|g PI�}g peek-next-char�~- �f XML [15], second dash��g find-string-from-port?��f -->��f XML [15], no -->��g COMMENT��g string=?��f CDATA[��g read-string��g port��� � ����� ��� ��g CDSECT��g DECL��g START��f ?>��f $Failed to find ?> terminating the PI��g ssax:skip-pi��g string-concatenate/shared��g
next-token��? ��f reading PI content��f ?��f ]>��f 5Failed to find ]> terminating the internal DTD subset��f
reading CDATA��f ]��f ��f ]]��g string-null?��f gt��; ��f XML [66]��g string->number��g integer?��f [wf-Legalchar] broken for '��f amp��f lt��f apos��f quot��g assq��g call-with-input-string��g
procedure?��g close-input-port��f [norecursion] broken for ��g *DEFAULT*��f [wf-entdeclared] broken for ��g ssax:handle-parsed-entity��g null?��<& ��f XML [10]��f ��g memv��f XML [68]��g *eof*��f [CleanAttrVals] broken��= ��f XML [25]��'" ��g !string-concatenate-reverse/shared��f [uniqattspec] broken for ��f [nsc-NSDeclared] broken; prefix ��g ssax:resolve-name��f xmlns��f [dt-NSName] broken for ��>/ ��f XML [40], XML [44], no '>'��f XML [44], no '>'��g assoc��g EMPTY-TAG��f #[elementvalid] broken, no decl for ��g ANY��g apply��g values��g REQUIRED��f [RequiredAttr] broken for��f [ValueType] broken for ��g FIXED��f [FixedAttr] broken for ��g CDATA��g member��f [enum] broken for ��f =��f declared content type ��f not verified yet��f ,[uniqattspec] after NS expansion broken for ��f space after SYSTEM or PUBLIC��f XML [11], XML [12]��f SYSTEM��f XML [11]��f PUBLIC��g
skip-until��f space after PubidLiteral��f
XML [75], ��f rather than SYSTEM or PUBLIC��f #XML [22], unexpected token of kind ��f XML [22], char '��f ' unexpected��g ssax:scan-Misc��f reading char data��g
ENTITY-REF��g ssax:assert-token��g
orig-handlers��x� ��g m-b6cceb-c4���u ���v ��f l-b6cceb-c9��f l-b6cceb-ca���� ��w��� ��� ��f l-b6cceb-c6��� ��w��� ��v��� ��s��� ��g loop��s��� ��s��� ��s��� ��� ��s�� ��g accum��s��� ��s��� ��g target��s��� ��g seed� s��� ������ �g make-case�s�� �s�� �sN�� �f
Skipping PI: �s�� �sU�� � �� �
s��� �
� � �
���
� � �g default�s�� ����� ��� � ����� � ����g handlers�s�� ���g old-def�s�� ����� ����� � �!g tag�"s!�� �#g handler�$s#�� �%"$��&%��'�&��� �(" �)$�� �*() �+*���,�+�� �-', �.�� - �/�. �0g clauses�1s0�� �21� �3g case�4s3�� �5�1��645��726 �8g clause�9s8�� �:91��;:�� �<9���=1<� �>;= �?�7> �@? �A/@ �Bs��� �C�� �D��� �Eooooo �Fg my-new-level-seed�Gg my-finish-element�Hg my-char-data-handler�Ig my-pi-handlers�JxFGHI �Kg m-b6cceb-cd�LKu �MLvvvv �Nf l-b6cceb-d2�Of l-b6cceb-d3�Pf l-b6cceb-d4�Qf l-b6cceb-d5�Rf l-b6cceb-d6�SNOPQR �TwJMS �UL �Vf l-b6cceb-cf�WV �Xw�UW �YvT�X �Zs�Y� �[g start-tag-head�\s[Y� �]s�Y� �^g elems�_s^Y� �`g entities�as`Y� �bg
namespaces�csbY� �dg preserve-ws?�esdY� �fs�Y� �g\]_acef �hsqY� �ig xml-space-gi�jsiY� �kg cons�lskY� �msmY� �ns�Y� �of space�psoY� �qnp �rlmq �shjr �tstY� �ug handle-start-tag�vsuY� �w\\ �x]] �yaa �zcc �{ee �|g parent-seed�}s|Y� �~}f �wxyz{~ ��s�Y� ��g elem-gi��s�Y� ��g
attributes��s�Y� ��g expected-content��s�Y� ����c� ��s-Y� ���\]_ac ���� ��f ����c�} ��s3Y� ��s�Y� ��� ����c}f ��g EMPTY��s�Y� ��� ��s�Y� ��sY� ��g eqv?��s�Y� ��s<Y� ��s_Y� ���] ����� ��s)Y� ���] ����� ��s#Y� ��syY� ���� ��s8Y� ��g exp-kind��s�Y� ��g exp-head��s�Y� ����� ��s9Y� ��f [elementvalid] broken for ��s�Y� ��f while expecting ��s�Y� ���]����� ��Z�� �����\� ��sY� ��s Y� ��s�Y� ���j� ��sY� ��g
name-value��s�Y� ��� ��g equal?��s�Y� ��f preserve��s�Y� ��sGY� ���� ����� ��Z�� ����� ���e ����� ��e� ��� ��s�Y� ��g expect-eof?��s�Y� ��sY� ���� ��ff ��xy�� ��g
term-token��s�Y� ��f� ��s/Y� ��s�Y� ��s�Y� ���� ��sY� ���� ��� ��f [GIMatch] broken for ��s�Y� ���]����� ��Z�� �����\� ��s|Y� ��� ��s2Y� ��sY� ���� ��]�f ���]a�f ��� ��s�Y� ��� ��s�Y� ��]af ��sY� ���]a�f ��Z�� ��s�Y� ��� ��g eq?��s�Y� ��g PCDATA��s�Y� ���� ����� ��f * with char content only; unexpected token ��s�Y� ���]���� ����� ��v�]acef ��f� ��� ��t�� ����� ��f XML [43] broken for ��s�Y� ���]�� ���� ���� � g ssax:make-parser/positional-args�oooooooo �g *handler-DOCTYPE�g *handler-UNDECL-ROOT�g *handler-DECL-ROOT�g *handler-NEW-LEVEL-SEED�g *handler-FINISH-ELEMENT�g *handler-CHAR-DATA-HANDLER�g *handler-PI� x �
g m-b6cceb-dc�
u �vvvvvvv �
f l-b6cceb-e1�f l-b6cceb-e2�f l-b6cceb-e3�f l-b6cceb-e4�f l-b6cceb-e5�f l-b6cceb-e6�f l-b6cceb-e7�f l-b6cceb-e8�
�w � �f l-b6cceb-de� �w� �v� �s�� �s�� �s�� � � sq� �!g handle-decl�"s!� �#g
token-head�$s#� �%"$ �&g or�'s&� �(s�� �)s�� �*f DOCTYPE�+s*� �,)+ �-(,$ �.s9� �/f .XML [22], expected DOCTYPE declaration, found �0s/� �1.0$ �2'-1 �3sv� �4s]� �5f XML [28], space after DOCTYPE�6s5� �7346 �8s_� �98 �:s�� �;g docname�<s;� �=< �>sk� �?> �@=? �Ag systemid�BsA� �CB �Ds� �Esc� �FE9 �Gs.� �HG �IDFH �JCI �Kg internal-subset?�LsK� �ML �Ns�� �Os�� �Ps[� �Qs#� �Rs>� �SRP �TQS �Uf XML [28], end-of-DOCTYPE�VsU� �W3TV �XOPW �YN9X �ZMY �[s^� �\s`� �]sb� �^[\] �_<BL �`g #scan-for-significant-prolog-token-2�as`� �ba[\] �cb �dg #scan-for-significant-prolog-token-1�esd� �fe �gst� �hs8� �is�� �ji �khj �lk �ms�� �ns�� �onh �pf XML [22], unexpected EOF�qsp� �r.q �ss3� �ts� �uth �vs|� �wv �xs2� �ys� �zyh �{z �|f �}s�� �~} �"z ��~ ��s�� ��� ��z ��g element-parser��s�� ��s� ���z[\]� ��� ��s� ��f XML [22], unexpected markup ��s�� ��.�h ���� ��� ��s3� ��g ssax:define-labeled-arg-macro��g each��oo����� ��o����oo� ��g
define-syntax��g labeled-arg-macro-name��g positional-macro-name��g arg-name��g arg-def��x���� ��g m-b6cceb-f1���u ���vvvv ��f l-b6cceb-f6��f l-b6cceb-f7��f l-b6cceb-f8��f l-b6cceb-f9��f l-b6cceb-fa������� ��w��� ��� ��f l-b6cceb-f3��� ��w��� ��v��� ��s��� ��s��� ��g kw-val-pairs��s��� ��s��� ��g find��s��� ��g k-args��s��� ��s�� ��s��� ��g others��s��� �������g next��s��� ������������� ��g key��s��� ��g arg-no-match-name��s��� �����������Ì���Č��������ƌ���nj���� ��� ��������ˌ��� ��g vals��s��� ��g keys��s��� ���ь���Ҍ���ӌ���Ԍ���ό���ь��������،���ٌ���� ����� ��g rev-apply��s��� ��� ����� ���� ����� ���� ��sy�� ��s��� ��g xs��s��� ���猤���� ���䌤���� ���� ���� ���� ����� ���� ���� ��g m-b6cceb-105���u ��x� ��g m-b6cceb-106���u ���� ��f l-b6cceb-10b��f l-b6cceb-10c���� ��w��� ��� ��f l-b6cceb-108��� ��w��� � g shift����� ��� �s�� �s�� �s�� �g DOCTYPE�v��� �s� �g UNDECL-ROOT� s� �
g DECL-ROOT�s
� �g NEW-LEVEL-SEED�
s� �g FINISH-ELEMENT�s� �g CHAR-DATA-HANDLER�s� �s|� �
�s�� �s� ���s�� �s�� �����������s�� ��� ��! �" ��# ��$"#��%$��&%��'& �(��)��*()��+*��,+��-, �.
��/
��0./��10��21��32 �4��5��645��76��87��98 �:��;��<:;��=<��>=��?> �@��A��B@A��CB��DC��ED �Fs�� �Gs�� �HG��IFH��JI��KJ��LF��ML��NM��OKN �P �QP �R��SR��TQS �U �VU �WVS �X �YX �ZYS �[
�\[ �]\S �^ �_^ �`_S �a �ba �cbS �d �ed �feS �g!'-39?EOTWZ]`cf �hg �is�� �js�� �kFj��lik��ml��nm��oi��poj��qi �rs�� �s �trsi �uqt �vu �wsy� �xs�� �ys�� �zxy��{rwz �|xw��}r|y �~{} �rw ��w ��~� ��r� ��� ��s � ��s�� ��s�� ��s;� ��sA� ��sK� ��s�� ������� ��g when��s�� ��sN� ��f -Internal DTD subset is not currently handled ��s�� ����� ��s&� ���� ������ ��f
DOCTYPE DECL ��s�� ��s�� ��f found and skipped��s�� ��������� ��s�� ��s� ��s#� ��� ������� ������� ��� ��s�� ���� ����� �� � ����� ��� ��
�� �� �� ����������
��� ��g ssax:reverse-collect-str��g *PI*��>[ ��g
string-append��f :��g @��g *TOP*��g *NAMESPACES*��g SSAX:XML->SXML�C 5 hТ � ]4
45 47 > "