The “POSIX” module makes some system calls available from lisp. Not all of these system calls are actually POSIX, so this package has a nickname “OS”. If the package prefix is not specified below, the symbol resides in this package.
This module is present in the base linking set by default.
When this module is present, *FEATURES*
contains the symbol :SYSCALLS.
(POSIX:RESOLVE-HOST-IPADDR
&OPTIONAL host)Returns the HOSTENT structure:
When host is omitted or :DEFAULT, return the data for the
current host. When host is NIL, all the
host database is returned as a list (this would be the contents of the
/etc/hosts file on a UNIX system or
${windir}/system32/etc/hosts on a Win32 system).
This is an interface
to gethostent,
gethostbyname,
and gethostbyaddr.
(OS:SERVICE &OPTIONAL
service-name protocol)A convenience function for looking up a port given
the service name, such as “WWW” or “FTP”.
It returns the SERVICE structure
(name, list of aliases, port, protocol) for the given
service-name and protocol,
or all services as a LIST if service-name
is missing or NIL.
This is an interface
to getservent,
getservbyname,
and getservbyport.
(POSIX:FILE-STAT
pathname &OPTIONAL link-p)Return the FILE-STAT structure.
pathname can be a STREAM, a PATHNAME, a STRING or a
NUMBER (on a UNIX system, meaning file descriptor).
The first slot of the structure returned is the string or the
number on which stat,
fstat,
or lstat was called.
The other slots are numbers, members of the struct stat:
devinomodenlinkuidgidrdevsizeatimemtimectimeblksizeblocksAll slots are read-only.
If the system does not support a particular field (e.g.,
Win32 prior to 2000 does not have hard links), NIL (or the
default, like 1 for the number of hard links for old Win32) is
returned.
Normally, one would expect (POSIX:FILE-STAT
"foo") and (POSIX:FILE-STAT ( to
return “similar” objects (OPEN "foo"))OPENing a file changes its
access time though). This is not the case on Win32, where
stat works but fstat does not.
Specifically, fstat requires an int argument of an unknown
nature, and it is not clear how do deduce it from the Win32 file handle.
Therefore, instead of always failing on open FILE-STREAM arguments,
this function calls
GetFileInformationByHandle and
fills the FILE-STAT return value based on that.
(POSIX:SET-FILE-STAT
pathname &KEY :ATIME :MTIME :MODE :UID :GID)chmod,
chown,
and utime.
(POSIX:STAT-VFS pathname)Return a STAT-VFS structure.
pathname can be a STREAM, a PATHNAME, a STRING or a
NUMBER (on a UNIX system, meaning file descriptor).
The first slot of the structure returned is the string
or the number on which statvfs or
fstatvfs was called.
The other slots are members of the struct statvfs:
bsizefrsizeblocksfrsize.bfreebavailfilesffreefavailfsidflag:READ-ONLY.
namemaxvol-namefs-typeAll slots are read-only.
(POSIX:CHROOT pathname)Change the apparent disk root directory for the current
running process (and its children) using
chroot.
Unless the process has superuser privileges, the operation will
probably fail with EPERM.
(POSIX:FILE-TREE-WALK pathname
function &KEY FD-LIMIT CHDIR DEPTH MOUNT PHYS)For each object under pathname calls function with 5
arguments:
NIL, see below)a keyword giving additional information. Its value is one of the following:
:F:D:DP:DEPTH argument is non-NIL.)
:SLPHYS argument is non-NIL.)
:SLNPHYS argument is NIL.)
:DNR:NSstat function
failed on the object because of lack of appropriate permission.
The FILE-STAT argument is NIL.
If stat fails for any other reason,
and ERROR is SIGNALed.
function.As soon as function returns non-NIL, this function returns that
value; if function always returns NIL, then this function also returns
NIL when the file tree is exhausted.
The :FD-LIMIT argument defaults to 5.
If :CHDIR argument is non-NIL, the function
shall change the current working directory to each directory as it reports
files in that directory
If :DEPTH argument is non-NIL, the function
shall report all files in a directory before reporting the directory
itself.
If :MOUNT argument is non-NIL, the function
shall only report files in the same file system as pathname.
If :PHYS argument is non-NIL, the function
shall perform a physical walk and shall not follow symbolic links.
Calls nftw.
(OS:FILE-INFO pathname
&OPTIONAL all)Return the FILE-INFO structure.
pathname should be a pathname designator. The 7 slots are
attributes |
ctime |
atime |
wtime |
size |
name |
name-short |
When pathname is wild, returns just the first match,
unless the second (optional) argument is non-NIL, in which case a
LIST of objects is returned, one for each match.
(POSIX:STREAM-LOCK stream
lock-p &KEY
(:BLOCK T) (:SHARED NIL) (:START 0) (:END NIL))Set or remove a file lock for the (portion of the)
file associated with stream,
depending on lock-p.
When block is NIL, the call is non-blocking,
and when locking fails, it returns NIL.
When shared is non-NIL,
then lock can be shared between several callers.
Several processes can set a shared
(i.e., read) lock, but only one can set
an exclusive (i.e., write,
or non-shared) lock.
Uses fcntl
or LockFileEx.
(POSIX:WITH-STREAM-LOCK
(stream &REST options) &BODY body)stream, execute the body, unlock
the stream. Pass options to POSIX:STREAM-LOCK.
(POSIX:STREAM-OPTIONS
stream command &OPTIONAL value)Call fcntl,
command can be :FD or :FL.
When value is missing, the option is queried and
the value is returned; if value is supplied, the option is set and
no values are returned.
(POSIX:FILE-SIZE file)(SETF (POSIX:FILE-SIZE file) size)Extend FILE-LENGTH to operate on pathname designators.
Set the size of a file using
ftruncate (if file is an open
FILE-STREAM) or truncate (if
file is a pathname designator).
Use SetFilePointerEx
and SetEndOfFile on Win32.
(POSIX:MKNOD pathname type
mode)mknod.
Use :FIFO to create pipes
and :SOCK to create sockets.
(POSIX:CONVERT-MODE mode)0644)
and symbolic (e.g., (:RUSR :WUSR :RGRP
:ROTH)) file modes.(POSIX:UMASK mode)umask.
(POSIX:COPY-FILE source destination
&KEY :METHOD :PRESERVE :IF-EXISTS :IF-DOES-NOT-EXIST)This is an interface to
symlink
(when method is :SYMLINK),
link
(when it is :HARDLINK),
and rename
(when it is :RENAME) system calls, as well as,
you guessed it, a generic file copy utility (when method is :COPY).
When method is :HARDLINK-OR-COPY
and link fails (e.g., because the
source and destination are on different devices), fall back to :COPY.
Both source and destination may be wild, in which
case TRANSLATE-PATHNAME is used.
When preserve is non-NIL, try
to duplicate the time, owner, and permission characteristics of each
source file in the corresponding destination file,
similar to cp -p.
The meaning and defaults of :IF-EXISTS and
:IF-DOES-NOT-EXIST are the same as in OPEN.
The actual destination file created is
( so that
MERGE-PATHNAMES source destination)( creates
POSIX:COPY-FILE "foo" "dir/")"dir/foo" and
( creates
POSIX:COPY-FILE "foo.csv" "bar")"bar.csv".
If you want to actually copy "foo.csv" to
"bar", do
(.
POSIX:COPY-FILE (MAKE-PATHNAME :name "foo.csv") "bar")
(POSIX:DUPLICATE-HANDLE
fd1 &OPTIONAL
fd2)dup system calls on
UNIX systems and to DuplicateHandle
system call on Win32.(OS:SHORTCUT-INFO
pathname)#P".lnk") file contents in a
SHORTCUT-INFO structure.(OS:MAKE-SHORTCUT pathname
&KEY :WORKING-DIRECTORY :ARGUMENTS :SHOW-COMMAND :ICON :DESCRIPTION
:HOT-KEY :PATH)#P".lnk") file.
(OS:FILE-PROPERTIES
filename set &KEY :INITID &ALLOW-OTHER-KEYS)Wrapper for the Win32
IPropertyStorage functionality.
filenameset:BUILT-IN
or :USER-DEFINED
:INITID
init-idinit-id
specifier valuespecifierthe property specifier: an INTEGER,
KEYWORD, STRING or a LIST of an INTEGER or a
KEYWORD and a STRING.
INTEGERKEYWORDPredefined KEYWORD IDs are
:APPNAME | :CREATE-DTM | :LASTPRINTED | :SUBJECT |
:AUTHOR | :DOC-SECURITY | :LASTSAVE-DTM | :TEMPLATE |
:CHARCOUNT | :EDITTIME | :LOCALE | :THUMBNAIL |
:CODEPAGE | :KEYWORDS | :PAGECOUNT | :TITLE |
:COMMENTS | :LASTAUTHOR | :REVNUMBER | :WORDCOUNT |
STRINGINTEGER|KEYWORD
STRING)
valuethe new value of the property, a suitable Lisp
object, NIL or a LIST of a KEYWORD and the value
itself. If value is NIL, no assignment is done.
:EMPTY and :NULL
correspond to the VT_EMPTY
and VT_NULL data types.
KEYWORD in the LIST specifies the desired type of
the property being set.
Supported types are
:BOOL | :I1 | :LPWSTR | :UI4 |
:BSTR | :I2 | :R4 | :UI8 |
:DATE | :I4 | :R8 | :UINT |
:ERROR | :I8 | :UI1 | |
:FILETIME | :LPSTR | :UI2 |
FILETIMEs are converted to/from the universal time format, while DATEs are not.
Returns the property contents before assignment as multiple values.
(OS:FILE-OWNER
filename)Return the owner of the file.
(POSIX:MKSTEMP filename
&KEY :DIRECTION :ELEMENT-TYPE :EXTERNAL-FORMAT :BUFFERED)Calls mkstemp;
returns a FILE-STREAM.
:DIRECTION should allow output.
(POSIX:MKDTEMP
filename)mkdtemp;
creates a new empty temporary directory and returns its namestring.
(POSIX:SYNC &OPTIONAL
stream)fsync
(FlushFileBuffers on Win32)
on the file descriptor associated with stream,
or sync
when stream is not supplied(POSIX:USER-INFO
&OPTIONAL user)Return the USER-INFO structure (name,
encoded password, UID, GID, full name, home directory, shell).
user should be a STRING
(getpwnam is used) or an INTEGER
(getpwuid is used).
When user is missing or NIL, return all
users (using getpwent).
When user is :DEFAULT, return the information about the current user
(using getlogin).
Platform Dependent: UNIX platform only.
(POSIX:GROUP-INFO
&OPTIONAL group)Return the GROUP-INFO structure (name,
GID, member LIST). group should be a
STRING (getgrnam is used) or an
INTEGER (getgrgid is used).
When group is missing or NIL, return all
groups (using getgrent).
Platform Dependent: UNIX platform only.
(POSIX:USER-SHELLS)getusershell.
(OS:GET-USER-SID
&OPTIONAL user)LookupAccountName
on user or, if that is not supplied, call
OpenProcessToken,
GetTokenInformation, and then
ConvertSidToStringSid on
User.Sid.(POSIX:UNAME)uname.(POSIX:SYSCONF &OPTIONAL what)(POSIX:CONFSTR &OPTIONAL what)what is missing or
NIL), by calling sysconf
and confstr respectively.
(POSIX:PATHCONF pathname
&OPTIONAL what)what is missing or
NIL), by calling fpathconf on
open file streams and pathconf on
all other pathname designators.(POSIX:RLIMIT
&OPTIONAL what)what is specified or the property list of all available
limits (as an RLIMIT structure) when what is
missing or NIL, by calling getrlimit.
(SETF (POSIX:RLIMIT what)
(VALUES cur
max))(SETF (POSIX:RLIMIT what)
rlimit)(SETF (POSIX:RLIMIT)
rlimit-plist)Set the limits using
setrlimit.
cur
and max are numbers
(or NIL for RLIM_INFINITY).rlimit
is an RLIMIT structure.rlimit-plist is a property list, as returned by
(POSIX:RLIMIT).(POSIX:USAGE
&OPTIONAL what)getrusage. WHen what is missing
or NIL, return all available data as a property list.
(POSIX:BOGOMIPS)(POSIX:LOADAVG &OPTIONAL
percentp)getloadavg.
If the argument is specified and non-NIL, the values are returned
as integer percentiles.(OS:SYSTEM-INFO)(OS:VERSION)(OS:MEMORY-STATUS)(OS:PHYSICAL-MEMORY)Return 2 values: total and available physical memory.
(OS:HOSTID)(SETF (OS:HOSTID) value)Call gethostid and
return a (hopefully) universally unique INTEGER identifier of
this machine.
On Linux this number appears to be the IPv4 32-bit address with the first 2 bytes and the last 2 bytes swapped:
(RAWSOCK:CONVERT-ADDRESS:inet (os:hostid)) ⇒"7.3.192.168"(first (posix:hostent-addr-list (POSIX:RESOLVE-HOST-IPADDR:default))) ⇒"192.168.7.3"
This, of course, means that “universally unique” it is not.
Superuser can also set host identifier
using SETF which calls sethostid.
(OS:DOMAINNAME)(SETF (OS:DOMAINNAME) domain)getdomainname
and setdomainname.We implement access to
( |
( |
( |
( |
( |
( |
( |
( |
( |
( |
which compute the error functions, Bessel functions and Gamma.
These functions are required by the POSIX standard and should
be declared in <math.h>.
Please note that these functions do not provide
lisp-style error handling and precision, and do all the computations
at the DOUBLE-FLOAT level.
Function (
finds the first bit set. It is implemented in pure Lisp and supports
ffs n)BIGNUMs.
(POSIX:OPENLOG ident &KEY
:PID :CONS :NDELAY :ODELAY :NOWAIT :FACILITY)openlog
(POSIX:SETLOGMASK
maskpri)setlogmask.
(POSIX:SYSLOG severity facility
format-string &REST arguments)Calls syslog on
(.APPLY FORMAT NIL format-string arguments)
No % conversion is performed,
you must do all formatting in Lisp.
(POSIX:CLOSELOG)closelog.
(OS:PROCESS-ID)getpid,
on Win32 calls GetCurrentProcessId)
(OS:PRIORITY pid
&OPTIONAL what)(SETF (OS:PRIORITY pid &OPTIONAL what)
priority)Return or set the process priority, platform-dependent
INTEGER or platform-independent SYMBOL, one of
:REALTIME | :NORMAL | :IDLE |
:HIGH | :BELOW-NORMAL | |
:ABOVE-NORMAL | :LOW |
On UNIX calls getpriority
and setpriority, on
Win32 calls GetPriorityClass and
SetPriorityClass.
(POSIX:KILL pid signal)kill.
(POSIX:GETPPID)getppid.
(POSIX:GETPGRP)getpgrp.
(POSIX:SETPGRP)setpgrp;
on non-POSIX systems where it requires 2 arguments (legacy
BSD-style), it is called as setpgrp(0,0).
(POSIX:GETSID pid)getsid.
(POSIX:SETSID)setsid.
(POSIX:PGID pid)(SETF (POSIX:PGID pid)
pgid)getpgid and
setpgid.(POSIX:SETREUID
ruid euid)setreuid.
(POSIX:SETREGID
rgid egid)setregid.
(POSIX:UID)(SETF (POSIX:UID) uid)getuid and
setuid.(POSIX:GID)(SETF (POSIX:GID) gid)getgid and
setgid.(POSIX:EUID)(SETF (POSIX:EUID) uid)geteuid and
seteuid.(POSIX:EGID)(SETF (POSIX:EGID) gid)getegid and
setegid.(POSIX:GROUPS)(SETF (POSIX:GROUPS) list)getgroups and
setgroups.
(POSIX:WAIT &KEY :PID :USAGE
:NOHANG :UNTRACED :STOPPED :EXITED :CONTINUED :NOWAIT)Wait for termination of the child process
:PID (or any child process if not specified).
If :NOHANG is specifed, return 0
as the only value immediately if no child process has terminated.
Otherwise, the first return value is the pid of the
terminated child process.
The second and third return values depend on the way the process terminated:
:EXITEDexit statusexit.
:SIGNALEDsignalsignal.
:STOPPEDsignalsignal.:CONTINUEDNILNILnumberwaitpid
manual and send us a patch.The fourth value is only returned if :USAGE
is non-NIL and in that case it is a structure describing resource
usage by the terminated process, similar to what POSIX:USAGE returns.
To avoid race conditions, it is important to start your
subprocesses and POSIX:WAIT for them inside the body of
a POSIX:WITH-SUBPROCESSES form.
Calls waitpid and
(when the :USAGE argument is non-NIL)
wait4.
(POSIX:WITH-SUBPROCESSES
&BODY)body while receiving signals from
subprocesses; your EXT:RUN-PROGRAM and related POSIX:WAIT calls should be
inside it.(POSIX:ENDUTXENT)endutxent.
(POSIX:GETUTXENT
&OPTIONAL utmpx)getutxent,
returns a STRUCTURE-OBJECT of type POSIX:UTMPX,
which can be passed to subsequent calls to this function and re-used.
(POSIX:GETUTXID id)getutxid,
the argument is filled and returned.(POSIX:GETUTXLINE line)getutxline,
the argument is filled and returned.(POSIX:PUTUTXLINE
utmpx)pututxline,
the argument is filled and returned.(POSIX:SETUTXENT)setutxent.
(OS:STRING-TIME
format-string &OPTIONAL object timezone)object is a STRING,
it is parsed into a universal time according to format-string by
strptime.INTEGER, it is formatted according
to format-string by strftime.
object defaults to (GET-UNIVERSAL-TIME).
(OS:GETDATE string
&OPTIONAL timezone)Parse the string into a universal time using
getdate.
If the the environment variable DATEMSK is not set when
CLISP is invoked, CLISP sets it to point to the file
modules/syscalls/datemsk, installed as
(.
MERGE-PATHNAMES "syscalls/datemsk" CUSTOM:*LIB-DIRECTORY*)
Functions
(OS:VERSION< |
(OS:VERSION<= |
(OS:VERSION> |
(OS:VERSION>= |
compare two STRINGs as version numbers (e.g.,
"foo10" is greater than
"foo9") using
strverscmp and return a BOOLEAN.
Function OS:VERSION-COMPARE does the same but
returns either <,
> or =.
Wildcards describe sets of file names; see “Pathname Matching Notation” for the syntax description.
(POSIX:FNMATCH . This function returns a non-pattern string
&KEY :PATHNAME :PERIOD :NOESCAPE (:CASE-SENSITIVE T))NIL value if the string matches
the pattern by calling fnmatch.
(POSIX:FNMATCH-MATCHER
. This function is a valid value for pattern)CUSTOM:*APROPOS-MATCHER*.
These two functions used to reside in a separate package “WILDCARD”, which has been now deprecated.
(
When running under the X Window System, you can create a bidirectional POSIX:MAKE-XTERM-IO-STREAM &KEY title xterm)STREAM, which uses a new
dedicated text window (created by the executable specified by
the :XTERM argument which should be compatible
with xterm and rxvt, i.e., accept
options -n, -T, and -e)
using the function POSIX:MAKE-XTERM-IO-STREAM:
(SETQ*ERROR-OUTPUT*(SETQ*DEBUG-IO*(POSIX:MAKE-XTERM-IO-STREAM:title "clisp errors and debug")))
Platform Dependent: UNIX platform only.
We define the type FFI:file = FFI:FOREIGN-POINTER and
the following functions:
( |
( |
( |
( |
( |
( |
( |
( |
( |
call their namesakes defined in <stdio.h>.
Functions
OS:FOPEN |
OS:FDOPEN |
OS:FREOPEN |
OS:FCLOSE |
OS:FFLUSH |
OS:FILENO |
Return values
OS:FOPENOS:FDOPENFFI:FOREIGN-POINTER
OS:FREOPENOS:FCLOSEOS:FFLUSHOS:CLEARERRfile argument in place)
OS:FEOFOS:FERRORBOOLEANOS:FILENOINTEGER (file descriptor)We also define 3 constants
OS:STDIN |
OS:STDOUT |
OS:STDERR |
Iterface to foreign libraries. This functionality can be used by “FFI” modules which
interface to functions which use the C FILE* pointers.
E.g., postgresql has a function PQtrace
which expects a FILE* argument.
You can use OS:FOPEN
and OS:FCLOSE for that.
Bypass Common Lisp filename processing. You can also use this functionality to access files whose names are interpreted as wild by Common Lisp. E.g.,
(LET((file (posix:fopen "foo*" "r"))) (UNWIND-PROTECT(WITH-OPEN-STREAM(s (EXT:MAKE-STREAM(posix:fileno file))) (READ-LINEs)) (posix:fclose file)))
To handle errors in foreign functions, the following four functions are provided:
(POSIX:ERRNO &OPTIONAL error-code)When error-code is supplied, errno is set (useful
before a system call which sets errno as the only way to report an
error).
If error-code is a NUMBER, the corresponding KEYWORD
is returned and vice versa.
When error-code is not supplied, the current errno is
returned as a keyword if possible, a number otherwise.
When error-code is T, all known error codes are
returned as an association list.
(OS:LAST-ERROR &OPTIONAL
error-code)Just like POSIX:ERRNO,
but uses GetLastError
and SetLastError instead
of errno.
Platform Dependent: Win32 platform only.
(POSIX:STRERROR &OPTIONAL
error-code)Return a string description of error-code.
When error-code is not supplied, errno is used.
This calls strerror.
(OS:FORMAT-MESSAGE &OPTIONAL
error-code)Just like POSIX:STRERROR,
but uses FormatMessage
and GetLastError.
Platform Dependent: Win32 platform only.
(OS:CLIPBOARD)(SETF (OS:CLIPBOARD) object)Get
(using GetClipboardData) a set
(using SetClipboardData)
the windows clipboard.
Return a STRING; convert object to a STRING
using PRINC-TO-STRING.
| These notes document CLISP version 2.49.93+ | Last modified: 2018-02-19 |