shell bypass 403

GrazzMean Shell

: /proc/self/root/lib64/guile/2.0/ccache/ice-9/ [ drwxr-xr-x ]
Uname: Linux web3.us.cloudlogin.co 5.10.226-xeon-hst #2 SMP Fri Sep 13 12:28:44 UTC 2024 x86_64
Software: Apache
PHP version: 8.1.31 [ PHP INFO ] PHP os: Linux
Server Ip: 162.210.96.117
Your Ip: 3.145.50.123
User: edustar (269686) | Group: tty (888)
Safe Mode: OFF
Disable Function:
NONE

name : 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
© 2025 GrazzMean