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

name : ports.go
GOOF----LE-8-2.0�]�4h4]gguile�	�	gdefine-module*�	�	�	grnrs�	gio�	gports�		�	
gfilenameS�	frnrs/io/ports.scm�	gpureS�	
gversionS�		�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gice-9�	gbinary-ports�	�	gcall-with-deferred-observers�	�	�	gmodule-use-interfaces!�	�	�	gcurrent-module�	�	 �	!gonly�	"gbase�	#"�	$gassertion-violation�	%!#$�	&genums�	'&�	(grecords�	)g	syntactic�	*()�	+g
exceptions�	,+�	-g
conditions�	.-�	/gfiles�	0/�	1gsrfi�	2gsrfi-8�	312�	4grdelim�	54�	6gexcept�	7graise�	8gdisplay�	9678�	:gprefix�	;!8�	<gguile:�	=:;<�	>gmodule-export!�	?>�	@>�	Agi/o-encoding-error-char�	Bgmake-i/o-encoding-error�	Cgi/o-encoding-error?�	Dg&i/o-encoding-error�	Egmake-i/o-decoding-error�	Fgi/o-decoding-error?�	Gg&i/o-decoding-error�	Hgstandard-error-port�	Igstandard-output-port�	Jgstandard-input-port�	Kg
put-string�	Lg	put-datum�	Mgput-char�	Nglookahead-char�	Ogget-string-n�	Pgget-string-all�	Qgget-line�	Rg	get-datum�	Sgget-char�	Tgopen-file-input/output-port�	Ugflush-output-port�	Vgmake-custom-textual-output-port�	Wgcall-with-string-output-port�	Xg call-with-bytevector-output-port�	Ygopen-file-output-port�	Zgopen-string-output-port�	[gopen-file-input-port�	\gopen-string-input-port�	]gcall-with-port�	^gport-has-set-port-position!?�	_gport-has-port-position?�	`gset-port-position!�	ag
port-position�	bgtranscoded-port�	cg
textual-port?�	dgbinary-port?�	egport-transcoder�	fg	port-eof?�	ggutf-16-codec�	hgutf-8-codec�	ig
latin-1-codec�	jgnative-transcoder�	kgtranscoder-error-handling-mode�	lgtranscoder-eol-style�	mgtranscoder-codec�	ngmake-transcoder�	ogerror-handling-mode�	pgnative-eol-style�	qg	eol-style�	rgbuffer-mode?�	sgbuffer-mode�	tgfile-options�	uABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrst4�	vgmodule-re-export!�	wv�	xv�	ygi/o-error-port�	zgmake-i/o-port-error�	{gi/o-port-error?�	|g	&i/o-port�	}g"make-i/o-file-does-not-exist-error�	~gi/o-file-does-not-exist-error?�	g&i/o-file-does-not-exist��g"make-i/o-file-already-exists-error��gi/o-file-already-exists-error?��g&i/o-file-already-exists��g make-i/o-file-is-read-only-error��gi/o-file-is-read-only-error?��g&i/o-file-is-read-only��gmake-i/o-file-protection-error��gi/o-file-protection-error?��g&i/o-file-protection��gi/o-error-filename��gmake-i/o-filename-error��gi/o-filename-error?��g
&i/o-filename��gmake-i/o-invalid-position-error��gi/o-invalid-position-error?��g&i/o-invalid-position��gmake-i/o-write-error��gi/o-write-error?��g
&i/o-write��gmake-i/o-read-error��gi/o-read-error?��g	&i/o-read��gmake-i/o-error��g
i/o-error?��g&i/o��gcurrent-error-port��gcurrent-output-port��gcurrent-input-port��g
get-string-n!��gput-bytevector��gput-u8��gmake-custom-binary-output-port��gopen-bytevector-output-port��gget-bytevector-all��gget-bytevector-some��gget-bytevector-n!��gget-bytevector-n��glookahead-u8��gget-u8��gmake-custom-binary-input-port��gopen-bytevector-input-port��g
close-port��goutput-port?��ginput-port?��gport?��geof-object?��g
eof-object��yz{|}~�����������������������������������������������6��gmodule-replace!��������gmake-syntax-transformer��������gfile-option��gmacro��g$sc-dispatch��������gany������g
syntax->datum��'���'���g	no-create��gno-fail��gno-truncate��g
syntax-object��gquote��gm-d35b14d-24��gtop������gribcage��gsym�������������fl-d35b14d-29��fl-d35b14d-2a���������������gs��������fl-d35b14d-26�����������gshift��gdummy��g	type-name��gsymbol��gconstructor-syntax��������gm-bfa5881-18������������fl-bfa5881-1d��fl-bfa5881-1e��fl-bfa5881-1f��fl-bfa5881-20��������������gx��������fl-bfa5881-1a���������������������gprivate���&��������gsyntax-violation��'���'���gsymbol->string��'���'���fnot a member of the set��������f-source expression failed to match any pattern��g_��geach-any�������g
datum->syntax��'��'������gevery�'�'�gmemq�fnot a subset of the universe�genum-set-constructor�gt-d35b14d-43�	gt-d35b14d-44�
	�gm-d35b14d-45���
�fl-d35b14d-49�fl-d35b14d-4a���

�gquoted-syms��fl-d35b14d-3b�����gquoted-universe��fl-d35b14d-39�����gsyms��fl-d35b14d-36�� ���!guniverse�"!�#fl-d35b14d-34�$#�%�"�$�&��'fl-d35b14d-31�('�)�&�(�*fl-d35b14d-2e�+*�,���+�-������ �%)�,�����.�-��/gmake-enumeration�0�/-��1gnone�2gline�3gblock�4gm-d35b14d-4d�54��6s��7�5�8fl-d35b14d-52�9fl-d35b14d-53�:89�;�67:�<5�=fl-d35b14d-4f�>=�?��<>�@5;�?�����A��@��Bgbuffer-modes�C123�Dgt-d35b14d-6c�Egt-d35b14d-6d�FDE�Ggm-d35b14d-6e�HG��IHH�Jfl-d35b14d-72�Kfl-d35b14d-73�LJK�M�FIL�Nfl-d35b14d-64�ON�P�<O�Qfl-d35b14d-62�RQ�S�<R�Tfl-d35b14d-5f�UT�V�<U�Wfl-d35b14d-5d�XW�Y�"<X�Zfl-d35b14d-5a�[Z�\�&<[�]fl-d35b14d-57�^]�_��<^�`5�M��P�S�V�Y\�_�����a�`��b�/`��cgenum-set-member?�dgenum-set-universe�e'�f'�g'/�h'/�iglf�jgcr�kgcrlf�lgnel�mgcrnel�ngls�ogm-d35b14d-76�po��qq��r�p�sfl-d35b14d-7b�tfl-d35b14d-7c�ust�v�qru�wp�xfl-d35b14d-78�yx�z��wy�{pv�z�����|��{��}g
eol-styles�~ijklmn1�gt-d35b14d-95��gt-d35b14d-96�����gm-d35b14d-97����������fl-d35b14d-9b��fl-d35b14d-9c������������fl-d35b14d-8d������w���fl-d35b14d-8b������w���fl-d35b14d-88������w���fl-d35b14d-86������"w���fl-d35b14d-83������&w���fl-d35b14d-80�������w���p��������������������������/����gignore��greplace��gm-d35b14d-9f������o�������fl-d35b14d-a4��fl-d35b14d-a5���������������fl-d35b14d-a1���������������������������gerror-handling-modes���7���gt-d35b14d-be��gt-d35b14d-bf������gm-d35b14d-c0����������fl-d35b14d-c4��fl-d35b14d-c5������������fl-d35b14d-b6����������fl-d35b14d-b4����������fl-d35b14d-b1����������fl-d35b14d-af������"����fl-d35b14d-ac������&����fl-d35b14d-a9��������������������������������������/����gmake-record-type-descriptor��*���*���g
transcoder��g	immutable��gcodec�������q���o�������grecord-constructor��*���*���g"make-record-constructor-descriptor��*���*���g%make-transcoder��gregister-record-type��*���*���grecord-predicate��*���*���gtranscoder?��grecord-accessor��*���*���g%default-port-encoding��f
ISO-8859-1��fUTF-8��fUTF-16��gwith-throw-handler��gsystem-error��gsystem-error-errno��gEACCES��gEEXIST��gENOENT��gEROFS��gwith-i/o-filename-conditions��gmemv��gEIO��gEFBIG��gENOSPC��gEPIPE��g	condition��gthrow��gwith-i/o-port-error��gwith-textual-output-conditions�������������gport�gbody0�gbody���gm-d35b14d-cb�������	fl-d35b14d-d0�
fl-d35b14d-d1�fl-d35b14d-d2�fl-d35b14d-d3�
	
��
��fl-d35b14d-cd����������������glambda���gwith-i/o-encoding-error���gwith-textual-input-conditions�gm-d35b14d-d9�������fl-d35b14d-de� fl-d35b14d-df�!fl-d35b14d-e0�"fl-d35b14d-e1�# !"�$�#�%�&fl-d35b14d-db�'&�(��%'�)�$�(�*��)�+��)�,�)�-gwith-i/o-decoding-error�.�-)�/g
port-encoding�0gport-conversion-strategy�1gerror�2g
substitute�3funsupported error handling mode�4g%make-transcoded-port�54�64�7gset-port-encoding!�8gset-port-conversion-strategy!�9gseek�:gSEEK_CUR�;gSEEK_SET�<gcatch�=<�><�?gopen-input-string�@gopen�Ag	r6rs-open�BgO_CREAT�CgO_TRUNC�DgO_EXCL�Egfile-options->mode�FgO_RDONLY�GgO_RDWR�Hgopen-output-string�Igget-output-string�JgO_WRONLY�Kgmake-soft-port�Lgstring�Mg
string-length�Nfw�Ogforce-output�P.��Q.��Rg
&i/o-encoding�Sglist->vector�T.S�U.S�Vgchar�W�VA�X.��Y.��Z.��[.��\gcondition-predicate�].\�^.\�_gcondition-accessor�`._�a._�b.��c.��d��eg
m-d35b14d-114�fe��gf��hf
l-d35b14d-119�if
l-d35b14d-11a�jhi�k�dgj�lf�mf
l-d35b14d-116�nm�o��ln�p�k�o�q��p�r��p�sgencoding-error�t�sp�urt�v�p�wgbegin�x�wp�ygkey�z�yp�{gsubr�|�{p�}gmessage�~�}p�gerrno���p���p��gchr����p��z|~������7p���Bp�����������v�������g
write-char��gwrite��gstring?��gsubstring/shared��fexpected string��g
guile:display��g
&i/o-decoding��g
m-d35b14d-148����������f
l-d35b14d-14d��f
l-d35b14d-14e�������d�������f
l-d35b14d-14a���������������������������gdecoding-error����������������w����y����{����}�������������������7����E�������������������g	read-char��gread��g	read-line��gtrim��gread-string��gmake-string��g	peek-char��gdup->inport��gdup->outport�C5h@Z�]4	

54>"G454 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4%54 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4'54 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4*54 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4,54 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4.54 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4054 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4354 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4554 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4954 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4=54 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4@ uhC]456;gfilenamefrnrs/io/ports.scm�
	
��		
C>"G4x �hC]456;gfilenamefrnrs/io/ports.scm�
	
��		
C>"G4� hC]456;gfilenamefrnrs/io/ports.scm�
	
��		
C>"G4��������������
hH~]
45&"&"�$C45	6vgfile-option
		Ggsym		Ggt				-gfilenamefrnrs/io/ports.scm�		}
��		G	C��h(c]	45$@6[gs
		"gtmp		"gfilenamefrnrs/io/ports.scm�
	}
��		"C5�R4�t�����hS]6Kgx
		
gfilenamefrnrs/io/ports.scm�
	}
��		
C��t��.0hN]CFgt-d35b14d-43
		gt-d35b14d-44					C��h��])454L54L545$"44	5
>"G45$
@6�gsym
	�gsyms		�gquoted-universe		�gquoted-syms		)�gt		4	]gtmp		d�gtmp		o�gfilenamefrnrs/io/ports.scm�		}
��	�C��h(c]	45$O@6[gs
		'gtmp		'gfilenamefrnrs/io/ports.scm�
	}
��		'C5tR4�s����123A��s�
hH]
45&"&"�$C45	6wgbuffer-mode
		Ggsym		Ggt				-gfilenamefrnrs/io/ports.scm�	�
��		G	C��h(d]	45$@6\gs
		"gtmp		"gfilenamefrnrs/io/ports.scm�
�
��		"C5sR4�B�����CChT]6Lgx
		
gfilenamefrnrs/io/ports.scm�
�
��		
C��B��abhN]CFgt-d35b14d-6c
		gt-d35b14d-6d					C��h��])454L54L545$"44	5
>"G45$
@6�gsym
	�gsyms		�gquoted-universe		�gquoted-syms		)�gt		4	]gtmp		d�gtmp		o�gfilenamefrnrs/io/ports.scm�	�
��	�C��h(d]	45$O@6\gs
		'gtmp		'gfilenamefrnrs/io/ports.scm�
�
��		'C5BRcdfhCh r]444455556jgsymbol
		gfilenamefrnrs/io/ports.scm�
�
��		gnamegbuffer-mode?�CrR4�q����ijklmn1|��q�h�}]
45&"F&"9&",&"&"&"�$	C
45
6ug	eol-style
		{gsym		{gt				agfilenamefrnrs/io/ports.scm�	�
��		{	C��h(d]	45$@6\gs
		"gtmp		"gfilenamefrnrs/io/ports.scm�
�
��		"C5qR4�}�����~~hT]6Lgx
		
gfilenamefrnrs/io/ports.scm�
�
��		
C��}����hN]CFgt-d35b14d-95
		gt-d35b14d-96					C��h��])454L54L545$"44	5
>"G45$
@6�gsym
	�gsyms		�gquoted-universe		�gquoted-syms		)�gt		4	]gtmp		d�gtmp		o�gfilenamefrnrs/io/ports.scm�	�
��	�C��h(d]	45$O@6\gs
		'gtmp		'gfilenamefrnrs/io/ports.scm�
�
��		'C5}R1ha]CYgfilenamefrnrs/io/ports.scm�
�
��		
gnamegnative-eol-style�CpR4�o�����7����o�
hH�]
45&"&"�$C45	6gerror-handling-mode
		Ggsym		Ggt				-gfilenamefrnrs/io/ports.scm�	�
��		G	C��h(d]	45$@6\gs
		"gtmp		"gfilenamefrnrs/io/ports.scm�
�
��		"C5oR4���������hT]6Lgx
		
gfilenamefrnrs/io/ports.scm�
�
��		
C�������hN]CFgt-d35b14d-be
		gt-d35b14d-bf					C��h��])454L54L545$"44	5
>"G45$
@6�gsym
	�gsyms		�gquoted-universe		�gquoted-syms		)�gt		4	]gtmp		d�gtmp		o�gfilenamefrnrs/io/ports.scm�	�
��	�C��h(d]	45$O@6\gs
		'gtmp		'gfilenamefrnrs/io/ports.scm�
�
��		'C5�R4���5�R4�4��i55�R4���i4��i5>"G��R4��i5�R4��i	5kR4��i5lR4��i
5mRp��h0�-.,3#45#6�gcodec
		-g	eol-style		-g
handling-mode			-gfilenamefrnrs/io/ports.scm�
�
��		-	gnamegmake-transcoder�CnRn�ih r][$"456jgt
		gfilenamefrnrs/io/ports.scm�
�
��		
gnamegnative-transcoder�CjR�hg]C_gfilenamefrnrs/io/ports.scm�
�
��	�	��		
gnameg
latin-1-codec�CiR�he]C]gfilenamefrnrs/io/ports.scm�
�
��	�	��		
gnamegutf-8-codec�ChR�hf]C^gfilenamefrnrs/io/ports.scm�
�
��	�	��		
gnamegutf-16-codec�CgR��������}���7h`a-1345�$"/�$" �$"�$	"
4L56Ygargs
			]gerrno		]gconstruct-condition		P	]			]


