AnonSec Shell
Server IP : 162.213.251.212  /  Your IP : 3.14.133.188   [ Reverse IP ]
Web Server : LiteSpeed
System : Linux business55.web-hosting.com 4.18.0-553.lve.el8.x86_64 #1 SMP Mon May 27 15:27:34 UTC 2024 x86_64
User : allssztx ( 535)
PHP Version : 8.1.31
Disable Function : NONE
Domains : 1 Domains
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /proc/thread-self/root/usr/lib64/guile/2.0/ccache/ice-9/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ HOME ]     [ BACKUP SHELL ]     [ JUMPING ]     [ MASS DEFACE ]     [ SCAN ROOT ]     [ SYMLINK ]     

Current File : /proc/thread-self/root/usr/lib64/guile/2.0/ccache/ice-9/getopt-long.go
GOOF----LE-8-2.0�]�4h�Y]gguile�	�	gdefine-module*�	�	�	gice-9�	ggetopt-long�	�		gfilenameS�	
fice-9/getopt-long.scm�	gimportsS�	gcommon-list�	
�	gselectS�	g
remove-if-not�	�	
�	gsrfi�	gsrfi-9�	�	�	gmatch�	�	�	gregex�	�	�	goptargs�	�	�	�	 gexportsS�	!g
option-ref�	"!�	#gset-current-module�	$#�	%#�	&g
make-fluid�	'fguile�	(g
%program-name�	)gprogram-name�	*gformat�	+gcurrent-error-port�	,f~a: �	-gapply�	.gnewline�	/gexit�	0gfatal-error�	1goption-spec�	2g%%make-option-spec-procedure�	3gmake-syntax-transformer�	43�	53�	6g%make-option-spec�	7gmacro�	8g$sc-dispatch�	98�	:8�	;g_�	<gany�	=;<<<<<�	>g
syntax-object�	?glambda�	@gm-70fb8ec09b0a817-48c�	Agtop�	B@A�	Cgribcage�	Dgt-70fb8ec09b0a817-487�	Egt-70fb8ec09b0a817-488�	Fgt-70fb8ec09b0a817-489�	Ggt-70fb8ec09b0a817-48a�	Hgt-70fb8ec09b0a817-48b�	IDEFGH�	JBBBBB�	Kfl-70fb8ec09b0a817-491�	Lfl-70fb8ec09b0a817-492�	Mfl-70fb8ec09b0a817-493�	Nfl-70fb8ec09b0a817-494�	Ofl-70fb8ec09b0a817-495�	PKLMNO�	QCIJP�	RC�	Sgx�	TS�	UB�	Vfl-70fb8ec09b0a817-48e�	WV�	XCTUW�	Ygshift�	Zg	proc-name�	[gargs�	\Z[�	]A�	^]]�	_fl-1e8ba8b5a-60�	`fl-1e8ba8b5a-61�	a_`�	bC\^a�	cgkey�	dgvalue�	egname�	fgformals�	ggbody�	hcdefg�	i]]]]]�	jfl-1e8ba8b5a-53�	kfl-1e8ba8b5a-54�	lfl-1e8ba8b5a-55�	mfl-1e8ba8b5a-56�	nfl-1e8ba8b5a-57�	ojklmn�	pChio�	qgmake-procedure-name�	rq�	s]�	tfl-1e8ba8b5a-43�	ut�	vCrsu�	w]�	xfl-1e8ba8b5a-42�	yx�	zCTwy�	{BQRXYRRRRbpvz
�	|ghygiene�	}|�	~>?{}�	]QRX��|��>e���g	required?��>����goption-spec->single-char��>����g	predicate��>����gvalue-policy��>�����������gmake-struct��gm-70fb8ec09b0a817-485���A��gt-1e8ba8b5a-133��gt-1e8ba8b5a-132��gt-1e8ba8b5a-131�������gm-1e8ba8b5a-134���A�������fl-1e8ba8b5a-138��fl-1e8ba8b5a-139��fl-1e8ba8b5a-13a�������C�����g	ctor-args�����fl-1e8ba8b5a-120�����C�w���gctor��gfield������fl-1e8ba8b5a-11c��fl-1e8ba8b5a-11d������C�^���gform��g	type-name��gconstructor-spec��gfield-names��������]]]]��fl-1e8ba8b5a-111��fl-1e8ba8b5a-112��fl-1e8ba8b5a-113��fl-1e8ba8b5a-114��������C�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������]]]]]]]]��fl-1e8ba8b5a-e9��fl-1e8ba8b5a-e7��fl-1e8ba8b5a-e5��fl-1e8ba8b5a-e3��fl-1e8ba8b5a-e1��fl-1e8ba8b5a-df��fl-1e8ba8b5a-dd��fl-1e8ba8b5a-db������������C�����fl-1e8ba8b5a-da�����CTw����QRXYR�RRR��R�����>��}��>1���>
�}������������~����geach-any��;ό��gsyntax-violation��������fWrong number of arguments��gidentifier?��������]RX��>2����������f-source expression failed to match any pattern��grecord-type-vtable��������g
pwpwpwpwpw��gdefault-record-printer��������e������gset-struct-vtable-name!��������gvtable-offset-user��������g%option-spec?-procedure��goption-spec?��;<��gm-70fb8ec09b0a817-4a1���A��gt-70fb8ec09b0a817-4a0��������fl-70fb8ec09b0a817-4a6�����C�����fl-70fb8ec09b0a817-4a3�����CT������R�YRRRRbpvz
��>?�}��gobj��gt-1e8ba8b5a-224��gt-1e8ba8b5a-21e��gt-1e8ba8b5a-21f��gt-1e8ba8b5a-220�gt-1e8ba8b5a-223�gt-1e8ba8b5a-222�gt-1e8ba8b5a-221������gm-1e8ba8b5a-225�A��fl-1e8ba8b5a-229�fl-1e8ba8b5a-22a�	fl-1e8ba8b5a-22b�
fl-1e8ba8b5a-22c�fl-1e8ba8b5a-22d�fl-1e8ba8b5a-22e�
fl-1e8ba8b5a-22f�	

