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
|
/*
@(#)Purpose: ESQL/C Utility Functions for DBD::Informix
@(#)Author: J Leffler
@(#)Copyright: 1996-98 Jonathan Leffler
@(#)Copyright: 2002 IBM
@(#)Product: IBM Informix Database Driver for Perl Version 2003.04 (2003-03-05)
*/
/*TABSTOP=4*/
#ifndef ESQLPERL_H
#define ESQLPERL_H
#ifdef MAIN_PROGRAM
#ifndef lint
static const char esqlperl_h[] = "@(#)$Id: esqlperl.h,v 100.1 2002/02/08 22:49:21 jleffler Exp $";
#endif /* lint */
#endif /* MAIN_PROGRAM */
#include <stdio.h>
#include "esqlc.h"
#include "ixblob.h"
enum Boolean
{
False, True
};
typedef enum Boolean Boolean;
/*
** Under some circumstances, MSVC gets horrendously fussy and rejects
** valid C code. This is a sop to MSVC and to other C++ compilers.
*/
#define DBD_IX_BOOLEAN(x) ((x) ? True : False)
/*
** The sqltypename() routine assumes is has a buffer of at least
** SQLTYPENAME_BUFSIZ bytes in which too work.
** The return address is the start of the buffer.
*/
#define SQLTYPENAME_BUFSIZ sizeof("DISTINCT INTERVAL MINUTE(2) TO FRACTION(5)")
extern char *sqltypename(int coltype, int collen, char *buffer);
extern void dbd_ix_debug(int n, char *fmt, const char *arg);
extern void dbd_ix_debug_l(int n, char *fmt, long arg);
extern void dbd_ix_setconnection(char *conn);
#if ESQLC_VERSION >= 600
extern void dbd_ix_disconnect(char *connection);
extern Boolean dbd_ix_connect(char *conn, char *dbase, char *user, char *pass);
#else
extern void dbd_ix_closedatabase(char *dbase);
extern Boolean dbd_ix_opendatabase(char *dbase);
#endif /* ESQLC_VERSION >= 600 */
/* Informix to ODBC mapping for type, precision and scale */
extern int map_type_ifmx_to_odbc(int coltype, int collen);
extern int map_prec_ifmx_to_odbc(int coltype, int collen);
extern int map_scale_ifmx_to_odbc(int coltype, int collen);
#endif /* ESQLPERL_H */
|
