Current File : /home/mmdealscpanel/yummmdeals.com/scripts.zip
PKO;�Z���)�)frisk.gonu�[���GOOF----LE-8-2.0�)]4h�]gguile�	�	gdefine-module*�	�	�	gscripts�	gfrisk�	�		gfilenameS�	
fscripts/frisk.scm�	gimportsS�	gsrfi�	
gsrfi-1�	
�	gselectS�	gfilter�	gremove�	�	�	�	gexportsS�	gmake-frisker�	g	mod-up-ls�	gmod-down-ls�	gmod-int?�	g	edge-type�	gedge-up�	g	edge-down�	�	g	autoloadsS�	gice-9�	 ggetopt-long�	! �	" �	#!"�	$gset-current-module�	%$�	&$�	'g%include-in-guild-list�	(f)Show dependency information for a module.�	)g%summary�	*g
guile-user�	+*�	,g*default-module*�	-g	open-file�	.fr�	/geof-object?�	0g
define-module�	1gdef�	2g
use-moduleS�	3g:use-module�	4gregular�	5gautoloadS�	6g	:autoload�	7gautoload�	8guse-modules�	9gfor-each�	:gload�	;gprimitive-load�	<gcomputed�	=gstring?�	>gformat�	?f[computed in ~A]�	@gread�	Ag	grok-proc�	Bgmake-object-property�	Cgup-ls�	Dgdn-ls�	Egint?�	Fgi�	Ggx�	Hgi-or-x�	Igsetter�	JI�	KI�	Lg	make-edge�	Mgcar�	Ngcdr�	Ogup-ls+!�	Pgdn-ls+!�	Qgassq-ref�	Rg	make-body�	Sgmember�	Tgmodules�	Uginternal�	Vgexternal�	Wgi-up�	Xgmap�	Ygx-up�	Zgi-down�	[gx-down�	\gedges�	]gscan�	^gdefault-module�	_f~A ~A --- ~A --- ~A
�	`gdump-updown�	af~A ~A
�	bf
			 ~A	~A
�	cgdump-up�	dg	dump-down�	effrisk�	fgupstream�	ggsingle-char�	hgu�	ifh�	jg
downstream�	kgd�	ljk�	mgi�	nUm�	ogx�	pVo�	qgm�	rgvalue�	sr�	t^qs�	uilnpt�	vg
option-ref�	wf$~A ~A, ~A ~A (~A ~A, ~A ~A), ~A ~A

�	xglength�	yffiles�	zfmodules�	{finternal�	|fexternal�	}fedges�	~gmain�C5h�g]4	
#5	4&>"G'R()R+,R-./01234567894h8�]	LM$"L��$"6�guse
		4gt		gmaybe		2gfilenamefscripts/frisk.scm�
�	!��	�	.��	�	.��		s	"��		s	��	#	t	��	'	t	��	4�	#��			4C:;<=>?@h��]I45H"�45$C�$���$���K4L>"G"�("���$"�$>4L���		�$	"	>"G��"���	�$"
�$#4L��>"G���"��b�"��Y"��N"��$"4
LLO�>"G"f�$"�$O4LJ$"L��45$"
45>"G"45"��\45"��O45"��B�gfilename
	�gp	�gcurmod		�gform		�gt		�gkey		0�gmodule		?gls		^gkey		kguse	��gmaybe		��gt	`sgfile	w�
gfilenamefscripts/frisk.scm�
	o	��		p	��			p	"��		p	��		p	��		x	��		y	��		y	��	)	z	��	-	y	��	0	{	��	0	{	��	>	}	%��	?	}	��	E	~	��	F		��	J		$��	R		��	^�	��	d�	��	k�	%��	k�	����	"����	-����	E����	=���	s	"���	s	���	t	���	t	����	"����	(����	"����	����	"����	-����	>����	"����	(����	"����	-���	'���	�� 	{	��!�	��1�	!��6�	��K	{	��Z�	��^�	"��`�	"��v�	.��w�	"��z�	(����	$����	(����	3����	(����	���	q	����	���	q	���	z	"���	x	���	q	���	x	��C	�Ch�]OC�gdefault-module
		g	note-use!		gfilenamefscripts/frisk.scm�
	n
��			gnameg	grok-proc�CAR4Bi5CR4Bi5DR4Bi5ERCiRDiREiREFGh�]45$CC�gmodule
		gfilenamefscripts/frisk.scm�
�
��	�	��	
�	��	�	��	�	��		gnamegi-or-x�CHR4Bi5RKh(�]�445>"GC�gtype
		%gup		%gdown			%gnew			%gfilenamefscripts/frisk.scm�
�
��	�	
��	�	��	
�	��		%	gnameg	make-edge�CLRMiRNiRKCh�]4545�6�gm
		gnew		gfilenamefscripts/frisk.scm�
�
��	�	2��	�	(��	�	��			gnamegup-ls+!�CORKDh�]4545�6�gm
		gnew		gfilenamefscripts/frisk.scm�
�
��	�	2��	�	(��	�	��			gnamegdn-ls+!�CPRQh`]L6Xgkey
		
gfilenamefscripts/frisk.scm�
�	��	
�	��		
Chn]OCfgalist
		
gfilenamefscripts/frisk.scm�
�
��		
gnameg	make-body�CRRASKCD1ELOP
h�]4M5$�"=445>"G445>"GM�N&4564M5$�"=445>"G445>"GM�N45M�N4>"G	6�gtype
	�gd	�gu		�gt			Zgd		Z�gt		y�gu	��gedge	��gfilenamefscripts/frisk.scm�
�	��	�	��	�	��	�	��	'�	4��	,�	��	5�	��	A�	4��	F�	��	S�	-��	U�	��	Z�	��	`�	,��	d�	��	p�	"��	q�	��	y�	����	����	4����	����	����	4����	����	-����	����	"����	/����	"����	0����	$����	$����	$��!	�	C9RTUEVWXYZ[\h��]HH4O54>"GJ�4J5�	4
J5�44
J55�4
4
J55�44J55�4
4J55�J�6�gdefault-module
	�gfiles	�gmodules		�gedges		
�ggrok		�gfilenamefscripts/frisk.scm�
�
��	�	��	�	��	
�	��	
�	��	
�	��	�	��	�	��	6�	��	<�	��	E�	��	H�	��	Q�	��	T�	��	Y�	!��	c�	��	d�	��	g�	��	l�	!��	v�	��	w�	��	z�	��	�	!����	����	����	����	!����	����	����	��	�	gnamegscan�C]RQ^,]hb]L6Zgfiles
		
gfilenamefscripts/frisk.scm�
�	��	
�	��		
Ch0�-1345$"OC�goptions
			/gt		%gdefault-module	%	/gfilenamefscripts/frisk.scm�
�
��	
�	��	�	.��	�	��	�	��	%�	��			/


gnamegmake-frisker�CR9>_HXhs]4545�Ckgedge
		gfilenamefscripts/frisk.scm�
�	��	�	#��	
�	#��	�	��		CChs]4545�Ckgedge
		gfilenamefscripts/frisk.scm�
�	��	�	#��	
�	#��	�	��		CD	h0�]45445544556�gm
		.gfilenamefscripts/frisk.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	$�	��	,�	��	.�	��		.Ch{]6sgmodules
		
gfilenamefscripts/frisk.scm�
�
��	
�	��		
gnamegdump-updown�C`R9>aH9>bh|]45456tgedge
		gfilenamefscripts/frisk.scm�
�	��	�	%��	�	"��	�	3��	�	��		CCh0�]445>"G456�gm
		+gfilenamefscripts/frisk.scm�
�	��	�	��	�	��		�	#��	�	��	#�	��	+�	��		+Chw]6ogmodules
		
gfilenamefscripts/frisk.scm�
�
��	
�	��		
gnamegdump-up�CcR9>aH9>bh|]45456tgedge
		gfilenamefscripts/frisk.scm�
�	��	�	%��	�	"��	�	3��	�	��		CDh0�]445>"G456�gm
		+gfilenamefscripts/frisk.scm�
�	��	�	��	�	��		�	#��	�	��	#�	��	+�	��		+Chy]6qgmodules
		
gfilenamefscripts/frisk.scm�
�
��	
�	��		
gnameg	dump-down�CdR euvfjUV^,T\>wxyz{|}`cdh�-134�5454545454544	
4
5�554545	45
4
5445454	54
545>"G$$""$$"	"
6�gargs
		gparsed-opts	g=u		!g=d		-g=i		9g=x		Egfiles		Rgreport		lgmodules		uginternal			~gexternal	
�gedges	�gfilenamefscripts/frisk.scm�
�
��	
�	��	�	��	�	��	�	��	�	��	�	��		
��		%��	!	
��	!�	��	$	
��	*	%��	-	
��	-�	��	0	
��	6	%��	9	
��	9�	��	<	
��	B	%��	E	
��	E�	��	H	��	M	+��	P	/��	R	��	R�	��	U		��	V		��	Z
	��	[	��	a	3��	e	��	f
	��	h		��	l		��	l�	��	o	��	s	��	u	��	u�	��	x	��	|	��	~	��	~�	���	���	���	����	���	���	���	����	���	���	���	���	���	���	���	���	���	���	���	���	���	���	���	���	���	��	��I		


gnamegfrisk�CRi~RC_gm
		0gfilenamefscripts/frisk.scm�		a
��	4	i
��	6	j	��	9	j
��	;	l	��	>	l
���	n
����	����
����	����
����	����
����
����
����
����
����	����
��	��
��	��
��	��
��
W�
���
��)�
����
����
��^�
��z�
����
����
���
��!	�
C6PKO;�ZX)l��read-text-outline.gonu�[���GOOF----LE-8-2.0�]L4h]gguile�	�	gdefine-module*�	�	�	gscripts�	gread-text-outline�	�		gfilenameS�	
fscripts/read-text-outline.scm�	gimportsS�	gice-9�	
gregex�	
�	�	�	gexportsS�	gread-text-outline-silently�	gmake-text-outline-reader�	�	g	autoloadsS�	grdelim�	�	g	read-line�	�	ggetopt-long�	�	�	�	gset-current-module�	�	 �	!g%include-in-guild-list�	"f*Convert textual outlines to s-expressions.�	#g%summary�	$gsymbol->string�	%gstring=?�	&f?�	'g	substring�	(g
string-length�	)g??�	*gmatch:substring�	+gmsub�	,f�	-g
??-predicates�	.gmake-regexp�	/f^�	0g
string-append�	1gassq-ref�	2glevel-submatch-number�	3g
compute-level�	4glevel-substring-divisor�	5gbody-submatch-number�	6gmatch:suffix�	7gextra-fields�	8gmap�	9gfor-each�	:gset-object-property!�	;gregexp-exec�	<glevel�	=gmake-line-parser�	>gstart�	?>�	@geof-object?�	Agobject-property�	Bgerror�	Cfunhandled diff not 1:�	Df(([ ][ ])*)- *�	E4	��	FE�	Ggwrite�	Hg	open-file�	Ifr�	Jgnewline�	Kgmain�C5hP�]4	
5	4 >"G!R"#R$%&'(h �]	45445�56�gsymbol
		 gname			 gfilenamefscripts/read-text-outline.scm�
	{
��		|	��			|	��		}	��		}	��		}	&��		}	"��		}	��	 	}	��
		 gnameg??�C)R*hj]L6bgm
		
gfilenamefscripts/read-text-outline.scm�
�	��	
�	��		
Chp]OChgn
		
gfilenamefscripts/read-text-outline.scm�
	
��		
gnamegmsub�C+R)%,*h�]44L�55�C�gm
		gfilenamefscripts/read-text-outline.scm�
�	��	�	��	�	��	�	 ��	�	3��	�	 ��	�	��	�	��			C+h(�]�4�5$O"4�5�C�gpair
		&gfilenamefscripts/read-text-outline.scm�
�
��	�	��	�	��	�	��	
�	��	�	��	�	��	"�	��	$�	��	%�	��		&gnameg
??-predicates�C-R'.%/0+123hj]L6bgm
		gfilenamefscripts/read-text-outline.scm�
�	$��	�	&��		C4(h�]44L55L�C}gm
		gfilenamefscripts/read-text-outline.scm�
�	$��	�	)��	�	8��	�	)��	�	&��		C(hs]4L56kgm
		
gfilenamefscripts/read-text-outline.scm�
�	��	�	0��	
�	!��		
C56hj]6bgm
		gfilenamefscripts/read-text-outline.scm�
�	��	�	*��		C78-9:h�]L�4�L56�gpair
		gfilenamefscripts/read-text-outline.scm�
�	'��		�	.��	
�	*��	
�	+��	�	*��	�	)��		Ch{]OL6sgobj
		gm		gfilenamefscripts/read-text-outline.scm�
�	$��	�	&��			Chr]Cjgobj
		gm		gfilenamefscripts/read-text-outline.scm�
�	��			C;:<hX�]4L5$?4L54L54>"G4L>"GCC�gline
		Tgt		Tglevel		!	Rgbody		!	Rgfilenamefscripts/read-text-outline.scm�
�	��	�	
��	�	��	�	��	�	��	!�	��	&�	��	,�	/��	3�	��	<�	��		TCh]24
5445$"	455445$"54	5$
O"(45$
O"
O45$45"45$45O"OC�gre
	gspecs	gfc			1grx		1gt		?	Qglevel-substring		Sgt		^�gt		z�g
extract-level	�gt	��gextract-body	�gt	��gnew	��gmisc-props!	�gfilenamefscripts/read-text-outline.scm�
�
��	�	��	�	
��	�	��	�	 ��	�	*��	�	 ��	�	��	$�	 ��	(�	/��	,�	 ��	.�	��	1�	��	4�	��	7�	��	=�	+��	?�	��	?�	 ��	S�	��	S�	��	V�	��	\�	&��	^�	��	^�	��	r�	��	x�	&��	z�	��	z�	����	����	����	%����	����	����	����	����	$����	����	����	-����	"����	��*		gnamegmake-line-parser�C=R=?@A<BC:>
h`�]QHH"%45$"'4L5$�45�		
�$	�"�	
�$S	�

$"4	>"G
4>"GJ�K���"E	
�$=""4
�5�$
K"
�
"���J
"���J��J�K"45"���	45"���45	�J"���J�K	J&CJ�C�gport
	\gall	\gpchain			\gline		4g
prev-level		4gtp		4gt		4gt		)1gwords		6glevel		Agdiff			Hgt	
	g�gp	
��
gfilenamefscripts/read-text-outline.scm�
�	��	�	��	�	��		�	��		�	��	�	��	�	��	�	
��	#�	��	)�	��	6�	(��	6�	��	9�	(��	?�	;��	A�	(��	A�	��	H�	'��	H�	��	M�	��	R�	��	W�	��	^�	��	c�	��	g�	"��	g�	��	t�	"��	x�	)����	"����	����	7����	����	+����	����	1����	+����	����	����	����	����	,����	=����	E����	,����	#����	����	#����	-����	����	(����	����	+����	����	"���	���	 ��.�	��4�	��5�	��I�	��L�	��N�	��P�	��V�	��W�	��[�	��B	\Ch�]
45OC�gre
		gspecs		g
parse-line			gfilenamefscripts/read-text-outline.scm�
�
��	�	��	�	��			gnamegmake-text-outline-reader�CR4iDF5RGHIJh@�-13444�55>"G4>"GC�gargs
			:gfilenamefscripts/read-text-outline.scm�
�
��	
�	��	
�		��	�	%��	�	0��	�	;��	�	%��	�		��	 �	��	)�	��			:


gnamegread-text-outline�CRiKRC�gm
		0gfilenamefscripts/read-text-outline.scm�		p
��	4	x
��	6	y	��	9	y
��7	{
��S	
��1�
��
��
���
���	��
�	���	���	���
��G�
��N�
��	P
C6PKO;�Z"��m#G#Gsnarf-check-and-output-texi.gonu�[���GOOF----LE-8-2.0G]�4h�]gguile�	�	gdefine-module*�	�	�	gscripts�	gsnarf-check-and-output-texi�	�		gfilenameS�	
f'scripts/snarf-check-and-output-texi.scm�	gimportsS�	gice-9�	
gstreams�	
�	�	gmatch�	�	�	�	gexportsS�	�	gset-current-module�	�	�	g%include-in-guild-list�	f8Transform snarfed .doc files into texinfo documentation.�	g%summary�	gmake-syntax-transformer�	�	�	gwhen�	 gmacro�	!g$sc-dispatch�	"!�	#!�	$g_�	%gany�	&$%��	'g
syntax->datum�	('�	)'�	*g
datum->syntax�	+*�	,*�	-gif�	.gbegin�	/gsyntax-violation�	0/�	1/�	2f-source expression failed to match any pattern�	3gunless�	4gnot�	5g
*manual-flag*�	6gmember�	7f--manual�	8gprocess-stream�	9gcurrent-input-port�	:gstream-null?�	;g
stream-car�	<gsnarf_cookie�	=gdispatch-top-cookie�	>g
stream-cdr�	?g
stream-map�	@gstring?�	Agstring�	Bgint_hex�	Cgint�	Dgstring->number�	Egint_oct�	Fgint_dec�	Ggid�	Hgstring->symbol�	Igmake-stream�	Jgeol�	Kghash�	Lgport->stream�	Mgread�	Ngerror�	Ogsyntax�	Pfpremature end of file�	Qg
brace_open�	Rgconsume-multiline�	Sgconsume-upto-cookie�	Tgprocess-singleline�	Uf*premature end of file in directive context�	Vgreverse!�	Wgbegin-multiline�	Xf*premature end of file in multiline context�	Ygbrace_close�	Zg
end-multiline�	[gprocess-multiline-directive�	\g*file*�	]g*line*�	^g*c-function-name*�	_g*function-name*�	`g*snarf-type*�	ag*args*�	bg*sig*�	cg*docstring*�	df@deffnx {Scheme Procedure} �	eg*primitive-deffnx-signature*�	fg
string-length�	gg*primitive-deffnx-sig-length*�	hgregister�	iglength�	jgformat�	kf;~A:~A: ~A's C implementation takes ~A args (should take ~A)�	lgwith-output-to-string�	mf~A�	nf ~A�	of [~A�	pf . ~A�	qg	primitive�	rf@deffnx {C Function} ~A (�	sf, ~A�	tf)
�	uf
~A
�	vf@c snarfed from ~A:~A
�	wf@deffn {Scheme Procedure} ~A
�	xgstring=?�	yg	substring�	zgdisplay�	{f
�	|f@end deffn
�	}f�	~g
string-append�	f@��f@@��g
texi-quote��gSCM��G����finvalid argument syntax: ~A��gmap��gcdr��gcomma�������gparen_close�������gargsig��funknown doc attribute: ~A��garglist��g
paren_open�������finvalid arglist syntax: ~A��gvoid��G����glocation��gtype��gfname��greverse��������gcname��gsymbol->string��f unknown doc attribute syntax: ~A��gargpos��G����g
list-index��f9~A:~A: wrong position for argument ~A: ~A (should be ~A)
��gcurrent-error-port��funknown check: ~A��gmain�C5h�8Q]4	
54>"GRR4 #&),-.h�-13�Cgcond
			gbody			gfilenamef'scripts/snarf-check-and-output-texi.scm�
	!
��		"	��			
Ch{]	45L4?6sgargs
		gv			gfilenamef'scripts/snarf-check-and-output-texi.scm�		!
��		C12h(y]	45$O@6qgy
		'gtmp		'gfilenamef'scripts/snarf-check-and-output-texi.scm�
	!
��		'C5R43 #&),-4.h �-13�Cgcond
			gbody			gfilenamef'scripts/snarf-check-and-output-texi.scm�
	$
��		%	��			
Ch{]	45L4?6sgargs
		gv			gfilenamef'scripts/snarf-check-and-output-texi.scm�		$
��		C12h(y]	45$O@6qgy
		'gtmp		'gfilenamef'scripts/snarf-check-and-output-texi.scm�
	$
��		'C53R5R67589h(�-1345$ "456�gflags
			&gfilenamef'scripts/snarf-check-and-output-texi.scm�
	)
��	
	*	��		*	��		*	��		*	��		+	��	 	,	��	&	,	��				&


gnamegsnarf-check-and-output-texi�CR:;<=>h@�]	45$C45�&
45L645"����ginput
		;gtoken		;gfilenamef'scripts/snarf-check-and-output-texi.scm�
	/	��		F	��	
	F	��		G	��		G	��		H	��		H	��	!	H	��	$	I	��	.	I	
��	/	K	��	;	K	
��
		;gnamegloop�C?@ABCDEFGH
h��]"�"�"S"!�$�C45$�CC�$#��&
4	5�C"���"����$#��&
4	5�C"���"���$!��&45�C"��S"��O�$!��&4	5�C"��#"���gexpr
	�gw	@	]gx		@	]gw	n�gx		n�gw��gx	��gw��gx	��	gfilenamef'scripts/snarf-check-and-output-texi.scm�
	/	 ��		9	"��	 	/	 ��	,	;	(��	/	;	"��	3	/	 ��	N	7	(��	O	7	-��	X	7	"��	]	/	 ��	|	5	(��	}	5	-���	5	"���	/	 ���	3	(���	3	-���	3	"���	/	 ���	1	(���	1	,���	1	"���	/	 ��	�CI:;JK>h`�]"L45$C45&"�$
45"���4545�C"����gs
		Zgs		Rgt			1gfilenamef'scripts/snarf-check-and-output-texi.scm�
	=	-��		>	/��		@	4��		?	1��		A	:��		A	4��	5	?	1��	6	B	:��	B	B	4��	C	C	?��	J	C	N��	Q	C	9��	R	>	/��		ZCLMh0�]	OQ4445556�gport
		*gloop	
	*gfilenamef'scripts/snarf-check-and-output-texi.scm�
	.
��	
	/	��		/	��		=	 ��		D	-��	&	=	 ��	(	/	��	*	/	��			*gnamegprocess-stream�C8R:NOP;QR>SThP"]
45$4>"G"45�&
456	
6ginput
		Ngcont		Ngtoken		,	Ngfilenamef'scripts/snarf-check-and-output-texi.scm�
	M
��		O	��	
	O	��		P	��		P	��		P	��		P	��	&	R	��	,	R	��	1	T	��	3	T	��	7	S	��	:	U	��	D	U	��	N	X	��		N	gnamegdispatch-top-cookie�C=R:NOU;<V>	h��]"k45$4>"G"45�&"445>"G456�45"���"����gprocess
		|ginput		|gcont			|gacc			qginput			qgtoken		0	qgfilenamef'scripts/snarf-check-and-output-texi.scm�
	\
��		]	��		_	
��		_	��		`	��		`	
��		`	��		`	��	*	b	��	0	b	��	5	d	��	7	d	��	;	c	��	<	e		��	?	e	��	J	e		��	U	f	��	]	f		��	b	h	��	c	h	%��	q	h	��	q	]	��	r	]	��	|	]	��		|	gnamegconsume-upto-cookie�CSRW:NOX;YZ>S[h`	]	45$4>"G"45�&4>"GL456	
L6ginput
		\gtoken	,	\gfilenamef'scripts/snarf-check-and-output-texi.scm�
	m	��		o	
��	
	o	��		p	��		p	
��		p	��		p	��	&	r	��	,	r	��	1	t	��	3	t	��	7	s	��	8	u		��	J	v	��	R	v		��	\	x	��		\gnamegloop�C:NOX;YZ>S[
h�J]4>"GOQ45$4>"G"45�&4	>"G4
566Bginput
		|gcont		|gloop			|gtoken		L	|gfilenamef'scripts/snarf-check-and-output-texi.scm�
	j
��		k	��		m	��	#	o	
��	-	o	��	.	p	��	2	p	
��	4	p	��	9	p	��	F	r	��	L	r	��	Q	t	��	S	t	��	W	s	��	X	u		��	j	v	��	r	v		��	|	x	��		|	gnamegconsume-multiline�CRR\R]R^R_R`RaRbRcR\]^_`abc	h �]        C�gfilenamef'scripts/snarf-check-and-output-texi.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��
		
gnamegbegin-multiline�CWRdeR4fiei5gRbh`iaNjk\]_ljm_nopah�`]04>"G"�L�$$4�>"G��"���"�L�$+4�>"G��]�"���L
�$4�>"G""'(C4�>"G�"���"���
"��i
"��-Xgargs
	�gr	�go		L�gargs		L�gtail		L�gtail	��gfilenamef'scripts/snarf-check-and-output-texi.scm�
�	��	�	��	�	��	�	��	�	��	 �	��	$�	��	%�	��	*�	"��	-�	(��	2�	��	=�	!��	@�	,��	H�	��	L�	��	Q�	��	U�	��	V�	��	[�	%��	^�	,��	c�	��	n�	$��	q�	,��	v�	7����	����	����	����	����	'����	$����	����	����	����	"����	-����	2����	"����	-����	"����	����	����	=����	����	��-	�
C5qjr^amsthx+]4>"G("L4�>"G")("(4�>"G�"����"���6#gargs
	;	dgfilenamef'scripts/snarf-check-and-output-texi.scm�
�	��	�	��	�	��	�	��	�	��	"�	��	'�	!��	*�	&��	/�	��	;�	��	A�	��	F�	��	K�	%��	N�	,��	S�	��	^�	 ��	d�	��	d�	��	g�	'��	m�	��	r�	��	t�	��		t
Cuvwfgxyezc{|h��]@��������&"45��$+44	
455>"G"&"4
O5$&45""4>"G4	
>"G4>"G"|("~$*4�5�$44�
55""$ 4�>"G�"���4>"G"���"��x4>"G6�greq
	�gopt	�gvar		�gall		�gnice-sig	��g
scm-deffnx	��gstrings	�gg
scm-deffnx	�ggfilenamef'scripts/snarf-check-and-output-texi.scm�
�
��	�	��	�	��	
�	��	�	��	�	��	�	��	�	��	�	��	 �	%��	&�	��	,�	��	5�	��	6�	
��	:�	��	;�	��	>�	
��	C�	��	J�	+��	T�	
��	Y�	��	i�	"��	m�	��	t�	����	����	5����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	���	+���	���	��
�	���	���	"���	-���	"���	��&�	��*�	��+�	��0�	��5�	��@�	��J�	��K�	��g�	��g�	��t�	��x�	��}�	����	����	��C	�
gnameg
end-multiline�CZRf}~yx�hH#]	4L5�$C4L�545$"4L�56gi
		Egss	!	;gfilenamef'scripts/snarf-check-and-output-texi.scm�
�	��	�	
��	�	��	�	��	�	��	�	��	�	.��	!�	��	!�	��	$�	��	*�	(��	,�	��	0�	��	2�	��	<�	��	A�	��	C�	��	E�	��		Egnamegrec�Ch�]	OQ
6�gs
		grec		gfilenamef'scripts/snarf-check-and-output-texi.scm�
�
��	�	��		gnameg
texi-quote�C�R�GNj�����
h@|]1"
"��$����$��$t���$N��&'�$4L5�C445564455644556445564455644556�$*���$�$"���"���"���"����$�(�	�$C"���"���"���tgexpr
	=gw	�gx		�gw		1�gx		1�gw		B�gx		B�gw�gx	�gw$5
gfilenamef'scripts/snarf-check-and-output-texi.scm�
�	��	X�	��	_�	��	c�	��	h�	��	i�	8��	s�	��	u�	��	x�	��	}�	��	~�	8����	����	����	����	����	8����	����	����	����	����	8����	����	����	����	����	8����	����	����	����	����	8����	����	����	���	���	��0�	��5�	��'	=gnamegdo-args�C�CNj�b�������a�A\]�`G���~_��^c�!hZ	]yO""�""�"="�"L�$7��&�$���$���&��$���
		�$�	�	�&o"456
�$R
�(G
�

�$-
�
�&
 C456456"���"���456456456456456456456456�$A��&+�$ "��$_��	�$,�$45"�44
4555"�44
4555"�44
4555"��$���	�$l�$]��
�$<�$-�(�		�$""��'	""��""��""��""���""���""��� C"��p"��l"��h�$���&|�$q���$\��&F�$;�(0�		�$ 	�	�

&
  C"���"���"���"���"���"���"���"���"����$X��&B�$7�(,��$��& C"��t"��p"��l"��h"��d"��`�$X��&B�$7�(,��$��& C"��
"��	"��"��"���"����$���&o"`(4544?5 C�$6��$&��	&�	�"���"���"��|"��x"���"��i"��e�$b��&L�$A�(6��$&��&4455 C"��"��"��"���"���"���"�"�"t(45 C�$J��$0��&��"���4 564 564 56"����$A���$,��&�$�"��)"��="��9"��5"��1Q"�� R	gl
	gexpr		gw		3dgx		3dgw		LHgx		LHgw		]:gx		]:gw			vgx	
	vgw	�gx	�gw	
��gw	��gx	��gw	�gx	�gw	��gx	��gw	#�gx	#�gw	=�gx	=�gw		[rgw	�Wgx	�Wgw	�Ogx	�Ogw	�Kgx	�Kgw		?gw	
!;gx	!;gw	h�gx	h�gw	��gw	��gx	��gw	�gx	�gw	�gw	�
gx	�
gw	.�gx	.�gls	>�gp-ls	>�gname	K]gw	g�gw	v�gx		v�gw	�gx	�gw	�gw	�
gx	�
gexpr	"�gls	*�gp-ls	*�gstring	7?gw	I�gw	X�gx	X�gw	��gx	��gw	��gx	��gdo-args�Dgfilenamef'scripts/snarf-check-and-output-texi.scm�
�
��	�	���	���	���	���	����	���	���	���	���	���	���	���	���	���	���	��	��
	��	��	��	��	��	��	��!	��&	��*	��,	��/	��4	��8	��:	��=	��B	��F	��H	��K	��P	��T	��V	��Y	��^	��b	��d	��g	��l	��p	��r	��r�	����	����	����	����	����	����	7����	����	����	����	����	7����	����	���	���	���	7���	���	���	��g�	��o�	���	����	��1	��5		��;�	���	����	��	��
�	��N�	��Q�	(��Y�	��[�	��`�	����	����	*���	���	��
�	��"	��=	��B	��w	��|	���	���	���	���	���	���	���	���	���	���	���	���	���	���	��	��o	gnamegprocess-multiline-directive�C[R_�GC�azj�\�N�h({]q$�$���$��$��$����$���&��$����$���
		&o�$f�(]��$O��
&;45$(�
�$C4	


�5456CCCCCCCCCCC4
564
564
56Csgl
	$gw	gx		gw		6�gx		6�gw		G�gx		G�gw		`�gx		`�gw			q�gx	
	q�gw	��gw	��gx	
��gidx	��gfilenamef'scripts/snarf-check-and-output-texi.scm�
 
��	3	��	.	��	,#	���%	���%	���&	���'	���'	���'	
���(	���(	 ���)	2���(	���*	���(	���1	��1	��1	��1	��	1	��1	��1	��1	��1	��1	�� 1	��"1	��	$gnamegprocess-singleline�CTRi�RCIgm
		,gfilenamef'scripts/snarf-check-and-output-texi.scm�		
��	0	
��	2		��	5	
���	'
���	)
��	.
��
�	M
���	\
��u	j
��y	|
��}	}
���	~
���	
����
����
����
����
����
����	%����
����	&����
��>�
��!��
��5�
��8� 
��8�6
��	8�
C6PKP;�ZX�ZSk)k)scan-api.gonu�[���GOOF----LE-8-2.0S)]�4hT	]gguile�	�	gdefine-module*�	�	�	gscripts�	gscan-api�	�		gfilenameS�	
fscripts/scan-api.scm�	gimportsS�	gice-9�	
gpopen�	
�	�	grdelim�	�	�	gregex�	�	�	�	gexportsS�	�	gset-current-module�	�	�	g%include-in-guild-list�	f2Generate an API description for a Guile extension.�	g%summary�	gset-object-property!�	 gput�	!gobject-property�	"gget�	#g	add-props�	$gmake-regexp�	%g	open-pipe�	&g	OPEN_READ�	'geof-object?�	(gregexp-exec�	)g	read-line�	*gscan�	+f ^.guile.+: ([^ 	]+)([ 	]+(.+))*$�	,gformat�	-f
~A -c '~S ~S'�	.guse-modules�	/gsession�	0/�	1.0�	2gapropos�	3f.�	423�	5gstring->symbol�	6gmatch:substring�	7gScheme�	8f�	9g
hashq-set!�	:gscan-Scheme!�	;f^[0-9a-fA-F]+ ([B-TV-Z]) (.+)$�	<fnm ~A�	=gC�	>ghashq-get-handle�	?gerror�	@fboth Scheme and C:�	Agscan-C!�	Bgcurrent-module�	CgTHIS-MODULE�	Dgmemq�	Eggroups�	Fg	in-group?�	Ggstring-match�	Hg
string-append�	If^�	Jgsymbol->string�	Kgname-prefix?�	Lgadd-group-name!�	Mgeval�	Ngname�	Ogmake-grok-proc�	Pgmake-members-proc�	Qg	make-hook�	Rgfor-each�	Sgassq-ref�	Tgmembers�	Uggrok�	Vf+bad grouping, must have `members' or `grok'�	Wg	add-hook!�	Xgdescription�	Ygread�	Zg	open-file�	[gmake-grouper�	\glist-ref�	]gcatch�	^]�	_]�	`gmake-hash-table�	agsort�	bg	hash-fold�	cgstring�	dg	scan-data�	e7�	f=�	ggrun-hook�	hgstring<?�	if+;;; generated by scan-api -- do not edit!

