- cmucl-cvs - mailman3.common-lisp.net

[cmucl/cmucl][rtoy-unix-core] Add stat and friends for solaris.
by Raymond Toy 16 May '15

16 May '15

Raymond Toy pushed to branch rtoy-unix-core at cmucl / cmucl Commits: f4d7036b by Raymond Toy at 2015-05-16T13:50:01Z Add stat and friends for solaris. - - - - - 1 changed file: - src/code/unix.lisp Changes: ===================================== src/code/unix.lisp ===================================== --- a/src/code/unix.lisp +++ b/src/code/unix.lisp @@ -1241,6 +1241,8 @@ (slot ,buf 'st-blksize) (slot ,buf 'st-blocks))) +#-solaris +(progn (defun unix-stat (name) _N"Unix-stat retrieves information about the specified file returning them in the form of multiple values. @@ -1272,6 +1274,43 @@ (syscall (#-netbsd "fstat" #+netbsd "__fstat50" int (* (struct stat))) (extract-stat-results buf) fd (addr buf)))) +) + +;;; 64-bit versions of stat and friends +#+solaris +(progn +(defun unix-stat (name) + _N"Unix-stat retrieves information about the specified + file returning them in the form of multiple values. + See the UNIX Programmer's Manual for a description + of the values returned. If the call fails, then NIL + and an error number is returned instead." + (declare (type unix-pathname name)) + (when (string= name "") + (setf name ".")) + (with-alien ((buf (struct stat64))) + (syscall ("stat64" c-string (* (struct stat64))) + (extract-stat-results buf) + (%name->file name) (addr buf)))) + +(defun unix-lstat (name) + _N"Unix-lstat is similar to unix-stat except the specified + file must be a symbolic link." + (declare (type unix-pathname name)) + (with-alien ((buf (struct stat64))) + (syscall ("lstat64" c-string (* (struct stat64))) + (extract-stat-results buf) + (%name->file name) (addr buf)))) + +(defun unix-fstat (fd) + _N"Unix-fstat is similar to unix-stat except the file is specified + by the file descriptor fd." + (declare (type unix-fd fd)) + (with-alien ((buf (struct stat64))) + (syscall ("fstat64" int (* (struct stat64))) + (extract-stat-results buf) + fd (addr buf)))) +) (def-alien-type nil (struct rusage View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/f4d7036b4f8b68c513f51cd38…

1 0

[cmucl/cmucl][rtoy-unix-core] unix-uname needs struct utsname.
by Raymond Toy 14 May '15

14 May '15

