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.100.218
User: edustar (269686) | Group: tty (888)
Safe Mode: OFF
Disable Function:
NONE

name : srfi-18.go
GOOF----LE-8-2.0KA]�4h�
]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-18�	�		gfilenameS�	
fsrfi/srfi-18.scm�	gimportsS�	gsrfi-34�	
�	
�	�	gexportsS�	gmake-thread�	gthread-name�	gthread-specific�	gthread-specific-set!�	g
thread-start!�	g
thread-yield!�	g
thread-sleep!�	gthread-terminate!�	gthread-join!�	g
make-mutex�	g
mutex-name�	gmutex-specific�	gmutex-specific-set!�	gmutex-state�	gmutex-lock!�	 g
mutex-unlock!�	!gmake-condition-variable�	"gcondition-variable-name�	#gcondition-variable-specific�	$g condition-variable-specific-set!�	%gcondition-variable-signal!�	&gcondition-variable-broadcast!�	'gcondition-variable-wait!�	(gcurrent-time�	)gtime?�	*g
time->seconds�	+g
seconds->time�	,gcurrent-exception-handler�	-gwith-exception-handler�	.graise�	/gjoin-timeout-exception?�	0gabandoned-mutex-exception?�	1gterminated-thread-exception?�	2guncaught-exception?�	3guncaught-exception-reason�	4 !"#$%&'()*+,-./0123#�	5g
re-exportsS�	6gcurrent-thread�	7gthread?�	8gmutex?�	9gcondition-variable?�	:6789�	;greplacementsS�	<(!.�	=gset-current-module�	>=�	?=�	@g	provided?�	Agthreads�	Bgerror�	Cf+SRFI-18 requires Guile with threads support�	Dgcond-expand-provide�	Egcurrent-module�	F�	Gg	scm-error�	Hgwrong-type-arg�	IfWrong type argument: ~S�	Jgcheck-arg-type�	Kgabandoned-mutex-exception�	Lgjoin-timeout-exception�	Mgterminated-thread-exception�	Nguncaught-exception�	Ogmake-weak-key-hash-table�	Pgobject-names�	Qgobject-specifics�	Rgthread-start-conds�	Sgthread-exception-handlers�	T
.�	U
.�	Vgsrfi-18-exception-preserver�	Wginitial-handler�	Xgmake-object-property�	Ygthread->exception�	Zgsetter�	[Z�	\Z�	]gsrfi-18-exception-handler�	^g	hashq-ref�	_g
hashq-set!�	`gcurrent-handler-stack�	ag
procedure?�	bfwith-exception-handler�	cgthunk?�	d
-�	e
-�	ffuncaught-exception-reason�	gglaunch-mutex�	hglaunch-condition-variable�	igstart-mutex�	jgstart-condition-variable�	kg
lock-mutex�	lgcall-with-new-thread�	mgsignal-condition-variable�	ngunlock-mutex�	ogwait-condition-variable�	pfthread-name�	qfthread-specific�	rfthread-specific-set!�	sf
thread-start!�	tg
hashq-remove!�	ugyield�	vgnumber?�	wf
thread-sleep!�	xginexact->exact�	ygtruncate�	zgsleep�	{gusleep�	|gwrap�	}gthread-cleanup�	~gset-thread-cleanup!�	g
cancel-thread��gjoin-thread��glength������gunchecked-unlock��gallow-external-unlock��g	recursive��f
mutex-name��fmutex-specific��fmutex-specific-set!��gmutex-owner��gthread-exited?��g	abandoned��gmutex-level��g	not-owned��g
not-abandoned��gcatch��gabandoned-mutex-error��!��!��fcondition-variable-name��fcondition-variable-specific��f condition-variable-specific-set!��gbroadcast-condition-variable��ggettimeofday��ginteger?��f
time->seconds��f
seconds->time�C5h@0�]4	
45:;<54?>"G4@iA5$"4BiC>"G4Di4Ei5F>"GGHIh �]45$C6�gpred
		 garg		 gcaller			 gfilenamefsrfi/srfi-18.scm�
	`
��		a	��	
	a	��		c	��		d	��		d	+��		d	6��	 	c	��			 	gnamegcheck-arg-type�CJRKKRLLRMMRNNR4Oi5PR4Oi5QR4Oi5RR4Oi5SRU.RVNh�]�6xgobj
		gfilenamefsrfi/srfi-18.scm�
	s
��			t	��		t	��		gnameginitial-handler�CWR4Xi5YR12\Y6h8�]	45$"45$45456C�gobj
		6gt			 gfilenamefsrfi/srfi-18.scm�
	x
��		y	
��			y	��		z	
��	$	y	��	,	{	��	4	{	��		6gnamegsrfi-18-exception-preserver�CVRVNh0�-13&C(	�"��6�gkey
			.gargs			.gfilenamefsrfi/srfi-18.scm�
	}
��	
�	��	�	��	�	$��	 �	(��	+�	(��	.�	��			.
gnamegsrfi-18-exception-handler�C]R6^S_Wh0�]4545$C6�gct
		*gt		*gfilenamefsrfi/srfi-18.scm�
�
��	�	��	�	��	
�	��	�	��	(�	1��	*�	��		*
gnamegcurrent-handler-stack�C`R6`Jabc_Se_Sh h]4LL>"GL6`gobj
		gfilenamefsrfi/srfi-18.scm�
�	��	�	��	�	��		C_Sh0q]4L>G4LL>"GEigres
		*gfilenamefsrfi/srfi-18.scm�
�	��	�	��	�	��	*�	��		*
Chp$]45454>"G4>"G4�>"G	
OO6ghandler
		ogthunk		ogct			oghl			ogfilenamefsrfi/srfi-18.scm�
�
��	�	��	�	��	�	��	�	��	�	'��	�	��	'�	��	/�	!��	4�	��	=�	��	H�	-��	M�	��	o�	��		o	gnamegwith-exception-handler�C-R`h{]45�Csgfilenamefsrfi/srfi-18.scm�
�
��	�	��	�	��			
gnamegcurrent-exception-handler�C,RLh�]�Czgobj
		gfilenamefsrfi/srfi-18.scm�
�
��	�	&��		gnamegjoin-timeout-exception?�C/RKh�]�C}gobj
		gfilenamefsrfi/srfi-18.scm�
�
��	�	)��		gnamegabandoned-mutex-exception?�C0RNh�]�$��CC�gobj
		gfilenamefsrfi/srfi-18.scm�
�
��	�	��		�	��	�	��	�	��		gnameguncaught-exception?�C2RJ2fh�]45�C�gexc
		gfilenamefsrfi/srfi-18.scm�
�
��	�	��	�	/��	
�	��	�	��		gnameguncaught-exception-reason�C3RMh�]�Cgobj
		gfilenamefsrfi/srfi-18.scm�
�
��	�	��		gnamegterminated-thread-exception?�C1Rg!hijklkmno-Whx�]4L>"G4L>"G4L>"G4L>"G4LL>"G4L>"GL6{gfilenamefsrfi/srfi-18.scm�
�	��	�	��	�	��	'�	��	9�	��	K�	��	_�	��	x�	��			x
C]_RPonh��-13�$�"454545454>"G4	O
54�>"G$4
>"G"4>"G4>"GC�gthunk
		�gname		�gn		4�glm		4�glc		4�gsm		4�gsc		4�gt		f�gfilenamefsrfi/srfi-18.scm�
�	��	�	��	�	��	�	!��	�	��	�	��	�	��	 �	��	$�	)��	&�	��	'�	��	+�	��	-�	��	.�	��	2�	)��	4�	��	4�	��	?�	��	Q�	��	f�	��	i�	
��	t�	+��	y�	
����	
����	����	
����	
��		�
CR^PJ7ph�]456�gthread
		gfilenamefsrfi/srfi-18.scm�
�
��	�	��	�	9��	�	��	�	��		gnamegthread-name�CR^QJ7qh�]456�gthread
		gfilenamefsrfi/srfi-18.scm�
�
��	�	
��	�	,��	�	
��	�	��		gnamegthread-specific�CR_QJ7rh(�]445>"GC�gthread
		#gobj		#gfilenamefsrfi/srfi-18.scm�
�
��	�	��	�	��	�	-��	�	��	�	��		#	gnamegthread-specific-set!�CR^RJ7stkmn
h�%]4455$^��4>"G4>"G4>"G4	>"G"Cgthread
		}gx		}gsmutex		"	vgscond		"	vgfilenamefsrfi/srfi-18.scm�
�
��	�	��	�	��	�	5��	�	��	�	��	�	��	�	��	�	��	"�	��	"�	��	'�	
��	;�	
��	M�	
��	_�	
��		}gnameg
thread-start!�CRuhf]4>"GC^gfilenamefsrfi/srfi-18.scm�
�
��	�	��		
gnameg
thread-yield!�CR*()vGHwIxyz{
h�]!445545$45�"%45$	�"454	4
554	4
�B@�55
�$4>"G"
�$4>"G"C�gtimeout
	�gct	�gt		L�gsecs		Z�gusecs		u�gfilenamefsrfi/srfi-18.scm�
�
��	�	
��	�	��	�	
��	�	��	�	��	�	��	�	&��	#�	#��	(�	��	2�	��	7�	%��	<�	��	@�	#��	B�	3��	D�	#��	I�	#��	J�	#��	L�	��	L�	��	O�	��	R�	��	Z�	��	Z�	��	]�	��	`�	 ��	g�	-��	q�	*��	s�	 ��	u�	��	u�	��	{�		��	�	����	����		����	����	��&	�gnameg
thread-sleep!�CR-,h z]445>"GL6rgobj
		gfilenamefsrfi/srfi-18.scm�
