r2279: *** empty log message ***

diff --git a/debian/preinst b/debian/preinst
new file mode 100755 (executable)
index 0000000..21b6cc8
--- /dev/null
+++ b/debian/preinst
@@ -0,0 +1,23 @@
+#!/bin/bash
+# This is part of uffi program: 
+#    http://uffi.med-info.com
+#
+# Copyright (c) 2002 Kevin M. Rosenberg
+
+pkg=uffi
+dir=/usr/share/common-lisp-source/source/$pkg
+
+case "$1" in
+    install|upgrade|abort-upgrade)
+       test -h $dir && rm $dir 
+       rm -rf ${dir}-[0-9\.]+
+
+       ;;
+    *)
+        echo "preinst called with unknown argument '$1'" >&2
+       ;;
+esac
+
+#DEBHELPER#
+
+exit 0

diff --git a/doc/Makefile b/doc/Makefile
index 3065b76583634291f2cf1f8bd0dfcfdef51954f3..c9cc9b97db1f5c8a36b602c1d2d4fed67dec172e 100644 (file)
--- a/doc/Makefile
+++ b/doc/Makefile
@@ -5,7 +5,7 @@
 #  Programer:    Kevin M. Rosenberg
 #  Date Started: Mar 2002
 #
-#  CVS Id:   $Id: Makefile,v 1.27 2002/07/09 18:29:27 kevin Exp $
+#  CVS Id:   $Id: Makefile,v 1.28 2002/08/02 14:38:39 kevin Exp $
 #
 # This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 #
@@ -79,6 +79,7 @@ ${TEXFILE}: ${DOCFILES}
 pdf: ${PDFFILE}
 
 ${PDFFILE}: ${DOCFILES}
+       @jade -t tex -c ${CATALOG} -d ${DSSSL_PRINT} ${DOCFILE} > /dev/null
        @pdfjadetex -interaction=batchmode '\pdfcompresslevel=9' '\input ${TEXFILE}' > /dev/null
        @pdfjadetex -interaction=batchmode '\pdfcompresslevel=9' '\input ${TEXFILE}' > /dev/null
        @pdfjadetex -interaction=batchmode '\pdfcompresslevel=9' '\input ${TEXFILE}' > /dev/null

diff --git a/doc/html.tar.gz b/doc/html.tar.gz
index dd47237a4f0f88980ef22e09b6b1f516d299ef22..9e95444928b56aa95577d22f22aa31d375e2a431 100644 (file)
Binary files a/doc/html.tar.gz and b/doc/html.tar.gz differ

diff --git a/doc/intro.sgml b/doc/intro.sgml
index 0aecce09d2025033912b387fbb17b724cb5b4dc3..1b834e8700e038197cb23d5aeb522304269f553c 100644 (file)
--- a/doc/intro.sgml
+++ b/doc/intro.sgml
@@ -41,10 +41,10 @@ particular C-library.
     <para>The primary tested and supported platforms for &uffi; are: 
     </para>
     <itemizedlist mark="opencircle">
-      <listitem><para>&acl; v6.1 and v6.2.beta on Redhat Linux 7.2, Debian Woody,
+      <listitem><para>&acl; v6.1 and v6.2.beta on Debian GNU/Linux
 FreeBSD 4.5, Solaris v2.8, and Microsoft Windows XP.</para></listitem>
-      <listitem><para>&lw; v4.2 on Redhat Linux 7.2 and Microsoft Windows XP.</para></listitem>
-      <listitem><para>&cmucl; 18d-pre on Redhat Linux 7.2, FreeBSD 4.5, and Solaris 2.8</para></listitem>
+      <listitem><para>&lw; v4.2 on Debian GNU/Linux and Microsoft Windows XP.</para></listitem>
+      <listitem><para>&cmucl; 18d-pre on Debian GNU/Linux, FreeBSD 4.5, and Solaris 2.8</para></listitem>
     </itemizedlist>
     <para>Beta code is included with &uffi; for
     </para>

diff --git a/doc/uffi.pdf b/doc/uffi.pdf
index c7bbae3188e5f7188682e21905ce429b69c1c3a0..468f5d92fbe28577955707fb49bca9c9dbd77c6d 100644 (file)
Binary files a/doc/uffi.pdf and b/doc/uffi.pdf differ

diff --git a/examples/file-socket.cl b/examples/file-socket.cl
index f5a3b6d0ec350a64cef975df08af5bb42620eb20..2caa37a1703e6e2bdd5a2eb58cea161585ba8249 100644 (file)
--- a/examples/file-socket.cl
+++ b/examples/file-socket.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Jul 2002
 ;;;;
-;;;; $Id: file-socket.cl,v 1.1 2002/07/31 20:59:06 kevin Exp $
+;;;; $Id: file-socket.cl,v 1.2 2002/08/02 14:39:11 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -18,6 +18,10 @@
 
 (in-package :cl-user)
 
+;; Values for linux
+(uffi:def-constant PF_UNIX 1)
+(uffi:def-constant SOCK_STREAM 1)
+
 (uffi:def-function ("socket" c-socket)
     ((family :int)
      (type :int)
@@ -30,3 +34,9 @@
      (addr-len :int))
     :returning :int)
                  
+(defun connect-to-file-socket (filename)
+  (let ((socket (c-socket PF_UNIX SOCK_STREAM 0)))
+    (if (plusp socket)
+       (let ((stream (c-connect socket filename (length filename))))
+         stream)
+      (error "Unable to create socket"))))

diff --git a/tests/file-socket.cl b/tests/file-socket.cl
index f5a3b6d0ec350a64cef975df08af5bb42620eb20..2caa37a1703e6e2bdd5a2eb58cea161585ba8249 100644 (file)
--- a/tests/file-socket.cl
+++ b/tests/file-socket.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Jul 2002
 ;;;;
-;;;; $Id: file-socket.cl,v 1.1 2002/07/31 20:59:06 kevin Exp $
+;;;; $Id: file-socket.cl,v 1.2 2002/08/02 14:39:11 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -18,6 +18,10 @@
 
 (in-package :cl-user)
 
+;; Values for linux
+(uffi:def-constant PF_UNIX 1)
+(uffi:def-constant SOCK_STREAM 1)
+
 (uffi:def-function ("socket" c-socket)
     ((family :int)
      (type :int)
@@ -30,3 +34,9 @@
      (addr-len :int))
     :returning :int)
                  
+(defun connect-to-file-socket (filename)
+  (let ((socket (c-socket PF_UNIX SOCK_STREAM 0)))
+    (if (plusp socket)
+       (let ((stream (c-connect socket filename (length filename))))
+         stream)
+      (error "Unable to create socket"))))