�C�g	copier-id��fl-1e8ba8b5a-21c��Cw�g	ctor-name��fl-1e8ba8b5a-214��Cw���fl-1e8ba8b5a-212��Cw�glayout�� fl-1e8ba8b5a-210�! �"Cw!�#g
immutable?�$#�%fl-1e8ba8b5a-20e�&%�'C$w&�(gfield-count�)(�*fl-1e8ba8b5a-20c�+*�,C)w+�-g
getter-ids�.-�/fl-1e8ba8b5a-209�0/�1C.w0�2g	field-ids�32�4fl-1e8ba8b5a-206�54�6C3w5�7gpredicate-name�8g
field-spec�9#���78�:]]]]]]�;fl-1e8ba8b5a-1f9�<fl-1e8ba8b5a-1fa�=fl-1e8ba8b5a-1fb�>fl-1e8ba8b5a-1fc�?fl-1e8ba8b5a-1fd�@fl-1e8ba8b5a-1fe�A;<=>?@�BC9:A�C��R�YRRRRRRRR"R'R,R1R6B���D>�C}�ED�Fgand�G>FC}�Hgstruct?�I>HC}�JID�Kgeq?�L>KC}�Mg
struct-vtable�N>MC}�OND�P]�R��Q>1P��RLOQ�SGJR�T�ES�U]R��V>�U��Wgthrow-bad-struct�XW�YW�Zgoption-spec->name�[g%option-spec->name-procedure�\gfree-id�]g
%%on-error�^gm-70fb8ec09b0a817-4ad�_^A�`_�afl-70fb8ec09b0a817-4af�ba�cCT`b�d_RcYRRRRbpvz�e>]d}�f\e�gf<�hg%%type�igt-1e8ba8b5a-14b�jgt-1e8ba8b5a-14c�kgt-1e8ba8b5a-14d�lgt-1e8ba8b5a-14e�mgt-1e8ba8b5a-14f�ngt-1e8ba8b5a-150�ogt-1e8ba8b5a-151�pijklmno�qgm-1e8ba8b5a-152�rqA�srrrrrrr�tfl-1e8ba8b5a-156�ufl-1e8ba8b5a-157�vfl-1e8ba8b5a-158�wfl-1e8ba8b5a-159�xfl-1e8ba8b5a-15a�yfl-1e8ba8b5a-15b�zfl-1e8ba8b5a-15c�{tuvwxyz�|Cps{�}ggetter�~gindex�}~��fl-1e8ba8b5a-149��fl-1e8ba8b5a-14a������C^����-��]]]��fl-1e8ba8b5a-144��fl-1e8ba8b5a-145��fl-1e8ba8b5a-146�������C������RcYR|RRR�R�����>h�}��\���;g�<��gck��gerr��gs������__��fl-70fb8ec09b0a817-4b2��fl-70fb8ec09b0a817-4b3������C�����_�RcYRRRRbpvz
��>��}��gquote��>��}��]�Rc��>1�����������g%%index��>��}��\���;g�<��fl-70fb8ec09b0a817-4b7��fl-70fb8ec09b0a817-4b8������C�����_�RcYRRRRbpvz
��>��}��>��}���Rc��>
�����������g%%copier��>��}��\���;g�<��fl-70fb8ec09b0a817-4bc��fl-70fb8ec09b0a817-4bd������C�����_�RcYRRRRbpvz
��>��}��>��}��g%%option-spec-set-fields��]�Rc��>������������gt-70fb8ec09b0a817-4ac�����fl-70fb8ec09b0a817-4c1�����C�`���_�RcYRRRRbpvz
��>?�}����RcYR|RRR�R�����>��}�����gif��>��}��>K�}��>M�}������]�Rc��>1���������g
struct-ref��>��}���Rc��>
���������>W�}��>��}��>Z������������������������]Rc��>[����goption-spec->required?��g!%option-spec->required?-procedure��gm-70fb8ec09b0a817-4c8���A�����fl-70fb8ec09b0a817-4ca�����CT�����R�YRRRRbpvz��>]�}��\����<���R�YR|RRR�R�����>h�}��\���;��<������fl-70fb8ec09b0a817-4cd��fl-70fb8ec09b0a817-4ce������C�������R�YRRRRbpvz
��>��}��>��}��]�R���>1�����������>��}��\���;��<��fl-70fb8ec09b0a817-4d2��fl-70fb8ec09b0a817-4d3����C����R�YRRRRbpvz
�>�}�>�}�R��>����	>��}�
\	�;�
<�fl-70fb8ec09b0a817-4d7�
fl-70fb8ec09b0a817-4d8�
�C����R�YRRRRbpvz
�>�}�>�}�]R��>�����gt-70fb8ec09b0a817-4c7��fl-70fb8ec09b0a817-4dc��C���R�YRRRRbpvz
�>?}��R�YR|RRR�R����>�}� �!>�}�">K}�#>M}�$#�%]R��&>1%��'"$&�(>�}�)R��*>)��+(*�,>W}�->�}�.>�%��/-.�0,/�1!'+0�2 1�3]R��4>�3��5g#%option-spec->single-char-procedure�6gm-70fb8ec09b0a817-4e3�76A�87�9fl-70fb8ec09b0a817-4e5�:9�;CT8:�<7R;YRRRRbpvz�=>]<}�>\=�?><�@�R;YR|RRR�R����A>h@}�B\A�C;?B<�D77�Efl-70fb8ec09b0a817-4e8�Ffl-70fb8ec09b0a817-4e9�GEF�HC�DG�I7HR;YRRRRbpvz
�J>�I}�K>�I}�L]HR;�M>1L��NKM�ON�P>�@}�Q\P�R;?Q<�Sfl-70fb8ec09b0a817-4ed�Tfl-70fb8ec09b0a817-4ee�UST�VC�DU�W7VR;YRRRRbpvz
�X>�W}�Y>�W}�ZVR;�[>	Z��\Y[�]\�^>�@}�_\^�`;?_<�afl-70fb8ec09b0a817-4f2�bfl-70fb8ec09b0a817-4f3�cab�dC�Dc�e7dR;YRRRRbpvz
�f>�e}�g>�e}�h]dR;�i>�h��jgi�kj�lgt-70fb8ec09b0a817-4e2�ml�nfl-70fb8ec09b0a817-4f7�on�pCm8o�q7pR;YRRRRbpvz
�r>?q}�s�pR;YR|RRR�R����t>�s}�ut�v>�s}�w>Ks}�x>Ms}�yxt�z]pR;�{>1z��|wy{�}>�s}�~pR;�>	~���}t��>Ws}��>�s}��>�z��������t���v|����ru���]R;��>5����goption-spec->predicate��g!%option-spec->predicate-procedure��gm-70fb8ec09b0a817-4fe���A�����fl-70fb8ec09b0a817-500�����CT�����R�YRRRRbpvz��>]�}��\����<���R�YR|RRR�R�����>h�}��\���;��<������fl-70fb8ec09b0a817-503��fl-70fb8ec09b0a817-504������C�������R�YRRRRbpvz
��>��}��>��}��]�R���>1�����������>��}��\���;��<��fl-70fb8ec09b0a817-508��fl-70fb8ec09b0a817-509������C�������R�YRRRRbpvz
��>��}��>��}���R���>	�����������>��}��\���;��<��fl-70fb8ec09b0a817-50d��fl-70fb8ec09b0a817-50e������C�������R�YRRRRbpvz
��>��}��>��}��]�R���>������������gt-70fb8ec09b0a817-4fd�����fl-70fb8ec09b0a817-512�����C�������R�YRRRRbpvz
��>?�}����R�YR|RRR�R�����>��}�����>��}��>K�}��>M�}������]�R���>1���������>��}���R���>	���������>W�}��>��}��>�������������������������]R���>�����goption-spec->value-policy��g$%option-spec->value-policy-procedure��gm-70fb8ec09b0a817-519���A�����fl-70fb8ec09b0a817-51b�����CT�����R�YRRRRbpvz��>]�}��\����<���R�YR|RRR�R�����>h�}��\���;��<������fl-70fb8ec09b0a817-51e��fl-70fb8ec09b0a817-51f������C�������R�YRRRRbpvz
��>��}��>��}��]�R���>1�����������>��}��\���;��<��fl-70fb8ec09b0a817-523�fl-70fb8ec09b0a817-524���C����R�YRRRRbpvz
�>�}�>�}�R��>	���	�
>��}�\
�;�<�
fl-70fb8ec09b0a817-528�fl-70fb8ec09b0a817-529�
�C����R�YRRRRbpvz
�>�}�>�}�]R��>�����gt-70fb8ec09b0a817-518��fl-70fb8ec09b0a817-52d��C���R�YRRRRbpvz
�>?}��R�YR|RRR�R���� >�}�! �">�}�#>K}�$>M}�%$ �&]R��'>1&��(#%'�)>�}�*R��+>	*��,) +�->W}�.>�}�/>�&��0./�1- 0�2"(,1�3!2�4]R��5>�4��6geach�7<<�867�9<8��:<9��;<:��<g%%set-fields�=gdummy�>gcheck?�?gexpr�@=>�}?�Agm-70fb8ec09b0a817-534�BAA�CB�����Dfl-70fb8ec09b0a817-539�Efl-70fb8ec09b0a817-53a�Ffl-70fb8ec09b0a817-53b�Gfl-70fb8ec09b0a817-53c�Hfl-70fb8ec09b0a817-53d�IDEFGH�JC@CI�KB�Lfl-70fb8ec09b0a817-536�ML�NCTKM�Ogt-1e8ba8b5a-16a�Pgt-1e8ba8b5a-16c�Qgt-1e8ba8b5a-16b�ROPQ�Sgm-1e8ba8b5a-16d�TSA�UTTT�Vfl-1e8ba8b5a-171�Wfl-1e8ba8b5a-172�Xfl-1e8ba8b5a-173�YVWX�ZCRUY�[fl-1e8ba8b5a-167�\fl-1e8ba8b5a-168�]fl-1e8ba8b5a-169�^[\]�_C��^�`�JRNYRZRRR_��
�a><`}�b]JRN�c>1b��d>Zb��e>�b��f>�b��g>�b��h>�b��idefgh�jgmap�kj�lj�mglist�ngset-option-spec-name!�og %set-option-spec-name!-procedure�p;<<�qgm-70fb8ec09b0a817-548�rqA�sgt-70fb8ec09b0a817-546�tgt-70fb8ec09b0a817-547�ust�vrr�wfl-70fb8ec09b0a817-54d�xfl-70fb8ec09b0a817-54e�ywx�zCuvy�{r�|fl-70fb8ec09b0a817-54a�}|�~CT{}�rzR~YRRRRbpvz
��>?}��gt-1e8ba8b5a-18c��gt-1e8ba8b5a-18d������gm-1e8ba8b5a-18e���A������fl-1e8ba8b5a-192��fl-1e8ba8b5a-193������C�����gsetter��e}���fl-1e8ba8b5a-186��fl-1e8ba8b5a-187��fl-1e8ba8b5a-188�������C�����8~��fl-1e8ba8b5a-17d��fl-1e8ba8b5a-17e������C�^���gfield-specs������fl-1e8ba8b5a-179��fl-1e8ba8b5a-17a������C�^����zR~YR��R�R�����>��}��gval��>��}������>��}��>K�}��>M�}������]zR~��>1���������gstruct-set!��>��}��zR~��>
����������>W�}��>��}��>n������������������������]R~��>o����gset-option-spec-required?!��g%%set-option-spec-required?!-procedure��gm-70fb8ec09b0a817-558���A��gt-70fb8ec09b0a817-556��gt-70fb8ec09b0a817-557����������fl-70fb8ec09b0a817-55d��fl-70fb8ec09b0a817-55e������C��������fl-70fb8ec09b0a817-55a�����CT������R�YRRRRbpvz
��>?�}����R�YR��R�R�����>��}��>��}������>��}��>K�}��>M�}������]�R���>1���������>��}���R���>����������>W�}��>��}��>�������������������������]R���>�����gset-option-spec-single-char!��g'%set-option-spec-single-char!-procedure��gm-70fb8ec09b0a817-568���A��gt-70fb8ec09b0a817-566��gt-70fb8ec09b0a817-567����������fl-70fb8ec09b0a817-56d��fl-70fb8ec09b0a817-56e������C��������fl-70fb8ec09b0a817-56a�����CT������R�YRRRRbpvz
��>?�}����R�YR��R�R�����>��}��>��}������>��}��>K�}��>M�}������]�R���>1���������>��}���R��>	�������>W�}�>��}�>�������������	]R��
>�	��gset-option-spec-predicate!�g%%set-option-spec-predicate!-procedure�
gm-70fb8ec09b0a817-578�
A�gt-70fb8ec09b0a817-576�gt-70fb8ec09b0a817-577���fl-70fb8ec09b0a817-57d�fl-70fb8ec09b0a817-57e��C��fl-70fb8ec09b0a817-57a��CT�RYRRRRbpvz
�>?}��RYR��R�R����>�}�>�}� �!>�}�">K}�#>M}�$#�%]R�&>1%��'"$&�(>�}�)R�*>	)��+(*�,>W}�->�}�.>%��/-.�0,/�1!'+0�2 1�3]R�4>3��5gset-option-spec-value-policy!�6g(%set-option-spec-value-policy!-procedure�7gm-70fb8ec09b0a817-588�87A�9gt-70fb8ec09b0a817-586�:gt-70fb8ec09b0a817-587�;9:�<88�=fl-70fb8ec09b0a817-58d�>fl-70fb8ec09b0a817-58e�?=>�@C;<?�A8�Bfl-70fb8ec09b0a817-58a�CB�DCTAC�E8@RDYRRRRbpvz
�F>?E}�G�@RDYR��R�R����H>�G}�I>�G}�JHI�K>�G}�L>KG}�M>MG}�NMH�O]@RD�P>1O��QLNP�R>�G}�S@RD�T>	S��URHTI�V>WG}�W>�G}�X>5O��YWX�ZVHY�[KQUZ�\FJ[�]]RD�^>6]��_gmake-option-spec�`gsymbol->string�agfor-each�bgerror�cf$invalid getopt-long option property:�db�eb�ffno matching pattern�gfoption predicate failed: --~a�hgsingle-char�igchar?�jf#`single-char' value must be a char!�kgparse-option-spec�lgreverse�mgstring=?�nf--�ogsplit-arg-list�pgmake-regexp�qf^-([a-zA-Z]+)(.*)�rgshort-opt-rx�sf^--([^=]+)$�tglong-opt-no-value-rx�uf^--([^=]+)=(.*)�vglong-opt-with-value-rx�wgregexp-exec�xglooks-like-an-option�ygmake-string�zgoptional�{f,option must be specified with argument: --~a�|gmatch:substring�}g	assoc-ref�~fno such option: -~a�gappend��g
string-append��f-��gstring->list��f��glength��fno such option: --~a��f&option does not support argument: --~a��gprocess-options��gstop-at-first-non-optionS���	������gassq-ref��foption must be specified: --~a��gstring->symbol�C5hP[^]4	
 "54%>"G4&i'5(R(ha][CYgfilenamefice-9/getopt-long.scm�
