Current File : /home/mmdealscpanel/yummmdeals.com/texinfo.tar
reflection.go000064400000072521150351646040007240 0ustar00GOOF----LE-8-2.09u],4h�]gguile�	�	gdefine-module*�	�	�	gtexinfo�	g
reflection�	�		gfilenameS�	
ftexinfo/reflection.scm�	gimportsS�	gsrfi�	
gsrfi-1�	
�	gselectS�	g
append-map�	�	�	goop�	ggoops�	�	�	�	�	g
plain-text�	�	�	gsrfi-13�	�	�	gice-9�	 gsession�	! �	"!�	#g
documentation�	$#�	%$�	&goptargs�	'&�	('�	)gsxml�	*g	transform�	+)*�	,gpre-post-order�	-,�	.+-�	/"%(.	�	0gexportsS�	1gmodule-stexi-documentation�	2gscript-stexi-documentation�	3gobject-stexi-documentation�	4gpackage-stexi-standard-copying�	5g package-stexi-standard-titlepage�	6gpackage-stexi-generic-menu�	7gpackage-stexi-standard-menu�	8gpackage-stexi-extended-menu�	9gpackage-stexi-standard-prologue�	:gpackage-stexi-documentation�	;g'package-stexi-documentation-for-include�	<123456789:;�	=gset-current-module�	>=�	?=�	@gdeftp�	Agdefcv�	Bgdefivar�	Cgdeftypeivar�	Dgdefop�	Eg	deftypeop�	Fg	defmethod�	Gg
deftypemethod�	Hgdefopt�	Igdefvr�	Jgdefvar�	Kg	deftypevr�	Lg
deftypevar�	Mgdeffn�	Ng	deftypefn�	Ogdefmac�	Pgdefspec�	Qgdefun�	Rg
deftypefun�	S@ABCDEFGHIJKLMNOPQR�	Tgdefs�	Ugassq�	Vgname�	Wg
list-index�	Xg=�	Yg<�	Zgstring=?�	[g	string<=?�	\gstring->symbol�	]g	sort-defs�	^greverse!�	_g
list*-join�	`gmap�	agstring?�	bgobject->string�	cf �	df . �	egprocess-args�	fgprocedure-arguments�	ggassq-ref�	hgrequired�	igoptional�	jgkeyword�	kgrest�	lgappend�	mgsymbol->string�	ngformat�	of	[~a = ~s]�	pf[~a]�	qf[#:~a]�	rf.�	sg
get-proc-args�	tgsyntax-rules�	ugprocedure-property�	vgpatterns�	wgidentifier-syntax�	xgdefmacro�	yg
defmacro-args�	zgmacro-arguments�	{gdefspecx�	|g%�	}g	arguments�	~gmacro-additional-stexi�	gmake-regexp��f![[:space:]][[:space:]][[:space:]]��gmany-space?��f^[[:space:]]��ginitial-space?��gstring-null?��g
*fragment*�����gstring-index��gregexp-exec��gcatch��������gtexi-fragment->stexi��gverbatim��g
string->stexi��gdefined?��gmethod-formals��greverse��f (��gvar��gcode��g
class-name��f)�����f...��gmethod-specializers��g
method-source��gwarn��gmethod-stexi-arguments��gforceS���	������f	[unknown]��gobject-documentation��gis-a?��g<method>��gmethod-procedure��g<class>��gcategory��fClass���������g<macro>��gmacro-transformer��g
macro-type��l��l��g<procedure>��fMethod������g	<generic>��fGeneric���������ggeneric-function-methods��gmemq��gstring-join��gmodule-name->node-name��g
string-append��f/��g%search-load-path��gin-vicinity��gmodule-filename��gopen-input-file��geof-object?��gread��gread-module��g
define-module��gand=>��gexportS��gcadr��gidentity��gmodule-export-list��g
docs-resolverS���	������gissue-deprecation-warning��fQmodule-stexi-documentation: use #:docs-resolver instead of a positional argument.��gmodule-commentary��gstring-trim-both��gwith-output-to-string��gdisplay��gresolve-interface��gtitle��gnode��gsection��fOverview������fUsage������gappend!��gsort!��g
module-map��ganchor��fvariable unbound!��f
[unbound!]�����gfile-commentary��gbasename��gadd-value-help-handler!��gstexi->plain-text��gadd-name-help-handler!��gand-map��gsymbol?��!���!���gcopying��gpara��fThis manual is for ��f
 (version ��f
, updated ��f
Copyright ��gnumber->string��f,��g	quotation��g	titlepage��gsubtitle��fversion ��gauthor��gemail��gpage�����gvskip��gall��f0pt plus 1filll������|������g
insertcopying�����gifnottex�fTop�V�|���gtop�	gmenu�
f* �f::�gmake-string�
gmax�g
string-length�f
��giftex�g
shortcontents����gcons�gcar�gcdr�gdircategory�gdirentry�f: (�f).  �r�gchapter�g*text*� g	*default*�!gstexi->chapter�"gmodule-stexi-documentation-argsS�#"	��$gscriptsS�%$	��&#%�'gerror�(f2expected modules to be a list of a list of symbols�)gfilename�*"	��+*�C5hH]�]4	
/0<54?>"GSTRUVh�]4�����5��C�gx
		gfilenameftexinfo/reflection.scm�
	>	��		?	
��		?	��	
	=	��		?	��		?	
��		?	��		gnamegname�Ch@-1344L54L55$(CL@4L54L56�gproc
			@geq?			@g<				@gargs				@gfilenameftexinfo/reflection.scm�
	F	��	
	G	
��	
	G	��		G	��		G	
��	 	G	��	&	I	��	'	I	��	.	J	��	1	H	��	8	H	��	@	H	��
			@	
	gnamegcompare-in-order�CWTh�]���6~gx
		
gfilenameftexinfo/reflection.scm�
	@	��			=	��		A	��	
	A	��		
gnamegpriority�CXYZ[W\UVh�]#OQ44	4
�����5��55$"	I��44	4
�����5��55$"	I���$(C@44	4
�����5��55$"	I��44	4
�����5��55$"	I���C�gordering
	ga	gb		gname		gcompare-in-order		gargs		(gt		F	`gt		|�gt	��gt	�
gfilenameftexinfo/reflection.scm�
	:
��	(	K	��	+	C	��	0	C	��	3	?	
��	7	?	��	:	=	��	<	?	��	@	?	
��	A	?	��	D	C	��	F	C	��	F	C	��	a	C	��	f	C	��	i	?	
��	m	?	��	p	=	��	r	?	��	v	?	
��	w	?	��	z	C	��	|	C	��	|	C	���	G	
���	G	���	I	���	I	���	J	���	C	���	C	���	?	
���	?	���	=	���	?	���	?	
���	?	���	C	���	C	���	C	���	C	���	C	���	?	
���	?	���	=	���	?	���	?	
���	?	���	C	���	C	���	C	��	H	��5		gnameg	sort-defs�C]R^hX@]"C(6�$��6�(
�"	���"���"���8gl
		Tginfix		Tgrestfix			Tgin			Igout			Igfilenameftexinfo/reflection.scm�
	O
��		P	��		Q	��		Q	��		R	��		Q	��	"	R	"��	%	R	��	(	S	��	.	S	��	1	T	'��	4	T	!��	;	U	(��	@	U	!��	I	S	��	I	P	��	L	P	��	T	P	��		T	gnameg
list*-join�C_R`abhq]45$C6igx
		gfilenameftexinfo/reflection.scm�
	X	��		X	��	
	X	��		X	%��		C_cdh �]4$"56�gargs
		gfilenameftexinfo/reflection.scm�
	W
��		Y	��		Y	��		Y	��		Z	��		Z	��		Y	��		X	��			gnamegprocess-args�CeRfghijkel`mnoph �]�$���66�ga
		 gfilenameftexinfo/reflection.scm�
	j	��		k	��			k	��		l	#��		l	/��		l	7��		l	��		m	#��	 	m	��
		 Cnpqh �]�$
�66�ga
		gfilenameftexinfo/reflection.scm�
	q	��		r	��			r	��		s	#��		s	*��		s	��		t	#��		t	��			Crh��])45$g4545454544	
54	54	5$
4
5"56C�gproc
		zgt			zg
required-args		5	xg
optional-args		5	xgkeyword-args		5	xgrest-arg		5	xgfilenameftexinfo/reflection.scm�
	\
��		^	��			]	��		`	��		`	-��		`	��		a	��	!	a	-��	#	a	��	$	b	��	*	b	-��	,	b	��	-	c	��	3	c	(��	5	c	��	5	`		��	@	e	��	C	g	
��	L	j	
��	U	q	
��	c	x	
��	e	y	��	f	y	��	o	y	��	t	z	��	v	e	��	x	d	��		zgnameg
get-proc-args�CsRetuvwxyhhn]�$!45�$�""7�$")�$45$""6fgname
		ggtype		ggtransformer			ggpatterns			*gt		N	`gfilenameftexinfo/reflection.scm�
	|
��	
	~	��	�	��	�	6��	�	��	�	��	�	��	�	��	"�	��	'�	��	7	~	��	8�	��	E	~	��	F�	
��	L�	*��	N�	
��	N�	��	]�	
��	e�	��	g	}	��		g	gnamegmacro-arguments�CzRtuv`{|V}eh u]L45�Cmgx
		gfilenameftexinfo/reflection.scm�
�	��	�	��	�	-��	�	��		Ch0#]�$"45�$O�6CCgname
		/gtype		/gtransformer			/gpatterns			-gfilenameftexinfo/reflection.scm�
�
��	�	��	�	��	�	5��	�	��	�	��	�	��	�	��	)�	��	+�	��	,�	��	.�	��
		/	gnamegmacro-additional-stexi�C~R4i�5�R4i�5�R��������hS]L6Kgfilenameftexinfo/reflection.scm�
�	��	�	��		
Ch_-13CWgargs
			gfilenameftexinfo/reflection.scm�
�	��			


C��h�4]	$45"$"$C4@5$"45$"
45�$4O	5"$C
C,gstr
	�gt	�gt	3	_gt	w�gfilenameftexinfo/reflection.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	+�	��	3�	��	A�	��	M�	��	S�	��	\�	��	c�	��	d�	��	w�	����	��	�gnameg
string->stexi�C�R4�i�5$�i"�R��l��mc�������h�^])$�"�(6�$S��44��4544	55
����55"���454544	55
����64545"��J4
5$�"�(6��$D�44�4�54��5
����55"���454�54��5
����64
5��"��a4>"GCVgmethod
	�gformals	�gspecializers		�gout		�gformal		1	bgspecializer		1	bgbindings�^gout	�^garg	�	gfilenameftexinfo/reflection.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	"�	��	%�	��	&�	��	)�	��	.�	*��	1�	8��	1�	��	7�	��	:�	��	C�	��	H�	��	K�	!��	S�	��	V�	��	d�	��	h�	��	r�	��	u�	��	}�	����	����	����	����	!����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	
����	����	����	����	����	*����	����	����	����	%����	���	���	���	!���	���	���	��!�	��)�	��,�	��4�	��7�	��<�	%��>�	��A�	��F�	��K�	!��N�	��Q�	��Y�	;��\�	5��^�	��^�	��_�	��f�	��h�	;��p�	��q�		����	��V	�gnamegmethod-stexi-arguments�C�R��m����a����V�@|��u�P}z�~�sQ��M��`3�hh]ML6`gmethod
		gfilenameftexinfo/reflection.scm�
�	��	�	
��		C�J�T(h0--/03H#K#J�$
4J5K"445$45"545$4	5"7"$
"'""�$�&""���""���$u"A45$
J�����C45$Q45$
45"
J4J5�44J5�5��C45$#
J45�����C45$%
J45�����C4 5$5
J!�����4"#O4$55��C
J%����C��$$���$4&���'5$C"���"���"���C%gobject
	/gname	/gforce		/gx		^�gstexi	�/gargs	��gproc	�@gtype	@gargs	apgargs	��gargs	��gargs	��gfilenameftexinfo/reflection.scm�
�
��	 �	=��	.�	��	2�	��	3�	��	;�	��	@�	��	C�	��	O�	��	P�	��	^�	��	^�	��	a�	��	k�	��	l�	%����	����	����	����	����	����	-����	5����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	���	6���	���	���	���	"��'�	��.�	
��;�	
��=�	��A�	��M�	��O�	��W�	&��^�	��a�	��e�	��g�	��m�	��n�	��q�	��}�	���	����	&����	����	����	����	����	����	����	����	����	����	����		����	����	����	����	����	
����	����	
����	����	����	����	����	����	����	����	���	���	���	���	&��
�	���	���	���	���	���	��c	/gforceS	�gnamegobject-stexi-documentation�C3R�`mch�]456�gsym-name
		gfilenameftexinfo/reflection.scm�
�
��	�	��	�	-��	�	��		gnamegmodule-name->node-name�C�R`m����hn]6fgelt
		
