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

name : gap-buffer.go
GOOF----LE-8-2.0�)]V4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	g
gap-buffer�	�		gfilenameS�	
fice-9/gap-buffer.scm�	gexportsS�	ggb?�	
gmake-gap-buffer�	ggb-point�	ggb-point-min�	ggb-point-max�	ggb-insert-string!�	ggb-insert-char!�	ggb-delete-char!�	g	gb-erase!�	ggb-goto-char�	g
gb->string�	g
gb-filter!�	g	gb->lines�	ggb-filter-lines!�	gmake-gap-buffer-port�	
�	g	autoloadsS�	gsrfi�	gsrfi-13�	�	 gstring-join�	! �	"!�	#gset-current-module�	$#�	%#�	&gmake-record-type�	'gs�	(gall-sz�	)ggap-ofs�	*gaft-ofs�	+'()*�	,grecord-predicate�	-grecord-accessor�	.gs:�	/gall-sz:�	0ggap-ofs:�	1gaft-ofs:�	2grecord-modifier�	3gs!�	4gall-sz!�	5ggap-ofs!�	6gaft-ofs!�	7gdefault-initial-allocation�	8gdefault-chunk-size�	9gdefault-realloc-threshold�	:ground-up�	;grecord-constructor�	<gnew�	=gmake-string�	>gsubstring-move!�	?grealloc�	@gport?�	Ageof-object?�	Bglist->string�	Cgreverse�	Dg	read-char�	Egstring?�	Fg
string-length�	Ggerror�	Hf
bad init type�	Iginsert-prep�	Jgstring-set!�	Kgmax�	Lgmin�	Mg	point++n!�	Ng	point+-n!�	Og
string-append�	Pg	substring�	Qgstring-index�	Rfnot a gap-buffer:�	Sgmake-soft-port�	Tg
string-ref�	Ufrw�C5h� �]4	
"54%>"G4&i+5R4,ii5R4-ii'5.R4-ii(5/R4-ii)50R4-ii*51R42ii'53R42ii(54R42ii)55R42ii*56R�7R�8R	 9R8h�]���Cgn
		gfilenamefice-9/gap-buffer.scm�
�
��		�	��	
�	��	�	��		gnameground-up�C:R4;ii5<R./01=>346
h��]:4545�454545�4

>"G4>"G4>"G4>"G	6�ggb
	�ginc	�gold-s			�gall-sz		�gnew-sz		�ggap-ofs		"�gaft-ofs		+�gnew-s		4�gnew-aft-ofs		;�	gfilenamefice-9/gap-buffer.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	"�	��	%�	��	+�	��	.�	��	4�	��	;�	��	;�	��	>�	��	V�	��	p�	����	����	��	�	gnamegrealloc�C?R<3=7456@ABC:>.DEFGHhQ-1345(X445>"G4>"G4
>"G4>"G"��45$�"�4	5$�4
45545445>"G4>"G4

45
>"G4>"G4>"9G"245��"��I45
"��6"�45$�4545445>"G4>"G4

45
>"G4>"G4>"G"4>"GCIginit
		ggb	gv		q�gc	�9gacc	�9glen	�9gstring	� galloc	�glen	b�galloc	k�
gfilenamefice-9/gap-buffer.scm�
�
��	
�	��	�	��	�	��	�	��	�	��	'�	��	0�	��	D�	��	W�	��	q�	��	q�	��	t�	��	~�	����	����	!����	����	'����	5����	'����	!����	+����	����	 ����	'����	 ����	 ����	 ����	>����	 ����	 ���	 ��!�	0��,�	.��/�	;��9�	!��9�	��:�	0��A�	6��L�	��Q�	��[�	��\�	!��b�	��e�	+��k�	��n�	 ��s�	'��~�	 ����	 ����	 ����	>����	 ����	 ����	 ����	����	%����	��;		


gnamegmake-gap-buffer�C
R0h]45�Cwggb
		gfilenamefice-9/gap-buffer.scm�
�
��	�	��	
�	��		gnameggb-point�CRhq]Ciggb
		gfilenamefice-9/gap-buffer.scm�
�
��		gnameggb-point-min�CR/10h �]454545���C�ggb
		gfilenamefice-9/gap-buffer.scm�
�
��	�		��	
�	��	�	'��	�	��	�	��	�	��		gnameggb-point-max�CR019?:hP<]4545���$44
�5>"G"C4ggb
		Iglen		Iggap-ofs				Igaft-ofs			Igslack			Igfilenamefice-9/gap-buffer.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	#�		��	'�	��	(�		��	-�	��	0�	��	5�	��	:�		��		I	gnameginsert-prep�CIRFI>.5h@]45454
45>"G�6�ggb
		?gstring		?glen				?ggap-ofs			?gfilenamefice-9/gap-buffer.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	"��	,�	��	=�	��	?�	��		?	gnameggb-insert-string!�CRIJ.5h0�]
