Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
cmucl
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Package Registry
Model registry
Operate
Environments
Terraform modules
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Carl Shapiro
cmucl
Commits
9a9c5377
Commit
9a9c5377
authored
9 years ago
by
Raymond Toy
Browse files
Options
Downloads
Patches
Plain Diff
Add a few comments.
parent
f957ba84
No related branches found
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
src/code/unix-glibc2.lisp
+19
-0
19 additions, 0 deletions
src/code/unix-glibc2.lisp
with
19 additions
and
0 deletions
src/code/unix-glibc2.lisp
+
19
−
0
View file @
9a9c5377
...
...
@@ -122,6 +122,7 @@
(
values
(
not
(
zerop
(
sap-int
(
alien-sap
result
))))
(
%file->name
(
cast
buf
c-call:c-string
))))))
;;; fcntlbits.h
(
defconstant
o_read
o_rdonly
_N
"Open for reading"
)
(
defconstant
o_write
o_wronly
_N
"Open for writing"
)
...
...
@@ -873,6 +874,8 @@
(
declare
(
type
unix-fd
fd1
fd2
))
(
void-syscall
(
"dup2"
int
int
)
fd1
fd2
))
;;; Unix-exit terminates a program.
(
defun
unix-exit
(
&optional
(
code
0
))
_N
"Unix-exit terminates the current process with an optional
error code. If successful, the call doesn't return. If
...
...
@@ -965,6 +968,10 @@
(
declare
(
type
unix-pathname
name
))
(
void-syscall
(
"unlink"
c-string
)
(
%name->file
name
)))
;;; fcntl.h
;;;
;;; POSIX Standard: 6.5 File Control Operations <fcntl.h>
(
defconstant
r_ok
4
_N
"Test for read permission"
)
(
defconstant
w_ok
2
_N
"Test for write permission"
)
(
defconstant
x_ok
1
_N
"Test for execute permission"
)
...
...
@@ -1107,6 +1114,8 @@
;;; TTY ioctl commands.
(
eval-when
(
compile
load
eval
)
(
defconstant
iocparm-mask
#x3fff
)
(
defconstant
ioc_void
#x00000000
)
(
defconstant
ioc_out
#x40000000
)
...
...
@@ -1135,6 +1144,9 @@
(
setf
code
`
(
logior
,
dir
,
code
))))
`
(
eval-when
(
eval
load
compile
)
(
defconstant
,
name
,
code
))))
)
;;; TTY ioctl commands.
(
define-ioctl-command
TIOCGWINSZ
#\T
#x13
)
(
define-ioctl-command
TIOCSWINSZ
#\T
#x14
)
...
...
@@ -1498,6 +1510,7 @@
(
def-alien-routine
(
"getpid"
unix-getpid
)
int
_N
"Unix-getpid returns the process-id of the current process."
)
;;;; User and group database structures: <pwd.h> and <grp.h>
(
defstruct
user-info
(
name
""
:type
string
)
(
password
""
:type
string
)
...
...
@@ -1622,6 +1635,8 @@
(
cast
(
slot
utsname
'domainname
)
c-string
))
(
addr
utsname
))))
;;; sys/ioctl.h
(
defun
unix-ioctl
(
fd
cmd
arg
)
_N
"Unix-ioctl performs a variety of operations on open i/o
descriptors. See the UNIX Programmer's Manual for more
...
...
@@ -1642,6 +1657,8 @@
(
type
unix-file-mode
mode
))
(
void-syscall
(
"mkdir"
c-string
int
)
(
%name->file
name
)
mode
))
;;; timebits.h
;; A time value that is accurate to the nearest
;; microsecond but also has a range of years.
(
def-alien-type
nil
...
...
@@ -1725,6 +1742,8 @@
which
(
alien-sap
(
addr
itvn
))(
alien-sap
(
addr
itvo
))))))
;;; termbits.h
(
def-alien-type
cc-t
unsigned-char
)
(
def-alien-type
speed-t
unsigned-int
)
(
def-alien-type
tcflag-t
unsigned-int
)
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment