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