Server IP : 162.213.251.212 / Your IP : 3.12.150.240 [ Web Server : LiteSpeed System : Linux business55.web-hosting.com 4.18.0-553.lve.el8.x86_64 #1 SMP Mon May 27 15:27:34 UTC 2024 x86_64 User : allssztx ( 535) PHP Version : 8.1.31 Disable Function : NONE Domains : 1 Domains MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : OFF Directory : /proc/self/root/proc/self/root/proc/thread-self/root/lib64/guile/2.0/ccache/ice-9/ |
Upload File : |
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 > "