Warning: file_get_contents(https://raw.githubusercontent.com/Den1xxx/Filemanager/master/languages/ru.json): failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found
in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 88
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 215
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 216
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 217
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 218
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 219
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 220
PK ! 4ӱP P simple.gonu [ GOOF----LE-8-2.0P ] 4 hI ] g guile g define-module* g sxml g simple g filenameS
f sxml/simple.scm g importsS g ssax
g input-parse
g transform g ice-9 g match g srfi g srfi-13 g exportsS g xml->sxml g sxml->xml !g sxml->string " ! #g set-current-module $# %# &g string-concatenate/shared 'g string? (g ssax:reverse-collect-str )g
next-token *] +f reading internal DOCTYPE ,g peek-next-char -g read-char .f ] /g read-internal-doctype-as-string 0g
namespacesS 10 2g declare-namespaces?S 32 4g trim-whitespace?S 54 6g entitiesS 76 8g default-entity-handlerS 98 :g doctype-handlerS ;: <13579; =g current-input-port >g map ?g ssax:uri-string->symbol @g error A@ B@ Cf no matching pattern Dg
symbol-append Eg string->symbol Ff : Gg ssax:scan-Misc HG IG Jg eof-object? KJ LJ Mg parser-error NM OM Pf XML [22], unexpected EOF Qg PI Rg *PI* Sg ssax:read-pi-body-as-string Tg DECL UE VE Wf DOCTYPE Xf .XML [22], expected DOCTYPE declaration, found Yg assert-curr-char ZY [Y \g ssax:S-chars ]\ ^\ _f XML [28], space after DOCTYPE `g ssax:skip-S a` b` cg ssax:read-QName dc ec fg ssax:ncname-starting-char? gf hf ig ssax:read-external-id ji ki l>[ mf XML [28], end-of-DOCTYPE ng call-with-values og ssax:skip-internal-dtd p6
qp1 rg append sg assq tg *DEFAULT* ug START vf XML [22], unexpected markup wg ssax:Prefix-XML xw yw zf space {g ssax:complete-start-tag |{ }{ ~g EMPTY-TAG g ssax:reverse-collect-str-drop-ws g attlist-fold g @ g EMPTY g ssax:assert-token g ssax:read-markup-token g END f [elementvalid] broken for f while expecting g assoc f preserve g ssax:read-char-data g string-null? f [GIMatch] broken for g
ENTITY-REF g ssax:handle-parsed-entity g PCDATA f * with char content only; unexpected token f XML [43] broken for g open-input-string g reverse g *TOP* g make-hash-table g hashq-ref g symbol->string g string-index g substring f "Invalid QName: more than one colon g for-each g char-alphabetic? g
string-ref f Invalid name starting character g string-for-each f
0123456789.-_ f Invalid name character g
hashq-set! g
check-name g attribute-value->xml g string->escaped-xml g
procedure? g with-output-to-port g call-with-output-string g display f =" g attribute->xml f
bad attribute f bad attributes f f bad element body f /> g element->xml g entity->xml f g pi->xml g current-output-port g *ENTITY* f bad *ENTITY* args g length f
bad *PI* args g string-concatenate-reverse g foldts g append! g list->char-set g car g
string-length g assv g make-char-quotator f < <Ό f > >Ќ f & &Ҍ f " "Ԍ C 5 hh? ]4
"5 4% > " G &' h ] ( C ( C" c( ( C45C45$ "( "
45 " " g fragments
g fragments { g result { g strs { g filenamef sxml/simple.scm
,
- .
/ - 1 2 $ 4 ( 5 1 5 3 6 8 6 : 6 > 2 A 7 F 7 / I 7 ) S 7 V 9 Y ; _ < f = o = p : q > { 9 { 1 ~ 1 / 1 : 1 g nameg ssax:reverse-collect-str C(R&)*+,-. hH ]4L5 >4L5$ 4L> " G C 4L 5 C g fragment
B g filenamef sxml/simple.scm
B D
D D
D $ D
C E E E G 5 H : I ; I @ I B
g nameg loop C h ] O Q 45 6 g port
g loop
g filenamef sxml/simple.scm
@
B A g nameg read-internal-doctype-as-string C/R<=>?BC h@ ] $ # L $ " 45C4 56 g el
9 g w , g x , g filenamef sxml/simple.scm
l m o # q * o - m 9 C h ]L O 6 x g
namespaces
g filenamef sxml/simple.scm
k l g nameg munge-namespaces CDEF h( ] $ 456 C g name
% g w " g x " g filenamef sxml/simple.scm
} ~ - " % g nameg
name->sxml CILOPQRSTVWX[^_behklmn/o h@ C ] L$ LL LL$ 4L5" 6L$ 4L> " G " D ; g filenamef sxml/simple.scm
@
Cqrst hp - / 0 3 # # 4 L$ 4L5$ L" LL" L544L54LL55L D g entities
k g
namespaces k g filenamef sxml/simple.scm
# / ' 1 x 2 y 6 y : y > x F z I z T U X _ u g k k
g entitiesS
g
namespacesS Cu h C ] L $ L 6D ; g filenamef sxml/simple.scm
Cqrst hp - / 0 3 # # 4 L$ 4L5$ L" LL" L544L54LL55L D g entities
k g
namespaces k g filenamef sxml/simple.scm
# / ' 1 x 2 y 6 y : y > x F z I z T U X _ u g k k
g entitiesS
g
namespacesS CvILOPQRSuv
h + ] 4 5 45$ 6 $ 3 4 5 "$ L 6 6# g port
g elems g entities g
namespaces g seed g token g key ! g target / E g seed E _ g filenamef sxml/simple.scm
g nameg #scan-for-significant-prolog-token-2 CyVz}~( h i ]4L 5 C a g attr
g accum g filenamef sxml/simple.scm
CbO h ]L 6 { g token
g exp-kind g exp-head g filenamef sxml/simple.scm
C h i ]4L 5 C a g attr
g accum g filenamef sxml/simple.scm
C h ]45$ C C x g string1
g string2 g seed g filenamef sxml/simple.scm
CLO h ]LL 6 { g token
g exp-kind g exp-head g filenamef sxml/simple.scm
C( h i ]4L 5 C a g attr
g accum g filenamef sxml/simple.scm
CQRS h ~ ]L 6 v g port
g entities
g seed
g filenamef sxml/simple.scm
C h ]45$ C C x g string1
g string2 g seed g filenamef sxml/simple.scm
CuO hp d ],4 > G 45$ C $ j4L O > " G L$ 45" 454
L
O L5 4L
L 5( " LC $ /
4 5 "*$ -4 L O 5 "$ NL& 4 L > " G " 4L LL5 " 6 \ g port
o g entities o g expect-eof? o g seed o g seed o g
term-token o g key + o g seed | g attrs | g target g seed g seed g seed O e
g filenamef sxml/simple.scm
o g nameg loop C hP ]64 L> G $ IL $
45" 454LO 5
4L5 (
"
C $ ~4 <4
5$ 4 5"
O > " G L $
45" 454LO 5
4L5 (
"
C4M5
$
"
O
L L LQ 6 g start-tag-head
P g port P g entities P g
namespaces P g preserve-ws? P g parent-seed P g elem-gi P g
attributes P g
namespaces P g expected-content P g seed
N r g attrs N r g seed
g attrs g t
g preserve-ws?
P g loop - P g filenamef sxml/simple.scm
P g nameg handle-start-tag C h@ 2 ]H45KO L LQ 6 * g start-tag-head
: g port : g elems : g entities : g
namespaces : g preserve-ws? : g seed : g xml-space-gi : g handle-start-tag : g filenamef sxml/simple.scm
: g nameg element-parser C h o ]r" 45 45$ 6 $ ' 45 "$ 4
5 $ " 4 > " G 4
> " G 4> " G 45 4455$ 45"
4> " G [4 5 4
LO LLLLO > G
6$ @4LO LLLLO > G
66 O O Q LL Q "B g g port
g seed g port g seed g token
g key % g target 3 I g seed I W g
token-head c E g t o g docname E g systemid
E g internal-subset? E g elems , E g entities
, E g
namespaces , E g seed , E g elems q g entities q g
namespaces
q g seed q g #scan-for-significant-prolog-token-2 g element-parser g filenamef sxml/simple.scm
g nameg parser C'
h V - / 0 3 # 45 # # # # # # O O Q Q 4 5$ 4 5"
44
55 C N g string-or-port
g
namespaces g declare-namespaces? g trim-whitespace? g entities g default-entity-handler g doctype-handler g munge-namespaces p g
name->sxml p g parser p g port
g elements g filenamef sxml/simple.scm
V
V / ' W B Z )
g
namespacesS g declare-namespaces?S g trim-whitespace?S g entitiesS g default-entity-handlerS g doctype-handlerS g nameg xml->sxmlg
documentationf Use SSAX to parse an XML document into SXML. Takes one optional
argument, @var{string-or-port}, which defaults to the current input
port. C R4i5 @@@ h8 ] 4 5 $ C4 5 $ C LL 6 g c
4 g t 4 g t 4 g filenamef sxml/simple.scm
0 > 0 , " 4
4 C hh ] $ X44
55 $ " &4
5_ $ " 4 L 5 $ L O 6CC g s
b g t K g t - H g filenamef sxml/simple.scm
* # - - ; ? E O ^ b C
h ]!4L 5$ C4 5 4:5 $ 4
5" $ " $ 45" $ 1445:5$ 4 > " G " " 4 O > " G L 6 g name
g str g i # g t : M g head M g tail d g filenamef sxml/simple.scm
#
+ , " : M
U V ] - _ d
l m p ! w 0 y ! }
C O R' h _ ]L 6 W g port
g filenamef sxml/simple.scm
-
C hh ] $ 4 > " G 6 ( C4 5$ 64 5$ 64 O 56 g value
g g port g g filenamef sxml/simple.scm
# ' - 0 : B C M U X g g g nameg attribute-value->xml CR hX ]4 > " G 4 > " G 4> " G 4> " G "6 g attr
X g value X g port X g filenamef sxml/simple.scm
) - 4 = X
X g nameg attribute->xml CR@ hp ]4 > " G 4<> " G 4 > " G $ " $ ^ 4 > " G $ 4> " G " 4 > " G " ( " "4 > " G " "o" $ 4>> " G " e$ 4> " G "( 04> " G 4 > " G 6
6 " 6 g tag
o g attrs o g body o g port o g attrs F g attr P g body _ g filenamef sxml/simple.scm
) B F I M P P S i m n s " v - }
! ! ! " " %
& $ * $ 1 $ : % Q & U & Y ( _ ( _ k ) o ) 3 o g nameg element->xml CR h8 ]4&> " G 4 > " G ;6 g name
2 g port 2 g filenamef sxml/simple.scm
,
- . 2 / 2 g nameg entity->xml CR h` ]4> " G 4 > " G 4 > " G 4> " G 6 g tag
Z g str Z g port Z g filenamef sxml/simple.scm
2
3 3 3 4 + 5 ? 6 V 7 Z 7
Z g nameg pi->xml CR @R h \ ] L 6 T g x
g filenamef sxml/simple.scm
T
T
C' h _ ]L 6 W g port
g filenamef sxml/simple.scm
^
^ -
C hp - . , 3 # 45 $ $ $ 6$ 5" 6 $ 4 5 $
6"" $ ;"
6 $ "4 5 $ 6"" $ $$ & " " "
$ " 6O 64 5$ 6 ( C $ . & C4 5$ 64 O 56C g tree
k g port k g tag +
g elems
g attrs
g filenamef sxml/simple.scm
9
9 * > = # ? $ ? ( ? + A + A 6 B
; D ? D
H B
P H S H , U H U F
X F Y F ] F
^ F , c F 4 e F , g F ) k F p G u G B
L L ( L J
J J J
J , J 4 J , J ) J K K & K N N
O O O 5 O . O P % P ( O Q N
R ' R 1
R T U % = - V 3 = E Z O = W [ Z ^ i ] E k g nameg sxml->xmlg
documentationf Serialize the sxml tree @var{tree} as XML. The output will be written
to the current output port, unless the optional argument @var{port} is
present. C R h q ]C i g seed
g tree g filenamef sxml/simple.scm
f g C h ] 6 g seed
g kid-seed
g tree
g filenamef sxml/simple.scm
h
i
C' h ]45$ C C { g seed
g tree g filenamef sxml/simple.scm
j k
k k C h ]4 56 g sxml
g filenamef sxml/simple.scm
a
e l e d g nameg sxml->stringg
documentationf MDetag an sxml tree @var{sxml} into a string. Does not perform any
formatting. C!R> h ]*4 L
5 $ " 4 5$ C$ s44 5L5 4 L 5 $ !44 5> " G " 4> " G "w4 4 556
"V 6 g str
g port g bad-pos g from g to g i B R g quoted-char R g new-to R g filenamef sxml/simple.scm
y v z { } " & ~ / 2 " > ? B ' B E v R [ _ ` c t - } | C h ] 44 55 O C g
char-encoding
g bad-chars g filenamef sxml/simple.scm
o
p p # p p g nameg make-char-quotator CR4i5RC
g m
, g *good-cache*
" ( g filenamef sxml/simple.scm
x ,
@
" V
" " (
*,
+w
/
0 ,
1 2
8 9
; a
?Z o
?[ ?a ?c ?f
?h
C6 PK ! @% % fold.gonu [ 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 foldtg
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 foldtsg
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-valuesg
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*-valuesg
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-layoutg
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 := ( ...)
| (*default* . )
| (*text* . )
tag :=
handler-pair := (pre-layout . )
| (post . )
| (bindings . )
| (pre . )
| (macro . )
@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 PK ! V V apply-templates.gonu [ GOOF----LE-8-2.0> ] " 4 h ] g guile g define-module* g sxml g apply-templates g filenameS
f sxml/apply-templates.scm g importsS g ssax
g xpath g hideS g filter g exportsS g set-current-module g node-typeof? g
procedure? g error f ambiguous template match g nodeset? g map-union !g appendC 5 h d ]4
5 4 > " G hP * ]( C$ /445 5$ 4L 5C " " " g node
O g templates O g filenamef sxml/apply-templates.scm
> ? A A ? C C C C ! C % ? ( D * D 1 D 4 3 D 4 D : F B F G B O B O g nameg filter-templates C hH ] $ ;4 5$ &4L 5$ 4> " G " C "C g templates
F g filenamef sxml/apply-templates.scm
K L L
N N N M O O O ! O " P & P + P : Q > R D R F g nameg find-handler C h h ]L L 6 ` g a-tree
g filenamef sxml/apply-templates.scm
W
W $
C! h` @ ]4 5$ LO 644L 54L L55 4L 5 $ 6 $
"C8 g tree
` g active-templates ` g still-active-templates 3 ` g t < ` g filenamef sxml/apply-templates.scm
T V
V W Y Z ) [ 3 Y 3 X 6 ^ < \
J _ M ` Q \
T b ^ b _ ` ` g nameg loop C h@ ]O O Q Q O Q 6 g tree
9 g templates 9 g filter-templates 9 g find-handler 9 g loop ' 9 g filenamef sxml/apply-templates.scm
8
' T 7 T + 9 T 9 g nameg apply-templates CRC \ g m
, g filenamef sxml/apply-templates.scm 2
8
C6 PK ! C[d s s match.gonu [ GOOF----LE-8-2.0[ ] 4 hx ] g guile g define-module* g sxml g match g filenameS
f sxml/match.scm g importsS g srfi
g srfi-1
g srfi-11 g ice-9 g control g exportsS g
sxml-match g sxml-match-let g sxml-match-let* g set-current-module g make-syntax-transformer ! " #g syntax-object->datum $g macro %g $sc-dispatch &% '% (g any )(( *g
syntax-object +g
syntax->datum ,g top -, .g ribcage /g dummy 0g stx 1/0 2g m-cd60791-1 32, 43- 5f l-cd60791-6 6f l-cd60791-7 756 8.147 9. :g x ;: <3 =f l-cd60791-3 >= ?.;<> @-89? Ag hygiene BA C*+@B Dg syntax-violation ED FD Gf -source expression failed to match any pattern Hg void I( Jg
*unspecified* K/ Lg m-cd60791-b ML, NM Of l-cd60791-10 PO Q.KNP Rf l-cd60791-d SR T.;NS U-Q9T V*JUB Wg throw Xg sxml-match-error Yg raise-syntax-error Zg module [g free-id \g provide ]g m-cd60791-1a ^], _^ `f l-cd60791-1c a` b.;_a c-9b d*\cB e[d fg each-any gef hg require i*hcB j[i kjf lkf mgl n(m o(n p(o qg begin rg name sg lang tg p_ ug r_ vg body w/rstuv x^----- yf l-cd60791-1f zf l-cd60791-20 {f l-cd60791-21 |f l-cd60791-22 }f l-cd60791-23 ~f l-cd60791-24 yz{|}~ .wx -9b *qB g nodeset? g error g xml-element-tag f expected an xml-element, given g xml-element-attributes g
fold-right g @ g filter g xml-element-contents g match-xml-attribute g member g filter-attributes g compile-clause g map f( g
let-values g cata-binding g body-stx -- f l-cd60791-b1 f l-cd60791-b2 . g cata-defs v f l-cd60791-ac f l-cd60791-ad . g sxml-match-syntax-error g ellipsis? g literal? g keyword? g extract-cata-fun g add-pat-var g add-cata-def g process-cata-exp g process-cata-defs g cata-defs->pvar-lst g process-output-action g compile-element-pat g compile-end-element g compile-attr-list g compile-item-list g compile-dotted-pattern-list g compile-item ----------------- f l-cd60791-31 f l-cd60791-32 f l-cd60791-33 f l-cd60791-34 f l-cd60791-35 f l-cd60791-36 f l-cd60791-37 f l-cd60791-38 f l-cd60791-39 f l-cd60791-3a f l-cd60791-3b f l-cd60791-3c f l-cd60791-3d f l-cd60791-3e f l-cd60791-3f f l-cd60791-40 f l-cd60791-41 . 0 - f l-cd60791-30 . -999 *B g identifier? (( (ό g ... g quote g lst f l-cd60791-fe . g process-quasiquote g expand-quasiquote-body g expand-dotted-item g select-dotted-vars g merge-pvars g dotted-var? g member-var? g
expand-lst g finite-lst? --------- f l-cd60791-e0 f l-cd60791-de f l-cd60791-dc f l-cd60791-da f l-cd60791-d8 f l-cd60791-d6 f l-cd60791-d4 f l-cd60791-d2 f l-cd60791-d0 . g action g dotted-vars f l-cd60791-ce f l-cd60791-cf . -99 *B g cons g exp-lft g exp-rgt f
l-cd60791-122 f
l-cd60791-123 . g fst g rst f
l-cd60791-11b f
l-cd60791-11c . -999 *B g append
f
l-cd60791-116 f
l-cd60791-117
. g dots --- f
l-cd60791-10d f
l-cd60791-10e f
l-cd60791-10f . -9
99 * B g bound-identifier=? g free-identifier=? g unquote g y f
l-cd60791-13d . g walk-quasi-body ! "- #f
l-cd60791-13a $# %.!"$ &f
l-cd60791-139 '& (.;' )-9 %(9
**)B +[* ,+( -,( .g unquote-splicing /*.)B 0[/ 10( 21( 3-%(9 4*3B 5[4 65( 7g
quasiquote 8*73B 9[8 :9( ;g dv <; =f
l-cd60791-174 >= ?.<> @f
l-cd60791-16f A@ B.;A Cg dvars DC Ef
l-cd60791-167 FE G.DF Hg item IH Jf
l-cd60791-166 KJ L.IK M-9?B9G9L9
N*MB Og lambda P*OMB Qf
l-cd60791-179 RQ S.;R T-9S9 U*7TB V[U WV( X*TB Y[X ZY( [g
expanded-item \[ ]f
l-cd60791-183 ^] _.\^ `f
l-cd60791-17f a` b.Ia c-9_b9S9 d*cB e*.TB f[e gf( hf
l-cd60791-18a ih j.\i kf
l-cd60791-186 lk m.Il n-9jm9S9 o*.nB pZό qH rf
l-cd60791-1a7 sf
l-cd60791-1a8 tf
l-cd60791-1a9 urst v.qu w-v9S9 x*7wB yg expanded-rst z[y {f
l-cd60791-1b0 |f
l-cd60791-1b1 }{| ~.z} -9~v9S9 *.B f
l-cd60791-19c f
l-cd60791-19d .z f
l-cd60791-193 f
l-cd60791-194 f
l-cd60791-195 .q -99S9 *.B f bad quasiquote-form g s f l-cd60791-5b . g msg g exp g sub f l-cd60791-56 f l-cd60791-57 f l-cd60791-58 . -999 *B -9 *B [ ( *7B [ ( g apply f
l-cd60791-1e6 f
l-cd60791-1e7 . f
l-cd60791-1d8 f
l-cd60791-1d9 . -99 *B g ele g nextp g fail-k g pvar-lst g depth g cata-fun --------- f
l-cd60791-1f5 f
l-cd60791-1f6 f
l-cd60791-1f7 f
l-cd60791-1f8 f
l-cd60791-1f9 f
l-cd60791-1fa f
l-cd60791-1fb f
l-cd60791-1fc f
l-cd60791-1fd . -99 *B [ ( ( (ƌ g generate-temporaries (((( g if g bx g fail-to :v ---- f
l-cd60791-23d f
l-cd60791-23e f
l-cd60791-23f f
l-cd60791-240 . g tests g new-pvar-lst g
new-cata-defs g new-dotted-vars f
l-cd60791-236 f
l-cd60791-237 f
l-cd60791-238 f
l-cd60791-239 . g body-exp f
l-cd60791-22f . g tag g items f
l-cd60791-22b f
l-cd60791-22c . -999999 *B g and *B g pair? *B g eq? *B *B *B g let *B *B ((((( g ax :v ----- f
l-cd60791-21c f
l-cd60791-21d f
l-cd60791-21e f
l-cd60791-21f f
l-cd60791-220 . f
l-cd60791-215 f
l-cd60791-216 f
l-cd60791-217 f
l-cd60791-218 .
g attr-exp
f
l-cd60791-20c
f
l-cd60791-20d
. g
attr-items f
l-cd60791-206 f
l-cd60791-207 f
l-cd60791-208 . -99 9999 *B *B *B *B *B *B *B *B *B !g attr-lst "g body-lst #g attr-key-lst $!"
# %------------ &f
l-cd60791-26f 'f
l-cd60791-270 (f
l-cd60791-271 )f
l-cd60791-272 *f
l-cd60791-273 +f
l-cd60791-274 ,f
l-cd60791-275 -f
l-cd60791-276 .f
l-cd60791-277 /f
l-cd60791-278 0f
l-cd60791-279 1f
l-cd60791-27a 2&'()*+,-./01 3.$%2 4-939 5*4B 6[5 76( 8g -> 9*84B :[9 ;:f <(; =6< >=( ?(> @?( A6f BA( C(B DC( E7( F(E GF( H(= IH( J(A KJ( L(7 ML( N(f ON( P)( Qg string? Rg char? Sg number? Tg boolean? U((( Vv Wf
l-cd60791-3b1 Xf
l-cd60791-3b2 Yf
l-cd60791-3b3 ZWXY [.VZ \f
l-cd60791-3aa ]f
l-cd60791-3ab ^f
l-cd60791-3ac _f
l-cd60791-3ad `\]^_ a.` bg atag cg literal dbc ef
l-cd60791-39f ff
l-cd60791-3a0 gf
l-cd60791-3a1 hefg i.dh j-9[9ai939 k*jB lg binding m*ljB n*jB o*jB p*jB qg equal? r*qjB sg cadr t*sjB utm vg kwd wg i xbw yf
l-cd60791-390 zf
l-cd60791-391 {f
l-cd60791-392 |yz{ }.x| ~-}939 *v~B f bad attribute pattern f
l-cd60791-380 f
l-cd60791-381 f
l-cd60791-382 .x -939 *vB f
l-cd60791-373 f
l-cd60791-374 f
l-cd60791-375 .V f
l-cd60791-36c f
l-cd60791-36d f
l-cd60791-36e f
l-cd60791-36f . g var b f
l-cd60791-361 f
l-cd60791-362 f
l-cd60791-363 . -99939 *B *lB *B *B *B *sB f g
matched-attrs ?>v @f
l-cd60791-28d Af
l-cd60791-28e Bf
l-cd60791-28f C@AB D.?C Ef
l-cd60791-286 Ff
l-cd60791-287 Gf
l-cd60791-288 Hf
l-cd60791-289 IEFGH J.I K Lf
l-cd60791-27f ML N.KM O-9D9JN939 P*OB Q*OB R*OB S:v Tf
l-cd60791-25d Uf
l-cd60791-25e Vf
l-cd60791-25f WTUV X.SW Yg
next-tests ZY [f
l-cd60791-256 \f
l-cd60791-257 ]f
l-cd60791-258 ^f
l-cd60791-259 _[\]^ `.Z_ a b------ cf
l-cd60791-24b df
l-cd60791-24c ef
l-cd60791-24d ff
l-cd60791-24e gf
l-cd60791-24f hf
l-cd60791-250 icdefgh j.abi k-9X9`99j9 l*kB mg null? n*mkB og ellipsis-allowed? po
q----------
rf
l-cd60791-3c2 sf
l-cd60791-3c3 tf
l-cd60791-3c4 uf
l-cd60791-3c5 vf
l-cd60791-3c6 wf
l-cd60791-3c7 xf
l-cd60791-3c8 yf
l-cd60791-3c9 zf
l-cd60791-3ca {f
l-cd60791-3cb |rstuvwxyz{
}.pq| ~-9}9 *~B [ ( *8~B [ f ( :v f
l-cd60791-3f8 f
l-cd60791-3f9 f
l-cd60791-3fa . f
l-cd60791-3f1 f
l-cd60791-3f2 f
l-cd60791-3f3 f
l-cd60791-3f4 .Z f
l-cd60791-3e8 . f
l-cd60791-3e4 f
l-cd60791-3e5 . -99999}9 *B f 1improper list pattern not allowed in this context -9}9 *B f f
l-cd60791-412 f
l-cd60791-413 f
l-cd60791-414 . f
l-cd60791-40b f
l-cd60791-40c f
l-cd60791-40d f
l-cd60791-40e .Z f
l-cd60791-401 . f
l-cd60791-3ff . -9999}9
*B g tail H
f
l-cd60791-43c f
l-cd60791-43d f
l-cd60791-43e f
l-cd60791-43f f
l-cd60791-440 f
l-cd60791-441 f
l-cd60791-442 f
l-cd60791-443 f
l-cd60791-444 f
l-cd60791-445
.q -9999 *B g values g npv f
l-cd60791-458 . f
l-cd60791-452 f
l-cd60791-453 f
l-cd60791-454 . -999999 *B *B g fail *B g
t-cd60791-446 g
t-cd60791-447 g
t-cd60791-448 g
t-cd60791-449 g
m-cd60791-44e , f
l-cd60791-45f f
l-cd60791-460 f
l-cd60791-461 f
l-cd60791-462 . -99999
*B f
l-cd60791-46e . g new-exp f
l-cd60791-467 f
l-cd60791-468 f
l-cd60791-469 f
l-cd60791-46a . -9999999 *B *B g cdr *B *B *B w f
l-cd60791-4bf . g temp-item-pvar-lst f
l-cd60791-492 . g final-tests g final-pvar-lst g final-cata-defs g final-dotted-vars f
l-cd60791-48e f
l-cd60791-48f f
l-cd60791-490
f
l-cd60791-491
.
g
item-tests g
item-pvar-lst g item-cata-defs g item-dotted-vars g
tail-tests g
tail-pvar-lst g tail-cata-defs g tail-dotted-vars
-------- f
l-cd60791-479 f
l-cd60791-47a f
l-cd60791-47b f
l-cd60791-47c f
l-cd60791-47d f
l-cd60791-47e f
l-cd60791-47f f
l-cd60791-480 . !g
t-cd60791-44a "g
t-cd60791-44b #g
t-cd60791-44c $g
t-cd60791-44d %!"#$ &f
l-cd60791-475 'f
l-cd60791-476 (f
l-cd60791-477 )f
l-cd60791-478 *&'() +.%* ,-999 99 9+9999 -*H,B .- /f
l-cd60791-4c1 0/ 1.0 2-9199 99 9+9999 3*H2B 43 5f
l-cd60791-4c3 65 7.6 8-9799 99 9+9999 9*8B :9 ;g xa f
l-cd60791-4cb ?f
l-cd60791-4cc @>? A.=@ Bg a Cg b DBC Ef
l-cd60791-4c6 Ff
l-cd60791-4c7 GEF H.DG I-9A99H99 99 9+9999 J*IB K(((((fffffff Lg letrec Mg tail-body Ng item-body Og
final-body Pg ipv Qg gpv Rg tpv Sg item-void Tg tail-void Ug item-null Vg item-cons W:MNOPQRSTUV Xf
l-cd60791-497 Yf
l-cd60791-498 Zf
l-cd60791-499 [f
l-cd60791-49a \f
l-cd60791-49b ]f
l-cd60791-49c ^f
l-cd60791-49d _f
l-cd60791-49e `f
l-cd60791-49f af
l-cd60791-4a0 bf
l-cd60791-4a1 cf
l-cd60791-4a2 dXYZ[\]^_`abc e.W%d f-9e99 99 9+9999 g*LfB hg
match-tail i*hfB j*OfB k*fB l*fB mkl ng
match-item o*nfB pk q*fB r*fB s*fB tg match-dotted u*tfB v*fB wg tail-res x*wfB y*fB z { |g res }*|fB ~g new-x *~fB u g
last-tail-res *fB f $ellipses not allowed in this context :v f
l-cd60791-3df f
l-cd60791-3e0 . f
l-cd60791-3d8 f
l-cd60791-3d9 f
l-cd60791-3da f
l-cd60791-3db .Z f
l-cd60791-3d1 .K -999}9 *B -9}9 *B H f
l-cd60791-4d8 f
l-cd60791-4d9 f
l-cd60791-4da f
l-cd60791-4db f
l-cd60791-4dc f
l-cd60791-4dd f
l-cd60791-4de f
l-cd60791-4df f
l-cd60791-4e0 . -99 *B [ ( *8B [ f ( g nx :v f
l-cd60791-514 f
l-cd60791-515 f
l-cd60791-516 f
l-cd60791-517 f
l-cd60791-518 . f
l-cd60791-50d f
l-cd60791-50e f
l-cd60791-50f f
l-cd60791-510 .Z f
l-cd60791-502 f
l-cd60791-503 . f
l-cd60791-4fe f
l-cd60791-4ff . -999999 *B *B *B *B g car *B f f
l-cd60791-534 f
l-cd60791-535 f
l-cd60791-536 f
l-cd60791-537 f
l-cd60791-538 . f
l-cd60791-52d f
l-cd60791-52e f
l-cd60791-52f f
l-cd60791-530 .Z f
l-cd60791-521 f
l-cd60791-522 . f
l-cd60791-51f . -99999
*B *B *B *B *B (f f +bad pattern syntax (not an element pattern) f 7bad pattern syntax (symbol not allowed in this context) :v f
l-cd60791-594 f
l-cd60791-595 f
l-cd60791-596 f
l-cd60791-597 . f
l-cd60791-58d f
l-cd60791-58e f
l-cd60791-58f f
l-cd60791-590 .Z f
l-cd60791-586 . c f
l-cd60791-584 . -999999 *B *B *B *qB *B *B *B f
l-cd60791-54d .; f
l-cd60791-547
.
H
f
l-cd60791-543 f
l-cd60791-544
. -9999 99
*B :v f
l-cd60791-561 f
l-cd60791-562 f
l-cd60791-563 . f
l-cd60791-55a f
l-cd60791-55b f
l-cd60791-55c f
l-cd60791-55d .Z g
more-pvar-lst g more-cata-defs !g more-dotted-vars " ! #f
l-cd60791-552 $f
l-cd60791-553 %f
l-cd60791-554 &#$% '."& (-99 99'999 99 )*(B **(B +f
l-cd60791-572 ,f
l-cd60791-573 -f
l-cd60791-574 .+,- /.S. 0g after-tests 1g after-pvar-lst 2g after-cata-defs 3g after-dotted-vars 40123 5f
l-cd60791-56b 6f
l-cd60791-56c 7f
l-cd60791-56d 8f
l-cd60791-56e 95678 :.49 ;-9/9:99 99 <*;B =*;B >f
l-cd60791-4f5 ?f
l-cd60791-4f6 @f
l-cd60791-4f7 Af
l-cd60791-4f8 B>?@A C.B Df
l-cd60791-4ee Ef
l-cd60791-4ef Ff
l-cd60791-4f0 Gf
l-cd60791-4f1 HDEFG I.ZH Jf
l-cd60791-4e7 KJ L.K Mf
l-cd60791-4e5 NM O.KN P-9C9I99LO99 Q*PB R*PB S*PB T*PB U*PB Vf &duplicate pattern variable not allowed Wg nct XWv Yf l-cd60791-a4 Zf l-cd60791-a5 [f l-cd60791-a6 \YZ[ ].X\ ^g new-ctemp _^ `f l-cd60791-9f a` b._a cg cfun dc ef l-cd60791-95 ff l-cd60791-96 gf l-cd60791-97 hefg i.dh j-9]99b9i9 k*jB l*OjB m nf
l-cd60791-59c on p.mo q-9p99 r*qB s[r ts( ug guard v*uqB w[v xwf yx挤 zty {(z((( |*8qB }[| ~}f (~ s y (((( g gexp g action0 g fail-exp f
l-cd60791-5c3 f
l-cd60791-5c4 f
l-cd60791-5c5 f
l-cd60791-5c6 f
l-cd60791-5c7 f
l-cd60791-5c8 f
l-cd60791-5c9 f
l-cd60791-5ca f
l-cd60791-5cb . -9p99 *B *B *B *qB sf y (((( g atom f
l-cd60791-5d9 f
l-cd60791-5da f
l-cd60791-5db f
l-cd60791-5dc f
l-cd60791-5dd f
l-cd60791-5de f
l-cd60791-5df f
l-cd60791-5e0 . -9p99 *B *B *B *qB t挤 (((( 挤 (((( f
l-cd60791-60c f
l-cd60791-60d f
l-cd60791-60e f
l-cd60791-60f f
l-cd60791-610 f
l-cd60791-611 f
l-cd60791-612 f
l-cd60791-613 . -9p99 *B 挤 (((( ------- f
l-cd60791-61f f
l-cd60791-620 f
l-cd60791-621 f
l-cd60791-622 f
l-cd60791-623 f
l-cd60791-624 f
l-cd60791-625 . -9p99 *B y (((( 挤 (((( fy (((( f挤 (((( (y (((( (挤 (((( c f
l-cd60791-7c0 f
l-cd60791-7c1 f
l-cd60791-7c2 f
l-cd60791-7c3 f
l-cd60791-7c4 f
l-cd60791-7c5 f
l-cd60791-7c6 . -9p99 *B *qB *qB c f
l-cd60791-79f f
l-cd60791-7a0 f
l-cd60791-7a1 f
l-cd60791-7a2 f
l-cd60791-7a3 f
l-cd60791-7a4 f
l-cd60791-7a5 f
l-cd60791-7a6 . -9p99 *B *B *qB *qB f
l-cd60791-71b f
l-cd60791-71c f
l-cd60791-71d . f
l-cd60791-707 f
l-cd60791-708 f
l-cd60791-709 f
l-cd60791-70a f
l-cd60791-70b f
l-cd60791-70c f
l-cd60791-70d f
l-cd60791-70e . -999p99 *qB g failure -99
* B v f
l-cd60791-72a
f
l-cd60791-72b
. g result f
l-cd60791-723 f
l-cd60791-724 f
l-cd60791-725 f
l-cd60791-726 . -9999p99
*B f
l-cd60791-6db f
l-cd60791-6dc f
l-cd60791-6dd . f
l-cd60791-6c5 !f
l-cd60791-6c6 "f
l-cd60791-6c7 #f
l-cd60791-6c8 $f
l-cd60791-6c9 %f
l-cd60791-6ca &f
l-cd60791-6cb 'f
l-cd60791-6cc (f
l-cd60791-6cd ) !"#$%&'( *. ) +-9 9*9p99 ,*q+B -v .f
l-cd60791-6e1 /f
l-cd60791-6e2 0./ 1.-0 2-919 9*9p99
3*2B 4*2B 5f
l-cd60791-6f2 6f
l-cd60791-6f3 756 8. 7 9f
l-cd60791-6eb :f
l-cd60791-6ec ;f
l-cd60791-6ed .= ?-9899>*9p99
@*?B Ag list Bf
l-cd60791-69f Cf
l-cd60791-6a0 Df
l-cd60791-6a1 EBCD F.E G Hf
l-cd60791-68b If
l-cd60791-68c Jf
l-cd60791-68d Kf
l-cd60791-68e Lf
l-cd60791-68f Mf
l-cd60791-690 Nf
l-cd60791-691 Of
l-cd60791-692 PHIJKLMNO Q.GP R-9F9Q9p99 S*qRB Tf
l-cd60791-6ae Uf
l-cd60791-6af VTU W.-V Xf
l-cd60791-6a7 Yf
l-cd60791-6a8 Zf
l-cd60791-6a9 [f
l-cd60791-6aa \XYZ[ ].\ ^-9W99]Q9p99
_*^B `*^B a*^B bf
l-cd60791-65c cf
l-cd60791-65d df
l-cd60791-65e ebcd f.e g hf
l-cd60791-646 if
l-cd60791-647 jf
l-cd60791-648 kf
l-cd60791-649 lf
l-cd60791-64a mf
l-cd60791-64b nf
l-cd60791-64c of
l-cd60791-64d pf
l-cd60791-64e qhijklmnop r.gq s-9f9r9p99 t*qsB ug exp-body vu wf
l-cd60791-662 xf
l-cd60791-663 ywx z.vy {-9z9f9r9p99
|*{B }*{B ~f
l-cd60791-673 f
l-cd60791-674 ~ . f
l-cd60791-66c f
l-cd60791-66d f
l-cd60791-66e f
l-cd60791-66f . -999r9p99
*B *B *B f
l-cd60791-5fc f
l-cd60791-5fd f
l-cd60791-5fe f
l-cd60791-5ff f
l-cd60791-600 f
l-cd60791-601 f
l-cd60791-602 . -9p99 *B f
l-cd60791-5b0 f
l-cd60791-5b1 f
l-cd60791-5b2 f
l-cd60791-5b3 f
l-cd60791-5b4 f
l-cd60791-5b5 f
l-cd60791-5b6 f
l-cd60791-5b7 . -9p99 *B *B *B *qB g sxml-match1 g clause / g
m-cd60791-7cf , --- f
l-cd60791-7d4 f
l-cd60791-7d5 f
l-cd60791-7d6 f
l-cd60791-7d7 . f
l-cd60791-7d1 .; -9 *B *OB *B *B *B f no matching clause found *B ( (Č g let/ec g clause0 / ---- f
l-cd60791-7dd f
l-cd60791-7de f
l-cd60791-7df f
l-cd60791-7e0 f
l-cd60791-7e1 . -9 *B g escape *B *B *OB g call-with-values *B *B g val / g
m-cd60791-7e8 , --- f
l-cd60791-7ed f
l-cd60791-7ee f
l-cd60791-7ef f
l-cd60791-7f0 . f
l-cd60791-7ea .; -9 *LB *cB *OB *B *B g sxml-match-let1 挤 ( ( ( g syntag g synform g body0 /v g
m-cd60791-7f6 , ---- f
l-cd60791-7fb f
l-cd60791-7fc f
l-cd60791-7fd f
l-cd60791-7fe f
l-cd60791-7ff . f
l-cd60791-7f8 .; -9 *B
)
挤 (
( (
g pat /v ------ f
l-cd60791-807 f
l-cd60791-808 f
l-cd60791-809 f
l-cd60791-80a f
l-cd60791-80b f
l-cd60791-80c f
l-cd60791-80d . -9 *B *B *B *OB *B !*B "f could not match pattern ~s #*"B $g each %$) &)% '&挤 ((' )(( *() +g pat0 ,g exp0 -/+,v .-------- /f
l-cd60791-817 0f
l-cd60791-818 1f
l-cd60791-819 2f
l-cd60791-81a 3f
l-cd60791-81b 4f
l-cd60791-81c 5f
l-cd60791-81d 6f
l-cd60791-81e 7f
l-cd60791-81f 8/01234567 9.-.8 :-99 ;*:B <*:B = > ?*:B @*O:B A*:B B*:B C*":B Dg sxml-match-let-help E%挤 F(E G(F H(G Ig temp-name JI Kf
l-cd60791-841 LK M.JL NDv Of
l-cd60791-830 Pf
l-cd60791-831 Qf
l-cd60791-832 Rf
l-cd60791-833 Sf
l-cd60791-834 Tf
l-cd60791-835 Uf
l-cd60791-836 VOPQRSTU W.NV Xf
l-cd60791-82d YX Z.Y [-9MW9Z \*[B ]*[B ^ _f
l-cd60791-859 `_ a.^` bv cf
l-cd60791-84d df
l-cd60791-84e ef
l-cd60791-84f ff
l-cd60791-850 gf
l-cd60791-851 hcdefg i.bh jf
l-cd60791-84a kj l.k m-9ai9l n*DmB ov pf
l-cd60791-862 qf
l-cd60791-863 rf
l-cd60791-864 spqr t.os uf
l-cd60791-85f vu w.v x-t9w y*xB zf
l-cd60791-87a {z |.^{ }+,v ~f
l-cd60791-86a f
l-cd60791-86b f
l-cd60791-86c f
l-cd60791-86d f
l-cd60791-86e f
l-cd60791-86f f
l-cd60791-870 ~ .} -9|9w *DB C 5 hx ]4
5 4 > " G 4"#$')C h > ] C 6 g dummy
g stx
CFG h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef sxml/match.scm
+
" g
macro-typeg syntax-rulesg patternsg stx C5#R4"H$'IV h - ]C % g dummy
CFG h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef sxml/match.scm
.
" g
macro-typeg syntax-rulesg patterns C5HRWX h ] 6 g x
g msg g obj g sub g filenamef sxml/match.scm
1
2 2 g nameg raise-syntax-error CYR4"Z$'p h ]C{ g dummy
g name g lang g p_ g r_ g body CFG h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef sxml/match.scm
5 " g
macro-typeg syntax-rulesg patternsg nameg langg provideg p_g ... g requireg r_g ... g bodyg ... C5ZR h( ] $ " $ C C g x
" g t " g filenamef sxml/sxml-match.ss
%
! 0 " g nameg nodeset? CR h0 ]"
6 $ $ C"" g s
+ g filenamef sxml/sxml-match.ss
" + g nameg xml-element-tag CR h ] $
" C } g i
g filenamef sxml/sxml-match.ss
& < 7 K N F 2 C h( ]" C $ & C"" g c
' g d ' g filenamef sxml/sxml-match.ss
* ! 0 , 5 , D G 0 ' C h8 ] $ & & ( 6 6CC g a
2 g b 2 g filenamef sxml/sxml-match.ss
. 1 Z ! * " , , 2 C h8 ]"
6 $ $
6"" g s
1 g filenamef sxml/sxml-match.ss
& & ' &
$ $ ' % ) 1 g nameg xml-element-attributes CR h ] $
" C } g i
g filenamef sxml/sxml-match.ss
* + + + + + . + & + C h0 ]"
6 $ $ 6"" g s
0 g filenamef sxml/sxml-match.ss
(
- - % - ) )
) ) ) ) & , ( *
0 g nameg xml-element-contents CR h( ]$ & C 6C g key
" g l " g filenamef sxml/sxml-match.ss
/ 0
0 2
2 2 3 4 % 4
" g nameg match-xml-attribute CR h8 ]( C4 5$ 64 5C g keys
1 g lst 1 g filenamef sxml/sxml-match.ss
6 7 8 9 9 9 9 : $ " : % ; & ; - ; 4 / ; 0 ; 1 g nameg filter-attributes CR4"$') h > ] C 6 g bvar
g bval
CFG h@ ] 4L 5 45 $ @6 g def
> g tmp > g tmp ' > g filenamef sxml/sxml-match.ss
v & w < x < x N y N z N x < w ( > C' h J ] C B g cata-binding
g body-stx CFG h@ ] ( C4L O 5 45 $ @6 g cata-defs
@ g body @ g tmp @ g tmp ) @ g filenamef sxml/sxml-match.ss
r s v ! u @ g nameg process-cata-defs C h Z ] 6R g item
g filenamef sxml/sxml-match.ss C h , ]C $ g item
C'h ] C
C h j ]L 6b g fst
g rst g filenamef sxml/sxml-match.ss CFG+ h ]45$ 45CC g fst
g dots g rst g filenamef sxml/sxml-match.ss E
E E * E / E % C h N ]C F g fst
g dots g rst C h ]! 4?$ @4 5 $ @4 5 " %4 5 $ L O @ 6$ 4
?$ @"" g lst
g tmp g tmp " g tmp 9 g tmp H d g filenamef sxml/sxml-match.ss
g nameg finite-lst? C' h ] C
C h Z ] 6R g item
g filenamef sxml/sxml-match.ss C h , ] C $ g item
C') h D ] C < g exp-lft
g exp-rgt CFG h8 ]4L L54L5 45 $ @6 g fst
7 g rst 7 g tmp 7 g tmp 7 g filenamef sxml/sxml-match.ss * * 7 CFG+ h ]45$ 45CC g fst
g dots g rst g filenamef sxml/sxml-match.ss E
E E * E / E % C') h D ] C < g exp-lft
g exp-rgt CFG h@ ]4L 4L L554L5 45 $ @6 g fst
< g dots < g rst < g tmp < g tmp % < g filenamef sxml/sxml-match.ss * + * * < C h ]!4 5 $ @ 4?$ @4 5 " )4 5 $ LLLO @ 6$ 4
?$ L LLLO @"" g lst
g tmp
g tmp g tmp 9 g tmp H h g filenamef sxml/sxml-match.ss
g nameg
expand-lst C hP ]" ;( C4 5 $ "
4 5 $ C " " g var
I g lst I g lst A g t 2 g filenamef sxml/sxml-match.ss
6 & - 5 / 6 ; A A I g nameg member-var? Ch y ]L L 6 q g var
g filenamef sxml/sxml-match.ss
g nameg dotted-var? C h8 ] ( C4L 5$
" 4L 5C g lst1
5 g lst2 5 g filenamef sxml/sxml-match.ss
% % & ) * ) / 6 3 ) 4 5 g nameg merge-pvars C'-h z ]L4L 54L 56 r g a
g rst g filenamef sxml/sxml-match.ss " " C2 h z ]L4L 54L 56 r g a
g rst g filenamef sxml/sxml-match.ss " " C h | ]L4L 54L 56 t g fst
g rst g filenamef sxml/sxml-match.ss " " C hh ]4 5 $ LLL O @4 5 $ LLL O @4 5 $
LL O @C g y
b g tmp b g tmp + b g tmp K b g filenamef sxml/sxml-match.ss
a b g nameg walk-quasi-body C'6 h Y ]C Q g rst
g filenamef sxml/sxml-match.ss ! C: h Y ]L 6Q g rst
g filenamef sxml/sxml-match.ss & C h | ]L4L 54L 56 t g fst
g rst g filenamef sxml/sxml-match.ss C h l ]4 5$ L 6C d g item
g filenamef sxml/sxml-match.ss
C h Z ] CR g item
g filenamef sxml/sxml-match.ss C h ])O LLQ 4 5 $ @4 5 $ O @4 5 $
LLO @ 4 L O ?$
@C g x
g walk-quasi-body g tmp g tmp 5 g tmp Q g tmp k g filenamef sxml/sxml-match.ss
g nameg select-dotted-vars C h W ] 6O g x
g filenamef sxml/sxml-match.ss C h ) ] C ! g x
C'fNP h * ] L C " g dv
CFG hH ]4L 5 4?$ @45 $ O @6 g item
H g dvars H g tmp H g tmp , H g filenamef sxml/sxml-match.ss
H g nameg expand-dotted-item C'W h Y ]LL 6Q g rst
g filenamef sxml/sxml-match.ss & CZd h s ] 4L L5 C k g item
g tmp g filenamef sxml/sxml-match.ss 0 Cgo h s ] 4L L5 C k g item
g tmp g filenamef sxml/sxml-match.ss 0 Cp') h N ] CF g expanded-fst
g expanded-rst CFG h8 ]4L 54L 5 45 $ @6 g fst
5 g rst 5 g tmp 5 g tmp 5 g filenamef sxml/sxml-match.ss /
/ 5 C+ h ]45$ 45CC g item
g dots g rst g filenamef sxml/sxml-match.ss E
E E * E / E % Cx') h O ] C G g
expanded-item
g expanded-rst
CFG hH ]4L 4L L554L5 45 $ @6 g item
A g dots A g rst A g tmp A g tmp * A g filenamef sxml/sxml-match.ss 0 1 0 / A C+ h ]45$ 45CC g item
g dots g rst g filenamef sxml/sxml-match.ss E
E E * E / E % C') h O ] C G g
expanded-item
g expanded-rst
CFG h@ ]4L 4L L554L5 45 $ @6 g item
< g dots < g rst < g tmp < g tmp % < g filenamef sxml/sxml-match.ss 0 1 0 / < C h ]14 5 $
LO @4 5 $
L LO @4 5 $
L LO @4 5 " X4 5 " 4
5 $ LO @ C$ 4 ?$
LLL LO @""$ 4?$ LLL LO @""~ g x
g tmp g tmp ) g tmp G g tmp e g tmp t g tmp g filenamef sxml/sxml-match.ss
g nameg expand-quasiquote-body C') h ]
4L 5 C g
quasiquote
g term g tmp g filenamef sxml/sxml-match.ss B % CY h0 ] 4 5 $ LO @L 6 g x
. g tmp . g filenamef sxml/sxml-match.ss
# 1 . B . g nameg process-quasiquote C' h + ]L C # g rst
Ch Y ]LL 6Q g rst
g filenamef sxml/sxml-match.ss $ C') h D ] C< g exp-lft
g exp-rgt CFG h D ] C < g exp-lft
g exp-rgt C h ]4LL5$ 74L L54LL5 45 $ @64L L54L 5 45 $ @6 g fst
y g rst y g tmp " D g tmp - D g tmp W y g tmp b y g filenamef sxml/sxml-match.ss !
8 8 " ! E 8 N 8 W ! y C h ]bO O O O O O O O
Q LQ Q Q Q Q L
Q L Q
4
5 $ O @4
5 $
O @4
5
$ L O
@ C g action
g dotted-vars g finite-lst? R g
expand-lst R g member-var? R g dotted-var? R g merge-pvars R g select-dotted-vars R g expand-dotted-item R g expand-quasiquote-body R g process-quasiquote
R g tmp g tmp g tmp
g filenamef sxml/sxml-match.ss
g nameg process-output-action C'FG h l ] 6d g tag
g items g filenamef sxml/sxml-match.ss , C' hH ` ] L C X g x
B g bx B g body B g fail-to B B CFG h Q ]:4L 5 4LLLLLLLL>
G L L 45 $ 4 O ?"
45 D I g tag
| g items | g body-exp
| g tests + | g new-pvar-lst + | g
new-cata-defs + | g new-dotted-vars + | g tmp A t g tmp L q g filenamef sxml/sxml-match.ss - &
- < - &
- !
- / ! . . A 9 | 9
| C h ] 6| g tag
g
attr-items g items g filenamef sxml/sxml-match.ss C'
hP p ] L C h g x
N g ax N g bx N g body N g fail-to N N CFG h ]C4L 54L 5 4LLLLLLLL> G L L 4 5
$ 4 O
?"
4 5
D g tag
g
attr-items g items g attr-exp g body-exp g tests < g new-pvar-lst < g
new-cata-defs < g new-dotted-vars < g tmp T g tmp
_ g filenamef sxml/sxml-match.ss &
< &
! & < & ! ! ( 4 ; ! ? T C
h L , 3 4 5 " L4 5
" 6
$ *4
?$ L O
@"" $ *4 ?$ LO @"" D g ele
g exp g nextp g fail-k g pvar-lst g depth g cata-fun g cata-defs g dotted-vars g tmp g tmp
a g filenamef sxml/sxml-match.ss
g nameg compile-element-pat C'7@DGIKMOP h G ] L LLLLLLLLL 6
? g filenamef sxml/sxml-match.ss F
CFG+QRST hH ] 4 5$ 645 45$ C45$ C45$ C6C g atag
E g literal E g rst E g x C g filenamef sxml/sxml-match.ss +
+ H H I ! I " I $ J . I / J 1 K ; I < K C L E C'Ukmnopru h@ Q ]L L C I g ax
? g body ? g fail-to ? ? CFG hx 4 ]34L L
L L LLLLLLLL > G L L 45 $ 4 O ?"
45 D , g atag
w g literal w g rst w g tests & w g new-pvar-lst & w g
new-cata-defs & w g new-dotted-vars & w g tmp : o g tmp E l g filenamef sxml/sxml-match.ss - 1 2 % - ) , : 9 w 9 w C h ]4 5$ 6C g atag
g i g rst g filenamef sxml/sxml-match.ss &
& & 2 CY h ] L 6 g atag
g i g rst g sub g filenamef sxml/sxml-match.ss ' ' * B C h z ] 6r g atag
g i g rst g filenamef sxml/sxml-match.ss ! CY h ] L 6 g atag
g i g rst g sub g filenamef sxml/sxml-match.ss " " * B C h ]4 5$ 6C g atag
g var g rst g filenamef sxml/sxml-match.ss
2 C'U h@ Q ]L L C I g ax
9 g body 9 g fail-to 9 9 CFG h 9 ]34L L L
L LLL4LL5LLLL > G L
L 45 $ 4 O ?"
45 D 1 g atag
~ g var ~ g rst ~ g tests - ~ g new-pvar-lst - ~ g
new-cata-defs - ~ g new-dotted-vars - ~ g tmp A v g tmp L s g filenamef sxml/sxml-match.ss
2 2 , 0 A ~ ~ C h } ] 6u g atag
g cvar g rst g filenamef sxml/sxml-match.ss CY' h@ a ]L C Y g ax
9 g ct 9 g body 9 g fail-to 9 9 CFG
h ];4 5 L
$ " 4L > " G 4L LLL LLL4LL5L L
L L
L
L > G LL 45 $ 4 O ?"
4 5 D g atag
g cvar g rst g ctemp
g tests l g new-pvar-lst l g
new-cata-defs l g new-dotted-vars l g tmp g tmp
g filenamef sxml/sxml-match.ss #
B 0 - B 6 ! E 4 J 4 a e d e k ! o C h ] 6 g atag
g cata g cvar g rst g filenamef sxml/sxml-match.ss C' h@ a ]L C Y g ax
9 g ct 9 g body 9 g fail-to 9 9 CFG h ]<4 5 4L L L
L LLL4LL5LLL LL > G L
L 4 5
$ 4 O
?"
4 5
D g atag
g cata g cvar g rst g ctemp
g tests F g new-pvar-lst F g
new-cata-defs F g new-dotted-vars F g tmp \ g tmp
g g filenamef sxml/sxml-match.ss #
! 4 $ 4 ; e > e E ! I \
C h ]4 5$ 6C g atag
g var g default g rst g filenamef sxml/sxml-match.ss
2 C') h8 < ]L L L C4 g ax
8 g body 8 8 CFG h N ]44L L L
L LLL4LL5LLLL > G L
45 $ 4 O ?"
45 D F g atag
~ g var ~ g default ~ g rst ~ g tests - ~ g new-pvar-lst - ~ g
new-cata-defs - ~ g new-dotted-vars - ~ g tmp ? v g tmp J s
g filenamef sxml/sxml-match.ss 2 2 , 0 ? ~ ~ C h ] 6 g atag
g cvar g default g rst g filenamef sxml/sxml-match.ss CY'U h8 L ]L L CD g ax
8 g ct 8 g body 8 8 CFG
h ]<4 5 L
$ " 4L > " G 4L LLL LLL4LL5L L
L L
L
L > G L 4 5
$ 4 O
?"
4 5
D g atag
g cvar g default g rst g ctemp
g tests l g new-pvar-lst l g
new-cata-defs l g new-dotted-vars l g tmp g tmp
g filenamef sxml/sxml-match.ss #
B 0 - B 6 ! E 4 J 4 a e d e k ! o C h ] 6 g atag
g cata g cvar g default g rst g filenamef sxml/sxml-match.ss h C'U789:;= h8 L ]L L CD g ax
8 g ct 8 g body 8 8 CFG h ]=4 5 4L L L
L LLL4LL5LLL LL > G L
4
5 $ 4 O ?"
4
5
D g atag
g cata g cvar g default g rst g ctemp
g tests F g new-pvar-lst F g
new-cata-defs F g new-dotted-vars F g tmp
Z g tmp e g filenamef sxml/sxml-match.ss i #
i
i k ! o 4 $ r 4 ; e > e E k ! I j Z { {
C h Y ] 6Q g var
g filenamef sxml/sxml-match.ss S C'UPQR h W ]L CO g ax
g
matched-attrs g body CFG hx ]14L L L
L L4L L5LLLL>
G LL 45 $ 4 O ?"
45 D g var
t g tests % t g new-pvar-lst % t g
new-cata-defs % t g new-dotted-vars % t g tmp 9 l g tmp D i g filenamef sxml/sxml-match.ss U Z 2 $ U ( T 9 _ t _ t C "h C , 3 4 5 " 4 5
" `4 5 " 4 5 " 4 5 " }4 5 " 04 5 " 4 5 " 4
5 " 4
5 " 64 5 $
LO
@
6$ 04?$ !
L O @""$ 4?$ LO @"a"]$ 4?$ LO @"."*$ 24?$ #
LL O
@""$ 44?$ %L L
L O @""$ 24?$ #
LL O
@"K"G$ 24?$ #
LL O
@" "$ 44 ?$ % L L
L O @""
$ 24
?$ #
LL O
@"h"d $ 24 ?$ #!
LLO
@" " ; g attr-lst
g body-lst g attr-exp g body-exp g attr-key-lst g nextp g fail-k g pvar-lst g depth g cata-fun g cata-defs
g dotted-vars g tmp g tmp
g tmp - g tmp < F g tmp K
g tmp Z g tmp i g tmp x T g tmp 0 g tmp g tmp g filenamef sxml/sxml-match.ss
P g nameg compile-attr-list C''Uln h P ] C H g x
g body g fail-to CFG h` ]04LLLL> G L L 45 $ 4?"
45 D g
next-tests
[ g new-pvar-lst [ g
new-cata-defs [ g new-dotted-vars [ g tmp % S g tmp 0 P g filenamef sxml/sxml-match.ss G F % H [ H [
C'U h K ] C C g ct
g x g body CFGY h ]:L$ y4 5 4L4LL5L LL> G L 45 $ 4?"
45 D L
6 g cata
g cvar g ctemp g
next-tests 7 g new-pvar-lst 7 g
new-cata-defs 7 g new-dotted-vars 7 g tmp K y g tmp V v g filenamef sxml/sxml-match.ss c g ' g " g i % i , , e / e 6 i % : h K p ! p d . B CY'U h K ] C C g ct
g x g body CFG
h | ]94 5 L$ " 4L > " G 4L 4LL5L L LL> G L 45 $ 4?"
4 5 D t g cvar
g ctemp
g
next-tests W g new-pvar-lst W g
new-cata-defs W g new-dotted-vars W g tmp k g tmp v g filenamef sxml/sxml-match.ss x #
x
x y B z 0 - B 6 ~ ! 9 ~ ( L e O e V ~ ! Z } k C h ]LL LLLLL 6
g new-exp
g new-pvar-lst g
new-cata-defs g new-dotted-vars g filenamef sxml/sxml-match.ss
! C h0 k ]L
L LLLLLLO LLLLLL 6 c g item
) g rst ) g filenamef sxml/sxml-match.ss ) ) CFG+ h ]45$ 45CC g item
g dots g rst g filenamef sxml/sxml-match.ss E
E E * E / E % C'f h + ] C # g npv
CFG h8 ] 4 5 $ 4?"
4 5 D g new-pvar-lst
3 g
new-cata-defs 3 g new-dotted-vars 3 g tmp + g filenamef sxml/sxml-match.ss
/ 3 1 3 C'f h + ] C # g npv
CFG h8 ] 45 $ 4?"
45 D g new-exp
3 g new-pvar-lst 3 g
new-cata-defs 3 g new-dotted-vars 3 g tmp + g filenamef sxml/sxml-match.ss
* 3 , 3 C . h V ]C N g i
g filenamef sxml/sxml-match.ss
0 C4 h V ]C N g i
g filenamef sxml/sxml-match.ss
0 C: h V ]C N g i
g filenamef sxml/sxml-match.ss
0 C')J h : ] C 2 g xa
g xb CFG h0 ] 45 $ @6 g a
+ g b + g tmp + g tmp + g filenamef sxml/sxml-match.ss
0 2 + C'Kgijmopqlrskuvxy{} h , 3
4
5
45 4 5
4
5
45 C g x
g fail-to g tail-body g item-body g
final-body g ipv g gpv g tpv g item-void g tail-void g item-null
g item-cons CFGY h ; ]{L $ 4LLL>
G 4L LL
L> G
4L4L54 L544L 5L5> G
45 LL 4
54 54 54
5 45 $ 4?"
45
DL 6 3 g item
g dots g rst g
t-cd60791-446 ! g
t-cd60791-447 ! g
t-cd60791-448 ! g
t-cd60791-449 ! g
t-cd60791-44a F g
t-cd60791-44b F g
t-cd60791-44c F g
t-cd60791-44d
F g final-tests g final-pvar-lst g final-cata-defs
g final-dotted-vars g temp-item-pvar-lst g tmp g tmp g filenamef sxml/sxml-match.ss / / / $ - 8 * ; * > * E I R U % ` % k % p - | % , + + + +
. B C h Y ] 6Q g var
g filenamef sxml/sxml-match.ss U C') h ; ]L C 3 g x
g body CFGY
h + ]1L$ c4L4L L5LL> G L 45 $ 4 O ?"
45 DL 6 # g var
{ g
next-tests k g new-pvar-lst k g
new-cata-defs k g new-dotted-vars k g tmp 0 c g tmp ; ` g filenamef sxml/sxml-match.ss V [ # [ * [ # ! Z 0 \ k \ p W . { B
{ C hH ,
3 4 5
$ O
@4 5 " 4 5 $ LL O @4 5
$ L LO
@4 5 " 94 5 $
LLO @ 6$ 24
?$ #LL LLO
@"" $ (4 ?$ LL O @"" g lst
H g exp H g nextp H g fail-k H g ellipsis-allowed? H g pvar-lst H g depth H g cata-fun H g cata-defs H g dotted-vars H g tmp
H g tmp 4 H g tmp C g tmp
o g tmp g tmp g filenamef sxml/sxml-match.ss
Q H
g nameg compile-item-list C'' h8 p ] C h g x
6 g nx 6 g ct 6 g body 6 g fail-to 6 6 CFG h ]B4L 54 5 4L4LL5L LL> G LL 45 $ 4 ?"
45 D g cata
g cvar g new-exp g ctemp g
next-tests @ g new-pvar-lst @ g
new-cata-defs @ g new-dotted-vars @ g tmp X g tmp c
g filenamef sxml/sxml-match.ss / %
/ ; / %
/ 0 # 0 / 2 ! " 3 ( 5 e 8 e ? 2 ! C 1 X : : CY' h8 p ] C h g x
6 g nx 6 g ct 6 g body 6 g fail-to 6 6 CFG
h ]A4L 54 5 L $ " 4L > " G 4L 4LL5L L LL> G LL 45 $ 4?"
4 5 D g cvar
g new-exp g ctemp g
next-tests f g new-pvar-lst f g
new-cata-defs f g new-dotted-vars f g tmp ~ g tmp g filenamef sxml/sxml-match.ss I %
I ; I %
I J # J I " K ' B , L 0 : B C P ! H Q ( [ e ^ e e P ! i O ~ X X CfY h _ ]L 6 W g i
g filenamef sxml/sxml-match.ss * B C h W ] 6O g i
g filenamef sxml/sxml-match.ss CY h _ ]L 6 W g i
g filenamef sxml/sxml-match.ss * B C+QRST h8 ] 4 5 45$ C45$ C45$ C6 g literal
8 g x 8 g filenamef sxml/sxml-match.ss H H I I I J # I $ J & K 0 I 1 K 8 L
8 C' h@ ` ] L C X g x
= g nx = g body = g fail-to = = CFG hx E ]94L 5 4LLLL> G LL 45 $ 4 O ?"
45 D = g literal
q g new-exp
q g
next-tests q g new-pvar-lst q g
new-cata-defs q g new-dotted-vars q g tmp 6 i g tmp A f g filenamef sxml/sxml-match.ss %
; %
! # 6 q
q CFG h k ] 6c g tag
g item g filenamef sxml/sxml-match.ss f C'U)* h K ] C C g x
g nx g body CFG h` L ]34LL > G L L 45 $ 4?"
45 D D g
more-pvar-lst
] g more-cata-defs ] g more-dotted-vars ] g
next-tests ] g new-pvar-lst ] g
new-cata-defs ] g new-dotted-vars ] g tmp ' U g tmp 2 R g filenamef sxml/sxml-match.ss
l 6 p F m 8 ' t B ] t : ] C'U<= h P ] C H g x
g body g fail-to CFG h d ]:4L 5 4L L LLO LLLLLL > G LL 45 $ 4?"
45 D \ g tag
g item g new-exp
g after-tests ; g after-pvar-lst ; g after-cata-defs ; g after-dotted-vars ; g tmp O } g tmp Z z g filenamef sxml/sxml-match.ss g %
g ; g %
g
g i ! > h O
C h Y ] 6Q g var
g filenamef sxml/sxml-match.ss C'QRSTU h8 ` ] L C X g x
6 g nx 6 g body 6 g fail-to 6 6 CFG hx S ]94L 5 4L4L L5LL> G LL 45 $ 4 O ?"
45 DK g var
x g new-exp
x g
next-tests ' x g new-pvar-lst ' x g
new-cata-defs ' x g new-dotted-vars ' x g tmp = p g tmp H m g filenamef sxml/sxml-match.ss %
; %
! 0 & ! * = ! x ! x C hP , 3 4 5 " 4 5
$ LO
@4 5 $ LLO
@4 5 " i4 5
$ LO
@ 4
?$ LO @ 4 ?$
O @ 6 $ *4 ?$ L O @"g"c $ &4 ?$ LO @"" g item
I g exp I g nextp I g fail-k I g pvar-lst I g depth I g cata-fun I g cata-defs I g dotted-vars I g tmp I g tmp
g tmp H g tmp v g tmp
g tmp g tmp g filenamef sxml/sxml-match.ss
I g nameg compile-item CYV h8 ] ( C4 L 5$ L L 6 " g lst
1 g filenamef sxml/sxml-match.ss
Y Z \ \ , \ \ ] 1 ( B + ` $ 1 ` 1 g nameg
check-pvar C h0 ]
O L Q 4> " G C g pvar
- g pvar-lst - g
check-pvar - g filenamef sxml/sxml-match.ss
X a , b - g nameg add-pat-var C') h : ] C 2 g cf
g ct
CFGUkl h M ] C E g ct
g nct g body C hx V ]
$ ) 45 $ @64 5 4L 5 45 $ @6 N g depth
u g cfun u g ctemp u g tmp 3 g tmp 3 g new-ctemp > u g tmp S u g tmp ^ u g filenamef sxml/sxml-match.ss
g h
h i 4 l ( ; l > = l ( > l # > l E o ( J o : P o ( S m u g nameg process-cata-exp C' h P ] LL 6 H g filenamef sxml/sxml-match.ss /
C h s ] 4L 5C k g fst
g rst
g filenamef sxml/sxml-match.ss 6 #
CFG hH ]4 5 $
LLO @4 5 $ L O @ 6 g items
D g tmp
D g tmp ( D g filenamef sxml/sxml-match.ss
D g nameg iter C h( ] ( CO L Q 6 g lst
& g iter & g filenamef sxml/sxml-match.ss
" * # $ & & g nameg cata-defs->pvar-lst C'{ h8 , 3 C g compile-clause
2 g cata 2 g cvar 2 g gexp 2 g action0 2 g action 2 g exp 2 g cata-fun 2 g fail-exp 2 2 C' h ] C
CY hh , 3 45 $ 4?" $ , C
L 6 g compile-clause
g g cvar g g gexp g g action0 g g action g g exp g g cata-fun g g fail-exp g g tmp ' g filenamef sxml/sxml-match.ss +
\ * g B g C h , 3 C g compile-clause
g cata g cvar g action0 g action g exp g cata-fun g fail-exp C' h ] C
CY hP ]45 $ 4?" $ CL 6 g compile-clause
P g cvar P g action0 P g action P g exp P g cata-fun P g fail-exp P g tmp # g filenamef sxml/sxml-match.ss '
E * P B P CY h , 3 L 6 g compile-clause
g i g gexp g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss B & B CY h ]L 6 g compile-clause
g i g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss F & B CFG+QRST h8 E ]45 45$ C45$ C45$ C6= g compile-clause
8 g literal 8 g action0 8 g action 8 g exp 8 g cata-fun 8 g fail-exp 8 g x 8 g filenamef sxml/sxml-match.ss H H I I I J # I $ J & K 0 I 1 K 8 L
8 C h ] C g compile-clause
g literal g action0 g action g exp g cata-fun g fail-exp C+QRST h@ W , 3 45 45$ C45$ C45$ C6 O g compile-clause
< g literal < g gexp < g action0 < g action < g exp < g cata-fun < g fail-exp < g x
< g filenamef sxml/sxml-match.ss H
H I I I J ' I ( J * K 4 I 5 K < L
< C h0 , 3 C g compile-clause
, g literal , g gexp , g action0 , g action , g exp , g cata-fun , g fail-exp , , C h ]6 g compile-clause
g pat g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss O
CY h ]L 6 g compile-clause
g pat g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss P & B C h , 3 6 g compile-clause
g pat g gexp g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss J
CY h , 3 L 6 g compile-clause
g pat g gexp g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss K & B C h , 3 6 g compile-clause
g fst g rst g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss *
C h ]4L4L LL55 D g new-pvar-lst
g
new-cata-defs g new-dotted-vars g filenamef sxml/sxml-match.ss
. 0 / : 0 M / : / 2 C
' h ] C
C) h A ] L C 9 g fail-to
g body CFG
h , 3 4LLL O
45 $ 4?" > G
4 5
$ O
@ 6 g compile-clause
g fst g rst g action0 g action g exp g cata-fun g fail-exp g tmp * B g result J g pvar-lst J g cata-defs
J g dotted-vars J g tmp \ g tmp
g g filenamef sxml/sxml-match.ss , 8 0 C ; 0 D < 0 I , M +
\ = C h , 3 6 g compile-clause
g fst g rst g gexp g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss
C,
')34 h A ]L C 9 g body
g fail-to CFG hX ]4L 4LLL55 45 $ 4LO ?"
45 D g new-pvar-lst
X g
new-cata-defs X g new-dotted-vars X g tmp P g tmp ( M g filenamef sxml/sxml-match.ss
0 > Q > 3 X 2 X C
' h ] C
C)@ h A ] L C 9 g fail-to
g body CFG
h , 3 4LLL O
45 $ 4 ?" > G
4
5 $ O @
6 g compile-clause
g fst g rst g gexp g action0 g action g exp g cata-fun g fail-exp g tmp , D g result L g pvar-lst
L g cata-defs L g dotted-vars L g tmp
^ g tmp i g filenamef sxml/sxml-match.ss " 0 E # 0 F $ 0 K O
^ % CA+ h , 3 45$ 45CC g compile-clause
g lst g rst g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss
2 8 - CS h ]4L4L LL55 D g new-pvar-lst
g
new-cata-defs g new-dotted-vars g filenamef sxml/sxml-match.ss
. 8 K 8 0 C
' h ] C
C)_`a h( A ]L L C 9 g body
% g fail-to % % CFG
h , 3 4LLL O
45 $ 4?" >
G
4 5
$
O
@ 6 g compile-clause
g lst g rst g action0 g action g exp g cata-fun g fail-exp g tmp ( @ g result H g pvar-lst H g cata-defs
H g dotted-vars H g tmp Z g tmp
e g filenamef sxml/sxml-match.ss . A . B . G K
Z CA+ h " , 3 45$ 45CC g compile-clause
g lst g rst g gexp g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss
2 8 - Ct
')|} h E ]L C = g exp-body
g fail-to CFG hX ]4L 4LLL55 45 $ 4LO ?"
45 D g new-pvar-lst
X g
new-cata-defs X g new-dotted-vars X g tmp P g tmp ( M g filenamef sxml/sxml-match.ss
. @ S @ 1 X 0 X C
' h ] C
C) h( A ] L L C 9 g fail-to
% g body % % CFG
h , 3 4LLL O
45 $ 4 ?" >
G
4
5 $
O @
6 g compile-clause
g lst g rst g gexp g action0 g action g exp g cata-fun g fail-exp g tmp * B g result J g pvar-lst
J g cata-defs J g dotted-vars J g tmp
\ g tmp g g filenamef sxml/sxml-match.ss . C . D . I M
\ C h ]6 g compile-clause
g var g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss
C h ] C g compile-clause
g var g action0 g action g exp g cata-fun g fail-exp C h , 3 6 g compile-clause
g var g gexp g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss
C h0 , 3 C g compile-clause
- g var - g gexp - g action0 - g action - g exp - g cata-fun - g fail-exp - - C 3 h@ ]O O O O O O O O O Q Q Q Q Q Q Q Q Q 4
5
" s4
5 $
@4
5 $ O @4
5
" 4
5 $ @4
5 $ O @4
5 " 4
5 " q4
5 " :4
5 " 4
5 $ O @4
5 $ O @4
5 " 4
5 " e4
5 " 74
5 " 6$ 4 ?$ @""$ 4!?$ "@""$ 4#?$ $ O @"{"w$ 4%?$ & O @"H"D$ 4'?$ (O @""$ 4)?$ *O @""$ 4+?$ ,O @"k"g$ 4-?$ .O @"4"0
$ 4/
?$ 0
@""
$ 41
?$ 2
@"r"n g stx
9 g process-cata-defs U 9 g process-output-action U 9 g compile-element-pat U 9 g compile-attr-list U 9 g compile-item-list U 9 g compile-item U 9 g add-pat-var U 9 g process-cata-exp U 9 g cata-defs->pvar-lst U 9 g tmp
9 g tmp g tmp g tmp
g tmp g tmp g tmp % g tmp 4 g tmp C g tmp R g tmp a [ g tmp } [ g tmp [ g tmp 7 g tmp g tmp g filenamef sxml/sxml-match.ss
>
? 9 C5R4"$' h h ]C ` g dummy
g exp g cata-fun g clause C h8 } ] C u g dummy
2 g exp 2 g cata-fun 2 g clause0 2 g clause 2 2 CFG h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef sxml/sxml-match.ss
_ 9 g
macro-typeg syntax-rulesg patternsg expg cata-fung clause g expg cata-fung clause0g clauseg ... C5R4"$' h0 g ] C _ g dummy
, g val , g clause0 , g clause , , CFG h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef sxml/sxml-match.ss
l " g
macro-typeg syntax-rulesg patternsg valg clause0g clauseg ... C5R4"$' h { ]C s g dummy
g syntag
g synform
g body0
g body
C !# h8 ] C g dummy
6 g syntag 6 g synform 6 g pat 6 g exp 6 g body0 6 g body 6 6 C*;<>A?@ABC
hP , 3 45 C g dummy
J g syntag J g synform J g pat0 J g exp0 J g pat J g exp J g body0 J g body J J CFG
hP ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef sxml/sxml-match.ss
s P g
macro-typeg syntax-rulesg patternsg syntagg synformg body0g bodyg ... g syntagg synformg patg exp g body0g bodyg ... g syntagg synformg pat0g exp0 g patg exp g ... g body0g bodyg ... C5R4"D$'H'f\>A] h0 1 ]4 L5L L4L 5LL C ) g temp-name
- - CFG h@ ]45 45 $ O @6 g sxml-match-let-help
: g syntag : g synform : g pat : g exp : g body0 : g body : g tmp : g tmp : g filenamef sxml/sxml-match.ss ( : CFG h( h ] 4 5 $ @ 6 ` g stx
" g tmp " g filenamef sxml/sxml-match.ss
" C5DR4"$'Fn>A h } ] L 45C u g sxml-match-let
g pat g exp g body0 g body CFG h( h ] 4 5 $ O @ 6 ` g stx
' g tmp ' g filenamef sxml/sxml-match.ss
' C5R4"$'y h \ ]C T g sxml-match-let*
g body0
g body
C(>A h0 ] L 45 C g sxml-match-let*
* g pat0 * g exp0 * g pat * g exp * g body0 * g body * * CFG h@ y ]4 5 $ @4 5 $ O @ 6 q g stx
> g tmp > g tmp " > g filenamef sxml/sxml-match.ss
> C5RC g m
, g filenamef sxml/match.scm
e 1
g filenamef sxml/sxml-match.ss $
(
/ 6
x
C6 PK ! sHA transform.gonu [ 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 reverseC 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-replyg
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 4L 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 $ " $ 45$ " " 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 PK ! .+ .+ xpath.gonu [ GOOF----LE-8-2.0+ ] @ 4 h ] g guile g define-module* g sxml g xpath g filenameS
f sxml/xpath.scm g importsS g ice-9
g pretty-print
g exportsS g nodeset? g node-typeof? g node-eq? g node-equal? g node-pos g filter g
take-until g
take-after g map-union g node-reverse g
node-trace g select-kids g node-self g node-join g node-reduce !g node-or "g node-closure #g node-parent $g sxpath % !"#$ &g set-current-module '& (& )g * *g memq +g @ ,g *PI* -+, .g *any* /g *text* 0g string? 1g length 2g error 3f yikes! 4g reverse 5g append 6g cons 7g display 8f
--> 9f : :g
procedure? ;g // g number? ?f Invalid path step: C 5 h% ]4
%5 4( > " G h( ] $ " $ C C g x
" g t " g filenamef sxml/xpath.scm
o
p p p #
p p p ! p . " g nameg nodeset? CR)*-./0 hP ]L $ $ 4 5CCL $ CL $ 6 $ L CC g node
J g filenamef sxml/xpath.scm
" ( " ) : = A F # G J C h m ] O C e g crit
g filenamef sxml/xpath.scm
g nameg node-typeof? CR h ^ ]L CV g node
g filenamef sxml/xpath.scm
C h j ] O C b g other
g filenamef sxml/xpath.scm
g nameg node-eq? CRh ^ ]L CV g node
g filenamef sxml/xpath.scm
C h m ] O C e g other
g filenamef sxml/xpath.scm
g nameg node-equal? CR123 hx 5 ] 4 5$ e ( C L & CL
$ 4L 4 55 6L
$ " 4> " G 4L 5 6C - g nodeset
t g t D e g filenamef sxml/xpath.scm
# ' , - 2 3 & : < @ C
D Q U Z f k m p r s t C h f ] O C ^ g n
g filenamef sxml/xpath.scm
g nameg node-pos CR4 hh 9 ]" ?( 64L 5 $ ( " " "4 5$ " " 1 g lst
d g lst E g res E g pred-result E g filenamef sxml/xpath.scm
$
% + 4 7 E E F P [ + \ = d d C h h ] O C ` g pred?
g filenamef sxml/xpath.scm
g nameg filter CR h@ ] ( C4L 5 "
4L 5C$ ( "C" g lst
< g pred-result < g filenamef sxml/xpath.scm
$
" & $ % & 2 7 < g nameg loop C h0 ] O L Q 4 5$ " 6 g lst
, g loop , g filenamef sxml/xpath.scm
* + , , C h l ] O C d g pred?
g filenamef sxml/xpath.scm
g nameg
take-until CR h`
]" 8( C4L 5 " "$ ( "C"4 5$ " " g lst
Z g lst > g pred-result > g filenamef sxml/xpath.scm
$
& & 2 9 > ? I T + Z Z C h l ] O C d g pred?
g filenamef sxml/xpath.scm
g nameg
take-after CR56 h8 ]
( C4 5 45$ " 4 56 g proc
6 g lst 6 g proc-res 6 g filenamef sxml/xpath.scm
+ 2 " 4 6
6 g nameg map-union CR4 h ]4 5$ 6 C g node-or-nodeset
g filenamef sxml/xpath.scm
) g nameg node-reverse CR789
hP ]4> " G 4L > " G 4> " G 4 > " G C g node-or-nodeset
M g filenamef sxml/xpath.scm
' +
0 9
M C h l ] O C d g title
g filenamef sxml/xpath.scm
g nameg
node-trace C R h8 ] ( C $ ! $ 4L 5 64L 5 6C g node
5 g filenamef sxml/xpath.scm
3 4 6 4 7 7 4 8 $ 8 & 8 ) 9 3 9 4 6 5 C h r ] O C j g
test-pred?
g filenamef sxml/xpath.scm
2
g nameg select-kids C Ri R hH ]" 5( C45$ 45" 45 " L " g nodeset
G g nodeset ; g selectors ; g filenamef sxml/xpath.scm
I J K M M N N $ N ) O , O 0 O 3 P ; L
; J G C h q - 1 3 O C i g selectors
g filenamef sxml/xpath.scm
H
g nameg node-join C R h0 ]" ( C45 " L " g nodeset
. g nodeset " g
converters " g filenamef sxml/xpath.scm
] ^ _ ` ` ` ` + " `
" ^
. C h t - 1 3 O C l g
converters
g filenamef sxml/xpath.scm
\
g nameg node-reduce C R5 hH ]" 5( C44 5 $ " 5 "L " g node-or-nodeset
F g result ; g
converters ; g t . g filenamef sxml/xpath.scm
p q r s s # s $ s # s + s F 0 s 3 t ; s
; q < q F q F C h p - 1 3 O C h g
converters
g filenamef sxml/xpath.scm
o
g nameg node-or C!R )5 hH ]" 5( C444555444L 555 " " g node
F g parent ; g result ; g filenamef sxml/xpath.scm
, ! & ' 1 3 ;
; > % F F C h s ] O C k g
test-pred?
g filenamef sxml/xpath.scm
g nameg node-closure C"R#! ) +" hx ] 4 5$
4L 5 64444554 4
5554 4 4 554 4
5555 4454
55L 6 ~ g node
r g pred Y r g filenamef sxml/xpath.scm
# ! $ ( * * , - 0 8 : ; > A E , G I J M U W Y Y \ _ f n r
" r C h p ] O C h g rootnode
g filenamef sxml/xpath.scm
g nameg node-parent C#R$:;56". <=>2? h ]( C4 5$
45 645$ 4 5 "& 444 5$ " 444
55 55 "$ 44 4 55 5 "^$ & 44 4
?5 5 ".& 44 4?5 5 "" T(
"45$ 4455 "444555 "$ 44 4 55 5" 4L 5 "u6 g nodeset
g path g nodeset T g
reducing-path T g filenamef sxml/xpath.scm
# $ ) + / 0 3
7 : ! B D G K L M W b c f j % l n r t w
(
# +
-
# (
*
.
! & ( , / 7
8 9 < A $ C E I L T
T W " Y ] ^ _ b ' g 5 j ' l p u | ' #
# r g nameg loop C h r ] O Q L 6 j g nodeset
g loop
g filenamef sxml/xpath.scm
C h g ] O C _ g path
g filenamef sxml/xpath.scm
g nameg sxpath C$RC g m
, g filenamef sxml/xpath.scm d
o
)
k
_
0
u 2
| A
l H
\
o
6
%
%
C6 PK ! Ӝ
2 2 ssax/input-parse.gonu [ GOOF----LE-8-2.01 ] l 4 ho ] g guile g define-module* g sxml g ssax g input-parse
g filenameS f sxml/ssax/input-parse.scm g importsS
g ice-9 g rdelim
g exportsS g peek-next-char g assert-curr-char g
skip-until g
skip-while g
next-token g
next-token-of g read-text-line g read-string g find-string-from-port? g set-current-module g
integer->char !g ascii->char "g
char->integer #g char->ascii $g char-newline %g char-return &g 1+ 'g inc (g 1- )g dec *g make-syntax-transformer +* ,* -g
define-opt .g macro /g $sc-dispatch 0/ 1/ 2g _ 3g any 423 5g
syntax->datum 65 75 8g
datum->syntax 98 :8 ;g reverse g append ?g optionalS @g syntax-violation A@ B@ Cf -source expression failed to match any pattern Dg throw Eg parser-error Fg current-input-port Gg read-char Hg peek-char Ig memv Jf Wrong character Kf (0x Lg eof-object? Mf *eof* Ng number->string Of ) Pf . Qf expected Rg number? Sf Unexpected EOF while skipping Tf characters Ug memq Vg *eof* Wf $Unexpected EOF while skipping until Xg make-string Yg input-parse:init-buffer Zf [g
string-length \g substring ]f EOF while reading a token ^g
string-append _g string-set! `g next-token-old ag string-concatenate-reverse bg
procedure? cg *read-line-breaks* df reading a line eg list->string fg delete gg read-delimited hg peek ig read-line jg char=? kg
string-refC 5 hP( ]4
5 4 > " G i!R"i#R
$R
%R&i'R(i)R4,-.147:;<=>? hp r - 1 3 4 5 $ $$ & " " " $ 4455C C j g bindings
n g body n g body-rest n g rev-bindings n g opt-bindings > n g filenamef sxml/ssax/input-parse.scm
J
K K M M
M + M $ ! M
# N & N + M
. O > K F P H Q I Q L Q S Q 5 T Q $ V Q Z Q _ Q d T n
C h m ] 4 5 L 4?6e g args
g v g filenamef sxml/ssax/input-parse.scm J
CBC h( k ] 4 5 $ O @ 6 c g y
' g tmp ' g filenamef sxml/ssax/input-parse.scm
J
' C5-RDE h - 1 3 @ g port
g message g rest g filenamef sxml/ssax/input-parse.scm
V
W W
g nameg parser-error CERFGH h8 - . , 3 # 45 4 > " G 6 g port
1 g filenamef sxml/upstream/input-parse.scm
,
, , - 1 . 1
g nameg peek-next-char CRFGIEJKLMN"OPQ hh H - . , 3 # 45 45 4 5$ C45$ " 4 4
5 5
6
@ g expected-chars
g g comment g g port g g c g g filenamef sxml/upstream/input-parse.scm
;
< . = = # > / > 8 ? < @ = @ G @ I @ & N A Q A $ [ A ] A ; a B e B ' g ? g g nameg assert-curr-char CRFRLGEST)IUVW
h - . , 3 # 45 4 5$ O" C
$ 94455$ 4 > " G " 45 "C "" B4 5$ C45$ 4
5$ C 645 "45 " g arg
g port g i ( k g c w g filenamef sxml/upstream/input-parse.scm
Q
Q , S $ R ( T + U 0 T 1 V 4 V < V @ V
A W G W K X P W ] T i T w Z x \
[ ]
[ ^ ^ ^ ^ _ _
` ` Z Z Z " g nameg
skip-until CRFIGH h` - . , 3 # 45 " /4 5$ 4> " G 45 "C45 " g
skip-chars
Y g port Y g c L g filenamef sxml/upstream/input-parse.scm
k
k 3 l m * l + n = l I l M l
Y l Y g nameg
skip-while CR4Xi 5 h Q ] L C I g filenamef sxml/upstream/input-parse.scm
C O YRZFY[I\LUVE]^X_G'H h - . , 3 # # 45 45 H4J5HJH" 45$ J
645$ 4 5$ J
6
6J$ !4 J4
J55KJK4J5K" 4J> " G 4> " G 4545 "W
4 5 "E g prefix-skipped-chars
g break-chars g comment g port g buffer ( g curr-buf-len 1 g quantum 5 g i ; g c ; g filenamef sxml/upstream/input-parse.scm
+ 5 $ ( + 1 ; < H Q R \ ] a e i
r x |
1 !
& g nameg next-token-old C`RZF[I\aLUVE]X_G'HY h - . , 3
# # 45 " 45 " 4 5$ (
664 5$ 04 5$ (
66
6$ 4 5 "q4
> " G 4> " G 4545 "@
"545 4 5 " g prefix-skipped-chars
g break-chars g comment g port g buffer ' g filled-buffer-l ' g c ' g curr-buf-len . g i 4 g c 4
g filenamef sxml/upstream/input-parse.scm
% / ' ( . 4 5 A G P ( Z [ e f j n r x * ! B ( g nameg
next-token CRFY[bXH_G'\aI
hh j - . , 3 # 45 45 45 4 5$ " " $ 45 "4 455 $ 54> " G 4> " G 4 5 "(
6 6
"z "k" " $ 45 "45 4 5$ 54> " G 4> " G 4 5 "(
6 6
"x "ib g incl-list/pred
h g port h g buffer h g curr-buf-len ' h g buffer 8 g filled-buffer-l 8 g i < g c e g buffer ] g filled-buffer-l ] g i V g c V g filenamef sxml/upstream/input-parse.scm
+ ! ' * 4 8 < A E F Q , Y
Z ] # e e
m n * 1
,
1 = C L , V V
] ` 1 h 6 h g nameg
next-token-of CR$i%iV cRFLHcdG% h J - . , 3 # 45 44 55$ 64 5 4 5 $ (4 5
$ 4 > " G " " C B g port
z g line ; z g c D z g filenamef sxml/upstream/input-parse.scm
*
* , + + % + ) + / + % 0 -
3 - 7 . ; -
; , > / D , K 0 O 0 P 0 ' Y 0 ! ] 0 ^ 1 z
g nameg read-text-line CRFXL\'_GZ h - . , 3 # 45
$ m4 5 " P45$
645 4> " G $ C45 "
45 "C g n
g port g buffer ( g i . ~ g c . ~ g i1 I ~ g filenamef sxml/upstream/input-parse.scm
<
< + = ! = " > ( > . ? / @ 9 @ B @ C A I A
L B f C j C p D ~ D ~ ? ? ? = g nameg read-string CRZFefVLHUE]gh h - . , 3 # # 45 4455 4 ( 45" 4 55$ 4 5$ C
64
5 4455$ 4 5$ C
6C g prefix-skipped-chars
g break-chars g comment g port g delims 1 g token { g filenamef sxml/ssax/input-parse.scm
]
^ + ^ 5 $ _ ' _ + _ & / _ 1 _ 1 _ 4 ` < ` = a H b R ` V ` W c [ c _ c c c e d l e p e q f y f 1 { f { f ~ g g g g
h h h g i ! i % g nameg
next-token CRFi h - . , 3 # 45 6 g port
g filenamef sxml/ssax/input-parse.scm
l
l , m
g nameg read-text-line CRRHLb hp ]4M5 $ " MM $ K4L5 M $ C4 5$ C4M5$ N 4M 5$ C CM $ C CC g t
g c
* n g filenamef sxml/ssax/input-parse.scm
| | !
|
| } # | $ ~ ! * ~ 2 6 ! @ C ! M P ! Q % [ ! e ! i p
g nameg my-peek-char CGjk[ hp - 1 3
HJ( " JKHHO " G45 $ 8K4> " G JK44
55$ "
"C" b4 5$ JC45 $ B44 55$ #K4> " G JK " " C" c
$ "<" E $ "r44 54 55$ " "
"Q
KK " ~ g str
i g
i g max-no-char
i g
no-chars-read i g peeked? i g c 7 y g pos-to-match } g c g i F g matched-substr-len F g j F g k ? g my-peek-char F i g
no-chars-read S e g peeked? S e g filenamef sxml/ssax/input-parse.scm
t
w w / w x 2 3 7
? B C / W / Y Z _ & h l s w }
( / / 3
" " ! 2 # " % ) , 2 5 % ? ? F x i > i
g nameg find-string-from-port?g
documentationf dLooks for @var{str} in @var{}, optionally within the
first @var{max-no-char} characters. CRC g m
, g buffer
] g filenamef sxml/ssax/input-parse.scm 6
3 B
: C
? D
D E
K F
R G
V
g filenamef sxml/upstream/input-parse.scm i ,
C ;
Q
S k
T ]
( : ( (
*
<
g filenamef sxml/ssax/input-parse.scm ]
l
(I t
(K
C6 PK ! oC ssax.gonu [ 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 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 opp 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 ;<= ?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 QsP Rs%P SxG Tf l-b6cceb-8b Uf l-b6cceb-8c VTU WwS)V XvW YsX 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 jwgi kvfj lsk ms3k ng run-test of scan-exp po qg define rg m-b6cceb-9c sru ts uf l-b6cceb-9e vu wwtv xvw ysqx z2y {zoo |op{ }g body ~x} svv f l-b6cceb-a1 f l-b6cceb-a2 f l-b6cceb-a3 w~ vw sq sn so opo g
letrec-syntax g ?body x sv f l-b6cceb-a8 f l-b6cceb-a9 w vw 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 DwAC 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 RwOQ SvNR 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 stringstring 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 51 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 XwUW YvTX ZsY [g start-tag-head \s[Y ]sY ^g elems _s^Y `g entities as`Y bg
namespaces csbY dg preserve-ws? esdY fsY g\]_acef hsqY ig xml-space-gi jsiY kg cons lskY msmY nsY of space psoY qnp rlmq shjr tstY ug handle-start-tag vsuY w\\ x]] yaa zcc {ee |g parent-seed }s|Y ~}f wxyz{~ sY g elem-gi sY g
attributes sY g expected-content sY c s-Y \]_ac f c} s3Y sY c}f g EMPTY sY sY sY g eqv? sY s<Y s_Y ] s)Y ] s#Y syY s8Y g exp-kind sY g exp-head sY s9Y f [elementvalid] broken for sY f while expecting sY ] Z \ sY s Y sY j sY g
name-value sY g equal? sY f preserve sY sGY Z e e sY g expect-eof? sY sY ff xy g
term-token sY f s/Y sY sY sY f [GIMatch] broken for sY ] Z \ s|Y s2Y s Y ]f ]af sY sY ]af sY ]af Z sY g eq? sY g PCDATA sY f * with char content only; unexpected token sY ] v]acef f t f XML [43] broken for sY ] 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 S R 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 n m oi poj q i 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->SXMLC 5 hТ ]4
45 47 > " G 89 h - 1 3 @ g port
g message g rest g filenamef
sxml/ssax.scm
g nameg parser-error C9R:i;Ri4?i5 5R4@ii5ARDEFGH hP ]
45$ " 4 > " G 4 5Y4> ZCZF g port
M g thunk M g
t-b6cceb-a M g filenamef
sxml/ssax.scm
B M g nameg with-ssax-error-to-port CRIJKLM h0 n ] 4> " G 4L > " G 6 f g filenamef
sxml/ssax.scm
, ,
C h - 1 3 45 O 6 g port
g args g filenamef
sxml/ssax.scm
g nameg ssax:warn CNRO: h ]4 56 ~ g codepoint
g filenamef
sxml/ssax.scm
g nameg ucscode->string CPR
QR
RR SRTURef h ] C g filenamef
sxml/ssax.scm
g nameg reset-parsed-entity-definitions!g
documentationf BRestore the set of parsed entity definitions to its initial state. C$Rf h \ ] C T g entity
g str g filenamef
sxml/ssax.scm
g nameg define-parsed-entity!g
documentationf Define a new parsed entity. @var{entity} should be a symbol.
Instances of &@var{entity}; in XML text will be replaced with the
string @var{str}, which will then be parsed. C#R4ijknr h R ] 45C J g dummy
g form g form1 C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef
sxml/ssax.scm
" g
macro-typeg syntax-rulesg patternsg formg form1g ... C5jR4ikn h A ]C9 g dummy
g bodies C h } ] C u g dummy
g var g initializer g rest g bodies C h ~ ] C v g dummy
g vars g initializer g rest g bodies C
hP ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef
sxml/ssax.scm
P g
macro-typeg syntax-rulesg patternsg bodiesg var g initializer g restg bodiesg varsg initializer g restg bodies C5RiRiR4ik hh ]" S4 5$ 6" 45 " $ $4 L 5$ 45 """45 " g sexp
Y g out Y g filenamef
sxml/ssax.scm
! * * - 1 2 7 & ; ? @ I Q Y
Z _ ( g
g
C h ]45 O 6 g accept-list
g file g filenamef
sxml/ssax.scm
g nameg
read-filtered Cnnp h + ] C# g exp
C h@ ]4L 4L4 54555 45 $ @6 g accept-list
> g file > g tmp > g tmp ' > g filenamef
sxml/ssax.scm ! " " ! > C h0 | ] 4 5 $
O @ 6 t g x
- g
read-filtered - g tmp - g filenamef
sxml/ssax.scm
- C5R4ikn "$ h0 R ] C J g dummy
, g expr , g r-exp , , C'/01 h ? ]C 7 g dummy
g expr C:AB h R ] C J g dummy
g expr g r-exp CEQR h e ]4 5C] g dummy
g expr g expr1 g stuff CqYZ h @ ]C 8 g dummy
g stuff
C h ])4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @
6 g x
~ g tmp ~ g tmp " ~ g tmp 9 ~ g tmp P ~ g tmp g ~ g filenamef sxml/upstream/assert.scm
~ g
macro-typeg syntax-rulesg patternsf doitg exprg ... g r-expg ... f collectg exprg ... f collectg exprg ... g report:g r-expg ... f collectg exprg ... g expr1g stuffg ... g stuffg ... C5R4i[kn\lm h U ] C M g dummy
g exp g error-msg C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef sxml/upstream/assert.scm
" g
macro-typeg syntax-rulesg patternsg expg error-msg C5[R4inkn| h Q ] C I g dummy
g vars g body C&( h @ ] C 8 g dummy
g ?body Cq/234 h 5 ] C - g
tmp-b6cceb-b1
C h ? ]45C 7 g dummy
g body C
hP ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef sxml/upstream/SSAX.scm
2 P g
macro-typeg syntax-rulesg patternsf scan-expg defineg varsg body f scan-expg ?body g bodyg ... C5nR h ] C g kind
g head g filenamef sxml/upstream/SSAX.scm
# g nameg make-xml-token C5R6iR4iknF h @ ] C 8 g dummy
g token
C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef sxml/upstream/SSAX.scm
" g
macro-typeg syntax-rulesg patternsg token C5R4i knT h @ ] C 8 g dummy
g token
C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef sxml/upstream/SSAX.scm
" g
macro-typeg syntax-rulesg patternsg token C5 RUVW h ]4 5
$ C $ 4
56 $ 44
55$ 4 56C" 1 $ C44 55$
45 "C
" g str
g len g i U g t Z g filenamef sxml/upstream/SSAX.scm
q
r
r t s u s u " ) u . v 2 s 3 v 6 v ' ? v C v F w ' O w U y Z z Z z f { i { # s { w { x | | y g nameg string-whitespace? CXR hH P ]" 6( D $ 45D " " H g val
G g alist G g alist < g scanned < g filenamef sxml/upstream/SSAX.scm
' * ) + . 1 4 < < ? $ G G g nameg assq-values CYR h ] ( LC L 4L 56 g lis
g head g filenamef sxml/upstream/SSAX.scm
g nameg recur C h ] O Q 6 g kons
g knil g lis1 g recur g filenamef sxml/upstream/SSAX.scm
g nameg
fold-right CZR h0 ]" ( C4 5 " " g kons
0 g knil 0 g lis1 0 g lis $ g ans $ g filenamef sxml/upstream/SSAX.scm
$ $
0 g nameg fold C[R40i;i\5]R^] h } ] 6 u g port
g filenamef sxml/upstream/SSAX.scm
g nameg ssax:skip-S C_R`ab h0 ] 4 5$ 4 5 $ C_ 6C g a-char
) g t ' g filenamef sxml/upstream/SSAX.scm
' ) g nameg ssax:ncname-starting-char? CcRdc9e`fagh h0 ]4 5$ C4 5$ C4 5$ CC g c
/ g filenamef sxml/upstream/SSAX.scm
" & *
/ C hP ]4 5 45 $ " 4 > " G 4 56 g port
I g
first-char < g t 9 g filenamef sxml/upstream/SSAX.scm
% ) 6 . ? I I g nameg ssax:read-NCName CiRidj h@ ]4 5 4 5 :$ 4 > " G 4 5CC g port
= g prefix-or-localpart = g key = g filenamef sxml/upstream/SSAX.scm
2 ! 9 = g nameg ssax:read-QName CkR4il5mRnopqrs h ] $ 2$ ( & C44 5455$ CCC$ C& C & C & 2 & C445455$ CC & C445455$ CC g name1
g name2 g symb1 k g symb2 k g symb1 g symb2 g filenamef sxml/upstream/SSAX.scm
"
&
1 .
2 4 7 : > B D M O , X Z , ^
a e h k $ k w y " {
~
1
)
"
1
2 CtR4iu54iu5sRvwxdj5yk_z{|i}~9 h ]4 > " G 4 5 /$ M4 > " G 44 55 4 > " G 4
> " G C?$ 4 > " G 4
56!$ 4 5 -$ T4 > " G 4 > " G 4 5$ " 4 > " G 6[$ O4 > " G 44 55 $ " 4 > " G 6 4
56 4 56 g port
g key g val J w g key s g t 9 _ g filenamef sxml/upstream/SSAX.scm
b c c c c d
d + e
= f A f B f $ J f J f M g _ h c h ! e h ( l h d i
i . i 2 i d k
k l X X X X Y
Y % Y
Y Z Z Z [ [ k m * _ . _ / _ 9 _ 9 _ c ` f ` j n k n % s n w o x o # o 8 C)R9 h ]4 5$ C 6 g port
g filenamef sxml/upstream/SSAX.scm
t
u u # u u v v g nameg ssax:skip-pi CR_}j hH ]4L5 >4L5$ 4L> " G C 4L 5 C g pi-fragment
B g filenamef sxml/upstream/SSAX.scm
$
5 : ; # @ B
g nameg loop C h0 ] 4 > " G O Q 45 6 g port
0 g loop . g filenamef sxml/upstream/SSAX.scm
~
0 0 g nameg ssax:read-pi-body-as-string C'R9 h ]4 5$ C 6 g port
g filenamef sxml/upstream/SSAX.scm
# g nameg ssax:skip-internal-dtd C&RRi
]& jUd}fa h ~ ]4 5$ C4 5$ CC v g c
g filenamef sxml/upstream/SSAX.scm
, CW] h ]+" ~4L 5 4 5
$ 45 "]$ 4 5]$ x" R4 5 >$ 4 > " G C]$ 45 "4 5 "b4
5$ " 45 "45 "/&$ o4 5 " 44
55 "45$ 54 5;$ #4 > " G 45 """4 5
$ 4 > " G " 45 " "z g port
g str-handler g seed g seed g fragment g key g seed R g key Y g ent-ref O g filenamef sxml/upstream/SSAX.scm
$ $ ' 7 @ A J N R S Y e % ) ) . 1 (
" 0
/ ) $ % 7 = ( A G P Y
] ^ / t H C O *RdjP9` hx i ]4 5x$ 4 > " G "
4 5 45 4 > " G 45$ 6
6 a g port
t g base * t g name 8 t g char-code C t g filenamef sxml/upstream/SSAX.scm
. * - 0 2 4 & 8 8 ; C F X b h n r < t t g nameg ssax:read-char-ref C+R4i5W4i5Z4i5]4i5`4i5c fR h f ]L LL 6 ^ g port
g filenamef sxml/upstream/SSAX.scm
F
F C9f h f ]L LL 6 ^ g port
g filenamef sxml/upstream/SSAX.scm
X
X C h % ].45 $ h 45$ O 645$ )45 4 5
4 > " G
C 64 5 $
64 5 $ ;
4 5$ 4 5
O 6 6
6 g port
g name g entities g content-handler g str-handler g seed g t g ent-body { g new-entities { g port M q g val
Z q g t g t g fallback g new-entities
g filenamef sxml/upstream/SSAX.scm
<
? > A B B A " D
, C = E
> G
H C I H M H
P J
Z I ] K
w M { M
| N > P P ( P Q Q
Q > S T T S V
U W " W
Z Z
[ [ ) g nameg ssax:handle-parsed-entity CR h q ] C i g filenamef sxml/upstream/SSAX.scm
c
c
g nameg make-empty-attlist C Rtnq hH ]
( C4 5 $ C$ C 4 5C
g attlist
E g
name-value E g key E g filenamef sxml/upstream/SSAX.scm
i
j
j k k k + k k 5 m
9 n : n " ? n / C n " D n E g nameg attlist-add C Ri R h ] D g attlist
g filenamef sxml/upstream/SSAX.scm
t
u
u
u
g nameg attlist-remove-top C R h z ] C r g attlist
g filenamef sxml/upstream/SSAX.scm
w
g nameg attlist->alist C!R[i"R4i]i5 jRd]+iv h ]L 6 g port
g entities g fragments g filenamef sxml/upstream/SSAX.scm
C h ]$ C C g str1
g str2 g fragments g filenamef sxml/upstream/SSAX.scm
C9 hH ] 4 L 5 45 45 $ " $ C$ ;45
$ 4> " G " "|4 5$ "X&$ 45#$ .4> " G 4
5 " 4 5 4
> " G 4LO 5 "6 g delimiter
A g port A g entities A g prev-fragments A g
new-fragments A g cterm A g t & ; g name - g filenamef sxml/upstream/SSAX.scm
"
& 8 ! ? G K L U Y
Z 0 w # z
#
9 ? ! A 0 A g nameg read-attrib-value CO Q c_kv 9 h ]"" 44 55$ 4 5 4 > " G 4 > " G 4 > " G 4 5 4 4
4L 555 $ " 4 5 "cC4
5 "U g port
g entities g attr-list g name g delimiter d g t g filenamef sxml/upstream/SSAX.scm
+
2 6 8 % ? H Z ^ % ` 1 d d g n q z 6 | ~ & $ CO ,Rm9 hx ] $ =45 $ " & " 4 5 C$ '45 $ $ CCCC g port
v g
unres-name v g
namespaces v g apply-default-ns? v g t A g
default-ns U s g filenamef sxml/upstream/SSAX.scm
4
6 5
9 9 9 8 & : , 8 3 < 9 < < < < > < D = E 7 L 5 M ? Q ? U ? U ? ] @ ` @ e @
h A l A
v g nameg ssax:resolve-name CR h ] 6 g uri-str
g filenamef sxml/upstream/SSAX.scm
i
j g nameg ssax:uri-string->symbol C%R4i5si 9% hp ]$ 4 > " G " 45 " 5( C& C " " g port
o g prefix o g uri-str o g
namespaces o g
uri-symbol , o g nss 2 g g filenamef sxml/upstream/SSAX.scm
& , 2 8 ? C
I O T Y ]
a g g o g nameg add-ns C ,_vz99 hP O ]"4 > G & 4L > " G " $ CC G g decl-attr
N g result N g attr-name N g content-type N g use-type N g
default-value N g filenamef sxml/upstream/SSAX.scm
" # ) ! 0 B G J
N g nameg add-default-decl C " tq9rN h ]S4 5$
L64 > G 45$ L " "
4> G 45 $ KL $ " $ L" $ "WL 6$ h 4
> G
& 4L > " G " $ "
"4
> G
& / $ " 4L > " G " c & " W $ 84 5 $ " 4L > " G " 4L > " G " g attlist
g
decl-attrs g result g attr " g attr-others " g decl-attr M g other-decls M g key _ g t p g attr-name g content-type g use-type
g
default-value g attr-name 3 g content-type 3 g use-type
3 g
default-value 3 g t L q g t g filenamef sxml/upstream/SSAX.scm
%
* 4
> C P
U Z ] * _ _ o ! p p " 9 . / % !
& ' 6 B F I L L Y _ ( f y # } ( G ! - G g nameg loop C!Z 9 h0 ]
44L L 5 5 $ CL 6 g
name-value
/ g attlist / g t / g filenamef sxml/upstream/SSAX.scm
) + / / C h ]E45 4> " G /45$ 45" $ B4 5 $ $ " " ," 4
> " $ " " G $ :
O Q O
L L Q
4
5
" 45 "
(
" L
& 6
$
" 4L
5
""
"
$ 0L
& !
4L
5
"b""
"K G
4 54 O 45
5 D g tag-head
g port g elems g entities g
namespaces g attlist g
empty-el-tag? A g t R g elem-content g
decl-attrs g add-default-decl g loop
g merged-attrs g attrs
g proper-attrs g
namespaces g proper-attrs
g
namespaces g filenamef sxml/upstream/SSAX.scm
" & ( + , - 1 2 6 8 ! < A I J R ` b i + m u
z
' A
! $ ( - 3 6 * ; E L O R ^ ^ a c
g l - r u x ) + Q C O -Riv]_j9 h ]!4 5 4 > " G 4 > " G 4 5 4 5& &4
5 4 > " G C4
5& r4 > " G 4 > " G 4 > " G 4 5 4
5 4 > " G C 6 g port
g
discriminator g delimiter > g val \ s g delimiter g systemid g filenamef sxml/upstream/SSAX.scm
# " 4
8 : ( >
> C G , I M N Q V X - \ \
_ v z - | * $ 0 $ 5 2 g nameg ssax:read-external-id C.Rb)_|9
h n ]" }45$ C4<5$ V4 5 $
4 5 "$ " $ " $ C
6 64 5 "vf g port
g c g token ( w g key - w g filenamef sxml/upstream/SSAX.scm
! "
(
- -
9 E N
s ! u w } 0 g nameg ssax:scan-Misc CR<&Ri <&Ri d)y*/}j+iv5O h0 ],<4 5$ h4 5 $ " $ D$ 4 5 6$ 6D" 4 $ L " L
5 4 5 4 5$ 4 5$ " 4
5D<$ 4 5 $ +4 4 5$ " 4
55 "g$ "4 5$ " 4
5 "<4 5$ " 4
5D&$ 4 5 #$ (4 > " G 44 55 "4 5 4 > " G 4 5$ " 4
545D4 5
$ 4 > " G " 44
55 "Y "Q g port
+ g expect-eof? + g str-handler + g seed + g token x g key x g seed O ] g seed | # g fragment # g term-char # g token ` g key ` g key p g name g filenamef sxml/upstream/SSAX.scm
M Q Q Q T T U U ; W D U E Y O Y ] Z f U r [ x ^ | e } g g ! c h ! g f
i f
k k I
I J
J # J
l o q # q r r u I
I J
J #
J
u t r I
) I 0 J
6 J # : J
@ x A I
K I R J
X J # \ J
` z i o j ~ p ~ | ' % - 4 I
I J
J # J
, 2 # # e \ + C O /R h@ ] 4 5$ &
" " $ C 6 g token
; g kind ; g gi ; g
error-cont ; g t & ; g filenamef sxml/upstream/SSAX.scm
& ;
; g nameg ssax:assert-token CR4i2knABCD h H ] C @ g dummy
g
orig-handlers C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef sxml/upstream/SSAX.scm
" g
macro-typeg syntax-rulesg patternsg
orig-handlers C52R4i3knEZgstv]fa ) h ]
! " #$%&' " ( C g dummy
g my-new-level-seed g my-finish-element g my-char-data-handler g my-pi-handlers C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef sxml/upstream/SSAX.scm
o " g
macro-typeg syntax-rulesg patternsg my-new-level-seedg my-finish-elementg my-char-data-handlerg my-pi-handlers C53R4i kn %279:@JZ^_cfglmorsuw x{|bz [\] * h ! , 3
! "#$%&'( ") C g dummy
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 C h( @ ] 4 5 $ @ 6 8 g x
" g tmp " g filenamef sxml/upstream/SSAX.scm
" g
macro-typeg syntax-rulesg patternsg *handler-DOCTYPEg *handler-UNDECL-ROOTg *handler-DECL-ROOTg *handler-NEW-LEVEL-SEEDg *handler-FINISH-ELEMENTg *handler-CHAR-DATA-HANDLERg *handler-PI C5 R4ikn2 h 6 ] C . g tmp-b6cceb-102
C h 6 ] C . g tmp-b6cceb-101
Ck hX ]445 4
55 4
5 C g dummy
X g labeled-arg-macro-name X g positional-macro-name X g arg-name X g arg-def X X C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef sxml/upstream/SSAX.scm
" g
macro-typeg syntax-rulesg patternsg labeled-arg-macro-nameg positional-macro-nameg arg-nameg arg-defg ... C5R4i1knh npFv h0 G ]
C ? g dummy
, g kw-val-pairs , , C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef sxml/upstream/SSAX.scm
" g
macro-typeg syntax-rulesg patternsg kw-val-pairs C51R h ] ( C ( C" c( ( C45C45$ "( "
45 " " g fragments
g fragments { g result { g strs { g filenamef sxml/upstream/SSAX.scm
$
(
1
3
8
:
>
A
F
/ I
) S
V
Y
_
f
o
p
q
{
{
~
/
:
g nameg ssax:reverse-collect-str CRX h t ]! ( C ( 4 5$ 4 5$ C C C" {( $ C45C45$ *$ 45" "$ "
45 " "t l g fragments
g fragments 5 g result 5 g strs 5 g all-whitespace? 5 g filenamef sxml/upstream/SSAX.scm
( # < % ( ) * 5 ; A E
N
P U W [ ^ c / f ) l
m r $ t / : , g nameg ssax:reverse-collect-str-drop-ws C(R0% h ] 4 5C g el
g filenamef sxml/upstream/SSAX.scm
%
& & " & ; & " & C9p|'*/v]5_kc.UN&mo-"p h@ ]
$ " $ 44454555 C g attr
? g accum ? g res-name 5 g filenamef sxml/upstream/SSAX.scm
4 +
, - " - $ - & . ' / , / . / 0 , 2 +
8 4 ? Cp_)y9 h ]L 6 g token
g exp-kind g exp-head g filenamef sxml/upstream/SSAX.scm
4 Cp h@ ]
$ " $ 44454555 C g attr
? g accum ? g res-name 5 g filenamef sxml/upstream/SSAX.scm
4 +
, - " - $ - & . ' / , / . / 0 , 2 +
8 4 ? C/ h ]45$ C C g string1
g string2 g seed g filenamef sxml/upstream/SSAX.scm
4 Cy9 h ]LL 6 g token
g exp-kind g exp-head g filenamef sxml/upstream/SSAX.scm
4 C"p h@ ]
$ " $ 44454555 C g attr
? g accum ? g res-name 5 g filenamef sxml/upstream/SSAX.scm
4 +
, - " - $ - & . ' / , / . / 0 , 2 +
8 4 ? Cp|' h ]L 6 } g port
g entities
g seed
g filenamef sxml/upstream/SSAX.scm
4
C h ]45$ C C g string1
g string2 g seed g filenamef sxml/upstream/SSAX.scm
4 C9 h ],4 > G 45$ C $ v4L O > " G 454 L5 L$ L" 4
4 4 L5
4 L555( " LC$ / 4 5 " $ -4 L O 5 "$ NL& 4 L> " G " 4L LL5 " 6 g port
{ g entities { g expect-eof? { g seed { g seed { g
term-token { g key + { g seed f g attrs f g target g seed g seed g seed [ q
g filenamef sxml/upstream/SSAX.scm
4 x +
{ , ~ - - - . / / / , +
4 { g nameg loop C hh ]64 L> G $ V4545
$ " 4445 4555 (
"
C $ 4 <4
5$ 45" O > " G 4545
$ " 4445 4555 (
"
C4M5
$
"
O
L Q 6 g start-tag-head
d g port d g entities d g
namespaces d g preserve-ws? d g parent-seed d g elem-gi d g
attributes d g
namespaces d g expected-content d g seed
9 g attrs 9 g seed
g attrs g t
3 g preserve-ws?
3 d g loop E d g filenamef sxml/upstream/SSAX.scm
4 K +
N , Q - V - X - Z . [ / ` / b / d , f +
l 4 +
, - - - . / / / , +
4 d g nameg handle-start-tag C h v ] C n g ns
g filenamef sxml/upstream/SSAX.scm
l & l 9 l B l 3 C ' h ]RH45 K 4" 45 45$
45" $ * 4
5 " $ 4
5 $ " 4> " G 4> " G 4> " G 45 4455$ 45" 4> " G [45
$ *4> " G 4> " G " 4 > " G J " P
$ "J " 4 5" " 45 45$
45" $ 6
4
5
"
$ $ " 4 5" R " =H
4 !5K
"O
Q 4 5"
"T5 #( " $%4&5 C g port
g namespace-prefix-assig g
namespaces g
namespaces g port g seed g token % g key B g target P f g seed f w g
token-head g t g docname g systemid g internal-subset?
# g port ~ g elems ~ g entities ~ g
namespaces ~ g seed ~ g token ~ g key { g target
g seed
< g start-tag-head g port g elems g entities g
namespaces g preserve-ws? g seed g xml-space-gi
g handle-start-tag g result "g filenamef sxml/upstream/SSAX.scm
"
# % 3 4 g 4 3 2 h i k k l ! k k j h g nameg ssax:xml->sxml C0R0iRC g m
, g cdata-delimiters
6 < g value-delimeters
G Q g read-attrib-value N Q g xmlns
T- gS g largest-dummy-decl-attr T- gS g add-ns VH gM g terminators-usual
m u g terminators-usual-eof m u g filenamef
sxml/ssax.scm
"
# 0
W
g filenamef sxml/upstream/SSAX.scm
q
!
#g
$
$ $ & $ $
%a
&l
(
*
*
* ( * *
-
- " - 2 - " - " - 2 - " - -
2S R
3? t
5 ~
6
6 6 <
>
> 6 > 6 > 6 > 5 > 7 > 7 > 7 > 5 ? 8 ? 8 ? 8 ?
5 ? 9 ? 9 ? 9 ? 5 ? : ?% : ?' : ?) 5 ?0 4
D <
E c
F i
F q
GL t
G w
G x
G G . G G Q
Sl 4
T i
T T T" T- T- gV
kW
m
m D m E ' m E m C u B
v
?
"
r
p
C6 PK ! 4ӱP P simple.gonu [ PK ! @% % Q fold.gonu [ PK ! V V ?w apply-templates.gonu [ PK ! C[d s s ׀ match.gonu [ PK ! sHA transform.gonu [ PK ! .+ .+ B xpath.gonu [ PK ! Ӝ
2 2 G ssax/input-parse.gonu [ PK ! oC y ssax.gonu [ PK X