45445>"G�6�ggb
		0gchar		0ggap-ofs		
	0gfilenamefice-9/gap-buffer.scm�
�
��	�	��	
�	��	
�	��	�	��	�	��	.�	��	0�	��			0	gnameggb-insert-char!�CR5K06L/1hP ]
�$4
45�56
�$44545�56
�$CCggb
		Pgcount		Pgfilenamefice-9/gap-buffer.scm�
�
��	�		��	
�	��	�	��	�	 ��	�	��	�	��	 �		��	$�		��	(�	��	-�	��	0�	��	7�	+��	@�	(��	B�	��	D�		��	H�		��	L�	��		P	gnameggb-delete-char!�CR56/h(�]4
>"G456�ggb
		"gfilenamefice-9/gap-buffer.scm�
�
��	�	��	�	��	"�	��		"gnameg	gb-erase!�CR>56hH�]4�>"G4�>"G�6�ggb
		Agn		Ags			Aggap-ofs			Agaft-ofs			Agfilenamefice-9/gap-buffer.scm�
�
��	�	��	�	��	�	��	 �	��	)�	��	.�	��	?�	��	A�	��
		A	gnameg	point++n!�CMR>56hH]4��>"G4�>"G�6�ggb
		Dgn		Dgs			Dggap-ofs			Dgaft-ofs			Dgfilenamefice-9/gap-buffer.scm�
�
��	�	��	�	��	�	-��	�	��	#�	��	,�	��	1�	��	B�	��	D�	��		D	gnameg	point+-n!�CNRNM.01	h��]*45�$45"$"�$
45"$"Y45�
�$"74
�$"454545>"GC�ggb
	�g	new-point	�gpmax			�gt		 �gt		C�gdelta		Y�gt		_�gfilenamefice-9/gap-buffer.scm�
�
��	�	��		�	��	�	
��	�	��	�	 ��	 �	��	1�	
��	5�	��	6�	 ��	C�	��	R�	"��	Y�	��	Y�	��	_�	��	_�	
��	l�	��	p�	��	t�	����	����	 ����	.����	��	�	gnameggb-goto-char�CR.OP01h0�]	454
45544556�ggb
		,gs			,gfilenamefice-9/gap-buffer.scm�
�
��	�	��		�	��	�	��	�	"��	�	��	�	��	"�	 ��	*�	��	,�	��		,gnameg
gb->string�CRh0�]
44554>"G6�ggb
		*gstring-proc		*gnew			*gfilenamefice-9/gap-buffer.scm�
�
��	�	
��	�	��	�	
��	�	��	�	��	*�	��		*	gnameg
gb-filter!�CRQPChX8]!45"<4
5$�45�"���45�6
"���0ggb
		Ugstr			Ugstart			Kgacc			Kgt			Kgfilenamefice-9/gap-buffer.scm�
�
��	�	
��		�	��	�	��	�	
��	�	��	%�	��	&�	%��	3�	��	;�	��	>�	!��	I�	��	K�	��	K�	��	M�	��	U�	��		Ugnameg	gb->lines�CR h8�]
44554>"G4
56�ggb
		1g
lines-proc		1g	new-lines			1gfilenamefice-9/gap-buffer.scm�

��		��		��		��		��		��	'	��	1	��			1	gnameggb-filter-lines!�CRGRSha]L6Ygc
		
gfilenamefice-9/gap-buffer.scm�

	��	

	��		
Cha]L6Ygs
		
gfilenamefice-9/gap-buffer.scm�
	��	
	��		
C01/.TJ56	h�)] 4L54L54L5�$C4L5454>"G4L�>"G4L�>"GC!ggap-ofs
		{gaft-ofs		{gs		+	{gc		6	{gfilenamefice-9/gap-buffer.scm�

	��	
	��	
	��	
	��		 ��		��	"	��	%	��	+	��	.	��	6	��	9	��	O	��	V	$��	[	��	d	��	k	$��	p	��		{
CU	hP�]	45$"4>"GOOO6�ggb
		Lgt			,gfilenamefice-9/gap-buffer.scm�

��		��			��		��		
��	!	��	H		��	J	��	L	��
		Lgnamegmake-gap-buffer-port�CRC~gm
		,gfilenamefice-9/gap-buffer.scm�		Y
��	-	l	��	3	l	��	5	m	��	7	l	��	:	k
��	;	s	��	H	s
��	I	u	��	S	u	-��	U	u	��	X	u
��	Y	v	��	c	v	-��	e	v	��	h	v
��	i	w	��	s	w	-��	u	w	��	x	w
��	y	x	���	x	-���	x	���	x
���	z	���	z	-���	z	���	z
���	{	���	{	-���	{	���	{
���	|	���	|	-���	|	���	|
���	}	���	}	-���	}	���	}
����
����
����
����
����	����	+����	����
���
��	��
��
R�
��
��
����
��
g�
����
����
��{�
��D�
����
��
�
����
����
����
��k�
���
�� �
��C	 �
C6
© 2025 GrazzMean