Uname: Linux web3.us.cloudlogin.co 5.10.226-xeon-hst #2 SMP Fri Sep 13 12:28:44 UTC 2024 x86_64
Software: Apache
PHP version: 8.1.31 [ PHP INFO ] PHP os: Linux
Server Ip: 162.210.96.117
Your Ip: 18.188.203.186
User: edustar (269686) | Group: tty (888)
Safe Mode: OFF
Disable Function:
NONE

name : simple.go
GOOF----LE-8-2.0�P]�4hI]gguile�	�	gdefine-module*�	�	�	gsxml�	gsimple�	�		gfilenameS�	
fsxml/simple.scm�	gimportsS�	gssax�	
ginput-parse�	
�	�	�	�	g	transform�	�	�	gice-9�	gmatch�	�	�	gsrfi�	gsrfi-13�	�	�	�	gexportsS�	g	xml->sxml�	 g	sxml->xml�	!gsxml->string�	" !�	#gset-current-module�	$#�	%#�	&gstring-concatenate/shared�	'gstring?�	(gssax:reverse-collect-str�	)g
next-token�	*]�	+freading internal DOCTYPE�	,gpeek-next-char�	-g	read-char�	.f]�	/gread-internal-doctype-as-string�	0g
namespacesS�	10��	2gdeclare-namespaces?S�	32	��	4gtrim-whitespace?S�	54	��	6gentitiesS�	76	��	8gdefault-entity-handlerS�	98	��	:gdoctype-handlerS�	;:	��	<13579;�	=gcurrent-input-port�	>gmap�	?gssax:uri-string->symbol�	@gerror�	A@�	B@�	Cfno matching pattern�	Dg
symbol-append�	Egstring->symbol�	Ff:�	Ggssax:scan-Misc�	HG�	IG�	Jgeof-object?�	KJ�	LJ�	Mgparser-error�	NM�	OM�	PfXML [22], unexpected EOF�	QgPI�	Rg*PI*�	Sgssax:read-pi-body-as-string�	TgDECL�	UE�	VE�	WfDOCTYPE�	Xf.XML [22], expected DOCTYPE declaration, found �	Ygassert-curr-char�	ZY�	[Y�	\gssax:S-chars�	]\�	^\�	_fXML [28], space after DOCTYPE�	`gssax:skip-S�	a`�	b`�	cgssax:read-QName�	dc�	ec�	fgssax:ncname-starting-char?�	gf�	hf�	igssax:read-external-id�	ji�	ki�	l>[�	mfXML [28], end-of-DOCTYPE�	ngcall-with-values�	ogssax:skip-internal-dtd�	p6
��	qp1�	rgappend�	sgassq�	tg	*DEFAULT*�	ugSTART�	vfXML [22], unexpected markup �	wgssax:Prefix-XML�	xw�	yw�	zfspace�	{gssax:complete-start-tag�	|{�	}{�	~g	EMPTY-TAG�	g ssax:reverse-collect-str-drop-ws��gattlist-fold��g@��gEMPTY��gssax:assert-token��������gssax:read-markup-token��������gEND��f[elementvalid] broken for ��f while expecting ��gassoc��������fpreserve��gssax:read-char-data��������gstring-null?��f[GIMatch] broken for ��g
ENTITY-REF��gssax:handle-parsed-entity��������gPCDATA��f* with char content only; unexpected token ��fXML [43] broken for ��gopen-input-string��greverse��g*TOP*��gmake-hash-table��g	hashq-ref��gsymbol->string��gstring-index��g	substring��f"Invalid QName: more than one colon��gfor-each��gchar-alphabetic?��g
string-ref��fInvalid name starting character��gstring-for-each��f
0123456789.-_��fInvalid name character��g
hashq-set!��g
check-name��gattribute-value->xml��gstring->escaped-xml��g
procedure?��gwith-output-to-port��gcall-with-output-string��gdisplay��f="��gattribute->xml��f
bad attribute��fbad attributes��f</��f>��fbad element body��f />��gelement->xml��gentity->xml��f<?��f?>��gpi->xml��gcurrent-output-port��g*ENTITY*��fbad *ENTITY* args��glength��f
bad *PI* args��gstring-concatenate-reverse��gfoldts��gappend!��glist->char-set��gcar��g
string-length��gassv��gmake-char-quotator��f&lt;��<Ό��f&gt;��>Ќ��f&amp;��&Ҍ��f&quot;��"Ԍ�������C5hh?]4	
"54%>"G&'h��](C�(C"c((C45�C4�5$���"�����("
45��"���"����g	fragments
	�g	fragments		{gresult			{gstrs			{gfilenamefsxml/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	��	�gnamegssax:reverse-collect-str�C(R&)*+,-.hH�]4L5>4L5�$4L>"GC4L5��C�gfragment
		Bgfilenamefsxml/simple.scm�
	B	��		D	
��		D	��		D	��	
	D	$��		D	
��		C	��		E	��		E	��		E	��		G	��	5	H	��	:	I	��	;	I	 ��	@	I	��		B
gnamegloop�Ch �]	OQ456�gport
		gloop	
	gfilenamefsxml/simple.scm�
	@
��	
	B	��		A	��		gnamegread-internal-doctype-as-string�C/R<=>?BCh@�]�$#��L$"45��C456�gel
		9gw		,gx			,gfilenamefsxml/simple.scm�
	l		��		m	��		o	��	#	q	��	*	o	��	-	m	��		9Ch�]LO6xg
namespaces
		gfilenamefsxml/simple.scm�
	k	��		l	��		gnamegmunge-namespaces�CDEFh(�]�$��456C�gname
		%gw		"gx			"gfilenamefsxml/simple.scm�
	}	��		~	��	�	��	�	-��	�	��	"�	��		%gnameg
name->sxml�CILOPQRSTVWX[^_behklmn/oh@C]L$LLLL$4L5"6L$4L>"G"D;gfilenamefsxml/simple.scm�
�	��		@
Cqrsthp-/03##4L$4L5$L"L�L�"L544L54LL55LDgentities
		kg
namespaces		kgfilenamefsxml/simple.scm�
�	��	�	��	#�	/��	'�	��	1	x	��	2	y	��	6	y	��	:	y	��	>	x	��	F	z	��	I	z	��	T�	��	U�	��	X�	��	_	u	��	g�	��	k�	��		k

gentitiesS
�g
namespacesS�CuhC]L$L6D;gfilenamefsxml/simple.scm�
�	��		
Cqrsthp-/03##4L$4L5$L"L�L�"L544L54LL55LDgentities
		kg
namespaces		kgfilenamefsxml/simple.scm�
�	��	�	��	#�	/��	'�	��	1	x	��	2	y	��	6	y	��	:	y	��	>	x	��	F	z	��	I	z	��	T�	��	U�	��	X�	��	_	u	��	g�	��	k�	��		k

gentitiesS
�g
namespacesS�CvILOPQRSuv
h�+]4545$6��$3�45�"����$L��6	6#gport
	�gelems	�gentities		�g
namespaces		�gseed		�gtoken			�gkey		!�gtarget		/	Egseed		E	_	gfilenamefsxml/simple.scm�
�	��	�	gnameg#scan-for-significant-prolog-token-2�CyVz}~(�hi]4L�5��Cagattr
		gaccum		gfilenamefsxml/simple.scm�
�	��			C���b��O��h�]L6{gtoken
		gexp-kind		gexp-head			gfilenamefsxml/simple.scm�
�	��			Chi]4L�5��Cagattr
		gaccum		gfilenamefsxml/simple.scm�
�	��			C����h �]45$�C��Cxgstring1
		gstring2		gseed			gfilenamefsxml/simple.scm�
�	��			CL��O��h�]LL6{gtoken
		gexp-kind		gexp-head			gfilenamefsxml/simple.scm�
�	��			C(�hi]4L�5��Cagattr
		gaccum		gfilenamefsxml/simple.scm�
�	��			C�QRS��h~]L6vgport
		
gentities		
gseed			
gfilenamefsxml/simple.scm�
�	��		
	C�h �]45$�C��Cxgstring1
		gstring2		gseed			gfilenamefsxml/simple.scm�
�	��			Cu�O���hpd],4>G45$C��$j4LO>"GL$45"454	
L
OL54L
L	5("���L�C�$/�
45�"��*�$-4�LO5"����$NL&4L	>"G"4L�LL5"���6\gport
	ogentities	ogexpect-eof?		ogseed		ogseed		og
term-token		ogkey		+ogseed		|�gattrs		|�gtarget	��gseed	��gseed	�gseed	Oe
gfilenamefsxml/simple.scm�
�	��	o	gnamegloop�ChP�]64L>G		�$IL$
45"454LO5
4L5(
"�
���C	�$~4	<4
5�$45"
O>"GL$
45"454LO5
4L5(
"�
���C4M5

$

��"

O
L	LLQ6�gstart-tag-head
	Pgport	Pgentities		Pg
namespaces		Pgpreserve-ws?		Pgparent-seed		Pgelem-gi		Pg
attributes		Pg
namespaces		Pgexpected-content			Pgseed	
	N	rgattrs		N	rgseed	
��gattrs	��gt	
gpreserve-ws?	
Pgloop	-Pgfilenamefsxml/simple.scm�
�	��	P	gnameghandle-start-tag�Ch@2]H45�KOLLQ6*gstart-tag-head
		:gport		:gelems			:gentities			:g
namespaces			:gpreserve-ws?			:gseed			:gxml-space-gi			:ghandle-start-tag			:	gfilenamefsxml/simple.scm�
�	��		:	gnamegelement-parser�Ch�o]r"�4545$6��$'�45�"����$��4	
5�		$"4>"G	4
>"G4>"G45	4455$45"
4>"G[45�4	
LOLLLLO>G

6�$@�4LOLLLLO>G
	�	
66OOQLLQ"��Bggport
	�gseed	�gport		�gseed		�gtoken		
�gkey		%�gtarget		3	Igseed		I	Wg
token-head		cEgt			o�gdocname		�Egsystemid	
�Eginternal-subset?	Egelems	,Egentities	
,Eg
namespaces	,Egseed	,Egelems	q�gentities		q�g
namespaces	
q�gseed	q�g#scan-for-significant-prolog-token-2	��gelement-parser	��gfilenamefsxml/simple.scm�
�	��	�	gnamegparser�C'���
h�V-/03#45######OO	QQ	45$45"
44	
55	�CNgstring-or-port
	�g
namespaces	�gdeclare-namespaces?		�gtrim-whitespace?		�gentities		�gdefault-entity-handler		�gdoctype-handler		�gmunge-namespaces		p�g
name->sxml		p�gparser			p�gport	
��gelements	��gfilenamefsxml/simple.scm�
	V
��		V	/��	'	W	 ��	B	Z	����	����	����	����	����	����	����	)����	����	����	����	��	�
g
namespacesS�gdeclare-namespaces?S	�gtrim-whitespace?S	�gentitiesS	�gdefault-entity-handlerS	�gdoctype-handlerS	�gnameg	xml->sxml�g
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.�CR4�i5����@����@�����@�h8�]	45$C45$CLL6�gc
		4gt			4gt		4gfilenamefsxml/simple.scm�
�	��	�	��		�	��	�	0��	�	>��	�	0��	�	��	,�	"��	4�	��
		4Chh�]$X44
55$"&4
5_�$"4L5$LO6CC�gs
		bgt		Kgt		-	Hgfilenamefsxml/simple.scm�
�	
��	�	��		�	��	�	*��	�	��	�	��	#�	��	-�	��	-�	��	;�	��	?�	��	E�	��	O�	��	^�	��		bC�
h��]!4L5$C454:5$4
5"$"$4�5"$144�5:5$4>"G""4O>"G	L6�gname
	�gstr	�gi		#�gt		:	Mghead		M�gtail		d�gfilenamefsxml/simple.scm�
�	��	�	��	�	��	�	��	�	
��	�	��	#�	
��	+�	��	,�	"��	:�	��	M�	
��	U�	��	V�	��	]�	-��	_�	��	d�	
��	l�	��	m�	��	p�	!��	w�	0��	y�	!��	}�	����	����	����	����	����	����	
����	����	��	�CO�R�'�����h_]L6Wgport
		
gfilenamefsxml/simple.scm�
	��	
	-��		
Chh]�$4�>"G�6(C45$645$64O56gvalue
		ggport		ggfilenamefsxml/simple.scm�
�
��	�	��		�	��	
�	��	�	��	�	��	#�	��	'�	��	-�	��	0�	��	:�	��	B�	��	C�	��	M�	��	U�	��	X	��	g	��		g	gnamegattribute-value->xml�C�R����hX�]4>"G4>"G4>"G4>"G"6�gattr
		Xgvalue		Xgport			Xgfilenamefsxml/simple.scm�

��		��		��	)	��	-	��	4	��	=		��	X
	��			X	gnamegattribute->xml�C�R���@�� ����hp�]4>"G4<>"G4>"G$�"��$^�4 >"G�$4��>"G"4>"G�"���(""4>"G""��o"�$�4>>"G"e�$4�>"G�"���(04>"G4>"G	6
6"���6�gtag
	ogattrs	ogbody		ogport		ogattrs		F�gattr		P�gbody	�_gfilenamefsxml/simple.scm�

��	
	��		��	)	��	B	��	F	��	I	��	M	��	P	��	P	��	S	��	i	��	m	��	n	��	s	"��	v	-��	}	���	���	���	���	���	���	���	���	���	���	���	���	���	���	��� 	��	
��!	��!	��!	��"	��"	��%	
��&$	��*$	��1$	��:%	��Q&	��U&	��Y(	��_(	��_	��k)	��o)	��3	o	gnamegelement->xml�C�R�h8�]4&>"G4>"G;6�gname
		2gport		2gfilenamefsxml/simple.scm�
,
��	-	��	.	��	2/	��		2	gnamegentity->xml�C�R���h`�]4>"G4>"G4 >"G4>"G6�gtag
		Zgstr		Zgport			Zgfilenamefsxml/simple.scm�
