⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.23
Server IP:
178.33.27.10
Server:
Linux cpanel.dev-unit.com 3.10.0-1160.108.1.el7.x86_64 #1 SMP Thu Jan 25 16:17:31 UTC 2024 x86_64
Server Software:
Apache/2.4.57 (Unix) OpenSSL/1.0.2k-fips
PHP Version:
8.2.11
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
lib64
/
guile
/
2.0
/
ccache
/
ice-9
/
View File Name :
pretty-print.go
GOOF----LE-8-2.0&\ ] � 4 h ] g guile� � g define-module*� � � g ice-9� g pretty-print� � g filenameS� f ice-9/pretty-print.scm� g importsS� g match� � � g srfi� g srfi-1� � � � g exportsS� g truncated-print� � g set-current-module� � � g make-string� g genwrite:newline-str� g string-length� f (� g fold� f � f )� !g object->string� "g display� #g write� $g quote� %f '� &g quasiquote� 'f `� (g unquote� )f ,� *g unquote-splicing� +f ,@� ,f � -g substring� .g min� /g generic-write� 0f � 1g reverse-string-append� 2g vector->list� 3f #� 4g symbol->string� 5f .� 6g lambda� 7g lambda*� 8g let*� 9g letrec� :g define� ;g define*� <g define-public� =g define-syntax� >g let-syntax� ?g letrec-syntax� @g with-syntax� Ag if� Bg set!� Cg cond� Dg case� Eg and� Fg or� Gg let� Hg begin� Ig do� Jg syntax-rules� Kg syntax-case� Lg string-set!� Mg string-ref� Ng portS� ON �� Pg widthS� QP �� Rg max-expr-widthS� SR �� Tg display?S� UT �� Vg per-line-prefixS� WV �� XOQSUW � Yg current-output-port� ZT �� [g breadth-first?S� \[ �� ]OQZ\ � ^g %default-port-encoding� _g port-encoding� `g catch� ag encoding-error� bg !%default-port-conversion-strategy� cg error� dg with-output-to-string� e k & � ff ...� gg max� hg floor� if expected a positive width� jg length� kg cdr� lf #(� mg vector-length� ng vector-ref� og identity� pg uniform-vector?� qg format� rf #~a(� sg uniform-vector-element-type� tg uniform-vector-length� ug uniform-vector-ref� vf . � wg string-prefix?� xg string-suffix?� yg >=� zf ~a~a~a~a� {f #<� |f >� }{|�� ~l �� �� �f "� ����� �}~� � �g with-output-to-port�C 5 h�R � ]4 5 4 > "