From: Kevin M. Rosenberg Date: Wed, 20 Mar 2002 04:56:52 +0000 (+0000) Subject: r1593: started work on C testing library X-Git-Tag: v1.6.1~573 X-Git-Url: http://git.kpe.io/?p=uffi.git;a=commitdiff_plain;h=f9018842e82e38c3ef5360b3517b9817e7705d0e r1593: started work on C testing library --- diff --git a/examples/Makefile b/examples/Makefile new file mode 100644 index 0000000..4edb1cb --- /dev/null +++ b/examples/Makefile @@ -0,0 +1,42 @@ +# FILE IDENTIFICATION +# +# Name: Makefile +# Purpose: Makefile for UFFI examples +# Programer: Kevin M. Rosenberg +# Date Started: Mar 2002 +# +# CVS Id: $Id: Makefile,v 1.1 2002/03/20 04:56:52 kevin Exp $ +# +# 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. + +# These variables are correct for GCC +# you'll need to modify these for other compilers +CC=gcc +SHARED_CC_OPT=-fpic +SHARED_LD_OPT=-shared + +# If you are using Solaris, these are the correct values +# for creating a shared library +#CC=cc +#SHARED_CC_OPT=-KPIC +#SHARED_LD_OPT=-G + +# Nothing to configure beyond this point + +all: lib + +lib: c-test-lib.so + +c-test-lib.so: c-test-lib.c + ${CC} ${SHARED_CC_OPT} -c c-test-lib.c -o c-test-lib.o + ld ${SHARED_LD_OPT} c-test-lib.o -o c-test-lib.so + +clean: + rm -f *.o *.so + +realclean: + rm -f *.o *.so *~ diff --git a/examples/c-test-lib.c b/examples/c-test-lib.c new file mode 100644 index 0000000..2a6f10c --- /dev/null +++ b/examples/c-test-lib.c @@ -0,0 +1,24 @@ +#include + +int +cstring-count-upper (char* psz) +{ + int count = 0; + while (*psz) { + if (isupper (*psz)) + ++count; + ++psz; + } +} + +void +cstring-to-upper (char* psz) +{ + while (*psz) { + *psz = toupper (*psz); + ++psz; + } +} + + + diff --git a/examples/compress.cl b/examples/compress.cl index c45029d..05fa6ff 100644 --- a/examples/compress.cl +++ b/examples/compress.cl @@ -1,4 +1,4 @@ -;;;; -*- Mode: ANSI-Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- +;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- ;;;; ************************************************************************* ;;;; FILE IDENTIFICATION ;;;; @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: compress.cl,v 1.8 2002/03/17 17:33:30 kevin Exp $ +;;;; $Id: compress.cl,v 1.9 2002/03/20 04:56:52 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/examples/strtol.cl b/examples/strtol.cl index 8beeddf..eefee46 100644 --- a/examples/strtol.cl +++ b/examples/strtol.cl @@ -1,4 +1,4 @@ -;;;; -*- Mode: ANSI-Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- +;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- ;;;; ************************************************************************* ;;;; FILE IDENTIFICATION ;;;; @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: strtol.cl,v 1.10 2002/03/18 22:47:57 kevin Exp $ +;;;; $Id: strtol.cl,v 1.11 2002/03/20 04:56:52 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/tests/Makefile b/tests/Makefile new file mode 100644 index 0000000..4edb1cb --- /dev/null +++ b/tests/Makefile @@ -0,0 +1,42 @@ +# FILE IDENTIFICATION +# +# Name: Makefile +# Purpose: Makefile for UFFI examples +# Programer: Kevin M. Rosenberg +# Date Started: Mar 2002 +# +# CVS Id: $Id: Makefile,v 1.1 2002/03/20 04:56:52 kevin Exp $ +# +# 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. + +# These variables are correct for GCC +# you'll need to modify these for other compilers +CC=gcc +SHARED_CC_OPT=-fpic +SHARED_LD_OPT=-shared + +# If you are using Solaris, these are the correct values +# for creating a shared library +#CC=cc +#SHARED_CC_OPT=-KPIC +#SHARED_LD_OPT=-G + +# Nothing to configure beyond this point + +all: lib + +lib: c-test-lib.so + +c-test-lib.so: c-test-lib.c + ${CC} ${SHARED_CC_OPT} -c c-test-lib.c -o c-test-lib.o + ld ${SHARED_LD_OPT} c-test-lib.o -o c-test-lib.so + +clean: + rm -f *.o *.so + +realclean: + rm -f *.o *.so *~ diff --git a/tests/c-test-lib.c b/tests/c-test-lib.c new file mode 100644 index 0000000..2a6f10c --- /dev/null +++ b/tests/c-test-lib.c @@ -0,0 +1,24 @@ +#include + +int +cstring-count-upper (char* psz) +{ + int count = 0; + while (*psz) { + if (isupper (*psz)) + ++count; + ++psz; + } +} + +void +cstring-to-upper (char* psz) +{ + while (*psz) { + *psz = toupper (*psz); + ++psz; + } +} + + + diff --git a/tests/compress.cl b/tests/compress.cl index c45029d..05fa6ff 100644 --- a/tests/compress.cl +++ b/tests/compress.cl @@ -1,4 +1,4 @@ -;;;; -*- Mode: ANSI-Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- +;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- ;;;; ************************************************************************* ;;;; FILE IDENTIFICATION ;;;; @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: compress.cl,v 1.8 2002/03/17 17:33:30 kevin Exp $ +;;;; $Id: compress.cl,v 1.9 2002/03/20 04:56:52 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; diff --git a/tests/strtol.cl b/tests/strtol.cl index 8beeddf..eefee46 100644 --- a/tests/strtol.cl +++ b/tests/strtol.cl @@ -1,4 +1,4 @@ -;;;; -*- Mode: ANSI-Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- +;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- ;;;; ************************************************************************* ;;;; FILE IDENTIFICATION ;;;; @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: strtol.cl,v 1.10 2002/03/18 22:47:57 kevin Exp $ +;;;; $Id: strtol.cl,v 1.11 2002/03/20 04:56:52 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;;