r9310: update headers

diff --git a/db-oracle/alien-resources.lisp b/db-oracle/alien-resources.lisp
index 14d765b023b34714d1448ce992342971eb80dfdd..3778526e932783764832a2b484344e902a3737bb 100644 (file)
--- a/db-oracle/alien-resources.lisp
+++ b/db-oracle/alien-resources.lisp
@@ -1,16 +1,19 @@
-;;; -*- Mode: Lisp -*-
-;;; $Id$
-
-;;; This is copyrighted software.  See documentation for terms.
-;;; 
-;;; oracle-sql.lisp --- SQL-Interface implementation for Oracle
-;;;
-;;; derived from postgresql.lisp
-
-(in-package :clsql-oracle)
-
-(declaim (optimize (speed 3)
-                  (debug 1)))
+;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          alien-resources.lisp
+;;;;
+;;;; $Id$
+;;;;
+;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
+;;;;
+;;;; CLSQL 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 #:clsql-oracle)

 
 (defparameter *alien-resource-hash* (make-hash-table :test #'equal))
 
 
 (defparameter *alien-resource-hash* (make-hash-table :test #'equal))
 


@@ -32,7 +35,7 @@
      (unless res
        (setf res (make-alien-resource
                  :type ',type :sizeof ,size
      (unless res
        (setf res (make-alien-resource
                  :type ',type :sizeof ,size

-                 :buffer (make-alien ,type ,size)))
+                 :buffer (alien:make-alien ,type ,size)))

        (%insert-alien-resource ',type res))
      (claim-alien-resource res)))
               
        (%insert-alien-resource ',type res))
      (claim-alien-resource res)))
               

diff --git a/db-oracle/oracle-loader.lisp b/db-oracle/oracle-loader.lisp
index 2d5b5133e3e366ac4b53b335e0f9b3f4c9de498d..c63a6733cbab1f76e42d8b410292f7630a17a07d 100644 (file)
--- a/db-oracle/oracle-loader.lisp
+++ b/db-oracle/oracle-loader.lisp
@@ -1,12 +1,20 @@
-;;; -*- Mode: Lisp -*-
-;;; $Id$
-;;;
-;;; MaiSQL --- Common Lisp Interface Layer to SQL Databases
-;;; This is copyrighted software.  See documentation for terms.
-;;; 
-;;; oracle-loader.cl --- Foreign Object Loader for Oracle
+;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          oracle-loader.lisp
+;;;; Purpose:       Foreign library loader for CLSQL Oracle interface
+;;;;
+;;;; $Id$
+;;;;
+;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
+;;;;
+;;;; CLSQL 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 :clsql-oracle)
+(in-package #:clsql-oracle)

 
 ;; Load the foreign library
 
 
 ;; Load the foreign library
 

diff --git a/db-oracle/oracle-objects.lisp b/db-oracle/oracle-objects.lisp
index 23f22d7cf48fb759dc8cf5a2f9edf05d783d179b..e8993183ce9709fc97a70d180db3541ed1e0c727 100644 (file)
--- a/db-oracle/oracle-objects.lisp
+++ b/db-oracle/oracle-objects.lisp
@@ -1,4 +1,19 @@
-(in-package :clsql-oracle)
+;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          oracle-objects.lisp
+;;;;
+;;;; $Id$
+;;;;
+;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
+;;;;
+;;;; CLSQL 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 #:clsql-oracle)

 
 (defparameter *oracle-default-varchar2-length* "512")
 
 
 (defparameter *oracle-default-varchar2-length* "512")
 


@@ -77,13 +92,13 @@
 
 ;;; LOCAL-TIME stuff that needs to go into hooks
 #+local-time
 
 ;;; LOCAL-TIME stuff that needs to go into hooks
 #+local-time

-(defmethod clsql-sys::database-get-type-specifier
+(defmethod clsql::database-get-type-specifier

   ((type (eql 'local-time::local-time)) args (database oracle-database))
   (declare (ignore args))
   "DATE")
 
 #+local-time
   ((type (eql 'local-time::local-time)) args (database oracle-database))
   (declare (ignore args))
   "DATE")
 
 #+local-time

-(defmethod clsql-sys::database-get-type-specifier
+(defmethod clsql::database-get-type-specifier

   ((type (eql 'local-time::duration))
    args
    (database oracle-database))
   ((type (eql 'local-time::duration))
    args
    (database oracle-database))

diff --git a/db-oracle/oracle-package.lisp b/db-oracle/oracle-package.lisp
index 1dbbde9ee7f6bca6ef94f9b72beb98aad8ae86c2..681617a63bc55db542feebcd7604c2a1922b429b 100644 (file)
--- a/db-oracle/oracle-package.lisp
+++ b/db-oracle/oracle-package.lisp
@@ -1,13 +1,23 @@
-;;; -*- Mode: Lisp -*-
-;;; $Id$
-;;;
-;;; This is copyrighted software.  See documentation for terms.
+;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          oracle-package.cl
+;;;; Purpose:       Package definition for CLSQL Oracle interface
+;;;;
+;;;; $Id$
+;;;;
+;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
+;;;;
+;;;; CLSQL 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 :cl-user)
+(in-package #:cl-user)

 
 

-(defpackage :clsql-oracle
-  (:nicknames :oracle)
-  (:use :common-lisp :clsql-sys "ALIEN" "C-CALL" "SYSTEM")
+(defpackage #:clsql-oracle
+  (:use #:common-lisp #:clsql-base)

   (:export #:oracle-database
           #:*oracle-so-load-path*
           #:*oracle-so-libraries*)
   (:export #:oracle-database
           #:*oracle-so-load-path*
           #:*oracle-so-libraries*)

diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp
index 6b558364af0d66c1f9850d77f39699cfb6eb4286..01d311d2670b220854c2c7689b56e59bd9d05c0b 100644 (file)
--- a/db-oracle/oracle-sql.lisp
+++ b/db-oracle/oracle-sql.lisp
@@ -1,12 +1,17 @@
-;;; -*- Mode: Lisp -*-
-;;; $Id$
-
-;;; MaiSQL --- Common Lisp Interface Layer to SQL Databases
-;;; This is copyrighted software.  See documentation for terms.
-;;; 
-;;; oracle-sql.lisp --- SQL-Interface implementation for Oracle
-;;;
-;;; derived from postgresql.lisp
+;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          oracle-sql.lisp
+;;;;
+;;;; $Id$
+;;;;
+;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
+;;;;
+;;;; CLSQL 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 #:clsql-oracle)
 
 
 (in-package #:clsql-oracle)
 

diff --git a/db-oracle/oracle.lisp b/db-oracle/oracle.lisp
index 94c933de2ace070c53e9cdb9099bfb2f29f2079e..9dc8a79ae31665d5b37b1d2f46a26fe2f6bdf75b 100644 (file)
--- a/db-oracle/oracle.lisp
+++ b/db-oracle/oracle.lisp
@@ -1,13 +1,18 @@
-;;; -*- Mode: Lisp -*-
-;;; $Id$
-
-;;; MaiSQL --- Common Lisp Interface Layer to SQL Databases
-;;; This is copyrighted software.  See documentation for terms.
-;;; 
-;;; oracle.lisp --- FFI interface to Oracle on Unix
-;;;
-;;; The present content of this file is orented specifically towards
-;;; Oracle 8.0.5.1 under Linux, linking against libclntsh.so
+;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          oracle.lisp
+;;;; Purpose:       Package definition for CLSQL Oracle interface
+;;;;
+;;;; $Id$
+;;;;
+;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
+;;;;
+;;;; CLSQL 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 #:clsql-oracle)
 
 
 (in-package #:clsql-oracle)