2
��	3	��	3	��	3	��	4	��	+5	��	?6	��	V7	��	Z7	��
		Z	gnamegpi->xml�C�R�� �@���R����� h\]L6Tgx
		
gfilenamefsxml/simple.scm�
T	��	
T	��		
C'�����h_]L6Wgport
		
gfilenamefsxml/simple.scm�
^	��	
^	-��		
Chp�-.,3#45�$���$���$	�6�$5"	�6��$4�5�$
��6"���"���	�$;"	
�6��$"4�5	�$�����6"���"�����$$��$��&��"""
$�"6O645$6(C$.&C45$64O56C�gtree
	kgport	kgtag		+
gelems	�
gattrs	�
gfilenamefsxml/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	kgnameg	sxml->xml�g
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��hq]Cigseed
		gtree		gfilenamefsxml/simple.scm�
f	��	g	��			C�h�]6gseed
		
gkid-seed		
gtree			
gfilenamefsxml/simple.scm�
h	��	
i	��		
	C'h�]45$�CC{gseed
		gtree		gfilenamefsxml/simple.scm�
j	��	k	
��	
k	��	k	��			Ch�]456�gsxml
		gfilenamefsxml/simple.scm�
a
��	e	��	l	��	e	��	d	��		gnamegsxml->string�g
documentationfMDetag an sxml tree @var{sxml} into a string. Does not perform any
formatting.�C!R�>�������h��]*4L
5$�"�45�$C$s445L5��4L5�$!445>"G"4>"G�"��w44556
"��V6�gstr
	�gport	�gbad-pos		�gfrom		�gto		�gi		B	Rgquoted-char		R�gnew-to		R�gfilenamefsxml/simple.scm�
y	��	v	��	z	��	{	��	}	��		��	"	��	&~	��	/�	��	2�	"��	>�	��	?�	��	B�	'��	B�	��	Ev	��	R�	��	[�	��	_�	��	`�	��	c�	��	t�	����	����	����	����	����	-����	����	���}	���|	��	�	Ch �]	4455OC�g
char-encoding
		g	bad-chars		gfilenamefsxml/simple.scm�
o
��	p	��	p	#��	p	��	p	��		gnamegmake-char-quotator�C�R4�i�5�RC
gm
		,g*good-cache*
"�(gfilenamefsxml/simple.scm�		
��x	,
���	@
��"�	V
��"��	��"��	��(�
��*,�
��+w
��/�
��0�,
��1�2
��8�9
��;�a
��?Zo
��?[�	��?a�	��?c�	��?f�
��	?h
C6
© 2025 GrazzMean