PostgreSQL Source Code git master
Loading...
Searching...
No Matches
Macros | Typedefs | Functions
compat_oracle-char_array.c File Reference
#include <ecpglib.h>
#include <ecpgerrno.h>
#include <sqlca.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <pgtypes_numeric.h>
#include "sqlda-native.h"
Include dependency graph for compat_oracle-char_array.c:

Go to the source code of this file.

Macros

#define ECPGdebug(X, Y)   ECPGdebug((X)+100,(Y))
 
#define ECPG_SQLDA_H
 

Typedefs

typedef struct sqlvar_struct sqlvar_t
 
typedef struct sqlda_struct sqlda_t
 

Functions

static void warn (void)
 
int main ()
 

Macro Definition Documentation

◆ ECPG_SQLDA_H

#define ECPG_SQLDA_H

Definition at line 19 of file compat_oracle-char_array.c.

◆ ECPGdebug

#define ECPGdebug (   X,
  Y 
)    ECPGdebug((X)+100,(Y))

Definition at line 7 of file compat_oracle-char_array.c.

Typedef Documentation

◆ sqlda_t

typedef struct sqlda_struct sqlda_t

Definition at line 31 of file compat_oracle-char_array.c.

◆ sqlvar_t

typedef struct sqlvar_struct sqlvar_t

Definition at line 30 of file compat_oracle-char_array.c.

Function Documentation

◆ main()

int main ( void  )

Definition at line 60 of file compat_oracle-char_array.c.

