GOOF----LE-8-2.0l ] ; 4 h� ] g guile� � g define-module*� � � g sxml� g transform� � g filenameS�
f sxml/transform.scm� g exportsS� g SRV:send-reply�
g foldts� g
post-order� g pre-post-order� g
replace-range�
� g set-current-module� � � g make-syntax-transformer� � � g let*-values� g macro� g $sc-dispatch� � � g _� g any� �� g
syntax->datum� ! � " � #g
datum->syntax� $# � %# � &g begin� 'g let� (g call-with-values� )g lambda� *g syntax-violation� +* � ,* � -f -source expression failed to match any pattern� .g
procedure?� /g display� 0g assq� 1g *default*� 2g *text*� 3g
*preorder*� 4g *macro*� 5g append� 6g map� 7g error� 8f Unknown binding for � 9f and no default� :g reverse�C 5 h� � ]4
5 4 > " G 4 "%&'() hX � ]
L �L�� �$ 1 �( � C C C � g vars
W g initializer W g cont W g filenamef sxml/transform.scm�
V �� X �� Y ��
Y �� X �� W �� [ �� Z �� ] �� Z �� ^
�� ^ �� % ^
�� 0 ` �� G \
�� W C h( � - 1 3 ( �C O �@ � g bindings
# g body # g filenamef sxml/transform.scm�
S
�� T �� T �� T �� ! b �� # U �� #
C h f ] 4 5 L 4?6^ g args
g v g filenamef sxml/transform.scm� S
�� C,- h( d ] 4 5 $ O @ 6 \ g y
' g tmp ' g filenamef sxml/transform.scm�
S
�� ' C5R./ h� � ] ( C �$ � �(
� "��� �& � "��� ��$ �4L �5 "���4 �5$ 4 �> " G � "���4 �> " G � "��c � "��V � g fragments
� g result � g filenamef sxml/transform.scm�
n �� o �� q �� o �� r �� o �� r %�� & r �� * s �� . o �� 1 s &�� : s �� = t �� > t �� B o �� E u �� F u �� K u $�� O u �� W u �� X v �� ] v �� _ v �� c o �� d w �� g w �� l w �� w x �� � x �� � z �� � z �� � z �� � { �� � { �� � q #�� � q �� % � g nameg loop� C h � - 1 3 O Q 6 � g fragments
g loop g filenamef sxml/transform.scm�
d
�� n ��
g nameg SRV:send-reply�g
documentationf
Output the @var{fragments} to the current output port.
The fragments are a list of strings, characters, numbers, thunks,
@code{#f}, @code{#t} -- and other fragments. The function traverses the
tree depth-first, writes out strings and characters, executes thunks,
and ignores @code{#f} and @code{'()}. The function returns @code{#t} if
anything was written at all; otherwise the result is @code{#f} If
@code{#t} occurs among the fragments, it is not written out but causes
the result of @code{SRV:send-reply} to be @code{#t}.� C R012.034567892 h� � ] ( C �$ � ��$ � � 4L 5 $ " L $ _��$ F��& �� @��& 4�� ? "�����4 �4��L 55@�4L �5@ 6L 6L$ L
6
6 � g tree
� g trigger � g t ' : g binding : � g filenamef sxml/transform.scm�
� �� � �� � ��
� �� � �� � �� � �� � �� � �� �
�� � �� ' � �� : �
�� B � �� E � �� F � �� J � �� L � �� O � �� T � �� W � �� \ � �� ^ � �� a � �� f � �� g � �� j � �� o � �� u � �� x � �� | � �� � � "�� � � -�� � � 5�� � � -�� � � �� � � �� � � �� � � -�� � � 7�� � � -�� � � �� � � �� � � 6�� � � �� � � $�� � � �� � � �� � � �� � � �� � � �� � � 4�� � � �� 6 � g nameg loop� C hp � ]"45 45 $ " $ 4�5$ �" ��" O Q 6 � g tree
k g bindings k g default-binding k g t ) g text-binding ) k g text-handler M k g loop Z k g filenamef sxml/transform.scm�
�
�� � �� � �� � �� � �� � �� � !�� � �� � �� ) � �� 1 � �� 2 � �� 7 � �� 9 � �� = �
�� @ � �� G � $�� M � �� Z � �� k g nameg pre-post-order� CRiR
h` l ]( C�$ C" +(
64 �5� "���4 5� "���6 d g fdown
] g fup ] g fhere ] g seed ] g tree ] g kid-seed A g kids A g filenamef sxml/transform.scm�
�
�� � �� � �� � �� � �� � �� & �
�� ' � �� 4 � 1�� 6 � �� 9 � �� A �
�� A � �� B � �� M � 2�� U � �� ] � �� ] g nameg foldts� C
R:5 hP � ]+ ( 45D � $ �4L 5 $ �4455 "����$ K�� 4L$ �" > G �$
��" � "��g �� "��S4L5 $ 4 �5 "��-�$ c�� 4L$ �" > G �$ " �$ $
��" �" "��� � "���~ g forest
P g keep? P g
new-forest P g node P g t % � g node? T � g new-kids p � g keep? p � g t � P g node? � ? g new-kids � ? g keep? � ? g filenamef sxml/transform.scm�
� �� � �� � �� � �� � �� � �� �
�� �� % �� 0 �� 2 �� 5 �� ? �� I �� L �� P �� S $�� T �� T �� W �� _ �� b #�� j 7�� o �� z �� � �� � (�� � "�� �
�� � �� � �� � )�� � �� � �� � �� � �� � .�� � �� � �� � �� � �� � $�� � �� � �� � �� � �� � #�� � 7�� � �� �� �� %�� �� �� # ,�� & &�� / �� ? �� B �� P �� = P g nameg loop� C h0 ]O Q 4> G C � g beg-pred
, g end-pred , g forest , g loop , g
new-forest " , g keep? " , g filenamef sxml/transform.scm�
�
�� % $�� % 4�� ! % $�� % % �� , g nameg
replace-range� CRC z g m
( g filenamef sxml/transform.scm� H
�� � d
�� � �
�� � �
�� � �
�� � �
�� �
C6