From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Fri, 2 Aug 2002 14:39:11 +0000 (+0000)
Subject: r2279: *** empty log message ***
X-Git-Tag: v1.6.1~341
X-Git-Url: http://git.kpe.io/?p=uffi.git;a=commitdiff_plain;h=4464cb9bed614c141d39ffaf72328cfc4d5a1452

r2279: *** empty log message ***
---

diff --git a/debian/preinst b/debian/preinst
new file mode 100755
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 3065b76..c9cc9b9 100644
--- 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 dd47237..9e95444 100644
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 0aecce0..1b834e8 100644
--- 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 c7bbae3..468f5d9 100644
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 f5a3b6d..2caa37a 100644
--- 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 f5a3b6d..2caa37a 100644
--- 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"))))