�
��		
gnamegprogram-name�C)R*+,)-./h`�-1344545>"G445>"G445>"G6�gfmt
			Zgargs			Zgfilenamefice-9/getopt-long.scm�
�
��	
�	��	
�	
��	�	��	�	&��	�	��	&�	��	+�	��	8�	��	A�	��	D�	��	M�	��	Z�	��			Z
gnamegfatal-error�C0R1h�]�C�gname
		g	required?		goption-spec->single-char			g	predicate			gvalue-policy			gfilenamefice-9/getopt-long.scm�
�
��			gnameg%%make-option-spec-procedure�C2R4567:=�h�]C�gt-70fb8ec09b0a817-487
		gt-70fb8ec09b0a817-488		gt-70fb8ec09b0a817-489			gt-70fb8ec09b0a817-48a			gt-70fb8ec09b0a817-48b						C��6�hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/getopt-long.scm�
�
��		nC56R���1�4�1>"G	�2i�1R1h~]�$��CCvgobj
		gfilenamefice-9/getopt-long.scm�
�
��		gnameg%option-spec?-procedure�C�R45�7:�Th=]C5gt-70fb8ec09b0a817-4a0
		
		
C����hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
CVh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/getopt-long.scm�
�
��		nC5�R1YZh�]�&
�C6ygs
		gfilenamefice-9/getopt-long.scm�
�
��		gnameg%option-spec->name-procedure�C[R45Z7:���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h=]C5gt-70fb8ec09b0a817-4ac
		
		
C��Z�hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/getopt-long.scm�
�
��	�C5ZR1Y�h�]�&�C6~gs
		gfilenamefice-9/getopt-long.scm�
�
��		gnameg!%option-spec->required?-procedure�C�R45�7:���h:]��C2gerr
		gs					C�h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C�2h=]C5gt-70fb8ec09b0a817-4c7
		
		
C����hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C4h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/getopt-long.scm�
�
��	�C5�R1Y�h �]�&	�C6�gs
		gfilenamefice-9/getopt-long.scm�
�
��		gnameg#%option-spec->single-char-procedure�C5R45�7:CJOh:]��C2gerr
		gs					CRX]h:]��C2gerr
		gs					C`fkh:]��C2gerr
		gs					C��h=]C5gt-70fb8ec09b0a817-4e2
		
		
C����hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/getopt-long.scm�
�
��	�C5�R1Y�h �]�&	�C6~gs
		gfilenamefice-9/getopt-long.scm�
�
��		gnameg!%option-spec->predicate-procedure�C�R45�7:���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h=]C5gt-70fb8ec09b0a817-4fd
		
		
C����hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/getopt-long.scm�
�
��	�C5�R1Y�h �]�&	�C6�gs
		gfilenamefice-9/getopt-long.scm�
�
��		gnameg$%option-spec->value-policy-procedure�C�R45�7:���h:]��C2gerr
		gs					C�	h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C�3h=]C5gt-70fb8ec09b0a817-518
		
		
C����hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C5h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/getopt-long.scm�
�
��	�C5�R45�7:;acilmh v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/getopt-long.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R1Ynh �]�&
�C6�gs
		gval		gfilenamefice-9/getopt-long.scm�
�
��			gnameg %set-option-spec-name!-procedure�CoR45n7:p�h`]CXgt-70fb8ec09b0a817-546
		gt-70fb8ec09b0a817-547					C��n�hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/getopt-long.scm�
�
��		nC5nR1Y�h �]�&�C6�gs
		gval		gfilenamefice-9/getopt-long.scm�
�
��			gnameg%%set-option-spec-required?!-procedure�C�R45�7:p�h`]CXgt-70fb8ec09b0a817-556
		gt-70fb8ec09b0a817-557					C����hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/getopt-long.scm�
�
��		nC5�R1Y�h �]�&	�C6�gs
		gval		gfilenamefice-9/getopt-long.scm�
�
��			gnameg'%set-option-spec-single-char!-procedure�C�R45�7:ph`]CXgt-70fb8ec09b0a817-566
		gt-70fb8ec09b0a817-567					C����hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C
h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/getopt-long.scm�
�
��		nC5�R1Yh �]�&	�C6�gs
		gval		gfilenamefice-9/getopt-long.scm�
�
��			gnameg%%set-option-spec-predicate!-procedure�CR457:p2h`]CXgt-70fb8ec09b0a817-576
		gt-70fb8ec09b0a817-577					C���hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C4h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/getopt-long.scm�
�
��		nC5R1Y5h �]�&	�C6�gs
		gval		gfilenamefice-9/getopt-long.scm�
�
��			gnameg(%set-option-spec-value-policy!-procedure�C6R4557:p\h`]CXgt-70fb8ec09b0a817-586
		gt-70fb8ec09b0a817-587					C��5�hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C^h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/getopt-long.scm�
�
��		nC55R1h�]�Cygname
		gfilenamefice-9/getopt-long.scm�
�
��	
�	��		gnamegmake-option-spec�C_R_`abcef�10gh(�]
$4L5$C6C�gname
		$gval		$gt			"gfilenamefice-9/getopt-long.scm�
�	��	�	��		�	��	�	��	�	)��	"�	��	#�	��		$	CYhij�d5��h��]"�"*"�"R�$>���$ �(�6456456456�$O��&9�$.�(#�L�&
L	O�C	L
6"��`"��\"��X"��T�$k��&U�$J�(?�45$"4
>"GL�&L	�C	L6"���"���"���"����$J��&4�$)�(�L�&L	�C	L6"���"���"���"����$I��&3�$(�(�L�&L�C	L6"��5"��1"��-"��)�gexpr
	�gw		Wgx			Wgw	q�gx		q�gw	��gw�0gx	�0gw	�$gwA�gx	A�gw	^ygw��gx	��gw	��gfilenamefice-9/getopt-long.scm�
�	��	9�	��	=�	��	>�	����	����	����	����	����	����	���	���	��(�	��c�	��}�	����	����	��	�Ch0�]	44�554O�>"GC�gdesc
		.gspec		.gfilenamefice-9/getopt-long.scm�
�
��	�	��	�	 ��	�	0��	
�	 ��	�	��	�	��	�	��	�	��	#�	��		.gnamegparse-option-spec�CkRlmnhPJ]"<(45�C4�5$45��C���"���"���Bg
argument-list
		Mgyes		Bgno			Bgfilenamefice-9/getopt-long.scm�
�
��	�	��	�	��	
�	*��	�	$��	�	��	�	��	�	��	!�	��	%�	��	&�	*��	/�	8��	0�	$��	4�	��	7�	��	:�	*��	B�	��	B�	��	C�	��	M�	��		Mgnamegsplit-arg-list�CoR4piq5rR4pis5tR4piu5vRwrvth8�]	45$C45$C6�gstring
		2gt		2gt		2gfilenamefice-9/getopt-long.scm�
�
��	�	��	�	��	�	��	�	��	2�	��		2gnameglooks-like-an-option�CxRj1YZh n]�&
�"	45�Cfgspec
		 gfilenamefice-9/getopt-long.scm�
�	��	�	��	�	��		 Cy1Y�h(�]4�&		�"	455�Cxgspec
		'gfilenamefice-9/getopt-long.scm�
�	��	�	��		�	,��	#�	��	&�	��		'C5z1Y�x0{Zlwr|}~��yht]456lgc
		gfilenamefice-9/getopt-long.scm�
	)��		:��		>��		+��		C�m��t�v�ef!h(<]k454455"�"	�&			�"	4		5&P
