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

name : lexer.go
GOOF----LE-8-2.020]{4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gelisp�	glexer�		�	
gfilenameS�	flanguage/elisp/lexer.scm�	gimportsS�	
gice-9�	gregex�	
�	�	�	gexportsS�	g	get-lexer�	gget-lexer/1�	�	gset-current-module�	�	�	gerror�	glexer-error�	gset-char-bit�	geof-object?�	gchar=?�	gis-char?�	g
integer->char�	 greal-character�	!gchar-alphabetic?�	"g
char->integer�	#gchar-upcase�	$gadd-control�	%g	read-char�	&g
char-numeric?�	'gunread-char�	(finvalid digit in escape-code�	)gcharcode-escape�	*a	��	+b	��	,t		��	-n	
��	.v	��	/f	��	0r	
��	1e	��	2s	 ��	3d	��	4*+,-./0123
�	5gbasic-escape-codes�	6A	��	7s	��	8H	��	9S	��	:gassq-ref�	;g
get-character�	<g	peek-char�	=f!expected - after control sequence�	>gchar>=?�	?gchar<?�	@gmake-regexp�	Af^[+-]?[0-9]+\.?$�	Bg
integer-regex�	Cf7^[+-]?([0-9]+\.?[0-9]*|[0-9]*\.?[0-9]+)(e[+-]?[0-9]+)?$�	Dgfloat-regex�	Egstring->char-set�	Ff-+=*/_~!@$%^&:<>{}?.�	Ggno-escape-punctuation�	Hglist->string�	Igreverse�	Jgregexp-exec�	Kginteger�	Lgfloat�	Mgsymbol�	Ngchar-set-contains?�	Ogget-symbol-or-number�	Pgcircular-ref�	Qgcircular-def�	Rf!invalid circular marker character�	Sgget-circular-marker�	Tg
file-port?�	Ug
port-filename�	Vg	port-line�	Wgport-column�	Xgset-source-property!�	Ygfilename�	Zgline�	[gcolumn�	\geof�	]gchar-whitespace?�	^glex�	_g	character�	`gstring�	agfunction�	bg
paren-open�	cgparen-close�	dgsquare-open�	egsquare-close�	fgquote�	gg	backquote�	hgunquote-splicing�	ifexpected @ in unquote-splicing�	jgunquote�	kg
string-length�	lfinvalid character in input�	mgstring->symbol�	nginexact->exact�	ogstring->number�	pginteger?�	qfexpected integer�	rgexact?�	sfexpected inexact float�	tfwrong number/symbol type�	ugdot�	vgbinary-ports�	w
v�	xg
eof-object�	ywx�	zwx�C5h�%H]4	
54>"Gh�-13@�gport
			gmsg			gargs				gfilenameflanguage/elisp/lexer.scm�
	'
��		(	��				
	gnameglexer-error�CRh�]��C�gchr
		
gbit		
gfilenameflanguage/elisp/lexer.scm�
	-
��		.	��			.	��		
	gnamegset-char-bit�CRh�]45$C6�gtested
		g	should-be		gfilenameflanguage/elisp/lexer.scm�
	4
��		5	��	
	5	��		6	��			gnamegis-char?�CRh�]�$6C�gchr
		gfilenameflanguage/elisp/lexer.scm�
	<
��		=	��		=	��		>	��		gnamegreal-character�C R !"#hH�]	4545$4455	@�C?�$	C@�$
C	6�gchr
		Egreal			Egfilenameflanguage/elisp/lexer.scm�
	F
��		G	��			G	��		H	��		H	��		I	��		I	��	"	I	��	$	I	.��	%	I	��	/	J	��	E	M	��
		Egnamegadd-control�C$R%&"!#'(	h�t],"�"�4545$45	0�"645$*4455	A�
�$"	
�"$	�"$���"��w$"$4>"GC6$�$C"��1"��-

"��lgport
	�gbase	�gdigits		�gearly-return		�gresult		�gprocdigs		�gcur		�gcode		F	]gvalue		b�gvalid		t�
gfilenameflanguage/elisp/lexer.scm�
	V
��		W	��		[	��		[	��		]	��		\	��		^	��	'	^	/��	(	^	��	-	_	��	7	\	��	8	`	'��	;	`	6��	C	`	'��	E	a	'��	F	`	$��	F	`	��	L	b	��	P	b	��	Z	d	��	b	[	��	j	f	��	o	f	!��	t	[	��	|	g	
���	p	���	p	���	p	1���	p	���	h	���	h	���	h	���	j	���	m	���	l	���	Y	���	Y	���	Y	���	W	��(	�	gnamegcharcode-escape�C)R45R6789%:5$;<=)">?'h�C]*M$	"	�454\5$r454545"�$C"�^�$
	4
56C�$J445-5$5445-5$"4
>"G	4
56Cx�$
	6u�$		6U�$		66405$0485$4>"G		6"��"��$M445-5$7445-5$"4
>"G4
56"���"���6;gport
	�g	in-string	�g	meta-bits		%�gcur		%�gescaped		=�gesc-code		H�gmeta		S�gfilenameflanguage/elisp/lexer.scm�
