/
/
lib64
/
guile
/
2.0
/
ccache
/
ice-9
Server: server63.web-hosting.com (198.54.116.184)
You: 216.73.216.61
PHP 7.4.33
Dir:
/lib64/guile/2.0/ccache/ice-9
Edit:
/lib64/guile/2.0/ccache/ice-9/gap-buffer.go
GOOF----LE-8-2.0�) ] V 4 h� ] g guile� � g define-module*� � � g ice-9� g gap-buffer� � g filenameS� f ice-9/gap-buffer.scm� g exportsS� g gb?� g make-gap-buffer� g gb-point� g gb-point-min� g gb-point-max� g gb-insert-string!� g gb-insert-char!� g gb-delete-char!� g gb-erase!� g gb-goto-char� g gb->string� g gb-filter!� g gb->lines� g gb-filter-lines!� g make-gap-buffer-port� � g autoloadsS� g srfi� g srfi-13� � g string-join� ! � "! � #g set-current-module� $# � %# � &g make-record-type� 'g s� (g all-sz� )g gap-ofs� *g aft-ofs� +'()* � ,g record-predicate� -g record-accessor� .g s:� /g all-sz:� 0g gap-ofs:� 1g aft-ofs:� 2g record-modifier� 3g s!� 4g all-sz!� 5g gap-ofs!� 6g aft-ofs!� 7g default-initial-allocation� 8g default-chunk-size� 9g default-realloc-threshold� :g round-up� ;g record-constructor� <g new� =g make-string� >g substring-move!� ?g realloc� @g port?� Ag eof-object?� Bg list->string� Cg reverse� Dg read-char� Eg string?� Fg string-length� Gg error� Hf bad init type� Ig insert-prep� Jg string-set!� Kg max� Lg min� Mg point++n!� Ng point+-n!� Og string-append� Pg substring� Qg string-index� Rf not a gap-buffer:� Sg make-soft-port� Tg string-ref� Uf rw�C 5 h� � ]4 "5 4% > " G 4&i+5R4,ii5R4-ii'5.R4-ii(5/R4-ii)50R4-ii*51R42ii'53R42ii(54R42ii)55R42ii*56R �7R �8R 9R8 h � ] ���C g n g filenamef ice-9/gap-buffer.scm� � �� � �� � �� � �� g nameg round-up� C:R4;ii5<R./01=>346 h� � ]:4 54 5�4 54 545�4 > " G 4> " G 4 > " G 4 > " G 6 � g gb � g inc � g old-s � g all-sz � g new-sz � g gap-ofs " � g aft-ofs + � g new-s 4 � g new-aft-ofs ; � g filenamef ice-9/gap-buffer.scm� � �� � �� � �� � �� � �� � �� � �� � �� " � �� % � �� + � �� . � �� 4 � �� ; � �� ; � �� > � �� V � �� p � �� � � �� � � �� � g nameg realloc� C?R<3=7456@ABC:>.DEFGH h Q - 1 3 45 ( X445> " G 4> " G 4 > " G 4> " G " � �45$ �" �4 5$ �4 45545445> " G 4> " G 4 45 > " G 4> " G 4> " 9G " 245��"��I45 "��6" �45$ �4545445> " G 4> " G 4 45 > " G 4> " G 4> " G " 4> " G C I g init g gb g v q� g c �9 g acc �9 g len �9 g string � g alloc � g len b� g alloc k� g filenamef ice-9/gap-buffer.scm� � �� � �� � �� � �� � �� � �� ' � �� 0 � �� D � �� W � �� q � �� q � �� t � �� ~ � �� � � �� � � !�� � � �� � � '�� � � 5�� � � '�� � � !�� � � +�� � � �� � � �� � � '�� � � �� � � �� � � �� � � >�� � � �� � � �� � ��! � 0��, � .��/ � ;��9 � !��9 � ��: � 0��A � 6��L � ��Q � ��[ � ��\ � !��b � ��e � +��k � ��n � ��s � '��~ � ��� � ��� � ��� � >��� � ��� � ��� � ��� � ��� � %��� � �� ; g nameg make-gap-buffer� C R0 h ]4 5�C w g gb g filenamef ice-9/gap-buffer.scm� � �� � �� � �� g nameg gb-point� CR h q ]C i g gb g filenamef ice-9/gap-buffer.scm� � �� g nameg gb-point-min� CR/10 h � ]4 54 54 5���C � g gb g filenamef ice-9/gap-buffer.scm� � �� � �� � �� � '�� � �� � �� � �� g nameg gb-point-max� CR019?: hP < ]4 54 5���$ 4 4 �5> " G " C 4 g gb I g len I g gap-ofs I g aft-ofs I g slack I g filenamef ice-9/gap-buffer.scm� � �� � �� � �� � �� � �� � �� � �� � �� # � �� ' � �� ( � �� - � �� 0 � �� 5 � �� : � �� I g nameg insert-prep� CIRFI>.5 h@ ]454 54 4 5> " G �6 � g gb ? g string ? g len ? g gap-ofs ? g filenamef ice-9/gap-buffer.scm� � �� � �� � �� � �� � �� � �� � "�� , � �� = � �� ? � �� ? g nameg gb-insert-string!� CRIJ.5 h0 � ] 4 544 5> " G �6� g gb 0 g char 0 g gap-ofs 0 g filenamef ice-9/gap-buffer.scm� � �� � �� � �� � �� � �� � �� . � �� 0 � �� 0 g nameg gb-insert-char!� CR5K06L/1 hP ] �$ 4 4 5�56 �$ 44 54 5�56 �$ CC g gb P g count P g filenamef ice-9/gap-buffer.scm� � �� � �� � �� � �� � �� � �� � �� � �� $ � �� ( � �� - � �� 0 � �� 7 � +�� @ � (�� B � �� D � �� H � �� L � �� P g nameg gb-delete-char!� CR56/ h( � ]4 > " G 4 56 � g gb " g filenamef ice-9/gap-buffer.scm� � �� � �� � �� " � �� " g nameg gb-erase!� CR>56 hH � ]4�> " G 4 �> " G �6 � g gb A g n A g s A g gap-ofs A g aft-ofs A g filenamef ice-9/gap-buffer.scm� � �� � �� � �� � �� � �� ) � �� . � �� ? � �� A � �� A g nameg point++n!� CMR>56 hH ]4��> " G 4 �> " G �6 � g gb D g n D g s D g gap-ofs D g aft-ofs D g filenamef ice-9/gap-buffer.scm� � �� � �� � �� � -�� � �� # � �� , � �� 1 � �� B � �� D � �� D g nameg point+-n!� CNRNM.01 h� � ]*4 5�$ 4 5" $ " �$ 4 5" $ " Y4 5� �$ " 74 �$ " 4 54 54 5> " G C � g gb � g new-point � g pmax � g t � g t C � g delta Y � g t _ � g filenamef ice-9/gap-buffer.scm� � �� � �� � �� � �� � �� � �� � �� 1 � �� 5 � �� 6 � �� C � �� R � "�� Y � �� Y � �� _ � �� _ � �� l � �� p � �� t � �� � � �� � � �� � � .�� � � �� � g nameg gb-goto-char� CR.OP01 h0 � ] 4 54 4 5544 556 � g gb , g s , g filenamef ice-9/gap-buffer.scm� � �� � �� � �� � �� � "�� � �� � �� " � �� * � �� , � �� , g nameg gb->string� CR h0 � ] 44 554 > " G 6 � g gb * g string-proc * g new * g filenamef ice-9/gap-buffer.scm� � �� � �� � �� � �� � �� � �� * � �� * g nameg gb-filter!� CRQPC hX 8 ]!4 5" <4 5$ �45�"���45�6 "��� 0 g gb U g str U g start K g acc K g t K g filenamef ice-9/gap-buffer.scm� � �� � �� � �� � �� � �� � �� % � �� & � %�� 3 � �� ; � �� > � !�� I � �� K � �� K � �� M � �� U � �� U g nameg gb->lines� CR h8 � ] 44 554 > " G 4 56 � g gb 1 g lines-proc 1 g new-lines 1 g filenamef ice-9/gap-buffer.scm� �� �� �� �� �� �� ' �� 1 �� 1 g nameg gb-filter-lines!� CRGRS h a ]L 6 Y g c g filenamef ice-9/gap-buffer.scm� �� �� C h a ]L 6 Y g s g filenamef ice-9/gap-buffer.scm� �� �� C01/.TJ56 h� ) ] 4L 54L 5 4L 5�$ C4L 5454 > " G 4L �> " G 4L �> " G C ! g gap-ofs { g aft-ofs { g s + { g c 6 { g filenamef ice-9/gap-buffer.scm� �� �� �� �� �� �� " �� % �� + �� . �� 6 �� 9 �� O �� V $�� [ �� d �� k $�� p �� { CU hP � ] 4 5$ " 4 > " G O O O 6 � g gb L g t , g filenamef ice-9/gap-buffer.scm� �� �� �� �� �� ! �� H �� J �� L �� L g nameg make-gap-buffer-port� CRC ~ g m , g filenamef ice-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
Ukuran: 10.4 KB