�	jf(
�	kf(meta
�	lf  (GUILE_LOAD_PATH . ~S)
�	mggetenv�	nfGUILE_LOAD_PATH�	of  (LTDL_LIBRARY_PATH . ~S)
�	pfLTDL_LIBRARY_PATH�	qf  (guile . ~S)
�	rf  (libguileinterface . ~S)
�	sf(.+)�	tf~A -c '(display ~A)'�	ug%guile-build-info�	vgquote�	wglibguileinterface�	xvw�	ySux�	zf  (sofile . ~S)
�	{f  ~A
�	|gappend�	}gmap�	~g
hook->list�	7=��f) ;; end of meta
��f(interface
��f(~A ~A (scan-data ~S))
��f) ;; end of interface
��f	) ;; eof
��gmain�C5hX�]4	
54>"GRRi R!i"R hP-13"4(C���4>"G��"���"����gobject
			Igargs			Igargs		
	Agkey			Agvalue			Agfilenamefscripts/scan-api.scm�
	I
��	
	J	��		K	��		M	��		N	��		M	��	"	O	
��	:	P	��	A	P	
��	A	J	��			I
gnameg	add-props�C#R$%&'()hpJ]#4545"I45$C45$4>"G"45"���45"���Bgre
		pgcommand		pgmatch			pgrx			pgport			pgline			cgt		!	cgt		5	Vgfilenamefscripts/scan-api.scm�
	R
��		S	��	
	T	��		S	��		U	��		V	
��	!	V	��	-	X	��	5	X	��	W	Y	��	c	Y	��	c	U	��	d	U	��	p	U	��		p	gnamegscan�C*R*+,-1456 789hP�]445544	5$">"GL6�gm
		Jgx		Jgt		!	4gfilenamefscripts/scan-api.scm�
	a	��		b	��		b	#��		b	��		b	
��		c	��		c	��		c	��	!	c	��	1	d	��	9	c	��	J	e	��
		JCh �]45O6�ght
		gguile		gfilenamefscripts/scan-api.scm�
	[
��		\	��		]	��		]	��		_	��		`	��		]	��		\	��				gnamegscan-Scheme!�C:R*;,<56 =>?@9	hh�]	44	5544455>"G4L5$4>"G"L6�gm
		agx		agfilenamefscripts/scan-api.scm�
	j	��		k	��		k	#��		k	��		k	
��		l	��		l	��		l	��		l	&��	&	l	��	+	l	��	4	m	��	@	m	��	A	n	��	E	n	��	L	n	��	a	o	��		aCh �]45O6�ght
		gsofile		gfilenamefscripts/scan-api.scm�
	g
��		h	��		i	��		i	��		i	��		h	��			gnamegscan-C!�CAR4Bi5CRD"Eh�]456�gx
		ggroup		gfilenamefscripts/scan-api.scm�
	s
��		t	��	
	t	��		t	��		t	��			gnameg	in-group?�CFRGHIJh�]45456�gx
		gprefix		gfilenamefscripts/scan-api.scm�
	v
��		w	��			w	��	
	w	��		w	+��		w	��			gnamegname-prefix?�CKR E"h�]45�6�gx
		gname		gfilenamefscripts/scan-api.scm�
	y
��		z		��		z	��		z	#��		z	��		z	��		z	��			gnamegadd-group-name!�CLRMCLh~]4L5$L6Cvgx
		gfilenamefscripts/scan-api.scm�
	~	��			��	
		��	�	��		gnamegp�C Nh8�]45OQ4>"GC�gname
		6gform		6g
predicate?			6gp			6gfilenamefscripts/scan-api.scm�
	|
��		}	��		}	��	�	��	$�	��	+�	��		6	gnamegmake-grok-proc�CORDLh �]4L5$L6Cygx
		gfilenamefscripts/scan-api.scm�
�	��	�	��	�	
��	�	��		gnamegp�C Nh0�]
OQ4>"GC�gname
		+gmembers		+gp			+gfilenamefscripts/scan-api.scm�
�
��	�	��	�	��	�	��	 �	��		+	gnamegmake-members-proc�CPRQRRSTU?VW#OXPhxk]�4545$"$"4>"GL$44��5	4	55"	4
56cggdef
		xgname		xgmembers			xggrok			xgfilenamefscripts/scan-api.scm�
�	��	�	��	�	��	�	(��	�	��	�	��	�	%��	�	��	�	
��	#�	��	2�	��	6�	��	;�	��	M�	��	N�	��	Q�	&��	X�	;��	[�	&��	]�	&��	^�	&��	d�	5��	f�	&��	h�	��	m�	��	x�	��		xCYZ&h ]LO44556wgfile
		gfilenamefscripts/scan-api.scm�
�	��	�	��	�	��	�	��	�	��		Ch(�]	454O>"GC�gfiles
		&ghook		&gfilenamefscripts/scan-api.scm�
�
��	�	��	�	��	�	��		&gnamegmake-grouper�C[R\_[hZ]L��6Rgfilenamefscripts/scan-api.scm�
�	��	�	3��	
�	%��		

Ch]-13CUgargs
			gfilenamefscripts/scan-api.scm�
�	��			


C`:Aab#cJd"7=Eefgh�\]44545$"	4545$	"
>"GL$4L>"G"�CTgkey
		}gvalue		}gprior-result			}gt			5gfilenamefscripts/scan-api.scm�
�	 ��	�	"��		�	#��	
�	+��	�	#��	�	2��	�	;��	�	2��	�	.��	*�	2��	0�	;��	2�	2��	7�	#��	8�	/��	>�	8��	@�	/��	D�	+��	F�	/��	L�	/��	Q�	"��	_�	"��	`�	/��	|�	"��		}	Ch"ch�]45456�ga
		gb		gfilenamefscripts/scan-api.scm�
�	��	�	!��	�	(��	
�	!��	�	!��	�	(��	�	!��	�	��				C,ijklmn8opqr*sty6hj]45NCbgm
		gfilenamefscripts/scan-api.scm�
�	��	�	*��	�	"��		Cz{E|}"Nhj]6bgp
		
gfilenamefscripts/scan-api.scm�
�	-��	�	@��	
�	9��		
C~��R,�E"dh �]45�456�gx
		 gfilenamefscripts/scan-api.scm�
�	��	�	��	�	 ��	�	(��	�	/��	�	(��	�	��	�	��	�	!��	�	��	 �	��		 C��+h "-134
5454O54
54>"G4>"G44	
O554
>"G4>"G4>"G445$">"G445$">"G4>"G4H445O>"GJ>"G4>"G44 $4!"4#55"$5�>"G4%>"G4&>"G4'(>"G4)>"G4*>"GCgargs
		gguile	0gsofile		0ggrouper		0ght		0gall		vgt	��gt	��gi	'S	gfilenamefscripts/scan-api.scm�
�
��	
�	��	�	��	�	��	)�	��	0�	��	9�	��	M�	��	a�	��	d�	��	n�	 ��	r�	��	v�	��	v�	��	y�	��	~�	����	����	����	����	����	����	����	����	����	����	����	����	����	����	-����	����	����	����	����	����	����	����	/���	���	���	���	��!�	��&�	��'�	��*�	��.�	��/�	��4�	!��8�	��:�	��F�	��X�	��a�	��f�	��m�	��v�	��{�	��}�	��~�	����	$����	(����	-����	(����	(����	$����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	���	��S		


gnamegscan-api�CRi�RC�gm
		,gfilenamefscripts/scan-api.scm�		=
��	0	C
��	2	D	��	5	D
��	<	F
��	C	G
���	I
���	R
���	[
��
	g
��	q	��	q
���	s
��	�	v
��
�	y
��{	|
��;�
����
��M�
��T�
��	V
C6PKP;�Z��@F�	�	display-commentary.gonu�[���GOOF----LE-8-2.0�	]*4h]gguile�	�	gdefine-module*�	�	�	gscripts�	gdisplay-commentary�	�		gfilenameS�	
fscripts/display-commentary.scm�	gimportsS�	gice-9�	
g
documentation�	
�	�	�	gexportsS�	�	gset-current-module�	�	�	f5Display the Commentary section from a file or module.�	g%summary�	gformat�	f~A commentary:
~A�	gfile-commentary�	gdisplay-commentary-one�	gmap�	gsymbol->string�	g
string-append�	f/�	 gmodule-name->filename-frag�	!g%search-load-path�	"f
module ~A
�	#gdisplay-module-commentary�	$gfor-each�	%gstring?�	&gstring-index�	'gwith-input-from-string�	(gread�	)gmain�C5h��]4	
54>"GRh�]456�gfile
		gfilenamefscripts/display-commentary.scm�
	%
��		&	
��	
	&	'��		&	��		gnamegdisplay-commentary-one�CRh@(]45" (C�4�5"�����"��� gls
		?gls		?gls			1gacc			1gfilenamefscripts/display-commentary.scm�
	(
��		)	��		)	��		*	��		+	��		-	��		-	��	$	-	,��	'	-	0��	)	-	��	1	-	
��	1	*	��	4	*	��	7	*	"��	?	*	��		?gnamegmodule-name->filename-frag�C R! "h8�]	4455$4>"G6C�gmodule-name
		3gt		3gfilenamefscripts/display-commentary.scm�
	/
��		0		��		0	��		0		��		0	��		2	��		2	��	#	2	��	1	3	��
		3gnamegdisplay-module-commentary�C#R$%&#'(h@�]45$!
4(5&
4566�$6C�gref
		=gfilenamefscripts/display-commentary.scm�
	6	��		7	��	
	7	��		8	#��		8	��		:	��	(	9	��	.	;	��	1	<	��	5	7	��	;	=	��		=Ch�-136�grefs
			gfilenamefscripts/display-commentary.scm�
	5
��		6	��			


gnamegdisplay-commentary�CRi)RC�gm
		,gfilenamefscripts/display-commentary.scm�		
��	.	#	��	1	#
��	%
���	(
���	/
��	5
���	@
��		�
C6PKP;�Zg^d""summarize-guile-TODO.gonu�[���GOOF----LE-8-2.0�!]}4h�]gdebug-enable�	g	backtrace�	gguile�	�	gdefine-module*�	�	�	gscripts�		gsummarize-guile-TODO�	
	�	gfilenameS�	f scripts/summarize-guile-TODO.scm�	
gimportsS�	gread-text-outline�	�	�	gice-9�	ggetopt-long�	�	�	�	gexportsS�		�	g	autoloadsS�	gsrfi�	gsrfi-13�	�	gstring-tokenize�	�	gsrfi-14�	�	 gchar-set�	! �	"gcommon-list�	#"�	$g
remove-if-not�	%$�	&!#%�	'gset-current-module�	('�	)'�	*g%include-in-guild-list�	+fA quaint relic of the past.�	,g%summary�	-gset-object-property!�	.gput�	/gobject-property�	0gget�	1gwho�	2gmap�	3gstring->symbol�	4gpct-done�	5gstring->number�	6gas-leaf�	7gparent�	8gfor-each�	9ghang-by-the-leaves�	:gmake-text-outline-reader�	;f=(([ ][ ])*)([-+])(D*)(R*)(X*)(([0-9]+)%)* *([^[]*)(\[(.*)\])*�	<glevel-substring-divisor�	=<	��	>gbody-submatch-number�	?>		��	@gextra-fields�	Agstatus�	BA	��	Cgdesign?�	DC	��	Egreview?�	FE	��	Gg	extblock?�	HG	��	I4	��	J1	��	K@BDFHIJ�	L=?K�	Mg	open-file�	Nfr�	Og	read-TODO�	Pg
option-ref�	Qginvolved�	Rgmemq�	Sgpersonal�	Tgreverse�	Ugtodo�	Vgstring=?�	Wf-�	Xgdone�	Yf+�	Zgreview�	[gselect-items�	\gformat�	]f ~A�	^f�	_f
under : ~A~A
�	`gmake-string�	af status: ~A~A~A~A~A~A
item  : ~A
�	bfD�	cfR�	dfX�	ef ~A%�	fgmake-display-item�	gg	no-parent�	hg
display-items�	ifsummarize-guile-TODO�	jgsingle-char�	kjw�	l1k�	mjn�	ngm�	oji�	pgvalue�	qp�	rQoq�	sjp�	tSsq�	ujt�	vUu�	wjd�	xXw�	yjr�	zZy�	{lnrtvxz�	|gmain�C5h��]4i>"G4

&5	4)>"G*R+,R-i.R/i0R01.23 45
h�2]	45$-4444:555>"G"45$44	5>"G"C*gx
		ygt		Cgt	L	vgfilenamef scripts/summarize-guile-TODO.scm�
	Q
��		R		��			R	��		R		��		R	��		T	��		T	��		U	��	 	V	��	%	V	-��	-	V	��	/	U	��	4	T	��	D	W		��	J	W	��	L	W		��	L	W	��	U	Y	��	[	Y	��	\	Y	��	g	Y	��		ygnamegas-leaf�C6R.78hw]LL�6ogchild
		gfilenamef scripts/summarize-guile-TODO.scm�
	b	%��			c	3��		c	'��		C6hX�]�$'4�>"GLO�64>"G45M�NC�gtree
		Tgparent		Tgfilenamef scripts/summarize-guile-TODO.scm�
	^	��		_	��			_	��	
	a	��		a	 ��		a	+��		a	��	.	d	%��	0	b	��	1	f	��	7	f	%��	>	f	��	G	g	.��	P	g	(��	R	g	��		T	gnameghang�C8hn]L6fgtree
			gfilenamef scripts/summarize-guile-TODO.scm�
	h	��			i	��			Ch8�]HOQ4O>"GJC�gtrees
		4gleaves		4ghang			1gfilenamef scripts/summarize-guile-TODO.scm�
	\
��		]	��		]	��		^	��		h	��		4gnameghang-by-the-leaves�C9R9:;LMNh �]4454556�gfile
		gfilenamef scripts/summarize-guile-TODO.scm�
	m
��		o	��		o	��	
	p	��		q	��		o	��		y	��		y	��		y	��		o	��		n	��		gnameg	read-TODO�CORPQ301Rh �]45$L456C�gx
		 gfilenamef scripts/summarize-guile-TODO.scm�
�	��	�	$��		�	+��	�	$��	�	��	�	,��	�	3��	�	,��	�	$��
		 CS01Th(�]	45$45�L�CC�gx
		!gt		!gfilenamef scripts/summarize-guile-TODO.scm�
�	��	�	&��		�	-��	�	&��	�	��	�	5��	�	0��	�	+��			!C8Ph �]4L�5$
�M�NCC�gpair
		gfilenamef scripts/summarize-guile-TODO.scm�
�	��	�	��	
�	%��	
�	��	�	��	�	'��	�	!��	�	��			CUV0AWh�]456�gx
		gfilenamef scripts/summarize-guile-TODO.scm�
�	��	�	/��	�	6��	
�	/��	�	?��	�	%��		CXV0AYh�]456�gx
		gfilenamef scripts/summarize-guile-TODO.scm�
�	��	�	/��	�	6��	
�	/��	�	?��	�	%��		CZ0Ehv]6ngx
		
gfilenamef scripts/summarize-guile-TODO.scm�
�	��	�	.��	
�	'��		
CT$h�+]H45$45OJ�K"45$45OJ�K"4O	
��
�>"G"!(6�4�5"���4J5"���#gp
	�gitems	�gsub		�gt			6gu			/gt		@	ggu		O	`gsub	��gitems	��	gfilenamef scripts/summarize-guile-TODO.scm�
	{
��		|	
��		|	��		}	��		}	��		}	��		}	��			��			��	*�	��	,�	��	7�	��	=�	��	@�	��	@�	��	I�	��	O�	��	[�	��	]�	��	h�	��	u�	����	����	����	����	
����	����	����	)����	����	
����	����	����	��"	�	gnamegselect-items�C[R01\]^h �]	45$	6C�gitem
		gt		gfilenamef scripts/summarize-guile-TODO.scm�
�	
��	�	��		�	 ��	�	��	�	��	�	2��	�	'��	�	��			C^hp]Chgitem
		gfilenamef scripts/summarize-guile-TODO.scm�
�	
��	�	��		C\_`07hX]"<$444 5>"G45	�"���C45	"���gitem
		Ugparent		Bgindent			Bgfilenamef scripts/summarize-guile-TODO.scm�
�	
��	�	��	�	��	
�	��	�	#��	�	 ��	"�	��	+�	��	1�	*��	3�	��	8�	3��	@�	��	B�	��	C�	"��	I�	,��	K�	"��	U�	��		UChg]C_gitem
		gfilenamef scripts/summarize-guile-TODO.scm�
�	
��		C\a0ACb^EcGd4eh��]	44545$"45$	"4
5$"45$4
5"4L5>	"GL6�gitem
	�gt	Y	tgfilenamef scripts/summarize-guile-TODO.scm�
�	��	�	��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	�	��	 �	&��	&�	*��	'�	��	-�	��	/�	��	3�	��	5�	&��	;�	*��	<�	��	B�	��	D�	��	H�	��	J�	(��	P�	,��	Q�	��	W�	��	Y�	��	Y�	��	b�	��	g�	%��	k�	��	q�	��	u�	����	����	��$	�Ch0�]$"$"OC�g	show-who?
		,gshow-parent?		,gshow-who			,gshow-parents			,gfilenamef scripts/summarize-guile-TODO.scm�
�
��	�		��	�		��	�	��		,	gnamegmake-display-item�CfRfP1g8h(
]
44545�56gp
		&gitems		&gdisplay-item			&gfilenamef scripts/summarize-guile-TODO.scm�
�
��	�	��	�	)��	�	7��	�	)��	�	.��	�	<��	�	.��	�	)��	�	��	�	��	&�	��
		&	gnameg
display-items�ChRi{h[OPhH'-134�544445�55>"GCgargs
			Dgp		Bgfilenamef scripts/summarize-guile-TODO.scm�
�
��	
�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	"�	%��	%�	5��	*�	C��	-�	5��	.�	0��	0�	%��	2�	��	7�	��			D


gnamegsummarize-guile-TODO�C	R	i|RC�gm
	-	Dgfilenamef scripts/summarize-guile-TODO.scm�		A
��			A	��		A
��		C
��	H	K
��	J	L	��	M	L
��	T	N
��	[	O
��5	Q
���	\
���	m
���	{
����
�� �
����
����
��	�
C6PKP;�Z���0""api-diff.gonu�[���GOOF----LE-8-2.0�!]^4h]gguile�	�	gdefine-module*�	�	�	gscripts�	gapi-diff�	�		gfilenameS�	
fscripts/api-diff.scm�	gimportsS�	gice-9�	
gcommon-list�	
�	�	gformat�	�	�	ggetopt-long�	�	�	�	gexportsS�	�	g	autoloadsS�	gsrfi�	gsrfi-13�	�	gstring-tokenize�	�	�	 gset-current-module�	! �	" �	#g%include-in-guild-list�	$f,Show differences between two scan-api files.�	%g%summary�	&gwith-input-from-file�	'gread�	(gread-alist-file�	)gset-object-property!�	*gput�	+gobject-property�	,gget�	-gassq-ref�	.gmeta�	/g	interface�	0ggroups�	1gmake-hash-table�	2gfor-each�	3g
hashq-set!�	4gread-api-alist-file�	5g	hashq-ref�	6ghang-by-the-roots�	7gset-difference�	8gdiff?�	9g
diff+note!�	:g	hash-fold�	;gacons�	<gmap�	=gcar�	>fgroups-removed: ~A
�	?fgroups-added: ~A
�	@glength�	Af ~5@A  ~5@A  :  �	Bf-�	Cf~5@A ~5@A : ~5@A�	Df~5@D ~5@D : ~5@D�	Ef     ~A
�	Fgsort�	Ggunion�	Hgstring<?�	Igsymbol->string�	Jgdetails�	Kf~A ~A:
�	Lgremovals�	Mf ~A
�	Ng	additions�	Of~A: no changes
�	Pgerror�	Qf!api-diff: group-diff: bad options�	Rg
group-diff�	Sgsingle-char�	TSd�	Ugvalue�	VU�	WJTV�	XW�	Yg
option-ref�	Zf	/dev/null�	[ZZ�	\gstring->symbol�	]gmain�C5h��]4	
5	4">"G#R$%R&'hO]6Ggfilenamefscripts/api-diff.scm�
	5	��		5	��		
Ch}]6ugfile
		
gfilenamefscripts/api-diff.scm�
	3
��	
	4	��		
gnamegread-alist-file�C(R)i*R+i,R(-./*0123hk]L6cggroup
		gfilenamefscripts/api-diff.scm�
	@	'��			A	>��		A	)��		C
h�|]!4545454>"G44	54	O45>"G>"GCtgfile
		|galist			|gmeta			|g	interface			|ght		E	lgfilenamefscripts/api-diff.scm�
	:
��		;	��			;	��		<	��		<	��		<	��		;	��		=	��		=	$��		=	��		;	��	"	>	��	(	>	��	/	>	��	8	?	��	>	?	��	?	?	%��	E	?	��	H	@	��	R	B	'��	X	B	6��	Z	B	'��	_	@	��	q	?	��		|gnamegread-api-alist-file�C4R,02235h{]LL�4L5�6sggroup
		gfilenamefscripts/api-diff.scm�
	I	��		K	.��		L	.��		K	(��		J	��		C-0hw]LO456ogx
		gfilenamefscripts/api-diff.scm�
	H	��		M	��		M	&��		M	��		I	��		Ch0�]	454O>"GC�g	interface
		,ght		)gfilenamefscripts/api-diff.scm�
	F
��		G	��			G	��		G	��		G	��		H	��		,gnameghang-by-the-roots�C6R7h�]
45(CC�ga
		gb		gresult			gfilenamefscripts/api-diff.scm�
	Q
��		R	��		R	��		S	��			gnamegdiff?�C8R8hpS]H45$4>"GK"45$4>"GK"J$6CKga
		kgb		kg
note-removals			kgnote-additions			kg	note-same			kgsame?			kgt			2gt		;	_gfilenamefscripts/api-diff.scm�
	W
��		X	��		Y	��		Y	��		Y	&��	+	Y	8��	3	Z	��	;	Z	��	D	Z	&��	X	Z	9��	e	[	��	i	[	��
		k	gnameg
diff+note!�C9R6:;,0<=9>hn]6fgremovals
		gfilenamefscripts/api-diff.scm�
	f	��		g	$��		g	��		C?ho]6gg	additions
		gfilenamefscripts/api-diff.scm�
	h	��		i	$��		i	��		ChG]C?gfilenamefscripts/api-diff.scm�
	j	��		
C2-@ABC9@hj]45NCbgsubs
		
gfilenamefscripts/api-diff.scm�
	x	#��		y	5��		y	%��		
C@hj]45NCbgadds
		
gfilenamefscripts/api-diff.scm�
	z	#��		{	5��		{	%��		
ChG]C?gfilenamefscripts/api-diff.scm�
	|	#��		
CDE
h /]94L54L5$45"$45"$$	�""4$"$">"G"4>"nG"g$]$O

HH4O	O
>"G4J
J�>"G""���""��|6'ggroup
	gold	gnew		g	old-count		*g	new-count		>gdelta		[g	add-count	�g	sub-count	�gfilenamefscripts/api-diff.scm�
	k	��		l	#��		l	��		m	#��		l	��		n	)��		n	2��	*	l	��	2	o	)��	3	o	2��	>	l	��	F	p	%��	Q	p	2��	[	l	��	^	q	��	c	q	$��	i	r	!��	q	r	/��	w	s	!��		s	/���	q	����	 ����	+����	>����	B����	F����	 ���	t	���	t	 ���	u	 ���	v	"���	}	"���	}	-���	~	4���	}	"���	$���	��&	CFGHIh�]45456zga
		gb		gfilenamefscripts/api-diff.scm�
�	��	�	'��	�	'��	�	��			C-J-9KL2Mhj]6bgx
		gfilenamefscripts/api-diff.scm�
�	4��	�	A��	�	6��		Ch(�]4L>"G6�gremovals
		!gfilenamefscripts/api-diff.scm�
�	*��	�	*��	�	5��	�	1��	�	*��	!�	*��		!CKN2Mhj]6bgx
		gfilenamefscripts/api-diff.scm�
�	4��	�	A��	�	6��		Ch(�]4L>"G6�g	additions
		!gfilenamefscripts/api-diff.scm�
�	*��	�	*��	�	5��	�	1��	�	*��	!�	*��		!COhZ]L6Rgfilenamefscripts/api-diff.scm�
�	*��	�	7��	�	,��		
Ch`�]4L5$"4L5$"OOO6�ggroup
		Ygt		gold		Ygt		(	:gnew		:	Ygfilenamefscripts/api-diff.scm�
�	��	�	,��	�	(��	�	C��	�	��	 �	,��	(�	(��	7�	C��	:�	��	Y�	��		YCPQh�a-13
4544554545445545(74	
>"G
O4455645		$O	66Ygi-old
		�gi-new		�goptions			�gi-old		�gg-old		#�gg-old-names		.�gi-new		7�gg-new		J�gg-new-names		U�gt		��
gfilenamefscripts/api-diff.scm�
	]
��	
	^	��		^	��		_	��		_	!��		_	%��		_	0��	!	_	%��	#	_	��	#	^	��	&	`	��	.	^	��	1	a	��	7	^	��	:	b	��	?	b	!��	@	b	%��	F	b	0��	H	b	%��	J	b	��	J	^	��	M	c	��	U	^	��	]	d	��	^	e	����	����	����	���	k	����	����	����	���	d	����	����	����	��%		�	
	gnameg
group-diff�CRRXY[4J<\Rhx-134�5454�54��5H45$4	4
,55�J�K"J@�gargs
			vgp		vgrest		!	vgi-old		+	vgi-new		6	vgoptions		9	vgt		E	lgfilenamefscripts/api-diff.scm�
�
��	
�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	!��	!�	��	!�	��	$�	��	)�	%��	+�	��	+�	��	.�	��	3�	%��	6�	��	6�	��	9�	��	9�	��	<�	��	B�	��	E�	��	E�	��	O�	*��	P�	*��	U�	/��	_�	*��	`�	$��	c�	��	e�	��	v�	��#			v


gnamegapi-diff�CRi]RC�gm
		0gfilenamefscripts/api-diff.scm�		)
��	4	0
��	6	1	��	9	1
��H	3
��O	7
��V	8
���	:
��N	F
��	Q
���	W
���	]
����
����
��	�
C6PKP;�Z�����generate-autoload.gonu�[���GOOF----LE-8-2.0�]24h�]gguile�	�	gdefine-module*�	�	�	gscripts�	ggenerate-autoload�	�		gfilenameS�	
fscripts/generate-autoload.scm�	gexportsS�	�	
gset-current-module�	
�	
�	g%include-in-guild-list�	f)Generate #:autoload clauses for a module.�	g%summary�	gopen-input-file�	geof-object?�	gread�	glength�	gdefmacro-public�	g
define-public�	g
define-module�	gmember�	g:export�	gappend�	gexport�	g
export-syntax�	g
autoload-info�	 f--target�	!gdisplay�	"f;;; do not edit --- generated �	#gstrftime�	$f%Y-%m-%d %H:%M:%S�	%g	localtime�	&gcurrent-time�	'gnewline�	(f(define-module �	)f(guile-user)�	*gfor-each�	+f
  :autoload �	,f �	-f)�	.f  ;;; �	/f symbols in �	0f	 modules
�	1gmain�C5h(�]4	
54>"GRR
h��])45"�45$$(CCC"45"����$a"F	45�$4�&'���$45���"��"���"���"���"�	45�$n�&a"'���$45���"��1"��t���$)����$45����"���"���"���"��:"��645�$��&:45��4	5$4
��5""����&"�$454
�5"��d"���"���"��45"��E�gfile
	�gp		�gform		�gmodule-name		�gexports		�gt	Jfgt	s�gfilenamefscripts/generate-autoload.scm�
	@
��		A	��			A	��		B	��		C	
��		C	��	 	D	
��	/	F	��	7	l	��	K	l	��	K	G	
��	N	G	��	R	G	
��	Y	f	��	`	f	��	d	e	��	f	g	��	i	g	,��	m	e	��	p	h	��	r	h	��	v	e	��	w	i	���	k	���	k	���	i	���	G	
���	W	���	W	���	V	���	X	���	X	*���	V	���	a	���	a	���	^	���	b	���	d	���	d	���	b	���	G	
���	Y	���	Y	���	V	���	Z	���	Z	���	V	���	[	��	]	��	]	��	[	�� 	G	
��"	H	��)	H	��-	G	��/	I	��2	I	*��6	G	��7	J	��@	K	��B	L	��F	L	&��J	L	��J	L	��S	N	#��X	N	+��]	N	#��p	J	��s	R	��s	R	���	P	���	S	���	U	���	U	���	U	���	S	���	B	���	B	���	B	9���	B	��Q	�gnameg
autoload-info�CR !"#$%&'()**!+,h(�]M�N45M�N6�gmodule-name
		$gexports		$gfilenamefscripts/generate-autoload.scm�
	}	(��		~	=��		~	*��			>��			;��			*��	�	:��	�	F��	"�	4��	$�	*��		$	Ch �]	45$
LLO@C�gfile
		 gt			 gfilenamefscripts/generate-autoload.scm�
	y	��		z	��			z	��		}	!��		 C-./0hJ-13
H
H45$��"$��"�4>"G4444555>"G4	>"G4
>"G4$">"G4
O>"G4>"G4	>"GJJ6Bgargs
		gmodule-count	
g
syms-count		
gt			,gtarget-override		,gfiles		?gfilenamefscripts/generate-autoload.scm�
	n
��	
	o	��		q	!��		q	)��		q	!��		q	��	,	o	��	4	s	��	7	s	$��	?	s	0��	?	o	��	B	t	��	F	t	
��	K	t	��	T	u	��	W	u	
��	[	u	��	\	u	+��	_	u	6��	e	u	+��	g	u	
��	l	u	��	u	v	���	w	���	w	
���	w	���	x	���	x	
���	x	!���	x	���	y	����	����	
����	����	����	����	'����	)���	���	��)		


gnameggenerate-autoload�CRi1RC�gm
		(gfilenamefscripts/generate-autoload.scm�		:
��	,	=
��	.	>	��	1	>
���	@
��	n
��$�
��	&
C6PKQ;�ZtC*^�&�&autofrisk.gonu�[���GOOF----LE-8-2.0�&]|4h#
]gguile�	�	gdefine-module*�	�	�	gscripts�	g	autofrisk�	�		gfilenameS�	
fscripts/autofrisk.scm�	gimportsS�	gsrfi�	
gsrfi-1�	
�	�	gsrfi-8�	�	�	gsrfi-13�	�	�	gsrfi-14�	�	�	gread-scheme-source�	�	�	gfrisk�	�	�	�	 gexportsS�	!�	"g	autoloadsS�	#gice-9�	$gpopen�	%#$�	&gopen-input-pipe�	'&�	(%'�	)gset-current-module�	*)�	+)�	,g%include-in-guild-list�	-f0Generate snippets for use in configure.ac files.�	.g%summary�	/g
files-glob�	0gnon-critical-external�	1gnon-critical-internal�	2gprograms�	3gpww-varname�	4/0123�	5g*recognized-keys*�	6gerror�	7f
syntax error:�	8finput not a list�	9gevery�	:glist?�	;fnon-list element�	<glength�	=flist too short�	>gquote�	?gmemq�	@funrecognized key:�	Agapply�	Bgmap�	Cgfold�	Dgappend�	Egassq-ref�	Fgcanonical-configuration�	Ggfor-each�	Hgformat�	IfGUILE_MODULE_REQUIRED~A
�	Jg>>strong�	Kgobject->string�	Lgstring-map!�	Mgchar-set-contains?�	Ngchar-set:letter+digit�	Og	safe-name�	Pfprobably_wont_work�	Qg*pww*�	Rgedge-up�	Sg	edge-down�	Tfhave_guile_module~A�	UfGUILE_MODULE_AVAILABLE(~A, ~A)
�	Vf"test "$~A" = no &&
  ~A="~A $~A"~A�	Wf

�	Xg>>weak�	Yfguile_module~Asupport_~A�	ZfAC_PATH_PROG(~A, ~A)
�	[ftest \
�	\f "$~A" = "" -o \
�	]f~A &&
~A="~A $~A"

�	^glist-ref�	_fwar = peace�	`ffreedom = slavery�	afignorance = strength�	bgrandom�	cg	>>program�	dg
>>programs�	efecho '(' ~A ')'�	fgsymbol->string�	ggread�	hgunglob�	igmake-frisker�	jgexternal�	kg	partition�	lgmember�	mgmod-down-ls�	nfAC_DEFUN([AUTOFRISK_CHECKS],[

�	of
~A=~S

�	pf�	qfAC_SUBST(~A)
])

�	rg>>checks�	sg[
AC_DEFUN([AUTOFRISK_SUMMARY],[
if test ! "$~A" = "" ; then
    p="         ***"
    echo "$p"
    echo "$p NOTE:"
    echo "$p The following modules probably won't work:"
    echo "$p   $~A"
    echo "$p They can be installed anyway, and will work if their"
    echo "$p dependencies are installed later.  Please see README."
    echo "$p"
fi
])
�	tg	>>summary�	uf
modules.af�	vgfile-exists?�	wfcould not find input file:�	xgwith-output-to-file�	yf~A.m4�	zgread-scheme-source-silently�	{gmain�C5h �]4	
 !"(5	4+>"G,R-.R45R6789:;<hk]45�Ccgform
		gfilenamefscripts/autofrisk.scm�
	N	��		N	$��		N	��		C=>?5h8�]��$$&C45$CNCC�gform
		4gkey		4gt		!	2gfilenamefscripts/autofrisk.scm�
	P	��		Q	��		Q	��	
	R	��		R	��		S	$��		S	��		S	��		T	��	!	S	��	0	V	!��		4C@ABCDh8�]
�L&�$4�5""$CC�gform
		4gso-far		4gt		&	4gfilenamefscripts/autofrisk.scm�
	[	 ��		\	0��		\	&��		]	+��		\	&��		^	+��		^	:��		^	+��	&	\	"��
		4	Chj]OL6bgkey
		gfilenamefscripts/autofrisk.scm�
	Z	��		`	 ��		[	��		C5Ehb]L6Zgkey
		
gfilenamefscripts/autofrisk.scm�
	c	��	
	d	��		
Ch��]�$"4>"G45$"4>"G45$"4>"GH4	O5
J$"4>"G4
O5OC�gforms
	�g	condition	*	Mg	condition	V	ygun	z�g	condition	��gx	��gbunched��gfilenamefscripts/autofrisk.scm�
	I
��		L		��			K	��		K	��		K	*��		L	��		K	��	"	M		��	*	M	��	2	K	��	7	K	��	;	K	*��	=	M	��	B	K	��	N	N		��	V	N	��	^	K	��	c	K	��	g	K	*��	i	N	;��	n	K	��	z	O	��	}	P	���	Y	���	P	���	K	���	K	���	K	*���	K	���	Z	���	Z	�� 	�gnamegcanonical-configuration�CFRGHIhm]6egmodule
		gfilenamefscripts/autofrisk.scm�
	g	��		h	��		h	��		Chz]6rgmodules
		
gfilenamefscripts/autofrisk.scm�
	f
��	
	g	��		
gnameg>>strong�CJRKLMNhh]45$C_C`gc
		gfilenamefscripts/autofrisk.scm�
	m	��		n	��		n	��		Ch(�]	454>"GC�gmodule
		"gvar			"gfilenamefscripts/autofrisk.scm�
	k
��		l	
��			l	��		m	��		"gnameg	safe-name�CORPQRGRSHTOUVQW
hP]454544554>"G	6�gedge
		Mgup			Mgdown			Mgvar		#	Mgfilenamefscripts/autofrisk.scm�
	w	��		x	��			x	��		y	��		x	��		z	��		z	%��		z	;��	#	z	��	#	x	��	&	{	��	+	{	��	4	{	��	A	|	��	K	}	-��	M	|	��		MCh{]6sg
weak-edges
		
gfilenamefscripts/autofrisk.scm�
	v
��	
	w	��		
gnameg>>weak�CXRBHYOhw]4L56ogprog
		gfilenamefscripts/autofrisk.scm�
�	��	�	 ��	�	��	�	��		CGHZh]6wgvar
		
gprog		
gfilenamefscripts/autofrisk.scm�
�	��	�	��	
�	��		
	CH[H\hm]6egvar
		gfilenamefscripts/autofrisk.scm�
�	��	�	��	�	��		C]^_`abQhx(]
4O54>"G4>"G4>"G4	
4
	556 gmodule
		qgprogs		qgvars			qgfilenamefscripts/autofrisk.scm�
�
��	�	��	�	��	�	��	)�	��	.�	��	3�	��	<�	��	T�	��	U�	��	Y�	��	[�	��	]�	��	`�	��	a�	��	i�	��	q�	��		q	gnameg	>>program�CcRGchw]��6ogform
		gfilenamefscripts/autofrisk.scm�
�	��	�	��	
�	$��	�	��		Ch]6wgprograms
		
gfilenamefscripts/autofrisk.scm�
�
��	
�	��		
gnameg
>>programs�CdR&HeBfgh �]	4455456�gpattern
		 gp		 gfilenamefscripts/autofrisk.scm�
�
��	�	��	�	��	�	'��	�	��	�	��	�	��	�	��	 �	��
		 gnamegunglob�ChRFDBh/01ij3Qkl9lhb]L6Zgi
		
gfilenamefscripts/autofrisk.scm�
�	 ��	
�	"��		
CBSmh0�]	4L5$CLO44556�gmodule
		/gt		/gfilenamefscripts/autofrisk.scm�
�	��	�	��	�	��	 �	 ��	%�	/��	-�	 ��	/�	��		/CHnJopXCDmh�]456|gmodule
		gso-far		gfilenamefscripts/autofrisk.scm�
�	��	�	%��	�	��			Cd2qh�+]A4544455?454544554	54
5("� 4
O>G4>"G4>"G4>"G445>"G445>"G6#gforms
	�gcfg		�gfiles		�gncx		'�gnci		0�greport		<�gexternal		E�gpww-varname		N	bgweak		v�gstrong		v�
gfilenamefscripts/autofrisk.scm�
�
��	�	��		�	��	�	��	�	��	�	*��	�	/��	�	*��	�	��	�	��	�	��	!�	��	%�	��	'�	��	'�	��	*�	��	.�	��	0�	��	0�	��	3�	��	4�	��	<�	��	<�	��	?�	��	C�	��	E�	��	E�	��	H�	��	L�	��	N�	��	N�	��	V�	��	]�	*��	_�	��	c�	��	y�	��	~�	����	����	����	����	����	����	%����	����	����	����	����	����	����	����	����	����	����	����	����	��9	�gnameg>>checks�CrRHfsQh�]456zgfilenamefscripts/autofrisk.scm�
�
��	�	
��	
�	��	�	
��	�	��		
gnameg	>>summary�CtRuv6wxHyrzth m]44L5>"G6egfilenamefscripts/autofrisk.scm�
�	��	�	��	�	��	�	��	�	��		
C	h`-13("�45$"4>"G45O6gargs
			Ygfile		Ygt		!	Dgfilenamefscripts/autofrisk.scm�
�
��	�	��	�	��	�	,��	�	��	�	��	!�	��	.�	��	2�	��	9�	��	G�	��	L�	$��	P�	��	Y�	��			Y


gnameg	autofrisk�CRi{RC�gm
		0gfilenamefscripts/autofrisk.scm�		6
��	4	@
��	6	A	��	9	A
��	;	C	��	>	C
��	I
��5	f
��	�	k
��	�	t	��	�	t
���	v
��k�
����
����
��.�
����
���
���
��	
C6PKQ;�Z���i��read-rfc822.gonu�[���GOOF----LE-8-2.0�]L4h�]gguile�	�	gdefine-module*�	�	�	gscripts�	gread-rfc822�	�		gfilenameS�	
fscripts/read-rfc822.scm�	gimportsS�	gice-9�	
gregex�	
�	�	grdelim�	�	�	�	gexportsS�	gread-rfc822-silently�	�	g	autoloadsS�	gsrfi�	gsrfi-13�	�	gstring-join�	�	�	gset-current-module�	�	 �	!g%include-in-guild-list�	"fValidate an RFC822-style file.�	#g%summary�	$gmake-regexp�	%f^From �	&gfrom-line-rx�	'f^([^:]+):[ 	]*�	(gheader-name-rx�	)f^[ 	]+�	*gheader-cont-rx�	+goption�	,geof-object?�	-greverse�	.g	read-line�	/gregexp-exec�	0gfor-each�	1gunread-char�	2gstring->list�	3g
drain-message�	4gmatch:suffix�	5gstring->symbol�	6gmatch:substring�	7g	substring�	8g	match:end�	9f �	:gstring-null?�	;gfrom�	<g
body-lines�	=gheaders�	>gbody�	?f
�	@gsuffix�	Agerror�	Bfbad component:�	Cg
parse-message�	Dgformat�	EfFrom ~A
�	Ff~A: ~A
�	Gf
~A�	Hgdisplay-rfc822�	Ig	open-file�	Jg	OPEN_READ�	Kgmain�C5h8
]4	
5	4 >"G!R"#R4$i%5&R4$i'5(R4$i)5*R+R,-.+/&01hb]L6Zgc
		
gfilenamefscripts/read-rfc822.scm�
	A	��	
	B	��		
C2
h�C]"p45$6"45�"���$=45$,4O
44	55�>"G6"���"���45"���;gport
	�gline		vgacc			vgfilenamefscripts/read-rfc822.scm�
	<
��		=	��		>	��		>	��		?	��		G	��	'	G	"��	/	G	��	/	>	��	6	@	��	B	@	��	C	A	��	O	D	��	R	D	$��	Z	D	��	[	C	��	`	A	��	n	E	��	v	=	��	w	=	��	~	=	*���	=	��	�gnameg
drain-message�C3R+4/&.-/(56789
hX�])45�45445544455��	5�M�NCygreversed-hlines
		Qghlines			Qgfirst			Qgm			Qgname		(	Qgdata		C	Qgfilenamefscripts/read-rfc822.scm�
	P	��		Q	'��			Q	��		R	&��		Q	��		S	"��		Q	��		T	%��		T	5��	(	T	%��	(	Q	��	+	U	%��	.	V	,��	3	V	=��	;	V	,��	>	W	,��	?	V	&��	A	X	&��	C	U	%��	C	Q	��	J	Y	(��	O	Y	��		Qgnamegadd-header!�C:3*-;<=>?@AB
hX�]	�$LC�$MC�$MC�$M$C4M5NMC	6�g	component
		Tgt	1	Lgfilenamefscripts/read-rfc822.scm�
	g	��		h	��	1	l	��	=	m	&��	C	m	>��	E	m	C��	G	m	&��	I	m	��	P	o	��	T	o	��		TCh�4]A$444555"HHHOQ"�45$)$4>"G"45K"m4	5$4545�"���$4>"G"45"��r45"��_4
J5KOC,gport
	�gfrom	 �g
body-lines		#�gbody		&�gheaders		)�gadd-header!		3�gline		<�gcurrent-header		<�gt		y�	gfilenamefscripts/read-rfc822.scm�
	I
��		J	��			K	��		K	"��		L	/��		K	"��		K	��	 	J	��	)	O	��	)	J	��	<	[	��	=	\	
��	G	\	��	M	]	
��	N	]	!��	d	^	��	l	^	
��	q	_	
��	y	\	���	a	���	b	���	b	���	a	���	d	
���	d	!���	e	���	e	$���	e	
���	[	���	[	���	[	���	f	���	f	��"	�gnameg
parse-message�CCRCh�]6}gport
		gfilenamefscripts/read-rfc822.scm�
	q
��		r	��		gnamegread-rfc822-silently�CR;DE0DFh]��6wgheader
		gfilenamefscripts/read-rfc822.scm�
	v	��		w	��	
	w	$��	
	w	1��		w	��		C=G>	hX]	45$4>"G"445>"G456gparse
		Tgt			-gfilenamefscripts/read-rfc822.scm�
	t
��		u		��		u	��			u		��			u	��		u	)��		u	4��		u	)��	.	v	��	3	x	��	7	x	��	9	x	��	>	v	��	K	y	
��	L	y	��	P	y	��	R	y	��	T	y	��		Tgnamegdisplay-rfc822�CHRIJHh8�-1344�554>"GC�gargs
			1gparse		/gfilenamefscripts/read-rfc822.scm�
	{
��	
	|	��	
	|	%��		|	0��		|	%��		|	��		|	��		}	��				1


gnamegread-rfc822�CRiKRC�gm
		0gfilenamefscripts/read-rfc822.scm�		-
��	4	3
��	6	4	��	9	4
��	:	6	��	@	6	$��	B	6	��	E	6
��	F	7	��	L	7	$��	N	7	��	Q	7
��	R	8	��	X	8	$��	Z	8	��	]	8
��	a	:
���	<
��	G	I
��	�	q
��	t
��
+	{
��
2�
��	
4
C6PKQ;�ZC�&C�!�!help.gonu�[���GOOF----LE-8-2.0�!]p4h�	]gguile�	�	gdefine-module*�	�	�	gscripts�	ghelp�	�		gfilenameS�	
fscripts/help.scm�	gimportsS�	gice-9�	
gformat�	
�	�	g
documentation�	�	�	gsrfi�	gsrfi-1�	�	gselectS�	gfold�	g
append-map�	�	�	�	gexportsS�	g	show-help�	gshow-summary�	g
show-usage�	 gmain�	! �	"gset-current-module�	#"�	$"�	%fShow a brief help message.�	&g%summary�	'fhelp
help --all
help COMMAND�	(g	%synopsis�	)f�
Show help on guild commands.  With --all, show arcane incantations as
well.  With COMMAND, show more detailed help for a particular command.
�	*g%help�	+gfile-exists?�	,gfile-is-directory?�	-gopendir�	.geof-object?�	/gclosedir�	0greaddir�	1gstring=?�	2f.�	3f..�	4gdirectory-files�	5gor-map�	6gstring-suffix?�	7gstring-null?�	8g	substring�	9g
string-length�	:gappend�	;g%load-compiled-extensions�	<g%load-extensions�	=gstrip-extensions�	>gunique�	?gmap�	@gsymbol->string�	Agsort�	Bgin-vicinity�	Cg
%load-path�	Dgstring<?�	Egfind-submodules�	Fgdisplay�	GflUsage: guild COMMAND [ARGS]
Run command-line scripts provided by GNU Guile and related programs.

Commands:
�	Hgfor-each�	Igstring->symbol�	Jgresolve-module�	KgensureS�	Lgand=>�	Mgmodule-variable�	Ngvariable-ref�	Og%include-in-guild-list�	Pf  ~A ~23t~a
�	Qf  ~A
�	R�	Sf
For help on a specific command, try "guild help COMMAND".

Report guild bugs to ~a
GNU Guile home page: <http://www.gnu.org/software/guile/>
General help using GNU software: <http://www.gnu.org/gethelp/>
For complete documentation, run: info guile 'Using Guile Tools'
�	Tg%guile-bug-report-address�	Ug
list-commands�	Vgfile-commentary�	Wg%search-load-path�	Xgmodule-filename�	Ygmodule-commentary�	Zg	last-pair�	[gmodule-name�	\gmodule-command-name�	]gcurrent-output-port�	^gstring-split�	_g
string-append�	`f
 OPTION...�	af
Usage: guild �	bgnewline�	cf
       guild �	df)No documentation found for command "~a".
�	egcurrent-module�	fg%mod�	gf--all�	hg�	if-a�	ji�	kgcurrent-error-port�	lgexit�	mgstring-prefix?�	nf-�	ofNo command named "~a".
�C5hx�]4	
!54$>"G%&R'(R)*R+,-./0123
h��]!45$�45$}45"`45$4>"GC4545$"	4	5$"�"���45"���CC�gdir
	�g
dir-stream	�gnew		%�gacc		%�gt		U	ngfilenamefscripts/help.scm�
	)
��		*	��	
	*	��		*	��		*	��		+	��		+	��	%	,	��	&	.	��	0	.	
��	1	0	��	F	2	��	M	3	��	Q	3	&��	U	3	��	U	3	��	c	4	��	g	4	&��	k	4	��	r	3	��	}	6	���	2	���	,	���	,	���	-	���	,	���	7	��	�gnamegdirectory-files�C4R56789h8�]4L5$#45$CL
4L545�6C�gext
		4gfilenamefscripts/help.scm�
	:	
��		<	
��		;	��		@	��		;	��	"	B	��	)	B	0��	0	B	��	2	A	
��
		4C:;<h�]O456zgpath
		gfilenamefscripts/help.scm�
	9
��		C	
��		:	��		gnamegstrip-extensions�C=R>h8�](C�(C����$�6�4�5�C�gl
		5gfilenamefscripts/help.scm�
	E
��		F	��		G	��		F	��		H	��		H	��		H		��	!	F	��	&	H	+��	(	H	#��	+	I	��	,	I	��	1	I	$��	3	I	��	4	I	��		5gnamegunique�C>R?@>A=h �]
45$�CC�gx
		grest		gstripped				gfilenamefscripts/help.scm�
	P	��		Q	,��			Q	��		R	��		R	+��			C4Bhj]6bgx
		
gy		
gfilenamefscripts/help.scm�
	U	!��	
	U	/��		
	Ch ~]44L556vgpath
		gfilenamefscripts/help.scm�
	O	��		S	��		T	��		U	��		T	��		P	��		CCD	h(�]	4544O556�ghead
		&gshead		&gfilenamefscripts/help.scm�
	K
��		L	��		L	��		N	��		O	��	$	N	��	&	M	��		&gnamegfind-submodules�CERFGHIJKLM&NO
PQ
h�~]!4545$4455"$GL$"4	5$"$$
6
6CCvgname
	�gmodname	�gmod		�gsummary		7�gv		S	fgfilenamefscripts/help.scm�
	b	��		c	��		c	 ��		c	��		c	��		d	��		c	��	"	e	��	#	e	��	&	e	%��	,	e	:��	.	e	%��	2	e	��	7	c	��	?	g	��	E	h	��	K	i	��	Q	i	2��	S	i	��	S	i	��	[	j	��	^	j	��	j	g	��	p	k	��	u	l	��	{	l	���	m	���	m	��	�CER
ST
h@�]4>"G4O45>"G	6�gall?
		;gfilenamefscripts/help.scm�
	Y
��		Z	��		Z	��		Z	��		a	��		n	��	#	n	��	%	n	��	*	a	��	7	o	
��	;	o	��		;gnameg
list-commands�CURVWXh�]44556�gmod
		gfilenamefscripts/help.scm�
	x
��		z	��		z	��		z	��		y	��		gnamegmodule-commentary�CYR@Z[h�]4455�6�gmod
		gfilenamefscripts/help.scm�
	|
��		}	��		}	"��		}	��		}	��		}	��		gnamegmodule-command-name�C\R]^M(_\`FabHFcbh0�]4L>"G4L>"GL6ygu
		0gfilenamefscripts/help.scm�
�	��	�	��	�	��	�	��	�	��	0�	��		0C
h�v-.,3#45445$"4455
54	>"G4�>"G4
>"GO�6ngmod
	�gport	�gvar		%	Egusages		I�gfilenamefscripts/help.scm�
	
��			*��	�	��	�	��	#�	1��	%�	��	%�	��	-�	��	0�	��	5�	��	8�	&��	@�	&��	B�	��	I�	��	I�	��	L�	��	P�	
��	W�	��	`�	��	e�	
��	j�	��	s�	����	����	��	�gnameg
show-usage�CR]M&FbhH�-.,3#4545$4>"G6C�gmod
		Ggport		Ggvar		"	Ggfilenamefscripts/help.scm�
�
��	�	,��	�	
��	 �	"��	"�	
��	"�	��	*�	��	+�	
��	0�	��	7�	
��	E�	
��		Ggnamegshow-summary�CR]M*FbY
d\h�F-.,3#454>"G4>"G45$4>"G645$4>"G6	
456>gmod
	�gport	�gt		J�gt		t�gfilenamefscripts/help.scm�
�
��	�	)��	�	��	.�	��	B�	��	H�	��	J�	��	J�	��	S�		��	X�	��	_�		��	m�		��	n�	��	t�	��	}�		����		����	����	����	��	�gnameg	show-help�CR4ei5fRUhjfklmnJIK
oh��-13(6�$"�$6"445>"G6�(d4	�5$"����4
45
5$4>"G
64>"G6"��u�gargs
		�gname	l�gt	��gfilenamefscripts/help.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	&�	.��	'�	!��	+�	��	0�	��	5�	��	:�	��	C�	��	P�	��	P�	��	S�	��	W�	��	X�	!��	\�	1��	_�	5��	a�	!��	e�	��	l�	��	l�	��	o�	��	s�	��	t�	#��	}�	����	����	����	
����	
����	����	����	����	��&		�


gnamegmain�C RC�gm
		,gfilenamefscripts/help.scm�		
��	.	!	��	1	!
��	3	"	��	6	"
��	8	#	��	;	#
���	)
��-	9
��P	E
��V	K
���	Y
��m	x
��
7	|
��9	
����
����
����	
����
��u�
��	w
C6PKQ;�Z�;^�A�Adoc-snarf.gonu�[���GOOF----LE-8-2.0�A]�4h!]gfoo�	gbar�	gfoo/bar�	f0.0.2�	gdoc-snarf-version�	gguile�	�	gdefine-module*�		�	
�	gscripts�	g	doc-snarf�	
�	gfilenameS�	fscripts/doc-snarf.scm�	gimportsS�	gice-9�	ggetopt-long�	�	�	gregex�	�	�	g
string-fun�	�	�	grdelim�	�	�	�	gexportsS�	 �	!gset-current-module�	"!�	#!�	$f$Snarf out documentation from a file.�	%g%summary�	&gversion�	'gsingle-char�	('v�	)gvalue�	*)�	+&(*�	,ghelp�	-'h�	.,-*�	/goutput�	0'o�	1)�	2/01�	3gtexinfo�	4't�	534*�	6glang�	7'l�	8671�	9+.258�	:gcommand-synopsis�	;gdisplay�	<f
doc-snarf �	=gnewline�	>gdisplay-version�	?f(Usage: doc-snarf [options...] inputfile
�	@f6  --help, -h              Show this usage information
�	Af3  --version, -v           Show version information
�	Bf?  --output=FILE, -o       Specify output file [default=stdout]
�	Cf3  --texinfo, -t           Format output as texinfo
�	Df5  --lang=[c,scheme], -l   Specify the input language
�	Egdisplay-help�	Ff	doc-snarf�	Gg
option-ref�	Hgstring->symbol�	Igstring-downcase�	Jfscheme�	Kg
snarf-file�	Lgmain�	Mgc�	Nf^/\*(.*)�	Of^ \*/�	Pf	^ \* (.*)�	Qf	^ \*-(.*)�	RfNOTHING AT THIS TIME!!!�	SMNOPQR�	Tgscheme�	Uf^;; (.*)�	Vf^;;\.�	Wf^;;-(.*)�	Xf	^\(define�	YTUVUWX�	ZSY�	[gsupported-languages�	\glist-ref�	]gassq-ref�	^gdocstring-start�	_g
docstring-end�	`gdocstring-prefix�	ag
option-prefix�	bgsignature-start�	cgstd-int-doc?�	dg	lang-parm�	egmemq�	fgmap�	ggcar�	hgerror�	if.doc-snarf: input language must be c or scheme.�	jgwrite-output�	kgsnarf�	lgformat-texinfo�	mgformat-plain�	ng
unread-string�	ogread�	pglength�	qgdefine�	rglambda�	sgstring?�	tgfind-std-int-doc�	ugseparate-fields-discarding-char�	vg
string-append�	wgsplit-prefixed�	xgopen-input-file�	ygmake-regexp�	zgeof-object?�	{gclose-input-port�	|greverse�	}gneutral�	~gregexp-exec�	g	read-line��g
doc-string��gmatch:substring��goptions��f
internal: ��gappend��gparse-entry��gentry��g
make-entry��gentry-symbol��gentry-signature��gentry-docstrings��g
entry-options��gentry-filename��g
entry-line��g
get-symbol��gmake-prototype��f��gcall-with-input-string��g	read-char��gjoin-symbols��gsymbol->string��f. ��f ��gwith-output-to-port��gopen-output-file��gcurrent-output-port��gfor-each��f
��f@c snarfed from ��f:��f@deffn procedure ��g
write-line��f@c ��f
@end deffn��fProcedure: ��f;; ��f
Snarfed from ��f�C5h@3v]h�]$CC~gbraz
		gfilenamefscripts/doc-snarf.scm�
	1
��		2	��	
	2	��	
	2	��		gnamegfoo/bar�CRR4

 54#>"G$%R9:R;<=h0�]4>"G4>"G6�gfilenamefscripts/doc-snarf.scm�
	`
��		a	��		a	��		a	��		a	��	*	a	5��		*
gnamegdisplay-version�C>R;?@ABCDhh�]4>"G4>"G4>"G4>"G4>"G6�gfilenamefscripts/doc-snarf.scm�
	e
��		f	��		f	��		f	��		g	��		g	��		g	��	'	h	��	+	h	��	0	h	��	9	i	��	=	j	��	B	i	��	K	k	��	O	k	��	T	k	��	`	l	��	b	l	��		b
gnamegdisplay-help�CERF:G,&3HI6J>E/Kh�Z-134�545454544	4
555$6$
64545�$
�6
6Rgargs
		�goptions	�ghelp-wanted		J�gversion-wanted		J�gtexinfo-wanted		J�glang		J�ginput		y�goutput		y�gfilenamefscripts/doc-snarf.scm�
	p
��	
	q	��		q	$��		q	��		q	��		q	��		r	��		r	+��	!	r	��	"	s	��	(	s	.��	+	s	��	,	t	��	2	t	.��	5	t	��	6	u	��	9	v	��	<	v	"��	B	v	6��	D	v	<��	F	v	"��	H	v	��	J	u	��	J	r	��	X	w	��	\	x	��	b	w	��	f	y	��	g	{	��	l	{	)��	o	{	��	p	|	��	v	|	*��	y	|	��	y	{	����	���	}	
����	����	����	��)		�


gnameg	doc-snarf�CRiLRZ[R\][^_`abc
hh�]45�$
"K�$"=�$	".�$	"�$	"	�$	"6�glang
		hgparm		hgfilenamefscripts/doc-snarf.scm�
�
��	�	��	�	��	h�	��		h	gnameg	lang-parm�CdRefg[hijklmhP]4455$"4>"G45$	"
6ginput
		Pgoutput		Pgtexinfo?			Pglang			Pgt			3gfilenamefscripts/doc-snarf.scm�
�
��	�	��	�	��	�	��	�	��	�	��	#�	
��	(�	��	6�	��	F�	��	P�	��		P	gnameg
snarf-file�CKRnopqrsh�)]
4>"G45�$�"o	45�$_�&T���$I����$=	4���5�$*����&4������5$	������CCCCCCCC	45�$@�&3���$&����$4���5$���C"��O"��K"��G"��C"��?C!gline
	�g
input-port	�gform		�gfilenamefscripts/doc-snarf.scm�
�
��	�	��	�	��	�	��	"�	��	&�	��	-�	��	4�	��	8�	��	:�	��	=�	��	A�	��	D�	��	F�	��	J�	��	M�	��	P�	��	T�	��	W�	��	\�	��	`�	��	a�	��	e�	��	g�	��	j�	"��	m�	��	q�	��	r�	��	w�	 ��	z�	��	~�	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	��5	�	gnamegfind-std-int-doc�g
documentationf�Unread @var{line} from @var{input-port}, then read in the entire form and
return the standard internal docstring if found.  Return #f if not.�CtRufvhe]L6]gline
		
gfilenamefscripts/doc-snarf.scm�
�	
��	
�	��		
Chh-13LO6`glines
			gfilenamefscripts/doc-snarf.scm�
�	��	�	��			


Ch�]
O6�gstring
		gprefix		gfilenamefscripts/doc-snarf.scm�
�
��	�	��			gnamegsplit-prefixed�CwRxyd^_`abz{|}~���ctw���h�u	]�4544554455445544554455"74	5$4
>"G6	&[4
5$*4545
�

	"���45	
�

	"��z	&m4
54
54
54
5$*4545
�
�

	"��$+45
45�
�

	"���$�45$&45$
45""$4455"454

5�
�

	"��Z$/454

5�
�

	"��%45
�

	"��	&24
54
54
5$+45
45�
�

	"���$�45$&45$
45""$4455"454

5�
�

	"�� $/454

5�
�

	"���45
�

	"���C45


	"���m	g
input-file
	�glang	�gi-p			�gdocstring-start		�g
docstring-end		)�gdocstring-prefix		9�g
option-prefix		I�gsignature-start		Y�gline		_�gstate			_�gdoc-strings	
	_�goptions		_�gentries		_�glno	
	_�gm	��gm0	Zgm1	Zgm2	Zgm3	Zgd	��gint-doc	��goptions	�gm1	}�gm2	}�gm3	}�gd	��gint-doc	�
goptions	
?gfilenamefscripts/doc-snarf.scm�
�
��	�	��		�	��	�	%��	�	2��	�	(��	�	2��	�	%��	�	��	�	%��	�	2��	%�	(��	'�	2��	)�	%��	)�	��	,�	%��	/�	2��	5�	(��	7�	2��	9�	%��	9�	��	<�	%��	?�	2��	E�	(��	G�	2��	I�	%��	I�	��	L�	%��	O�	2��	U�	(��	W�	2��	Y�	%��	Y�	��	_�	��	`�	��	j�	��	k�	����	����	����	����	����	����	
����	����	 ����	����	����	-����	9����	����	����	&����	*����	6����	���	����	���	���	��	��		��	��	
�� 	��(	 ��)		��3		��4		:��9
	��I	��O	
��P	��X	 ��[
	"��e
	��j	��z	���	
����	 ����	0����	 ����	����	)����	 ����	"����	)����	;����	)����	����	����	����	����	���	���	���	"���	+���	/���	���	���	��	��	
��	��	 ��	)��	-��	��'	��*	��:	��;	��C	 ��D	)��E	-��J	9��Z	��^	��b�	��c 	��l!	��u"	��} 	���#	
���%	���%	 ���&	"���&	���'	���%	���#	
����	 ����	0����	 ����	����	)����	 ����	"����	)����	;����	)����	����	����	����	���	��
)	��*	��*	"��*	+��*	/��+	��,+	��/-	��?*	��E#	
��F/	��N/	 ��O/	)��P/	-��Q0	��a0	��d2	��t/	��u4	��}4	 ��~4	)��4	-���4	9���4	����	����	����	+����	B����	����	$����	���	�	gnamegsnarf�CkR�h�]C�gsymbol
		g	signature		g
docstrings			goptions			gfilename			gline			gfilenamefscripts/doc-snarf.scm�
6
��	7	
��	7	��			gnameg
make-entry�C�Rhz]�Crge
		gfilenamefscripts/doc-snarf.scm�
8
��	9	��		gnamegentry-symbol�C�Rh}]	�Cuge
		gfilenamefscripts/doc-snarf.scm�
:
��	;	��		gnamegentry-signature�C�Rh~]	�Cvge
		gfilenamefscripts/doc-snarf.scm�
<
��	=	��		gnamegentry-docstrings�C�Rh{]	�Csge
		gfilenamefscripts/doc-snarf.scm�
>
��	?	��		gnameg
entry-options�C�Rh|]	�Ctge
		gfilenamefscripts/doc-snarf.scm�
@
��	A	��		gnamegentry-filename�C�Rh�]	�C�ge
		gfilenamefscripts/doc-snarf.scm�
B
��	D	��		gnameg
entry-line�g
documentationf4This docstring will not be snarfed, unfortunately...�C�R���|pH�	h�A]$54545454545�45��645
�$=445�545�45�4545�45��6454545�45��69g
docstrings
	�goptions	�gdef-line		�gfilename		�gline-no		�gfilenamefscripts/doc-snarf.scm�
I
��	K	��	M	��	N	��	N	+��	 O	��	+P	��	2P	��	3P	3��	:P	��	;P	��	=M	��	>Q	��	FQ	��	JK	��	MR	��	PR	%��	WR	 ��	YR	��	ZS	��	aS	��	bT	��	iT	��	jU	��	uV	��	|V	��	}V	2���V	���V	���R	���X	���X	���X	���X	-���Y	���Y	���Y	2���Y	���Y	���X	��)	�	gnamegparse-entry�C�R��o���hP�]	4>"G4>"G45�$6�$6C�gs-p
		Lgtmp	-	Lgfilenamefscripts/doc-snarf.scm�
a	��	b	��	c	��	'd	��	-b	��	2f		��	6e	��	<g		��	?h		��	Ce	��	Ii		��	Kk		��
		LCh�]6{gdef-line
		
gfilenamefscripts/doc-snarf.scm�
^
��	
_	��		
gnamegmake-prototype�C�R��ohH�]	4>"G4>"G45�$�C�$CC�gs-p
		Ggtmp	-	Ggfilenamefscripts/doc-snarf.scm�
p	��	q	��	r	��	's	��	-q	��	2u		��	6t	��	9v		��	=w		��	At	��	Fz		��		GCh]6wgdef-line
		
gfilenamefscripts/doc-snarf.scm�
m
��	
n	��		
gnameg
get-symbol�C�R�v����hH](C�$
456�(�64�54�56gs
		Cgfilenamefscripts/doc-snarf.scm�
~
��		��	
�		��	�		��		��	�	��	�	��	�		��	"�	��	&	��	+�	��	-�		��	0�	��	5�	(��	7�	��	9�	1��	:�	5��	?�	C��	A�	5��	C�		��		Cgnamegjoin-symbols�C�R����hR]LL6Jgfilenamefscripts/doc-snarf.scm�
�	��	
�	��		

Ch(�]$45"45O6�gentries
		%goutput-file		%gwriter			%gfilenamefscripts/doc-snarf.scm�
�
��	
�	��	�	*��	�	#��	%�	��		%	gnamegwrite-output�CjR;��=��������hb]6Zgs
		gfilenamefscripts/doc-snarf.scm�
�	��	�	��		C�;��h }]4>"G6ugs
		gfilenamefscripts/doc-snarf.scm�
�	��	�	��	�	!��	�	��	�	(��		C���h�]4>"G445>"G4>"G4>"G445>"G4>"G445>"G4>"G4	>"G44
5>"G4>"G44
5>"G445>"G6�gentry
	gfilenamefscripts/doc-snarf.scm�
