scsh-0.5/scsh/linux/packages.scm

125 lines
2.7 KiB
Scheme

;;; Interfaces and packages for the Linux specific parts of scsh.
;;; Copyright (c) 1994 by Olin Shivers.
;;; Copyright (c) 1994 by Brian D. Carlstrom.
(define-interface linux-fdflags-extras-interface
(export open/shlock
open/exlock
open/async
open/fsync
fcntl/get-owner
fcntl/set-owner))
(define-interface linux-errno-extras-interface
(export errno/notblk
errno/txtbsy
errno/wouldblock
errno/inprogress
errno/already
errno/notsock
errno/destaddrreq
errno/msgsize
errno/prototype
errno/noprotoopt
errno/protonosupport
errno/socktnosupport
errno/opnotsupp
errno/pfnosupport
errno/afnosupport
errno/addrinuse
errno/addrnotavail
errno/netdown
errno/netunreach
errno/netreset
errno/connaborted
errno/connreset
errno/nobufs
errno/isconn
errno/notconn
errno/shutdown
errno/toomanyrefs
errno/timedout
errno/connrefused
errno/loop
errno/hostdown
errno/hostunreach
; errno/proclim
errno/users
errno/dquot
errno/stale
errno/remote
; errno/badrpc
; errno/rpcmismatch
; errno/progunavail
; errno/progmismatch
; errno/ftype
; errno/auth
; errno/needauth
; errno/last
))
(define-interface linux-signals-extras-interface
(export signal/trap
; signal/emt
signal/bus
; signal/sys
signal/urg
signal/cld
signal/io
signal/xcpu
signal/xfsz
signal/vtalrm
signal/prof
signal/winch
))
(define-interface linux-network-extras-interface
(export socket/debug
; socket/accept-connect
socket/reuse-address
socket/keep-alive
socket/dont-route
socket/broadcast
; socket/use-loop-back
socket/linger
socket/oob-inline
; socket/use-privileged
; socket/cant-signal
socket/send-buffer
socket/receive-buffer
; socket/send-low-water
; socket/receive-low-water
; socket/send-timeout
; socket/receive-timeout
socket/error
socket/type
socket/no-check
socket/priority
ip/options
ip/time-to-live
ip/type-of-service ;linux
ip/include-header ;linux
tcp/no-delay
tcp/max-segment))
(define-interface linux-extras-interface
(compound-interface linux-errno-extras-interface
linux-fdflags-extras-interface
linux-network-extras-interface
linux-signals-extras-interface))
(define-interface linux-defs-interface
(compound-interface linux-extras-interface
sockets-network-interface
posix-errno-interface
posix-fdflags-interface
posix-signals-interface))
(define-structure linux-defs linux-defs-interface
(open scheme bitwise defenum-package)
(files fdflags errno signals netconst))
(define-interface os-extras-interface linux-extras-interface)
(define os-dependent linux-defs)