From 48652576baf88a7dcde5649cec889228aa7b5133 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 10 May 2004 21:42:59 +0000 Subject: [PATCH] r9310: update headers --- db-oracle/alien-resources.lisp | 31 +++++++++++++++++-------------- db-oracle/oracle-loader.lisp | 24 ++++++++++++++++-------- db-oracle/oracle-objects.lisp | 21 ++++++++++++++++++--- db-oracle/oracle-package.lisp | 26 ++++++++++++++++++-------- db-oracle/oracle-sql.lisp | 23 ++++++++++++++--------- db-oracle/oracle.lisp | 25 +++++++++++++++---------- 6 files changed, 98 insertions(+), 52 deletions(-) diff --git a/db-oracle/alien-resources.lisp b/db-oracle/alien-resources.lisp index 14d765b..3778526 100644 --- 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)) @@ -32,7 +35,7 @@ (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))) diff --git a/db-oracle/oracle-loader.lisp b/db-oracle/oracle-loader.lisp index 2d5b513..c63a673 100644 --- 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 diff --git a/db-oracle/oracle-objects.lisp b/db-oracle/oracle-objects.lisp index 23f22d7..e899318 100644 --- 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") @@ -77,13 +92,13 @@ ;;; 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 -(defmethod clsql-sys::database-get-type-specifier +(defmethod clsql::database-get-type-specifier ((type (eql 'local-time::duration)) args (database oracle-database)) diff --git a/db-oracle/oracle-package.lisp b/db-oracle/oracle-package.lisp index 1dbbde9..681617a 100644 --- 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*) diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp index 6b55836..01d311d 100644 --- 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) diff --git a/db-oracle/oracle.lisp b/db-oracle/oracle.lisp index 94c933d..9dc8a79 100644 --- 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) -- 2.34.1