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 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
  11 ;;;;
  12 ;;;; CLSQL users are granted the rights to distribute and use this software
  13 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
  14 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
  15 ;;;; *************************************************************************
  16
  17 (in-package #:cl-user)
  18
  19 (defpackage #:pgsql
  20     #-(and :lispworks (not :lispworks4))
  21     (:nicknames #:postgresql)
  22     (:use #:cl #:clsql-uffi)
  23     (:export
  24      #:pgsql-oid
  25      #:pgsql-conn-status-type
  26      #:pgsql-conn-status-type#connection-ok
  27      #:pgsql-conn-status-type#connection-bad
  28      #:pgsql-exec-status-type
  29      #:pgsql-exec-status-type#empty-query
  30      #:pgsql-exec-status-type#command-ok
  31      #:pgsql-exec-status-type#tuples-ok
  32      #:pgsql-exec-status-type#copy-out
  33      #:pgsql-exec-status-type#copy-in
  34      #:pgsql-exec-status-type#bad-response
  35      #:pgsql-exec-status-type#nonfatal-error
  36      #:pgsql-exec-status-type#fatal-error
  37      #:pgsql-conn
  38      #:pgsql-result
  39
  40      #:pgsql-ftype#bytea
  41      #:pgsql-ftype#int2
  42      #:pgsql-ftype#int4
  43      #:pgsql-ftype#int8
  44      #:pgsql-ftype#float4
  45      #:pgsql-ftype#float8
  46
  47      ;; Used by PQresultErrorField to get the sql error code
  48      #:+PG-DIAG-SQLSTATE+
  49
  50
  51      ;; Functions
  52      #:PQsetdbLogin
  53      #:PQlogin
  54      #:PQfinish
  55      #:PQstatus
  56      #:PQerrorMessage
  57      #:PQexec
  58      #:PQresultStatus
  59      #:PQresultErrorField ; used to grab the SQLSTATE code from an error
  60      #:PQresultErrorMessage
  61      #:PQntuples
  62      #:PQnfields
  63      #:PQfname
  64      #:PQfnumber
  65      #:PQftype
  66      #:PQfsize
  67      #:PQcmdStatus
  68      #:PQoidStatus
  69      #:PQcmdTuples
  70      #:PQgetvalue
  71      #:PQgetlength
  72      #:PQgetisnull
  73      #:PQclear
  74      #:PQisBusy
  75
  76      ;;Large Objects (Marc B)
  77      #:lo-create
  78      #:lo-open
  79      #:lo-write
  80      #:lo-read
  81      #:lo-lseek
  82      #:lo-close
  83      #:lo-unlink
  84      )
  85     (:documentation "This is the low-level interface to PostgreSQL."))
  86
  87