/
/
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/command-line.go
GOOF----LE-8-2.0�H ] � 4 hg ] g guile� � g define-module*� � � g ice-9� g command-line� � g filenameS� f ice-9/command-line.scm� g exportsS� g compile-shell-switches� g version-etc� g *GPLv3+*� g *LGPLv3+*� g emit-bug-reporting-address� � g autoloadsS� g system� g vm� � g set-default-vm-engine!� g set-vm-engine!� g the-vm� � � g set-current-module� � � g gettext� g _� f �License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>. This is free software: you are free to change and redistribute it. There is NO WARRANTY, to the extent permitted by law.� !f �License LGPLv3+: GNU LGPL 3 or later <http://gnu.org/licenses/lgpl.html>. This is free software: you are free to change and redistribute it. There is NO WARRANTY, to the extent permitted by law.� "g portS� #" �� $g copyright-yearS� %$ �� &g copyright-holderS� '& �� (g copyrightS� )( �� *g licenseS� +* �� ,g command-nameS� -, �� .g packagerS� /. �� 0g packager-versionS� 10 �� 2#%')+-/1 � 3g current-output-port� 4f Free Software Foundation, Inc.� 5g format� 6f Copyright (C) ~a ~a� 7f ~a (~a) ~a � 8f ~a ~a � 9f Packaged by ~a (~a) � :f Packaged by ~a � ;g display� <g newline� =g urlS� >= �� ?. �� @g packager-bug-addressS� A@ �� B#>?A � Cg string-append� Df http://www.gnu.org/software/� Ef /� Ff Report bugs to: ~a � Gf Report ~a bugs to: ~a � Hf ~a home page: <~a> � If ?General help using GNU software: <http://www.gnu.org/gethelp/> � Jf �Evaluate code with Guile, interactively or from a script. [-s] FILE load source code from FILE, and exit -c EXPR evalute expression EXPR, and exit -- stop scanning arguments; run interactively The above switches stop argument processing, and pass all remaining arguments as the value of (command-line). If FILE begins with `-' the -s switch is mandatory. -L DIRECTORY add DIRECTORY to the front of the module load path -C DIRECTORY like -L, but for compiled files -x EXTENSION add EXTENSION to the front of the load extensions -l FILE load source code from FILE -e FUNCTION after reading script, apply FUNCTION to command line arguments --language=LANG change language; default: scheme -ds do -s script at this point --debug start with the "debugging" VM engine --no-debug start with the normal VM engine (backtraces but no breakpoints); default is --debug for interactive use, but not for `-s' and `-c'. --auto-compile compile source files automatically --fresh-auto-compile invalidate auto-compilation cache --no-auto-compile disable automatic source file compilation; default is to enable auto-compilation of source files. --listen[=P] listen on a local port or a path for REPL clients; if P is not given, the default is local port 37146 -q inhibit loading of user init file --use-srfi=LS load SRFI modules for the SRFIs in LS, which is a list of numbers like "2,13,14" -h, --help display this help and exit -v, --version display version information and exit \ read arguments from following script lines� Kg *usage*� Lg current-error-port� Mg apply� Nf Usage: ~a [OPTION]... [FILE]... � Of GNU Guile� Pf bug-guile@gnu.org� Qf "http://www.gnu.org/software/guile/� Rg assq-ref� Sg %guile-build-info� Tg packager� Ug packager-bug-address� Vg exit� Wg shell-usage� Xg current-language� Yg scheme� Zg call-with-input-string� [g read� \g eof-object?� ]g eval� ^g current-module� _g module-ref� `g resolve-module� ag eval-string� ba � cg eval-string/lang� dg load-in-vicinity� eg getcwd� fg base� gg compile� hfg � ig compile-file� jg toS� kg value� lg load/lang� mf guile� ng string-prefix?� of -� pg string=?� qf -s� rf error: � sf missing argument to `-s' switch� tf ~%� ug @@� vul � wf -c� xf missing argument to `-c' switch� yuc � zf --� {f -l� |f missing argument to `-l' switch� }f -L� ~f missing argument to `-L' switch� f -C� �f missing argument to `-C' switch� �f -x� �f missing argument to `-x' switch� �f -e� �f missing argument to `-e' switch� �g open-input-string� �g memq� �g @� ��u � �g and-map� �g symbol?� �g main� �� � �f --language=� �g quote� �g string->symbol� �g substring� �f --language� �f 'missing argument to `--language' option� �f -ds� �f )the -ds switch may only be specified once� �f --debug� �f --no-debug� �f --auto-compile� �g %load-should-auto-compile� �f --fresh-auto-compile� �g %fresh-auto-compile� �f --no-auto-compile� �f -q� �f --use-srfi=� �g map� �g string->number� �f invalid SRFI specification� �g exact?� �g integer?� �g string-split� �g use-srfis� �f --listen� �g repl� �g server� ��� � �g spawn-server� �u�� � �� � �f --listen=� �f invalid port for --listen� �g make-tcp-server-socket� �u�� � �g make-unix-domain-server-socket� �u�� � �g pathS� �f unknown argument to --listen� �f -h� �f --help� �f -v� �f --version� �g version� �g packager-version� �f unrecognized switch ~a� �f 1the `-ds' switch requires the use of `-s' as well� �g set-program-arguments� �g debug� �g control� �� � �g %� ���� � �g begin� �g append� �� � �� � �g load-user-init� �� � �� � �g set!� �g %load-extensions� �g cons� �� � �g %load-path� �� � �g %load-compiled-path� �� � �g reverse!� � � �� � �g top-repl� �� � ���� � �� � �g quit� �� � �g string-rindex�C 5 h@. � ]4 5 4 > " G iR4i 5R4i!5R23456789:;< hH � - / 0 3 # 45 # �# # 45# # # # $ 4 > " G " 4 > " G $ F $ !44 5 > " G " 44 5> " G " 4> " G 4 > " G 4 > " G 4> " G 6� g package H g version H g port H g copyright-year H g copyright-holder H g copyright H g license H g command-name H g packager H g packager-version H g filenamef ice-9/command-line.scm� A �� B �� 3 E (�� < F !�� A F ,�� G F !�� t K �� u L �� { L �� � L �� � M �� � M �� � M �� � O �� � P �� � Q �� � Q �� � Q �� � Q �� � Q �� � R �� � R �� � R �� � R �� � R �� � T �� U �� V ��/ W ��H X �� H g portS �g copyright-yearS �g copyright-holderS �g copyrightS �g licenseS �g command-nameS �g packagerS �g packager-versionS � g nameg version-etc� C RB3CDE5FGHI h� # - / 0 3 # 45 # 4 5# # 445> " G $ +$ !44 5> " G " " 44 5 > " G 456 g package � g bug-address � g port � g url � g packager � g packager-bug-address � g filenamef ice-9/command-line.scm� ] �� ^ +�� ' _ *�� + ` +�� / b +�� 1 _ *�� F d �� K d �� O d �� Q d �� X d �� f e �� l e �� m f �� r f �� v f �� x f �� � f �� � g �� � g �� � g �� � g �� � g �� � i �� � i �� � i �� � h �� � g portS �g urlS �g packagerS �g packager-bug-addressS � g nameg emit-bug-reporting-address� CR4iJ5KRL3M5<N;KOP"=Q.RST@UV h� � - . 1 3 # $ 45 " 45 $ .4> " G 4> " G " 445 > " G 4 > " G 4> " G 4 4545> " G $ 6C � g name � g fatal? � g fmt � g args � g port ) � g filenamef ice-9/command-line.scm� � �� � �� � �� % � �� ) � �� 1 � �� 2 � �� J � �� ` � �� e � �� i � �� k � �� r � �� { � �� � � �� � � �� � � �� � � �� � � �� � � �� � � ,�� � � �� � � �� � � !�� � � �� � � �� � � �� � � �� � g nameg shell-usage� CWRXYZ[\]^ h@ � ] " 14 545$ C445 > " G "���"��� � g port ; g exp 7 g filenamef ice-9/command-line.scm� � �� � �� � �� � �� � �� � �� � �� " � �� + � �� 7 � �� 7 � �� ; C_`ba h0 � ] 45 �$ 64455 6 � g str , g key , g filenamef ice-9/command-line.scm� � �� � �� � �� � �� � �� � �� " � "�� $ � �� & � 8�� ( � �� , � �� , g nameg eval-string/lang� CcRXYde_`hijk h8 � ] 45 �$ 45 64455 6 � g f 3 g key 3 g filenamef ice-9/command-line.scm� � �� � �� � �� � �� � �� � �� ! � �� % � "�� ' � �� ) � :�� + � �� 1 � �� 3 � �� 3 g nameg load/lang� ClRmnopqWCrstvwxyz{|}~������[\�������X������������������WCr�t�� hX � ] 4 5" M 456$ -45$ 45$ �$ C"���"���"���"���� g x X g n X g filenamef ice-9/command-line.scm� i �� j )�� j �� � �� � �� m -�� � *�� � �� ! � �� !k "�� (k -�� 2k &�� 3k 8�� =k &�� Ak E�� Ek &�� X C������������"E�����V�� O�*,.RST0������������� h e ] �� C ] g ext g filenamef ice-9/command-line.scm� � �� � �� C���� h f ] �� C ^ g path g filenamef ice-9/command-line.scm� � �� � �� C���� h f ] �� C ^ g path g filenamef ice-9/command-line.scm� � �� � �� C����� l hH � - . , 3 H# KHH H HHHHHHH" �( " ���45$ D45$ ]( "4J4 5> " G " �KKJ$ JJ�� " %�J � " 45$ A( "4J4 5> " G " K�� � " �45$ " �45$ >( "4J4 5> " G " �� � "���45$ =( "4J4 5> " G " �J�K� "��q45$ =( "4J4 5> " G " �J�K� "��'45$ =( "4J4 5> " G " �J�K� "���45$ �( "4J4 5> " G " 4�5454545$ ?�$ 24�5$ " 4 5$ !"��" " " ! K� "��!4#5$ %$%4&4' 55 � "���4(5$ H( "4J4) 5> " G " �$%4&�5 � "���4*5$ @J$ "4J4+ 5> " G " KJ� � "��M4,5$ K K "��.4-5$ KK "��4.5$ / "���405$ / 1 "���425$ / "���435$ K "���445$ _456O 474' 5,55( "4J48 5> " G " 9% � "��04:5$ ; � "��4<5$ �4' 54=5$ c" 4J4> 55" D4?5$ 54@5$ " �$ ABC " "���" "���" "���" 24D5$ AEF " 4J4G 55 � "��E4H5$ " 4I5$ 4J> " G J 64K5$ " 4L5$ :4MN4O5 PQRS4TUV5W4TUX5> " G J 6J4Y 56KKJ$ JJ� " J � " " J$ -J�$ " 4J4Z 5> " G " 4[J�> " G J $ " J$ J�" $ -4\]> " G 4^4_5 ]> " G " `a4bJ$ J $ " c" 4b45dJ54b45eJ54b45fJ54b4g 54bJ$ Jh� " J$ i" j 555555� C �$ 7 �K4kJ/5$ 4'J�5" JK � "�� "���� g args H g usage-name H g arg0 &H g script-cell &H g entry-point &H g user-load-path &H g user-load-compiled-path &H g user-extensions &H g interactive? &H g inhibit-user-init? &H g turn-on-debugging? &H g turn-off-debugging? &H g args >� g out >� g arg V� g args V� g port � g arg1 � g arg2 � g srfis � g where B� g t K� g t g t @Y g args �� g out �� g t +I g slash 1 g filenamef ice-9/command-line.scm� � �� � =�� � �� � �� ! � !�� " � �� & � �� > � �� D � �� P � �� S � �� V � �� V � �� [ � �� _ � !�� c � �� g � �� h � �� n � �� p � �� t � �� z � �� { � �� � � �� � � �� � � �� � � *�� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � *�� � � �� � � �� � �� � �� � �� � �� � �� � �� � �� � ��& � ��( � ��, � ��8 � ��9 ��? ��A ��E � ��K ��L � ��R � ��V � ��X ��Z � *��\ � ��a � ��p ��r ��u @��x ��{ ��� ��� ��� ��� ��� � ��� ��� � ��� � ��� � ��� ��� � *��� � ��� � ��� '��� !��� ��� ��� ��� ��� ��� ��� � ��� ��� � ��� � ��� � ��� ��� � *��� � ��� � �� �� �� �� �� �� �� �� ��$ � ��* ��+ � ��1 � ��5 � ��7 ��9 � *��; � ��@ � ��O (��R "��T ��W ��a ��b ��h ��j ��n � ��t ��u � ��{ � �� � ��� ��� � *��� � ��� � ��� ��� ,��� ��� ���! ��� ���" ��� ���' ���& ���) ���& ���* ���* &���* ���) ���+ ���) ���, ���( ��% ��/ ��/ ��2 ��"2 ��&2 ��* � ��.4 ��15 ��46 ��:6 -��<6 ��>5 ��A4 ��G4 ��O3 ��P9 ��T9 ��X9 ��\ � ��b: ��c � ��i � ��m � ��o; ��q � *��s � ��x � ���< ���= ���= .���= >���= .���= ���= ���< ���@ ���@ ���@ ��� � ���C ��� � ��� � ��� � ���D ��� � *��� � ��� � ���E ���E ���G ���G ���F ���K ���K ���K ��� � ��L ��M ��N ��P ��P ��P �� � �� Q ��#R ��/S ��0W ��6W ��8W ��< � ��?X ��KY ��L[ ��R[ ��T[ ��X � ��[\ ��^] ��j^ ��k` ��q` ��s` ��w � ��za ���b ���d ���d ���d ��� � ���e ���f ���h ���h ���h ��� � ���i ���n ���n ,���n ���i ���i ���o ��� � ��� � ��� � ���p ��� � *��� � ��� � ���r ��r ��q ��t ��t ��t �� � ��v ��"v ��*u ��+x ��/x ��3x ��7 � ��:| ��B| ��E~ ��K} ��X � ��^ � ��b � ��d� "��f � *��h � ��j � ��n� ��o� ��y� ��z� 0���� ���� >���� ���� ���� ���� "���� ���} ���� ��� � ��� � ��� � ���� ��� � *��� � ��� � ���{ ���y ���� �� � ��� ��� ��� $��� 2��� $�� � �� � ��7� ��8� ��>� ��@� ��@� ��N� $��T� 2��V� $��] � ��^� ��b� ��c� %��o� (��r� $��x� @��z� $��}� ���� 5���� ���� ���� ��� � ��� � ���� ��� � *��� � ��� � ��� � ��� � ��� � ��� � ��� � ��� � ��� � ��� � ���� ���� ���� "���� ��� � ��� � ��� � ���� �� � *�� � �� � ��� ��� ��!� ��+� ��>� ��A� ��M� ��N� ��R� $��W� ��`� ��c� ��i� %��n� ��|� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ��� ��� �� � ��� ��� ��� ��� ��� ��$� .��&� ��.� ��4� ��5� ��=� ��@� ��H� ��� H g nameg compile-shell-switches� CRC� g m , g filenamef ice-9/command-line.scm� ! �� 3 * �� 4 - �� : - �� < - �� ? , �� @ 2 �� F 2 �� H 2 �� K 1 ��� A ��� ] ��� l ��� l ��� l ��� k �� � � �� � ��V � ��.> � �� .@ C6
Ukuran: 18.2 KB