Menu
▾
▴
clisp-cvs Digest, Vol 29, Issue 15
|
From: <cli...@li...> - 2008-09-15 15:48:43
|
Send clisp-cvs mailing list submissions to cli...@li... To subscribe or unsubscribe via the World Wide Web, visit https://lists.sourceforge.net/lists/listinfo/clisp-cvs or, via email, send a message with subject or body 'help' to cli...@li... You can reach the person managing the list at cli...@li... When replying, please edit your Subject line so it is more specific than "Re: Contents of clisp-cvs digest..." CLISP CVS commits for today Today's Topics: 1. clisp/doc Makefile,1.110,1.111 (Sam Steingold) 2. clisp/modules/syscalls calls.c,1.249,1.250 (Sam Steingold) 3. clisp/src ChangeLog,1.6500,1.6501 (Sam Steingold) 4. clisp/doc Symbol-Table.text,1.29,1.30 (Sam Steingold) 5. clisp/modules/syscalls calls.c, 1.250, 1.251 configure.in, 1.72, 1.73 posix.lisp, 1.84, 1.85 syscalls.xml, 1.114, 1.115 (Sam Steingold) 6. clisp/src ChangeLog,1.6501,1.6502 NEWS,1.482,1.483 (Sam Steingold) 7. clisp/modules/syscalls test.tst,1.78,1.79 (Sam Steingold) 8. clisp/doc Symbol-Table.text,1.30,1.31 (Sam Steingold) 9. clisp/modules/syscalls calls.c, 1.251, 1.252 configure.in, 1.73, 1.74 posix.lisp, 1.85, 1.86 syscalls.xml, 1.115, 1.116 test.tst, 1.79, 1.80 (Sam Steingold) 10. clisp/src ChangeLog,1.6502,1.6503 NEWS,1.483,1.484 (Sam Steingold) 11. clisp/modules/syscalls calls.c,1.252,1.253 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Mon, 15 Sep 2008 20:51:54 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/doc Makefile,1.110,1.111 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv12775 Modified Files: Makefile Log Message: docbook-xsl: force; grep for fm:Version Index: Makefile =================================================================== RCS file: /cvsroot/clisp/clisp/doc/Makefile,v retrieving revision 1.110 retrieving revision 1.111 diff -u -d -r1.110 -r1.111 --- Makefile 16 Jul 2008 02:20:33 -0000 1.110 +++ Makefile 15 Sep 2008 20:51:52 -0000 1.111 @@ -241,8 +241,9 @@ wget -O docbook-xml.zip $(DTD_DOWNLOAD) && \ unzip docbook-xml.zip && $(RM) docbook-xml.zip -docbook-xsl : +docbook-xsl : force rsync -av --port=5873 docbook.xml-doc.org::xsl docbook-xsl + grep '<fm:Version>' docbook-xsl/VERSION SEARCH= search: force ------------------------------ Message: 2 Date: Mon, 15 Sep 2008 21:52:40 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/syscalls calls.c,1.249,1.250 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/modules/syscalls In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv2635/modules/syscalls Modified Files: calls.c Log Message: (grp_to_lisp): use gid_to_I instead of UL_to_I (GROUP-INFO): use integerp instead of uint32_p Index: calls.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/calls.c,v retrieving revision 1.249 retrieving revision 1.250 diff -u -d -r1.249 -r1.250 --- calls.c 21 Aug 2008 15:52:14 -0000 1.249 +++ calls.c 15 Sep 2008 21:52:38 -0000 1.250 @@ -1573,7 +1573,7 @@ can trigger GC */ static Values grp_to_lisp (struct group *group) { pushSTACK(safe_to_string(group->gr_name)); - pushSTACK(UL_to_I(group->gr_gid)); + pushSTACK(gid_to_I(group->gr_gid)); push_string_array(group->gr_mem); funcall(`POSIX::MAKE-GROUP-INFO`,3); } @@ -1604,8 +1604,8 @@ begin_system_call(); errno = 0; - if (uint32_p(group)) - gr = getgrgid(I_to_uint32(group)); + if (integerp(group)) + gr = getgrgid(I_to_gid(group)); else if (symbolp(group)) { group = Symbol_name(group); goto group_info_string; ------------------------------ Message: 3 Date: Mon, 15 Sep 2008 21:52:41 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.6500,1.6501 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv2635/src Modified Files: ChangeLog Log Message: (grp_to_lisp): use gid_to_I instead of UL_to_I (GROUP-INFO): use integerp instead of uint32_p Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6500 retrieving revision 1.6501 diff -u -d -r1.6500 -r1.6501 --- ChangeLog 15 Sep 2008 16:10:18 -0000 1.6500 +++ ChangeLog 15 Sep 2008 21:52:38 -0000 1.6501 @@ -1,5 +1,11 @@ 2008-09-15 Sam Steingold <sd...@gn...> + * ../modules/syscalls/calls.c + (grp_to_lisp): use gid_to_I instead of UL_to_I + (GROUP-INFO): use integerp instead of uint32_p + +2008-09-15 Sam Steingold <sd...@gn...> + * configure: fix bug #[ 2110337 ]: libsigsegv configure hints suggest "rm -f ${DIRNAME}/config.cache" ------------------------------ Message: 4 Date: Mon, 15 Sep 2008 22:18:01 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/doc Symbol-Table.text,1.29,1.30 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv13419/doc Modified Files: Symbol-Table.text Log Message: (POSIX:USER-SHELLS): implement Index: Symbol-Table.text =================================================================== RCS file: /cvsroot/clisp/clisp/doc/Symbol-Table.text,v retrieving revision 1.29 retrieving revision 1.30 diff -u -d -r1.29 -r1.30 --- Symbol-Table.text 12 Jun 2008 19:11:17 -0000 1.29 +++ Symbol-Table.text 15 Sep 2008 22:17:58 -0000 1.30 @@ -1122,6 +1122,8 @@ user-info POSIX:GROUP-INFO group-info +POSIX:USER-SHELLS +user-shells POSIX:RLIMIT rlimit POSIX:USAGE @@ -1136,6 +1138,8 @@ with-stream-lock POSIX:STREAM-OPTIONS fcntl +POSIX:FILE-SIZE +file-size POSIX:MKNOD mknod POSIX:CONVERT-MODE ------------------------------ Message: 5 Date: Mon, 15 Sep 2008 22:18:01 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/syscalls calls.c, 1.250, 1.251 configure.in, 1.72, 1.73 posix.lisp, 1.84, 1.85 syscalls.xml, 1.114, 1.115 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/modules/syscalls In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv13419/modules/syscalls Modified Files: calls.c configure.in posix.lisp syscalls.xml Log Message: (POSIX:USER-SHELLS): implement Index: calls.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/calls.c,v retrieving revision 1.250 retrieving revision 1.251 diff -u -d -r1.250 -r1.251 --- calls.c 15 Sep 2008 21:52:38 -0000 1.250 +++ calls.c 15 Sep 2008 22:17:59 -0000 1.251 @@ -1710,6 +1710,19 @@ http://msdn.microsoft.com/library/en-us/netmgmt/netmgmt/netuserenum.asp */ #endif /* user-info */ +#if defined(HAVE_GETUSERSHELL) && defined(HAVE_ENDUSERSHELL) +DEFUN(POSIX:USER-SHELLS,) { + int count = 0; + char *shell; + begin_system_call(); + for (;(shell = getusershell()); count++) + pushSTACK(asciz_to_string(shell,GLO(misc_encoding))); + endusershell(); + end_system_call(); + VALUES1(listof(count)); +} +#endif /* HAVE_GETUSERSHELL & HAVE_ENDUSERSHELL */ + #if defined(HAVE_GETUID) DEFUN(POSIX:UID,){ GETTER0(uid,getuid); } #endif Index: syscalls.xml =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/syscalls.xml,v retrieving revision 1.114 retrieving revision 1.115 diff -u -d -r1.114 -r1.115 --- syscalls.xml 15 Aug 2008 03:51:04 -0000 1.114 +++ syscalls.xml 15 Sep 2008 22:17:59 -0000 1.115 @@ -440,6 +440,10 @@ When <replaceable>group</replaceable> is missing or &nil;, return all groups (using <function role="unix">getgrent</function>).</simpara> <simpara>&unix-only;</simpara></listitem></varlistentry> +<varlistentry id="user-shells"> + <term><code>(<function>POSIX:USER-SHELLS</function>)</code></term> + <listitem><simpara>Call <function role="bsd">getusershell</function>. +</simpara></listitem></varlistentry> </variablelist></section> <section id="sysinfo"><title>System Information</title> Index: posix.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/posix.lisp,v retrieving revision 1.84 retrieving revision 1.85 diff -u -d -r1.84 -r1.85 --- posix.lisp 15 Aug 2008 03:51:04 -0000 1.84 +++ posix.lisp 15 Sep 2008 22:17:59 -0000 1.85 @@ -13,7 +13,7 @@ #+(or :win32 :cygwin) #:file-properties #+unix #:make-xterm-io-stream #:priority #:openlog #:setlogmask #:syslog #:closelog #:process-id #:getppid #:getsid #:setsid #:getpgrp #:setpgrp #:setreuid #:setregid #:kill #:sync - #:errno #:strerror #:hostid #:file-size + #:errno #:strerror #:hostid #:file-size #:user-shells #:erf #:erfc #:j0 #:j1 #:jn #:y0 #:y1 #:yn #:tgamma #:lgamma #:ffs)) (pushnew :syscalls *features*) Index: configure.in =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/configure.in,v retrieving revision 1.72 retrieving revision 1.73 diff -u -d -r1.72 -r1.73 --- configure.in 15 Aug 2008 03:51:04 -0000 1.72 +++ configure.in 15 Sep 2008 22:17:59 -0000 1.73 @@ -42,7 +42,7 @@ getegid geteuid getgid getuid setegid seteuid setgid setuid dnl setreuid setregid getgroups setgroups dnl fchmod fchown fstat link stat symlink utime mknod chmod umask fsync sync dnl -ftruncate truncate dnl +ftruncate truncate getusershell endusershell dnl erf erfc lgamma tgamma fstatvfs statvfs getpriority setpriority dnl crypt encrypt setkey GlobalMemoryStatusEx strerror gethostid sethostid) AC_FUNC_CHOWN ------------------------------ Message: 6 Date: Mon, 15 Sep 2008 22:18:01 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.6501,1.6502 NEWS,1.482,1.483 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv13419/src Modified Files: ChangeLog NEWS Log Message: (POSIX:USER-SHELLS): implement Index: NEWS =================================================================== RCS file: /cvsroot/clisp/clisp/src/NEWS,v retrieving revision 1.482 retrieving revision 1.483 diff -u -d -r1.482 -r1.483 --- NEWS 15 Sep 2008 15:21:33 -0000 1.482 +++ NEWS 15 Sep 2008 22:17:59 -0000 1.483 @@ -20,6 +20,9 @@ designators and lets you change file size. See <http://clisp.cons.org/impnotes/syscalls.html#file-size> for details. +* New function OS:USER-SHELLS returns the list of legal user shells. + See <http://clisp.cons.org/impnotes/syscalls.html#user-shells> for details. + * Module readline has been upgraded to readline 5.2 (older versions 5.0 and 5.1 are, of course, still supported). See <http://clisp.cons.org/impnotes/readline-mod.html> for details. Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6501 retrieving revision 1.6502 diff -u -d -r1.6501 -r1.6502 --- ChangeLog 15 Sep 2008 21:52:38 -0000 1.6501 +++ ChangeLog 15 Sep 2008 22:17:59 -0000 1.6502 @@ -1,6 +1,11 @@ 2008-09-15 Sam Steingold <sd...@gn...> - * ../modules/syscalls/calls.c + * modules/syscalls/calls.c (POSIX:USER-SHELLS): implement + * modules/syscalls/posix.lisp (USER-SHELLS): export + +2008-09-15 Sam Steingold <sd...@gn...> + + * modules/syscalls/calls.c (grp_to_lisp): use gid_to_I instead of UL_to_I (GROUP-INFO): use integerp instead of uint32_p ------------------------------ Message: 7 Date: Mon, 15 Sep 2008 22:27:51 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/syscalls test.tst,1.78,1.79 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/modules/syscalls In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv17894/modules/syscalls Modified Files: test.tst Log Message: test POSIX:USER-SHELLS Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/test.tst,v retrieving revision 1.78 retrieving revision 1.79 diff -u -d -r1.78 -r1.79 --- test.tst 20 Aug 2008 19:59:52 -0000 1.78 +++ test.tst 15 Sep 2008 22:27:49 -0000 1.79 @@ -244,6 +244,9 @@ #+unix (= (os:uid) (os:user-info-uid (os:user-info (os:uid)))) T #+unix (= (os:gid) (os:user-info-gid (os:user-info (os:uid)))) T +(or (not (fboundp 'os:user-shells)) + (notevery #'stringp (os:user-shells))) NIL + (os:file-stat-p (show (os:file-stat *tmp1*) :pretty t)) T (os:file-stat-p (show (os:file-stat (pathname *tmp1*)) :pretty t)) T ------------------------------ Message: 8 Date: Mon, 15 Sep 2008 22:47:55 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/doc Symbol-Table.text,1.30,1.31 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv28822/doc Modified Files: Symbol-Table.text Log Message: (POSIX:DOMAINNAME): new setfable function Index: Symbol-Table.text =================================================================== RCS file: /cvsroot/clisp/clisp/doc/Symbol-Table.text,v retrieving revision 1.30 retrieving revision 1.31 diff -u -d -r1.30 -r1.31 --- Symbol-Table.text 15 Sep 2008 22:17:58 -0000 1.30 +++ Symbol-Table.text 15 Sep 2008 22:47:53 -0000 1.31 @@ -1160,8 +1160,10 @@ encrypt POSIX:PHYSICAL-MEMORY phys-mem -POSIX:GETHOSTID -gethostid +POSIX:HOSTID +hostid +POSIX:DOMAINNAME +domainname POSIX:FILE-OWNER file-owner POSIX:PRIORITY ------------------------------ Message: 9 Date: Mon, 15 Sep 2008 22:47:55 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/syscalls calls.c, 1.251, 1.252 configure.in, 1.73, 1.74 posix.lisp, 1.85, 1.86 syscalls.xml, 1.115, 1.116 test.tst, 1.79, 1.80 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/modules/syscalls In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv28822/modules/syscalls Modified Files: calls.c configure.in posix.lisp syscalls.xml test.tst Log Message: (POSIX:DOMAINNAME): new setfable function Index: calls.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/calls.c,v retrieving revision 1.251 retrieving revision 1.252 diff -u -d -r1.251 -r1.252 --- calls.c 15 Sep 2008 22:17:59 -0000 1.251 +++ calls.c 15 Sep 2008 22:47:53 -0000 1.252 @@ -1795,6 +1795,32 @@ VALUES1(popSTACK()); } #endif +#ifndef MAXHOSTNAMELEN +# define MAXHOSTNAMELEN 64 /* see <sys/param.h> */ +#endif +#if 1 /* defined(HAVE_GETDOMAINNAME) */ +DEFUN(POSIX:DOMAINNAME,) { + char domain[MAXHOSTNAMELEN]; + int e; + begin_system_call(); + e = getdomainname(domain,MAXHOSTNAMELEN); + end_system_call(); + if (e) OS_error(); + VALUES1(asciz_to_string(domain,GLO(misc_encoding))); +} +#endif +#if 1 /* defined(HAVE_SETDOMAINNAME) */ +DEFUN(POSIX::%SETDOMAINNAME, domain) { + int e; + with_string_0(STACK_0 = check_string(STACK_0),GLO(misc_encoding),domain, { + begin_system_call(); + e = setdomainname(domain,MAXHOSTNAMELEN); + end_system_call(); + }); + if (e) OS_error(); + VALUES1(popSTACK()); /* return the argument for the sake of SETF */ +} +#endif #if defined(HAVE_FSTAT) && defined(HAVE_STAT) # if !defined(HAVE_LSTAT) Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/test.tst,v retrieving revision 1.79 retrieving revision 1.80 diff -u -d -r1.79 -r1.80 --- test.tst 15 Sep 2008 22:27:49 -0000 1.79 +++ test.tst 15 Sep 2008 22:47:53 -0000 1.80 @@ -485,6 +485,12 @@ (zerop (os:euid)) (not (= (setf (os:hostid) (os:hostid)) (os:hostid)))) #+unix NIL +(and (fboundp 'os:domainname) (not (stringp (show (os:domainname))))) NIL +#+unix (and (fboundp 'os::%setdomainname) + (zerop (os:euid)) + (not (= (setf (os:domainname) (os:domainname)) (os:domainname)))) +#+unix NIL + (progn (delete-file *tmp1*) (symbol-cleanup '*tmp1*) (delete-file *tmp2*) (symbol-cleanup '*tmp2*) Index: syscalls.xml =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/syscalls.xml,v retrieving revision 1.115 retrieving revision 1.116 diff -u -d -r1.115 -r1.116 --- syscalls.xml 15 Sep 2008 22:17:59 -0000 1.115 +++ syscalls.xml 15 Sep 2008 22:47:53 -0000 1.116 @@ -520,7 +520,7 @@ <varlistentry id="phys-mem"><term><code>(OS:PHYSICAL-MEMORY)</code></term> <listitem><simpara>Return 2 values: total and available physical memory. </simpara><simpara>&unix-w32-only;</simpara></listitem></varlistentry> - <varlistentry id="gethostid"><term><code>(OS:HOSTID)</code></term> + <varlistentry id="hostid"><term><code>(OS:HOSTID)</code></term> <term><code>(&setf; (OS:HOSTID) &value-r;)</code></term> <listitem><simpara>Call <function role="unix">gethostid</function> and return a (hopefully) universally unique &integer-t; identifier of @@ -534,7 +534,12 @@ course, means that <quote>universally unique</quote> it is ¬-e;. </para></warning><simpara>Superuser can also set host identifier using &setf; which calls <function role="bsd">sethostid</function>. - </simpara><simpara>&unix-w32-only;</simpara></listitem> + </simpara><simpara>&unix-w32-only;</simpara></listitem></varlistentry> + <varlistentry id="domainname"> + <term><code>(<function>OS:DOMAINNAME</function>)</code></term> + <term><code>(&setf; (<function>OS:DOMAINNAME</function>) &dom-r;</code></term> + <listitem><simpara>Call <function role="bsd">getdomainname</function> + and <function role="bsd">setdomainname</function>.</simpara></listitem> </varlistentry></variablelist></section> <section id="posix-math"><title>Mathematical functions</title> Index: posix.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/posix.lisp,v retrieving revision 1.85 retrieving revision 1.86 diff -u -d -r1.85 -r1.86 --- posix.lisp 15 Sep 2008 22:17:59 -0000 1.85 +++ posix.lisp 15 Sep 2008 22:47:53 -0000 1.86 @@ -13,7 +13,7 @@ #+(or :win32 :cygwin) #:file-properties #+unix #:make-xterm-io-stream #:priority #:openlog #:setlogmask #:syslog #:closelog #:process-id #:getppid #:getsid #:setsid #:getpgrp #:setpgrp #:setreuid #:setregid #:kill #:sync - #:errno #:strerror #:hostid #:file-size #:user-shells + #:errno #:strerror #:hostid #:domainname #:file-size #:user-shells #:erf #:erfc #:j0 #:j1 #:jn #:y0 #:y1 #:yn #:tgamma #:lgamma #:ffs)) (pushnew :syscalls *features*) @@ -46,6 +46,7 @@ ;;; ============================================================ (defsetf file-size %set-file-size) (defsetf hostid %sethostid) +(defsetf domainname %setdomainname) ;;; ============================================================ (defun syslog (severity facility format &rest args) (%syslog severity facility (apply #'format nil format args))) Index: configure.in =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/configure.in,v retrieving revision 1.73 retrieving revision 1.74 diff -u -d -r1.73 -r1.74 --- configure.in 15 Sep 2008 22:17:59 -0000 1.73 +++ configure.in 15 Sep 2008 22:47:53 -0000 1.74 @@ -44,7 +44,8 @@ fchmod fchown fstat link stat symlink utime mknod chmod umask fsync sync dnl ftruncate truncate getusershell endusershell dnl erf erfc lgamma tgamma fstatvfs statvfs getpriority setpriority dnl -crypt encrypt setkey GlobalMemoryStatusEx strerror gethostid sethostid) +crypt encrypt setkey GlobalMemoryStatusEx strerror dnl +gethostid sethostid getdomainname setdomainname) AC_FUNC_CHOWN AC_CHECK_DECLS([signgam],,,[#include <math.h>]) CL_STAT ------------------------------ Message: 10 Date: Mon, 15 Sep 2008 22:47:55 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.6502,1.6503 NEWS,1.483,1.484 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv28822/src Modified Files: ChangeLog NEWS Log Message: (POSIX:DOMAINNAME): new setfable function Index: NEWS =================================================================== RCS file: /cvsroot/clisp/clisp/src/NEWS,v retrieving revision 1.483 retrieving revision 1.484 diff -u -d -r1.483 -r1.484 --- NEWS 15 Sep 2008 22:17:59 -0000 1.483 +++ NEWS 15 Sep 2008 22:47:53 -0000 1.484 @@ -22,6 +22,8 @@ * New function OS:USER-SHELLS returns the list of legal user shells. See <http://clisp.cons.org/impnotes/syscalls.html#user-shells> for details. + New SETFable functions OS:HOSTID and OS:DOMAINNAME. + See <http://clisp.cons.org/impnotes/syscalls.html#hostid> for details. * Module readline has been upgraded to readline 5.2 (older versions 5.0 and 5.1 are, of course, still supported). Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6502 retrieving revision 1.6503 diff -u -d -r1.6502 -r1.6503 --- ChangeLog 15 Sep 2008 22:17:59 -0000 1.6502 +++ ChangeLog 15 Sep 2008 22:47:53 -0000 1.6503 @@ -1,5 +1,11 @@ 2008-09-15 Sam Steingold <sd...@gn...> + * modules/syscalls/calls.c (POSIX:DOMAINNAME) + (POSIX::%SETDOMAINNAME): add + * modules/syscalls/posix.lisp (domainname): add defsetf and export + +2008-09-15 Sam Steingold <sd...@gn...> + * modules/syscalls/calls.c (POSIX:USER-SHELLS): implement * modules/syscalls/posix.lisp (USER-SHELLS): export ------------------------------ Message: 11 Date: Mon, 15 Sep 2008 22:48:37 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/syscalls calls.c,1.252,1.253 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/modules/syscalls In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv29450/modules/syscalls Modified Files: calls.c Log Message: oops Index: calls.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/calls.c,v retrieving revision 1.252 retrieving revision 1.253 diff -u -d -r1.252 -r1.253 --- calls.c 15 Sep 2008 22:47:53 -0000 1.252 +++ calls.c 15 Sep 2008 22:48:35 -0000 1.253 @@ -1798,7 +1798,7 @@ #ifndef MAXHOSTNAMELEN # define MAXHOSTNAMELEN 64 /* see <sys/param.h> */ #endif -#if 1 /* defined(HAVE_GETDOMAINNAME) */ +#if defined(HAVE_GETDOMAINNAME) DEFUN(POSIX:DOMAINNAME,) { char domain[MAXHOSTNAMELEN]; int e; @@ -1809,7 +1809,7 @@ VALUES1(asciz_to_string(domain,GLO(misc_encoding))); } #endif -#if 1 /* defined(HAVE_SETDOMAINNAME) */ +#if defined(HAVE_SETDOMAINNAME) DEFUN(POSIX::%SETDOMAINNAME, domain) { int e; with_string_0(STACK_0 = check_string(STACK_0),GLO(misc_encoding),domain, { ------------------------------ ------------------------------------------------------------------------- This SF.Net email is sponsored by the Moblin Your Move Developer's challenge Build the coolest Linux based applications with Moblin SDK & win great prizes Grand prize is a trip for two to an Open Source event anywhere in the world http://moblin-contest.org/redirect.php?banner_id=100&url=/ ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 29, Issue 15 ***************************************** |