gfilenameftexinfo/reflection.scm�
	��		4��	
	!��		
C��hH}])4545�4�5445?456ugname
		Bgname		Bgreverse-name			Bgleaf			Bgdir-hint-module-name		#	Bgdir-hint		3	Bgfilenameftexinfo/reflection.scm�

��		��		��		��		��		��		��		��	!	(��	#	��	#	��	&	��	)	��	3	��	3	��	8
	��	B
	��		Bgnamegmodule-filename�C�R�����hXW]!45$B45"%45$6�45"���45"���COgname
		Ugfilename			Ugport			Sgout			Cgform			Cgfilenameftexinfo/reflection.scm�

��	
	��		
	��		��		��		��		
��		��	)	��	/	��	4	��	5	$��	C	��	C	
��	D	��	E	#��	S	
��	T	��		Ugnamegread-module�C�R�������hx�]"c(C��$4�&&���$44��55"""$6�"���45"����gsym-name
		vgforms		igform			Rgt		R	igfilenameftexinfo/reflection.scm�

��		��		��	
	��		$��		��			��		��		��		��	#	��	&	��	*		��	.	��	/		��	2	��	9	��	<	��	@		��	R	��	c	��	i	��	i	��	j	��	v	��		vgnamegmodule-export-list�C�R�hn]Cfgname
		gdef		gfilenameftexinfo/reflection.scm�
%	0��			C�����hc]
6[gx
		
gfilenameftexinfo/reflection.scm�
-	��	
-	(��		
C����hS]L6Kgfilenameftexinfo/reflection.scm�
1	��	1	 ��		
C��|��V�������|V�cm3���J��h�l]
4L455$4L455"+4	
>"G45���
&�"�Cdgsym
	�gvar	�gx		k�gfilenameftexinfo/reflection.scm�
9	��	:	
��		5	��	5	��	5	#��	5	��	:	
��	$?	��	(?	��	)@	��	.B	��	3B	0��	:B	��	<@	��	AE	��	EE	��	LE	��	VF	��	[F	(��	dF	��	k;	��	p<	��	r<	"��	v<	��	y=	���>	���:	
��	�	C]hr]L6jga
		gb		gfilenameftexinfo/reflection.scm�
I	��	I	��			Ch�-/03	##$"$4>"G"4455454	54
O5454
54�444O5O5?�5����Cgsym-name
	�g%docs-resolver	�g
docs-resolver		�g
commentary		\�gstexi		e�g	node-name		n�gname-str		|�gmodule	��gexport-list	��	gfilenameftexinfo/reflection.scm�
!
��	($	,��	8)	��	9*	��	=+	��	B*	��	O,	��	R,	��	\,	��	\,	��	_.	��	e,	��	h/	��	n,	��	q0	��	|,	��	2	���,	���3	���,	���K	���N	���K	���P	���7	���8	���7	���P	���K	��	�g
docs-resolverS	�gnamegmodule-stexi-documentation�g
documentationf�Return documentation for the module named @var{sym-name}. The
documentation will be formatted as @code{stexi}
 (@pxref{texinfo,texinfo}).�C1R�|���V��
hX�]	454545$44	
55�"���C�g
scriptpath
		Rg
commentary			Rgfilenameftexinfo/reflection.scm�
R
��	V	��		V	��	
W	��	W	��	W	��	%X	��	.W	��	:Y	��	;[	��	>\	��	H[	��	IZ	��	N]	��	OW	��		Rgnamegscript-stexi-documentation�g
documentationf�Return documentation for given script. The documentation will be
taken from the script's commentary, and will be returned in the
@code{stexi} format (@pxref{texinfo,texinfo}).�C2R4�i�5$�4�i�3�h�]456zgname
		gvalue		gfilenameftexinfo/reflection.scm�
b	��	d	��	c	��			C>"G4�i���1h(�]�$45$456CC�gname
		%gfilenameftexinfo/reflection.scm�
f	��	g		��		g	��	
h		��	g	��	i	��	!i		��		%C>"G"��R��������`��c�hH�]�������44	
55
C�gname
		Fgversion		Fgupdated			Fgyears			Fgcopyright-holder			Fgpermissions			Fgfilenameftexinfo/reflection.scm�
o
��	u	��	 x	��	#x	%��	-x	@��	/x	��	1u	��		F	gnamegpackage-stexi-standard-copying�g
documentationf�Create a standard texinfo @code{copying} section.

@var{years} is a list of years (as integers) in which the modules
being documented were released. All other arguments are strings.�C4R������`����h�]������C�gpair
		gfilenameftexinfo/reflection.scm�
�	��	�	��	�	��		�	��	�	$��	�	��		C
h0�]445	5���C�gname
		/gversion		/gupdated			/gauthors			/gfilenameftexinfo/reflection.scm�
}
��	�	��	�	��	&�	��		/	gnameg package-stexi-standard-titlepage�g
documentationf�Create a standard GNU title page.

@var{authors} is a list of @code{(@var{name} . @var{email})}
pairs. All other arguments are strings.

Here is an example of the usage of this procedure:

@smallexample
 (package-stexi-standard-titlepage
  "Foolib"
  "3.2"
  "26 September 2006"
  '(("Alyssa P Hacker" . "alyssa@@example.com"))
  '(2004 2005 2006)
  "Free Software Foundation, Inc."
  "Standard GPL permissions blurb goes here")