�
��	�	��	�	��	�	��	�	��	�	��	#�	��	,�	��	<�	��	@�	��	E�	��	N�	��	Q�	��	\�	��	e�	��	i�	��	n�	��	w�	��	z�	����	����	����	����	����	����	����	����	����	����	����	����	����	����	���	���	���	��%	gnamegformat-texinfo�ClR;��=��hb]6Zgs
		gfilenamefscripts/doc-snarf.scm�
�	��	�	��		C�;��h }]4>"G6ugs
		gfilenamefscripts/doc-snarf.scm�
�	��	�	��	�	!��	�	��	�	(��		C�������h�]4>"G445>"G4>"G445>"G44	5>"G4
>"G445>"G4>"G44
5>"G4>"G6wgentry
	�gfilenamefscripts/doc-snarf.scm�
�
��	�	��	�	��	�	��	�	��	�	��	#�	��	,�	��	<�	��	A�	��	L�	��	U�	��	Z�	��	e�	��	n�	��	r�	��	w�	����	����	����	����	����	����	����	����	����	����	����	����	��	�gnamegformat-plain�CmRCngm
��gfilenamefscripts/doc-snarf.scm��	1
���	J	���	J
���	N
���	U	���	U
���	X	���	W
���	`
��3	e
��U	p
��\�
��^�	��a�
����
��	�
��
T�
��8�
����
���6
��U8
���:
���<
�� >
�� �@
��!�B
��$�I
��&�^
��(Rm
��)�~
��+S�
��/��
��3:�
��"	3<
C6PKR;�ZBS�{�	�		punify.gonu�[���GOOF----LE-8-2.0�	]%4hs]gguile�	�	gdefine-module*�	�	�	gscripts�	gpunify�	�		gfilenameS�	
fscripts/punify.scm�	gexportsS�	�	
gset-current-module�	
�	
�	g%include-in-guild-list�	f1Strip comments and whitespace from a Scheme file.�	g%summary�	gstring->list�	gsymbol->string�	gchar=?�	gmemq�	glist->string�	gdisplay�	gwrite�	f(�	gwrite-punily�	f)�	f �	gwith-input-from-file�	geof-object?�	 gread�	!gcurrent-input-port�	"g
punify-one�	#gfor-each�	$gmain�C5h��]4	
54>"GRRh �]!"p�$B44554�:5$4 5$"4�5""$4:>"G66�$�("���4>"G4	>"G"X(
6�$"�$"4>"G4	>"G��"�����"���"����gform
	gls		Kgt	P	vgfirst�gls	�glast-was-list?	�g	new-first	�gfilenamefscripts/punify.scm�
	.
��			=	��	
	=		��		>	��		>	&��		>	��		>	��		?	��	!	?	��	%	?	��	)	?	��	*	@	��	6	?	��	<	A	��	A	A	#��	C	A	��	P	/	��	Y	C	��	p	D	��	v	E	��	v	/	��	y	/	��	}	/	���	/		���	0	���	0		���	1	���	1	���	1	���	2	���	3	���	4	
���	5	���	5	���	6	#���	6	���	8	���	7	'���	8	���	:	���	:	!���	:	���	;	��	<	��	7	'��	<	��	3	��	3	��	3	6��	3	��3	gnamegwrite-punily�CR !hP�]"445$C4>"G4455"���4455"����gform
		:gt	
	:gfilenamefscripts/punify.scm�
	I	��		K	��		L	��	
	L	
��		N	��	+	J	��	.	J	#��	4	J	��	:	O	��	:	K	��	;	J	��	>	J	#��	D	J	��	J	K	��		J
Chv]6ngfile
		
gfilenamefscripts/punify.scm�
	G
��	
	H	��		
gnameg
punify-one�C"R#"ht-136lgargs
			gfilenamefscripts/punify.scm�
	Q
��		R	��			


gnamegpunify�CRi$RC�gm
		(gfilenamefscripts/punify.scm�		(
��	,	+
��	.	,	��	1	,
��
	.
���	G
���	Q
���	T
��		�
C6PKR;�ZN��H��
use2dot.gonu�[���GOOF----LE-8-2.0�][4h"]gguile�	�	gdefine-module*�	�	�	gscripts�	guse2dot�	�		gfilenameS�	
fscripts/use2dot.scm�	gimportsS�	gsrfi�	
gsrfi-13�	
�	gselectS�	gstring-join�	�	�	gfrisk�	�	gmake-frisker�	g	edge-type�	gedge-up�	g	edge-down�	�	�	�	gexportsS�	�	g	autoloadsS�	gice-9�	 ggetopt-long�	! �	" �	#!"�	$gset-current-module�	%$�	&$�	'f1Print a module's dependencies in graphviz format.�	(g%summary�	)g
guile-user�	*)�	+g*default-module*�	,gformat�	-f~S�	.gq�	/gmap�	0f~A=~A�	1gvv�	2fdigraph use2dot {
�	3gfor-each�	4f  ~A;
�	5glabel�	6fGuile Module Dependencies�	7gratio�	8gfill�	978��	:9�	;g>>header�	<f  "~A" -> "~A"�	=gautoload�	>gstyle�	?gdotted�	@>?��	Agfontsize�	BA	��	C@B�	Dgcomputed�	Egbold�	F>E��	GF�	Hf [~A]�	If,�	Jf;
�	Kg>>body�	Lf}�	Mg>>footer�	Ng>>�	Ofuse2dot�	Pgdefault-module�	Qgsingle-char�	RQm�	Sgvalue�	TS�	UPRT�	VU�	Wg
option-ref�	Xgreverse�	Ygedges�	Zgmain�C5h`	�]4	
#5	4&>"G'(R*+R,-hs]6kgs
		gfilenamefscripts/use2dot.scm�
	;
��		<	
��		<	��		gnamegq�C.R/,0hy]��6qgpair
		gfilenamefscripts/use2dot.scm�
	?	��		@	��	
	@	��	
	@	'��		@		��		Chp]6hgpairs
		
gfilenamefscripts/use2dot.scm�
	>
��	
	?	��		
gnamegvv�C1R,23,4hf]6^gs
		gfilenamefscripts/use2dot.scm�
	E	��		E	#��		E	��		C15.6:
h0�]4>"G445�	�56�gfilenamefscripts/use2dot.scm�
	C
��		D	��		D	
��	
	D	��		F	��		F	��		F	��	#	F	��	%	F	��	&	F	��	+	F	��	-	E	��
		-
gnameg>>header�C;R3,<=CDGH1IJh�]	44545>"G45�$"�$	"$%4
445
5>"G"6gedge
	�gkey	*	Ngt	N	~gfilenamefscripts/use2dot.scm�
	O	��		P	��		P	��			P	%��		P	6��		P	��	$	Q	��	*	Q	��	7	R	��	D	Q	��	F	S	��	N	Q	��	W	V	��	\	V	��	]	V	$��	`	V	1��	h	V	:��	j	V	$��	o	V	���	W	���	W	��	�Cht]6lgedges
		
gfilenamefscripts/use2dot.scm�
	M
��	
	N	��		
gnameg>>body�CKR,Lhj]6bgfilenamefscripts/use2dot.scm�
	Z
��		[	
��			[	��			
gnameg>>footer�CMR;KMh(�]4>"G4>"G6xgedges
		(gfilenamefscripts/use2dot.scm�
	]
��		^	��		_	��	(	`	��		(gnameg>>�CNR OVWP+NXYhP�-134�5454�5454	445
556�gargs
			Pgparsed-args		Pg=m		"	Pgscan		.	Pgfiles		9	Pgfilenamefscripts/use2dot.scm�
	b
��	
	c	��		c	)��		c	#��		d	#��		c	��		c	��		f	
��		f	%��	"	f	
��	"	c	��	%	g	��	)	g	��	.	g	��	.	c	��	1	h	��	6	h	(��	7	h	,��	9	h	��	9	c	��	>	i	��	A	i	��	B	i	��	J	i	��	L	i	��	N	i	��	P	i	��			P


gnameguse2dot�CRiZRC�gm
		0gfilenamefscripts/use2dot.scm�		0
��	2	7	��	5	7
��	7	9	��	:	9
���	;
��	>
���	C
��	M
���	Z
��S	]
��	V	b
��	]	k
��		_
C6PKR;�Zp�+++snarf-guile-m4-docs.gonu�[���GOOF----LE-8-2.0]34hS]gguile�	�	gdefine-module*�	�	�	gscripts�	gsnarf-guile-m4-docs�	�		gfilenameS�	
fscripts/snarf-guile-m4-docs.scm�	gimportsS�	gice-9�	
grdelim�	
�	�	�	gexportsS�	�	gset-current-module�	�	�	g%include-in-guild-list�	f/Snarf out texinfo documentation from .m4 files.�	g%summary�	gdisplay�	f@deffn {Autoconf Macro}�	gfor-each�	gstring=?�	f#�	g	substring�	g
string-length�	 f# �	!gnewline�	"f
@end deffn�	#gdisplay-texi�	$gcatch�	%$�	&$�	'gprefix?�	(glist->string�	)greverse�	*gstring->list�	+g
massage-usage�	,g	open-file�	-fr�	.geof-object?�	/f# Usage:�	0g	read-line�	1fAC_DEFUN�	2gmain�C5h�	�]4	
54>"GRR !h��]4"&44
55$45"B"<45	�$*44
	55$
4	5""���""���>"G6�gline
		|gfilenamefscripts/snarf-guile-m4-docs.scm�
	*	��		+	��	
	.	��		.	(��		.	,��		.	��		+	��		/	��	/	+	��	0	+	'��	9	+	#��	=	+	��	>	,	#��	B	,	-��	C	,	2��	N	,	#��	R	+	��	S	-	��	p	+	��	|	1	��		|C"!hP�]4>"G4>"G4>"G4>"G6�glines
		Ngfilenamefscripts/snarf-guile-m4-docs.scm�
	(
��		)	��		)	��		)	��		*	��	)	3	��	-	3	��	2	3	��	;	4	��	N	4	��		Ngnamegdisplay-texi�C#R&hr]L4L
4L556jgfilenamefscripts/snarf-guile-m4-docs.scm�
	7	��		8	��	
	8	#��		8	��		8	��		
Chg-13C_gargs
			gfilenamefscripts/snarf-guile-m4-docs.scm�
	7	��			


Ch�]O6�gline
		gsub		gfilenamefscripts/snarf-guile-m4-docs.scm�
	6
��		7	��			gnamegprefix?�C'R()*hp1]"Y(4455C��(�$")�$",�$ "�"���45"���)gline
		ogline		_gacc			_gkey		"	Tgfilenamefscripts/snarf-guile-m4-docs.scm�
	:
��		;	��		<	��	
	=	��		=	��		=	��		=	��		>	��	"	?	��	"	?	��	Q	A	��	W	?	��	_	>	��	_	;	��	`	;	��	g	;	-��	o	;	��		ognameg
massage-usage�C+R,-.'/0+1#)
h�-134�5"�45$C45$4544	55"���4	5$'4
45>"G45"���"45"��|$%45$45�"��U"���"���45"��=
gargs
		�gp	�gline		�gacc		�gt		 �gfilenamefscripts/snarf-guile-m4-docs.scm�
	D
��	
	E	��		E	��		E	"��		E	��		E	��		G	��		H	
��	 	H	��	,	I	��	2	I	��	4	I	��	8	I	
��	9	F	��	@	J	��	C	J	-��	M	J	��	U	J	��	V	K	��	\	K	��	^	K	��	b	I	
��	c	L	��	f	L	��	q	L	��	z	F	���	M	���	F	���	Q	���	I	
���	N	���	N	(���	N	���	N	���	F	���	O	���	O	���	G	���	F	���	G	��)		�


gnamegsnarf-guile-m4-docs�CRi2RC�gm
		,gfilenamefscripts/snarf-guile-m4-docs.scm�		!
��	0	%
��	2	&	��	5	&
��	(
���	6
���	:
��	�	D
��	�	S
��
		�
C6PKR;�Z�:�&Y Y lint.gonu�[���GOOF----LE-8-2.0A ]I4h]gguile�	�	gdefine-module*�	�	�	gscripts�	glint�	�		gfilenameS�	
fscripts/lint.scm�	gimportsS�	gice-9�	
gcommon-list�	
�	�	gformat�	�	�	�	gexportsS�	�	gset-current-module�	�	�	g%include-in-guild-list�	f1Check for bugs and style errors in a Scheme file.�	g%summary�	gscan-file-for-module-name�	guniq�	gscan-file-for-free-variables�	gresolve-module�	 fResolved module: ~S
�	!gcatch�	"geval�	#f!Unresolved free variables in ~A:
�	$g
write-char�	%gwrite�	&gnewline�	'f#No unresolved free variables in ~A
�	(gwith-input-from-file�	)geof-object?�	*gread�	+g
define-module�	,gappend�	-gdetect-free-variables�	.gmemq�	/gdefine-generic�	0gquote�	1g
quasiquote�	2glet�	3gletrec�	4gmap�	5gcar�	6glet*�	7gand-let*�	8gdefine�	9g
define-public�	:gdefine-macro�	;glambda�	<glambda*�	=greceive�	>g
define-method�	?gdefine*�	@gdefine-class�	Agdetect-free-variables-noncar�	Bgcase�	Cgunquote�	Dgunquote-splicing�	Egelse�	Fg=>�	Ggfor-each�	Hgmain�C5h0�]4	
54>"GRR !"hS]L�L6Kgfilenamefscripts/lint.scm�
	x	��		y	��		y	��		
C#$%&hh�-13M$4L>"G"4	>"G4L�>"G4>"GNC�gargs
			bgfilenamefscripts/lint.scm�
	z	��		{	��		|	��		}	��		|	��	)		��	;�	��	@�	��	E�	��	N�	��	`�	��			b


C'h��])45445545H4>"G"8("64O	O>"G�"���"���J$	
6C}gfilename
	�gmodule-name	�g	free-vars		�gmodule		!�g
all-resolved?		!�g	free-vars		>	vgfilenamefscripts/lint.scm�
	n
��		o	��	
	p	��	
	p	��		p	��		o	��		q	��	!	q	��	&	s	��	+	s	��	2	s	��	>	t	��	D	u	��	I	w	��	p�	��	v�	��	v	t	����	����	����	
��	�gnameglint�CR()*+hP�]"945$C"45"����$�&��C"���"���45"����gx
		?gfilenamefscripts/lint.scm�
�	��	�	��	�	��	�	��	�	��	"�	��	"�	��	%�	��	)�	��	,�	��	.�	!��	2�	��	5�	��	?�	��	@�	��	J�	��		J
Ch�]6�gfilename
		
gfilenamefscripts/lint.scm�
�
��	
�	��		
gnamegscan-file-for-module-name�CR(),*-h@�]")45$@4545�"���45"����gx
		/gfvlists		/gfilenamefscripts/lint.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	"�	8��	$�	��	'�	��	/�	��	/�	��	0�	��	5�	%��	=�	��		=
Ch�]6�gfilename
		
gfilenamefscripts/lint.scm�
�
��	
�	��		
gnamegscan-file-for-free-variables�CR.+/0123,45-hu]��L$L"M6mgbinding
		gfilenamefscripts/lint.scm�
�	"��	�	;��	�	;��	�	$��		C-hd]L6\gbodyform
		
gfilenamefscripts/lint.scm�
�	"��	
�	$��		
C67-hd]M6\gbodyform
		
gfilenamefscripts/lint.scm�
�	��	
�	��		
C-89:;<-hd]L6\gbodyform
		
gfilenamefscripts/lint.scm�
�	��	
�	��		
C=-hd]L6\gbodyform
		
gfilenamefscripts/lint.scm�
�	��	
�	��		
C>?-hd]L6\gbodyform
		
gfilenamefscripts/lint.scm�

	��	
	��		
C@Ah�]�$�"M6zgslot/option
		gfilenamefscripts/lint.scm�
	��		<��		8��		<��		��		CB-hi]�M6agcase
		gfilenamefscripts/lint.scm�
	��		1��		��		CCDEFA%hh�]H�$4J5$CC�$;��$"!�$"�$"�$C�$"�$r���$�����������"��4J4	
��5544	O��5?44	O��5?6
�$"�$I��(4	O��5@4�����J54
�����������J�56�$"�$"�$:���$���J�K�������J6��J�K���J6�$"�$U"-("/�$���"����"J��"���4	O��5@�$.4J��54���J54	O���5@�$"�$f"=("@�$!��$��"���"����"J���"���4	O��5@�$4	O���5@�$4��J54	O��5@ �$"!!�$""�$"#�$	$�J64J54$�J56C�gx
	fglocals	fgkey		,dgletrec?	��glocals-for-let-body	��glocals	��gargs	��glocals-for-lambda-body	glocals-for-receive-body	+Nglocals	i�gargs	i�glocals-for-method-body	��gfilenamefscripts/lint.scm�
�
��		�		��	
�	��	�	
��	�		��	�	��	!�	!��	%�		��	)�	��	,�	��	,�		��	b�	��	l�		��	}�	��	�	����	����	.����	(����	;����	"����	"����	����	����	 ����	(����	����	'����	6����	?����	6����	'����	����	����	����	"����	����	����	����	����	"����	����	����	����		���	���	���	���	���	���	��"�	��'�	5��*�	/��/�	��0�	��4�	/��7�	7��<�	C��>�	/��B�	5��H�	/��J�	��L�	��U�		��t�	��v�	��z�	��}�	%����	����	����	)����	3����	?����	)����	����	%����	����	����	)����	����		����	*����	,����	3����	,����	?����	9����	9����	3����	3����	*����	;���	*���	���	���	���	���	�� �		��!�	+��(�	:��+�	+��+�	��0�	��5�	,��;�	��<�	��H�	��L�	��N�	��W�		��i�	*��o	,��x	3��|	,��	J���	C���	?���	C���	C���	9���	9���	3���	3����	*����	;����	*����	���
	���
	���
	���		����		���	���	���	���	����		���	���	*���	��	��	��	��	���		��I"	*��M"	��P$	��T$	0��X$	��Y%	��^%	7��b%	��d$	��e'	���	f	gnamegdetect-free-variables�C-R.FA,-hXU]
�$45$CC�$.��$	�6454�56CMgx
		Uglocals		Ugkey		(	Sgfilenamefscripts/lint.scm�
)
��	-		��		-	��	
.	
��	.		��	.	��	.	!��	!0		��	%-	��	(1	��	(1		��	83	*��	<3	��	?5	��	C5	0��	G5	��	H6	��	M6	7��	Q6	��	S5	��	T8	��		U	gnamegdetect-free-variables-noncar�CARGhs-136kgfiles
			gfilenamefscripts/lint.scm�
:
��	;	��			


gnamegmain�CHRC�gm
		,gfilenamefscripts/lint.scm�		f
��	0	k
��	2	l	��	5	l
��	n
���
����
����
���)
��.:
��	0
C6PKR;�Z���TTlist.gonu�[���GOOF----LE-8-2.0<]@4h�]gguile�	�	gdefine-module*�	�	�	gscripts�	glist�	�		gfilenameS�	
fscripts/list.scm�	gimportsS�	gsrfi�	
gsrfi-1�	
�	�	�	gexportsS�	glist-scripts�	�	gset-current-module�	�	�	g%include-in-guild-list�	fAn alias for "help".�	g%summary�	gfile-exists?�	gfile-is-directory?�	gopendir�	geof-object?�	gclosedir�	greaddir�	 gstring=?�	!f.�	"f..�	#gdirectory-files�	$gor-map�	%gstring-suffix?�	&gstring-null?�	'g	substring�	(g
string-length�	)gappend�	*g%load-compiled-extensions�	+g%load-extensions�	,gstrip-extensions�	-gunique�	.gmap�	/gsymbol->string�	0gsort�	1g
append-map�	2gfold�	3gin-vicinity�	4g
%load-path�	5gstring<?�	6gfind-submodules�	7gfor-each�	8gformat�	9f~A
�	:�	;ghelp�	<;�	=gmain�	><=�	?<=�C5h8
�]4	
54>"GRR !"
h��]!45$�45$}45"`45$4>"GC4545$"	4	5$"�"���45"���CC�gdir
	�g
dir-stream	�gnew		%�gacc		%�gt		U	ngfilenamefscripts/list.scm�
	#
��		$	��	
	$	��		$	��		$	��		%	��		%	��	%	&	��	&	(	��	0	(	
��	1	*	��	F	,	��	M	-	��	Q	-	&��	U	-	��	U	-	��	c	.	��	g	.	&��	k	.	��	r	-	��	}	0	���	,	���	&	���	&	���	'	���	&	���	1	��	�gnamegdirectory-files�C#R$%&'(h8�]4L5$#45$CL
4L545�6C�gext
		4gfilenamefscripts/list.scm�
	4	
��		6	
��		5	��		:	��		5	��	"	<	��	)	<	0��	0	<	��	2	;	
��
		4C)*+h�]O456zgpath
		gfilenamefscripts/list.scm�
	3
��		=	
��		4	��		gnamegstrip-extensions�C,R-h8�](C�(C����$�6�4�5�C�gl
		5gfilenamefscripts/list.scm�
	?
��		@	��		A	��		@	��		B	��		B	��		B		��	!	@	��	&	B	+��	(	B	#��	+	C	��	,	C	��	1	C	$��	3	C	��	4	C	��		5gnamegunique�C-R./-012,h �]
45$�CC�gx
		grest		gstripped				gfilenamefscripts/list.scm�
	J	��		K	,��			K	��		L	��		L	+��			C#3hj]6bgx
		
gy		
gfilenamefscripts/list.scm�
	O	!��	
	O	/��		
	Ch ~]44L556vgpath
		gfilenamefscripts/list.scm�
	I	��		M	��		N	��		O	��		N	��		J	��		C45	h(�]	4544O556�ghead
		&gshead		&gfilenamefscripts/list.scm�
	E
��		F	��		F	��		H	��		I	��	$	H	��	&	G	��		&gnamegfind-submodules�C6R789hc]6[gx
		gfilenamefscripts/list.scm�
	T	��		V	��		V	��		C6:h�-13456�gargs
			gfilenamefscripts/list.scm�
	S
��		W	��		W	��		W	��		T	��			


gnameglist-scripts�CR?hp-13@hgargs
			gfilenamefscripts/list.scm�
	Y
��		Z	��			


gnamegmain�C=RC�gm
		,gfilenamefscripts/list.scm�		
��	0	
��	2	 	��	5	 
���	#
��%	3
��H	?
��N	E
��	�	S
��
3	Y
��	
5
C6PKS;�ZN�`�##read-scheme-source.gonu�[���GOOF----LE-8-2.0�"]N4hA]gguile�	�	gdefine-module*�	�	�	gscripts�	gread-scheme-source�	�		gfilenameS�	
fscripts/read-scheme-source.scm�	gimportsS�	gice-9�	
grdelim�	
�	�	�	gexportsS�	gread-scheme-source-silently�	gquoted?�	gclump�	�	gset-current-module�	�	�	g%include-in-guild-list�	f/Print a parsed representation of a Scheme file.�	g%summary�	g:type�	gvariable�	g
define-module�	glength�	 gdefine�	!galias�	"glambda�	#gstring?�	$g	procedure�	%g
:signature�	&g:std-int-doc�	'g	annotate!�	(gquote�	)gfilename�	*gmake-regexp�	+f^#!�	,f^!#�	-f
^[ 	]*(;+)�	.f^[ 	]*$�	/gopen-input-file�	0geof-object?�	1gregexp-exec�	2ghash-bang-comment�	3g:line�	4g:line-count�	5g
:text-list�	6greverse�	7g	read-line�	8g
whitespace�	9g:text�	:gcomment�	;g:leading-semicolons�	<g
unread-string�	=gread�	>g	port-line�	?gappend�	@gfollowing-form-properties�	Agprocess�	Bgfor-each�	Cgwrite�	Dgnewline�	Egerror�	Ff	bad list!�	Ggstring->symbol�	Hg	substring�	Igsymbol->string�	Jgassq-ref�	Kgleading-semicolons�	Lgtext�	Mgmain�C5h��]4	
54>"GRR !"#$%&h��]"6�$�"�&6"���"B	45�$0�&#���$����$6"���"���"���"���	45�$�&	"����$�����$z	4���5�$e����&U4������5$@4	>"G4
��������>"G������6"��"��"��"��"�����$c����$U4	>"G4
��>"G	45�$4���5$���6CC"���"���"���"���"��f�gform
	�gnote!	�gfilenamefscripts/read-scheme-source.scm�
	c
��	
�	��	�	��	�	��		d	��		d	��		d	��	�	��	�	"��	"			��	&�	��	(�	��	*�		��	.	d	��	5	z	��	<	z	��	@	y		��	B	{	��	E	{	��	I	y		��	L	|	��	N	|	��	R	y		��	U	}	��	X	}	��	\	y		��	`	~	��	b	~	��	d	~		��	t	d	��	w	e	��	~	e	���	d		���	f	���	f	���	d		���	q	���	q	���	n		���	r	���	r	���	n		���	s	���	s	���	s	���	s	���	n		���	t	���	t	 ���	t	���	n		���	u	���	u	���	u	���	u	���	n		���	v		���	v	���	v	���	v		���	w		���	w	���	w	"���	w	4���	w	.���	w	���	w		��	x	��		x	%��	x	��	x		��$	d	��'	g	��)	g	��-	d		��0	h	��3	h	��7	d		��8	i		��<	i	��>	i	��C	i		��L	j		��P	j	��S	j	��Y	j		��d	k	��k	k	��o	k		��p	l	��u	l	��y	l	��}	k		���	m	���	m	#���	m	��a	�	gnameg	annotate!�C'R()*+,-./0123456789:;<=>'?h�-134M5NC�gargs
			gfilenamefscripts/read-scheme-source.scm�
�	/��	
�	7��	�	1��			


gnamegprop+�C@h`i]b4>"G4545454545"�$�4	5		$	C4
5$�"p4		5$"	4
	5$84
4
5�4	
�5>"/G"(45	
�
	"���45
	"��|".4
5$"4>"G"�4
5		$44	�

�
��
>"G"�4>"G45
45�HH4
O>"GJJ�

$"4>"GJ�K
4
J�����>"G4
>"G
	45�45"��
C45�45"���agfile
	^gnb!	^ghash-bang-rx		A^gbang-hash-rx		A^gall-comment-rx		A^gall-whitespace-rx		A^gp		A^gn		OGgline		OGgt			\Egline			x�gtext	
	x�gt		�gt		8.gm1	
MYgform	
�+gcount	�(gprops	��gprops	�%gt	
��gfilenamefscripts/read-scheme-source.scm�
�
��	�	��	�	��	�	��	�	��	#�	#��	%�	��	&�	��	*�	#��	,�	��	-�	��	1�	%��	3�	��	4�	��	8�	(��	:�	��	;�	��	A�	��	O�	��	U�	��	V�	
��	\�	��	h�	��	t�	��	x�	��	y�	��	�	����	����	����	����	����	2����	.����	����	-����	.����	-����	����	����	����	����	����	����	$����	$����	���	��
�	���	���	��#�	��0�	��8�	��A�	��E�	��M�	+��M�	!��R�	&��U�	/��V�	#��[�	��h�	��u�	����	 ����	����	$����	!����	����	/����	!����	#����	����	����	����	����	'����	����	����	���	���	��/�	��6�	��7�	%��E�	��F�	
��G�	��H�	��O�	��P�	,��^�	��\	^	gnamegprocess�CARBAht]M�NClge
		gfilenamefscripts/read-scheme-source.scm�
�	��	�	4��		�	*��		Chn]LO6fgfile
		gfilenamefscripts/read-scheme-source.scm�
�	��	�	��		C6h0-13H4O>"GJ6gfiles
			+gres	
	+gfilenamefscripts/read-scheme-source.scm�
�
��	
�	��	
�	��	
�	��	+�	��			+


gnamegread-scheme-source-silently�g
documentationf6See commentary in module (scripts read-scheme-source).�CRBACDht]4>"G6lge
		gfilenamefscripts/read-scheme-source.scm�
�	��	�	(��	�	2��		Chn]6fgfile
		
gfilenamefscripts/read-scheme-source.scm�
�	��	
�	��		
Ch�-136�gfiles
			gfilenamefscripts/read-scheme-source.scm�
�
��	�	��			


gnamegread-scheme-source�g
documentationf6See commentary in module (scripts read-scheme-source).�CR(EFGHIh�B]"�$�	45�$��&����${
45�$l�&a"Q(C��$"4>"G��444555����"����"���CCCCCC:gsym
	�gform	�ginside		$�gls		G�galist		G�gfirst		S�gfilenamefscripts/read-scheme-source.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	 �	��	#�	��	$�	��	)�	��	-�		��	/�	��	6�	��	:�		��	?�	��	C�		��	G�	��	M�	��	S�	!��	S�	��	X�	��	\�	��	a�	��	e�	!��	j�	��	u�	��	w�	#��	z�	$��	}�	/����	$����	#����	#����	����	����	����	����	2����	��)	�	gnamegquoted?�CR6@82:JKL
h�t]Y"g(6�$��"���45$��"���45$�"���45$�"��|45$�"�(45��"��G�	4	5

$I4
5�$�4
	5�"���45��"���45��"����454	5"��E��"���"���lgforms
	{gforms	mgacc		mgpass-this-one-through?		mgform		mgt	�mginner-forms	�8glevel	�8gtext	�8g
inner-form		�8gt	
�8g	new-level	�gfilenamefscripts/read-scheme-source.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	
��	 �	��	%�	#��	0�	��	1�	��	5�	��	9�	��	=�	
��	@�	��	E�	#��	P�	��	Q�	��	U�	��	Y�	��	]�	
��	`�	��	m�	��	n�	��	r�	��	v�	��	z�	
��	}�	����	����	����	����	����	
����	���	����	<����	0����	*����	$���	0���	���	'���	0���	'���	 ���	3���		4���	3���	,���
	2���
	.���	9���
	?���	@���
	?���
	9��	2��	�	<���	0���	*���	$��#�	<��*�	0��-�	*��8�	$��8�	��;�	/��<�	)��B�	9��D�	)��E�	.��K�	>��M�	.��P�	(��Z�	��]	��b	(��m	��m�	��p�	 ��{�	��R	{gnamegclump�CRiMRC�gm
		,gfilenamefscripts/read-scheme-source.scm�		V
��	0	]
��	2	^	��	5	^
���	c
����
��
�
��F�
��]�
��w�
��~
��	�
C6PKS;�Z��9||disassemble.gonu�[���GOOF----LE-8-2.0d]#4h]gguile�	�	gdefine-module*�	�	�	gscripts�	gdisassemble�	�		gfilenameS�	
fscripts/disassemble.scm�	gimportsS�	gsystem�	
gvm�	gobjcode�	
�	�	glanguage�	gassembly�	�	gprefixS�	gasm:�	�	�	gexportsS�	�	gset-current-module�	�	�	f Disassemble a compiled .go file.�	g%summary�	gfor-each�	 gasm:disassemble�	!gload-objcode�	"gmain�C5h�z]4	
54>"GR !hm]456egfile
		
gfilenamefscripts/disassemble.scm�
	$	��		%	��	
	%	��		
Ch-136wgfiles
			gfilenamefscripts/disassemble.scm�
	#
��		$	��			


gnamegdisassemble�CRi"RCrgm
		,gfilenamefscripts/disassemble.scm�		
��	.	!	��	1	!
��r	#
��y	(
��	{
C6PKS;�Z��P�U'U'
compile.gonu�[���GOOF----LE-8-2.0=']�4h"
]gguile�	�	gdefine-module*�	�	�	gscripts�	gcompile�	�		gfilenameS�	
fscripts/compile.scm�	gimportsS�	gsystem�	
gbase�	
�	gselectS�	gcompile-file�	�	�	gtarget�	
�	�	gmessage�	
�	�	gsrfi�	gsrfi-1�	�	�	gsrfi-13�	�	�	 gsrfi-37�	! �	"!�	#gice-9�	$gformat�	%#$�	&%�	'"&�	(gexportsS�	)�	*gset-current-module�	+*�	,*�	-fCompile a file.�	.g%summary�	/gcurrent-error-port�	0ferror: ~{~a~}~%�	1gexit�	2gfail�	3gsrfi-37:option�	4!3�	5!3�	6fhelp�	7h6�	8g
alist-cons�	9ghelp?�	:fversion�	;:�	<gshow-version�	=f	load-path�	>L=�	?g	assoc-ref�	@g	load-path�	Afoutput�	BoA�	Cgoutput-file�	Df.`-o' option cannot be specified more than once�	Efwarn�	FWE�	Ggstring=?�	Hgshow-warning-help�	Igwarnings�	Jgstring->symbol�	Kgalist-delete�	Lfoptimize�	MOL�	Ng	optimize?�	Offrom�	PfO�	Qgfrom�	Rf2`--from' option cannot be specified more than once�	Sfto�	TtS�	Ugto�	Vf0`--to' option cannot be specified more than once�	Wftarget�	XTW�	Yf4`--target' option cannot be specified more than once�	Zg%options�	[g	args-fold�	\f~A: unrecognized option�	]ginput-files�	^]�	_@�	`gunsupported-warning�	aI`�	b^_a�	cg
parse-args�	dfcompile (GNU Guile) ~A~%�	egversion�	ffCopyright (C) 2009, 2011 Free Software Foundation, Inc.
License LGPLv3+: GNU LGPL version 3 or later <http://gnu.org/licenses/lgpl.html>.
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.~%�	gf$The available warning types are:~%~%�	hgfor-each�	if  ~22A ~A~%�	jf`~A'�	kg<warning-type>�	lk�	mk�	ngsrfi-9�	on�	pgthrow-bad-struct�	qop�	rop�	sgwarning-type-name�	tgwarning-type-description�	ug%warning-types�	vf~%�	wgwarningsS�	xgOS�	ygscheme�	zgobjcode�	{g
%host-type�	|f�Usage: compile [OPTION] FILE...
Compile each Guile source file FILE into a Guile object.

  -h, --help           print this help message

  -L, --load-path=DIR  add DIR to the front of the module load path
  -o, --output=OFILE   write output to OFILE

  -W, --warn=WARNING   emit warnings of type WARNING; use `--warn=help'
                       for a list of available warnings

  -f, --from=LANG      specify a source language other than `scheme'
  -t, --to=LANG        specify a target language other than `objcode'
  -T, --target=TRIPLET produce bytecode for host TRIPLET

Note that auto-compilation will be turned off.

Report bugs to <~A>.~%�	}g%guile-bug-report-address�	~gappend�	g
%load-path��g%load-should-auto-compile��f"`-o' option can only be specified ��fwhen compiling a single file��g	sigaction��gSIGINT��finterrupted by the user��fwrote `~A'
��g*current-warning-prefix*��f��gwith-target��goutput-fileS��gfromS��gtoS��goptsS��gmain�C5hK]4	
'()54,>"G-.R$/01h(�-13445>"G6�gmessages
			'gfilenamefscripts/compile.scm�
	+
��	
	,	��	
	,	
��		,	��		,	��	'	-	��			'


gnamegfail�C2R5789h�]6�gopt
		gname		garg			gresult			gfilenamefscripts/compile.scm�
	2	��		3	��		3	��			C�5;<1h�]4>"G