�
��	�	��	�	��	�	��	�	
��	%�	��	*�	��	6�	��	7�	��	=�	��	@�	��	H�	��	K�	��	S�	��	_�	
��	o�	��	r�	"��	|�	����	����	����	����	����	����	����	&����	����	����	����	 ����	����	"����	����	����	����	����	����	��
�	���	���	
���	���	
���	'��*�	��+�	��I�	��Q�	
��X�	��[�	 ��e�	��i�	��j�	��m�	��w�	��{�	����	����	����	����	����	����	��>	�	gnameg
get-character�C;R4@iA5BR4@iC5DR4EiF5GR%HIJBKDLM&!NG'hH�])"24545$P4455$"	45$" $"	45$	"
D45$" 45$"	4
5$�"��R4\5$45�"��24>"G4455$"	45$" $"	45$	"
D"����gport
	Bgresult-chars	8g
had-escape		8gc		
8gresult		&	jgt		q�gt	��gresult	�8gfilenameflanguage/elisp/lexer.scm�
�
��	�	��	�	��	
�	��	�	��	�	��	�	#��	�	$��	&�	#��	&�	��	.�	��	4�	��	@�	��	B�	��	L�	��	R�	��	^�	��	`�	��	f�	��	j�	��	k�	"��	q�	��	�	"����	����	"����	����	%����	����	����	����	&����	 ����	����	����	#����	$����	#����	����	���	���	���	���	�� �	��,�	��.�	��4�	��8�	��8�	��9�	��B�	��4	Bgnamegget-symbol-or-number�COR%&"PQRhx�]"84545$45	0�	
��"���	"
"���G#�$�C=�$�C6�gport
		ugresult		>gcur		
	>gval		$	4gid	F	ugtype		F	ugfilenameflanguage/elisp/lexer.scm�
�
��	�	��	�	��	
�	
��	�	��	�	��	�	��	#�	2��	$�	��	$�	��	+�	��	.�	��	4�	��	>�	��	>�	��	I�	��	V�	��	X�	��	e�	��	g�	��	q�	��	u�	��		ugnamegget-circular-marker�CSRTUVWXYZ[hP�]
�4L>"G4L>"G4L>"GC�gtoken
		Ngvalue		Ngobj			Ngfilenameflanguage/elisp/lexer.scm�
	��		��		��	
	��		0��		��	 	��	&	0��	-	��	6	��	<	0��	C	��
		N	C%\]^_;`HI'Sabcdefg<hijOMklmKnopqLrstu0h {])45$45"45�45�O4545$64	5$
6"x;�$?"74545$"	4
5$
6"���"���?�$4
56"�$�"�45"�$44556\�$f45
�$" �$"���4>"G4>"G44
55�"��m�"��b"��[#�$�450�$"u1�$"g2�$"Y3�$"K4�$"=5�$"/6�$"!7�$"8�$"9�$'4>"G45��6'�$6C(�$6)�$6[�$6]�$6'�$6`�$6,�$8445@5$445@5$66 64>"G4!>G"�$44#5
�$4>"G$6"4%56&�$>&4'4(554)5$"4*>"G6+�$9+4(54,5$4->"G"6.64.5$4	455$/6"��`"��\sgport
	gfile	)	Cgline		)	Cgcolumn		)	Cgreturn	Jgc		Jgcur	��gt	��gresult-chars	��gcur	��gescaped	ugc	�Ygmark	;Ggtype	�gstr	�gnum	v�gnum	��gfilenameflanguage/elisp/lexer.scm�
�
��	�	 ��	
�	��		 ��		 ��	!	��	"	"��	)	��	)�	��	D	��	J�	��	O	��	Y
	��	]	��	a	��	b	��	l
	��	r	��		���		���	���	���	���	���	'���	
��� 	���!	���		���	���$	���$	���$		���	���*		���+	���+	���,	
���.	���.	 ���.	.��.	 ��.	��,	
��0	��0	��!1	��73	��85	��L6	��`8	��c8	+��l8	��o8	��u7	��z:	���:	���*		���*	%���*		���	���<	���<		���=	
��!?	
��5@	��;@	
��BA	��EA	"��GA	��P=	
��TC	��WC	
��b	��fE	��iE	��r	��vF	��yF	���	���G	���G	���	���H	���H	���	���I	���I	���	���J	���J	���	���M	
���M	���M	
���M		���N	���N	���N	���N	
���P	���P	���O	���O	���Q	���Q	
���V		��X	��W		��)Z	
��*a	��1a	��6a	��7e	��Lf	��Pf	��Tg	��Ug	$��]g	��fZ	
��jn	��ko	��no	,��vo	��vo	��yp	���p	���q	���q	���q	���m	���Z	
���t	���t	*���t	���u	%���u	!���v	%���v	,���v	%���t	���z	���z	���
	���	���
	���	���	��	��	��	��	���	gnameglex�C^R^hU]L6Mgfilenameflanguage/elisp/lexer.scm�
�	��	�	
��		
Cht]OClgport
		
gfilenameflanguage/elisp/lexer.scm�

��		
gnameg	get-lexer�CR\zbdcefgjhQh�L]M$	45�C4L5H��$"�$	M�N"h�$"�$	M�N"H�$"/�$"!	�$"
�$"�$K"J$"M
�$N"CDgnext
	�g	quotation	�gkey		�gfilenameflanguage/elisp/lexer.scm�
�	��	�	��	
�	��	�	��	
�	��	�	��	�	
��	�	��	�	
��	�	��	�	��	:�	!��	<�	��	I�	��	Z�	!��	\�	��	i�	����	����	����	%����	����	��	�
Ch �]45
HHOC�gport
		glex		gfinished			gparen-level			gfilenameflanguage/elisp/lexer.scm�
�
��	�	
��	�	��		gnamegget-lexer/1�CRC@gm
		,gfilenameflanguage/elisp/lexer.scm�		
���	'
���	-
���	4
��B	<
���	F
��	V
��		y	��	x
��
>�
��
?�	��
E�	#��
G�	��
J�
��
K�	��
Q�	��
S�	��
V�
��
W�	��
]�	0��
_�	��
b�
����
����
��!N�
��"W
��%��
��	%�
C6
© 2025 GrazzMean