@end smallexample
�C5R|�	l`

�hH�]$6��44	45�	5 545����CC�gentry
		Agnode		>gdescription			>gfilenameftexinfo/reflection.scm�
�	
��	�	��	�	��	�	(��	�	��	�	��	�	��	�	��	!�	��	(�	��	,�	��	0�	��	1�	��	@�	��		ACh8�]44	
5?��C�gname
		1gentries		1gfilenameftexinfo/reflection.scm�
�
��	�	��	�	��	�		��	)�	��	*�	��		1	gnamegpackage-stexi-generic-menu�g
documentationf�Create a menu from a generic alist of entries, the car of which
should be the node name, and the cdr the description. As an exception,
an entry of @code{#f} will produce a separator.�C6R6`��h8�]44554("�56�gname
		6gmodules		6gmodule-descriptions			6g
extra-entries			6gmodule-entries			4gfilenameftexinfo/reflection.scm�
�
��	�	��	�	��	�	��	�	��	�	��	%�	(��	/�	8��	1�	��	6�	��		6	gnamegpackage-stexi-standard-menu�g
documentationfICreate a standard top node and menu, suitable for processing
by makeinfo.�C7R6`���	h�&]444554554445545544("�("�556gname
		~gmodule-pairs		~gscript-pairs			~g
extra-entries			~gmodule-entries		F	|gscript-entries		F	|gfilenameftexinfo/reflection.scm�
�
��	�	��	�	��	�	#��	�	��	�	��	&�	��	'�	��	,�	��	1�	,��	;�	��	<�	��	F�	��	F�	��	K�	��	X�	(��	b�	8��	h�	(��	r�	8��	t�	��	~�	��		~	gnamegpackage-stexi-extended-menu�g
documentationfQCreate an "extended" menu, like the standard menu but with a
section for scripts.�C8R|�
�
h@B]�������4	5���C:gname
		9gfilename		9gcategory			9gdescription			9gcopying			9g	titlepage			9gmenu			9gfilenameftexinfo/reflection.scm�
�
��	�	��		9	gnamegpackage-stexi-standard-prologue�g
documentationfCreate a standard prologue, suitable for later serialization
to texinfo and .info creation with makeinfo.

Returns a list of stexinfo forms suitable for passing to
@code{package-stexi-documentation} as the prologue. @xref{texinfo
reflection package-stexi-documentation}, @ref{texinfo reflection
package-stexi-standard-titlepage,package-stexi-standard-titlepage},
@ref{texinfo reflection
package-stexi-standard-copying,package-stexi-standard-copying},
and @ref{texinfo reflection
package-stexi-standard-menu,package-stexi-standard-menu}.�C9R,g�h �-134�5���C�gtag
			gattrs			gnode				gbody				gfilenameftexinfo/reflection.scm�
�	��	
�	��	�	 ��	�	*��	�	6��	�	 ��	�	��				
	Chn]Cfgtag
		gtext		gfilenameftexinfo/reflection.scm�
�	��			C h_-13CWgargs
			gfilenameftexinfo/reflection.scm�
�	��			


Ch �]���6�gstexi
		gfilenameftexinfo/reflection.scm�
�
��	�	��	�	��		gnamegstexi->chapter�C!R&h0�]
4�5$��$C�"���C�gpred
		,gl		,gt			*gfilenameftexinfo/reflection.scm�
	��		��		��	
	��		��	
	��	
	��	
	��	"
	)��	*
	��		,	gnamegall�C��hc]L6[gx
		
gfilenameftexinfo/reflection.scm�
	
��	
	��		
ChS]LLOL6Kgfilenameftexinfo/reflection.scm�
	��		��		
Ch_-13CWgargs
			gfilenameftexinfo/reflection.scm�
	��			


Ch �]	OQLO6�gl
		gall	
	gfilenameftexinfo/reflection.scm�

	��		��		gnamegverify-modules-list�C'(|�)�!1hn]4L?6fgmod
		gfilenameftexinfo/reflection.scm�
	��		��		��		C!2hq]456igscript
		
gfilenameftexinfo/reflection.scm�
	��		��	
	��		
C
h�@-/03##OQ45$"4>"G4	4	4
O54	4
5555��C8gmodules
	�gname	�gfilename		�gprologue		�gepilogue		�gmodule-stexi-documentation-args		�gscripts		�gverify-modules-list		-�gfilenameftexinfo/reflection.scm�
�
��	�	'��	#�	/��	3	��	=	��	B	��	F	
��	M	��	W	��	s	���	���	���	��	�	
gmodule-stexi-documentation-argsS	�gscriptsS	�gnamegpackage-stexi-documentation�g
documentationf8Create stexi documentation for a @dfn{package}, where a
package is a set of modules that is released together.

@var{modules} is expected to be a list of module names, where a
module name is a list of symbols. The stexi that is returned will
be titled @var{name} and a texinfo filename of @var{filename}.

@var{prologue} and @var{epilogue} are lists of stexi forms that
will be spliced into the output document before and after the
generated modules documentation, respectively.
@xref{texinfo reflection package-stexi-standard-prologue}, to
create a conventional GNU texinfo prologue.

@var{module-stexi-documentation-args} is an optional argument that, if
given, will be added to the argument list when
@code{module-texi-documentation} is called. For example, it might be
useful to define a @code{#:docs-resolver} argument.�C:R+�	�

�	h8�]
4544	45�	5 545����C�gmodname
		7gdesc		7gnode				7gfilenameftexinfo/reflection.scm�
<	��	=	!��		=	��	
7	��	8	��	8	��	8	��	!8	��	%8	��	)8	��	*7	��		7	C!1hr]4L?6jgmodname
		gfilenameftexinfo/reflection.scm�
A	��	C	��	B	��		Ch@_-/03#45�4O5��CWgmodules
		=gmodule-descriptions		=gmodule-stexi-documentation-args			=gfilenameftexinfo/reflection.scm�
#
��	%	S��	:	��	!<	��	,:	��	-A	��	;:	��		=	
gmodule-stexi-documentation-argsS	�gnameg'package-stexi-documentation-for-include�g
documentationfCreate stexi documentation for a @dfn{package}, where a
package is a set of modules that is released together.

@var{modules} is expected to be a list of module names, where a
module name is a list of symbols. Returns an stexinfo fragment.

Unlike @code{package-stexi-documentation}, this function simply produces
a menu and the module documentations instead of producing a full texinfo
document. This can be useful if you write part of your manual by hand,
and just use @code{@@include} to pull in the automatically generated
parts.

@var{module-stexi-documentation-args} is an optional argument that, if
given, will be added to the argument list when
@code{module-texi-documentation} is called. For example, it might be
useful to define a @code{#:docs-resolver} argument.�C;RC�gm
		,gfilenameftexinfo/reflection.scm�		
��	.	6	��	1	5
��	:
���	O
��
7	W
��,	\
��!	|
��F�
��G�	��M�	!��O�	��R�
��S�	��Y�	$��[�	��^�
��/�
��0�	��6�	��8�	��<�	��H�
��a�
��#��
��$y�
��&�
��(�
��*�
��3;!
��5�R
��5�`	��5�`	��5�`	��5�_
��5�a	��6pe	��7am
��9�o
��=�}
��@��
��B��
��E��
��Im�
��L>�
��V��
��]B#
��0	]D
C6html.go000064400000037056150351646040006056 0ustar00GOOF----LE-8-2.0>]^4hp]gguile�	�	gdefine-module*�	�	�	gtexinfo�	ghtml�	�		gfilenameS�	
ftexinfo/html.scm�	gimportsS�	�	
�	gsxml�	g	transform�	�	�	gice-9�	gmatch�	�	�	gsrfi�	gsrfi-13�	�	�	
�	gexportsS�	gstexi->shtml�	gadd-ref-resolver!�	gurlify�	�	 gset-current-module�	! �	" �	#gand=>�	$gassq�	%garg-ref�	&gerror�	'fMissing argument:�	(garg-req�	)gcar*�	*gstring-downcase�	+g
string-map�	,g
string-append�	-f�	.f#�	/g
ref-resolvers�	0gor-map�	1fCould not resolve reference�	2gresolve-ref�	3gnode�	4gsection�	5gmanual�	6gspan�	7gxref�	8fSee �	978�	:gpxref�	;fsee �	<:;�	=9<�	>gcdr�	?ga�	@g@�	Aghref�	Bgref�	Cgurl�	Dgtitle�	Eguref�	Fgname�	G-�	Hgdefun�	IfFunction�	Jgdefspec�	KfSpecial Form�	Lgdefvar�	MfVariable�	Ngcategory�	Ogdiv�	Pgtable�	Qgcellpadding�	Rf0�	SQR�	Tgcellspacing�	UTR�	Vgwidth�	Wf100%�	XVW�	Ygclass�	Zfdef�	[YZ�	\@SUX[�	]gtr�	^gtd�	_g	data-type�	`gcode�	agb�	bg	deftypeop�	cg	deftypefn�	dg
deftypefun�	eg	arguments�	fgvar�	ggreverse!�	hf �	ifright�	jYi�	k@j�	lf[�	mf]�	nm�	ofdescription�	pYo�	q@p�	rgdef�	sgol�	tg%�	ugstart�	vg
string-ref�	wgnumber?�	xgstring->number�	yg
char->integer�	zgchar-upper-case?�	{g	enumerate�	|gul�	}gitemize�	~gacronym�	&��&��fno matching pattern��g	formatter��gdl��gmap��gdt��gappend��gdd��gitemx��gheading��gentry��g	titlepage��f	titlepage��Y���@����O���gh2��ftitle��Y���@���D����gsubtitle��gh3��fsubtitle��Y���@��������gauthor��fauthor��Y���@��������gexample��gpre������glisp������gsmallexample��fsmaller��Y���@��������g	smalllisp�������g	cartouche��f	cartouche��Y���@����O���gverbatim��fverbatim��Y���@��������gchapter������4���g
subsection��gh4������g
subsubsection��gh5������gappendix������gappendixsec������gappendixsubsec������gappendixsubsubsec������g
unnumbered������g
unnumberedsec������gunnumberedsubsec������gunnumberedsubsubsec������gmajorheading������gchapheading����������g
subheading������g
subsubheading������g	quotation��g
blockquote������gitem��gli������gpara��gp������g
*fragment*���O��gasis���6��gbold���a��gsample��gsamp����������``��gkbd������gkey��fkey��Y���@����`���ff��genv��fenv��Y���@����`���gfile��ffile��Y���@����`���gcommand��fcommand�Y��@��`�goption�foption�Y�@�`�furl�	Y�
@	�C`
�gdfn�
�gcite��gacro�~�gemail�femail�Y�@�`�gemph�gem��gstrong��gsc�f
small-caps�Y�@� 6�!�����������������������������������������
 3�"gtag-replacements�#gpage�$gsetfilename�%gsetchapternewpage�&giftex�'gifinfo�(gifplaintext�)gifxml�*gsp�+gvskip�,gmenu�-gignore�.gsyncodeindex�/gcomment�0gc�1gdircategory�2gdirentry�3gtop�4g
shortcontents�5gcindex�6g
printindex�7#$%&'()*+,-./0123456�8gignore-list�9g
*preorder*�:gpre-post-order�;gxmlns�<fhttp://www.w3.org/1999/xhtml�=;<�>@=�?ghead�@gbody�Ag*text*�Bg	*default*�Cg	copyright�Dg*ENTITY*�Efcopy�FDE�Ggresult�HfrArr�IDH�Jganchor�Kgdeftp�Lgdefcv�Mgdefivar�Ngdeftypeivar�Ogdefop�Pg	defmethod�Qg
deftypemethod�Rgdefopt�Sgdefvr�Tg	deftypevr�Ug
deftypevar�Vgdeffn�Wgdefmac�Xgifnottex�Ygmemq�Zgwarn�[fDon't know how to convert�\fto HTML�]grules�C5h�&$]4	
54">"G#$hc]�6[gx
			gfilenameftexinfo/html.scm�
	/	!��		/	;��			/	-��			Ch�]4�56�gkey
		g%-args		gfilenameftexinfo/html.scm�
	.
��		/		��		/	��		/		��		/	��			gnamegarg-ref�C%R%&'h �]
45$C6�gkey
		 g%-args		 gt			 gfilenameftexinfo/html.scm�
	0
��		1	��		1	��		2	
��	 	2	��		 	gnamegarg-req�C(Rhs]$�CCkgx
		gfilenameftexinfo/html.scm�
	3
��		3	��		3	��		gnamegcar*�C)R*+h0[] �$"/�$":�$-CCSgc
		-gfilenameftexinfo/html.scm�
	8	��		9	��		-Chw]456ogstr
		gfilenameftexinfo/html.scm�
	5
��		7	��		6	��		gnamegurlify�CR,-.h �]4$"56�g	node-name
		gmanual-name		gfilenameftexinfo/html.scm�
	@	��		A	
��	
	A	��		A	,��		A	0��		A	
��		A	��			C/R/h�]� C�gproc
		gfilenameftexinfo/html.scm�
	C
