db-postgresql/postgresql-package.lisp

   1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; Name:          postgresql-package.cl
   6 ;;;; Purpose:       Package definition for low-level PostgreSQL interface
   7 ;;;; Programmer:    Kevin M. Rosenberg
   8 ;;;; Date Started:  Feb 2002
   9 ;;;;
  10 ;;;; $Id: postgresql-package.lisp,v 1.1 2002/09/30 10:19:23 kevin Exp $
  11 ;;;;
  12 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
  13 ;;;;
  14 ;;;; CLSQL users are granted the rights to distribute and use this software
  15 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
  16 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
  17 ;;;; *************************************************************************
  18
  19 (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
  20 (in-package :cl-user)
  21
  22 (defpackage :postgresql
  23     (:nicknames :pgsql)
  24     (:use :common-lisp :clsql-uffi)
  25     (:export
  26      #:pgsql-oid
  27      #:pgsql-conn-status-type
  28      #:pgsql-conn-status-type#connection-ok
  29      #:pgsql-conn-status-type#connection-bad
  30      #:pgsql-exec-status-type
  31      #:pgsql-exec-status-type#empty-query
  32      #:pgsql-exec-status-type#command-ok
  33      #:pgsql-exec-status-type#tuples-ok
  34      #:pgsql-exec-status-type#copy-out
  35      #:pgsql-exec-status-type#copy-in
  36      #:pgsql-exec-status-type#bad-response
  37      #:pgsql-exec-status-type#nonfatal-error
  38      #:pgsql-exec-status-type#fatal-error
  39      #:pgsql-conn
  40      #:pgsql-result
  41
  42      #:pgsql-ftype#bytea
  43      #:pgsql-ftype#int2
  44      #:pgsql-ftype#int4
  45      #:pgsql-ftype#int8
  46      #:pgsql-ftype#float4
  47      #:pgsql-ftype#float8
  48
  49      ;; Functions
  50      #:PQsetdbLogin
  51      #:PQlogin
  52      #:PQfinish
  53      #:PQstatus
  54      #:PQerrorMessage
  55      #:PQexec
  56      #:PQresultStatus
  57      #:PQresultErrorMessage
  58      #:PQntuples
  59      #:PQnfields
  60      #:PQfname
  61      #:PQfnumber
  62      #:PQftype
  63      #:PQfsize
  64      #:PQcmdStatus
  65      #:PQoidStatus
  66      #:PQcmdTuples
  67      #:PQgetvalue
  68      #:PQgetlength
  69      #:PQgetisnull
  70      #:PQclear
  71      #:PQisBusy
  72
  73      ;;Large Objects (Marc B)
  74      #:lo-create
  75      #:lo-open
  76      #:lo-write
  77      #:lo-read
  78      #:lo-lseek
  79      #:lo-close
  80      #:lo-unlink
  81      )
  82     (:documentation "This is the low-level interface to PostgreSQL."))
  83
  84