6�gopt
		gname		garg			gresult			gfilenamefscripts/compile.scm�
	5	��		6	��		7	��			C�5>?@8h �]45�6�gopt
		gname		garg			gresult			g	load-path			gfilenamefscripts/compile.scm�
	:	��		;	#��			;	5��		;	#��		;	��		<	 ��		<	+��		<	��				C�5B?C2D8h �]45$66�gopt
		gname		garg			gresult			gfilenamefscripts/compile.scm�
	?	��		@	��			@	(��		@	��		@	��		A	��		A	��		B	"��		B	��
			C�5FG6H1?I8JK
hH-]45$4>"G
64545�4	56%gopt
		Hgname		Hgarg			Hgresult			Hgwarnings		-	Hgfilenamefscripts/compile.scm�
	E	��		F	��			F	$��		F	��		F	��		H	��	$	I	��	%	J	&��	+	J	8��	-	J	&��	-	J	��	3	K	$��	4	L	*��	=	L	$��	>	M	$��	B	M	2��	F	M	$��	H	K	��		H	C�5M8Nh�]6�gopt
		gname		garg			gresult			gfilenamefscripts/compile.scm�
	P	��		Q	��		Q	��			C�5P?Q2R8Jh(�]45$6456�gopt
		$gname		$garg			$gresult			$gfilenamefscripts/compile.scm�
	S	��		T	��			T	(��		T	��		T	��		U	��		U	��		V	"��		V	(��	$	V	��		$	C�5T?U2V8Jh(�]45$6456�gopt
		$gname		$garg			$gresult			$gfilenamefscripts/compile.scm�
	X	��		Y	��			Y	(��		Y	��		Y	��		Z	��		Z	��		[	"��		[	&��	$	[	��		$	C�5X?2Y8h �]45$66�gopt
		gname		garg			gresult			gfilenamefscripts/compile.scm�
	]	��		^	��			^	(��		^	��		^	��		_	��		_	��		`	"��		`	��
			C�	ZR[Z$/\1h �]445>"G6�gopt
		 gname		 garg			 gresult			 gfilenamefscripts/compile.scm�
	f	
��		g	��		g	��		g	,��		g	��	 	h	��		 	C?]8h �]
45�6�gfile
		gresult		ginput-files			gfilenamefscripts/compile.scm�
	i	
��		j	"��			j	4��		j	"��		j	��		k	��		k	*��		k	��				Cbh�]6�gargs
		gfilenamefscripts/compile.scm�
	b
��		o	
��		e	��		gnameg
parse-args�g
documentationfQParse argument list @var{args} and return an alist with all the relevant
options.�CcR$defh(�]445>"G6�gfilenamefscripts/compile.scm�
	s
��		t	��		t	
��			t	(��		t	��		u	
��	!	u	��		!
gnamegshow-version�C<R$gh$ijmrsthH�]4�&
�"	455�&�"	456�gwt
		Egfilenamefscripts/compile.scm�
	|	��		}	��		~	��	
	~	!��		~	(��	)	~	��	,		��	E	}	��			ECuvh0�]4>"G4>"G6�gfilenamefscripts/compile.scm�
	z