��		K	��			K	��		gnamegadd-ref-resolver!�g
documentationfXAdd @var{proc} to the head of the list of ref-resolvers. @var{proc}
will be expected to take the name of a node and the name of a manual and
return the URL of the referent, or @code{#f} to pass control to the next
ref-resolver in the list.

The default ref-resolver will return the concatenation of the manual
name, @code{#}, and the node name.�CR0h[]LL6Sgx
		
gfilenameftexinfo/html.scm�
	N	��	
	N	��		
C/&1h(�]
4O5$C6�gnode
		'gmanual		'gt			'gfilenameftexinfo/html.scm�
	M
��		N	��		N	��	!	O	
��	'	O	��		'	gnamegresolve-ref�C2R(3)%4526#$=>?@Ahx�]"45�4455$"4455454	4
55
C�gtag
		ugargs		ugnode			ugt			/gsection		/	ugmanual		?	ugtarget		J	ugfilenameftexinfo/html.scm�
	Q
��		R	��		R	��		R	��		R	��		R	��		S	��		S	��		S	%��		S	��		S	��		S	��	/	R	��	2	T	��	5	T	��	9	T	 ��	=	T	��	?	T	��	?	R	��	B	U	��	J	R	��	N	V	��	O	V	��	R	V	��	X	V	��	Z	V	��	^	V	��	`	V	��		u	gnamegref�CBR(C?@A)%D	hH�]45�4455$"C�gtag
		Agargs		Agurl			Agt		*	=gfilenameftexinfo/html.scm�
	Y
��		Z	��		Z	��		Z	��		Z	
��		Z	��		[	��		[	��	 	[	#��	$	[	,��	(	[	#��	*	[	��	*	[	��	@	[	��		A	gnameguref�CER?@F(Gh(�]445�5��C�gtag
		"gargs		"gfilenameftexinfo/html.scm�
	_
��		`	��			`	��		`	��		`	&��		`	��		`	��		`	��		`	��
		"	gnamegnode�C3RHIJKLM(NOP\]^%_`YaFbcdefghklnqh�6-13�$"(�$"�$"
45�	

45$	�"45$	�"$	�"45$	�"$	�"&"&"�$"45$	�""645$	�"$	�""E(45"?�(
�"�����("��"���"����
	����	��C.gtag
		�gargs		�gbody			�gcategory		@�gx		U	jgx		s�gx	��gx	��gx	��gx	gx	$9gx	<Qgelts	T�gin	Z�gout	Z�gfilenameftexinfo/html.scm�
	b
��		u	��		v	��	!	u	��	#	w	 ��	0	u	��	2	x	��	7	y	 ��	;	y	)��	?	y	 ��	@	y	��	@	u	��	D	z	��	M	n	��	Q	n	 ��	U	n	��	U	n	��	]	c	��	_	c	 ��	b	c	��	k	o	 ��	o	o	)��	s	o	 ��	s	o	��	{	c	��	}	c	 ���	c	���	o	���	o	���	e	���	e	���	e	���	p	 ���	p	)���	p	 ���	p	���	c	���	c	 ���	c	���	p	���	p	���	e	���	e	���	e	���	q	���	q	���	r	���	r	$��	r	��	r	��
	c	��	c	 ��	c	��	s	&�� 	s	/��$	s	&��$	s	 ��,	c	��.	c	 ��1	c	��<	s	��<	s	��D	d	��F	d	��I	d	��T	n	��Z	g	��`	h	��a	h	��n	i	��r	h	��u	i	"��	i	���	j	���	k	���	l	���	l	6���	l	0���	k	���	j	���	g	���	g	���	g	���	z	��U		�	
	gnamegdef�CrRst@u(vwxyzh��-13�$���$s��&c4�54
545$45"!4	54	4
5$A"a5�����"""�C�gtag
		�gelts		�gstart		2	{gc		<	xgfilenameftexinfo/html.scm�
�
��	�	��	�	��	�		��	�	&��	�	��	�	
��	�	7��	 �	C��	$�	
��	&�	��	)�	*��	-�	3��	0�	:��	2�	*��	2�	 ��	5�	
��	<�	��	?�	
��	I�	��	J�	��	U�	��	\�	��	_�	,��	i�	(��	s�	��	t�	��	u�	��	|�	����	����	
����	��!		�
gnameg	enumerate�C{R|thX�-13�$=���$ ��&"""�C�gtag
			Sgelts			Sgw			Kgx			Kgw		&	?gfilenameftexinfo/html.scm�
�
��	�	��	�		��	R�	��			S
gnamegitemize�C}Rt~��h�	-13	�$��(���$���&��$q���$T��&5�$!�(
�C456456456456456456456456456gtag
		�gelts		�gw		�gw		)�gx		)�gw		?�gw		R�gx		R�gw		o	y	gfilenameftexinfo/html.scm�
�
��	�	��	s�	 ��	z�	��		�
gnamegacronym�C~R(����h(�]�$�&
�L��CCC�gx
		%gfilenameftexinfo/html.scm�
�	��	�	��		�	��	�	,��	�	4��	�	��	�	��	�	6��	�	&��	�	��		%C�h0�-1345��4O4?5�C�gtag
			-gargs			-gbody				-g	formatter			-gfilenameftexinfo/html.scm�
�
��	
�	��	�	"��	�	��	�	��	�	��	�	
��	�	
��	#�	��	+�	
��	,�	��			-	
	gnamegtable�CPR�����(�	h��-13"^"45�6�$:��$.��& 44��5�5�"���"���"���"���45�"����gtag
		�gargs		�gbody			�gout		
	kgbody		
	kgfilenameftexinfo/html.scm�
�
��	
�	��	�	��	�	��	!�	��	&�	��	&�	��	)�	
��	-�	��	0�	!��	1�	��	5�	��	8�	2��	;�	>��	?�	��	@�	��	F�	��	G�	��	N�	1��	Q�	��	R�	��	T�	��	W�	��	_�	��	k�	��	m�	��	n�	��	r�	!��	v�	��	w�	����	�� 		�	
	gnamegentry�C�R!"R78Rt9hY-13CQgargs
			gfilenameftexinfo/html.scm�
�	��			


C��:>?D(@t9hY-13CQgargs
			gfilenameftexinfo/html.scm�
�	(��			


CAhe]C]gtag
		gx		gfilenameftexinfo/html.scm�
�	(��			CBhr-13�Cjgtag
			gbody			gfilenameftexinfo/html.scm�
�	(��	�	*��			
ChH�-1345��	
���
�6�gtag
			Bgargs			Bgbody				Bgfilenameftexinfo/html.scm�
�	��	
�	��	�	*��	�	3��	�	*��	�	%��	 �	��	-�	��	B�	��
			B	
	C�CFhb-13CZgargs
			gfilenameftexinfo/html.scm�
�	��	�	��			


C�GIhb-13CZgargs
			gfilenameftexinfo/html.scm�
�	��	�	��			


C�7Bi�BBi�:Bi�EEi�33i�J3i�PPi�{{i�}}i�~~i��9�i��Kri�Lri�Mri�Nri�Ori�bri�Pri�Qri�Rri�Sri�Lri�Tri�Uri�Vri�cri�Wri�Jri�Hri�dri�Xhi-13Cagtag
			gbody			gfilenameftexinfo/html.scm�
	��			
C�Ahe]C]gtag
		gx		gfilenameftexinfo/html.scm�
	��			C�B$"�Y8Z[\	hP�-1345$	�645$C4>"GC�gtag
			Kgbody			Kgsubst			Kgfilenameftexinfo/html.scm�
	��	
	!��		��		��		&��	#	��	$	��	0	��	3
	��	7
	��	;
	>��	@
	��
			K
C�%]R:]h]6gtree
		
gfilenameftexinfo/html.scm�

��	
	��		
gnamegstexi->shtml�g
documentationf~Transform the stexi @var{tree} into shtml, resolving references via
ref-resolvers. See the module commentary for more details.�CRCgm
		,gfilenameftexinfo/html.scm�		&
��w	.
��^	0
���	3
��"	5
���	?	��	>
��	C
���	M
��
�	Q
��J	Y
��
J	_
���	b
��(�
��_�
��t�
����
���
���	���
���	���
���	��%��
��&�
��	&�
C6plain-text.go000064400000041042150351646050007166 0ustar00GOOF----LE-8-2.0
B]�4hC]gguile�	�	gdefine-module*�	�	�	gtexinfo�	g
plain-text�	�		gfilenameS�	
ftexinfo/plain-text.scm�	gimportsS�	�	
�	gstring-utils�	�	�	gsxml�	g	transform�	�	�	gsrfi�	gsrfi-1�	�	�	gsrfi-13�	�	�	gice-9�	gmatch�	�	�	 
�	!gexportsS�	"gstexi->plain-text�	#"�	$gset-current-module�	%$�	&$�	'gand=>�	(gassq�	)gcdr�	*garg-ref�	+gerror�	,fMissing argument:�	-garg-req�	.gmake-ticker�	/gformat�	0f~A. �	1gmake-enumerator�	2g
make-fluid�	3f�	4g*indent*�	5f* �	6g
*itemizer*�	7gmake-syntax-transformer�	87�	97�	:gwith-indent�	;gmacro�	<g$sc-dispatch�	=<�	><�	?g_�	@gany�	A?@��	Bg
syntax->datum�	CB�	DB�	Eg
datum->syntax�	FE�	GE�	Hgwith-fluids�	Ig
string-append�	Jg	fluid-ref�	KJ4�	Lgmake-string�	M �	Ngsyntax-violation�	ON�	PN�	Qf-source expression failed to match any pattern�	Rgapply�	Sg
make-indenter�	Tf
�	Ug
string-indent�	Vg
with-itemizer�	Wgfill-string�	Xgstring-concatenate�	Yg
line-widthS�	Zginitial-indentS�	[gsubsequent-indentS�	\gwrap*�	]f

�	^gwrap�	_gwrap-heading�	`gnode�	agname�	bgmanual�	cgxref�	dfSee �	ecd�	fgpxref�	gfsee �	hfg�	ieh�	jgcadr�	kf in manual �	lgref�	mgurl�	ngtitle�	of (�	pf)�	qf`�	rf'�	sguref�	tgdefun�	ufFunction�	vgdefspec�	wfSpecial Form�	xgdefvar�	yfVariable�	zgcategory�	{f - �	|f: �	}gstring-join�	~gfilter�	gidentity��gmap��g	data-type��gclass��g	arguments����a���f ��gdef��g%��gstart��g
string-ref��gnumber?��gstring->number��g
char->integer��gchar-upper-case?��g	enumerate��gitemize��g
string-length��gstring-null?��gstring-copy!��gitem��gtable��gheading��gentry��gmake-underliner��gchapter��gsection��g
subsection��g
subsubsection��gstring-split��gexample��gverbatim��gmap-in-order��gfragment��gpara��gmake-surrounder��gcode��f<��f>��gkey��g
string-upcase��gvar��gpassthrough��gfoo��gpage��gsetfilename��gsetchapternewpage��giftex��gifinfo��gifplaintext��gifxml��gsp��gvskip��gmenu��gignore��gsyncodeindex��gcomment��gc��ganchor�����������������`���gignore-list��gmemq��gignored?��gappendix��gappendixsec��gappendixsubsec��gappendixsubsubsec��g
unnumbered��g
unnumberedsec��gunnumberedsubsec��gunnumberedsubsubsec��gmajorheading��gchapheading��g
subheading��g
subsubheading��gstrong��f*��gsample��gsamp��gmath��gkbd��genv��gfile��gcommand��goption��gdfn��f"��gcite��gacro��gemail��gemph��f_��gsc��g	copyright��f(C)��gresult��f==>��gdots��f...��g	quotation��glisp��gsmallexample��g	smalllisp��g
*fragment*��gdeftp��gdefcv��gdefivar��gdeftypeivar��gdefop��g	deftypeop��g	defmethod��g
deftypemethod��gdefopt��gdefvr��g	deftypevr��g
deftypevar��gdeffn��g	deftypefn��gdefmac��g
deftypefun��gtag-handlers��gstring?�C5h�.�]4	
 !#54&>"G'()"h �]44�556�gkey
		g%-args		gfilenameftexinfo/plain-text.scm�
	%
��		&		��		&	��		&	��		&	��		&		��		&	��			gnamegarg-ref�C*R*+,h �]
45$C6�gkey
		 g%-args		 gt			 gfilenameftexinfo/plain-text.scm�
	(
��		)	��		)	��		*	
��	 	*	��		 	gnamegarg-req�C-RhI]LCAgfilenameftexinfo/plain-text.scm�
	-	��		
Chr]OCjgstr
		
gfilenameftexinfo/plain-text.scm�
	,
��		
gnamegmake-ticker�C.R/0h�]MM�N6|glast
		gfilenameftexinfo/plain-text.scm�
	/	��		0	��			1	��		1	��		2	��		2	��		
Cht]HOClgn
		gfilenameftexinfo/plain-text.scm�
	.
��		gnamegmake-enumerator�C1R42i354R42i4.i5556R49:;>ADGH4IKLMh(s-13����Ckgn
			'gbody			'gfilenameftexinfo/plain-text.scm�
	7
��		8	��			'
Chj]	45L4?6bgargs
		gv			gfilenameftexinfo/plain-text.scm�		7
��		CPQh(h]	45$O@6`gy
		'gtmp		'gfilenameftexinfo/plain-text.scm�
	7
��		'C5:R4ILRh0f-134[4L 55Y4L>ZCZF^gargs
			.gfilenameftexinfo/plain-text.scm�
	=	��		=	��			.


Ch�]OC|gn
		gproc		gfilenameftexinfo/plain-text.scm�
	<
��			gnameg
make-indenter�CSRI4Th�][6|gstr
		
gfilenameftexinfo/plain-text.scm�
	?
��		@	*��	
	@	��		
gnameg
string-indent�CUR49V;>ADGH6h z-13��Crgitemizer
			gbody			gfilenameftexinfo/plain-text.scm�
	B
��		C	��			
Chj]	45L4?6bgargs
		gv			gfilenameftexinfo/plain-text.scm�		B
��		CPQh(h]	45$O@6`gy
		'gtmp		'gfilenameftexinfo/plain-text.scm�
	B
��		'C5VR4WXYZ[h(�-13[45	H6�gstrings
			%gindent		%gfilenameftexinfo/plain-text.scm�
	F
��		G	��		H	��	%	H	��			%


gnamegwrap*�C\RI\]h�-134?6�gstrings
			gfilenameftexinfo/plain-text.scm�
	K
��		L	��		L	'��		L	��			


gnamegwrap�C^RI\Th�-134?6�gstrings
			gfilenameftexinfo/plain-text.scm�
	M
��		N	��		N	'��		N	��			


