clisp-cvs Digest, Vol 26, Issue 1

[<cli...@li...>]

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 impext.xml,1.519,1.520 (Sam Steingold)


----------------------------------------------------------------------

Message: 1
Date: Sun, 01 Jun 2008 15:02:25 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/doc impext.xml,1.519,1.520
To: cli...@li...
Message-ID: <E1K...@ma...>

Update of /cvsroot/clisp/clisp/doc
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv31603

Modified Files:
	impext.xml 
Log Message:
(dffi-gethostname): os:sysconf instead of HOST_NAME_MAX


Index: impext.xml
===================================================================
RCS file: /cvsroot/clisp/clisp/doc/impext.xml,v
retrieving revision 1.519
retrieving revision 1.520
diff -u -d -r1.519 -r1.520
--- impext.xml	30 May 2008 18:15:39 -0000	1.519
+++ impext.xml	1 Jun 2008 15:02:23 -0000	1.520
@@ -4163,8 +4163,20 @@
         (error "~S: ~D: ~S" 'myhostname errno (strerror errno))))))
 <computeroutput>MYHOSTNAME</computeroutput>
 (myhostname)
-<computeroutput>"abazonk"</computeroutput></programlisting></para>
-</example>
+<computeroutput>"abazonk"</computeroutput></programlisting>
+Note that the &type-r; argument of &with-foreign-object; is evaluated,
+so we do not have to make any assumptions
+about <constant>HOST_NAME_MAX</constant>: <programlisting language="lisp">
+(defun myhostname ()
+  (let ((host-name-max (<link linkend="sysinfo">os:sysconf</link> :host-name-max)))
+    (&with-foreign-object; (name `(&c-array-max; character ,host-name-max))
+      (let ((success (gethostname name ho)))
+        (if (zerop success) (&foreign-value; name)
+          (error "~S: ~D: ~S" 'myhostname errno (strerror errno)))))))
+<computeroutput>MYHOSTNAME</computeroutput>
+(myhostname)
+<computeroutput>"abazonk"</computeroutput></programlisting>
+</para></example>
 
 <example id="dffi-dll-var">
  <title>Accessing variables in shared libraries</title>




------------------------------

-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/

------------------------------

_______________________________________________
clisp-cvs mailing list
cli...@li...
https://lists.sourceforge.net/lists/listinfo/clisp-cvs


End of clisp-cvs Digest, Vol 26, Issue 1
****************************************