��		{	��		{	
��	
	{	��		|	��	.�	
��	0�	��		0
gnamegshow-warning-help�CHRc?9wINxQyUz{]C@$|}1~�2����2�hn-136fgargs
			gfilenamefscripts/compile.scm�
�	��	
�	��	�	��			


Ch$��������hP]LLLLL6	Hgfilenamefscripts/compile.scm�
�	��	�	��		
Ch(~]Y4LLLLLO5Z6vgfile
		&gfilenamefscripts/compile.scm�
�	��	�	��	�	@��	�	��	&�	��		&C hp-13
45454545$	�"45$"	4
5$"45$"
454545	$"�$*4>"G4
>"G"4	5  $0("���$4>"G""4>"GO6gargs
		ngoptions	nghelp?		ngo		+	Hgcompile-opts		Hngt		S	fgfrom		fngt		q�gto	�ngt	��gtarget	�nginput-files	�ngoutput-file	�ng	load-path		�ngfilenamefscripts/compile.scm�
�
��	
�	��	�	��	�	��	�	-��	�	��	�	��	�	#��	 �	&��	&�	9��	(�	&��	+�	#��	+�	��	.�	 ��	4�	3��	6�	 ��	:�	��	?�	 ��	H�	��	K�	��	Q�	1��	S�	��	S�	��	c�	8��	f�	��	i�	��	o�	1��	q�	��	q�	����	6����	����	����	1����	����	����	����	����	-����	����	����	����	-����	����	����	����	-����	����	����	����	����	����	
����	����	
����	
���	���	���	���	���	
���	��#�	��$�	��%�	��)�	��*�	��.�	��0�	��5�	��F�	��n�	��H		n


gnamegcompile�CRi�RCCgm
		,gfilenamefscripts/compile.scm�		
��	.	(	��	1	(
��
	+
��	1	���	1	���	4	���	4	���	9	���	9	���	>	���	>	���	D	���	D	���	O	��J	O	��N	R	��r	R	��v	W	��	�	W	��	�	\	��
�	\	��
�	1	��
�	/
��
�	b
��y	s
��P	z
��	�
���
��	
C6PK�I�Z��	��"�"common/Activate.ps1nu�[���<#
.Synopsis
Activate a Python virtual environment for the current PowerShell session.

.Description
Pushes the python executable for a virtual environment to the front of the
$Env:PATH environment variable and sets the prompt to signify that you are
in a Python virtual environment. Makes use of the command line switches as
well as the `pyvenv.cfg` file values present in the virtual environment.

.Parameter VenvDir
Path to the directory that contains the virtual environment to activate. The
default value for this is the parent of the directory that the Activate.ps1
script is located within.

.Parameter Prompt
The prompt prefix to display when this virtual environment is activated. By
default, this prompt is the name of the virtual environment folder (VenvDir)
surrounded by parentheses and followed by a single space (ie. '(.venv) ').

.Example
Activate.ps1
Activates the Python virtual environment that contains the Activate.ps1 script.

.Example
Activate.ps1 -Verbose
Activates the Python virtual environment that contains the Activate.ps1 script,
and shows extra information about the activation as it executes.

.Example
Activate.ps1 -VenvDir C:\Users\MyUser\Common\.venv
Activates the Python virtual environment located in the specified location.

.Example
Activate.ps1 -Prompt "MyPython"
Activates the Python virtual environment that contains the Activate.ps1 script,
and prefixes the current prompt with the specified string (surrounded in
parentheses) while the virtual environment is active.

.Notes
On Windows, it may be required to enable this Activate.ps1 script by setting the
execution policy for the user. You can do this by issuing the following PowerShell
command:

PS C:\> Set-ExecutionPolicy -ExecutionPolicy RemoteSigned -Scope CurrentUser

For more information on Execution Policies: 
https://go.microsoft.com/fwlink/?LinkID=135170

#>
Param(
    [Parameter(Mandatory = $false)]
    [String]
    $VenvDir,
    [Parameter(Mandatory = $false)]
    [String]
    $Prompt
)

<# Function declarations --------------------------------------------------- #>

<#
.Synopsis
Remove all shell session elements added by the Activate script, including the
addition of the virtual environment's Python executable from the beginning of
the PATH variable.

.Parameter NonDestructive
If present, do not remove this function from the global namespace for the
session.

#>
function global:deactivate ([switch]$NonDestructive) {
    # Revert to original values

    # The prior prompt:
    if (Test-Path -Path Function:_OLD_VIRTUAL_PROMPT) {
        Copy-Item -Path Function:_OLD_VIRTUAL_PROMPT -Destination Function:prompt
        Remove-Item -Path Function:_OLD_VIRTUAL_PROMPT
    }

    # The prior PYTHONHOME:
    if (Test-Path -Path Env:_OLD_VIRTUAL_PYTHONHOME) {
        Copy-Item -Path Env:_OLD_VIRTUAL_PYTHONHOME -Destination Env:PYTHONHOME
        Remove-Item -Path Env:_OLD_VIRTUAL_PYTHONHOME
    }

    # The prior PATH:
    if (Test-Path -Path Env:_OLD_VIRTUAL_PATH) {
        Copy-Item -Path Env:_OLD_VIRTUAL_PATH -Destination Env:PATH
        Remove-Item -Path Env:_OLD_VIRTUAL_PATH
    }

    # Just remove the VIRTUAL_ENV altogether:
    if (Test-Path -Path Env:VIRTUAL_ENV) {
        Remove-Item -Path env:VIRTUAL_ENV
    }

    # Just remove the _PYTHON_VENV_PROMPT_PREFIX altogether:
    if (Get-Variable -Name "_PYTHON_VENV_PROMPT_PREFIX" -ErrorAction SilentlyContinue) {
        Remove-Variable -Name _PYTHON_VENV_PROMPT_PREFIX -Scope Global -Force
    }

    # Leave deactivate function in the global namespace if requested:
    if (-not $NonDestructive) {
        Remove-Item -Path function:deactivate
    }
}

<#
.Description
Get-PyVenvConfig parses the values from the pyvenv.cfg file located in the
given folder, and returns them in a map.

For each line in the pyvenv.cfg file, if that line can be parsed into exactly
two strings separated by `=` (with any amount of whitespace surrounding the =)
then it is considered a `key = value` line. The left hand string is the key,
the right hand is the value.

If the value starts with a `'` or a `"` then the first and last character is
stripped from the value before being captured.

.Parameter ConfigDir
Path to the directory that contains the `pyvenv.cfg` file.
#>
function Get-PyVenvConfig(
    [String]
    $ConfigDir
) {
    Write-Verbose "Given ConfigDir=$ConfigDir, obtain values in pyvenv.cfg"

    # Ensure the file exists, and issue a warning if it doesn't (but still allow the function to continue).
    $pyvenvConfigPath = Join-Path -Resolve -Path $ConfigDir -ChildPath 'pyvenv.cfg' -ErrorAction Continue

    # An empty map will be returned if no config file is found.
    $pyvenvConfig = @{ }

    if ($pyvenvConfigPath) {

        Write-Verbose "File exists, parse `key = value` lines"
        $pyvenvConfigContent = Get-Content -Path $pyvenvConfigPath

        $pyvenvConfigContent | ForEach-Object {
            $keyval = $PSItem -split "\s*=\s*", 2
            if ($keyval[0] -and $keyval[1]) {
                $val = $keyval[1]

                # Remove extraneous quotations around a string value.
                if ("'""".Contains($val.Substring(0, 1))) {
                    $val = $val.Substring(1, $val.Length - 2)
                }

                $pyvenvConfig[$keyval[0]] = $val
                Write-Verbose "Adding Key: '$($keyval[0])'='$val'"
            }
        }
    }
    return $pyvenvConfig
}


<# Begin Activate script --------------------------------------------------- #>

# Determine the containing directory of this script
$VenvExecPath = Split-Path -Parent $MyInvocation.MyCommand.Definition
$VenvExecDir = Get-Item -Path $VenvExecPath

Write-Verbose "Activation script is located in path: '$VenvExecPath'"
Write-Verbose "VenvExecDir Fullname: '$($VenvExecDir.FullName)"
Write-Verbose "VenvExecDir Name: '$($VenvExecDir.Name)"

# Set values required in priority: CmdLine, ConfigFile, Default
# First, get the location of the virtual environment, it might not be
# VenvExecDir if specified on the command line.
if ($VenvDir) {
    Write-Verbose "VenvDir given as parameter, using '$VenvDir' to determine values"
}
else {
    Write-Verbose "VenvDir not given as a parameter, using parent directory name as VenvDir."
    $VenvDir = $VenvExecDir.Parent.FullName.TrimEnd("\\/")
    Write-Verbose "VenvDir=$VenvDir"
}

# Next, read the `pyvenv.cfg` file to determine any required value such
# as `prompt`.
$pyvenvCfg = Get-PyVenvConfig -ConfigDir $VenvDir

# Next, set the prompt from the command line, or the config file, or
# just use the name of the virtual environment folder.
if ($Prompt) {
    Write-Verbose "Prompt specified as argument, using '$Prompt'"
}
else {
    Write-Verbose "Prompt not specified as argument to script, checking pyvenv.cfg value"
    if ($pyvenvCfg -and $pyvenvCfg['prompt']) {
        Write-Verbose "  Setting based on value in pyvenv.cfg='$($pyvenvCfg['prompt'])'"
        $Prompt = $pyvenvCfg['prompt'];
    }
    else {
        Write-Verbose "  Setting prompt based on parent's directory's name. (Is the directory name passed to venv module when creating the virutal environment)"
        Write-Verbose "  Got leaf-name of $VenvDir='$(Split-Path -Path $venvDir -Leaf)'"
        $Prompt = Split-Path -Path $venvDir -Leaf
    }
}

Write-Verbose "Prompt = '$Prompt'"
Write-Verbose "VenvDir='$VenvDir'"

# Deactivate any currently active virtual environment, but leave the
# deactivate function in place.
deactivate -nondestructive

# Now set the environment variable VIRTUAL_ENV, used by many tools to determine
# that there is an activated venv.
$env:VIRTUAL_ENV = $VenvDir

if (-not $Env:VIRTUAL_ENV_DISABLE_PROMPT) {

    Write-Verbose "Setting prompt to '$Prompt'"

    # Set the prompt to include the env name
    # Make sure _OLD_VIRTUAL_PROMPT is global
    function global:_OLD_VIRTUAL_PROMPT { "" }
    Copy-Item -Path function:prompt -Destination function:_OLD_VIRTUAL_PROMPT
    New-Variable -Name _PYTHON_VENV_PROMPT_PREFIX -Description "Python virtual environment prompt prefix" -Scope Global -Option ReadOnly -Visibility Public -Value $Prompt

    function global:prompt {
        Write-Host -NoNewline -ForegroundColor Green "($_PYTHON_VENV_PROMPT_PREFIX) "
        _OLD_VIRTUAL_PROMPT
    }
}

# Clear PYTHONHOME
if (Test-Path -Path Env:PYTHONHOME) {
    Copy-Item -Path Env:PYTHONHOME -Destination Env:_OLD_VIRTUAL_PYTHONHOME
    Remove-Item -Path Env:PYTHONHOME
}

# Add the venv to the PATH
Copy-Item -Path Env:PATH -Destination Env:_OLD_VIRTUAL_PATH
$Env:PATH = "$VenvExecDir$([System.IO.Path]::PathSeparator)$Env:PATH"
PK�I�Zν�E��common/activatenu�[���# This file must be used with "source bin/activate" *from bash*
# you cannot run it directly

deactivate () {
    # reset old environment variables
    if [ -n "${_OLD_VIRTUAL_PATH:-}" ] ; then
        PATH="${_OLD_VIRTUAL_PATH:-}"
        export PATH
        unset _OLD_VIRTUAL_PATH
    fi
    if [ -n "${_OLD_VIRTUAL_PYTHONHOME:-}" ] ; then
        PYTHONHOME="${_OLD_VIRTUAL_PYTHONHOME:-}"
        export PYTHONHOME
        unset _OLD_VIRTUAL_PYTHONHOME
    fi

    # This should detect bash and zsh, which have a hash command that must
    # be called to get it to forget past commands.  Without forgetting
    # past commands the $PATH changes we made may not be respected
    if [ -n "${BASH:-}" -o -n "${ZSH_VERSION:-}" ] ; then
        hash -r
    fi

    if [ -n "${_OLD_VIRTUAL_PS1:-}" ] ; then
        PS1="${_OLD_VIRTUAL_PS1:-}"
        export PS1
        unset _OLD_VIRTUAL_PS1
    fi

    unset VIRTUAL_ENV
    if [ ! "${1:-}" = "nondestructive" ] ; then
    # Self destruct!
        unset -f deactivate
    fi
}

# unset irrelevant variables
deactivate nondestructive

VIRTUAL_ENV="__VENV_DIR__"
export VIRTUAL_ENV

_OLD_VIRTUAL_PATH="$PATH"
PATH="$VIRTUAL_ENV/__VENV_BIN_NAME__:$PATH"
export PATH

# unset PYTHONHOME if set
# this will fail if PYTHONHOME is set to the empty string (which is bad anyway)
# could use `if (set -u; : $PYTHONHOME) ;` in bash
if [ -n "${PYTHONHOME:-}" ] ; then
    _OLD_VIRTUAL_PYTHONHOME="${PYTHONHOME:-}"
    unset PYTHONHOME
fi

if [ -z "${VIRTUAL_ENV_DISABLE_PROMPT:-}" ] ; then
    _OLD_VIRTUAL_PS1="${PS1:-}"
    if [ "x__VENV_PROMPT__" != x ] ; then
	PS1="__VENV_PROMPT__${PS1:-}"
    else
    if [ "`basename \"$VIRTUAL_ENV\"`" = "__" ] ; then
        # special case for Aspen magic directories
        # see https://aspen.io/
        PS1="[`basename \`dirname \"$VIRTUAL_ENV\"\``] $PS1"
    else
        PS1="(`basename \"$VIRTUAL_ENV\"`)$PS1"
    fi
    fi
    export PS1
fi

# This should detect bash and zsh, which have a hash command that must
# be called to get it to forget past commands.  Without forgetting
# past commands the $PATH changes we made may not be respected
if [ -n "${BASH:-}" -o -n "${ZSH_VERSION:-}" ] ; then
    hash -r
fi
PK�I�Z;�^��posix/activate.cshnu�[���# This file must be used with "source bin/activate.csh" *from csh*.
# You cannot run it directly.
# Created by Davide Di Blasi <davidedb@gmail.com>.
# Ported to Python 3.3 venv by Andrew Svetlov <andrew.svetlov@gmail.com>

alias deactivate 'test $?_OLD_VIRTUAL_PATH != 0 && setenv PATH "$_OLD_VIRTUAL_PATH" && unset _OLD_VIRTUAL_PATH; rehash; test $?_OLD_VIRTUAL_PROMPT != 0 && set prompt="$_OLD_VIRTUAL_PROMPT" && unset _OLD_VIRTUAL_PROMPT; unsetenv VIRTUAL_ENV; test "\!:*" != "nondestructive" && unalias deactivate'

# Unset irrelevant variables.
deactivate nondestructive

setenv VIRTUAL_ENV "__VENV_DIR__"

set _OLD_VIRTUAL_PATH="$PATH"
setenv PATH "$VIRTUAL_ENV/__VENV_BIN_NAME__:$PATH"


set _OLD_VIRTUAL_PROMPT="$prompt"

if (! "$?VIRTUAL_ENV_DISABLE_PROMPT") then
    if ("__VENV_NAME__" != "") then
        set env_name = "__VENV_NAME__"
    else
        if (`basename "VIRTUAL_ENV"` == "__") then
            # special case for Aspen magic directories
            # see https://aspen.io/
            set env_name = `basename \`dirname "$VIRTUAL_ENV"\``
        else
            set env_name = `basename "$VIRTUAL_ENV"`
        endif
    endif
    set prompt = "[$env_name] $prompt"
    unset env_name
endif

alias pydoc python -m pydoc

rehash
PK�I�Z�]��e	e	posix/activate.fishnu�[���# This file must be used with ". bin/activate.fish" *from fish* (http://fishshell.org)
# you cannot run it directly

function deactivate  -d "Exit virtualenv and return to normal shell environment"
    # reset old environment variables
    if test -n "$_OLD_VIRTUAL_PATH"
        set -gx PATH $_OLD_VIRTUAL_PATH
        set -e _OLD_VIRTUAL_PATH
    end
    if test -n "$_OLD_VIRTUAL_PYTHONHOME"
        set -gx PYTHONHOME $_OLD_VIRTUAL_PYTHONHOME
        set -e _OLD_VIRTUAL_PYTHONHOME
    end

    if test -n "$_OLD_FISH_PROMPT_OVERRIDE"
        functions -e fish_prompt
        set -e _OLD_FISH_PROMPT_OVERRIDE
        functions -c _old_fish_prompt fish_prompt
        functions -e _old_fish_prompt
    end

    set -e VIRTUAL_ENV
    if test "$argv[1]" != "nondestructive"
        # Self destruct!
        functions -e deactivate
    end
end

# unset irrelevant variables
deactivate nondestructive

set -gx VIRTUAL_ENV "__VENV_DIR__"

set -gx _OLD_VIRTUAL_PATH $PATH
set -gx PATH "$VIRTUAL_ENV/__VENV_BIN_NAME__" $PATH

# unset PYTHONHOME if set
if set -q PYTHONHOME
    set -gx _OLD_VIRTUAL_PYTHONHOME $PYTHONHOME
    set -e PYTHONHOME
end

if test -z "$VIRTUAL_ENV_DISABLE_PROMPT"
    # fish uses a function instead of an env var to generate the prompt.

    # save the current fish_prompt function as the function _old_fish_prompt
    functions -c fish_prompt _old_fish_prompt

    # with the original prompt function renamed, we can override with our own.
    function fish_prompt
        # Save the return status of the last command
        set -l old_status $status

        # Prompt override?
        if test -n "__VENV_PROMPT__"
            printf "%s%s" "__VENV_PROMPT__" (set_color normal)
        else
            # ...Otherwise, prepend env
            set -l _checkbase (basename "$VIRTUAL_ENV")
            if test $_checkbase = "__"
                # special case for Aspen magic directories
                # see https://aspen.io/
                printf "%s[%s]%s " (set_color -b blue white) (basename (dirname "$VIRTUAL_ENV")) (set_color normal)
            else
                printf "%s(%s)%s" (set_color -b blue white) (basename "$VIRTUAL_ENV") (set_color normal)
            end
        end

        # Restore the return status of the previous command.
        echo "exit $old_status" | .
        _old_fish_prompt
    end

    set -gx _OLD_FISH_PROMPT_OVERRIDE "$VIRTUAL_ENV"
end
PK;.�ZC�-���beer.pynuȯ��#! /usr/bin/python2.7

# By GvR, demystified after a version by Fredrik Lundh.

import sys

n = 100
if sys.argv[1:]:
    n = int(sys.argv[1])

def bottle(n):
    if n == 0: return "no more bottles of beer"
    if n == 1: return "one bottle of beer"
    return str(n) + " bottles of beer"

for i in range(n, 0, -1):
    print bottle(i), "on the wall,"
    print bottle(i) + "."
    print "Take one down, pass it around,"
    print bottle(i-1), "on the wall."
PK;.�Z��G���mboxconvert.pyonu�[����
Afc@s�ddlZddlZddlZddlZddlZddlZddlZd�Zejd�Z	d�Z
d�Zdadd�Z
ed	kr�e�ndS(
i����Nc	Cs�t}y#tjtjdd�\}}Wn7tjk
rb}tjjd|�tjd�nXx)|D]!\}}|dkrjt}qjqjW|s�dg}nd}x�|D]�}|dks�|dkr�|tj	�p�|}q�t
jj|�rt
|�p|}q�t
jj|�r�yt|�}Wn6tk
re}tjjd	||f�d}q�nX||�pu|}|j�q�tjjd
|�d}q�W|r�tj|�ndS(Nitfs%s
is-ft-its%s: %s
s%s: not found
(tmmdftgetopttsystargvterrortstderrtwritetexittmessagetstdintostpathtisdirtmhtisfiletopentIOErrortclose(	tdofiletoptstargstmsgtotatststargR((s0/usr/lib64/python2.7/Demo/scripts/mboxconvert.pytmains<#



s[1-9][0-9]*cCs�d}tj|�}x�|D]�}tj|�t|�krCqntjj||�}yt|�}Wn6tk
r�}t	j
jd||f�d}qnXt|�p�|}qW|S(Nis%s: %s
i(
R
tlistdirtnumerictmatchtlenRtjoinRRRRR	R(tdirRtmsgsRtfnR((s0/usr/lib64/python2.7/Demo/scripts/mboxconvert.pyR2s
cCsbd}xU|j�}|sPn|dkrCt||�p=|}q	tjjd|f�q	W|S(Nis
sBad line in MMFD mailbox: %r
(treadlineRRRR	(RRtline((s0/usr/lib64/python2.7/Demo/scripts/mboxconvert.pyRBs	iRc
Cszd}tj|�}|jd�\}}|jd�}|rQtj|�}n<tjjd|j	d�f�t
j|j��t
j}dG|Gtj|�GHx|jD]
}|Gq�W|jd�stdadt|�tf}	tjjd|	|f�d	G|	GHnHxa|j�}||kr0Pn|sPtjjd
�d}Pn|d dkrmd
|}n|GqWH|S(NitFromtDatesUnparseable date: %r
s
message-idis<%s.%d>sAdding Message-ID %s (From %s)
sMessage-ID:sUnexpected EOF in message
isFrom t>(trfc822tMessagetgetaddrtgetdatettimetmktimeRRR	t	getheaderR
tfstattfilenotstattST_MTIMEtctimetheadersthas_keytcounterthexR&(
Rt	delimiterRtmtfullnametemailtttttR'tmsgid((s0/usr/lib64/python2.7/Demo/scripts/mboxconvert.pyRQs@	

t__main__(R+RR/R
R4RtreRtcompileRRRR9Rt__name__(((s0/usr/lib64/python2.7/Demo/scripts/mboxconvert.pyt<module>s	!		
*PK;.�Z�*�R		pp.pycnu�[����
Afc@s_ddlZddlZdZgZdZdZdZdZdZy#ejej	dd�\Z
ZWnDejk
r�Z
ejjdej	de
f�ejd�nXx�e
D]�\ZZedkr�dZq�ed	kr�dZq�ed
kr�dZq�edkr4x{ejd�D]Zeje�qWq�ed
krIeZq�edkrddZdZq�edkrdZdZq�eGdGHq�Wes�ejd�nes(eddkr�ejZneedd�Zx+ej�Zes�Pnejed �q�W[ed=es(ejd�q(ner@dgZgZnfer�ddddddddddddd d!d"d#d$gZd%d"d&d'd(gZnd)gZgZdje�dZx eD]Zed*ed7Zq�Wedje�d7ZddlZej�Zeje�ej �erNddl!Z!e!j"d+ej#f�n
e$ej#�dS(,i����Ntiis	acde:F:nps%s: %s
is-as-cs-ds-es
s-Fs-ns-psnot recognized???t-trsif 0:s
LINECOUNT = 0sfor FILE in ARGS:s   	if FILE == '-':s   	   	FP = sys.stdins	   	else:s   	   	FP = open(FILE, 'r')s   	LINENO = 0s   	while 1:s   	   	LINE = FP.readline()s   	   	if not LINE: breaks   	   	LINENO = LINENO + 1s!   	   	LINECOUNT = LINECOUNT + 1s   	   	L = LINE[:-1]s   	   	aflag = AFLAGs   	   	if aflag:s"   	   	   	if FS: F = L.split(FS)s   	   	   	else: F = L.split()s   	   	if not PFLAG: continues#   	   	   	if FS: print FS.join(F)s#   	   	   	else: print ' '.join(F)s   	   	else: print Lsif 1:s   	   	sexecfile(%r)(%tsystgetopttFStSCRIPTtAFLAGtCFLAGtDFLAGtNFLAGtPFLAGtargvtoptlisttARGSterrortmsgtstderrtwritetexittoptiontoptargtsplittlinetappendtstdintfptopentreadlinetprologuetepiloguetjointprogramttempfiletNamedTemporaryFiletflushtpdbtruntnametexecfile(((s'/usr/lib64/python2.7/Demo/scripts/pp.pyt<module>s�#!						
				


PK;.�Z��L��beer.pycnu�[����
Afc@s�ddlZdZejdr5eejd�Znd�ZxPeedd�D]<Zee�GdGHee�dGHdGHeed�Gd	GHqQWdS(
i����NidicCs.|dkrdS|dkr dSt|�dS(Nisno more bottles of beerisone bottle of beers bottles of beer(tstr(tn((s)/usr/lib64/python2.7/Demo/scripts/beer.pytbottles
ison the wall,t.sTake one down, pass it around,son the wall.(tsysRtargvtintRtrangeti(((s)/usr/lib64/python2.7/Demo/scripts/beer.pyt<module>s
	PK;.�Z�
lpwatch.pynuȯ��#! /usr/bin/python2.7

# Watch line printer queue(s).
# Intended for BSD 4.3 lpq.

import os
import sys
import time

DEF_PRINTER = 'psc'
DEF_DELAY = 10

def main():
    delay = DEF_DELAY # XXX Use getopt() later
    try:
        thisuser = os.environ['LOGNAME']
    except:
        thisuser = os.environ['USER']
    printers = sys.argv[1:]
    if printers:
        # Strip '-P' from printer names just in case
        # the user specified it...
        for i, name in enumerate(printers):
            if name[:2] == '-P':
                printers[i] = name[2:]
    else:
        if os.environ.has_key('PRINTER'):
            printers = [os.environ['PRINTER']]
        else:
            printers = [DEF_PRINTER]

    clearhome = os.popen('clear', 'r').read()

    while True:
        text = clearhome
        for name in printers:
            text += makestatus(name, thisuser) + '\n'
        print text
        time.sleep(delay)

def makestatus(name, thisuser):
    pipe = os.popen('lpq -P' + name + ' 2>&1', 'r')
    lines = []
    users = {}
    aheadbytes = 0
    aheadjobs = 0
    userseen = False
    totalbytes = 0
    totaljobs = 0
    for line in pipe:
        fields = line.split()
        n = len(fields)
        if len(fields) >= 6 and fields[n-1] == 'bytes':
            rank, user, job = fields[0:3]
            files = fields[3:-2]
            bytes = int(fields[n-2])
            if user == thisuser:
                userseen = True
            elif not userseen:
                aheadbytes += bytes
                aheadjobs += 1
            totalbytes += bytes
            totaljobs += 1
            ujobs, ubytes = users.get(user, (0, 0))
            ujobs += 1
            ubytes += bytes
            users[user] = ujobs, ubytes
        else:
            if fields and fields[0] != 'Rank':
                line = line.strip()
                if line == 'no entries':
                    line = name + ': idle'
                elif line[-22:] == ' is ready and printing':
                    line = name
                lines.append(line)

    if totaljobs:
        line = '%d K' % ((totalbytes+1023) // 1024)
        if totaljobs != len(users):
            line += ' (%d jobs)' % totaljobs
        if len(users) == 1:
            line += ' for %s' % (users.keys()[0],)
        else:
            line += ' for %d users' % len(users)
            if userseen:
                if aheadjobs == 0:
                    line += ' (%s first)' % thisuser
                else:
                    line += ' (%d K before %s)' % (
                        (aheadbytes+1023) // 1024, thisuser)
        lines.append(line)

    sts = pipe.close()
    if sts:
        lines.append('lpq exit status %r' % (sts,))
    return ': '.join(lines)

if __name__ == "__main__":
    try:
        main()
    except KeyboardInterrupt:
        pass
PK;.�Z��K	markov.pynuȯ��#! /usr/bin/python2.7

class Markov:
    def __init__(self, histsize, choice):
        self.histsize = histsize
        self.choice = choice
        self.trans = {}

    def add(self, state, next):
        self.trans.setdefault(state, []).append(next)

    def put(self, seq):
        n = self.histsize
        add = self.add
        add(None, seq[:0])
        for i in range(len(seq)):
            add(seq[max(0, i-n):i], seq[i:i+1])
        add(seq[len(seq)-n:], None)

    def get(self):
        choice = self.choice
        trans = self.trans
        n = self.histsize
        seq = choice(trans[None])
        while True:
            subseq = seq[max(0, len(seq)-n):]
            options = trans[subseq]
            next = choice(options)
            if not next:
                break
            seq += next
        return seq


def test():
    import sys, random, getopt
    args = sys.argv[1:]
    try:
        opts, args = getopt.getopt(args, '0123456789cdwq')
    except getopt.error:
        print 'Usage: %s [-#] [-cddqw] [file] ...' % sys.argv[0]
        print 'Options:'
        print '-#: 1-digit history size (default 2)'
        print '-c: characters (default)'
        print '-w: words'
        print '-d: more debugging output'
        print '-q: no debugging output'
        print 'Input files (default stdin) are split in paragraphs'
        print 'separated blank lines and each paragraph is split'
        print 'in words by whitespace, then reconcatenated with'
        print 'exactly one space separating words.'
        print 'Output consists of paragraphs separated by blank'
        print 'lines, where lines are no longer than 72 characters.'
        sys.exit(2)
    histsize = 2
    do_words = False
    debug = 1
    for o, a in opts:
        if '-0' <= o <= '-9': histsize = int(o[1:])
        if o == '-c': do_words = False
        if o == '-d': debug += 1
        if o == '-q': debug = 0
        if o == '-w': do_words = True
    if not args:
        args = ['-']

    m = Markov(histsize, random.choice)
    try:
        for filename in args:
            if filename == '-':
                f = sys.stdin
                if f.isatty():
                    print 'Sorry, need stdin from file'
                    continue
            else:
                f = open(filename, 'r')
            if debug: print 'processing', filename, '...'
            text = f.read()
            f.close()
            paralist = text.split('\n\n')
            for para in paralist:
                if debug > 1: print 'feeding ...'
                words = para.split()
                if words:
                    if do_words:
                        data = tuple(words)
                    else:
                        data = ' '.join(words)
                    m.put(data)
    except KeyboardInterrupt:
        print 'Interrupted -- continue with data read so far'
    if not m.trans:
        print 'No valid input files'
        return
    if debug: print 'done.'

    if debug > 1:
        for key in m.trans.keys():
            if key is None or len(key) < histsize:
                print repr(key), m.trans[key]
        if histsize == 0: print repr(''), m.trans['']
        print
    while True:
        data = m.get()
        if do_words:
            words = data
        else:
            words = data.split()
        n = 0
        limit = 72
        for w in words:
            if n + len(w) > limit:
                print
                n = 0
            print w,
            n += len(w) + 1
        print
        print

if __name__ == "__main__":
    test()
PK;.�Z��L��beer.pyonu�[����
Afc@s�ddlZdZejdr5eejd�Znd�ZxPeedd�D]<Zee�GdGHee�dGHdGHeed�Gd	GHqQWdS(
i����NidicCs.|dkrdS|dkr dSt|�dS(Nisno more bottles of beerisone bottle of beers bottles of beer(tstr(tn((s)/usr/lib64/python2.7/Demo/scripts/beer.pytbottles
ison the wall,t.sTake one down, pass it around,son the wall.(tsysRtargvtintRtrangeti(((s)/usr/lib64/python2.7/Demo/scripts/beer.pyt<module>s
	PK;.�Z�8���pp.pynuȯ��#! /usr/bin/python2.7

# Emulate some Perl command line options.
# Usage: pp [-a] [-c] [-d] [-e scriptline] [-F fieldsep] [-n] [-p] [file] ...
# Where the options mean the following:
#   -a            : together with -n or -p, splits each line into list F
#   -c            : check syntax only, do not execute any code
#   -d            : run the script under the debugger, pdb
#   -e scriptline : gives one line of the Python script; may be repeated
#   -F fieldsep   : sets the field separator for the -a option [not in Perl]
#   -n            : runs the script for each line of input
#   -p            : prints the line after the script has run
# When no script lines have been passed, the first file argument
# contains the script.  With -n or -p, the remaining arguments are
# read as input to the script, line by line.  If a file is '-'
# or missing, standard input is read.

# XXX To do:
# - add -i extension option (change files in place)
# - make a single loop over the files and lines (changes effect of 'break')?
# - add an option to specify the record separator
# - except for -n/-p, run directly from the file if at all possible

import sys
import getopt

FS = ''
SCRIPT = []
AFLAG = 0
CFLAG = 0
DFLAG = 0
NFLAG = 0
PFLAG = 0

try:
    optlist, ARGS = getopt.getopt(sys.argv[1:], 'acde:F:np')
except getopt.error, msg:
    sys.stderr.write('%s: %s\n' % (sys.argv[0], msg))
    sys.exit(2)

for option, optarg in optlist:
    if option == '-a':
        AFLAG = 1
    elif option == '-c':
        CFLAG = 1
    elif option == '-d':
        DFLAG = 1
    elif option == '-e':
        for line in optarg.split('\n'):
            SCRIPT.append(line)
    elif option == '-F':
        FS = optarg
    elif option == '-n':
        NFLAG = 1
        PFLAG = 0
    elif option == '-p':
        NFLAG = 1
        PFLAG = 1
    else:
        print option, 'not recognized???'

if not ARGS: ARGS.append('-')

if not SCRIPT:
    if ARGS[0] == '-':
        fp = sys.stdin
    else:
        fp = open(ARGS[0], 'r')
    while 1:
        line = fp.readline()
        if not line: break
        SCRIPT.append(line[:-1])
    del fp
    del ARGS[0]
    if not ARGS: ARGS.append('-')

if CFLAG:
    prologue = ['if 0:']
    epilogue = []
elif NFLAG:
    # Note that it is on purpose that AFLAG and PFLAG are
    # tested dynamically each time through the loop
    prologue = [
            'LINECOUNT = 0',
            'for FILE in ARGS:',
            '   \tif FILE == \'-\':',
            '   \t   \tFP = sys.stdin',
            '   \telse:',
            '   \t   \tFP = open(FILE, \'r\')',
            '   \tLINENO = 0',
            '   \twhile 1:',
            '   \t   \tLINE = FP.readline()',
            '   \t   \tif not LINE: break',
            '   \t   \tLINENO = LINENO + 1',
            '   \t   \tLINECOUNT = LINECOUNT + 1',
            '   \t   \tL = LINE[:-1]',
            '   \t   \taflag = AFLAG',
            '   \t   \tif aflag:',
            '   \t   \t   \tif FS: F = L.split(FS)',
            '   \t   \t   \telse: F = L.split()'
            ]
    epilogue = [
            '   \t   \tif not PFLAG: continue',
            '   \t   \tif aflag:',
            '   \t   \t   \tif FS: print FS.join(F)',
            '   \t   \t   \telse: print \' \'.join(F)',
            '   \t   \telse: print L',
            ]
else:
    prologue = ['if 1:']
    epilogue = []

# Note that we indent using tabs only, so that any indentation style
# used in 'command' will come out right after re-indentation.

program = '\n'.join(prologue) + '\n'
for line in SCRIPT:
    program += '   \t   \t' + line + '\n'
program += '\n'.join(epilogue) + '\n'

import tempfile
fp = tempfile.NamedTemporaryFile()
fp.write(program)
fp.flush()
if DFLAG:
    import pdb
    pdb.run('execfile(%r)' % (fp.name,))
else:
    execfile(fp.name)
PK;.�ZMH�YZZ	primes.pynuȯ��#! /usr/bin/python2.7

# Print prime numbers in a given range

def primes(min, max):
    if max >= 2 >= min:
        print 2
    primes = [2]
    i = 3
    while i <= max:
        for p in primes:
            if i % p == 0 or p*p > i:
                break
        if i % p != 0:
            primes.append(i)
            if i >= min:
                print i
        i += 2

def main():
    import sys
    min, max = 2, 0x7fffffff
    if sys.argv[1:]:
        min = int(sys.argv[1])
        if sys.argv[2:]:
            max = int(sys.argv[2])
    primes(min, max)

if __name__ == "__main__":
    main()
PK;.�Z�����from.pyonu�[����
Afc@sddlZddlZyejdZWn4eefk
r_ejjd�ejd�nXye	e�Z
Wn"ek
r�ejde�nXx�e
j�Z
e
s�Pne
jd�r�e
d GxJe
j�Z
e
s�e
dkr�Pne
jd�r�ee
d	d!�Gq�q�WHq�q�WdS(
i����NtMAILsNo environment variable $MAIL
isCannot open mailbox file: sFrom s
s	Subject: i	(tsystostenvirontmailboxtAttributeErrortKeyErrortstderrtwritetexittopentmailtIOErrortreadlinetlinet
startswithtrepr(((s)/usr/lib64/python2.7/Demo/scripts/from.pyt<module>s,
PK;.�Z��Ir��
makedir.pynuȯ��#! /usr/bin/python2.7

# Like mkdir, but also make intermediate directories if necessary.
# It is not an error if the given directory already exists (as long
# as it is a directory).
# Errors are not treated specially -- you just get a Python exception.

import sys, os

def main():
    for p in sys.argv[1:]:
        makedirs(p)

def makedirs(p):
    if p and not os.path.isdir(p):
        head, tail = os.path.split(p)
        makedirs(head)
        os.mkdir(p, 0777)

if __name__ == "__main__":
    main()
PK;.�Z�*�R		pp.pyonu�[����
Afc@s_ddlZddlZdZgZdZdZdZdZdZy#ejej	dd�\Z
ZWnDejk
r�Z
ejjdej	de
f�ejd�nXx�e
D]�\ZZedkr�dZq�ed	kr�dZq�ed
kr�dZq�edkr4x{ejd�D]Zeje�qWq�ed
krIeZq�edkrddZdZq�edkrdZdZq�eGdGHq�Wes�ejd�nes(eddkr�ejZneedd�Zx+ej�Zes�Pnejed �q�W[ed=es(ejd�q(ner@dgZgZnfer�ddddddddddddd d!d"d#d$gZd%d"d&d'd(gZnd)gZgZdje�dZx eD]Zed*ed7Zq�Wedje�d7ZddlZej�Zeje�ej �erNddl!Z!e!j"d+ej#f�n
e$ej#�dS(,i����Ntiis	acde:F:nps%s: %s
is-as-cs-ds-es
s-Fs-ns-psnot recognized???t-trsif 0:s
LINECOUNT = 0sfor FILE in ARGS:s   	if FILE == '-':s   	   	FP = sys.stdins	   	else:s   	   	FP = open(FILE, 'r')s   	LINENO = 0s   	while 1:s   	   	LINE = FP.readline()s   	   	if not LINE: breaks   	   	LINENO = LINENO + 1s!   	   	LINECOUNT = LINECOUNT + 1s   	   	L = LINE[:-1]s   	   	aflag = AFLAGs   	   	if aflag:s"   	   	   	if FS: F = L.split(FS)s   	   	   	else: F = L.split()s   	   	if not PFLAG: continues#   	   	   	if FS: print FS.join(F)s#   	   	   	else: print ' '.join(F)s   	   	else: print Lsif 1:s   	   	sexecfile(%r)(%tsystgetopttFStSCRIPTtAFLAGtCFLAGtDFLAGtNFLAGtPFLAGtargvtoptlisttARGSterrortmsgtstderrtwritetexittoptiontoptargtsplittlinetappendtstdintfptopentreadlinetprologuetepiloguetjointprogramttempfiletNamedTemporaryFiletflushtpdbtruntnametexecfile(((s'/usr/lib64/python2.7/Demo/scripts/pp.pyt<module>s�#!						
				


PK;.�Zh�q��
�

update.pyonu�[����
Afc@soddlZddlZddlZdZeje�Zddd��YZd�Zedkrke�ndS(i����Ns^([^: 	
]+):([1-9][0-9]*):tFileObjcBs#eZd�Zd�Zd�ZRS(cCsk||_d|_yt|d�j�|_Wn*tk
rZ}d|G|GHd|_dSXdG|jGHdS(Nitrs*** Can't open "%s":tdiffing(tfilenametchangedtopent	readlinestlinestIOErrortNone(tselfRtmsg((s+/usr/lib64/python2.7/Demo/scripts/update.pyt__init__s		
	cCs�|jsdG|jGHdSy0tj|j|jd�t|jd�}Wn-tjtfk
rx}d|jG|GHdSXdG|jGHx|jD]}|j|�q�W|j	�d|_dS(Ns
no changes tot~tws*** Can't rewrite "%s":twritingi(
RRtostrenameRterrorRRtwritetclose(R
tfpRtline((s+/usr/lib64/python2.7/Demo/scripts/update.pytfinishs	
cCs�|jdkr'd|j||fGdSt|�d}d|koWt|j�knstd|j||fGdS|j||kr�d|j||fGdS|js�d|_nd||fGHdG|j|GdGH||j|<d	G|j|GdS(
Ns(not processed): %s:%s:%siis&*** Line number out of range: %s:%s:%ss(no change): %s:%s:%ss%sc%st<s---t>(RR	RtevaltlenR(R
tlinenotrestti((s+/usr/lib64/python2.7/Demo/scripts/update.pytprocess,s(%	
(t__name__t
__module__RRR(((s+/usr/lib64/python2.7/Demo/scripts/update.pyRs		cCs1tjdrayttjdd�}Wqjtk
r]}dtjdG|GHtjd�qjXn	tj}d}x�|j�}|s�|r�|j�nPnt	j
|�}|dkr�dG|Gqsnt	jdd�\}}|s�||jkr|r|j�nt
|�}n|j|||�qsWdS(NiRsCan't open "%s":isFunny line:i(tsystargvRRtexittstdinR	treadlineRtprogtmatchtgroupRRR(RRtcurfileRtnRR((s+/usr/lib64/python2.7/Demo/scripts/update.pytmainBs0
	

t__main__((	RR"tretpattcompileR'RR,R (((s+/usr/lib64/python2.7/Demo/scripts/update.pyt<module>	s2	PK;.�Z���й�
markov.pyonu�[����
Afc@s6ddd��YZd�Zedkr2e�ndS(tMarkovcBs,eZd�Zd�Zd�Zd�ZRS(cCs||_||_i|_dS(N(thistsizetchoicettrans(tselfRR((s+/usr/lib64/python2.7/Demo/scripts/markov.pyt__init__s		cCs |jj|g�j|�dS(N(Rt
setdefaulttappend(Rtstatetnext((s+/usr/lib64/python2.7/Demo/scripts/markov.pytadd	scCs�|j}|j}|d|d �xFtt|��D]2}||td||�|!|||d!�q6W||t|�|d�dS(Nii(RR
tNonetrangetlentmax(RtseqtnR
ti((s+/usr/lib64/python2.7/Demo/scripts/markov.pytputs		0cCs�|j}|j}|j}||d�}xQtr~|tdt|�|�}||}||�}|sqPn||7}q.W|S(Ni(RRRRtTrueRR
(RRRRRtsubseqtoptionsR	((s+/usr/lib64/python2.7/Demo/scripts/markov.pytgets				
(t__name__t
__module__RR
RR(((s+/usr/lib64/python2.7/Demo/scripts/markov.pyRs			cCs�ddl}ddl}ddl}|jd}y|j|d�\}}Wnm|jk
r�d|jdGHdGHdGHdGHd	GHd
GHdGHdGHd
GHdGHdGHdGHdGH|jd�nXd}t}d}x�|D]�\}}	d|ko�dknrt|d�}n|dkr&t}n|dkr?|d7}n|dkrTd}n|dkr�t}q�q�W|sdg}nt	||j
�}
y�x�|D]�}|dkr�|j}|j�r�dGHq�q�nt
|d�}|r�dG|GdGHn|j�}
|j�|
jd�}xh|D]`}|dkr;dGHn|j�}|r!|rbt|�}nd j|�}|
j|�q!q!Wq�WWntk
r�d!GHnX|
js�d"GHdS|r�d#GHn|dkrIxN|
jj�D]=}|dkst|�|kr�t|�G|
j|GHq�q�W|dkrEtd$�G|
jd$GHnHnx�tr�|
j�}|rm|}n|j�}d}d%}xF|D]>}|t|�|kr�Hd}n|G|t|�d7}q�WHHqLWdS(&Ni����it0123456789cdwqs"Usage: %s [-#] [-cddqw] [file] ...isOptions:s$-#: 1-digit history size (default 2)s-c: characters (default)s	-w: wordss-d: more debugging outputs-q: no debugging outputs3Input files (default stdin) are split in paragraphss1separated blank lines and each paragraph is splits0in words by whitespace, then reconcatenated withs#exactly one space separating words.s0Output consists of paragraphs separated by blanks4lines, where lines are no longer than 72 characters.is-0s-9s-cs-ds-qs-wt-sSorry, need stdin from filetrt
processings...s

sfeeding ...t s-Interrupted -- continue with data read so farsNo valid input filessdone.tiH(tsystrandomtgetopttargvterrortexittFalsetintRRRtstdintisattytopentreadtclosetsplitttupletjoinRtKeyboardInterruptRtkeysRR
treprR(RR R!targstoptsRtdo_wordstdebugtotatmtfilenametfttexttparalisttparatwordstdatatkeyRtlimittw((s+/usr/lib64/python2.7/Demo/scripts/markov.pyttest#s�$
	
	

		


				
	t__main__N((RRCR(((s+/usr/lib64/python2.7/Demo/scripts/markov.pyt<module>s 	UPK;.�Z�)
�-
-
lpwatch.pyonu�[����
Afc@stddlZddlZddlZdZdZd�Zd�Zedkrpye�Wqpek
rlqpXndS(i����Ntpsci
cCst}ytjd}Wntjd}nXtjd}|r�xlt|�D]-\}}|d dkrN|d||<qNqNWn.tjjd�r�tjdg}n	tg}tjdd�j	�}xJt
r|}x%|D]}|t||�d	7}q�W|GHtj
|�q�WdS(
NtLOGNAMEtUSERiis-PtPRINTERtcleartrs
(t	DEF_DELAYtostenvirontsystargvt	enumeratethas_keytDEF_PRINTERtpopentreadtTruet
makestatusttimetsleep(tdelaytthisusertprinterstitnamet	clearhomettext((s,/usr/lib64/python2.7/Demo/scripts/lpwatch.pytmain
s(
		
cCs�tjd|dd�}g}i}d}d}t}d}d}	xl|D]d}
|
j�}t|�}t|�dkrK||ddkrK|dd!\}
}}|dd	!}t||d
�}||kr�t}n|s�||7}|d7}n||7}|	d7}	|j|d�\}}|d7}||7}||f||<qK|rK|ddkrK|
j�}
|
dkr�|d
}
n|
ddkr�|}
n|j	|
�qKqKW|	r�d|dd}
|	t|�kr�|
d|	7}
nt|�dkr|
d|j
�df7}
nV|
dt|�7}
|rt|dkrU|
d|7}
qt|
d|dd|f7}
n|j	|
�n|j�}|r�|j	d|f�ndj|�S(Nslpq -Ps 2>&1Riiitbytesii����itRanks
no entriess: idlei��s is ready and printings%d Ki�is
 (%d jobs)s for %ss
 for %d userss (%s first)s (%d K before %s)slpq exit status %rs: (ii(
RRtFalsetsplittlentintRtgettstriptappendtkeystclosetjoin(RRtpipetlinestuserst
aheadbytest	aheadjobstuserseent
totalbytest	totaljobstlinetfieldstntranktusertjobtfilesRtujobstubyteststs((s,/usr/lib64/python2.7/Demo/scripts/lpwatch.pyR)sd
&
	






	t__main__(	RR	RR
RRRt__name__tKeyboardInterrupt(((s,/usr/lib64/python2.7/Demo/scripts/lpwatch.pyt<module>s		9
PK;.�ZB����find-uname.pyonu�[����
Afc@sWdZddlZddlZddlZd�ZedkrSeejd�ndS(s)
For each argument on the command line, look for it in the set of all Unicode
names.  Arguments are treated as case-insensitive regular expressions, e.g.:

    % find-uname 'small letter a$' 'horizontal line'
    *** small letter a$ matches ***
    LATIN SMALL LETTER A (97)
    COMBINING LATIN SMALL LETTER A (867)
    CYRILLIC SMALL LETTER A (1072)
    PARENTHESIZED LATIN SMALL LETTER A (9372)
    CIRCLED LATIN SMALL LETTER A (9424)
    FULLWIDTH LATIN SMALL LETTER A (65345)
    *** horizontal line matches ***
    HORIZONTAL LINE EXTENSION (9135)
i����Nc	Cs�g}xUttjd�D]@}y&|j|tjt|��f�Wqtk
rYqXqWx�|D]�}tj	|tj
�}g|D]-\}}|j|�dk	r�||f^q�}|redG|GdGdGHx|D]}d|GHq�WqeqeWdS(Nis***tmatchess%s (%d)(
trangetsyst
maxunicodetappendtunicodedatatnametunichrt
ValueErrortretcompiletItsearchtNone(	targst
unicode_namestixtargtpattxtyRtmatch((s//usr/lib64/python2.7/Demo/scripts/find-uname.pytmains&

'
t__main__i(t__doc__RRR	Rt__name__targv(((s//usr/lib64/python2.7/Demo/scripts/find-uname.pyt<module>s	PK;.�Z��LCC
unbirthday.pynuȯ��#! /usr/bin/python2.7

# Calculate your unbirthday count (see Alice in Wonderland).
# This is defined as the number of days from your birth until today
# that weren't your birthday.  (The day you were born is not counted).
# Leap years make it interesting.

import sys
import time
import calendar

def main():
    if sys.argv[1:]:
        year = int(sys.argv[1])
    else:
        year = int(raw_input('In which year were you born? '))
    if 0 <= year < 100:
        print "I'll assume that by", year,
        year = year + 1900
        print 'you mean', year, 'and not the early Christian era'
    elif not (1850 <= year <= time.localtime()[0]):
        print "It's hard to believe you were born in", year
        return

    if sys.argv[2:]:
        month = int(sys.argv[2])
    else:
        month = int(raw_input('And in which month? (1-12) '))
    if not (1 <= month <= 12):
        print 'There is no month numbered', month
        return

    if sys.argv[3:]:
        day = int(sys.argv[3])
    else:
        day = int(raw_input('And on what day of that month? (1-31) '))
    if month == 2 and calendar.isleap(year):
        maxday = 29
    else:
        maxday = calendar.mdays[month]
    if not (1 <= day <= maxday):
        print 'There are no', day, 'days in that month!'
        return

    bdaytuple = (year, month, day)
    bdaydate = mkdate(bdaytuple)
    print 'You were born on', format(bdaytuple)

    todaytuple = time.localtime()[:3]
    todaydate = mkdate(todaytuple)
    print 'Today is', format(todaytuple)

    if bdaytuple > todaytuple:
        print 'You are a time traveler.  Go back to the future!'
        return

    if bdaytuple == todaytuple:
        print 'You were born today.  Have a nice life!'
        return

    days = todaydate - bdaydate
    print 'You have lived', days, 'days'

    age = 0
    for y in range(year, todaytuple[0] + 1):
        if bdaytuple < (y, month, day) <= todaytuple:
            age = age + 1

    print 'You are', age, 'years old'

    if todaytuple[1:] == bdaytuple[1:]:
        print 'Congratulations!  Today is your', nth(age), 'birthday'
        print 'Yesterday was your',
    else:
        print 'Today is your',
    print nth(days - age), 'unbirthday'

def format((year, month, day)):
    return '%d %s %d' % (day, calendar.month_name[month], year)

def nth(n):
    if n == 1: return '1st'
    if n == 2: return '2nd'
    if n == 3: return '3rd'
    return '%dth' % n

def mkdate((year, month, day)):
    # January 1st, in 0 A.D. is arbitrarily defined to be day 1,
    # even though that day never actually existed and the calendar
    # was different then...
    days = year*365                  # years, roughly
    days = days + (year+3)//4        # plus leap years, roughly
    days = days - (year+99)//100     # minus non-leap years every century
    days = days + (year+399)//400    # plus leap years every 4 centirues
    for i in range(1, month):
        if i == 2 and calendar.isleap(year):
            days = days + 29
        else:
            days = days + calendar.mdays[i]
    days = days + day
    return days

if __name__ == "__main__":
    main()
PK;.�Z�V�B��
queens.pycnu�[����
Afc@sBdZdZddd��YZd�Zedkr>e�ndS(s�N queens problem.

The (well-known) problem is due to Niklaus Wirth.

This solution is inspired by Dijkstra (Structured Programming).  It is
a classic recursive backtracking approach.

itQueenscBsSeZed�Zd�Zdd�Zd�Zd�Zd�ZdZ	d�Z
RS(cCs||_|j�dS(N(tntreset(tselfR((s+/usr/lib64/python2.7/Demo/scripts/queens.pyt__init__s	cCsf|j}dg||_dg||_dgd|d|_dgd|d|_d|_dS(Niii(RtNonetytrowtuptdowntnfound(RR((s+/usr/lib64/python2.7/Demo/scripts/queens.pyRs	icCs�x}t|j�D]l}|j||�r|j||�|d|jkrX|j�n|j|d�|j||�qqWdS(Ni(trangeRtsafetplacetdisplaytsolvetremove(RtxR((s+/usr/lib64/python2.7/Demo/scripts/queens.pyRs
cCs0|j|o/|j||o/|j||S(N(RRR	(RRR((s+/usr/lib64/python2.7/Demo/scripts/queens.pyR&scCs@||j|<d|j|<d|j||<d|j||<dS(Ni(RRRR	(RRR((s+/usr/lib64/python2.7/Demo/scripts/queens.pyR
)s

cCs@d|j|<d|j|<d|j||<d|j||<dS(Ni(RRRRR	(RRR((s+/usr/lib64/python2.7/Demo/scripts/queens.pyR/s

cCs�|jd|_|jrdSdd|jdGHxbt|jddd�D]G}dGx5t|j�D]$}|j||kr�dGqedGqeWdGHqKWdd|jdGHdS(	Nis+-s--t+i����t|tQt.(R
tsilentRRR(RRR((s+/usr/lib64/python2.7/Demo/scripts/queens.pyR7s	 	(t__name__t
__module__tNRRRRR
RRR(((s+/usr/lib64/python2.7/Demo/scripts/queens.pyRs	
			cCs�ddl}d}t}|jdd!dgkrDd}|jd=n|jdrgt|jd�}nt|�}||_|j�dG|jGdGHdS(Ni����iiis-ntFounds
solutions.(tsysRtargvtintRRRR
(RRRtq((s+/usr/lib64/python2.7/Demo/scripts/queens.pytmainFs

	
t__main__N((t__doc__RRRR(((s+/usr/lib64/python2.7/Demo/scripts/queens.pyt<module>
s
8	PK;.�Z�zv��READMEnu�[���This directory contains a collection of executable Python scripts.

See also the Tools/scripts directory!

beer.py			Print the classic 'bottles of beer' list
eqfix.py		Fix .py files to use the correct equality test operator
fact.py			Factorize numbers
find-uname.py		Search for Unicode characters using regexps
from.py			Summarize mailbox
lpwatch.py		Watch BSD line printer queues
makedir.py		Like mkdir -p
markov.py		Markov chain simulation of words or characters
mboxconvert.py		Convert MH or MMDF mailboxes to unix mailbox format
morse.py		Produce morse code (audible or on AIFF file)
newslist.py		List all newsgroups on a NNTP server as HTML pages
pi.py			Print all digits of pi -- given enough time and memory
pp.py			Emulate some Perl command line options
primes.py		Print prime numbers
queens.py		Dijkstra's solution to Wirth's "N Queens problem"
script.py		Equivalent to BSD script(1) -- by Steen Lumholt
unbirthday.py		Print unbirthday count
update.py		Update a bunch of files according to a script.
PK;.�ZcA-D��
script.pycnu�[����
Afc@s�ddlZddlZddlZddlZddlZd�ZdZdZdZej	j
d�ryej	dZny#ejejdd�\ZZ
Wn9ejk
r�Zd	ejd
efGHejd�nXx>eD]6\ZZedkrd
Zq�edkr�dZq�q�Weee�Zejjde�ejdejej���ejee�ejdejej���ejjde�dS(i����NcCs#tj|d�}tj|�|S(Ni(tostreadtscripttwrite(tfdtdata((s+/usr/lib64/python2.7/Demo/scripts/script.pyR
s
tsht
typescripttwtSHELLitaps%s: %siis-atas-ptpythonsScript started, file is %s
sScript started on %s
sScript done on %s
sScript done, file is %s
(RttimetsystgetopttptyRtshelltfilenametmodetenvironthas_keytargvtoptstargsterrortmsgtexittoRtopenRtstdoutRtctimetspawn(((s+/usr/lib64/python2.7/Demo/scripts/script.pyt<module>
s.0	#	
  PK;.�Z�����from.pycnu�[����
Afc@sddlZddlZyejdZWn4eefk
r_ejjd�ejd�nXye	e�Z
Wn"ek
r�ejde�nXx�e
j�Z
e
s�Pne
jd�r�e
d GxJe
j�Z
e
s�e
dkr�Pne
jd�r�ee
d	d!�Gq�q�WHq�q�WdS(
i����NtMAILsNo environment variable $MAIL
isCannot open mailbox file: sFrom s
s	Subject: i	(tsystostenvirontmailboxtAttributeErrortKeyErrortstderrtwritetexittopentmailtIOErrortreadlinetlinet
startswithtrepr(((s)/usr/lib64/python2.7/Demo/scripts/from.pyt<module>s,
PK;.�ZXi���	queens.pynuȯ��#! /usr/bin/python2.7

"""N queens problem.

The (well-known) problem is due to Niklaus Wirth.

This solution is inspired by Dijkstra (Structured Programming).  It is
a classic recursive backtracking approach.

"""

N = 8                                   # Default; command line overrides

class Queens:

    def __init__(self, n=N):
        self.n = n
        self.reset()

    def reset(self):
        n = self.n
        self.y = [None] * n             # Where is the queen in column x
        self.row = [0] * n              # Is row[y] safe?
        self.up = [0] * (2*n-1)         # Is upward diagonal[x-y] safe?
        self.down = [0] * (2*n-1)       # Is downward diagonal[x+y] safe?
        self.nfound = 0                 # Instrumentation

    def solve(self, x=0):               # Recursive solver
        for y in range(self.n):
            if self.safe(x, y):
                self.place(x, y)
                if x+1 == self.n:
                    self.display()
                else:
                    self.solve(x+1)
                self.remove(x, y)

    def safe(self, x, y):
        return not self.row[y] and not self.up[x-y] and not self.down[x+y]

    def place(self, x, y):
        self.y[x] = y
        self.row[y] = 1
        self.up[x-y] = 1
        self.down[x+y] = 1

    def remove(self, x, y):
        self.y[x] = None
        self.row[y] = 0
        self.up[x-y] = 0
        self.down[x+y] = 0

    silent = 0                          # If true, count solutions only

    def display(self):
        self.nfound = self.nfound + 1
        if self.silent:
            return
        print '+-' + '--'*self.n + '+'
        for y in range(self.n-1, -1, -1):
            print '|',
            for x in range(self.n):
                if self.y[x] == y:
                    print "Q",
                else:
                    print ".",
            print '|'
        print '+-' + '--'*self.n + '+'

def main():
    import sys
    silent = 0
    n = N
    if sys.argv[1:2] == ['-n']:
        silent = 1
        del sys.argv[1]
    if sys.argv[1:]:
        n = int(sys.argv[1])
    q = Queens(n)
    q.silent = silent
    q.solve()
    print "Found", q.nfound, "solutions."

if __name__ == "__main__":
    main()
PK;.�Zh�q��
�

update.pycnu�[����
Afc@soddlZddlZddlZdZeje�Zddd��YZd�Zedkrke�ndS(i����Ns^([^: 	
]+):([1-9][0-9]*):tFileObjcBs#eZd�Zd�Zd�ZRS(cCsk||_d|_yt|d�j�|_Wn*tk
rZ}d|G|GHd|_dSXdG|jGHdS(Nitrs*** Can't open "%s":tdiffing(tfilenametchangedtopent	readlinestlinestIOErrortNone(tselfRtmsg((s+/usr/lib64/python2.7/Demo/scripts/update.pyt__init__s		
	cCs�|jsdG|jGHdSy0tj|j|jd�t|jd�}Wn-tjtfk
rx}d|jG|GHdSXdG|jGHx|jD]}|j|�q�W|j	�d|_dS(Ns
no changes tot~tws*** Can't rewrite "%s":twritingi(
RRtostrenameRterrorRRtwritetclose(R
tfpRtline((s+/usr/lib64/python2.7/Demo/scripts/update.pytfinishs	
cCs�|jdkr'd|j||fGdSt|�d}d|koWt|j�knstd|j||fGdS|j||kr�d|j||fGdS|js�d|_nd||fGHdG|j|GdGH||j|<d	G|j|GdS(
Ns(not processed): %s:%s:%siis&*** Line number out of range: %s:%s:%ss(no change): %s:%s:%ss%sc%st<s---t>(RR	RtevaltlenR(R
tlinenotrestti((s+/usr/lib64/python2.7/Demo/scripts/update.pytprocess,s(%	
(t__name__t
__module__RRR(((s+/usr/lib64/python2.7/Demo/scripts/update.pyRs		cCs1tjdrayttjdd�}Wqjtk
r]}dtjdG|GHtjd�qjXn	tj}d}x�|j�}|s�|r�|j�nPnt	j
|�}|dkr�dG|Gqsnt	jdd�\}}|s�||jkr|r|j�nt
|�}n|j|||�qsWdS(NiRsCan't open "%s":isFunny line:i(tsystargvRRtexittstdinR	treadlineRtprogtmatchtgroupRRR(RRtcurfileRtnRR((s+/usr/lib64/python2.7/Demo/scripts/update.pytmainBs0
	

t__main__((	RR"tretpattcompileR'RR,R (((s+/usr/lib64/python2.7/Demo/scripts/update.pyt<module>	s2	PK;.�Zټ�gllfact.pynuȯ��#! /usr/bin/python2.7

# Factorize numbers.
# The algorithm is not efficient, but easy to understand.
# If there are large factors, it will take forever to find them,
# because we try all odd numbers between 3 and sqrt(n)...

import sys
from math import sqrt

def fact(n):
    if n < 1:
        raise ValueError('fact() argument should be >= 1')
    if n == 1:
        return []  # special case
    res = []
    # Treat even factors special, so we can use i += 2 later
    while n % 2 == 0:
        res.append(2)
        n //= 2
    # Try odd numbers up to sqrt(n)
    limit = sqrt(n+1)
    i = 3
    while i <= limit:
        if n % i == 0:
            res.append(i)
            n //= i
            limit = sqrt(n+1)
        else:
            i += 2
    if n != 1:
        res.append(n)
    return res

def main():
    if len(sys.argv) > 1:
        source = sys.argv[1:]
    else:
        source = iter(raw_input, '')
    for arg in source:
        try:
            n = int(arg)
        except ValueError:
            print arg, 'is not an integer'
        else:
            print n, fact(n)

if __name__ == "__main__":
    main()
PK;.�Z����eqfix.pynuȯ��#! /usr/bin/python2.7

# Fix Python source files to use the new equality test operator, i.e.,
#       if x = y: ...
# is changed to
#       if x == y: ...
# The script correctly tokenizes the Python program to reliably
# distinguish between assignments and equality tests.
#
# Command line arguments are files or directories to be processed.
# Directories are searched recursively for files whose name looks
# like a python module.
# Symbolic links are always ignored (except as explicit directory
# arguments).  Of course, the original file is kept as a back-up
# (with a "~" attached to its name).
# It complains about binaries (files containing null bytes)
# and about files that are ostensibly not Python files: if the first
# line starts with '#!' and does not contain the string 'python'.
#
# Changes made are reported to stdout in a diff-like format.
#
# Undoubtedly you can do this using find and sed or perl, but this is
# a nice example of Python code that recurses down a directory tree
# and uses regular expressions.  Also note several subtleties like
# preserving the file's mode and avoiding to even write a temp file
# when no changes are needed for a file.
#
# NB: by changing only the function fixline() you can turn this
# into a program for a different change to Python programs...

import sys
import re
import os
from stat import *
import string

err = sys.stderr.write
dbg = err
rep = sys.stdout.write

def main():
    bad = 0
    if not sys.argv[1:]: # No arguments
        err('usage: ' + sys.argv[0] + ' file-or-directory ...\n')
        sys.exit(2)
    for arg in sys.argv[1:]:
        if os.path.isdir(arg):
            if recursedown(arg): bad = 1
        elif os.path.islink(arg):
            err(arg + ': will not process symbolic links\n')
            bad = 1
        else:
            if fix(arg): bad = 1
    sys.exit(bad)

ispythonprog = re.compile('^[a-zA-Z0-9_]+\.py$')
def ispython(name):
    return ispythonprog.match(name) >= 0

def recursedown(dirname):
    dbg('recursedown(%r)\n' % (dirname,))
    bad = 0
    try:
        names = os.listdir(dirname)
    except os.error, msg:
        err('%s: cannot list directory: %r\n' % (dirname, msg))
        return 1
    names.sort()
    subdirs = []
    for name in names:
        if name in (os.curdir, os.pardir): continue
        fullname = os.path.join(dirname, name)
        if os.path.islink(fullname): pass
        elif os.path.isdir(fullname):
            subdirs.append(fullname)
        elif ispython(name):
            if fix(fullname): bad = 1
    for fullname in subdirs:
        if recursedown(fullname): bad = 1
    return bad

def fix(filename):
##      dbg('fix(%r)\n' % (dirname,))
    try:
        f = open(filename, 'r')
    except IOError, msg:
        err('%s: cannot open: %r\n' % (filename, msg))
        return 1
    head, tail = os.path.split(filename)
    tempname = os.path.join(head, '@' + tail)
    g = None
    # If we find a match, we rewind the file and start over but
    # now copy everything to a temp file.
    lineno = 0
    while 1:
        line = f.readline()
        if not line: break
        lineno = lineno + 1
        if g is None and '\0' in line:
            # Check for binary files
            err(filename + ': contains null bytes; not fixed\n')
            f.close()
            return 1
        if lineno == 1 and g is None and line[:2] == '#!':
            # Check for non-Python scripts
            words = string.split(line[2:])
            if words and re.search('[pP]ython', words[0]) < 0:
                msg = filename + ': ' + words[0]
                msg = msg + ' script; not fixed\n'
                err(msg)
                f.close()
                return 1
        while line[-2:] == '\\\n':
            nextline = f.readline()
            if not nextline: break
            line = line + nextline
            lineno = lineno + 1
        newline = fixline(line)
        if newline != line:
            if g is None:
                try:
                    g = open(tempname, 'w')
                except IOError, msg:
                    f.close()
                    err('%s: cannot create: %r\n' % (tempname, msg))
                    return 1
                f.seek(0)
                lineno = 0
                rep(filename + ':\n')
                continue # restart from the beginning
            rep(repr(lineno) + '\n')
            rep('< ' + line)
            rep('> ' + newline)
        if g is not None:
            g.write(newline)

    # End of file
    f.close()
    if not g: return 0 # No changes

    # Finishing touch -- move files

    # First copy the file's mode to the temp file
    try:
        statbuf = os.stat(filename)
        os.chmod(tempname, statbuf[ST_MODE] & 07777)
    except os.error, msg:
        err('%s: warning: chmod failed (%r)\n' % (tempname, msg))
    # Then make a backup of the original file as filename~
    try:
        os.rename(filename, filename + '~')
    except os.error, msg:
        err('%s: warning: backup failed (%r)\n' % (filename, msg))
    # Now move the temp file to the original file
    try:
        os.rename(tempname, filename)
    except os.error, msg:
        err('%s: rename failed (%r)\n' % (filename, msg))
        return 1
    # Return succes
    return 0


from tokenize import tokenprog

match = {'if':':', 'elif':':', 'while':':', 'return':'\n', \
         '(':')', '[':']', '{':'}', '`':'`'}

def fixline(line):
    # Quick check for easy case
    if '=' not in line: return line

    i, n = 0, len(line)
    stack = []
    while i < n:
        j = tokenprog.match(line, i)
        if j < 0:
            # A bad token; forget about the rest of this line
            print '(Syntax error:)'
            print line,
            return line
        a, b = tokenprog.regs[3] # Location of the token proper
        token = line[a:b]
        i = i+j
        if stack and token == stack[-1]:
            del stack[-1]
        elif match.has_key(token):
            stack.append(match[token])
        elif token == '=' and stack:
            line = line[:a] + '==' + line[b:]
            i, n = a + len('=='), len(line)
        elif token == '==' and not stack:
            print '(Warning: \'==\' at top level:)'
            print line,
    return line

if __name__ == "__main__":
    main()
PK;.�ZB����find-uname.pycnu�[����
Afc@sWdZddlZddlZddlZd�ZedkrSeejd�ndS(s)
For each argument on the command line, look for it in the set of all Unicode
names.  Arguments are treated as case-insensitive regular expressions, e.g.:

    % find-uname 'small letter a$' 'horizontal line'
    *** small letter a$ matches ***
    LATIN SMALL LETTER A (97)
    COMBINING LATIN SMALL LETTER A (867)
    CYRILLIC SMALL LETTER A (1072)
    PARENTHESIZED LATIN SMALL LETTER A (9372)
    CIRCLED LATIN SMALL LETTER A (9424)
    FULLWIDTH LATIN SMALL LETTER A (65345)
    *** horizontal line matches ***
    HORIZONTAL LINE EXTENSION (9135)
i����Nc	Cs�g}xUttjd�D]@}y&|j|tjt|��f�Wqtk
rYqXqWx�|D]�}tj	|tj
�}g|D]-\}}|j|�dk	r�||f^q�}|redG|GdGdGHx|D]}d|GHq�WqeqeWdS(Nis***tmatchess%s (%d)(
trangetsyst
maxunicodetappendtunicodedatatnametunichrt
ValueErrortretcompiletItsearchtNone(	targst
unicode_namestixtargtpattxtyRtmatch((s//usr/lib64/python2.7/Demo/scripts/find-uname.pytmains&

'
t__main__i(t__doc__RRR	Rt__name__targv(((s//usr/lib64/python2.7/Demo/scripts/find-uname.pyt<module>s	PK;.�Z��1:ttmboxconvert.pynuȯ��#! /usr/bin/python2.7

# Convert  MH directories (1 message per file) or MMDF mailboxes (4x^A
# delimited) to unix mailbox (From ... delimited) on stdout.
# If -f is given, files contain one message per file (e.g. MH messages)

import rfc822
import sys
import time
import os
import stat
import getopt
import re

def main():
    dofile = mmdf
    try:
        opts, args = getopt.getopt(sys.argv[1:], 'f')
    except getopt.error, msg:
        sys.stderr.write('%s\n' % msg)
        sys.exit(2)
    for o, a in opts:
        if o == '-f':
            dofile = message
    if not args:
        args = ['-']
    sts = 0
    for arg in args:
        if arg == '-' or arg == '':
            sts = dofile(sys.stdin) or sts
        elif os.path.isdir(arg):
            sts = mh(arg) or sts
        elif os.path.isfile(arg):
            try:
                f = open(arg)
            except IOError, msg:
                sys.stderr.write('%s: %s\n' % (arg, msg))
                sts = 1
                continue
            sts = dofile(f) or sts
            f.close()
        else:
            sys.stderr.write('%s: not found\n' % arg)
            sts = 1
    if sts:
        sys.exit(sts)

numeric = re.compile('[1-9][0-9]*')

def mh(dir):
    sts = 0
    msgs = os.listdir(dir)
    for msg in msgs:
        if numeric.match(msg) != len(msg):
            continue
        fn = os.path.join(dir, msg)
        try:
            f = open(fn)
        except IOError, msg:
            sys.stderr.write('%s: %s\n' % (fn, msg))
            sts = 1
            continue
        sts = message(f) or sts
    return sts

def mmdf(f):
    sts = 0
    while 1:
        line = f.readline()
        if not line:
            break
        if line == '\1\1\1\1\n':
            sts = message(f, line) or sts
        else:
            sys.stderr.write(
                    'Bad line in MMFD mailbox: %r\n' % (line,))
    return sts

counter = 0 # for generating unique Message-ID headers

def message(f, delimiter = ''):
    sts = 0
    # Parse RFC822 header
    m = rfc822.Message(f)
    # Write unix header line
    fullname, email = m.getaddr('From')
    tt = m.getdate('Date')
    if tt:
        t = time.mktime(tt)
    else:
        sys.stderr.write(
                'Unparseable date: %r\n' % (m.getheader('Date'),))
        t = os.fstat(f.fileno())[stat.ST_MTIME]
    print 'From', email, time.ctime(t)
    # Copy RFC822 header
    for line in m.headers:
        print line,
    # Invent Message-ID header if none is present
    if not m.has_key('message-id'):
        global counter
        counter = counter + 1
        msgid = "<%s.%d>" % (hex(t), counter)
        sys.stderr.write("Adding Message-ID %s (From %s)\n" %
                         (msgid, email))
        print "Message-ID:", msgid
    print
    # Copy body
    while 1:
        line = f.readline()
        if line == delimiter:
            break
        if not line:
            sys.stderr.write('Unexpected EOF in message\n')
            sts = 1
            break
        if line[:5] == 'From ':
            line = '>' + line
        print line,
    # Print trailing newline
    print
    return sts

if __name__ == "__main__":
    main()
PK;.�ZGx�#��makedir.pycnu�[����
Afc@sDddlZddlZd�Zd�Zedkr@e�ndS(i����NcCs&xtjdD]}t|�qWdS(Ni(tsystargvtmakedirs(tp((s,/usr/lib64/python2.7/Demo/scripts/makedir.pytmain
scCsR|rNtjj|�rNtjj|�\}}t|�tj|d�ndS(Ni�(tostpathtisdirtsplitRtmkdir(Rtheadttail((s,/usr/lib64/python2.7/Demo/scripts/makedir.pyRs
t__main__(RRRRt__name__(((s,/usr/lib64/python2.7/Demo/scripts/makedir.pyt<module>s		PK;.�ZGx�#��makedir.pyonu�[����
Afc@sDddlZddlZd�Zd�Zedkr@e�ndS(i����NcCs&xtjdD]}t|�qWdS(Ni(tsystargvtmakedirs(tp((s,/usr/lib64/python2.7/Demo/scripts/makedir.pytmain
scCsR|rNtjj|�rNtjj|�\}}t|�tj|d�ndS(Ni�(tostpathtisdirtsplitRtmkdir(Rtheadttail((s,/usr/lib64/python2.7/Demo/scripts/makedir.pyRs
t__main__(RRRRt__name__(((s,/usr/lib64/python2.7/Demo/scripts/makedir.pyt<module>s		PK;.�Z@�I�wwpi.pynuȯ��#! /usr/bin/python2.7

# Print digits of pi forever.
#
# The algorithm, using Python's 'long' integers ("bignums"), works
# with continued fractions, and was conceived by Lambert Meertens.
#
# See also the ABC Programmer's Handbook, by Geurts, Meertens & Pemberton,
# published by Prentice-Hall (UK) Ltd., 1990.

import sys

def main():
    k, a, b, a1, b1 = 2, 4, 1, 12, 4
    while True:
        # Next approximation
        p, q, k = k*k, 2*k+1, k+1
        a, b, a1, b1 = a1, b1, p*a+q*a1, p*b+q*b1
        # Print common digits
        d, d1 = a//b, a1//b1
        while d == d1:
            output(d)
            a, a1 = 10*(a%b), 10*(a1%b1)
            d, d1 = a//b, a1//b1

def output(d):
    # Use write() to avoid spaces between the digits
    sys.stdout.write(str(d))
    # Flush so the output is seen immediately
    sys.stdout.flush()

if __name__ == "__main__":
    main()
PK;.�Z0y�ܺ�unbirthday.pyonu�[����
Afc@sbddlZddlZddlZd�Zd�Zd�Zd�Zedkr^e�ndS(i����NcCs�tjdr#ttjd�}nttd��}d|koLdknrsdG|G|d}dG|GdGHn3d	|ko�tj�dkns�d
G|GHdStjdr�ttjd�}nttd��}d|ko�d
knsdG|GHdStjdr'ttjd�}nttd��}|dkr]tj|�r]d}n
tj|}d|ko�|kns�dG|GdGHdS|||f}t	|�}dGt
|�GHtj�d }t	|�}dGt
|�GH||krdGHdS||krdGHdS||}dG|GdGHd}	xQt||dd�D]8}
||
||fkoq|knrK|	d}	qKqKWdG|	GdGH|d|dkr�dGt|	�GdGHdGndGt||	�Gd GHdS(!NisIn which year were you born? iidsI'll assume that byilsyou meansand not the early Christian erai:s%It's hard to believe you were born inisAnd in which month? (1-12) isThere is no month numberedis&And on what day of that month? (1-31) isThere are nosdays in that month!sYou were born onsToday iss0You are a time traveler.  Go back to the future!s'You were born today.  Have a nice life!sYou have livedtdayssYou ares	years oldsCongratulations!  Today is yourtbirthdaysYesterday was yours
Today is yourt
unbirthday(
tsystargvtintt	raw_inputttimet	localtimetcalendartisleaptmdaystmkdatetformattrangetnth(tyeartmonthtdaytmaxdayt	bdaytupletbdaydatet
todaytuplet	todaydateRtagety((s//usr/lib64/python2.7/Demo/scripts/unbirthday.pytmainsb

&	
	
	



%
cCs'|\}}}d|tj||fS(Ns%d %s %d(R	t
month_name(t.0RRR((s//usr/lib64/python2.7/Demo/scripts/unbirthday.pyR
NscCs8|dkrdS|dkr dS|dkr0dSd|S(Nit1stit2ndit3rds%dth((tn((s//usr/lib64/python2.7/Demo/scripts/unbirthday.pyRQscCs�|\}}}|d}||dd}||dd}||dd}xPtd|�D]?}|d	kr�tj|�r�|d
}q_|tj|}q_W||}|S(Nimiiicidi�i�iii(RR	R
R(RRRRRti((s//usr/lib64/python2.7/Demo/scripts/unbirthday.pyRWs


t__main__(RRR	RR
RRt__name__(((s//usr/lib64/python2.7/Demo/scripts/unbirthday.pyt<module>s	B			PK;.�Z�`(��fact.pycnu�[����
Afc@sHddlZddlmZd�Zd�ZedkrDe�ndS(i����N(tsqrtcCs�|dkrtd��n|dkr+gSg}x+|ddkr^|jd�|d}q4Wt|d�}d}xT||kr�||dkr�|j|�||}t|d�}qx|d7}qxW|dkr�|j|�n|S(Nisfact() argument should be >= 1iii(t
ValueErrortappendR(tntrestlimitti((s)/usr/lib64/python2.7/Demo/scripts/fact.pytfacts&


cCs�ttj�dkr%tjd}nttd�}xJ|D]B}yt|�}Wntk
rm|GdGHq;X|Gt|�GHq;WdS(Nitsis not an integer(tlentsystargvtitert	raw_inputtintRR(tsourcetargR((s)/usr/lib64/python2.7/Demo/scripts/fact.pytmain#s


t__main__(R
tmathRRRt__name__(((s)/usr/lib64/python2.7/Demo/scripts/fact.pyt<module>s
		
PK;.�ZR~����pi.pycnu�[����
Afc@s8ddlZd�Zd�Zedkr4e�ndS(i����Nc	Cs�d\}}}}}x�tr�||d|d|d}}}||||||||||f\}}}}||||}}xL||kr�t|�d||d||}}||||}}q�WqWdS(Niiiii
(iiiii(tTruetoutput(	tktatbta1tb1tptqtdtd1((s'/usr/lib64/python2.7/Demo/scripts/pi.pytmain
s	$6
cCs'tjjt|��tjj�dS(N(tsyststdouttwritetstrtflush(R	((s'/usr/lib64/python2.7/Demo/scripts/pi.pyRst__main__(RRRt__name__(((s'/usr/lib64/python2.7/Demo/scripts/pi.pyt<module>s	
	PK;.�Z0y�ܺ�unbirthday.pycnu�[����
Afc@sbddlZddlZddlZd�Zd�Zd�Zd�Zedkr^e�ndS(i����NcCs�tjdr#ttjd�}nttd��}d|koLdknrsdG|G|d}dG|GdGHn3d	|ko�tj�dkns�d
G|GHdStjdr�ttjd�}nttd��}d|ko�d
knsdG|GHdStjdr'ttjd�}nttd��}|dkr]tj|�r]d}n
tj|}d|ko�|kns�dG|GdGHdS|||f}t	|�}dGt
|�GHtj�d }t	|�}dGt
|�GH||krdGHdS||krdGHdS||}dG|GdGHd}	xQt||dd�D]8}
||
||fkoq|knrK|	d}	qKqKWdG|	GdGH|d|dkr�dGt|	�GdGHdGndGt||	�Gd GHdS(!NisIn which year were you born? iidsI'll assume that byilsyou meansand not the early Christian erai:s%It's hard to believe you were born inisAnd in which month? (1-12) isThere is no month numberedis&And on what day of that month? (1-31) isThere are nosdays in that month!sYou were born onsToday iss0You are a time traveler.  Go back to the future!s'You were born today.  Have a nice life!sYou have livedtdayssYou ares	years oldsCongratulations!  Today is yourtbirthdaysYesterday was yours
Today is yourt
unbirthday(
tsystargvtintt	raw_inputttimet	localtimetcalendartisleaptmdaystmkdatetformattrangetnth(tyeartmonthtdaytmaxdayt	bdaytupletbdaydatet
todaytuplet	todaydateRtagety((s//usr/lib64/python2.7/Demo/scripts/unbirthday.pytmainsb

&	
	
	



%
cCs'|\}}}d|tj||fS(Ns%d %s %d(R	t
month_name(t.0RRR((s//usr/lib64/python2.7/Demo/scripts/unbirthday.pyR
NscCs8|dkrdS|dkr dS|dkr0dSd|S(Nit1stit2ndit3rds%dth((tn((s//usr/lib64/python2.7/Demo/scripts/unbirthday.pyRQscCs�|\}}}|d}||dd}||dd}||dd}xPtd|�D]?}|d	kr�tj|�r�|d
}q_|tj|}q_W||}|S(Nimiiicidi�i�iii(RR	R
R(RRRRRti((s//usr/lib64/python2.7/Demo/scripts/unbirthday.pyRWs


t__main__(RRR	RR
RRt__name__(((s//usr/lib64/python2.7/Demo/scripts/unbirthday.pyt<module>s	B			PK;.�Za�POO	morse.pyonu�[����
Afc@s�ddlZddlZddlZdZdeZdZiJdd6dd6dd	6dd
6dd6dd
6dd6dd6dd6dd6dd6dd6dd6dd6dd6dd6dd6dd6d d!6d d"6d#d$6d#d%6d&d'6d&d(6d)d*6d)d+6d,d-6d,d.6d/d06d/d16d2d36d2d46d5d66d5d76d8d96d8d:6d;d<6d;d=6d>d?6d>d@6dAdB6dAdC6dDdE6dDdF6dGdH6dGdI6dJdK6dJdL6dMdN6dMdO6dPdQ6dPdR6dSdT6dUdV6dWdX6dYd6dZd[6d\d]6d^d_6d`da6dbdc6ddde6dfdg6dhdi6djdk6dld>6dmdn6dodp6dqdr6dsdt6dudv6dsdw6dxdx6dydz6Zd{d|Zd}�Zee�Z	d~�Z
d�Zd��Zd��Z
d��Zed�kr�e
�ndS(�i����Niiis.-tAtas-...tBtbs-.-.tCtcs-..tDtdt.tEtes..-.tFtfs--.tGtgs....tHths..tItis.---tJtjs-.-tKtks.-..tLtls--tMtms-.tNtns---tOtos.--.tPtps--.-tQtqs.-.tRtrs...tStst-tTtts..-tUtus...-tVtvs.--tWtws-..-tXtxs-.--tYtys--..tZtzs-----t0s--..--t,s.----t1s.-.-.-s..---t2s..--..t?s...--t3s-.-.-.t;s....-t4s---...t:s.....t5s.----.t's-....t6s-....-s--...t7s-..-.t/s---..t8s-.--.-t(s----.t9t)t s..--.-t_si�cCsod}xbtd�D]T}ttjtj||d�d�}|t|d?d@�t|d@�7}qW|S(NtidgI@i0uii�(trangetinttmathtsintpitchr(toctavetsinewaveRtval((s*/usr/lib64/python2.7/Demo/scripts/morse.pytmkwave<s
(*cCs�ddl}y#|jtjdd�\}}Wn@|jk
rqtjjdtjdd�tjd�nXd}t}x�|D]�\}}|dkr�ddl	}|j
|d�}|jd	�|jd
�|j
d�n|dkr�tt|��}q�q�W|sjddl}|j�}|jd	�|jd
�|j
d�|j|_|j|_n|r�dj|�g}	nttjjd
�}	xF|	D]>}
t|
�}t|||�t|d�r�|j�q�q�W|j�dS(Ni����iso:p:sUsage is, [ -o outfile ] [ -p octave ] [ words ] ...
s-oR/iD�is-pRHRJtwait(tgetopttsystargvterrortstderrtwritetexittNonetdefaultwavetaifctopentsetframeratetsetsampwidthtsetnchannelsRTRLtaudiodevtAudioDevt
setoutratetstoptclosetwriteframestwriteframesrawtjointitertstdintreadlinetmorsetplaythasattrRU(RVtoptstargstdevtwaveRRR_Rdtsourcetlinetmline((s*/usr/lib64/python2.7/Demo/scripts/morse.pytmainEsF#





cCsEd}x8|D]0}y|t|d7}Wq
tk
r<q
Xq
W|S(NRJs(tmorsetabtKeyError(RwtresR((s*/usr/lib64/python2.7/Demo/scripts/morse.pyRoms

cCsqxj|D]b}|dkr,t|t|�n0|dkrKt|t|�nt|tt�t|t�qWdS(NRR'(tsinetDOTtDAHtpause(RwRtRuR((s*/usr/lib64/python2.7/Demo/scripts/morse.pyRpws
cCs(x!t|�D]}|j|�q
WdS(N(RKRj(RttlengthRuR((s*/usr/lib64/python2.7/Demo/scripts/morse.pyR}�scCs(x!t|�D]}|jt�q
WdS(N(RKRjtnowave(RtR�R((s*/usr/lib64/python2.7/Demo/scripts/morse.pyR��st__main__(RWRMRdR~RtOCTAVERzR�RTR^RyRoRpR}R�t__name__(((s*/usr/lib64/python2.7/Demo/scripts/morse.pyt<module>sf$

		(	
	
		PK;.�Z��G���mboxconvert.pycnu�[����
Afc@s�ddlZddlZddlZddlZddlZddlZddlZd�Zejd�Z	d�Z
d�Zdadd�Z
ed	kr�e�ndS(
i����Nc	Cs�t}y#tjtjdd�\}}Wn7tjk
rb}tjjd|�tjd�nXx)|D]!\}}|dkrjt}qjqjW|s�dg}nd}x�|D]�}|dks�|dkr�|tj	�p�|}q�t
jj|�rt
|�p|}q�t
jj|�r�yt|�}Wn6tk
re}tjjd	||f�d}q�nX||�pu|}|j�q�tjjd
|�d}q�W|r�tj|�ndS(Nitfs%s
is-ft-its%s: %s
s%s: not found
(tmmdftgetopttsystargvterrortstderrtwritetexittmessagetstdintostpathtisdirtmhtisfiletopentIOErrortclose(	tdofiletoptstargstmsgtotatststargR((s0/usr/lib64/python2.7/Demo/scripts/mboxconvert.pytmains<#



s[1-9][0-9]*cCs�d}tj|�}x�|D]�}tj|�t|�krCqntjj||�}yt|�}Wn6tk
r�}t	j
jd||f�d}qnXt|�p�|}qW|S(Nis%s: %s
i(
R
tlistdirtnumerictmatchtlenRtjoinRRRRR	R(tdirRtmsgsRtfnR((s0/usr/lib64/python2.7/Demo/scripts/mboxconvert.pyR2s
cCsbd}xU|j�}|sPn|dkrCt||�p=|}q	tjjd|f�q	W|S(Nis
sBad line in MMFD mailbox: %r
(treadlineRRRR	(RRtline((s0/usr/lib64/python2.7/Demo/scripts/mboxconvert.pyRBs	iRc
Cszd}tj|�}|jd�\}}|jd�}|rQtj|�}n<tjjd|j	d�f�t
j|j��t
j}dG|Gtj|�GHx|jD]
}|Gq�W|jd�stdadt|�tf}	tjjd|	|f�d	G|	GHnHxa|j�}||kr0Pn|sPtjjd
�d}Pn|d dkrmd
|}n|GqWH|S(NitFromtDatesUnparseable date: %r
s
message-idis<%s.%d>sAdding Message-ID %s (From %s)
sMessage-ID:sUnexpected EOF in message
isFrom t>(trfc822tMessagetgetaddrtgetdatettimetmktimeRRR	t	getheaderR
tfstattfilenotstattST_MTIMEtctimetheadersthas_keytcounterthexR&(
Rt	delimiterRtmtfullnametemailtttttR'tmsgid((s0/usr/lib64/python2.7/Demo/scripts/mboxconvert.pyRQs@	

t__main__(R+RR/R
R4RtreRtcompileRRRR9Rt__name__(((s0/usr/lib64/python2.7/Demo/scripts/mboxconvert.pyt<module>s	!		
*PK;.�Z]">��
find-uname.pynuȯ��#! /usr/bin/python2.7

"""
For each argument on the command line, look for it in the set of all Unicode
names.  Arguments are treated as case-insensitive regular expressions, e.g.:

    % find-uname 'small letter a$' 'horizontal line'
    *** small letter a$ matches ***
    LATIN SMALL LETTER A (97)
    COMBINING LATIN SMALL LETTER A (867)
    CYRILLIC SMALL LETTER A (1072)
    PARENTHESIZED LATIN SMALL LETTER A (9372)
    CIRCLED LATIN SMALL LETTER A (9424)
    FULLWIDTH LATIN SMALL LETTER A (65345)
    *** horizontal line matches ***
    HORIZONTAL LINE EXTENSION (9135)
"""

import unicodedata
import sys
import re

def main(args):
    unicode_names = []
    for ix in range(sys.maxunicode+1):
        try:
            unicode_names.append((ix, unicodedata.name(unichr(ix))))
        except ValueError: # no name for the character
            pass
    for arg in args:
        pat = re.compile(arg, re.I)
        matches = [(y,x) for (x,y) in unicode_names
                   if pat.search(y) is not None]
        if matches:
            print "***", arg, "matches", "***"
            for match in matches:
                print "%s (%d)" % match

if __name__ == "__main__":
    main(sys.argv[1:])
PK;.�Zu�=iifrom.pynuȯ��#! /usr/bin/python2.7

# Print From and Subject of messages in $MAIL.
# Extension to multiple mailboxes and other bells & whistles are left
# as exercises for the reader.

import sys, os

# Open mailbox file.  Exits with exception when this fails.

try:
    mailbox = os.environ['MAIL']
except (AttributeError, KeyError):
    sys.stderr.write('No environment variable $MAIL\n')
    sys.exit(2)

try:
    mail = open(mailbox)
except IOError:
    sys.exit('Cannot open mailbox file: ' + mailbox)

while 1:
    line = mail.readline()
    if not line:
        break # EOF
    if line.startswith('From '):
        # Start of message found
        print line[:-1],
        while 1:
            line = mail.readline()
            if not line or line == '\n':
                break
            if line.startswith('Subject: '):
                print repr(line[9:-1]),
        print
PK;.�Z�`(��fact.pyonu�[����
Afc@sHddlZddlmZd�Zd�ZedkrDe�ndS(i����N(tsqrtcCs�|dkrtd��n|dkr+gSg}x+|ddkr^|jd�|d}q4Wt|d�}d}xT||kr�||dkr�|j|�||}t|d�}qx|d7}qxW|dkr�|j|�n|S(Nisfact() argument should be >= 1iii(t
ValueErrortappendR(tntrestlimitti((s)/usr/lib64/python2.7/Demo/scripts/fact.pytfacts&


cCs�ttj�dkr%tjd}nttd�}xJ|D]B}yt|�}Wntk
rm|GdGHq;X|Gt|�GHq;WdS(Nitsis not an integer(tlentsystargvtitert	raw_inputtintRR(tsourcetargR((s)/usr/lib64/python2.7/Demo/scripts/fact.pytmain#s


t__main__(R
tmathRRRt__name__(((s)/usr/lib64/python2.7/Demo/scripts/fact.pyt<module>s
		
PK;.�ZqD�	eqfix.pyonu�[����
Afc@s�ddlZddlZddlZddlTddlZejjZeZej	jZ
d�Zejd�Z
d�Zd�Zd�ZddlmZid	d
6d	d6d	d6d
d6dd6dd6dd6dd6Zd�Zedkr�e�ndS(i����N(t*cCs�d}tjds<tdtjdd�tjd�nx}tjdD]n}tjj|�rzt|�r�d}q�qJtjj|�r�t|d�d}qJt	|�rJd}qJqJWtj|�dS(Niisusage: s file-or-directory ...
is": will not process symbolic links
(
tsystargvterrtexittostpathtisdirtrecursedowntislinktfix(tbadtarg((s*/usr/lib64/python2.7/Demo/scripts/eqfix.pytmain)s
	
s^[a-zA-Z0-9_]+\.py$cCstj|�dkS(Ni(tispythonprogtmatch(tname((s*/usr/lib64/python2.7/Demo/scripts/eqfix.pytispython9scCs1td|f�d}ytj|�}Wn+tjk
rW}td||f�dSX|j�g}x�|D]�}|tjtjfkr�qontjj	||�}tjj
|�r�qotjj|�r�|j|�qot
|�rot|�rd}qqoqoWx#|D]}t|�rd}qqW|S(Nsrecursedown(%r)
is%s: cannot list directory: %r
i(tdbgRtlistdirterrorRtsorttcurdirtpardirRtjoinR	RtappendRR
R(tdirnameRtnamestmsgtsubdirsRtfullname((s*/usr/lib64/python2.7/Demo/scripts/eqfix.pyR<s0



c
Cs�yt|d�}Wn(tk
r=}td||f�dSXtjj|�\}}tjj|d|�}d}d}x|j�}|s�Pn|d}|dkr�d|kr�t|d�|j	�dS|dkrf|dkrf|d d	krft
j|d�}	|	rftjd
|	d�dkrf|d|	d}|d}t|�|j	�dSnx>|d
dkr�|j�}
|
s�Pn||
}|d}qiWt
|�}||krm|dkr:yt|d�}Wn2tk
r}|j	�td||f�dSX|jd�d}t|d�q~ntt|�d�td|�td|�n|dk	r~|j|�q~q~W|j	�|s�dSy+tj|�}tj||td@�Wn*tjk
r�}td||f�nXytj||d�Wn*tjk
r=}td||f�nXytj||�Wn+tjk
r}td||f�dSXdS(Ntrs%s: cannot open: %r
it@iss!: contains null bytes; not fixed
is#!s	[pP]ythons: s script; not fixed
i����s\
tws%s: cannot create: %r
s:
s
s< s> i�s%s: warning: chmod failed (%r)
t~s %s: warning: backup failed (%r)
s%s: rename failed (%r)
(topentIOErrorRRRtsplitRtNonetreadlinetclosetstringtretsearchtfixlinetseektreptreprtwritetstattchmodtST_MODERtrename(
tfilenametfRtheadttailttempnametgtlinenotlinetwordstnextlinetnewlinetstatbuf((s*/usr/lib64/python2.7/Demo/scripts/eqfix.pyR
Rs�

("






(t	tokenprogt:tifteliftwhiles
treturnt)t(t]t[t}t{t`cCs?d|kr|Sdt|�}}g}x||kr:tj||�}|dkrcdGH|G|Stjd\}}|||!}||}|r�||dkr�|d=q,tj|�r�|jt|�q,|dkr|r|| d||}|td�t|�}}q,|dkr,|r,dGH|Gq,q,W|S(Nt=is(Syntax error:)ii����s==s(Warning: '==' at top level:)(tlenRARtregsthas_keyR(R<titntstacktjtatbttoken((s*/usr/lib64/python2.7/Demo/scripts/eqfix.pyR,�s0


 t__main__(RR*RR1R)tstderrR0RRtstdoutR.R
tcompileRRRR
ttokenizeRARR,t__name__(((s*/usr/lib64/python2.7/Demo/scripts/eqfix.pyt<module>s$
				R	PK;.�ZqD�	eqfix.pycnu�[����
Afc@s�ddlZddlZddlZddlTddlZejjZeZej	jZ
d�Zejd�Z
d�Zd�Zd�ZddlmZid	d
6d	d6d	d6d
d6dd6dd6dd6dd6Zd�Zedkr�e�ndS(i����N(t*cCs�d}tjds<tdtjdd�tjd�nx}tjdD]n}tjj|�rzt|�r�d}q�qJtjj|�r�t|d�d}qJt	|�rJd}qJqJWtj|�dS(Niisusage: s file-or-directory ...
is": will not process symbolic links
(
tsystargvterrtexittostpathtisdirtrecursedowntislinktfix(tbadtarg((s*/usr/lib64/python2.7/Demo/scripts/eqfix.pytmain)s
	
s^[a-zA-Z0-9_]+\.py$cCstj|�dkS(Ni(tispythonprogtmatch(tname((s*/usr/lib64/python2.7/Demo/scripts/eqfix.pytispython9scCs1td|f�d}ytj|�}Wn+tjk
rW}td||f�dSX|j�g}x�|D]�}|tjtjfkr�qontjj	||�}tjj
|�r�qotjj|�r�|j|�qot
|�rot|�rd}qqoqoWx#|D]}t|�rd}qqW|S(Nsrecursedown(%r)
is%s: cannot list directory: %r
i(tdbgRtlistdirterrorRtsorttcurdirtpardirRtjoinR	RtappendRR
R(tdirnameRtnamestmsgtsubdirsRtfullname((s*/usr/lib64/python2.7/Demo/scripts/eqfix.pyR<s0



c
Cs�yt|d�}Wn(tk
r=}td||f�dSXtjj|�\}}tjj|d|�}d}d}x|j�}|s�Pn|d}|dkr�d|kr�t|d�|j	�dS|dkrf|dkrf|d d	krft
j|d�}	|	rftjd
|	d�dkrf|d|	d}|d}t|�|j	�dSnx>|d
dkr�|j�}
|
s�Pn||
}|d}qiWt
|�}||krm|dkr:yt|d�}Wn2tk
r}|j	�td||f�dSX|jd�d}t|d�q~ntt|�d�td|�td|�n|dk	r~|j|�q~q~W|j	�|s�dSy+tj|�}tj||td@�Wn*tjk
r�}td||f�nXytj||d�Wn*tjk
r=}td||f�nXytj||�Wn+tjk
r}td||f�dSXdS(Ntrs%s: cannot open: %r
it@iss!: contains null bytes; not fixed
is#!s	[pP]ythons: s script; not fixed
i����s\
tws%s: cannot create: %r
s:
s
s< s> i�s%s: warning: chmod failed (%r)
t~s %s: warning: backup failed (%r)
s%s: rename failed (%r)
(topentIOErrorRRRtsplitRtNonetreadlinetclosetstringtretsearchtfixlinetseektreptreprtwritetstattchmodtST_MODERtrename(
tfilenametfRtheadttailttempnametgtlinenotlinetwordstnextlinetnewlinetstatbuf((s*/usr/lib64/python2.7/Demo/scripts/eqfix.pyR
Rs�

("






(t	tokenprogt:tifteliftwhiles
treturnt)t(t]t[t}t{t`cCs?d|kr|Sdt|�}}g}x||kr:tj||�}|dkrcdGH|G|Stjd\}}|||!}||}|r�||dkr�|d=q,tj|�r�|jt|�q,|dkr|r|| d||}|td�t|�}}q,|dkr,|r,dGH|Gq,q,W|S(Nt=is(Syntax error:)ii����s==s(Warning: '==' at top level:)(tlenRARtregsthas_keyR(R<titntstacktjtatbttoken((s*/usr/lib64/python2.7/Demo/scripts/eqfix.pyR,�s0


 t__main__(RR*RR1R)tstderrR0RRtstdoutR.R
tcompileRRRR
ttokenizeRARR,t__name__(((s*/usr/lib64/python2.7/Demo/scripts/eqfix.pyt<module>s$
				R	PK;.�Z(��N�
�
	update.pynuȯ��#! /usr/bin/python2.7

# Update a bunch of files according to a script.
# The input file contains lines of the form <filename>:<lineno>:<text>,
# meaning that the given line of the given file is to be replaced
# by the given text.  This is useful for performing global substitutions
# on grep output:

import os
import sys
import re

pat = '^([^: \t\n]+):([1-9][0-9]*):'
prog = re.compile(pat)

class FileObj:
    def __init__(self, filename):
        self.filename = filename
        self.changed = 0
        try:
            self.lines = open(filename, 'r').readlines()
        except IOError, msg:
            print '*** Can\'t open "%s":' % filename, msg
            self.lines = None
            return
        print 'diffing', self.filename

    def finish(self):
        if not self.changed:
            print 'no changes to', self.filename
            return
        try:
            os.rename(self.filename, self.filename + '~')
            fp = open(self.filename, 'w')
        except (os.error, IOError), msg:
            print '*** Can\'t rewrite "%s":' % self.filename, msg
            return
        print 'writing', self.filename
        for line in self.lines:
            fp.write(line)
        fp.close()
        self.changed = 0

    def process(self, lineno, rest):
        if self.lines is None:
            print '(not processed): %s:%s:%s' % (
                      self.filename, lineno, rest),
            return
        i = eval(lineno) - 1
        if not 0 <= i < len(self.lines):
            print '*** Line number out of range: %s:%s:%s' % (
                      self.filename, lineno, rest),
            return
        if self.lines[i] == rest:
            print '(no change): %s:%s:%s' % (
                      self.filename, lineno, rest),
            return
        if not self.changed:
            self.changed = 1
        print '%sc%s' % (lineno, lineno)
        print '<', self.lines[i],
        print '---'
        self.lines[i] = rest
        print '>', self.lines[i],

def main():
    if sys.argv[1:]:
        try:
            fp = open(sys.argv[1], 'r')
        except IOError, msg:
            print 'Can\'t open "%s":' % sys.argv[1], msg
            sys.exit(1)
    else:
        fp = sys.stdin
    curfile = None
    while 1:
        line = fp.readline()
        if not line:
            if curfile: curfile.finish()
            break
        n = prog.match(line)
        if n < 0:
            print 'Funny line:', line,
            continue
        filename, lineno = prog.group(1, 2)
        if not curfile or filename <> curfile.filename:
            if curfile: curfile.finish()
            curfile = FileObj(filename)
        curfile.process(lineno, line[n:])

if __name__ == "__main__":
    main()
PK;.�Z�)
�-
-
lpwatch.pycnu�[����
Afc@stddlZddlZddlZdZdZd�Zd�Zedkrpye�Wqpek
rlqpXndS(i����Ntpsci
cCst}ytjd}Wntjd}nXtjd}|r�xlt|�D]-\}}|d dkrN|d||<qNqNWn.tjjd�r�tjdg}n	tg}tjdd�j	�}xJt
r|}x%|D]}|t||�d	7}q�W|GHtj
|�q�WdS(
NtLOGNAMEtUSERiis-PtPRINTERtcleartrs
(t	DEF_DELAYtostenvirontsystargvt	enumeratethas_keytDEF_PRINTERtpopentreadtTruet
makestatusttimetsleep(tdelaytthisusertprinterstitnamet	clearhomettext((s,/usr/lib64/python2.7/Demo/scripts/lpwatch.pytmain
s(
		
cCs�tjd|dd�}g}i}d}d}t}d}d}	xl|D]d}
|
j�}t|�}t|�dkrK||ddkrK|dd!\}
}}|dd	!}t||d
�}||kr�t}n|s�||7}|d7}n||7}|	d7}	|j|d�\}}|d7}||7}||f||<qK|rK|ddkrK|
j�}
|
dkr�|d
}
n|
ddkr�|}
n|j	|
�qKqKW|	r�d|dd}
|	t|�kr�|
d|	7}
nt|�dkr|
d|j
�df7}
nV|
dt|�7}
|rt|dkrU|
d|7}
qt|
d|dd|f7}
n|j	|
�n|j�}|r�|j	d|f�ndj|�S(Nslpq -Ps 2>&1Riiitbytesii����itRanks
no entriess: idlei��s is ready and printings%d Ki�is
 (%d jobs)s for %ss
 for %d userss (%s first)s (%d K before %s)slpq exit status %rs: (ii(
RRtFalsetsplittlentintRtgettstriptappendtkeystclosetjoin(RRtpipetlinestuserst
aheadbytest	aheadjobstuserseent
totalbytest	totaljobstlinetfieldstntranktusertjobtfilesRtujobstubyteststs((s,/usr/lib64/python2.7/Demo/scripts/lpwatch.pyR)sd
&
	






	t__main__(	RR	RR
RRRt__name__tKeyboardInterrupt(((s,/usr/lib64/python2.7/Demo/scripts/lpwatch.pyt<module>s		9
PK;.�Z��#��
primes.pyonu�[����
Afc@s,d�Zd�Zedkr(e�ndS(cCs�|dko|knr$dGHndg}d}x�||kr�x2|D]*}||dkso|||krIPqIqIW||dkr�|j|�||kr�|GHq�n|d7}q6WdS(Niii(tappend(tmintmaxtprimestitp((s+/usr/lib64/python2.7/Demo/scripts/primes.pyRs	
 
cCsoddl}d\}}|jdr^t|jd�}|jdr^t|jd�}q^nt||�dS(Ni����ii���i(ii���(tsystargvtintR(RRR((s+/usr/lib64/python2.7/Demo/scripts/primes.pytmains

t__main__N(RR	t__name__(((s+/usr/lib64/python2.7/Demo/scripts/primes.pyt<module>s			PK;.�ZT�`��morse.pynuȯ��#! /usr/bin/python2.7

# DAH should be three DOTs.
# Space between DOTs and DAHs should be one DOT.
# Space between two letters should be one DAH.
# Space between two words should be DOT DAH DAH.

import sys, math, audiodev

DOT = 30
DAH = 3 * DOT
OCTAVE = 2                              # 1 == 441 Hz, 2 == 882 Hz, ...

morsetab = {
        'A': '.-',              'a': '.-',
        'B': '-...',            'b': '-...',
        'C': '-.-.',            'c': '-.-.',
        'D': '-..',             'd': '-..',
        'E': '.',               'e': '.',
        'F': '..-.',            'f': '..-.',
        'G': '--.',             'g': '--.',
        'H': '....',            'h': '....',
        'I': '..',              'i': '..',
        'J': '.---',            'j': '.---',
        'K': '-.-',             'k': '-.-',
        'L': '.-..',            'l': '.-..',
        'M': '--',              'm': '--',
        'N': '-.',              'n': '-.',
        'O': '---',             'o': '---',
        'P': '.--.',            'p': '.--.',
        'Q': '--.-',            'q': '--.-',
        'R': '.-.',             'r': '.-.',
        'S': '...',             's': '...',
        'T': '-',               't': '-',
        'U': '..-',             'u': '..-',
        'V': '...-',            'v': '...-',
        'W': '.--',             'w': '.--',
        'X': '-..-',            'x': '-..-',
        'Y': '-.--',            'y': '-.--',
        'Z': '--..',            'z': '--..',
        '0': '-----',           ',': '--..--',
        '1': '.----',           '.': '.-.-.-',
        '2': '..---',           '?': '..--..',
        '3': '...--',           ';': '-.-.-.',
        '4': '....-',           ':': '---...',
        '5': '.....',           "'": '.----.',
        '6': '-....',           '-': '-....-',
        '7': '--...',           '/': '-..-.',
        '8': '---..',           '(': '-.--.-',
        '9': '----.',           ')': '-.--.-',
        ' ': ' ',               '_': '..--.-',
}

nowave = '\0' * 200

# If we play at 44.1 kHz (which we do), then if we produce one sine
# wave in 100 samples, we get a tone of 441 Hz.  If we produce two
# sine waves in these 100 samples, we get a tone of 882 Hz.  882 Hz
# appears to be a nice one for playing morse code.
def mkwave(octave):
    sinewave = ''
    for i in range(100):
        val = int(math.sin(math.pi * i * octave / 50.0) * 30000)
        sinewave += chr((val >> 8) & 255) + chr(val & 255)
    return sinewave

defaultwave = mkwave(OCTAVE)

def main():
    import getopt
    try:
        opts, args = getopt.getopt(sys.argv[1:], 'o:p:')
    except getopt.error:
        sys.stderr.write('Usage ' + sys.argv[0] +
                         ' [ -o outfile ] [ -p octave ] [ words ] ...\n')
        sys.exit(1)
    dev = None
    wave = defaultwave
    for o, a in opts:
        if o == '-o':
            import aifc
            dev = aifc.open(a, 'w')
            dev.setframerate(44100)
            dev.setsampwidth(2)
            dev.setnchannels(1)
        if o == '-p':
            wave = mkwave(int(a))
    if not dev:
        import audiodev
        dev = audiodev.AudioDev()
        dev.setoutrate(44100)
        dev.setsampwidth(2)
        dev.setnchannels(1)
        dev.close = dev.stop
        dev.writeframesraw = dev.writeframes
    if args:
        source = [' '.join(args)]
    else:
        source = iter(sys.stdin.readline, '')
    for line in source:
        mline = morse(line)
        play(mline, dev, wave)
        if hasattr(dev, 'wait'):
            dev.wait()
    dev.close()

# Convert a string to morse code with \001 between the characters in
# the string.
def morse(line):
    res = ''
    for c in line:
        try:
            res += morsetab[c] + '\001'
        except KeyError:
            pass
    return res

# Play a line of morse code.
def play(line, dev, wave):
    for c in line:
        if c == '.':
            sine(dev, DOT, wave)
        elif c == '-':
            sine(dev, DAH, wave)
        else:                   # space
            pause(dev, DAH + DOT)
        pause(dev, DOT)

def sine(dev, length, wave):
    for i in range(length):
        dev.writeframesraw(wave)

def pause(dev, length):
    for i in range(length):
        dev.writeframesraw(nowave)

if __name__ == '__main__':
    main()
PK;.�ZR~����pi.pyonu�[����
Afc@s8ddlZd�Zd�Zedkr4e�ndS(i����Nc	Cs�d\}}}}}x�tr�||d|d|d}}}||||||||||f\}}}}||||}}xL||kr�t|�d||d||}}||||}}q�WqWdS(Niiiii
(iiiii(tTruetoutput(	tktatbta1tb1tptqtdtd1((s'/usr/lib64/python2.7/Demo/scripts/pi.pytmain
s	$6
cCs'tjjt|��tjj�dS(N(tsyststdouttwritetstrtflush(R	((s'/usr/lib64/python2.7/Demo/scripts/pi.pyRst__main__(RRRt__name__(((s'/usr/lib64/python2.7/Demo/scripts/pi.pyt<module>s	
	PK;.�Za�POO	morse.pycnu�[����
Afc@s�ddlZddlZddlZdZdeZdZiJdd6dd6dd	6dd
6dd6dd
6dd6dd6dd6dd6dd6dd6dd6dd6dd6dd6dd6dd6d d!6d d"6d#d$6d#d%6d&d'6d&d(6d)d*6d)d+6d,d-6d,d.6d/d06d/d16d2d36d2d46d5d66d5d76d8d96d8d:6d;d<6d;d=6d>d?6d>d@6dAdB6dAdC6dDdE6dDdF6dGdH6dGdI6dJdK6dJdL6dMdN6dMdO6dPdQ6dPdR6dSdT6dUdV6dWdX6dYd6dZd[6d\d]6d^d_6d`da6dbdc6ddde6dfdg6dhdi6djdk6dld>6dmdn6dodp6dqdr6dsdt6dudv6dsdw6dxdx6dydz6Zd{d|Zd}�Zee�Z	d~�Z
d�Zd��Zd��Z
d��Zed�kr�e
�ndS(�i����Niiis.-tAtas-...tBtbs-.-.tCtcs-..tDtdt.tEtes..-.tFtfs--.tGtgs....tHths..tItis.---tJtjs-.-tKtks.-..tLtls--tMtms-.tNtns---tOtos.--.tPtps--.-tQtqs.-.tRtrs...tStst-tTtts..-tUtus...-tVtvs.--tWtws-..-tXtxs-.--tYtys--..tZtzs-----t0s--..--t,s.----t1s.-.-.-s..---t2s..--..t?s...--t3s-.-.-.t;s....-t4s---...t:s.....t5s.----.t's-....t6s-....-s--...t7s-..-.t/s---..t8s-.--.-t(s----.t9t)t s..--.-t_si�cCsod}xbtd�D]T}ttjtj||d�d�}|t|d?d@�t|d@�7}qW|S(NtidgI@i0uii�(trangetinttmathtsintpitchr(toctavetsinewaveRtval((s*/usr/lib64/python2.7/Demo/scripts/morse.pytmkwave<s
(*cCs�ddl}y#|jtjdd�\}}Wn@|jk
rqtjjdtjdd�tjd�nXd}t}x�|D]�\}}|dkr�ddl	}|j
|d�}|jd	�|jd
�|j
d�n|dkr�tt|��}q�q�W|sjddl}|j�}|jd	�|jd
�|j
d�|j|_|j|_n|r�dj|�g}	nttjjd
�}	xF|	D]>}
t|
�}t|||�t|d�r�|j�q�q�W|j�dS(Ni����iso:p:sUsage is, [ -o outfile ] [ -p octave ] [ words ] ...
s-oR/iD�is-pRHRJtwait(tgetopttsystargvterrortstderrtwritetexittNonetdefaultwavetaifctopentsetframeratetsetsampwidthtsetnchannelsRTRLtaudiodevtAudioDevt
setoutratetstoptclosetwriteframestwriteframesrawtjointitertstdintreadlinetmorsetplaythasattrRU(RVtoptstargstdevtwaveRRR_Rdtsourcetlinetmline((s*/usr/lib64/python2.7/Demo/scripts/morse.pytmainEsF#





cCsEd}x8|D]0}y|t|d7}Wq
tk
r<q
Xq
W|S(NRJs(tmorsetabtKeyError(RwtresR((s*/usr/lib64/python2.7/Demo/scripts/morse.pyRoms

cCsqxj|D]b}|dkr,t|t|�n0|dkrKt|t|�nt|tt�t|t�qWdS(NRR'(tsinetDOTtDAHtpause(RwRtRuR((s*/usr/lib64/python2.7/Demo/scripts/morse.pyRpws
cCs(x!t|�D]}|j|�q
WdS(N(RKRj(RttlengthRuR((s*/usr/lib64/python2.7/Demo/scripts/morse.pyR}�scCs(x!t|�D]}|jt�q
WdS(N(RKRjtnowave(RtR�R((s*/usr/lib64/python2.7/Demo/scripts/morse.pyR��st__main__(RWRMRdR~RtOCTAVERzR�RTR^RyRoRpR}R�t__name__(((s*/usr/lib64/python2.7/Demo/scripts/morse.pyt<module>sf$

		(	
	
		PK;.�Z��#��
primes.pycnu�[����
Afc@s,d�Zd�Zedkr(e�ndS(cCs�|dko|knr$dGHndg}d}x�||kr�x2|D]*}||dkso|||krIPqIqIW||dkr�|j|�||kr�|GHq�n|d7}q6WdS(Niii(tappend(tmintmaxtprimestitp((s+/usr/lib64/python2.7/Demo/scripts/primes.pyRs	
 
cCsoddl}d\}}|jdr^t|jd�}|jdr^t|jd�}q^nt||�dS(Ni����ii���i(ii���(tsystargvtintR(RRR((s+/usr/lib64/python2.7/Demo/scripts/primes.pytmains

t__main__N(RR	t__name__(((s+/usr/lib64/python2.7/Demo/scripts/primes.pyt<module>s			PK;.�Z���й�
markov.pycnu�[����
Afc@s6ddd��YZd�Zedkr2e�ndS(tMarkovcBs,eZd�Zd�Zd�Zd�ZRS(cCs||_||_i|_dS(N(thistsizetchoicettrans(tselfRR((s+/usr/lib64/python2.7/Demo/scripts/markov.pyt__init__s		cCs |jj|g�j|�dS(N(Rt
setdefaulttappend(Rtstatetnext((s+/usr/lib64/python2.7/Demo/scripts/markov.pytadd	scCs�|j}|j}|d|d �xFtt|��D]2}||td||�|!|||d!�q6W||t|�|d�dS(Nii(RR
tNonetrangetlentmax(RtseqtnR
ti((s+/usr/lib64/python2.7/Demo/scripts/markov.pytputs		0cCs�|j}|j}|j}||d�}xQtr~|tdt|�|�}||}||�}|sqPn||7}q.W|S(Ni(RRRRtTrueRR
(RRRRRtsubseqtoptionsR	((s+/usr/lib64/python2.7/Demo/scripts/markov.pytgets				
(t__name__t
__module__RR
RR(((s+/usr/lib64/python2.7/Demo/scripts/markov.pyRs			cCs�ddl}ddl}ddl}|jd}y|j|d�\}}Wnm|jk
r�d|jdGHdGHdGHdGHd	GHd
GHdGHdGHd
GHdGHdGHdGHdGH|jd�nXd}t}d}x�|D]�\}}	d|ko�dknrt|d�}n|dkr&t}n|dkr?|d7}n|dkrTd}n|dkr�t}q�q�W|sdg}nt	||j
�}
y�x�|D]�}|dkr�|j}|j�r�dGHq�q�nt
|d�}|r�dG|GdGHn|j�}
|j�|
jd�}xh|D]`}|dkr;dGHn|j�}|r!|rbt|�}nd j|�}|
j|�q!q!Wq�WWntk
r�d!GHnX|
js�d"GHdS|r�d#GHn|dkrIxN|
jj�D]=}|dkst|�|kr�t|�G|
j|GHq�q�W|dkrEtd$�G|
jd$GHnHnx�tr�|
j�}|rm|}n|j�}d}d%}xF|D]>}|t|�|kr�Hd}n|G|t|�d7}q�WHHqLWdS(&Ni����it0123456789cdwqs"Usage: %s [-#] [-cddqw] [file] ...isOptions:s$-#: 1-digit history size (default 2)s-c: characters (default)s	-w: wordss-d: more debugging outputs-q: no debugging outputs3Input files (default stdin) are split in paragraphss1separated blank lines and each paragraph is splits0in words by whitespace, then reconcatenated withs#exactly one space separating words.s0Output consists of paragraphs separated by blanks4lines, where lines are no longer than 72 characters.is-0s-9s-cs-ds-qs-wt-sSorry, need stdin from filetrt
processings...s

sfeeding ...t s-Interrupted -- continue with data read so farsNo valid input filessdone.tiH(tsystrandomtgetopttargvterrortexittFalsetintRRRtstdintisattytopentreadtclosetsplitttupletjoinRtKeyboardInterruptRtkeysRR
treprR(RR R!targstoptsRtdo_wordstdebugtotatmtfilenametfttexttparalisttparatwordstdatatkeyRtlimittw((s+/usr/lib64/python2.7/Demo/scripts/markov.pyttest#s�$
	
	

		


				
	t__main__N((RRCR(((s+/usr/lib64/python2.7/Demo/scripts/markov.pyt<module>s 	UPK;.�ZcA-D��
script.pyonu�[����
Afc@s�ddlZddlZddlZddlZddlZd�ZdZdZdZej	j
d�ryej	dZny#ejejdd�\ZZ
Wn9ejk
r�Zd	ejd
efGHejd�nXx>eD]6\ZZedkrd
Zq�edkr�dZq�q�Weee�Zejjde�ejdejej���ejee�ejdejej���ejjde�dS(i����NcCs#tj|d�}tj|�|S(Ni(tostreadtscripttwrite(tfdtdata((s+/usr/lib64/python2.7/Demo/scripts/script.pyR
s
tsht
typescripttwtSHELLitaps%s: %siis-atas-ptpythonsScript started, file is %s
sScript started on %s
sScript done on %s
sScript done, file is %s
(RttimetsystgetopttptyRtshelltfilenametmodetenvironthas_keytargvtoptstargsterrortmsgtexittoRtopenRtstdoutRtctimetspawn(((s+/usr/lib64/python2.7/Demo/scripts/script.pyt<module>
s.0	#	
  PK;.�Z�V�B��
queens.pyonu�[����
Afc@sBdZdZddd��YZd�Zedkr>e�ndS(s�N queens problem.

The (well-known) problem is due to Niklaus Wirth.

This solution is inspired by Dijkstra (Structured Programming).  It is
a classic recursive backtracking approach.

itQueenscBsSeZed�Zd�Zdd�Zd�Zd�Zd�ZdZ	d�Z
RS(cCs||_|j�dS(N(tntreset(tselfR((s+/usr/lib64/python2.7/Demo/scripts/queens.pyt__init__s	cCsf|j}dg||_dg||_dgd|d|_dgd|d|_d|_dS(Niii(RtNonetytrowtuptdowntnfound(RR((s+/usr/lib64/python2.7/Demo/scripts/queens.pyRs	icCs�x}t|j�D]l}|j||�r|j||�|d|jkrX|j�n|j|d�|j||�qqWdS(Ni(trangeRtsafetplacetdisplaytsolvetremove(RtxR((s+/usr/lib64/python2.7/Demo/scripts/queens.pyRs
cCs0|j|o/|j||o/|j||S(N(RRR	(RRR((s+/usr/lib64/python2.7/Demo/scripts/queens.pyR&scCs@||j|<d|j|<d|j||<d|j||<dS(Ni(RRRR	(RRR((s+/usr/lib64/python2.7/Demo/scripts/queens.pyR
)s

cCs@d|j|<d|j|<d|j||<d|j||<dS(Ni(RRRRR	(RRR((s+/usr/lib64/python2.7/Demo/scripts/queens.pyR/s

cCs�|jd|_|jrdSdd|jdGHxbt|jddd�D]G}dGx5t|j�D]$}|j||kr�dGqedGqeWdGHqKWdd|jdGHdS(	Nis+-s--t+i����t|tQt.(R
tsilentRRR(RRR((s+/usr/lib64/python2.7/Demo/scripts/queens.pyR7s	 	(t__name__t
__module__tNRRRRR
RRR(((s+/usr/lib64/python2.7/Demo/scripts/queens.pyRs	
			cCs�ddl}d}t}|jdd!dgkrDd}|jd=n|jdrgt|jd�}nt|�}||_|j�dG|jGdGHdS(Ni����iiis-ntFounds
solutions.(tsysRtargvtintRRRR
(RRRtq((s+/usr/lib64/python2.7/Demo/scripts/queens.pytmainFs

	
t__main__N((t__doc__RRRR(((s+/usr/lib64/python2.7/Demo/scripts/queens.pyt<module>
s
8	PK;.�Z;���	script.pynuȯ��#! /usr/bin/python2.7

# script.py -- Make typescript of terminal session.
# Usage:
#       -a      Append to typescript.
#       -p      Use Python as shell.
# Author: Steen Lumholt.


import os, time, sys, getopt
import pty

def read(fd):
    data = os.read(fd, 1024)
    script.write(data)
    return data

shell = 'sh'
filename = 'typescript'
mode = 'w'
if os.environ.has_key('SHELL'):
    shell = os.environ['SHELL']

try:
    opts, args = getopt.getopt(sys.argv[1:], 'ap')
except getopt.error, msg:
    print '%s: %s' % (sys.argv[0], msg)
    sys.exit(2)

for o, a in opts:
    if o == '-a':
        mode = 'a'
    elif o == '-p':
        shell = 'python'

script = open(filename, mode)

sys.stdout.write('Script started, file is %s\n' % filename)
script.write('Script started on %s\n' % time.ctime(time.time()))
pty.spawn(shell, read)
script.write('Script done on %s\n' % time.ctime(time.time()))
sys.stdout.write('Script done, file is %s\n' % filename)
PKO;�Z���)�)frisk.gonu�[���PKO;�ZX)l���)read-text-outline.gonu�[���PKO;�Z"��m#G#GFsnarf-check-and-output-texi.gonu�[���PKP;�ZX�ZSk)k)��scan-api.gonu�[���PKP;�Z��@F�	�	+�display-commentary.gonu�[���PKP;�Zg^d""�summarize-guile-TODO.gonu�[���PKP;�Z���0""f�api-diff.gonu�[���PKP;�Z������generate-autoload.gonu�[���PKQ;�ZtC*^�&�&�autofrisk.gonu�[���PKQ;�Z���i���<read-rfc822.gonu�[���PKQ;�ZC�&C�!�!�Phelp.gonu�[���PKQ;�Z�;^�A�A�rdoc-snarf.gonu�[���PKR;�ZBS�{�	�		��punify.gonu�[���PKR;�ZN��H��
ƾuse2dot.gonu�[���PKR;�Zp�+++��snarf-guile-m4-docs.gonu�[���PKR;�Z�:�&Y Y @�lint.gonu�[���PKR;�Z���TT�list.gonu�[���PKS;�ZN�`�##[
read-scheme-source.gonu�[���PKS;�Z��9||�0disassemble.gonu�[���PKS;�Z��P�U'U'
b5compile.gonu�[���PK�I�Z��	��"�"�\common/Activate.ps1nu�[���PK�I�Zν�E���common/activatenu�[���PK�I�Z;�^����posix/activate.cshnu�[���PK�I�Z�]��e	e	��posix/activate.fishnu�[���PK;.�ZC�-���_�beer.pynuȯ��PK;.�Z��G���`�mboxconvert.pyonu�[���PK;.�Z�*�R		T�pp.pycnu�[���PK;.�Z��L����beer.pycnu�[���PK;.�Z�
��lpwatch.pynuȯ��PK;.�Z��K	�markov.pynuȯ��PK;.�Z��L��,�beer.pyonu�[���PK;.�Z�8���#�pp.pynuȯ��PK;.�ZMH�YZZ	>�primes.pynuȯ��PK;.�Z�������from.pyonu�[���PK;.�Z��Ir��
��makedir.pynuȯ��PK;.�Z�*�R		/�pp.pyonu�[���PK;.�Zh�q��
�

��update.pyonu�[���PK;.�Z���й�
��markov.pyonu�[���PK;.�Z�)
�-
-
w
lpwatch.pyonu�[���PK;.�ZB�����find-uname.pyonu�[���PK;.�Z��LCC
unbirthday.pynuȯ��PK;.�Z�V�B��
�'queens.pycnu�[���PK;.�Z�zv���3READMEnu�[���PK;.�ZcA-D��
�7script.pycnu�[���PK;.�Z������<from.pycnu�[���PK;.�ZXi���	�?queens.pynuȯ��PK;.�Zh�q��
�

�Hupdate.pycnu�[���PK;.�Zټ�gll�Sfact.pynuȯ��PK;.�Z�����Xeqfix.pynuȯ��PK;.�ZB����aqfind-uname.pycnu�[���PK;.�Z��1:tt�wmboxconvert.pynuȯ��PK;.�ZGx�#��7�makedir.pycnu�[���PK;.�ZGx�#��N�makedir.pyonu�[���PK;.�Z@�I�wwe�pi.pynuȯ��PK;.�Z0y�ܺ��unbirthday.pyonu�[���PK;.�Z�`(��	�fact.pycnu�[���PK;.�ZR~����Оpi.pycnu�[���PK;.�Z0y�ܺ���unbirthday.pycnu�[���PK;.�Za�POO	��morse.pyonu�[���PK;.�Z��G����mboxconvert.pycnu�[���PK;.�Z]">��
�find-uname.pynuȯ��PK;.�Zu�=ii�from.pynuȯ��PK;.�Z�`(����fact.pyonu�[���PK;.�ZqD�	n�eqfix.pyonu�[���PK;.�ZqD�	��eqfix.pycnu�[���PK;.�Z(��N�
�
	�update.pynuȯ��PK;.�Z�)
�-
-


lpwatch.pycnu�[���PK;.�Z��#��
rprimes.pyonu�[���PK;.�ZT�`��Emorse.pynuȯ��PK;.�ZR~����W)pi.pyonu�[���PK;.�Za�POO	&-morse.pycnu�[���PK;.�Z��#��
�>primes.pycnu�[���PK;.�Z���й�
�Bmarkov.pycnu�[���PK;.�ZcA-D��
tRscript.pyonu�[���PK;.�Z�V�B��
�Wqueens.pyonu�[���PK;.�Z;���	�cscript.pynuȯ��PKLLX�g