("4

�5$�
	��"���	�
�	
���"���	�&			�"	4		5&V
("4

�5$ 	�&	
�"	4	
56	�
�	
���"���
	��"���(45�C�$���
	4	5$�
�$;4545

$
"	45




	"���4	5444455545$"5
4
54

5"��(4	5$;45
4
5$"	4
5

	"���4	5

$l4
545$"	45�&		�"	4	5$4
	5
�
	"��k6"�
	�"��C$
�$4455�C"���"���4 56
"���4gspecs
	&gargument-ls	&gstop-at-first-non-option		&gidx		&gsc-idx		&g	unclumped		#gargument-ls		#gfound		#getc		#gspec			'(gls	
	'(gw		Fgx	
Fgt	Sgc	k�gt	
v�gspec	
��gextra	��gunclumped-opts	
��gt	gopt	
Ggt	9gspec	9Ggt	
Pgopt	`�gt	k�gspec	��gfilenamefice-9/getopt-long.scm�
�
��	�	
��	�	��	�	��	�	��	�	��	#�	��	'�	��	)�	��	,�	��	H�	��	N�	��	O�	��	T�	��	Y�	(��	[�	��	_�	
��	b�	��	h�	'��	y�	��	~�	����	$����	9����	-����	����	����	����	����	����	����	(����	����	
���	���	���	���	���	$���	9���	-��	��	��	#��(	
��.	��1	��8		��<	��K	��S
		��_
	��c
	��d	��k	��n	%��v	!���	%���	2���	%���	���	���	"���	���	���	$���	)���	*���	)���	$���	(���	2���	(���	$���	<���	@���	���	���	���	���	���	��
		��
!	��!	��"	!��"	��.#	!��2#	.��6#	!��9!	��G$	��H%	��P
		��Y'	��`'	��c(	!��k(	��z)	!��~)	.���)	!���'	���*	���*	���+	'���+	!���+	���,	#���,	���2	���2	,���2	���
		���/	���.	���0	���0	���0	���0	��		���	���	>���	H��&�	��|	&	gnamegprocess-options�C�R�(jko�a1YZ��0��	h�]�&
�"	454L5�&�"	45$"$"4>"G"�&		�"	45$6Cgspec
	�gname	%�gval		%�gpred	��gfilenamefice-9/getopt-long.scm�
]	��	^	��	_	��	%^	��	,`	��	G`	��	Ma	��	Rb	��	Vb	*��	]b	��	ld	 ���d	���e	���e	 ��	�C�1YZh0�]	4��&
�"	455�C�gspec+val
		.gs	
	)gfilenamefice-9/getopt-long.scm�
g	��	i	��	
i	?��	
i	,��	+i	��	,h	��		.Ch��-/03
#�Y454�5��45�4�5	4	O>"G4
>"G	��ZCZF�gprogram-arguments
	�goption-desc-list	�gstop-at-first-non-option		�gspecifications		,�gpair		6�gsplit-ls		;�gnon-split-ls		@�g	found/etc		M�gfound		R�grest-ls			^�
gfilenamefice-9/getopt-long.scm�
4
��	!T	��	$U	��	,U	��	/V	��	4V	!��	6V	��	6U	��	;W	��	;U	��	@X	��	@U	��	CY	��	MU	��	R[	��	RU	��	U\	��	Z\	��	^\	��	^U	��	a]	��	zg	���k	���k	���k	��	�	
gstop-at-first-non-optionS	�gnameggetopt-long�g
documentationf/Process options, handling both long and short options, similar to
the glibc function 'getopt_long'.  PROGRAM-ARGUMENTS should be a value
similar to what (program-arguments) returns.  OPTION-DESC-LIST is a
list of option descriptions.  Each option description must satisfy the
following grammar:

    <option-spec>           :: (<name> . <attribute-ls>)
    <attribute-ls>          :: (<attribute> . <attribute-ls>)
                               | ()
    <attribute>             :: <required-attribute>
                               | <arg-required-attribute>
                               | <single-char-attribute>
                               | <predicate-attribute>
                               | <value-attribute>
    <required-attribute>    :: (required? <boolean>)
    <single-char-attribute> :: (single-char <char>)
    <value-attribute>       :: (value #t)
                               (value #f)
                               (value optional)
    <predicate-attribute>   :: (predicate <1-ary-function>)

    The procedure returns an alist of option names and values.  Each
option name is a symbol.  The option value will be '#t' if no value
was specified.  There is a special item in the returned alist with a
key of the empty list, (): the list of arguments that are not options
or option values.
    By default, options are not required, and option values are not
required.  By default, single character equivalents are not supported;
if you want to allow the user to use single character options, you need
to add a `single-char' clause to the option description.�CR�h C]45$CC;goptions
		gkey		gdefault			gt			gfilenamefice-9/getopt-long.scm�
m
��	p	��	p	��			gnameg
option-ref�g
documentationfqReturn value in alist OPTIONS using KEY, a symbol; or DEFAULT if not found.
The value is either a string or `#t'.�C!RCVgm
		,grtd
|�gfilenamefice-9/getopt-long.scm�	�
��	-�	��	3�	"��	5�	��	8�
����
��$�
��E�
��7��
��=��
��?��
��?��	��?��	,��?��	��?��
��?��	��?��	,��?��	��?��
��?��	��?��	,��?��	��?��
��@��
��M��
��Y�4
��[Nm
��	[P
C6

Anon7 - 2022
AnonSec Team