+++ /dev/null
-;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
-;;;; *************************************************************************
-;;;; FILE IDENTIFICATION
-;;;;
-;;;; Name: postgresql-package.cl
-;;;; Purpose: Package definition for low-level PostgreSQL interface
-;;;; Programmer: Kevin M. Rosenberg
-;;;; Date Started: Feb 2002
-;;;;
-;;;; $Id: postgresql-package.cl,v 1.1 2002/09/18 07:43:41 kevin Exp $
-;;;;
-;;;; 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.
-;;;; *************************************************************************
-
-(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
-(in-package :cl-user)
-
-(defpackage :postgresql
- (:nicknames :pgsql)
- (:use :common-lisp :clsql-uffi)
- (:export
- #:pgsql-oid
- #:pgsql-conn-status-type
- #:pgsql-conn-status-type#connection-ok
- #:pgsql-conn-status-type#connection-bad
- #:pgsql-exec-status-type
- #:pgsql-exec-status-type#empty-query
- #:pgsql-exec-status-type#command-ok
- #:pgsql-exec-status-type#tuples-ok
- #:pgsql-exec-status-type#copy-out
- #:pgsql-exec-status-type#copy-in
- #:pgsql-exec-status-type#bad-response
- #:pgsql-exec-status-type#nonfatal-error
- #:pgsql-exec-status-type#fatal-error
- #:pgsql-conn
- #:pgsql-result
-
- #:pgsql-ftype#bytea
- #:pgsql-ftype#int2
- #:pgsql-ftype#int4
- #:pgsql-ftype#int8
- #:pgsql-ftype#float4
- #:pgsql-ftype#float8
-
- ;; Functions
- #:PQsetdbLogin
- #:PQlogin
- #:PQfinish
- #:PQstatus
- #:PQerrorMessage
- #:PQexec
- #:PQresultStatus
- #:PQresultErrorMessage
- #:PQntuples
- #:PQnfields
- #:PQfname
- #:PQfnumber
- #:PQftype
- #:PQfsize
- #:PQcmdStatus
- #:PQoidStatus
- #:PQcmdTuples
- #:PQgetvalue
- #:PQgetlength
- #:PQgetisnull
- #:PQclear
- #:PQisBusy
-
- ;;Large Objects (Marc B)
- #:lo-create
- #:lo-open
- #:lo-write
- #:lo-read
- #:lo-lseek
- #:lo-close
- #:lo-unlink
- )
- (:documentation "This is the low-level interface to PostgreSQL."))
-
-