--- /dev/null
+# 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 *~
--- /dev/null
+#include <ctype.h>
+
+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;
+ }
+}
+
+
+
-;;;; -*- Mode: ANSI-Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; 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
;;;;
-;;;; -*- Mode: ANSI-Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; 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
;;;;
--- /dev/null
+# 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 *~
--- /dev/null
+#include <ctype.h>
+
+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;
+ }
+}
+
+
+
-;;;; -*- Mode: ANSI-Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; 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
;;;;
-;;;; -*- Mode: ANSI-Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; 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
;;;;