Go to the first, previous, next, last section, table of contents.


Operating System

Command Line

The variable si::*command-args* is set to the list of strings passed in when gcl is invoked.

Various flags are understood.

-eval
Call read and then eval on the command argument following -eval
-load
Load the file whose pathname is specified after -load.
-f
Replace si::*command-args* by the the list starting after -f. Open the file following -f for input, skip the first line, and then read and eval the rest of the forms in the file. This can be used as with the shells to write small shell programs:
#!/usr/local/bin/gcl.exe -f
(format t "hello world ~a~%" (nth 1 si::*command-args*))
The value si::*command-args* will have the appropriate value. Thus if the above 2 line file is made executable and called `foo' then
tutorial% foo billy
hello world billy
NOTE: On many systems (eg SunOs) the first line of an executable script file such as:
#!/usr/local/bin/gcl.exe -f
only reads the first 32 characters! So if your pathname where the executable together with the '-f' amount to more than 32 characters the file will not be recognized. Also the executable must be the actual large binary file, [or a link to it], and not just a /bin/sh script. In latter case the /bin/sh interpreter would get invoked on the file. Alternately one could invoke the file `foo' without making it executable:
tutorial% gcl -f foo "from bill"
hello world from bill
Finally perhaps the best way (why do we save the best for last.. I guess because we only figure it out after all the others..) The following file `myhello' has 4 lines:
#!/bin/sh
#| Lisp will skip the next 2 lines on reading
exec gcl   -f "$0" $
|#
(format t "hello world ~a~%" (nth 1 si::*command-args*))
marie% chmod a+x myhello
marie% myhello bill
hello world bill
The advantage of this method is that `gcl' can itself be a shell script, which sets up environment and so on. Also the normal path will be searched to find `gcl' The disadvantage is that this would cause 2 invocations of `sh' and one invocation of `gcl'. The plan using `gcl.exe' bypasses the `sh' entirely. Inded invoking `gcl.exe' to print `hello world' is faster on most systems than a similar `csh' or `bash' script, but slightly slower than the old `sh'.
-batch
Do not enter the command print loop. Useful if the other command line arguments do something. Do not print the License and acknowledgement information. Note if your program does print any License information, it must print the GCL header information also.
-dir
Directory where the executable binary that is running is located. Needed by save and friends. This gets set as si::*system-directory*
-libdir
   -libdir `/d/wfs/gcl-2.0/'
would mean that the files like gcl-tk/tk.o would be found by concatting the path to the libdir path, ie in
`/d/wfs/gcl-2.0/gcl-tk/tk.o'
-compile
Invoke the compiler on the filename following -compile. Other flags affect compilation.
-o-file
If nil follows -o-file then do not produce an .o file.
-c-file
If -c-file is specified, leave the intermediate .c file there.
-h-file
If -h-file is specified, leave the intermediate .h file there.
-data-file
If -data-file is specified, leave the intermediate .data file there.
-system-p
If -system-p is specified then invoke compile-file with the :system-p t keyword argument, meaning that the C init function will bear a name based on the name of the file, so that it may be invoked by name by C code.

Operating System Definitions

Function: GET-DECODED-TIME ()
Package:LISP

Returns the current time in decoded time format. Returns nine values: second, minute, hour, date, month, year, day-of-week, daylight-saving-time-p, and time-zone.

Function: HOST-NAMESTRING (pathname)
Package:LISP

Returns the host part of PATHNAME as a string.

Function: RENAME-FILE (file new-name)
Package:LISP

Renames the file FILE to NEW-NAME. FILE may be a string, a pathname, or a stream.

Function: FILE-AUTHOR (file)
Package:LISP

Returns the author name of the specified file, as a string. FILE may be a string or a stream

Function: PATHNAME-HOST (pathname)
Package:LISP

Returns the host slot of PATHNAME.

Function: FILE-POSITION (file-stream &optional position)
Package:LISP

Sets the file pointer of the specified file to POSITION, if POSITION is given. Otherwise, returns the current file position of the specified file.

Function: DECODE-UNIVERSAL-TIME (universal-time &optional (timezone -9))
Package:LISP

Converts UNIVERSAL-TIME into a decoded time at the TIMEZONE. Returns nine values: second, minute, hour, date, month (1 - 12), year, day-of-week (0 - 6), daylight-saving-time-p, and time-zone. TIMEZONE in GCL defaults to 6, the time zone of Austin, Texas.

Function: USER-HOMEDIR-PATHNAME (&optional host)
Package:LISP

Returns the home directory of the logged in user as a pathname. HOST is ignored.

Variable: *MODULES*
Package:LISP A list of names of the modules that have been loaded into GCL.

Function: SHORT-SITE-NAME ()
Package:LISP

Returns a string that identifies the physical location of the current GCL.

Function: DIRECTORY (name)
Package:LISP

Returns a list of files that match NAME. NAME may be a string, a pathname, or a file stream.

Function: SOFTWARE-VERSION ()
Package:LISP

Returns a string that identifies the software version of the software under which GCL is currently running.

Constant: INTERNAL-TIME-UNITS-PER-SECOND
Package:LISP The number of internal time units that fit into a second.

Function: ENOUGH-NAMESTRING (pathname &optional (defaults *default-pathname-defaults*))
Package:LISP

Returns a string which uniquely identifies PATHNAME with respect to DEFAULTS.

Function: REQUIRE (module-name &optional (pathname))
Package:LISP

If the specified module is not present, then loads the appropriate file(s). PATHNAME may be a single pathname or it may be a list of pathnames.

Function: ENCODE-UNIVERSAL-TIME (second minute hour date month year &optional (timezone ))
Package:LISP

Does the inverse operation of DECODE-UNIVERSAL-TIME.

Function: LISP-IMPLEMENTATION-VERSION ()
Package:LISP

Returns a string that tells you when the current GCL implementation is brought up.

Function: MACHINE-INSTANCE ()
Package:LISP

Returns a string that identifies the machine instance of the machine on which GCL is currently running.

Function: ROOM (&optional (x t))
Package:LISP

Displays information about storage allocation in the following format.

Function: GET-UNIVERSAL-TIME ()
Package:LISP

Returns the current time as a single integer in universal time format.

Function: GET-INTERNAL-RUN-TIME ()
Package:LISP

Returns the run time in the internal time format. This is useful for finding CPU usage. If the operating system allows, a second value containing CPU usage of child processes is returned.

Variable: *DEFAULT-PATHNAME-DEFAULTS*
Package:LISP The default pathname-defaults pathname.

Function: LONG-SITE-NAME ()
Package:LISP

Returns a string that identifies the physical location of the current GCL.

Function: DELETE-FILE (file)
Package:LISP Deletes FILE.

Function: GET-INTERNAL-REAL-TIME ()
Package:LISP

Returns the real time in the internal time format. This is useful for finding elapsed time.

Function: MACHINE-TYPE ()
Package:LISP

Returns a string that identifies the machine type of the machine on which GCL is currently running.

Macro: TIME
Package:LISP

Syntax:

(time form)

Evaluates FORM and outputs timing statistics on *TRACE-OUTPUT*.

Function: SOFTWARE-TYPE ()
Package:LISP

Returns a string that identifies the software type of the software under which GCL is currently running.

Function: LISP-IMPLEMENTATION-TYPE ()
Package:LISP

Returns a string that tells you that you are using a version of GCL.

Function: SLEEP (n)
Package:LISP

This function causes execution to be suspended for N seconds. N may be any non-negative, non-complex number.


Go to the first, previous, next, last section, table of contents.