Ch�]O6�gfilename
		gthunk		gfilenamefrnrs/io/ports.scm�
�
��			gnamegwith-i/o-filename-conditions�C�R��������7�z�hH@-134545$44L54	L556
@8gargs
			Cgerrno		C			C


Ch�]O6�gport
		gmake-primary-condition		gthunk			gfilenamefrnrs/io/ports.scm�
�
��			gnamegwith-i/o-port-error�C�R4����h d]��C\gdummy
		gport		gbody0			gbody						C��h(�]	45$@6�gx
		"gtmp		"		"g
macro-typegsyntax-rules�gpatternsgportgbody0gbodyg...C5�R4���*+,.h d]��C\gdummy
		gport		gbody0			gbody						C��h(�]	45$@6�gx
		"gtmp		"		"g
macro-typegsyntax-rules�gpatternsgportgbody0gbodyg...C5R/np0172�$e3hX]45$>4545�$"�$"	4	
56C
gport
		Qgt			Qgkey		!	Mgfilenamefrnrs/io/ports.scm�
�
��	H�	'��		Qgnamegport-transcoder�g
documentationfdReturn the transcoder object associated with @var{port}, or @code{#f}
if the port has no transcoder.�CeR/h�]45�C�gport
		gfilenamefrnrs/io/ports.scm�
