uffi/tests structs.lisp,NONE,1.1 arrays.lisp,1.4,1.5 atoifl.lisp,1.2,1.3 compress.lisp,1.11,1.12 foreign-loader.lisp,1.3,1.4 getenv.lisp,1.3,1.4 gethostname.lisp,1.5,1.6 strtol.lisp,1.2,1.3 time.lisp,1.1,1.2 uffi-c-test-lib.lisp,1.2,1.3 union.lisp,1.4,1.5
"Kevin M. Rosenberg" <[email protected]> Wed, 13 Aug 2003 18:53:44 +0000
| Newsgroups | gmane.lisp.uffi.cvs |
|---|---|
| Message-ID | <[email protected]> |
Update of /pubcvs/uffi/tests
In directory boa.b9.com:/tmp/cvs-serv4744/debian/src/uffi/tests
Modified Files:
arrays.lisp atoifl.lisp compress.lisp foreign-loader.lisp
getenv.lisp gethostname.lisp strtol.lisp time.lisp
uffi-c-test-lib.lisp union.lisp
Added Files:
structs.lisp
Log Message:
Index: union.lisp
===================================================================
RCS file: /pubcvs/uffi/tests/union.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** union.lisp 29 Apr 2003 14:08:02 -0000 1.4
--- union.lisp 13 Aug 2003 18:53:42 -0000 1.5
***************
*** 3,7 ****
;;;; FILE IDENTIFICATION
;;;;
! ;;;; Name: union.cl
;;;; Purpose: UFFI Example file to test unions
;;;; Programmer: Kevin M. Rosenberg
--- 3,7 ----
;;;; FILE IDENTIFICATION
;;;;
! ;;;; Name: union.lisp
;;;; Purpose: UFFI Example file to test unions
;;;; Programmer: Kevin M. Rosenberg
***************
*** 10,21 ****
;;;; $Id$
;;;;
! ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
- ;;;; UFFI users are granted the rights to distribute and use this software
- ;;;; as governed by the terms of the Lisp Lesser GNU Public License
- ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
! (in-package :uffi-tests)
(uffi:def-union tunion1
--- 10,18 ----
;;;; $Id$
;;;;
! ;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
;;;;
;;;; *************************************************************************
! (in-package #:uffi-tests)
(uffi:def-union tunion1
Index: gethostname.lisp
===================================================================
RCS file: /pubcvs/uffi/tests/gethostname.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** gethostname.lisp 29 Apr 2003 14:13:55 -0000 1.5
--- gethostname.lisp 13 Aug 2003 18:53:42 -0000 1.6
***************
*** 3,7 ****
;;;; FILE IDENTIFICATION
;;;;
! ;;;; Name: gethostname.cl
;;;; Purpose: UFFI Example file to get hostname of system
;;;; Programmer: Kevin M. Rosenberg
--- 3,7 ----
;;;; FILE IDENTIFICATION
;;;;
! ;;;; Name: gethostname.lisp
;;;; Purpose: UFFI Example file to get hostname of system
;;;; Programmer: Kevin M. Rosenberg
***************
*** 10,21 ****
;;;; $Id$
;;;;
! ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
- ;;;; UFFI users are granted the rights to distribute and use this software
- ;;;; as governed by the terms of the Lisp Lesser GNU Public License
- ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
! (in-package :uffi-tests)
--- 10,18 ----
;;;; $Id$
;;;;
! ;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
;;;;
;;;; *************************************************************************
! (in-package #:uffi-tests)
Index: time.lisp
===================================================================
RCS file: /pubcvs/uffi/tests/time.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** time.lisp 30 Apr 2003 14:06:14 -0000 1.1
--- time.lisp 13 Aug 2003 18:53:42 -0000 1.2
***************
*** 12,21 ****
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
- ;;;; UFFI users are granted the rights to distribute and use this software
- ;;;; as governed by the terms of the Lisp Lesser GNU Public License
- ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
! (in-package :uffi-tests)
(uffi:def-foreign-type time-t :unsigned-long)
--- 12,18 ----
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;; *************************************************************************
! (in-package #:uffi-tests)
(uffi:def-foreign-type time-t :unsigned-long)
Index: getenv.lisp
===================================================================
RCS file: /pubcvs/uffi/tests/getenv.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** getenv.lisp 1 May 2003 23:31:40 -0000 1.3
--- getenv.lisp 13 Aug 2003 18:53:42 -0000 1.4
***************
*** 3,7 ****
;;;; FILE IDENTIFICATION
;;;;
! ;;;; Name: getenv.cl
;;;; Purpose: UFFI Example file to get environment variable
;;;; Programmer: Kevin M. Rosenberg
--- 3,7 ----
;;;; FILE IDENTIFICATION
;;;;
! ;;;; Name: getenv.lisp
;;;; Purpose: UFFI Example file to get environment variable
;;;; Programmer: Kevin M. Rosenberg
***************
*** 10,21 ****
;;;; $Id$
;;;;
! ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
- ;;;; UFFI users are granted the rights to distribute and use this software
- ;;;; as governed by the terms of the Lisp Lesser GNU Public License
- ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
! (in-package :uffi-tests)
--- 10,18 ----
;;;; $Id$
;;;;
! ;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
;;;;
;;;; *************************************************************************
! (in-package #:uffi-tests)
Index: foreign-loader.lisp
===================================================================
RCS file: /pubcvs/uffi/tests/foreign-loader.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** foreign-loader.lisp 26 Jun 2003 18:02:08 -0000 1.3
--- foreign-loader.lisp 13 Aug 2003 18:53:42 -0000 1.4
***************
*** 12,18 ****
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
- ;;;; UFFI users are granted the rights to distribute and use this software
- ;;;; as governed by the terms of the Lisp Lesser GNU Public License
- ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
--- 12,15 ----
***************
*** 20,24 ****
;;; usage
! (in-package :uffi-tests)
(eval-when (:compile-toplevel :load-toplevel :execute)
--- 17,21 ----
;;; usage
! (in-package #:uffi-tests)
(eval-when (:compile-toplevel :load-toplevel :execute)
Index: strtol.lisp
===================================================================
RCS file: /pubcvs/uffi/tests/strtol.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** strtol.lisp 29 Apr 2003 12:57:10 -0000 1.2
--- strtol.lisp 13 Aug 2003 18:53:42 -0000 1.3
***************
*** 3,7 ****
;;;; FILE IDENTIFICATION
;;;;
! ;;;; Name: strtol.cl
;;;; Purpose: UFFI Example file to strtol, uses pointer arithmetic
;;;; Programmer: Kevin M. Rosenberg
--- 3,7 ----
;;;; FILE IDENTIFICATION
;;;;
! ;;;; Name: strtol.lisp
;;;; Purpose: UFFI Example file to strtol, uses pointer arithmetic
;;;; Programmer: Kevin M. Rosenberg
***************
*** 10,21 ****
;;;; $Id$
;;;;
! ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
- ;;;; UFFI users are granted the rights to distribute and use this software
- ;;;; as governed by the terms of the Lisp Lesser GNU Public License
- ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
! (in-package :uffi-tests)
(uffi:def-foreign-type char-ptr (* :unsigned-char))
--- 10,18 ----
;;;; $Id$
;;;;
! ;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
;;;;
;;;; *************************************************************************
! (in-package #:uffi-tests)
(uffi:def-foreign-type char-ptr (* :unsigned-char))
Index: uffi-c-test-lib.lisp
===================================================================
RCS file: /pubcvs/uffi/tests/uffi-c-test-lib.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** uffi-c-test-lib.lisp 2 May 2003 02:50:12 -0000 1.2
--- uffi-c-test-lib.lisp 13 Aug 2003 18:53:42 -0000 1.3
***************
*** 3,7 ****
;;;; FILE IDENTIFICATION
;;;;
! ;;;; Name: c-test-fns.cl
;;;; Purpose: UFFI Example file for zlib compression
;;;; Programmer: Kevin M. Rosenberg
--- 3,7 ----
;;;; FILE IDENTIFICATION
;;;;
! ;;;; Name: uffi-c-test-lib.lisp
;;;; Purpose: UFFI Example file for zlib compression
;;;; Programmer: Kevin M. Rosenberg
***************
*** 10,21 ****
;;;; $Id$
;;;;
! ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
- ;;;; UFFI users are granted the rights to distribute and use this software
- ;;;; as governed by the terms of the Lisp Lesser GNU Public License
- ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
! (in-package :uffi-tests)
--- 10,18 ----
;;;; $Id$
;;;;
! ;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
;;;;
;;;; *************************************************************************
! (in-package #:uffi-tests)
Index: compress.lisp
===================================================================
RCS file: /pubcvs/uffi/tests/compress.lisp,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** compress.lisp 2 May 2003 02:50:12 -0000 1.11
--- compress.lisp 13 Aug 2003 18:53:42 -0000 1.12
***************
*** 10,21 ****
;;;; $Id$
;;;;
! ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
- ;;;; UFFI users are granted the rights to distribute and use this software
- ;;;; as governed by the terms of the Lisp Lesser GNU Public License
- ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
! (in-package :uffi-tests)
(uffi:def-function ("compress" c-compress)
--- 10,18 ----
;;;; $Id$
;;;;
! ;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
;;;;
;;;; *************************************************************************
! (in-package #:uffi-tests)
(uffi:def-function ("compress" c-compress)
Index: atoifl.lisp
===================================================================
RCS file: /pubcvs/uffi/tests/atoifl.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** atoifl.lisp 29 Apr 2003 12:57:10 -0000 1.2
--- atoifl.lisp 13 Aug 2003 18:53:42 -0000 1.3
***************
*** 3,7 ****
;;;; FILE IDENTIFICATION
;;;;
! ;;;; Name: atoifl.cl
;;;; Purpose: UFFI Example file to atoi/atof/atol
;;;; Programmer: Kevin M. Rosenberg
--- 3,7 ----
;;;; FILE IDENTIFICATION
;;;;
! ;;;; Name: atoifl.lisp
;;;; Purpose: UFFI Example file to atoi/atof/atol
;;;; Programmer: Kevin M. Rosenberg
***************
*** 10,21 ****
;;;; $Id$
;;;;
! ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
- ;;;; UFFI users are granted the rights to distribute and use this software
- ;;;; as governed by the terms of the Lisp Lesser GNU Public License
- ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
! (in-package :uffi-tests)
(uffi:def-function ("atoi" c-atoi)
--- 10,18 ----
;;;; $Id$
;;;;
! ;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
;;;;
;;;; *************************************************************************
! (in-package #:uffi-tests)
(uffi:def-function ("atoi" c-atoi)
Index: arrays.lisp
===================================================================
RCS file: /pubcvs/uffi/tests/arrays.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** arrays.lisp 1 May 2003 04:59:37 -0000 1.4
--- arrays.lisp 13 Aug 2003 18:53:42 -0000 1.5
***************
*** 10,21 ****
;;;; $Id$
;;;;
! ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
- ;;;; UFFI users are granted the rights to distribute and use this software
- ;;;; as governed by the terms of the Lisp Lesser GNU Public License
- ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
! (in-package :uffi-tests)
(uffi:def-constant +column-length+ 10)
--- 10,18 ----
;;;; $Id$
;;;;
! ;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
;;;;
;;;; *************************************************************************
! (in-package #:uffi-tests)
(uffi:def-constant +column-length+ 10)
--- NEW FILE: structs.lisp ---
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; Name: structs.lisp
;;;; Purpose: UFFI Example file to strtol, uses pointer arithmetic
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; $Id: structs.lisp,v 1.1 2003/08/13 18:53:42 kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;; *************************************************************************
(in-package #:uffi-tests)
;; Compilation failure as reported by Edi Weitz
(uffi:def-struct foo
(bar :pointer-self))
(uffi:def-foreign-type foo-ptr (* foo))
(uffi:def-function "baz"
((x :int))
:returning foo-ptr
:module "frob")
(defun test ()
(with-foreign-object (p 'foo)
(baz p)))