;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; Name:     postgresql-socket-sql.sql
;;;; Purpose:  High-level PostgreSQL interface using socket
;;;; Authors:  Russ Tyndall (at Acceleration.net) based on original code by
;;;;           Kevin M. Rosenberg based on original code by Pierre R. Mai
;;;; Created:  Sep 2009
;;;;
;;;;
;;;; $Id$
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002-2007 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
;;;;
;;;; 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 #:clsql-sys)

(defclass command-object ()
  ((expression :accessor expression :initarg :expression :initform nil)
   (parameters :accessor parameters :initarg :parameters :initform nil)
   (prepared-name :accessor prepared-name :initarg :prepared-name :initform ""
    :documentation "If we want this to be a prepared statement, give it a name
       to identify it to this session")
   (has-been-prepared :accessor has-been-prepared :initarg :has-been-prepared :initform nil
		      :documentation "Have we already prepared this command object")
   ))

(defmethod initialize-instance :after ((o command-object) &key &allow-other-keys )
  ;; Inits parameter nulls
  (setf (parameters o) (parameters o)))

(defmethod (setf parameters) (new (o command-object))
  " This causes the semantics to match cl-sql instead of cl-postgresql
  "
  (setf (slot-value o 'parameters)
	(loop for p in new
	      collecting (cond ((null p) :null)
			       ((member p (list :false :F)) nil)
			       (T p)))))

(defun reset-command-object (co)
  "Resets the command object to have no name and to be unprepared
     (This is useful if you want to run a command against a second database)"
  (setf (prepared-name co) ""
	(has-been-prepared co) nil))

(defun command-object (expression &optional parameters (prepared-name ""))
  (make-instance 'command-object
		 :expression expression
		 :parameters parameters
		 :prepared-name prepared-name))