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$
  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 (in-package #:cl-user)
  20
  21 (defpackage #:pgsql
  22     #-(and :lispworks (not :lispworks4))
  23     (:nicknames #:postgresql)
  24     (:use #:cl #: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      ;; Used by PQresultErrorField to get the sql error code
  50      #:+PG-DIAG-SQLSTATE+
  51
  52
  53      ;; Functions
  54      #:PQsetdbLogin
  55      #:PQlogin
  56      #:PQfinish
  57      #:PQstatus
  58      #:PQerrorMessage
  59      #:PQexec
  60      #:PQresultStatus
  61      #:PQresultErrorField ; used to grab the SQLSTATE code from an error
  62      #:PQresultErrorMessage
  63      #:PQntuples
  64      #:PQnfields
  65      #:PQfname
  66      #:PQfnumber
  67      #:PQftype
  68      #:PQfsize
  69      #:PQcmdStatus
  70      #:PQoidStatus
  71      #:PQcmdTuples
  72      #:PQgetvalue
  73      #:PQgetlength
  74      #:PQgetisnull
  75      #:PQclear
  76      #:PQisBusy
  77
  78      ;;Large Objects (Marc B)
  79      #:lo-create
  80      #:lo-open
  81      #:lo-write
  82      #:lo-read
  83      #:lo-lseek
  84      #:lo-close
  85      #:lo-unlink
  86      )
  87     (:documentation "This is the low-level interface to PostgreSQL."))
  88
  89