[EDIT] FILE: fold.go
GOOF----LE-8-2.0�% ] - 4 h� ] g guile� � g define-module*� � � g sxml� g fold� � g filenameS� f sxml/fold.scm� g importsS� g srfi� g srfi-1� � � � g exportsS� g foldt� g foldts� g foldts*� g fold-values� g foldts*-values� g fold-layout� � g set-current-module� � � g atom?� g map� g apply� g append� g assq� !g assq-ref� "g error� #f no binding available� $g @� %g macro� &g pre� 'g reverse� (g bindings� )g pre-layout� *g post� +g *default*� ,g *text*�C 5 hp" � ]4 5 4 > " G h q ] ��C i g x g filenamef sxml/fold.scm� & �� ' �� ' �� g nameg atom?� C R h Z ]LL 6 R g kid g filenamef sxml/fold.scm� 0 �� 1 �� C h( 0 ]45$ 6 4 O 56 ( g fup ' g fhere ' g tree ' g filenamef sxml/fold.scm� ) �� . �� . �� / �� 0 �� ' 0 �� ' g nameg foldt�g documentationf jThe standard multithreaded tree fold. @var{fup} is of type [a] -> a. @var{fhere} is of type object -> a. � CR h m ]LLL 6e g kid g kseed g filenamef sxml/fold.scm� : �� ; �� C h8 j ]45$ 64 O 4 556b g fdown 8 g fup 8 g fhere 8 g seed 8 g tree 8 g filenamef sxml/fold.scm� 4 �� 7 �� 7 �� 8 �� : �� ( < �� 4 : �� 8 9 �� 8 g nameg foldts�g documentationf nThe single-threaded tree fold originally defined in SSAX. @xref{sxml ssax,,(sxml ssax)}, for more information.� CR h m ]LLL 6e g kid g kseed g filenamef sxml/fold.scm� J �� K �� C hH � ]45$ 64 > G 4 O 56 � g fdown E g fup E g fhere E g seed E g tree E g kseed " E g tree " E g filenamef sxml/fold.scm� @ �� D �� D �� E �� G �� % F �� . J �� E I �� E g nameg foldts*�g documentationf �A variant of @ref{sxml fold foldts,,foldts} that allows pre-order tree rewrites. Originally defined in Andy Wingo's 2007 paper, @emph{Applications of fold to XML transformation}.� CR h8 � - 1 3 ( E4 �> G �@ � g proc 3 g list 3 g seeds 3 g seeds # 3 g filenamef sxml/fold.scm� Q �� U �� V �� X �� X !�� " X �� & W �� / Z "�� 3 Z �� 3 g nameg fold-values�g documentationf �A variant of @ref{SRFI-1 Fold and Map, fold} that allows multi-valued seeds. Note that the order of the arguments differs from that of @code{fold}.� CR h o - 1 3 LLL @ g g tree g seeds g filenamef sxml/fold.scm� h �� i �� C h` - 1 3 45$ @4 > G 4 O > G 45@� g fdown ` g fup ` g fhere ` g tree ` g seeds ` g tree + ` g kseeds + ` g kseeds L ` g filenamef sxml/fold.scm� \ �� ` �� ` �� a �� c �� . b �� 3 g �� O e �� V m �� ` m �� ` g nameg foldts*-values�g documentationf �A variant of @ref{sxml fold foldts*,,foldts*} that allows multi-valued seeds. Originally defined in Andy Wingo's 2007 paper, @emph{Applications of fold to XML transformation}.� CR h � ] 4 5 $ �CC � g alist g key g default g t g filenamef sxml/fold.scm� o �� p �� p �� g nameg assq-ref� C!R"# h x - 1 3 6 p g args g filenamef sxml/fold.scm� � �� � �� � �� g nameg err� C h � - 1 3 LL � @ z g args g filenamef sxml/fold.scm� � �� � )�� � �� g nameg cont-with-tag� C !$%&' h � ]45D � g params g layout g old-layout g kids g filenamef sxml/fold.scm� � �� � �� � �� C() h { ]C s g tag g params g layout g filenamef sxml/fold.scm� � �� C*+ h` b ]>" �O Q $ 45" 4L �5 �( �D" � �D ���$ / ���& 4 ��� 5� �� D"���"���4 �5 $ �45 $ !4 ? "��45 $ 4 ?D4544 5 54 4 L55 "���4 L5 "��� Z g tree _ g bindings _ g pcont _ g params _ g layout _ g ret _ g new-bindings � g new-layout � g cont � g cont-with-tag � g bindings 6 � g style-params 6 � g params � � g tag-bindings � _ g t � G g t � G g filenamef sxml/fold.scm� � �� � �� � �� � �� � �� , � �� 3 � /�� 4 � :�� 6 � �� 6 � �� = � �� A � �� B � �� K � &�� N � L�� P � �� W � �� ` � -�� c � S�� e � �� e � �� h � �� j � �� n � �� q � (�� u � 5�� y � �� z � �� � &�� � � �� � � �� � � �� � � �� � � B�� � � �� � � �� � � +�� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � �� � �� � �� � �� � �� � �� � �� � �� ! � �� ) � �� * � �� 0 � �� 1 � �� 7 � $�� ; � �� = � �� G � �� K � �� Q � 1�� U � �� _ � �� I _ g nameg fdown� C' h8 � , 3 4 4 5> G �D � g tree 2 g bindings 2 g cont 2 g params 2 g layout 2 g ret 2 g kbindings 2 g kcont 2 g kparams 2 g klayout 2 g kret 2 g klayout 2 g kret 2 g filenamef sxml/fold.scm� � �� � �� � (�� � �� � �� 0 � -�� 2 � �� 2 g nameg fup� C!, h0 6 ]44L 5 > G �D. g tree 0 g bindings 0 g cont 0 g params 0 g layout 0 g ret 0 g tlayout 0 g tret 0 g filenamef sxml/fold.scm� � �� � �� � �� � �� � �� � �� � �� . � -�� 0 � �� 0 g nameg fhere� C hP � ]= O Q 4O > G � D � g tree N g bindings N g params N g layout N g stylesheet N g err N g fdown N g bindings : N g cont : N g params : N g layout : N g ret : N g filenamef sxml/fold.scm� s �� � �� 1 � 7�� 4 � C�� 9 � �� = � �� J � �� N � �� N g nameg fold-layout�g documentationf A traversal combinator in the spirit of SSAX's @ref{sxml transform pre-post-order,,pre-post-order}. @code{fold-layout} was originally presented in Andy Wingo's 2007 paper, @emph{Applications of fold to XML transformation}. @example bindings := (<binding>...) binding := (<tag> <bandler-pair>...) | (*default* . <post-handler>) | (*text* . <text-handler>) tag := <symbol> handler-pair := (pre-layout . <pre-layout-handler>) | (post . <post-handler>) | (bindings . <bindings>) | (pre . <pre-handler>) | (macro . <macro-handler>) @end example @table @var @item pre-layout-handler A function of three arguments: @table @var @item kids the kids of the current node, before traversal @item params the params of the current node @item layout the layout coming into this node @end table @var{pre-layout-handler} is expected to use this information to return a layout to pass to the kids. The default implementation returns the layout given in the arguments. @item post-handler A function of five arguments: @table @var @item tag the current tag being processed @item params the params of the current node @item layout the layout coming into the current node, before any kids were processed @item klayout the layout after processing all of the children @item kids the already-processed child nodes @end table @var{post-handler} should return two values, the layout to pass to the next node and the final tree. @item text-handler @var{text-handler} is a function of three arguments: @table @var @item text the string @item params the current params @item layout the current layout @end table @var{text-handler} should return two values, the layout to pass to the next node and the value to which the string should transform. @end table � CRC� g m , g filenamef sxml/fold.scm� �� � & �� � ) �� � 4 �� � @ �� � Q �� � \ �� � o �� "n s �� "p C6
SAVE
CANCEL