← Back
Editing: transform.go
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
Save File
Cancel