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
902002c0
Commit
902002c0
authored
30 years ago
by
ram
Browse files
Options
Downloads
Patches
Plain Diff
Tweak stuff up a bit.
parent
a209ca4a
No related branches found
Branches containing commit
No related tags found
Tags containing commit
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
code/unix.lisp
+13
-21
13 additions, 21 deletions
code/unix.lisp
with
13 additions
and
21 deletions
code/unix.lisp
+
13
−
21
View file @
902002c0
...
...
@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.3
2
1994/10/26 1
5:12:36
ram Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.3
3
1994/10/26 1
7:33:05
ram Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -95,7 +95,7 @@
(
def-alien-type
ino-t
#-
alpha
unsigned-long
#+
alpha
unsigned-int
)
(
def-alien-type
swblk-t
long
)
(
def-alien-type
size-t
#-
alpha
long
#+
alpha
unsigned-long
)
(
def-alien-type
time-t
#-
alpha
long
#+
alpha
int
)
(
def-alien-type
time-t
#-
alpha
unsigned-
long
#+
alpha
unsigned-
int
)
(
def-alien-type
dev-t
#-
(
or
alpha
svr4
)
short
#+
alpha
int
#+
svr4
unsigned-long
)
(
def-alien-type
off-t
#-
alpha
long
#+
alpha
unsigned-long
)
(
def-alien-type
uid-t
#-
(
or
alpha
svr4
)
unsigned-short
#+
alpha
unsigned-int
...
...
@@ -144,8 +144,8 @@
(
def-alien-type
nil
(
struct
timeval
(
tv-sec
#-
alpha
long
#+
alpha
in
t
)
; seconds
(
tv-usec
#-
alpha
long
#+
alpha
in
t
)))
; and microseconds
(
tv-sec
time-
t
)
; seconds
(
tv-usec
time-
t
)))
; and microseconds
(
def-alien-type
nil
(
struct
timezone
...
...
@@ -158,6 +158,13 @@
(
it-interval
(
struct
timeval
))
; timer interval
(
it-value
(
struct
timeval
))))
; current value
#+
svr4
; High-res time. Actually posix definition under svr4 name.
(
def-alien-type
nil
(
struct
timestruc-t
(
tv-sec
time-t
)
(
tv-nsec
long
)))
;;; From ioctl.h
(
def-alien-type
nil
...
...
@@ -184,7 +191,7 @@
(
sg-ospeed
char
)
; output speed
(
sg-erase
char
)
; erase character
(
sg-kill
char
)
; kill character
(
sg-flags
#
-
(
or
hpux
svr4
)
short
#+
(
or
hpux
svr4
)
int
)))
; mode flags
(
sg-flags
#
+
mach
short
#-
mach
int
)))
; mode flags
(
def-alien-type
nil
(
struct
winsize
...
...
@@ -212,10 +219,7 @@
(
def-alien-type
nil
(
struct
direct
#+
(
and
sunos
(
not
svr4
))
(
d-off
long
)
; offset of next disk directory entry
(
d-ino
unsigned-long
)
; inode number of entry
#+
svr4
(
d-off
long
)
#+
sunos
(
d-off
long
)
; offset of next disk directory entry
(
d-ino
#-
alpha
unsigned-long
#+
alpha
unsigned-int
)
; inode number of entry
(
d-ino
ino-t
)
; inode number of entry
#+
svr4
(
d-off
long
)
(
d-reclen
unsigned-short
)
; length of this record
#-
svr4
...
...
@@ -228,19 +232,13 @@
(
def-alien-type
nil
(
struct
stat
(
st-dev
dev-t
)
#+
svr4
(
st-pad1
(
array
long
3
))
(
st-ino
ino-t
)
(
st-mode
mode-t
)
(
st-nlink
nlink-t
)
(
st-uid
uid-t
)
(
st-gid
gid-t
)
(
st-rdev
dev-t
)
#+
svr4
(
st-pad2
(
array
long
2
))
(
st-size
off-t
)
#+
svr4
(
st-pad3
long
)
(
st-atime
time-t
)
(
st-spare1
int
)
(
st-mtime
time-t
)
...
...
@@ -251,12 +249,6 @@
(
st-blocks
#-
alpha
long
#+
alpha
int
)
(
st-spare4
(
array
long
2
))))
#+
svr4
(
def-alien-type
nil
(
struct
timestruc-t
(
tv-sec
time-t
)
(
tv-nsec
long
)))
#+
svr4
(
def-alien-type
nil
(
struct
stat
...
...
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