�
��		gnamegbinary-port?�g
documentationfZReturns @code{#t} if @var{port} does not have an associated encoding,
@code{#f} otherwise.�CdRh�]C�gport
		gfilenamefrnrs/io/ports.scm�
�
��		gnameg
textual-port?�g
documentationfLAlways returns @code{#t}, as all ports can be used for textual I/O in
Guile.�CcR�d�Nh(m]45$45"456egport
		#gfilenamefrnrs/io/ports.scm�
�
��		#gnameg	port-eof?�CfR67mk781�213h�r]45445>"G45�$4>"G":�$4	>"G"4
45>"GCjgport
	�g
transcoder	�gresult			�gkey		+�gfilenamefrnrs/io/ports.scm�
�
��	t	��	�	gnamegtranscoded-port�g
documentationf�Return a new textual port based on @var{port}, using
@var{transcoder} to encode and decode data written to or
read from its underlying binary port @var{port}.�CbR9:h�]
6�gport
		gfilenamefrnrs/io/ports.scm�

��		gnameg
port-position�g
documentationfjReturn the offset (an integer) indicating where the next octet will be
read from/written to in @var{port}.�CaR9;h�]6�gport
		goffset		gfilenamefrnrs/io/ports.scm�

��			gnamegset-port-position!�g
documentationfNSet the position where the next octet will be read from/written to
@var{port}.�C`R>ah]L6		
Ch.-13C&gargs
						


Ch �]4O5$CC�gport
		gfilenamefrnrs/io/ports.scm�

��		gnamegport-has-port-position?�g
documentationf=Return @code{#t} is @var{port} supports @code{port-position}.�C_R>`ah]L4L56		
Ch.-13C&gargs
						