�	��	�	��	�	��	�	��	�	��		Chh]OL6`gcontinuation
		gfilenamefsrfi/srfi-18.scm�
�	��	�	��		Chh]OC`gthunk
		
gfilenamefsrfi/srfi-18.scm�
�
��		
gnamegwrap�C|R}c~-WVMh V]4L>"G6Ngfilenamefsrfi/srfi-18.scm�
	��			!��		!��		
CVMhM]6Egfilenamefsrfi/srfi-18.scm�
	��		*��		
Ch`�]	4545$4O>"G"4>"G4>"GC�gthread
		[gcurrent-handler			[gfilenamefsrfi/srfi-18.scm�

��		��			��		
��		��		
��	4
	
��	H	��			[gnamegthread-terminate!�CR|�Y�.Lhh�]4LL?4L54L5�$ $"4>"G"$4>"G"C�gv
		bge		bgfilenamefsrfi/srfi-18.scm�
	
��		��		��		��		��		��	#	��	)	��	.	��	I	��	J	��		b
Ch �-13H4O5KJB�gthread
			gargs			gthread-join-inner!		
	gfilenamefsrfi/srfi-18.scm�

��	
	��		��			
gnamegthread-join!�CR����_PhP�-13�$�"45$4>"G"C�gname
			Jgn	#	Jgm		#	Jgfilenamefsrfi/srfi-18.scm�
#	��	$	��	$	
��	$	��	%	
��	%	��	&	��	'	��	!(	��	#%	
��	#$	��	-)	��	.)	
��			J


gnameg
make-mutex�CR^PJ8�h�]456�gmutex
		gfilenamefsrfi/srfi-18.scm�
+
��	,	��	,	7��	,	��	,	��		gnameg
mutex-name�CR^QJ8�h�]456�gmutex
		gfilenamefsrfi/srfi-18.scm�
.
��	0	
��	0	*��	0	
��	/	��		gnamegmutex-specific�CR_QJ8�h(�]445>"GC�gmutex
		#gobj		#gfilenamefsrfi/srfi-18.scm�
2
��	3	��	4	��	4	+��	4	��	3	��		#	gnamegmutex-specific-set!�CR������h8�]	45$45$CC45
�$CC�gmutex
		5gowner			5gfilenamefsrfi/srfi-18.scm�
8
��	9	��		9	��	:	��	;	��	;	��	;	#��	#<	��	+<	��	/<	��	1<	&��	4<	1��
		5gnamegmutex-state�CR|��khM]LL@Egfilenamefsrfi/srfi-18.scm�
B	��	
B	��		

C.Khr-136jgkey
			gargs			gfilenamefsrfi/srfi-18.scm�
C	��	C	(��			
ChV]LLO6Ngfilenamefsrfi/srfi-18.scm�
@	
��	A	��	A	��		
Ch �-13H4O5KJB�gmutex
			gargs			gmutex-lock-inner!		
	gfilenamefsrfi/srfi-18.scm�
>
��	
@	��	D	��			
gnamegmutex-lock!�CRnh�-13@�gmutex
			gargs			gfilenamefsrfi/srfi-18.scm�
F
��	G	��			
gnameg
mutex-unlock!�C R�_PhH�-13�$�"45$4>"G"C�gname
			Dgn		Dgm			Dgfilenamefsrfi/srfi-18.scm�
M	��	N	��	N	
��	N	��	O	
��	O	��	O	
��	N	��	'P	��	(P	
��			D


gnamegmake-condition-variable�C!R^PJ9�h�]456�gcondition-variable
		gfilenamefsrfi/srfi-18.scm�
R
��	S	��	U	*��	S	��	S	��		gnamegcondition-variable-name�C"R^QJ9�h�]456�gcondition-variable
		gfilenamefsrfi/srfi-18.scm�
W
��	X	��	Z	.��	X	��	X	��		gnamegcondition-variable-specific�C#R_QJ9�h(�]445>"GC�gcondition-variable
		#gobj		#gfilenamefsrfi/srfi-18.scm�
\
��	]	��	^	��	`	��	^	��	]	��		#	gnameg condition-variable-specific-set!�C$Rmh�]4>"GC~gcond
		gfilenamefsrfi/srfi-18.scm�
d
��	e	��		gnamegcondition-variable-signal!�C%R�h�]4>"GC�gcond
		gfilenamefsrfi/srfi-18.scm�
h
��	i	��		gnamegcondition-variable-broadcast!�C&R�i(R�hH�]	�$9�45$
�"$�45$
�CCCC�gobj
		Dgco		%gco	,	@gfilenamefsrfi/srfi-18.scm�
o
��	p	��		p	��	q	��	q	��	q	"��	q	��	q	0��	)p	��	,r	��	,r	��	/r	"��	9r	��	=r	0��		Dgnamegtime?�C)RJ)�h(�]45$��B@��CC�gtime
		%gfilenamefsrfi/srfi-18.scm�
t
��	u	��	u	"��	
u	��	u	��	v	
��	v	��	!v	��	"v	��
		%gnameg
time->seconds�C*RJv�yxh@�]	45$+454544�B@�55�CC�gx
		>gfx		<gfilenamefsrfi/srfi-18.scm�
x
��	y	��	y	!��	
y	��	y	��	z	��	z	��	{	��	"|	��	%|	��	,|	,��	6|	)��	8|	��	:|	��	;{		��		>gnameg
seconds->time�C+RC�gm
		4gfilenamefsrfi/srfi-18.scm�		 
��	5	[		��	;	[	��	=	[		��	A	[
��	F	\	��	L	\	��	Q	\	��	Z	^
��	_	^	��	g	^	&��	l	^
��x	`
��z	f	(��}	f	"���	f
���	g	%���	g	���	g
���	h	*���	h	$���	h
���	i	!���	i	���	i
���	k	���	k
���	l	���	l
���	m	���	m
���	n	"���	n
���	r
��k	s
��l	v	��u	v
���	x
���	}
����
����
��	F�
��	��
��
��
��L�
���
����
����
��_�
��+�
��*�
����
����
��o�
��3�
��t
���
�� "
�� �+
��!�.
��"�2
��#�8
��&>>
��&�F
��(FL
��)'R
��*W
��+"\
��+�d
��,�h
��,�n
��-�o
��.�t
��0=x
��K	0?
C6
© 2025 GrazzMean