/*
   $Id: dbdimp.h,v 1.14 1999/02/14 20:33:25 mergl Exp $

   Copyright (c) 1997,1998,1999 Edmund Mergl
   Portions Copyright (c) 1994,1995,1996,1997 Tim Bunce

   You may distribute under the terms of either the GNU General Public
   License or the Artistic License, as specified in the Perl README file.

*/


/* Define drh implementor data structure */
struct imp_drh_st {
    dbih_drc_t com;		/* MUST be first element in structure	*/
    int        ncon;		/* how many connections are out there */
};

/* Define dbh implementor data structure */
struct imp_dbh_st {
    dbih_dbc_t com;		/* MUST be first element in structure	*/
    int         pg_auto_escape;	/* initialize AutoEscape */
};

/* Define sth implementor data structure */
struct imp_sth_st {
    dbih_stc_t com;		/* MUST be first element in structure	*/


    /* data about currently executing stmt */
    int cur_tuple;		/* current tuple */
    int rows;			/* number of affected rows */
    int lastoid;		/* last oid */
    char * status;		/* what was the last command (INSERT/etc) */

    TupleDesc  volatile tupdesc; /* why does it need to be volatile? */
    HeapTuple  *volatile tuples; /* why does it need to be volatile? */


    /* Input Details	*/
    char      *statement;	/* sql (see sth_scan)		*/
    HV        *all_params_hv;	/* all params, keyed by name	*/

    int        all_params_len;  /* length-sum of all params     */

    AV	      *param_types;  /* list of param types */
    Oid       *argtypes; 
    int        nparams;
    void      *plan;		/* result structure */

    int        pg_pad_empty;	/* convert ""->" " when binding	*/
};

#define sword  signed int
#define sb2    signed short
#define ub2    unsigned short

typedef struct phs_st phs_t;    /* scalar placeholder   */

struct phs_st {         /* scalar placeholder EXPERIMENTAL      */
    sword ftype;        /* external OCI field type              */

    SV  *sv;            /* the scalar holding the value         */
    int sv_type;        /* original sv type at time of bind     */

    IV  maxlen;         /* max possible len (=allocated buffer) */

    /* these will become an array */
    sb2 indp;           /* null indicator                       */
    char *progv;
    ub2 arcode;
    IV alen;            /* effective length ( <= maxlen )       */

    int alen_incnull;   /* 0 or 1 if alen should include null   */
    char name[1];       /* struct is malloc'd bigger as needed  */
};


/* end of dbdimp.h */