Ch �]4O5$CC�gport
		gfilenamefrnrs/io/ports.scm�

��		gnamegport-has-set-port-position!?�g
documentationfBReturn @code{#t} is @var{port} supports @code{set-port-position!}.�C^R�h(+]
4>G4>"GE#gport
		(gproc		(gvals		
	(gfilenamefrnrs/io/ports.scm�
#
��		(	gnamegcall-with-port�g
documentationfCall @var{proc}, passing it @var{port} and closing @var{port} upon exit of
@var{proc}.  Return the return values of @var{proc}.�C]R�]h@�-.,3#4>G4>"G6�gproc
		?g
transcoder		?gport		 	?gextract		 	?gfilenamefrnrs/io/ports.scm�
,
��		?gnameg call-with-bytevector-output-port�CXR��?h�]Y4>ZCZF�gstr
		gfilenamefrnrs/io/ports.scm�
1
��	3	(��		gnamegopen-string-input-port�g
documentationf1Open an input port that will read from @var{str}.�C\R��@h]Y4LL>ZCZF		
C7mh@�]4O5$445>"G"C�gfilename
		:gmode		:gbuffer-mode			:g
transcoder			:gport			:gfilenamefrnrs/io/ports.scm�
6
��		:	gnameg	r6rs-open�CARc�B�C�DhH�]45$
"�45$
"�45$
"�C�gfile-options
		Dg	base-mode		Dgfilenamefrnrs/io/ports.scm�
?
��		D	gnamegfile-options->mode�CERfh3AFhH-.,3#444555##6gfilename
		Cgfile-options		Cgbuffer-mode			Cg
transcoder			Cgfilenamefrnrs/io/ports.scm�
K
��		C	gnamegopen-file-input-port�g
documentationf5Return an input port for reading from @var{filename}.�C[Rfh3AEGhP"-.,3#444555##456gfilename
		Jgfile-options		Jgbuffer-mode			Jg
transcoder			Jgfilenamefrnrs/io/ports.scm�
S
��		J	gnamegopen-file-input/output-port�g
documentationf=Return a port for reading from and writing to @var{filename}.�CTR��HIh]L6		
Ch 5]Y45ZOD-gport
		gfilenamefrnrs/io/ports.scm�
^
��	a	4��		
gnamegopen-string-output-port�g
documentationf�Return two values: an output port that will collect characters written to it
as a string, and a thunk to retrieve the characters associated with that port.�CZRfh3AEJhP-.,3#444555##456gfilename
		Jgfile-options		Jgbuffer-mode			Jgmaybe-transcoder			Jgfilenamefrnrs/io/ports.scm�
f
��		J	gnamegopen-file-output-port�g
documentationf4Return an output port for writing to @var{filename}.�CYRHIh(!]	454>"G6gproc
		!gport		!gfilenamefrnrs/io/ports.scm�
q
��		!gnamegcall-with-string-output-port�g
documentationfzCall @var{proc}, passing it a string output port. When @var{proc} returns,
return the characters accumulated in that port.�CWRKLh)]L45
6!gc
				CMh)]L
456!gs
				CNh �]OO6�gid
		gwrite!		gget-position			g
set-position!			gclose			gfilenamefrnrs/io/ports.scm�
x
��	�	��			gnamegmake-custom-textual-output-port�CVROhu]6mgport
		gfilenamefrnrs/io/ports.scm�
�
��		gnamegflush-output-port�CUR4QR|i4UW55RR4Y4[Ri55BR4^Ri5CR4aRi4cRi
55AR4����quvx�h?]����C7gdummy
		gbody					C��h(�]	45$@6�gx
		"gtmp		"		"g
documentationfBConvert Guile throws to `encoding-error' to `&i/o-encoding-error'.�g
macro-typegsyntax-rules�gpatternsgbodyg...C5R���s�h]LL6		

C7Bh�]456�gkey
		gsubr		gmessage			gerrno			gport			gchr						Ch]LLO6		
Ch~]O6vgport
		gchar		gfilenamefrnrs/io/ports.scm�
�
��			gnamegput-char�CMR���s�h]LL6		

C7Bh�]456�gkey
		gsubr		gmessage			gerrno			gport			gchr						Ch]LLO6		
Ch�]O6xgport
		gdatum		gfilenamefrnrs/io/ports.scm�
�
��			gnameg	put-datum�CLR���s�8�M$K�hXF]4L5$>L$0L$4LLLL�5L64LL4L55L6LL6L6>gfilenamefrnrs/io/ports.scm�	Q�	+��		U
C7Bh�]456�gkey
		gsubr		gmessage			gerrno			gport			gchr						Ch]LLLLO6		
Ch8�-.,3##O6�gport
		3gs		3gstart			3gcount			3gfilenamefrnrs/io/ports.scm�
�
��		3		gnameg
put-string�CKR����s�h]LL6		

C7Bh�]456�gkey
		gsubr		gmessage			gerrno			gport			gchr						Ch]LLO6		
Ch0-.,3#45O6wgobject
		*gport		*gfilenamefrnrs/io/ports.scm�
�
��		*gnamegdisplay�C8R4Q�|i4U55�R4Y4[�i55ER4^�i5FR4�-��������h?]����C7gdummy
		gbody					C��h(�]	45$@6�gx
		"gtmp		"		"g
documentationfBConvert Guile throws to `decoding-error' to `&i/o-decoding-error'.�g
macro-typegsyntax-rules�gpatternsgbodyg...C5-R�����h]L6		
C7Ehw]456ogkey
		
gsubr		
gmessage			
gerrno			
gport			
		
	Ch]LO6		
Chl]O6dgport
		gfilenamefrnrs/io/ports.scm�
�
��		gnamegget-char�CSR�����h]L6		
C7Ehw]456ogkey
		
gsubr		
gmessage			
gerrno			
gport			
		
	Ch]LO6		
Chm]O6egport
		gfilenamefrnrs/io/ports.scm�
�
��		gnameg	get-datum�CRR������h]L6		

C7Ehw]456ogkey
		
gsubr		
gmessage			
gerrno			
gport			
		
	Ch]LO6		
Chl]O6dgport
		gfilenamefrnrs/io/ports.scm�
�
��		gnamegget-line�CQR�����h]L6		
C7Ehw]456ogkey
		
gsubr		
gmessage			
gerrno			
gport			
		
	Ch]LO6		
Chr]O6jgport
		gfilenamefrnrs/io/ports.scm�
�
��		gnamegget-string-all�CPR����h@�]454
545$C�$C
6gport
		<gcount		<gs				<grv			<gfilenamefrnrs/io/ports.scm�
�
��		<	gnamegget-string-n�g
documentationf�Read up to @var{count} characters from @var{port}.
If no characters could be read before encountering the end of file,
return the end-of-file object, otherwise return a string containing
the characters read.�COR�����h]L6		
C7Ehw]456ogkey
		
gsubr		
gmessage			
gerrno			
gport			
		
	Ch]LO6		
Chr]O6jgport
		gfilenamefrnrs/io/ports.scm�
�
��		gnameglookahead-char�CNR��hd]Y4
>ZCZF\gfilenamefrnrs/io/ports.scm�
�
��		
gnamegstandard-input-port�CJR��he]Y4>ZCZF]gfilenamefrnrs/io/ports.scm�
�
��		
gnamegstandard-output-port�CIR��hd]Y4	>ZCZF\gfilenamefrnrs/io/ports.scm�
�
��		
gnamegstandard-error-port�CHRC�gm
		+giface
	2�giface
�8giface
?�giface
�Hgiface
O�giface
�Xgiface
_�giface
�hgiface
o�giface
�xgiface
gfilenamefrnrs/io/ports.scm�		
����
��<�
���
����
��E�
����
��P�
����
��!��
��#�
��'��
��(��
��)��
��*P�
��,��
��-�
��.�
��09
��1�
��3>#
��4V,
��5T1
��6�6
��7�?
��9FK
��:�S
��<�^
��>f
��?tq
��A)x
��A��
��A��
��E��
��Gs�
��J�
��L�
��L�
��O��
��QX�
��S�
��T��
��V��
��Xu�
��Y�
��Y��
��Z7�
��0	Z9
C6
© 2025 GrazzMean