60 {
61
62 /* exec sql whenever sql_warning do warn ( ) ; */
63#line 22 "char_array.pgc"
64
65 /* exec sql whenever sqlerror stop ; */
66#line 23 "char_array.pgc"
67
68
69 const char *ppppp = "XXXXX";
70 int loopcount;
71 sqlda_t *sqlda = NULL;
72
73 /* exec sql begin declare section */
74
75
76
77
78
79#line 30 "char_array.pgc"
80 char shortstr [ 5 ] ;
81
82#line 31 "char_array.pgc"
83 char bigstr [ 11 ] ;
84
85#line 32 "char_array.pgc"
86 short shstr_ind = 0 ;
87
88#line 33 "char_array.pgc"
89 short bigstr_ind = 0 ;
90/* exec sql end declare section */
91#line 34 "char_array.pgc"
92
93
94 ECPGdebug(1, stderr);
95 { ECPGconnect(__LINE__, 3, "ecpg1_regression" , NULL, NULL , NULL, 0);
96#line 37 "char_array.pgc"
97
98if (sqlca.sqlwarn[0] == 'W') warn ( );
99#line 37 "char_array.pgc"
100
101if (sqlca.sqlcode < 0) exit (1);}
102#line 37 "char_array.pgc"
103
104
105 { ECPGdo(__LINE__, 3, 1, NULL, 0, ECPGst_normal, "create table strdbase ( strval varchar ( 10 ) )", ECPGt_EOIT, ECPGt_EORT);
106#line 39 "char_array.pgc"
107
108if (sqlca.sqlwarn[0] == 'W') warn ( );
109#line 39 "char_array.pgc"
110
111if (sqlca.sqlcode < 0) exit (1);}
112#line 39 "char_array.pgc"
113
114 { ECPGdo(__LINE__, 3, 1, NULL, 0, ECPGst_normal, "insert into strdbase values ( '' )", ECPGt_EOIT, ECPGt_EORT);
115#line 40 "char_array.pgc"
116
117if (sqlca.sqlwarn[0] == 'W') warn ( );
118#line 40 "char_array.pgc"
119
120if (sqlca.sqlcode < 0) exit (1);}
121#line 40 "char_array.pgc"
122
123 { ECPGdo(__LINE__, 3, 1, NULL, 0, ECPGst_normal, "insert into strdbase values ( 'AB' )", ECPGt_EOIT, ECPGt_EORT);
124#line 41 "char_array.pgc"
125
126if (sqlca.sqlwarn[0] == 'W') warn ( );
127#line 41 "char_array.pgc"
128
129if (sqlca.sqlcode < 0) exit (1);}
130#line 41 "char_array.pgc"
131
132 { ECPGdo(__LINE__, 3, 1, NULL, 0, ECPGst_normal, "insert into strdbase values ( 'ABCD' )", ECPGt_EOIT, ECPGt_EORT);
133#line 42 "char_array.pgc"
134
135if (sqlca.sqlwarn[0] == 'W') warn ( );
136#line 42 "char_array.pgc"
137
138if (sqlca.sqlcode < 0) exit (1);}
139#line 42 "char_array.pgc"
140
141 { ECPGdo(__LINE__, 3, 1, NULL, 0, ECPGst_normal, "insert into strdbase values ( 'ABCDE' )", ECPGt_EOIT, ECPGt_EORT);
142#line 43 "char_array.pgc"
143
144if (sqlca.sqlwarn[0] == 'W') warn ( );
145#line 43 "char_array.pgc"
146
147if (sqlca.sqlcode < 0) exit (1);}
148#line 43 "char_array.pgc"
149
150 { ECPGdo(__LINE__, 3, 1, NULL, 0, ECPGst_normal, "insert into strdbase values ( 'ABCDEF' )", ECPGt_EOIT, ECPGt_EORT);
151#line 44 "char_array.pgc"
152
153if (sqlca.sqlwarn[0] == 'W') warn ( );
154#line 44 "char_array.pgc"
155
156if (sqlca.sqlcode < 0) exit (1);}
157#line 44 "char_array.pgc"
158
159 { ECPGdo(__LINE__, 3, 1, NULL, 0, ECPGst_normal, "insert into strdbase values ( 'ABCDEFGHIJ' )", ECPGt_EOIT, ECPGt_EORT);
160#line 45 "char_array.pgc"
161
162if (sqlca.sqlwarn[0] == 'W') warn ( );
163#line 45 "char_array.pgc"
164
165if (sqlca.sqlcode < 0) exit (1);}
166#line 45 "char_array.pgc"
167
168
169 /* declare C cursor for select strval , strval from strdbase */
170#line 47 "char_array.pgc"
171
172 { ECPGdo(__LINE__, 3, 1, NULL, 0, ECPGst_normal, "declare C cursor for select strval , strval from strdbase", ECPGt_EOIT, ECPGt_EORT);
173#line 48 "char_array.pgc"
174
175if (sqlca.sqlwarn[0] == 'W') warn ( );
176#line 48 "char_array.pgc"
177
178if (sqlca.sqlcode < 0) exit (1);}
179#line 48 "char_array.pgc"
180
181
182 /* exec sql whenever not found break ; */
183#line 50 "char_array.pgc"
184
185
186 printf("Full Str. : Short Ind.\n");
187 for (loopcount = 0; loopcount < 100; loopcount++) {
188 strncpy(shortstr, ppppp, sizeof shortstr);
189 memset(bigstr, 0, sizeof bigstr);
190 { ECPGdo(__LINE__, 3, 1, NULL, 0, ECPGst_normal, "fetch C", ECPGt_EOIT,
191 ECPGt_char,(bigstr),(long)11,(long)1,(11)*sizeof(char),
192 ECPGt_short,&(bigstr_ind),(long)1,(long)1,sizeof(short),
193 ECPGt_char,(shortstr),(long)5,(long)1,(5)*sizeof(char),
194 ECPGt_short,&(shstr_ind),(long)1,(long)1,sizeof(short), ECPGt_EORT);
195#line 56 "char_array.pgc"
196
197if (sqlca.sqlcode == ECPG_NOT_FOUND) break;
198#line 56 "char_array.pgc"
199
200if (sqlca.sqlwarn[0] == 'W') warn ( );
201#line 56 "char_array.pgc"
202
203if (sqlca.sqlcode < 0) exit (1);}
204#line 56 "char_array.pgc"
205
206 printf("\"%s\": \"%s\" %d\n", bigstr, shortstr, shstr_ind);
207 }
208
209 { ECPGdo(__LINE__, 3, 1, NULL, 0, ECPGst_normal, "close C", ECPGt_EOIT, ECPGt_EORT);
210#line 60 "char_array.pgc"
211
212if (sqlca.sqlwarn[0] == 'W') warn ( );
213#line 60 "char_array.pgc"
214
215if (sqlca.sqlcode < 0) exit (1);}
216#line 60 "char_array.pgc"
217
218 { ECPGdo(__LINE__, 3, 1, NULL, 0, ECPGst_normal, "drop table strdbase", ECPGt_EOIT, ECPGt_EORT);
219#line 61 "char_array.pgc"
220
221if (sqlca.sqlwarn[0] == 'W') warn ( );
222#line 61 "char_array.pgc"
223
224if (sqlca.sqlcode < 0) exit (1);}
225#line 61 "char_array.pgc"
226
227 { ECPGtrans(__LINE__, NULL, "commit work");
228#line 62 "char_array.pgc"
229
230if (sqlca.sqlwarn[0] == 'W') warn ( );
231#line 62 "char_array.pgc"
232
233if (sqlca.sqlcode < 0) exit (1);}
234#line 62 "char_array.pgc"
235
236
237 /* SQLDA handling */
238 /* exec sql whenever sql_warning sqlprint ; */
239#line 65 "char_array.pgc"
240
241 /* exec sql whenever not found stop ; */
242#line 66 "char_array.pgc"
243
244 { ECPGprepare(__LINE__, NULL, 0, "stmt1", "SELECT 123::numeric(3,0), 't'::varchar(2)");
245#line 67 "char_array.pgc"
246
247if (sqlca.sqlwarn[0] == 'W') sqlprint();
248#line 67 "char_array.pgc"
249
250if (sqlca.sqlcode < 0) exit (1);}
251#line 67 "char_array.pgc"
252
253 /* declare cur1 cursor for $1 */
254#line 68 "char_array.pgc"
255
256 { ECPGdo(__LINE__, 3, 1, NULL, 0, ECPGst_normal, "declare cur1 cursor for $1",
257 ECPGt_char_variable,(ECPGprepared_statement(NULL, "stmt1", __LINE__)),(long)1,(long)1,(1)*sizeof(char),
258 ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
259#line 69 "char_array.pgc"
260
261if (sqlca.sqlwarn[0] == 'W') sqlprint();
262#line 69 "char_array.pgc"
263
264if (sqlca.sqlcode < 0) exit (1);}
265#line 69 "char_array.pgc"
266
267 { ECPGdo(__LINE__, 3, 1, NULL, 0, ECPGst_normal, "fetch next from cur1", ECPGt_EOIT,
268 ECPGt_sqlda, &sqlda, 0L, 0L, 0L,
269 ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
270#line 70 "char_array.pgc"
271
272if (sqlca.sqlcode == ECPG_NOT_FOUND) exit (1);
273#line 70 "char_array.pgc"
274
275if (sqlca.sqlwarn[0] == 'W') sqlprint();
276#line 70 "char_array.pgc"
277
278if (sqlca.sqlcode < 0) exit (1);}
279#line 70 "char_array.pgc"
280
281
282 printf("\n-----------------\ntype : data\n");
283 for (int i = 0 ; i < sqlda->sqld ; i++)
284 {
285 sqlvar_t v = sqlda->sqlvar[i];
286 char *sqldata = v.sqldata;
287
288 if (v.sqltype == ECPGt_numeric)
289 sqldata =
290 PGTYPESnumeric_to_asc((numeric*) sqlda->sqlvar[i].sqldata, -1);
291
292 printf("%-8s: \"%s\"\n", v.sqlname.data, sqldata);
293 }
294
295 { ECPGdo(__LINE__, 3, 1, NULL, 0, ECPGst_normal, "close cur1", ECPGt_EOIT, ECPGt_EORT);
296#line 85 "char_array.pgc"
297
298if (sqlca.sqlwarn[0] == 'W') sqlprint();
299#line 85 "char_array.pgc"
300
301if (sqlca.sqlcode < 0) exit (1);}
302#line 85 "char_array.pgc"
303
304 { ECPGtrans(__LINE__, NULL, "commit work");
305#line 86 "char_array.pgc"
306
307if (sqlca.sqlwarn[0] == 'W') sqlprint();
308#line 86 "char_array.pgc"
309
310if (sqlca.sqlcode < 0) exit (1);}
311#line 86 "char_array.pgc"
312
313
314 printf("\nGOOD-BYE!!\n\n");
315
316 { ECPGdisconnect(__LINE__, "ALL");
317#line 90 "char_array.pgc"
318
319if (sqlca.sqlwarn[0] == 'W') sqlprint();
320#line 90 "char_array.pgc"
321
322if (sqlca.sqlcode < 0) exit (1);}
323#line 90 "char_array.pgc"
324
325
326 return 0;
327}
warn
static void warn(void)
Definition compat_oracle-char_array.c:51
ECPGdebug
#define ECPGdebug(X, Y)
Definition compat_oracle-char_array.c:7
ECPGdisconnect
bool ECPGdisconnect(int lineno, const char *connection_name)
Definition connect.c:693
ECPGconnect
bool ECPGconnect(int lineno, int c, const char *name, const char *user, const char *passwd, const char *connection_name, int autocommit)
Definition connect.c:260
ECPG_NOT_FOUND
#define ECPG_NOT_FOUND
Definition ecpgerrno.h:10
ECPGst_normal
@ ECPGst_normal
Definition ecpgtype.h:97
ECPGt_EOIT
@ ECPGt_EOIT
Definition ecpgtype.h:62
ECPGt_sqlda
@ ECPGt_sqlda
Definition ecpgtype.h:66
ECPGt_short
@ ECPGt_short
Definition ecpgtype.h:43
ECPGt_char_variable
@ ECPGt_char_variable
Definition ecpgtype.h:60
ECPGt_numeric
@ ECPGt_numeric
Definition ecpgtype.h:49
ECPGt_NO_INDICATOR
@ ECPGt_NO_INDICATOR
Definition ecpgtype.h:64
ECPGt_EORT
@ ECPGt_EORT
Definition ecpgtype.h:63
ECPGt_char
@ ECPGt_char
Definition ecpgtype.h:43
sqlprint
void sqlprint(void)
Definition error.c:334
ECPGdo
bool ECPGdo(const int lineno, const int compat, const int force_indicator, const char *connection_name, const bool questionmarks, const int st, const char *query,...)
Definition execute.c:2291
ECPGtrans
bool ECPGtrans(int lineno, const char *connection_name, const char *transaction)
Definition misc.c:160
ECPGprepared_statement
char * ECPGprepared_statement(const char *connection_name, const char *name, int lineno)
Definition prepare.c:400
ECPGprepare
bool ECPGprepare(int lineno, const char *connection_name, const bool questionmarks, const char *name, const char *variable)
Definition prepare.c:249
i
int i
Definition isn.c:77
PGTYPESnumeric_to_asc
char * PGTYPESnumeric_to_asc(numeric *num, int dscale)
Definition numeric.c:343
printf
#define printf(...)
Definition port.h:266
fb
static int fb(int x)
Definition preproc-init.c:92
sqlca
#define sqlca
Definition sqlca.h:59
sqlda_struct
Definition sqlda-native.h:34
sqlname::data
char data[NAMEDATALEN]
Definition sqlda-native.h:21
sqlvar_struct
Definition sqlda-native.h:25
sqlvar_struct::sqltype
short sqltype
Definition sqlda-native.h:26
sqlvar_struct::sqlname
struct sqlname sqlname
Definition sqlda-native.h:30
sqlvar_struct::sqldata
char * sqldata
Definition sqlda-native.h:28

References sqlname::data, ECPG_NOT_FOUND, ECPGconnect(), ECPGdebug, ECPGdisconnect(), ECPGdo(), ECPGprepare(), ECPGprepared_statement(), ECPGst_normal, ECPGt_char, ECPGt_char_variable, ECPGt_EOIT, ECPGt_EORT, ECPGt_NO_INDICATOR, ECPGt_numeric, ECPGt_short, ECPGt_sqlda, ECPGtrans(), fb(), i, PGTYPESnumeric_to_asc(), printf, sqlca, sqlvar_struct::sqldata, sqlvar_struct::sqlname, sqlprint(), sqlvar_struct::sqltype, and warn().

◆ warn()

static void warn ( void  )
static

Definition at line 51 of file compat_oracle-char_array.c.

52{
53 fprintf(stderr, "Warning: At least one column was truncated\n");
54}
fprintf
#define fprintf(file, fmt, msg)
Definition cubescan.l:21

References fb(), and fprintf.

Referenced by main().