Raymond Toy pushed to branch rtoy-unix-core at cmucl / cmucl Commits: 56dac608 by Raymond Toy at 2015-05-13T21:44:15Z unix-uname needs struct utsname. - - - - - 1 changed file: - src/code/unix.lisp Changes: ===================================== src/code/unix.lisp ===================================== --- a/src/code/unix.lisp +++ b/src/code/unix.lisp @@ -2423,6 +2423,14 @@ ) ) ) +(def-alien-type nil + (struct utsname + (sysname (array char #+svr4 257 #+bsd 256)) + (nodename (array char #+svr4 257 #+bsd 256)) + (release (array char #+svr4 257 #+bsd 256)) + (version (array char #+svr4 257 #+bsd 256)) + (machine (array char #+svr4 257 #+bsd 256)))) + (defun unix-uname () (with-alien ((names (struct utsname))) (syscall* (#-(or freebsd (and x86 solaris)) "uname" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/56dac6089a2f3d4e9b63c9a3b…

1 0

[cmucl/cmucl][rtoy-unix-core] Solaris needs u-int64-t.
by Raymond Toy 14 May '15

14 May '15

Raymond Toy pushed to branch rtoy-unix-core at cmucl / cmucl Commits: dd85f37a by Raymond Toy at 2015-05-13T21:42:13Z Solaris needs u-int64-t. - - - - - 1 changed file: - src/code/unix.lisp Changes: ===================================== src/code/unix.lisp ===================================== --- a/src/code/unix.lisp +++ b/src/code/unix.lisp @@ -40,6 +40,8 @@ (def-alien-type int64-t (signed 64)) +(def-alien-type u-int64-t (unsigned 64)) + (def-alien-type ino-t #+netbsd u-int64-t #+alpha unsigned-int View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/dd85f37a433d3b2adee49b453…

1 0

[cmucl/cmucl][rtoy-unix-core] Add support for solaris/sparc.
by Raymond Toy 14 May '15

14 May '15

Raymond Toy pushed to branch rtoy-unix-core at cmucl / cmucl Commits: e79435f6 by Raymond Toy at 2015-05-13T20:29:36Z Add support for solaris/sparc. Includes * support for large files * unix-times * unix-get-minutes-west and friends * unix-uname - - - - - 1 changed file: - src/code/unix.lisp Changes: ===================================== src/code/unix.lisp ===================================== --- a/src/code/unix.lisp +++ b/src/code/unix.lisp @@ -1109,6 +1109,27 @@ (d-type unsigned-char) (d-name (array char 512)))) +;;; Large file support for Solaris. Define some of the 64-bit types +;;; we need. Unlike unix-glibc's large file support, Solaris's +;;; version is a little simpler because all of the 64-bit versions of +;;; the functions actually exist as functions. So instead of calling +;;; the 32-bit versions of the functions, we call the 64-bit versions. +;;; +;;; These functions are: creat64, open64, truncate64, ftruncate64, +;;; stat64, lstat64, fstat64, readdir64. +;;; +;;; There are also some new structures for large file support: +;;; dirent64, stat64. +;;; +;;; FIXME: We should abstract this better, but I (rtoy) don't have any +;;; other system to test this out on, so it's a Solaris hack for now. +#+solaris +(progn + (deftype file-offset64 () '(signed-byte 64)) + (def-alien-type off64-t int64-t) + (def-alien-type ino64-t u-int64-t) + (def-alien-type blkcnt64-t u-int64-t)) + ;;; The 64-bit version of struct dirent. #+solaris (def-alien-type nil @@ -1140,6 +1161,61 @@ (st-lspare long) (st-qspare (array long 4)))) +#+(or linux svr4) +(def-alien-type nil + (struct stat + (st-dev dev-t) + (st-pad1 #-linux (array long 3) #+linux unsigned-short) + (st-ino ino-t) + (st-mode #-linux unsigned-long #+linux unsigned-short) + (st-nlink #-linux short #+linux unsigned-short) + (st-uid #-linux uid-t #+linux unsigned-short) + (st-gid #-linux gid-t #+linux unsigned-short) + (st-rdev dev-t) + (st-pad2 #-linux (array long 2) #+linux unsigned-short) + (st-size off-t) + #-linux (st-pad3 long) + #+linux (st-blksize unsigned-long) + #+linux (st-blocks unsigned-long) + #-linux (st-atime (struct timestruc-t)) + #+linux (st-atime unsigned-long) + #+linux (unused-1 unsigned-long) + #-linux (st-mtime (struct timestruc-t)) + #+linux (st-mtime unsigned-long) + #+linux (unused-2 unsigned-long) + #-linux (st-ctime (struct timestruc-t)) + #+linux (st-ctime unsigned-long) + #+linux (unused-3 unsigned-long) + #+linux (unused-4 unsigned-long) + #+linux (unused-5 unsigned-long) + #-linux(st-blksize long) + #-linux (st-blocks long) + #-linux (st-fstype (array char 16)) + #-linux (st-pad4 (array long 8)))) + +;;; 64-bit stat for Solaris +#+solaris +(def-alien-type nil + (struct stat64 + (st-dev dev-t) + (st-pad1 (array long 3)) ; Pad so ino is 64-bit aligned + (st-ino ino64-t) + (st-mode unsigned-long) + (st-nlink short) + (st-uid uid-t) + (st-gid gid-t) + (st-rdev dev-t) + (st-pad2 (array long 3)) ; Pad so size is 64-bit aligned + (st-size off64-t) + (st-atime (struct timestruc-t)) + (st-mtime (struct timestruc-t)) + (st-ctime (struct timestruc-t)) + (st-blksize long) + (st-pad3 (array long 1)) ; Pad so blocks is 64-bit aligned + (st-blocks blkcnt64-t) + (st-fstype (array char 16)) + (st-pad4 (array long 8)))) + (defmacro extract-stat-results (buf) `(values T (slot ,buf 'st-dev) @@ -2289,3 +2365,73 @@ :dir (string (cast (slot result 'pw-dir) c-call:c-string)) :shell (string (cast (slot result 'pw-shell) c-call:c-string)))))) +#+(and sparc svr4) +(progn +(def-alien-type nil + (struct tms + (tms-utime #-alpha long #+alpha int) ; user time used + (tms-stime #-alpha long #+alpha int) ; system time used. + (tms-cutime #-alpha long #+alpha int) ; user time, children + (tms-cstime #-alpha long #+alpha int))) ; system time, children + +(declaim (inline unix-times)) +(defun unix-times () + _N"Unix-times returns information about the cpu time usage of the process + and its children." + (with-alien ((usage (struct tms))) + (alien-funcall (extern-alien "times" (function int (* (struct tms)))) + (addr usage)) + (values t + (slot usage 'tms-utime) + (slot usage 'tms-stime) + (slot usage 'tms-cutime) + (slot usage 'tms-cstime)))) +) ; end progn + +#+(or linux svr4) +(progn + (def-alien-variable ("daylight" unix-daylight) int) + (def-alien-variable ("timezone" unix-timezone) time-t) + (def-alien-variable ("altzone" unix-altzone) time-t) + #-irix (def-alien-variable ("tzname" unix-tzname) (array c-string 2)) + #+irix (defvar unix-tzname-addr nil) + #+irix (pushnew #'(lambda () (setq unix-tzname-addr nil)) + ext:*after-save-initializations*) + #+irix (declaim (notinline fakeout-compiler)) + #+irix (defun fakeout-compiler (name dst) + (unless unix-tzname-addr + (setf unix-tzname-addr (system:foreign-symbol-address + name + :flavor :data))) + (deref (sap-alien unix-tzname-addr (array c-string 2)) dst)) + (def-alien-routine get-timezone c-call:void + (when c-call:long :in) + (minutes-west c-call:int :out) + (daylight-savings-p alien:boolean :out)) + (defun unix-get-minutes-west (secs) + (multiple-value-bind (ignore minutes dst) (get-timezone secs) + (declare (ignore ignore) (ignore dst)) + (values minutes)) + ) + (defun unix-get-timezone (secs) + (multiple-value-bind (ignore minutes dst) (get-timezone secs) + (declare (ignore ignore) (ignore minutes)) + (values #-irix (deref unix-tzname (if dst 1 0)) + #+irix (fakeout-compiler "tzname" (if dst 1 0))) + ) ) +) + +(defun unix-uname () + (with-alien ((names (struct utsname))) + (syscall* (#-(or freebsd (and x86 solaris)) "uname" + #+(and x86 solaris) "nuname" ; See /usr/include/sys/utsname.h + #+freebsd "__xuname" #+freebsd int + (* (struct utsname))) + (values (cast (slot names 'sysname) c-string) + (cast (slot names 'nodename) c-string) + (cast (slot names 'release) c-string) + (cast (slot names 'version) c-string) + (cast (slot names 'machine) c-string)) + #+freebsd 256 + (addr names)))) + View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/e79435f693c03d5d9ca512d6b…

1 0

[cmucl/cmucl][rtoy-unix-core] Remove terminal-speeds since it's in code/unix-glibc2.lisp now.
by Raymond Toy 12 May '15

12 May '15

Raymond Toy pushed to branch rtoy-unix-core at cmucl / cmucl Commits: 30055476 by Raymond Toy at 2015-05-11T19:44:18Z Remove terminal-speeds since it's in code/unix-glibc2.lisp now. - - - - - 1 changed file: - src/contrib/unix/unix-glibc2.lisp Changes: ===================================== src/contrib/unix/unix-glibc2.lisp ===================================== --- a/src/contrib/unix/unix-glibc2.lisp +++ b/src/contrib/unix/unix-glibc2.lisp @@ -1883,10 +1883,6 @@ in at a time in poll.") (defconstant writeoth #o2 _N"Write by others") (defconstant execoth #o1 _N"Execute (search directory) by others") -(defconstant terminal-speeds - '#(0 50 75 110 134 150 200 300 600 1200 1800 2400 - 4800 9600 19200 38400 57600 115200 230400)) - ;;;; Support routines for dealing with unix pathnames. (export '(unix-file-kind unix-maybe-prepend-current-directory View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/300554765f2b19fdb4219edc6…

1 0

[cmucl/cmucl][rtoy-unix-core] 2 commits: Add terminal-speeds to unix-glibc2.lisp.
by Raymond Toy 12 May '15

12 May '15

Raymond Toy pushed to branch rtoy-unix-core at cmucl / cmucl Commits: be68140d by Raymond Toy at 2015-05-11T19:34:06Z Add terminal-speeds to unix-glibc2.lisp. - - - - - bff46014 by Raymond Toy at 2015-05-11T19:34:39Z Export FIONREAD and TERMINAL-SPEEDS. Bot unix and unix-glibc2 have these. - - - - - 2 changed files: - src/code/exports.lisp - src/code/unix-glibc2.lisp Changes: ===================================== src/code/exports.lisp ===================================== --- a/src/code/exports.lisp +++ b/src/code/exports.lisp @@ -350,6 +350,8 @@ "USER-INFO-SHELL" "USER-INFO-UID" "VDSUSP" "VEOF" "VEOL" "VEOL2" "VERASE" "VINTR" "VKILL" "VMIN" "VQUIT" "VSTART" "VSTOP" "VSUSP" "VTIME" "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL" "WS-YPIXEL" "W_OK" "X_OK" + "FIONREAD" + "TERMINAL-SPEEDS" ) #-linux (:export "TCHARS" @@ -362,13 +364,13 @@ ;; Other symbols from structures, etc. "DIRECT" "ELOCAL" "EPROCLIM" "EVICEERR" "EVICEOP" "EXECGRP" "EXECOTH" - "EXECOWN" "F-DUPFD" "F-GETFD" "F-SETFD" "FCREAT" "FEXCL" "FIONREAD" + "EXECOWN" "F-DUPFD" "F-GETFD" "F-SETFD" "FCREAT" "FEXCL" "FTRUNC" "READGRP" "READOTH" "READOWN" "S-IEXEC" "S-IREAD" "S-ISGID" "S-ISUID" "S-ISVTX" "S-IWRITE" "SAVETEXT" "SETGIDEXEC" "SETUIDEXEC" "SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL" "SG-OSPEED" "SIGEMT" "SIGSYS" "T-BRKC" "T-DSUSPC" "T-EOFC" "T-FLUSHC" "T-INTRC" "T-LNEXTC" "T-QUITC" "T-RPRNTC" "T-STARTC" "T-STOPC" "T-SUSPC" "T-WERASC" "TCIFLUSH" - "TCIOFLUSH" "TCOFLUSH" "TERMINAL-SPEEDS" "TIOCFLUSH" "TIOCGETC" + "TCIOFLUSH" "TCOFLUSH" "TIOCFLUSH" "TIOCGETC" "TIOCGETP" "TIOCGLTC" "TIOCSETC" "TIOCSETP" "TIOCSLTC" "TTY-CBREAK" "TTY-CLOCAL" "TTY-CREAD" "TTY-CRMOD" "TTY-CS5" "TTY-CS6" "TTY-CS7" "TTY-CS8" "TTY-CSIZE" "TTY-CSTOPB" "TTY-HUPCL" "TTY-LCASE" "TTY-PARENB" ===================================== src/code/unix-glibc2.lisp ===================================== --- a/src/code/unix-glibc2.lisp +++ b/src/code/unix-glibc2.lisp @@ -1811,6 +1811,10 @@ ;;; termios.h +(defconstant terminal-speeds + '#(0 50 75 110 134 150 200 300 600 1200 1800 2400 + 4800 9600 19200 38400 57600 115200 230400)) + (defun unix-cfgetospeed (termios) _N"Get terminal output speed." (multiple-value-bind (speed errno) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/13513a76f8a8813a56af22f2…

1 0

[cmucl/cmucl][rtoy-unix-core] Remove sgttyb from unix exports; run-program doesn't use it on linux.
by Raymond Toy 10 May '15

10 May '15

Raymond Toy pushed to branch rtoy-unix-core at cmucl / cmucl Commits: 13513a76 by Raymond Toy at 2015-05-10T15:56:35Z Remove sgttyb from unix exports; run-program doesn't use it on linux. - - - - - 1 changed file: - src/code/exports.lisp Changes: ===================================== src/code/exports.lisp ===================================== --- a/src/code/exports.lisp +++ b/src/code/exports.lisp @@ -379,9 +379,6 @@ "LTCHARS" "D-NAMLEN" - ;; run-program.lisp - "SGTTYB" - ;; Other symbols "BLKCNT-T" "D-INO" "D-OFF" "EADV" "EBADE" "EBADFD" "EBADMSG" "EBADR" "EBADRQC" "EBADSLT" "EBFONT" "ECHRNG" "ECOMM" "EDEADLOCK" "EDOTDOT" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/13513a76f8a8813a56af22f20…

1 0

[cmucl/cmucl][rtoy-unix-core] Gather the other common symbols into one place, and leave conditionals
by Raymond Toy 10 May '15

10 May '15

Raymond Toy pushed to branch rtoy-unix-core at cmucl / cmucl Commits: b3b95e25 by Raymond Toy at 2015-05-10T14:33:06Z Gather the other common symbols into one place, and leave conditionals for the ones that differ. - - - - - 1 changed file: - src/code/exports.lisp Changes: ===================================== src/code/exports.lisp ===================================== --- a/src/code/exports.lisp +++ b/src/code/exports.lisp @@ -304,6 +304,52 @@ ;; Tests "UNIX-SYMLINK" + + ;; Other symbols from structures, etc. + "C-CC" "C-CFLAG" "C-IFLAG" "C-ISPEED" "C-LFLAG" "C-OFLAG" "C-OSPEED" + "CHECK" "D-NAME" "D-RECLEN" "E2BIG" "EACCES" "EADDRINUSE" "EADDRNOTAVAIL" + "EAFNOSUPPORT" "EAGAIN" "EALREADY" "EBADF" "EBUSY" "ECHILD" + "ECONNABORTED" "ECONNREFUSED" "ECONNRESET" "EDEADLK" "EDESTADDRREQ" + "EDOM" "EDQUOT" "EEXIST" "EFAULT" "EFBIG" "EHOSTDOWN" "EHOSTUNREACH" + "EINPROGRESS" "EINTR" "EINVAL" "EIO" "EISCONN" "EISDIR" "ELOOP" "EMFILE" + "EMLINK" "EMSGSIZE" "ENAMETOOLONG" "ENETDOWN" "ENETRESET" "ENETUNREACH" + "ENFILE" "ENOBUFS" "ENODEV" "ENOENT" "ENOEXEC" "ENOMEM" "ENOPROTOOPT" + "ENOSPC" "ENOTBLK" "ENOTCONN" "ENOTDIR" "ENOTEMPTY" "ENOTSOCK" "ENOTTY" + "ENXIO" "EOPNOTSUPP" "EPERM" "EPFNOSUPPORT" "EPIPE" "EPROTONOSUPPORT" + "EPROTOTYPE" "ERANGE" "EREMOTE" "EROFS" "ESHUTDOWN" "ESOCKTNOSUPPORT" + "ESPIPE" "ESRCH" "ESUCCESS" "ETIMEDOUT" "ETOOMANYREFS" "ETXTBSY" "EUSERS" + "EWOULDBLOCK" "EXDEV" "F-GETFL" "F-GETOWN" "F-SETFL" "F-SETOWN" "FAPPEND" + "FASYNC" "FD-SET" "FD-ZERO" "FNDELAY" "F_OK" "GID-T" "IT-INTERVAL" + "IT-VALUE" "ITIMERVAL" "L_INCR" "L_SET" "L_XTND" "MAP_ANONYMOUS" + "MAP_FIXED" "MAP_PRIVATE" "MAP_SHARED" "MS_ASYNC" "MS_INVALIDATE" + "MS_SYNC" "O_APPEND" "O_CREAT" "O_EXCL" "O_NDELAY" "O_NONBLOCK" + "O_RDONLY" "O_RDWR" "O_TRUNC" "O_WRONLY" "PROT_EXEC" "PROT_NONE" + "PROT_WRITE" "RU-IDRSS" "RU-INBLOCK" "RU-ISRSS" "RU-IXRSS" "RU-MAJFLT" + "RU-MAXRSS" "RU-MINFLT" "RU-MSGRCV" "RU-MSGSND" "RU-NIVCSW" "RU-NSIGNALS" + "RU-NSWAP" "RU-NVCSW" "RU-OUBLOCK" "RU-STIME" "RU-UTIME" + "RUSAGE_CHILDREN" "RUSAGE_SELF" "R_OK" "S-IFBLK" "S-IFCHR" "S-IFDIR" + "S-IFLNK" "S-IFMT" "S-IFREG" "S-IFSOCK" "SIGABRT" "SIGALRM" "SIGBUS" + "SIGCHLD" "SIGCONT" "SIGCONTEXT" "SIGFPE" "SIGHUP" "SIGILL" "SIGINT" + "SIGIO" "SIGIOT" "SIGKILL" "SIGMASK" "SIGPIPE" "SIGPROF" "SIGQUIT" + "SIGSEGV" "SIGSTOP" "SIGTERM" "SIGTRAP" "SIGTSTP" "SIGTTIN" "SIGTTOU" + "SIGURG" "SIGUSR1" "SIGUSR2" "SIGVTALRM" "SIGWINCH" "SIGXCPU" "SIGXFSZ" + "ST-ATIME" "ST-BLKSIZE" "ST-BLOCKS" "ST-CTIME" "ST-DEV" "ST-GID" + "ST-MODE" "ST-MTIME" "ST-NLINK" "ST-RDEV" "ST-SIZE" "ST-UID" "STAT" + "TCSADRAIN" "TCSAFLUSH" "TCSANOW" "TIOCGPGRP" "TIOCGWINSZ" "TIOCNOTTY" + "TIOCSPGRP" "TIOCSWINSZ" "TTY-BRKINT" "TTY-ECHO" "TTY-ECHOCTL" + "TTY-ECHOE" "TTY-ECHOK" "TTY-ECHOKE" "TTY-ECHONL" "TTY-ECHOPRT" + "TTY-FLUSHO" "TTY-ICANON" "TTY-ICRNL" "TTY-IEXTEN" "TTY-IGNBRK" + "TTY-IGNCR" "TTY-IGNPAR" "TTY-IMAXBEL" "TTY-INLCR" "TTY-INPCK" "TTY-ISIG" + "TTY-ISTRIP" "TTY-IXANY" "TTY-IXOFF" "TTY-IXON" "TTY-NOFLSH" "TTY-ONLCR" + "TTY-OPOST" "TTY-PARMRK" "TTY-PENDIN" "TTY-TOSTOP" "TV-SEC" "TV-USEC" + "TZ-DSTTIME" "TZ-MINUTESWEST" "UID-T" "UNIX-FD" "UNIX-FILE-KIND" + "UNIX-FILE-MODE" "UNIX-GETUID" "UNIX-KILL" "UNIX-KILLPG" "UNIX-PATHNAME" + "UNIX-SIGBLOCK" "UNIX-SIGNAL-DESCRIPTION" "UNIX-SIGNAL-NAME" + "UNIX-SIGNAL-NUMBER" "UNIX-SIGPAUSE" "UNIX-SIGSETMASK" "USER-INFO" + "USER-INFO-DIR" "USER-INFO-GECOS" "USER-INFO-GID" "USER-INFO-PASSWORD" + "USER-INFO-SHELL" "USER-INFO-UID" "VDSUSP" "VEOF" "VEOL" "VEOL2" "VERASE" + "VINTR" "VKILL" "VMIN" "VQUIT" "VSTART" "VSTOP" "VSUSP" "VTIME" + "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL" "WS-YPIXEL" "W_OK" "X_OK" ) #-linux (:export "TCHARS" @@ -315,350 +361,18 @@ "SGTTYB" ;; Other symbols from structures, etc. - "C-CC" - "C-CFLAG" - "C-IFLAG" - "C-ISPEED" - "C-LFLAG" - "C-OFLAG" - "C-OSPEED" - "CHECK" - "D-NAME" - "D-RECLEN" - "DIRECT" - "E2BIG" - "EACCES" - "EADDRINUSE" - "EADDRNOTAVAIL" - "EAFNOSUPPORT" - "EAGAIN" - "EALREADY" - "EBADF" - "EBUSY" - "ECHILD" - "ECONNABORTED" - "ECONNREFUSED" - "ECONNRESET" - "EDEADLK" - "EDESTADDRREQ" - "EDOM" - "EDQUOT" - "EEXIST" - "EFAULT" - "EFBIG" - "EHOSTDOWN" - "EHOSTUNREACH" - "EINPROGRESS" - "EINTR" - "EINVAL" - "EIO" - "EISCONN" - "EISDIR" - "ELOCAL" - "ELOOP" - "EMFILE" - "EMLINK" - "EMSGSIZE" - "ENAMETOOLONG" - "ENETDOWN" - "ENETRESET" - "ENETUNREACH" - "ENFILE" - "ENOBUFS" - "ENODEV" - "ENOENT" - "ENOEXEC" - "ENOMEM" - "ENOPROTOOPT" - "ENOSPC" - "ENOTBLK" - "ENOTCONN" - "ENOTDIR" - "ENOTEMPTY" - "ENOTSOCK" - "ENOTTY" - "ENXIO" - "EOPNOTSUPP" - "EPERM" - "EPFNOSUPPORT" - "EPIPE" - "EPROCLIM" - "EPROTONOSUPPORT" - "EPROTOTYPE" - "ERANGE" - "EREMOTE" - "EROFS" - "ESHUTDOWN" - "ESOCKTNOSUPPORT" - "ESPIPE" - "ESRCH" - "ESUCCESS" - "ETIMEDOUT" - "ETOOMANYREFS" - "ETXTBSY" - "EUSERS" - "EVICEERR" - "EVICEOP" - "EWOULDBLOCK" - "EXDEV" - "EXECGRP" - "EXECOTH" - "EXECOWN" - "F-DUPFD" - "F-GETFD" - "F-GETFL" - "F-GETOWN" - "F-SETFD" - "F-SETFL" - "F-SETOWN" - "FAPPEND" - "FASYNC" - "FCREAT" - "FD-SET" - "FD-ZERO" - "FEXCL" - "FIONREAD" - "FNDELAY" - "FTRUNC" - "F_OK" - "GID-T" - "IT-INTERVAL" - "IT-VALUE" - "ITIMERVAL" - "L_INCR" - "L_SET" - "L_XTND" - "MAP_ANONYMOUS" - "MAP_FIXED" - "MAP_PRIVATE" - "MAP_SHARED" - "MS_ASYNC" - "MS_INVALIDATE" - "MS_SYNC" - "O_APPEND" - "O_CREAT" - "O_EXCL" - "O_NDELAY" - "O_NONBLOCK" - "O_RDONLY" - "O_RDWR" - "O_TRUNC" - "O_WRONLY" - "PROT_EXEC" - "PROT_NONE" - "PROT_WRITE" - "READGRP" - "READOTH" - "READOWN" - "RU-IDRSS" - "RU-INBLOCK" - "RU-ISRSS" - "RU-IXRSS" - "RU-MAJFLT" - "RU-MAXRSS" - "RU-MINFLT" - "RU-MSGRCV" - "RU-MSGSND" - "RU-NIVCSW" - "RU-NSIGNALS" - "RU-NSWAP" - "RU-NVCSW" - "RU-OUBLOCK" - "RU-STIME" - "RU-UTIME" - "RUSAGE_CHILDREN" - "RUSAGE_SELF" - "R_OK" - "S-IEXEC" - "S-IFBLK" - "S-IFCHR" - "S-IFDIR" - "S-IFLNK" - "S-IFMT" - "S-IFREG" - "S-IFSOCK" - "S-IREAD" - "S-ISGID" - "S-ISUID" - "S-ISVTX" - "S-IWRITE" - "SAVETEXT" - "SETGIDEXEC" - "SETUIDEXEC" - "SG-ERASE" - "SG-FLAGS" - "SG-ISPEED" - "SG-KILL" - "SG-OSPEED" - "SIGABRT" - "SIGALRM" - "SIGBUS" - "SIGCHLD" - "SIGCONT" - "SIGCONTEXT" - "SIGEMT" - "SIGFPE" - "SIGHUP" - "SIGILL" - "SIGINT" - "SIGIO" - "SIGIOT" - "SIGKILL" - "SIGMASK" - "SIGPIPE" - "SIGPROF" - "SIGQUIT" - "SIGSEGV" - "SIGSTOP" - "SIGSYS" - "SIGTERM" - "SIGTRAP" - "SIGTSTP" - "SIGTTIN" - "SIGTTOU" - "SIGURG" - "SIGUSR1" - "SIGUSR2" - "SIGVTALRM" - "SIGWINCH" - "SIGXCPU" - "SIGXFSZ" - "ST-ATIME" - "ST-BLKSIZE" - "ST-BLOCKS" - "ST-CTIME" - "ST-DEV" - "ST-GID" - "ST-MODE" - "ST-MTIME" - "ST-NLINK" - "ST-RDEV" - "ST-SIZE" - "ST-UID" - "STAT" - "T-BRKC" - "T-DSUSPC" - "T-EOFC" - "T-FLUSHC" - "T-INTRC" - "T-LNEXTC" - "T-QUITC" - "T-RPRNTC" - "T-STARTC" - "T-STOPC" - "T-SUSPC" - "T-WERASC" - "TCIFLUSH" - "TCIOFLUSH" - "TCOFLUSH" - "TCSADRAIN" - "TCSAFLUSH" - "TCSANOW" - "TERMINAL-SPEEDS" - "TIOCFLUSH" - "TIOCGETC" - "TIOCGETP" - "TIOCGLTC" - "TIOCGPGRP" - "TIOCGWINSZ" - "TIOCNOTTY" - "TIOCSETC" - "TIOCSETP" - "TIOCSLTC" - "TIOCSPGRP" - "TIOCSWINSZ" - "TTY-BRKINT" - "TTY-CBREAK" - "TTY-CLOCAL" - "TTY-CREAD" - "TTY-CRMOD" - "TTY-CS5" - "TTY-CS6" - "TTY-CS7" - "TTY-CS8" - "TTY-CSIZE" - "TTY-CSTOPB" - "TTY-ECHO" - "TTY-ECHOCTL" - "TTY-ECHOE" - "TTY-ECHOK" - "TTY-ECHOKE" - "TTY-ECHONL" - "TTY-ECHOPRT" - "TTY-FLUSHO" - "TTY-HUPCL" - "TTY-ICANON" - "TTY-ICRNL" - "TTY-IEXTEN" - "TTY-IGNBRK" - "TTY-IGNCR" - "TTY-IGNPAR" - "TTY-IMAXBEL" - "TTY-INLCR" - "TTY-INPCK" - "TTY-ISIG" - "TTY-ISTRIP" - "TTY-IXANY" - "TTY-IXOFF" - "TTY-IXON" - "TTY-LCASE" - "TTY-NOFLSH" - "TTY-ONLCR" - "TTY-OPOST" - "TTY-PARENB" - "TTY-PARMRK" - "TTY-PARODD" - "TTY-PENDIN" - "TTY-RAW" - "TTY-TANDEM" - "TTY-TOSTOP" - "TV-SEC" - "TV-USEC" - "TZ-DSTTIME" - "TZ-MINUTESWEST" - "UID-T" - "UNIX-FD" - "UNIX-FILE-KIND" - "UNIX-FILE-MODE" - "UNIX-GETUID" - "UNIX-KILL" - "UNIX-KILLPG" - "UNIX-PATHNAME" - "UNIX-SIGBLOCK" - "UNIX-SIGNAL-DESCRIPTION" - "UNIX-SIGNAL-NAME" - "UNIX-SIGNAL-NUMBER" - "UNIX-SIGPAUSE" - "UNIX-SIGSETMASK" - "USER-INFO" - "USER-INFO-DIR" - "USER-INFO-GECOS" - "USER-INFO-GID" - "USER-INFO-PASSWORD" - "USER-INFO-SHELL" - "USER-INFO-UID" - "VDSUSP" - "VEOF" - "VEOL" - "VEOL2" - "VERASE" - "VINTR" - "VKILL" - "VMIN" - "VQUIT" - "VSTART" - "VSTOP" - "VSUSP" - "VTIME" - "WRITEGRP" - "WRITEOTH" - "WRITEOWN" - "WS-COL" - "WS-ROW" - "WS-XPIXEL" - "WS-YPIXEL" - "W_OK" - "X_OK" + "DIRECT" "ELOCAL" "EPROCLIM" "EVICEERR" "EVICEOP" "EXECGRP" "EXECOTH" + "EXECOWN" "F-DUPFD" "F-GETFD" "F-SETFD" "FCREAT" "FEXCL" "FIONREAD" + "FTRUNC" "READGRP" "READOTH" "READOWN" "S-IEXEC" "S-IREAD" "S-ISGID" + "S-ISUID" "S-ISVTX" "S-IWRITE" "SAVETEXT" "SETGIDEXEC" "SETUIDEXEC" + "SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL" "SG-OSPEED" "SIGEMT" "SIGSYS" + "T-BRKC" "T-DSUSPC" "T-EOFC" "T-FLUSHC" "T-INTRC" "T-LNEXTC" "T-QUITC" + "T-RPRNTC" "T-STARTC" "T-STOPC" "T-SUSPC" "T-WERASC" "TCIFLUSH" + "TCIOFLUSH" "TCOFLUSH" "TERMINAL-SPEEDS" "TIOCFLUSH" "TIOCGETC" + "TIOCGETP" "TIOCGLTC" "TIOCSETC" "TIOCSETP" "TIOCSLTC" "TTY-CBREAK" + "TTY-CLOCAL" "TTY-CREAD" "TTY-CRMOD" "TTY-CS5" "TTY-CS6" "TTY-CS7" + "TTY-CS8" "TTY-CSIZE" "TTY-CSTOPB" "TTY-HUPCL" "TTY-LCASE" "TTY-PARENB" + "TTY-PARODD" "TTY-RAW" "TTY-TANDEM" "WRITEGRP" "WRITEOTH" ) #+linux (:export "TCHARS" @@ -669,345 +383,17 @@ "SGTTYB" ;; Other symbols - "BLKCNT-T" - "C-CC" - "C-CFLAG" - "CHECK" - "C-IFLAG" - "C-ISPEED" - "C-LFLAG" - "C-OFLAG" - "C-OSPEED" - "D-INO" - "D-NAME" - "D-OFF" - "D-RECLEN" - "E2BIG" - "EACCES" - "EADDRINUSE" - "EADDRNOTAVAIL" - "EADV" - "EAFNOSUPPORT" - "EAGAIN" - "EALREADY" - "EBADE" - "EBADF" - "EBADFD" - "EBADMSG" - "EBADR" - "EBADRQC" - "EBADSLT" - "EBFONT" - "EBUSY" - "ECHILD" - "ECHRNG" - "ECOMM" - "ECONNABORTED" - "ECONNREFUSED" - "ECONNRESET" - "EDEADLK" - "EDEADLOCK" - "EDESTADDRREQ" - "EDOM" - "EDOTDOT" - "EDQUOT" - "EEXIST" - "EFAULT" - "EFBIG" - "EHOSTDOWN" - "EHOSTUNREACH" - "EIDRM" - "EILSEQ" - "EINPROGRESS" - "EINTR" - "EINVAL" - "EIO" - "EISCONN" - "EISDIR" - "EISNAM" - "EL2HLT" - "EL2NSYNC" - "EL3HLT" - "EL3RST" - "ELIBACC" - "ELIBBAD" - "ELIBEXEC" - "ELIBMAX" - "ELIBSCN" - "ELNRNG" - "ELOOP" - "EMFILE" - "EMLINK" - "EMSGSIZE" - "EMULTIHOP" - "ENAMETOOLONG" - "ENAVAIL" - "ENETDOWN" - "ENETRESET" - "ENETUNREACH" - "ENFILE" - "ENOANO" - "ENOBUFS" - "ENOCSI" - "ENODATA" - "ENODEV" - "ENOENT" - "ENOEXEC" - "ENOLCK" - "ENOLINK" - "ENOMEM" - "ENOMSG" - "ENONET" - "ENOPKG" - "ENOPROTOOPT" - "ENOSPC" - "ENOSR" - "ENOSTR" - "ENOSYS" - "ENOTBLK" - "ENOTCONN" - "ENOTDIR" - "ENOTEMPTY" - "ENOTNAM" - "ENOTSOCK" - "ENOTTY" - "ENOTUNIQ" - "ENXIO" - "EOPNOTSUPP" - "EOVERFLOW" - "EPERM" - "EPFNOSUPPORT" - "EPIPE" - "EPROTO" - "EPROTONOSUPPORT" - "EPROTOTYPE" - "ERANGE" - "EREMCHG" - "EREMOTE" - "EREMOTEIO" - "ERESTART" - "EROFS" - "ESHUTDOWN" - "ESOCKTNOSUPPORT" - "ESPIPE" - "ESRCH" - "ESRMNT" - "ESTALE" - "ESTRPIPE" - "ESUCCESS" - "ETIME" - "ETIMEDOUT" - "ETOOMANYREFS" - "ETXTBSY" - "EUCLEAN" - "EUNATCH" - "EUSERS" - "EWOULDBLOCK" - "EXDEV" - "EXFULL" - "FAPPEND" - "FASYNC" - "FD-SET" - "FD-ZERO" - "F-GETFL" - "F-GETOWN" - "FNDELAY" - "F_OK" - "F-SETFL" - "F-SETOWN" - "GID-T" - "ITIMERVAL" - "IT-INTERVAL" - "IT-VALUE" - "L_INCR" - "L_SET" - "L_XTND" - "MAP_ANONYMOUS" - "MAP_FIXED" - "MAP_PRIVATE" - "MAP_SHARED" - "MS_ASYNC" - "MS_INVALIDATE" - "MS_SYNC" - "O_APPEND" - "O_CREAT" - "O_EXCL" - "O_NDELAY" - "O_NOCTTY" - "O_NONBLOCK" - "O_RDONLY" - "O_RDWR" - "O_TRUNC" - "O_WRONLY" - "PROT_EXEC" - "PROT_NONE" - "PROT_WRITE" - "R_OK" - "RU-IDRSS" - "RU-INBLOCK" - "RU-ISRSS" - "RU-IXRSS" - "RU-MAJFLT" - "RU-MAXRSS" - "RU-MINFLT" - "RU-MSGRCV" - "RU-MSGSND" - "RU-NIVCSW" - "RU-NSIGNALS" - "RU-NSWAP" - "RU-NVCSW" - "RU-OUBLOCK" - "RUSAGE_CHILDREN" - "RUSAGE_SELF" - "RU-STIME" - "RU-UTIME" - "S-IFBLK" - "S-IFCHR" - "S-IFDIR" - "S-IFLNK" - "S-IFMT" - "S-IFREG" - "S-IFSOCK" - "SIGABRT" - "SIGALRM" - "SIGBUS" - "SIGCHLD" - "SIGCONT" - "SIGCONTEXT" - "SIGFPE" - "SIGHUP" - "SIGILL" - "SIGINT" - "SIGIO" - "SIGIOT" - "SIGKILL" - "SIGMASK" - "SIGPIPE" - "SIGPROF" - "SIGQUIT" - "SIGSEGV" - "SIGSTKFLT" - "SIGSTOP" - "SIGTERM" - "SIGTRAP" - "SIGTSTP" - "SIGTTIN" - "SIGTTOU" - "SIGURG" - "SIGUSR1" - "SIGUSR2" - "SIGVTALRM" - "SIGWINCH" - "SIGXCPU" - "SIGXFSZ" - "STAT" - "ST-ATIME" - "ST-BLKSIZE" - "ST-BLOCKS" - "ST-CTIME" - "ST-DEV" - "ST-GID" - "ST-MODE" - "ST-MTIME" - "ST-NLINK" - "ST-RDEV" - "ST-SIZE" - "ST-UID" - "TCSADRAIN" - "TCSAFLUSH" - "TCSANOW" - "TIOCGPGRP" - "TIOCGWINSZ" - "TIOCNOTTY" - "TIOCSPGRP" - "TIOCSWINSZ" - "TTY-BRKINT" - "TTY-ECHO" - "TTY-ECHOCTL" - "TTY-ECHOE" - "TTY-ECHOK" - "TTY-ECHOKE" - "TTY-ECHONL" - "TTY-ECHOPRT" - "TTY-FLUSHO" - "TTY-ICANON" - "TTY-ICRNL" - "TTY-IEXTEN" - "TTY-IGNBRK" - "TTY-IGNCR" - "TTY-IGNPAR" - "TTY-IMAXBEL" - "TTY-INLCR" - "TTY-INPCK" - "TTY-ISIG" - "TTY-ISTRIP" - "TTY-IUCLC" - "TTY-IXANY" - "TTY-IXOFF" - "TTY-IXON" - "TTY-NOFLSH" - "TTY-OCRNL" - "TTY-OFDEL" - "TTY-OFILL" - "TTY-OLCUC" - "TTY-ONLCR" - "TTY-ONLRET" - "TTY-ONOCR" - "TTY-OPOST" - "TTY-PARMRK" - "TTY-PENDIN" - "TTY-TOSTOP" - "TTY-XCASE" - "TV-SEC" - "TV-USEC" - "TZ-DSTTIME" - "TZ-MINUTESWEST" - "UID-T" - "UNIX-DUP2" - "UNIX-FD" - "UNIX-FILE-KIND" - "UNIX-FILE-MODE" - "UNIX-GETITIMER" - "UNIX-GETUID" - "UNIX-KILL" - "UNIX-KILLPG" - "UNIX-PATHNAME" - "UNIX-PID" - "UNIX-SIGBLOCK" - "UNIX-SIGNAL-DESCRIPTION" - "UNIX-SIGNAL-NAME" - "UNIX-SIGNAL-NUMBER" - "UNIX-SIGPAUSE" - "UNIX-SIGSETMASK" - "UNIX-UNAME" - "USER-INFO" - "USER-INFO-DIR" - "USER-INFO-GECOS" - "USER-INFO-GID" - "USER-INFO-PASSWORD" - "USER-INFO-SHELL" - "USER-INFO-UID" + "BLKCNT-T" "D-INO" "D-OFF" "EADV" "EBADE" "EBADFD" "EBADMSG" "EBADR" + "EBADRQC" "EBADSLT" "EBFONT" "ECHRNG" "ECOMM" "EDEADLOCK" "EDOTDOT" + "EIDRM" "EILSEQ" "EISNAM" "EL2HLT" "EL2NSYNC" "EL3HLT" "EL3RST" "ELIBACC" + "ELIBBAD" "ELIBEXEC" "ELIBMAX" "ELIBSCN" "ELNRNG" "EMULTIHOP" "ENAVAIL" + "ENOANO" "ENOCSI" "ENODATA" "ENOLCK" "ENOLINK" "ENOMSG" "ENONET" "ENOPKG" + "ENOSR" "ENOSTR" "ENOSYS" "ENOTNAM" "ENOTUNIQ" "EOVERFLOW" "EPROTO" + "EREMCHG" "EREMOTEIO" "ERESTART" "ESRMNT" "ESTALE" "ESTRPIPE" "ETIME" + "EUCLEAN" "EUNATCH" "EXFULL" "O_NOCTTY" "SIGSTKFLT" "TTY-IUCLC" + "TTY-OCRNL" "TTY-OFDEL" "TTY-OFILL" "TTY-OLCUC" "TTY-ONLRET" "TTY-ONOCR" + "TTY-XCASE" "UNIX-DUP2" "UNIX-GETITIMER" "UNIX-PID" "UNIX-UNAME" "UTSNAME" - "VDSUSP" - "VEOF" - "VEOL" - "VEOL2" - "VERASE" - "VINTR" - "VKILL" - "VMIN" - "VQUIT" - "VSTART" - "VSTOP" - "VSUSP" - "VTIME" - "W_OK" - "WRITEOWN" - "WS-COL" - "WS-ROW" - "WS-XPIXEL" - "WS-YPIXEL" - "X_OK" )) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/b3b95e25e387ed168ce80c298…

1 0

[cmucl/cmucl][rtoy-unix-core] 2 commits: Load up the unix fasl file using compile-file-pathname.
by Raymond Toy 10 May '15

10 May '15

Raymond Toy pushed to branch rtoy-unix-core at cmucl / cmucl Commits: eb4a83b4 by Raymond Toy at 2015-05-10T14:16:20Z Load up the unix fasl file using compile-file-pathname. - - - - - 1f888009 by Raymond Toy at 2015-05-10T14:23:23Z Remove set -x that was accidentally left in. - - - - - 2 changed files: - bin/make-main-dist.sh - src/contrib/load-unix.lisp Changes: ===================================== bin/make-main-dist.sh ===================================== --- a/bin/make-main-dist.sh +++ b/bin/make-main-dist.sh @@ -133,7 +133,6 @@ do install -d ${GROUP} ${OWNER} -m 0755 $DESTDIR/lib/cmucl/lib/contrib/$f done -set -x case `uname -s` in Linux*) UCONTRIB="unix-glibc2" ;; *) UCONTRIB="unix" ;; ===================================== src/contrib/load-unix.lisp ===================================== --- a/src/contrib/load-unix.lisp +++ b/src/contrib/load-unix.lisp @@ -1,7 +1,7 @@ ;; Load extra functionality in the UNIX package. (ext:without-package-locks - (load #-linux "modules:unix/unix" - #+linux "modules:unix/unix-glibc2")) + (load (compile-file-pathname #-linux "modules:unix/unix" + #+linux "modules:unix/unix-glibc2"))) (provide 'unix) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/f5368940188bb555a1843895…

1 0

[cmucl/cmucl][rtoy-unix-core] Oops. Forgot to remove mmap stuff for contrib/unix/unix-glibc2.lisp.
by Raymond Toy 10 May '15

10 May '15

Raymond Toy pushed to branch rtoy-unix-core at cmucl / cmucl Commits: f5368940 by Raymond Toy at 2015-05-10T10:47:55Z Oops. Forgot to remove mmap stuff for contrib/unix/unix-glibc2.lisp. - - - - - 1 changed file: - src/contrib/unix/unix-glibc2.lisp Changes: ===================================== src/contrib/unix/unix-glibc2.lisp ===================================== --- a/src/contrib/unix/unix-glibc2.lisp +++ b/src/contrib/unix/unix-glibc2.lisp @@ -204,57 +204,6 @@ (setf cur (funcall inc cur 1))))) `(progn ,@(mapcar #'defform names)))) -;;;; Memory-mapped files - -(defconstant +null+ (sys:int-sap 0)) - -(defconstant prot_read 1) -(defconstant prot_write 2) -(defconstant prot_exec 4) -(defconstant prot_none 0) - -(defconstant map_shared 1) -(defconstant map_private 2) -(defconstant map_fixed 16) -(defconstant map_anonymous 32) - -(defconstant ms_async 1) -(defconstant ms_sync 4) -(defconstant ms_invalidate 2) - -;; The return value from mmap that means mmap failed. -(defconstant map_failed (int-sap (1- (ash 1 vm:word-bits)))) - -(defun unix-mmap (addr length prot flags fd offset) - (declare (type (or null system-area-pointer) addr) - (type (unsigned-byte 32) length) - (type (integer 1 7) prot) - (type (unsigned-byte 32) flags) - (type (or null unix-fd) fd) - (type (signed-byte 32) offset)) - ;; Can't use syscall, because the address that is returned could be - ;; "negative". Hence we explicitly check for mmap returning - ;; MAP_FAILED. - (let ((result - (alien-funcall (extern-alien "mmap" (function system-area-pointer - system-area-pointer - size-t int int int off-t)) - (or addr +null+) length prot flags (or fd -1) offset))) - (if (sap= result map_failed) - (values nil (unix-errno)) - (values result 0)))) - -(defun unix-munmap (addr length) - (declare (type system-area-pointer addr) - (type (unsigned-byte 32) length)) - (syscall ("munmap" system-area-pointer size-t) t addr length)) - -(defun unix-msync (addr length flags) - (declare (type system-area-pointer addr) - (type (unsigned-byte 32) length) - (type (signed-byte 32) flags)) - (syscall ("msync" system-area-pointer size-t int) t addr length flags)) - ;;;; User and group database structures: <pwd.h> and <grp.h> (defstruct group-info View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/f5368940188bb555a18438953…

1 0