blob: aac66089112c122bcab7de92c0b00e010819ceca (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
;;;; -*- 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
;;;;
;;;; 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)
(defpackage #:pgsql
#-(and :lispworks (not :lispworks4))
(:nicknames #:postgresql)
(:use #:cl #: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
;; Used by PQresultErrorField to get the sql error code
#:+PG-DIAG-SQLSTATE+
;; Functions
#:PQsetdbLogin
#:PQlogin
#:PQfinish
#:PQstatus
#:PQerrorMessage
#:PQexec
#:PQresultStatus
#:PQresultErrorField ; used to grab the SQLSTATE code from an error
#: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."))
|