gnamegwrap-heading�C_R-`*abX'(ij3k
hx�]"4545$"4544	5
5$"$"��6�gtag
		sgargs		sgnode			sgt			)gname		)	sgmanual		4	sgt		H	[gfilenameftexinfo/plain-text.scm�
	P
��		Q	��		Q	��		Q	��		Q	��		R	��		R	��		R	��		R	��	)	Q	��	,	S	��	0	S	��	4	S	��	4	Q	��	9	V	
��	<	V	��	B	V	��	D	V	��	H	V	
��	H	V	��	X	V	B��	c	X	��	e	X	��	o	X	*��	p	U	��	s	T	��		s	gnamegref�ClR-m*nIopqr
h8]4545$6	6	gtag
		4gargs		4gurl			4gtitle			4gfilenameftexinfo/plain-text.scm�
	Z
��		[	
��		[	��		[	
��		\	��		\	��		\	��		[	��		]	��	$	^	��	(	^	&��	*	^	��	.	_	��	2	_	��	4	_	��		4	gnameguref�CsRtuvwxy-zI_{|}~�*ha]L6Ygx
		
gfilenameftexinfo/plain-text.scm�
	e	��	
	e	��		
C��4L"h�~-13�$"'�$"�$"	45	4
4	4
44O555554	[4	 55Y45Z6vgtag
		�gargs		�gbody			�gcategory		?�gfilenameftexinfo/plain-text.scm�
	a
��		i	��		j	��	!	i	��	#	k	 ��	0	i	��	2	l	��	7	m	��	;	m	$��	?	m	��	?	i	��	D	o	��	G	o	��	K	o	"��	O	o	1��	P	c	��	S	d	��	X	e	
��	c	f	��	e	e	
��	g	d	��	i	g	��	k	c	��	m	o	��	o	o	���	p	���	n	��		�	
	gnamegdef�C�R�*�61�����4IL"h��-13�$��$���""$4�5"4$H4
545$45"!4	54	4
5$A"a5��"5Y4[4
	 55Y4$�">Z"ZCZF�gtag
		�gelts		�gargs?		)�gstart		@�gc		U�gfilenameftexinfo/plain-text.scm�
	r
��		x	��		x	��		x	)��		x	"��		x	��		y	��		y	&��		y	��	)	x	��	1	z	��	2	z	��	6	z	$��	9	z	+��	;	z	��	@	x	��	E	{	��	M	{	$��	N	t	
��	U	t	��	X	u	
��	b	u	��	c	u	��	n	v	��	u	w	��	x	w	,���	w	(���	w	���	v	���	v	���	{	���	}	���	}	���	}	%���	}	��$		�
gnameg	enumerate�C�R6.54IL"h@�-1345Y4[4	 55Y4>Z"ZCZF�gtag
			=gargs			=gelts				=gfilenameftexinfo/plain-text.scm�
	
��	�	��	�	��	�	��	*�	��			=	
	gnamegitemize�C�R"6�4��hh6-13454[54[545�45$"
��$4>"G"C.gtag
			bgelts			bgret			bgtick			bgtick-pos		*	bgfilenameftexinfo/plain-text.scm�
�
��	
�	��	�	��	�	��	�	��	�	��	#�	��	*�	��	*�	��	-�	��	7�	��	?�	+��	A�	&��	E�	��	F�	��			b
gnamegitem�C�R"h�-136�gtag
			gargs			gbody				gfilenameftexinfo/plain-text.scm�
�
��	�	��				
	gnamegtable�C�R_"-�I4LhH-134445554[4	 55Y45Z6�gtag
			Agargs			Agbody				Agheading			Agfilenameftexinfo/plain-text.scm�
�
��	
�	��	
�	��	�	%��	�	.��	�	%��	�	��	�	��	�	��	8�	"��	A�	��			A	
	gnamegentry�C�R"ITUL�h8�-1345454445L556�gtag
			4gbody			4gstr			4gfilenameftexinfo/plain-text.scm�
�	��	
�	��	�	��	�	��	�	��	�	��	!�	��	$�	#��	.�	��	0�	��	2�	��	4�	��
			4
Chx]OCpgchar
		
gfilenameftexinfo/plain-text.scm�
�
��		
gnamegmake-underliner�C�R4�i*5�R4�i=5�R4�i-5�R4�i.5�R"IX4L�U�T
hH�-134544[4	 55Y44
55Z5	6�gtag
			Cgbody			Cgret			Cgfilenameftexinfo/plain-text.scm�
�
��	
�	
��	�	��	�	��	-�	��	2�	(��	<�	��	?�	��	A�	��	C�	��			C
gnamegexample�C�R"IX�U�Th0�-1345444
5556�gtag
			-gbody			-gret			-gfilenameftexinfo/plain-text.scm�
�
��	
�	
��	�	��	�	��	�	��	�	��	'�	��	)�	��	+�	��	-�	��			-
gnamegverbatim�C�RX�"h�-13456�gtag
			gbody			gfilenameftexinfo/plain-text.scm�
�
��	�	��	�	��			
gnamegfragment�C�R^"h�-13456�gtag
			gbody			gfilenameftexinfo/plain-text.scm�
�
��	�	��	�	��			
gnamegpara�C�RI"h�-13L45L6ygtag
			gbody			gfilenameftexinfo/plain-text.scm�
�	��	�	��	�	��			
Chw]OCogstr
		
gfilenameftexinfo/plain-text.scm�
�
��		
gnamegmake-surrounder�C�RIq"rh�-13456�gtag
			gbody			gfilenameftexinfo/plain-text.scm�
�
��	
�	��	�	��	�	.��	�	��			
gnamegcode�C�RI�"�h�-13456�gtag
			gbody			gfilenameftexinfo/plain-text.scm�
�
��	
�	��	�	��	�	.��	�	��			
gnamegkey�C�R�"h�-13456�gtag
			gbody			gfilenameftexinfo/plain-text.scm�
�
��	�	��	�	��			
gnamegvar�C�R"h�-136�gtag
			gbody			gfilenameftexinfo/plain-text.scm�
�
��	�	��			
gnamegpassthrough�C�R��-nI"h(�-134455456�gtag
			(gargs			(gbody				(gtitle			(gfilenameftexinfo/plain-text.scm�
�
��	
�	��	�	��	�	��	�	&��	�	��	�	��	�	��	 �	��	(�	��			(	
	gnamegtexinfo�CR��R��hy]6qgtag
		
gfilenameftexinfo/plain-text.scm�
�
��	
�	��		
gnamegignored?�C�Rn�i��i��i��i��i��i��i��i��i��i��i��i��i��i��i��i��i��i�4�i�5��i��i��i��i��i��i��i��i��i��i��im�i�4�i�5�4�i�5��i��i�4�i�5��i��hh-13C`gargs
			gfilenameftexinfo/plain-text.scm�
�	��	�	 ��			


C��hh-13C`gargs
			gfilenameftexinfo/plain-text.scm�
�	��	�	 ��			


C��hh-13C`gargs
			gfilenameftexinfo/plain-text.scm�
�	��	�	 ��			


Cclilliflissii�4Si	�i5��i��i��i��i��i��i��i��i��i��i��i��i��i��i��i��i��i��i��i��i��ix�i��i��i��i��i��iv�it�i��iL�R3��'(�j�X�"h��](C45$C�$����$b�$D45$"#4455$"$@C�$
	4
56C�$
	4
56C�$
	4
56C�gtree
	�gw	&�gx		&�gt		X	kghandler		k	|gfilenameftexinfo/plain-text.scm�
#
��	%	��	
&	��	%	��	9)	��	C)	��	I*	��	L*	$��	X*	��	X*	��	k)	��	s,	��	y-	��	{.	��	%	���0	���0	���1	���%	���0	���0	���1	���%	���0	���0	���1	��	�gnamegstexi->plain-text�g
documentationf7Transform @var{tree} into plain text. Returns a string.�C"RC�gm
		,gfilenameftexinfo/plain-text.scm�		
��	%
��	(
���	,
��7	.
��8	4	��>	4	��@	4	��C	4
��D	5	��I	5	��O	5	,��Q	5	��S	5	��V	5
���	<
��_	?
��@	F
���	K
���	M
���	P
��l	Z
��9	a
��	r
��,	
����
����
���
����
����	����
����	����
����	���
���	���
��g�
����
�� h�
��!,�
��"r�
��#F�
��$�
��$��
��%��
��&��
��&��	��&��
��'|�
��'~�	��(!�	��('�	$��()�	��(,�	��(��	��(��	$��(��	��(��	��(��	��(��	$��(��	��(��	��(��	��(��	$��(��	��(��	��*�	��*��	��+��
��.�#
��H	.�
C6docbook.go000064400000023123150351646050006521 0ustar00GOOF----LE-8-2.0;&]�4h�]gguile�	�	gdefine-module*�	�	�	gtexinfo�	gdocbook�	�		gfilenameS�	
ftexinfo/docbook.scm�	gimportsS�	gsxml�	
gfold�	
�	�	gsrfi�	gsrfi-1�	�	gselectS�	
�	�	�	gexportsS�	g*sdocbook->stexi-rules*�	g*sdocbook-block-commands*�	gsdocbook-flatten�	gfilter-empty-elements�	greplace-titles�	�	gset-current-module�	�	 �	!gidentity�	"g@�	#gidentity-deattr�	$g	detag-one�	%g	parameter�	&gvar�	'%&�	(greplaceable�	)(&�	*gtype�	+gcode�	,*+�	-gfunction�	.-+�	/gliteral�	0gsamp�	1/0�	2gemphasis�	3gemph�	423�	5gsimpara�	6gpara�	756�	8gprogramlisting�	9gexample�	:89�	;g	firstterm�	<gdfn�	=;<�	>gfilename�	?gfile�	@>?�	Agquote�	Bgcite�	CAB�	Dgapplication�	EDB�	Fgsymbol�	GF+�	Hgnote�	Ig	cartouche�	JHI�	Kgenvar�	Lgenv�	MKL�	N'),.147:=@CEGJM�	Ogtag-replacements�	Pgignore-list�	Qgwith-output-to-string�	Rgwrite�	Sg	stringify�	Tg
*preorder*�	Ug%�	Vgorderedlist�	Wglistitem�	Xgitem�	Yg	enumerate�	Zgitemizedlist�	[gitemize�	\gacronym�	]gterm�	^ginformalexample�	_gsection�	`g
subsection�	ag
subsubsection�	bgulink�	cgassq�	dgurl�	eguref�	fgtitle�	gg*text*�	hg	*default*�	igappend�	jgwarn�	kfIgnoring�	lf
attributes�	mgmemq�	nfDon't know how to convert�	ofto stexi�	pgc�	qgall�	rg	indexterm�	sgvariablelist�	tgrefsect1�	ugrefsect2�	vgrefsect3�	wgrefsect4�	xg
informaltable�	y68^rsVtuvwf9HZx�	zginline-command?�	{i�	|i�	}greverse�	~gfoldts*-values�	gchapter��t���u_���v`���wa��������C5h��]4	
54 >"Gho-13Cggargs
			gfilenameftexinfo/docbook.scm�
	(
��			


gnamegidentity�C!R"h@�-13�$%��$��&�"""�C�gtag
			;gbody			;gfilenameftexinfo/docbook.scm�
	+
��		,	��		,	��		,	(��		,	!��		,	��		-	��	 	-	%��	$	,	��	'	.	��	:	,	��			;
gnamegidentity-deattr�C#Rh]Cwgtag
		gbody		gfilenameftexinfo/docbook.scm�
	1
��			gnameg	detag-one�C$RNORPRQRhN]L6Fgfilenameftexinfo/docbook.scm�
	H	��		H	$��		
Chu]O6mgexp
		
gfilenameftexinfo/docbook.scm�
	G
��	
	H	��		
gnameg	stringify�CSR"T!i��UT!i��6#i�VWXhs-13�Ckgtag
			gbody			gfilenameftexinfo/docbook.scm�
	R	��		S	��			
C�Yhs-13�Ckgtag
			gbody			gfilenameftexinfo/docbook.scm�
	T	��		U	��			
C��ZWXhs-13�Ckgtag
			gbody			gfilenameftexinfo/docbook.scm�
	W	��		X	��			
C�[hs-13�Ckgtag
			gbody			gfilenameftexinfo/docbook.scm�
	Y	��		Z	��			
C��\\Uh s-13�Ckgtag
			gbody			gfilenameftexinfo/docbook.scm�
	[	��		\	��			
C�]$i�^$i�_!i�`!i�a!i�bcdeUfh8�-134�5$�C�C�gtag
			1gattrs			1gbody				1gt			1gfilenameftexinfo/docbook.scm�
	b	��	
	d	��		d	��		d	��		d	��		c	��		f	��	0	h	��				1	
	C�g$i�hcOi"jklmPnopUqSh��-1345$U"	�6�$=��$1��&#4�>"G��6"���"���"���4	5$C4
>"G
4�5C�gtag
		�gbody		�gsubst		�gfilenameftexinfo/docbook.scm�
	j	��	
	k	!��		k	��		l	��	#	r	$��	'	r	��	'	n	��	*	n	!��	.	n	��	1	n	5��	2	n	.��	6	n	��	9	n	F��	<	n	R��	@	n	��	A	p	��	E	p	$��	I	p	3��	L	p	@��	Q	p	��	^	q	&��	a	q	2��	c	q	��	p	s	��	|	l	��		u	���	u	���	u	>���	u	���	v	���	v	%���	v	0���	v	%���	v	��#		�
C�RyRmh�]45�C�gcommand
		
gfilenameftexinfo/docbook.scm�
�
��	�	��	�	��		
gnameginline-command?�CzRU|}h(�]L4L$	L"455�D�gaccum
		%gblock		%gfilenameftexinfo/docbook.scm�
�	��	�	��	
�	��	�	(��	�	5��	�	��	 �	��	%�	��			%	ChXn]���$&���$���&��"""$��"�ODfgnode
		Vgaccum		Vgblock			Vgcont			Vgcommand		4	Vgattrs		4	Vgfilenameftexinfo/docbook.scm�
�	��	�	��	�	��		�	��	
�	��	�	0��	�	)��	�	��	�	��	�	(��	!�	��	$�	��	4�	��	>�	��	A�	��	I�	$��	J�	��	K�	��	V�	��		V	gnamegfdown�C~zihHy]4>G4�5$�45D4�5Dqgnode
		Fgpaccum		Fgpblock			Fgpcont			Fgkaccum			Fgkblock			Fgkcont			Fgret			Fgblock			F	gfilenameftexinfo/docbook.scm�
�	��	�	!��	�	��	�	��	�	��	�	��	"�	��	'�	��	(�	&��	4�	��	7�	��	@�	*��	B�	��	F�	��		F	gnamegfup�Ch�]�D�gstr
		
gaccum		
gblock			
gcont			
gfilenameftexinfo/docbook.scm�
�	��	�	��	
�	��		
	gnamegfhere�C}h0"]!4>G6gsdocbook
		)gfdown		)gaccum			)gblock			)gcont			)gfilenameftexinfo/docbook.scm�
�
��	�	��	�	:��	�	>��	�	��	�	��	)�	��		)gnamegsdocbook-flatten�g
documentationf"Flatten" a fragment of sdocbook so that block elements do not nest
inside each other.

Docbook is a nested format, where e.g. a @code{refsect2} normally
appears inside a @code{refsect1}. Logical divisions in the document are
represented via the tree topology; a @code{refsect2} element
@emph{contains} all of the elements in its section.

On the contrary, texinfo is a flat format, in which sections are marked
off by standalone section headers like @code{@@chapter}, and block
elements do not nest inside each other.

This function takes a nested sdocbook fragment @var{sdocbook} and
flattens all of the sections, such that e.g.
@example
 (refsect1 (refsect2 (para "Hello")))
@end example
becomes
@example
 ((refsect1) (refsect2) (para "Hello"))
@end example

Oftentimes (always?) sectioning elements have @code{<title>} as their
first element child; users interested in processing the @code{refsect*}
elements into proper sectioning elements like @code{chapter} might be
interested in @code{replace-titles} and @code{filter-empty-elements}.
@xref{texinfo docbook replace-titles,,replace-titles}, and @ref{texinfo
docbook filter-empty-elements,,filter-empty-elements}.

Returns a nodeset, as described in @ref{sxml xpath}. That is to say,
this function returns an untagged list of stexi elements.�CR}
h(�]"�C�$�(C"���"����gx
		%grest		%gfilenameftexinfo/docbook.scm�
�	��	�	
��	�	��	�	��	�	��	�	 ��	�	
��		%	Ch ]456gsdocbook
		gfilenameftexinfo/docbook.scm�
�
��	�	��	
�	��	�	��	�	��		gnamegfilter-empty-elements�g
documentationfgFilters out empty elements in an sdocbook nodeset. Mostly useful
after running @code{sdocbook-flatten}.�CR}c�hh]"U(6��$4��5"$��������"������"���"���gsdocbook-fragment
		fgin		[gout			[gt		*	[gfilenameftexinfo/docbook.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	 �	"��	#�	��	%�	��	*�	��	5�	��	9�	"��	<�	/��	?�	��	B�	��	J�	��	M�	
��	P�	��	S�	��	[�	��	[�	��	^�	'��	f�	��		fgnamegreplace-titles�g
documentationfrIterate over the sdocbook nodeset @var{sdocbook-fragment},
transforming contiguous @code{refsect} and @code{title} elements into
the appropriate texinfo sectioning command. Most useful after having run
@code{sdocbook-flatten}.

For example:
@example
 (replace-titles '((refsect1) (title "Foo") (para "Bar.")))
    @result{} '((chapter "Foo") (para "Bar."))
@end example
�CRC�gm
		,gfilenameftexinfo/docbook.scm�		
���	(
���	+
���	1
���	5	���	4
���	E	���	E
���	G
���	N	��
q	J
��
s�	��
v�
��%�
���
��#�
����
��	�
C6serialize.go000064400000037576150351646050007111 0ustar00GOOF----LE-8-2.0f?]�4hw]gguile�	�	gdefine-module*�	�	�	gtexinfo�	g	serialize�	�		gfilenameS�	
ftexinfo/serialize.scm�	gimportsS�	�	
�	gstring-utils�	�	�	gsxml�	g	transform�	�	�	gsrfi�	gsrfi-1�	�	�	gsrfi-13�	�	�	
�	gexportsS�	gstexi->texi�	�	 gset-current-module�	! �	" �	#greverse�	$glist-intersperse�	%greverse!�	&gfilter*�	'gappend�	(glist*�	)f
�	*f �	+f@�	,ginclude�	-g
empty-command�	.gstring=?�	/f*braces*�	0f@}�	1g
append-map�	2f@{�	3f}�	4f{�	5ginline-text�	6gmap�	7gwarn�	8fStrange inline-args!�	9gerror�	:fInvalid inline-args�	;f�	<g
drop-while�	=gnot�	>gassq-ref�	?f,�	@ginline-args�	A?�	Bginline-text-args�	C*�	Dgserialize-text-args�	Eg
eol-text-args�	Fgeol-text�	Gf, �	Hgeol-args�	If@bye
�	Jf
@c %**end of header

�	Kgtitle�	Lf
@settitle �	Mgand=>�	Ngfilename�	Of
@setfilename �	Pf8\input texinfo   @c -*-texinfo-*-
@c %**start of header
�	Qf

�	Rf@end �	Sg
string-ref�	Tg
string-length�	Ugenviron�	Vgsymbol->string�	Wg
table-environ�	Xgfill-string�	Ygstring-concatenate�	Zg
line-widthS�	[gbreak-long-words?S�	\gwrap�	]g	paragraph�	^f@item
�	_gitem�	`f@item �	agentry�	bf
@c %end of fragment
�	cf
@c %start of fragment

�	dgfragment�	eg
EMPTY-COMMAND�	fgINLINE-TEXT�	ggINLINE-ARGS�	hgINLINE-TEXT-ARGS�	igEOL-TEXT�	jg
EOL-TEXT-ARGS�	kgINDEX�	lgEOL-ARGS�	mgENVIRON�	ng
TABLE-ENVIRON�	ogENTRY�	pgITEM�	qg	PARAGRAPH�	rgFRAGMENT�	sgserializers�	tfUnknown command type�	u}{@�	vg
escaped-chars�	wgstring�	xgmemq�	ygstring->list�	zgescape�	{gstring-concatenate-reverse�	|gstring?�	}gassq�	~gtexi-command-specs�	gsymbol?��g%��f$Unknown stexi command, not rendering��f
Invalid stexi�C5h5<]4	
54">"G#h@](C" (6����"�����"���gsrc-l
		@gelem		@gl			/gdest			/gfilenameftexinfo/serialize.scm�
	"
��		#	��		$	��		%	��		%	��		&	��	!	&	 ��	&	&	(��	'	&	��	/	&	��	/	$	��	2	$	��	5	$	-��	8	$	9��	@	$	��		@	gnameglist-intersperse�C$R%hhF]"U(6�$#�4�5$
��""���45$	�""���"���>gpred
		fgl		fgin			[gout			[gfilenameftexinfo/serialize.scm�
	)
��		*	��		+	��		,	��		-	��		+	��		.	��		.	��	"	.	"��	$	.	��	(	.	��	+	.	2��	.	.	,��	<	.	��	=	0	��	>	0	��	H	0	��	M	0	!��	[	0	��	[	*	��	^	*	��	f	*	��		f	gnamegfilter*�C&R#'hxz-1345�"K(C��$�4�5"����(
�"������"����"���rgargs
			sgargs		sgtail			sgin			fgout			fgfilenameftexinfo/serialize.scm�
	3
��	
	4	��		4	��		5	��		4	��		6	��	!	7	��	'	8	��	(	8	
��	,	7	��	/	8	"��	0	8	+��	5	8	3��	9	8	+��	A	8	��	D	9	��	H	7	��	K	9	"��	U	9	��	X	:	��	[	:	%��	^	:	��	f	:	��	f	6	��	i	6	��	s	6	��			s


gnameglist*�C(R()$*+h ]456gexp
		glp		gcommand			gtype			gformals			gargs			gaccum			gfilenameftexinfo/serialize.scm�
	?	��		@	��		A	��	
	C	��		A	��		D	��		D	��		@	��				gnameginclude�C,R(*+h�]6�gexp
		glp		gcommand			gtype			gformals			gargs			gaccum			gfilenameftexinfo/serialize.scm�
	F
��		G		��	
	G	��		G	��			gnameg
empty-command�C-R./(01hh]L6`gx
			gfilenameftexinfo/serialize.scm�
	O	��		O	+��			O	%��			C#23hh]L6`gx
			gfilenameftexinfo/serialize.scm�
	L	��		L	+��			L	%��			C4+
hP�]45$4O4�556	4
O4�556�gexp
		Oglp		Ogcommand			Ogtype			Ogformals			Ogargs			Ogaccum			Ogfilenameftexinfo/serialize.scm�
	I
��		J	��			J	��		J	��		J	��		N	
��		O	
��		O	1��	#	O	:��	%	O	1��	'	O	
��	)	P	
��	-	N	��	1	K	
��	2	L	
��	<	L	1��	A	L	:��	C	L	1��	E	L	
��	G	M	
��	K	M	��	O	K	��		O	gnameginline-text�C5R(3$6789:;h@�]$3�$$��$4L>"G"�CL6C�gx
		>gfilenameftexinfo/serialize.scm�
	W	��		X	��		Y	��		X	��		Z	#��		Z	��		Z	��		[	��		[	"��	#	[	��	2	\	��	7	]	$��	;	]	��	=	X	 ��		>C<=>h`]L6Xgx
		
gfilenameftexinfo/serialize.scm�
	_	 ��	
	_	,��		
C#?;4+hPb]$144O44O4	5555
5"
6Zgexp
		Iglp		Igcommand			Igtype			Igformals			Igargs			Igaccum			Igfilenameftexinfo/serialize.scm�
	R
��		S		��		T		��	
	U	
��		V	��		^	��		_	��	)	`	 ��	1	_	��	3	^	��	5	V	��	7	a	��	9	U	
��	?	T	��	A	b		��	E	b	��	I	S	��		I	gnameginline-args�C@R(3'$61hh]L6`gx
			gfilenameftexinfo/serialize.scm�
	k	(��		k	:��			k	4��			C#hh]LO456`gx
		gfilenameftexinfo/serialize.scm�
	k	��		k	@��		k	��		C<=>h`]L6Xgx
		
gfilenameftexinfo/serialize.scm�
	m	!��	
	m	-��		
C#A;4+hPw]$6444O44	O4
55555?"
6ogexp
		Nglp		Ngcommand			Ngtype			Ngformals			Ngargs			Ngaccum			Ngfilenameftexinfo/serialize.scm�
	d
��		e		��		f		��	
	g	
��		i	��		j	��		l	��	"	m	��	,	n	!��	4	m	��	6	l	��	8	j	��	:	o	��	<	i	��	>	g	
��	D	f	��	F	p		��	J	p	��	N	e	��		N	gnameginline-text-args�CBR'$61hh]L6`gx
			gfilenameftexinfo/serialize.scm�
	v	#��		v	5��			v	/��			Chb]LO6Zgarg
		gfilenameftexinfo/serialize.scm�
	v		��		v	��		C#<=>h`]L6Xgx
		
gfilenameftexinfo/serialize.scm�
	z	��	
	z	 ��		
CC
h@]44O444O455555	5@�glp
		:gformals		:gargs			:gfilenameftexinfo/serialize.scm�
	r
��		u	��		v	��		w		��		y	
��		z	��	&	{	��	.	z	��	0	y	
��	2	w		��	4	v	��	6	|	��	8	u	��	:	s	��		:	gnamegserialize-text-args�CDR()D*+h ]456gexp
		glp		gcommand			gtype			gformals			gargs			gaccum			gfilenameftexinfo/serialize.scm�
	~
��				��	�		��	�		��	�	��			��			gnameg
eol-text-args�CER()1hk]L6cgx
			gfilenameftexinfo/serialize.scm�
�	��	�	'��		�	!��			C#*+h8C]4O4$��"�556;gexp
		2glp		2gcommand			2gtype			2gformals			2gargs			2gaccum			2gfilenameftexinfo/serialize.scm�
�
��	�		��	�		��	�	��	�	��	�	'��	$�	2��	&�	��	(�		��	*�		��	.�	��	2�	��
		2	gnamegeol-text�CFR()$'<=6>hb]L6Zgx
		
gfilenameftexinfo/serialize.scm�
�	"��	
�	.��		
C#G*+
h8^]4444O4	555?
56Vgexp
		6glp		6gcommand			6gtype			6gformals			6gargs			6gaccum			6gfilenameftexinfo/serialize.scm�
�
��	�		��	�		��	
�	
��	
�	��	�	��	�	"��	$�	��	&�	��	(�	
��	*�	
��	,�		��	.�		��	2�	��	6�	��		6	gnamegeol-args�CHR(I1hk]L6cgx
			gfilenameftexinfo/serialize.scm�
�	��	�	*��		�	$��			C#J>KLMN)#Oh�]4�5�C�gfilename
		gfilenameftexinfo/serialize.scm�
�	��	�	��	�	$��		�	3��	�	-��	�	$��	�	��		C;PQRhk]L6cgx
			gfilenameftexinfo/serialize.scm�
�	$��	�	6��		�	0��			CST)D*+h�]��$T4O4��5544	55
445
5$"64O4$��"�55("4�4�5�5
�$"�456
�gexp
	�glp	�gcommand		�gtype		�gformals		�gargs		�gaccum		�gkey		�gt		K	^gbody	��
gfilenameftexinfo/serialize.scm�
�
��	�	��	�	��	�	��	�	��	�	0��	$�	9��	'�	0��	)�	��	+�	��	,�	��	/�	��	5�	$��	7�	��	9�	��	;�	-��	<�	��	?�	��	E�	&��	G�	��	K�	��	K�	��	[�	��	`�	��	d�	��	h�	��	l�	��	m�	��	w�	$��	�	-����	6����	A����	$����	����	����	����	����	����	(����	,����	;����	,����	(����	����	����	����	����	����	����	����	����	����	��6	�	gnamegenviron�CUR(QR1hk]L6cgx
			gfilenameftexinfo/serialize.scm�
�	��	�	'��		�	!��			C#);V+*hh�]4O4$��"�55$	���"�$4	�5
"
6
�gexp
		hglp		hgcommand			hgtype			hgformals			hgargs			hgaccum			hgarg		?	^gfilenameftexinfo/serialize.scm�
�
��	�		��	
�	��	�		��	�	��	�	��	 �	'��	(�	2��	*�	��	,�		��	.�		��	4�	��	7�	��	?�	+��	?�		��	D�	��	H�	��	I�	��	N�	%��	P�	��	R�	0��	U�	��	`�		��	d�	��	h�	��		h	gnameg
table-environ�CWRXYZ[h�]45	H6ygstrings
		gfilenameftexinfo/serialize.scm�
�
��	�	��	�	��		gnamegwrap�C\R(Q\#1hk]L6cgx
			gfilenameftexinfo/serialize.scm�
�	��	�	)��		�	#��			Ch(D]444O4�55556<gexp
		(glp		(gcommand			(gtype			(gformals			(gargs			(gaccum			(gfilenameftexinfo/serialize.scm�
�
��	�		��	�		��	
�	
��	
�	��	�	/��	�	8��	�	/��	 �	��	"�	
��	$�		��	(�	��
		(	gnameg	paragraph�C]R(1hk]L6cgx
			gfilenameftexinfo/serialize.scm�
�	��	�	'��		�	!��			C#^h ]4O4�556gexp
		glp		gcommand			gtype			gformals			gargs			gaccum			gfilenameftexinfo/serialize.scm�
�
��	�		��	�	-��	�	6��	�	-��	�		��	�		��	�	��				gnamegitem�C_R(1hk]L6cgx
			gfilenameftexinfo/serialize.scm�
�	��	�	'��		�	!��			C#)hk]L6cgx
			gfilenameftexinfo/serialize.scm�
�	��	�	'��		�	!��			C`h8R]4O4��554O4��556Jgexp
		6glp		6gcommand			6gtype			6gformals			6gargs			6gaccum			6gfilenameftexinfo/serialize.scm�
�
��	�		��	�	-��	�	6��	�	-��	�		��	�		��	�		��	&�	-��	+�	6��	.�	-��	0�		��	2�		��	6�	��		6	gnamegentry�CaR(b1hk]L6cgx
			gfilenameftexinfo/serialize.scm�
�	��	�	'��		�	!��			C#ch (]4O4�556 gexp
		 glp		 gcommand			 gtype			 gformals			 gargs			 gaccum			 gfilenameftexinfo/serialize.scm�
�
��	�		��	�		��	�	-��	�	6��	�	-��	�		��	�		��	 �	��
		 	gnamegfragment�CdRe-i�f5i�g@i�hBi�iFi�jEi�kEi�lHi�mUi�nWi�oai�p_i�q]i�rdi�,i�sR>s9th8&]45$"456gexp
		4glp		4gcommand			4gtype			4gformals			4gargs			4gaccum			4gt			4gfilenameftexinfo/serialize.scm�
�
��	�	��	�	��	�	��	�	��	$�	��	4�	��		4	gnameg	serialize�CRuvRw#xvyh`�]"D(45@4�5$��@��"������"���45"����gstr
		Zgin		Jgout			Jgfilenameftexinfo/serialize.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	!�	��	%�	��	(�	��	+�	"��	0�	��	9�	��	<�	��	?�	!��	B�	��	J�	��	J�	��	K�	��	R�	*��	Z�	��		Zgnamegescape�g
documentationfBEscapes any illegal texinfo characters (currently @{, @}, and @@).�CzR{|z}~V&�7�9�h� ]
$�"$C45$45�C�$�4�5$rL4�5��4��5"��$"@�"9��$-���$���	&	���""���""���""���64
>"GC
6gin
	�gout	�gcommand-spec		>�gfilenameftexinfo/serialize.scm�
�	��	�	��	�	��	�	��	�	��	�	��	"�	��	#�	��	,�	��	0�	��	4�	��	5�	��	:�	!��	>�	��	>�	��	F		��	M	��	R	(��	T	��	W	��	Y	��	`	)��	c	��	j
	��	o		��	w	��	{		��	~
	&��	
	���		���
	7���
	0���
	���	$���	/���
	���	���	
���	���	���	���	���	��,	�	gnameglp�Ch �]	OQ456�gtree
		glp		gfilenameftexinfo/serialize.scm�
�
��	�	��	�	��	�	��	�	��		gnamegstexi->texi�g
documentationf2Serialize the stexi @var{tree} into plain texinfo.�CRC4gm
		,gfilenameftexinfo/serialize.scm�		
���	"
��a	)
��m	3
���	?	���	F
��
�	I
��e	R
���	d
���	r
��2	~
��V�
����
�� ��
��#i�
��$�
��&/�
��(�
��*��
��,��
��,��	��-)�
��.��
��.��	��.��
��0��
��5�
��	5
C6indexing.go000064400000005520150351646050006707 0ustar00GOOF----LE-8-2.08]=4h�]gguile�	�	gdefine-module*�	�	�	gtexinfo�	gindexing�	�		gfilenameS�	
ftexinfo/indexing.scm�	gimportsS�	gsxml�	
gsimple�	
�	�	gsrfi�	gsrfi-13�	�	�	�	gexportsS�	gstexi-extract-index�	�	gset-current-module�	�	�	gdeftp�	gdefcv�	gdefivar�	gdeftypeivar�	gdefop�	 g	deftypeop�	!g	defmethod�	"g
deftypemethod�	#gdefopt�	$gdefvr�	%gdefvar�	&g	deftypevr�	'g
deftypevar�	(gdeffn�	)g	deftypefn�	*gdefspec�	+gdefmac�	,gdefun�	-g
deftypefun�	. !"#$%&'()*+,-�	/gdefines�	0gcindex�	1gfindex�	2gvindex�	3gkindex�	4gpindex�	5gtindex�	6012345�	7gindices�	8ganchor�	9gmemq�	:gassq�	;gname�	<gsxml->string�C5h�~]4	
54>"G./R67R89/:;7<h�C](C��$�"�4L�5"�����$����$���&{4���5$/��4�����5��4����5����"��|4���5$(��4��54����5����"��D"��U"��Q"��M"��I�"��';gin
	�gentries	�gfilenameftexinfo/indexing.scm�
	5	��		6	��		9	
��		9	��		6	��		F	��		F	��	 	F	��	$	F	��	,	F	��	,	:	��	/	;	��	0	;	
��	4	:	��	7	;	%��	9	;	��	=	;	��	@	<	��	C	<	��	G	;	��	H	<	%��	M	<	+��	S	<	%��	W	;	��	Z	=	��	\	=	%��	`	=	+��	c	=	6��	g	=	1��	i	=	%��	j	=	��	l	>	%��	p	>	+��	s	>	1��	x	>	%��	y	>	��	{	=	���	=	���	A	%���	A	+���	A	%���	@	���	B	���	B	���	B	-���	B	���	C	%���	C	+���	C	1���	C	%���	C	���	B	���	B	���	H	���	H	��8	�	gnamegloop�Ch]OQ6gtree
		gmanual-name		gkind			gloop		
	gfilenameftexinfo/indexing.scm�
	*
��	
	5	��		5	 ��		5	��			gnamegstexi-extract-index�g
documentationf6Given an stexi tree @var{tree}, index all of the entries of type
@var{kind}. @var{kind} can be one of the predefined texinfo indices
(@code{concept}, @code{variable}, @code{function}, @code{key},
@code{program}, @code{type}) or one of the special symbols @code{auto} 
or @code{all}. @code{auto} will scan the stext for a @code{(printindex)}
statement, and @code{all} will generate an index from all entries,
regardless of type.

The returned index is a list of pairs, the @sc{car} of which is the
entry (a string) and the @sc{cdr} of which is a node name (a string).�CRCvgm
		,gfilenameftexinfo/indexing.scm�		
��	.	#	��	1	"
��	3	(	��	6	'
���	*
��	�
C6string-utils.go000064400000040617150351646050007554 0ustar00GOOF----LE-8-2.0wA]S4h�]gguile�	�	gdefine-module*�	�	�	gtexinfo�	gstring-utils�	�		gfilenameS�	
ftexinfo/string-utils.scm�	gimportsS�	gsrfi�	
gsrfi-13�	
�	�	gsrfi-14�	�	�	�	gexportsS�	gescape-special-chars�	gtransform-string�	gexpand-tabs�	g
center-string�	gleft-justify-string�	gright-justify-string�	gcollapse-repeated-chars�	gmake-text-wrapper�	gfill-string�	gstring->wrapped-lines�	
�	 gset-current-module�	! �	" �	#gopen-output-string�	$gchar?�	%gchar=?�	&g
procedure?�	'gstring?�	(gstring-index�	)gboolean?�	*gthrow�	+gbad-type�	,f'expected #t, char, string, or procedure�	-gdisplay�	.g
string-length�	/g	substring�	0gstring-for-each�	1g
write-char�	2gget-output-string�	3gmake-string�	4gstring�	5gmax�	6g
string-append�	7godd?�	8f�	9gchar-set-complement�	:gchar-set:whitespace�	;greverse�	<gsplit-by-single-words�	=g
string-ref�	>gend-of-sentence?�	?g
line-widthS�	@?
��	Agexpand-tabs?S�	BA��	Cg	tab-widthS�	DC	��	Egcollapse-whitespace?S�	FE	��	Ggsubsequent-indentS�	HG	��	Iginitial-indentS�	JI	��	Kgbreak-long-words?S�	LK	��	M@BDFHJL�	Ngstring-trim�	Of �	Pgstring-join�	Qf
�	Rginfix�C5hx:�]4	
54">"G#$%hc]L6[gc
		
gfilenameftexinfo/string-utils.scm�
	O	��	
	O	%��		
C&'(hc]L6[gc
		
gfilenameftexinfo/string-utils.scm�
	S	��	
	S	%��		
C)h[]LCSgc
		gfilenameftexinfo/string-utils.scm�
	U	��		C*+,-hk]4L5L6cgc
		gfilenameftexinfo/string-utils.scm�
	X	��		X	,��		X	#��		C-hc]LL6[gc
		
gfilenameftexinfo/string-utils.scm�
	Y	��	
	Y	#��		
C.-/01h {]4L5$L6L6sgc
		gfilenameftexinfo/string-utils.scm�
	a	��		b	��	
	b	��		d	��		g	��		C2hX-	-.,3##4545$O"F45$"545$O"45$O"	4	
545$
O"	
O$245�$ 44
5>"G""4O$"
$"45>"G$145�$445>"G""6%	gstr
	Xgmatch?	Xgreplace		Xgstart		Xgend		Xgos		#Xgmatcher	�Xgreplacer	�Xgfilenameftexinfo/string-utils.scm�
	'
��		M	
��	#	M	��	&	N	��	0	N	��	<	P	��	F	N	��	M	R	��	W	N	��	c	T	��	m	N	��	y	V	��	}	V	%��		V	/���	V	���	M	���	W	���	W	���	M	���	\	���	\	���	\	���	\	���	]	���	]	���	]	���	`	���	i	��	j	��	j	
��	`	��!	m	��$	m	��+	m	��/	m	��0	n	��3	n	��B	n	��X	p	��(	X		gnamegtransform-string�g
documentationf�Uses @var{match?} against each character in @var{str}, and performs a
replacement on each character for which matches are found.

@var{match?} may either be a function, a character, a string, or
@code{#t}.  If @var{match?}  is a function, then it takes a single
character as input, and should return @samp{#t} for matches.
@var{match?} is a character, it is compared to each string character
using @code{char=?}.  If @var{match?} is a string, then any character
in that string will be considered a match.  @code{#t} will cause 
every character to be a match.

If @var{replace} is a function, it is called with the matched
character as an argument, and the returned value is sent to the output
string via @samp{display}.  If @var{replace} is anything else, it is
sent through the output string via @samp{display}.

Note that te replacement for the matched characters does not need to
be a single character.  That is what differentiates this function from
@samp{string-map}, and what makes it useful for applications such as
converting @samp{#\&} to @samp{"&amp;"} in web page text.  Some other
functions in this module are just wrappers around common uses of
@samp{transform-string}.  Transformations not possible with this
function should probably be done with regular expressions.

If @var{start} and @var{end} are given, they control which portion
of the string undergoes transformation.  The entire input string
is still output, though.  So, if @var{start} is @samp{5}, then the
first five characters of @var{str} will still appear in the returned
string.

@lisp
; these two are equivalent...
 (transform-string str #\space #\-) ; change all spaces to -'s
 (transform-string str (lambda (c) (char=? #\space c)) #\-)
@end lisp�CR3h(u-.,3#		4 56mgstr
		'gtab-size		'gfilenameftexinfo/string-utils.scm�
	r
��		z	��	'	x	��		'gnamegexpand-tabs�g
documentationf�Returns a copy of @var{str} with all tabs expanded to spaces.  @var{tab-size} defaults to 8.

Assuming tab size of 8, this is equivalent to: @lisp
 (transform-string str #\tab "        ")
@end lisp�CR$%he]L6]gc
		
gfilenameftexinfo/string-utils.scm�
�	��	
�	$��		
C(he]L6]gc
		
gfilenameftexinfo/string-utils.scm�
�	��	
�	$��		
C4he]L6]gc
		
gfilenameftexinfo/string-utils.scm�
�	��	
�	 ��		
Ch0)]45$O"OO6!gstr
		,g
special-chars		,gescape-char			,gfilenameftexinfo/string-utils.scm�
	|
��	�	��	�	��	,�	��		,	gnamegescape-special-chars�g
documentationfGReturns a copy of @var{str} with all given special characters preceded
by the given @var{escape-char}.

@var{special-chars} can either be a single character, or a string consisting
of all the special characters.

@lisp
;; make a string regexp-safe...
 (escape-special-chars "***(Example String)***"  
                      "[]()/*." 
                      #\\)
=> "\\*\\*\\*\\(Example String\\)\\*\\*\\*"

;; also can escape a singe char...
 (escape-special-chars "richardt@@vzavenue.net"
                      #\@@
                      #\@@)
=> "richardt@@@@vzavenue.net"
@end lisp�CR.35%6748	h��-.,3#	P# #4544�	�
554$"5$"!44�	�
5$"5�$C4�5$4$"5"6�gstr
	�gwidth	�gchr		�grchr		�glen		0�glpad		G�grpad	��gfilenameftexinfo/string-utils.scm�
�
��	*�	��	0�	��	3�	��	6�	��	=�	+��	@�	!��	C�	��	G�	��	G�	��	J�	��	R�	��	^�	��	b�	��	i�	��	l�	 ��	s�	/��	v�	%��	y�	 ��	�	����	����	����	����	����	)����	/����	)����	%����	>����	����	>����	Q����	��"	�	gnameg
center-string�g
documentationf�Returns a copy of @var{str} centered in a field of @var{width}
characters.  Any needed padding is done by character @var{chr}, which
defaults to @samp{#\space}.  If @var{rchr} is provided, then the
padding to the right will use it instead.  See the examples below.
left and @var{rchr} on the right.  The default @var{width} is 80.  The
default @var{chr} and @var{rchr} is @samp{#\space}.  The string is
never truncated.
@lisp
 (center-string "Richard Todd" 24)
=> "      Richard Todd      "

 (center-string " Richard Todd " 24 #\=)
=> "===== Richard Todd ====="

 (center-string " Richard Todd " 24 #\< #\>)
=> "<<<<< Richard Todd >>>>>"
@end lisp�CR.356hXH-.,3#	P# 4544�
55�$C6@gstr
		Qgwidth		Qgchr			Qglen		'	Qgpad		;	Qgfilenameftexinfo/string-utils.scm�
�
��	!�	��	'�	��	*�	��	-�	��	4�	 ��	7�	��	;�	��	;�	��	B�	��	F�	��	Q�	��
		Q	gnamegleft-justify-string�g
documentationf@code{left-justify-string str [width chr]}.  
Returns a copy of @var{str} padded with @var{chr} such that it is left
justified in a field of @var{width} characters.  The default
@var{width} is 80.  Unlike @samp{string-pad} from srfi-13, the string
is never truncated.�CR.356hXF-.,3#	P# 4544�
55�$C6>gstr
		Qgwidth		Qgchr			Qglen		'	Qgpad		;	Qgfilenameftexinfo/string-utils.scm�
�
��	!�	��	'�	��	*�	��	-�	��	4�	 ��	7�	��	;�	��	;�	��	B�	��	F�	��	Q�	��
		Q	gnamegright-justify-string�g
documentationfReturns a copy of @var{str} padded with @var{chr} such that it is
right justified in a field of @var{width} characters.  The default
@var{width} is 80.  The default @var{chr} is @samp{#\space}.  Unlike
@samp{string-pad} from srfi-13, the string is never truncated.�CR%%h@�]"	
NNC4M5$4ML5$M�NML�C"���"����gc
		<gfilenameftexinfo/string-utils.scm�
�	��		�	��	
�	��	�	��	�	��	�	��	�	��	)�	��	,�	&��	.�	��	3�	��		<C8hX�-.,3# #4 5$A" 
HHO6�gstr
		Xgchr		Xgnum			Xgprev-chr		5	Lgmatch-count		5	Lgrepeat-locator		L	Xgfilenameftexinfo/string-utils.scm�
���	 �	��	,�	��	5�	
��	L�	��	V�	*��	X�	��		X	gnamegcollapse-repeated-chars�g
documentationf�Returns a copy of @var{str} with all repeated instances of 
@var{chr} collapsed down to at most @var{num} instances.
The default value for @var{chr} is @samp{#\space}, and 
the default value for @var{num} is 1.

@lisp
 (collapse-repeated-chars "H  e  l  l  o")
=> "H e l l o"
 (collapse-repeated-chars "H--e--l--l--o" #\-)
=> "H-e-l-l-o"
 (collapse-repeated-chars "H-e--l---l----o" #\- 2)
=> "H-e--l--l--o"
@end lisp�CR9:(/;hp�])45"T45$;45$45�"���45�66
"����gstr
		mgnon-wschars			mgans			cgindex			cgnext-non-ws			cgnext-ws		-	]gfilenameftexinfo/string-utils.scm�
�
��	�	��		�	��	�	��	�	��	�	��	"�	��	#�	��	-�	
��	5�	��	6	��	C	��	M	��	P	��	[	��	]	��	c	
��	c�	��	d�	��	m�	��		mgnamegsplit-by-single-words�C<R.=h@T]	45�$$.4�5�$.4	�5��CCCLgstr
		9glen			9gfilenameftexinfo/string-utils.scm�

��			
��				��	
		��	
	��		��		#��		��	 		��	$
	��	'	��	0	(��	2	��	3	��	4		��		9gnamegend-of-sentence?�g
documentationf6Return #t when STR likely denotes the end of sentence.�C>RM8%he]
6]gc
		
gfilenameftexinfo/string-utils.scm�
D	$��	
D	0��		
CN;.6>O/<
hx]1H4J 5KL$4JL5K"L$
4J5K"4J5K"(
�$	�"6L45�
�$4�5"�45�$Q�"
45",L$"4	5$4
5""���""����"��_
�$�L
"��AL$044
55�45��L
"��45��L
"���4J5L
"���gstr
	rgans	H[gwords		H[gline		H[gcount		H[glength-left	�[g	next-word	�[gfilenameftexinfo/string-utils.scm�
B	��	D	��	D	��	G	��	H	��	$H	��	.K	��	/L	��	7L	��	<O	��	DO	��	HR	��	NV	��	TX	��	XX	��	]Y	��	eX	
��	h^	 ��	o]	��	s_	��	w_	��	x`	��	}`	,��	`	���a	���]	
���d	���d	���b	���g	���l	���h	���i	���h	���k	���k	,���k	���m	���f	���p	���b	���r	��r	��
b	��{	��{	.��{	��!{	��"}	��-~	��.}	��={	��>�	��I�	��L�	��[�	��[R	��\R	��]S	��rR	��=	rChp|-/03#	P##	####OCtg
line-width
		jgexpand-tabs?		jg	tab-width			jgcollapse-whitespace?			jgsubsequent-indent			jginitial-indent			jgbreak-long-words?			jgfilenameftexinfo/string-utils.scm�

��	A	/��	K	,��		j

g
line-widthS
�gexpand-tabs?S�g	tab-widthS	�gcollapse-whitespace?S	�gsubsequent-indentS	�ginitial-indentS	�gbreak-long-words?S	�gnamegmake-text-wrapper�g
documentationf�Returns a procedure that will split a string into lines according to the
given parameters.

@table @code
@item #:line-width
This is the target length used when deciding where to wrap lines.
Default is 80.

@item #:expand-tabs?
Boolean describing whether tabs in the input should be expanded. Default
is #t.

@item #:tab-width
If tabs are expanded, this will be the number of spaces to which they
expand. Default is 8.

@item #:collapse-whitespace?
Boolean describing whether the whitespace inside the existing text
should be removed or not.  Default is #t.

If text is already well-formatted, and is just being wrapped to fit in a
different width, then set this to @samp{#f}. This way, many common text
conventions (such as two spaces between sentences) can be preserved if
in the original text. If the input text spacing cannot be trusted, then
leave this setting at the default, and all repeated whitespace will be
collapsed down to a single space.

@item #:initial-indent
Defines a string that will be put in front of the first line of wrapped
text. Default is the empty string, ``''.

@item #:subsequent-indent
Defines a string that will be put in front of all lines of wrapped
text, except the first one.  Default is the empty string, ``''.

@item #:break-long-words?
If a single word is too big to fit on a line, this setting tells the
wrapper what to do.  Defaults to #t, which will break up long words.
When set to #f, the line will be allowed, even though it is longer
than the defined @code{#:line-width}.
@end table

The return value is a procedure of one argument, the input string, which
returns a list of strings, where each element of the list is one line.�CRh�-134?6�gstr
			gkwargs			gfilenameftexinfo/string-utils.scm�
�
��	
�	��	�	��			
gnamegstring->wrapped-lines�g
documentationf8@code{string->wrapped-lines str keywds ...}. Wraps the text given in
string @var{str} according to the parameters provided in @var{keywds},
or the default setting if they are not given. Returns a list of strings
representing the formatted lines. Valid keyword arguments are discussed
in @code{make-text-wrapper}.�CRPQRh �-134?6�gstr
			gkwargs			gfilenameftexinfo/string-utils.scm�
�
��	�	��	�	��	�	��	�	��			
gnamegfill-string�g
documentationfWraps the text given in string @var{str} according to the parameters
provided in @var{kwargs}, or the default setting if they are not
given.  Returns a single string with the wrapped text.  Valid keyword
arguments are discussed in @code{make-text-wrapper}.�CRC�gm
		,gfilenameftexinfo/string-utils.scm�		
��	'
���	r
���	|
����
��;�
����
��$F���&g�
��(
��6O
��8o�
��:o�
��	:q
C6