Skip to content
Snippets Groups Projects
Commit 494e09f2 authored by Raymond Toy's avatar Raymond Toy
Browse files

Need unix-symlink in unix-glibc2 for tests.

parent 1bc6485e
No related branches found
No related tags found
No related merge requests found
......@@ -291,12 +291,17 @@
"UNIX-GETUIO"
;; Hemlock
"UNIX-CFGETOSPEED"
"TERMIOS"
"UNIX-TCGETATTR"
"UNIX-TCSETATTR"
"UNIX-FCHMOD"
"UNIX-CREAT"
"UNIX-UTIMES"
;; Tests
"UNIX-SYMLINK"
)
#-linux
(:export "UNIX-RMDIR"
......@@ -312,12 +317,6 @@
"PROT_READ"
"UNIX-MUNMAP"
;; Hemlock
"UNIX-CFGETOSPEED"
;; Tests
"UNIX-SYMLINK"
;; Other symbols from structures, etc.
"C-CC"
"C-CFLAG"
......@@ -677,12 +676,6 @@
"PROT_READ"
"UNIX-MUNMAP"
;; Hemlock
"UNIX-CFGETOSPEED"
;; Tests
"UNIX-SYMLINK"
;; Other symbols
"BLKCNT-T"
"C-CC"
......
......@@ -1478,6 +1478,14 @@
nfds (frob rdfds rdf) (frob wrfds wrf) (frob xpfds xpf)
(if to-secs (alien-sap (addr tv)) (int-sap 0))))))
(defun unix-symlink (name1 name2)
_N"Unix-symlink creates a symbolic link named name2 to the file
named name1. NIL and an error number is returned if the call
is unsuccessful."
(declare (type unix-pathname name1 name2))
(void-syscall ("symlink" c-string c-string)
(%name->file name1) (%name->file name2)))
(def-alien-routine ("gethostid" unix-gethostid) unsigned-long
_N"Unix-gethostid returns a 32-bit integer which provides unique
identification for the host machine.")
......@@ -1776,3 +1784,13 @@
(void-syscall ("tcsetattr" int int (* (struct termios))) fd opt termios))
(defconstant writeown #o200 _N"Write by owner")
;;; termios.h
(defun unix-cfgetospeed (termios)
_N"Get terminal output speed."
(multiple-value-bind (speed errno)
(int-syscall ("cfgetospeed" (* (struct termios))) termios)
(if speed
(values (svref terminal-speeds speed) 0)
(values speed errno))))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment