Age Owner Branch data TLA Line data Source code
1 : : #include <locale.h>
2 : : #include <string.h>
3 : : #include <stdlib.h>
4 : :
5 : : #include <pgtypes_date.h>
6 : : #include <pgtypes_interval.h>
7 : : #include <pgtypes_numeric.h>
8 : : #include <pgtypes_timestamp.h>
9 : :
10 : : exec sql whenever sqlerror sqlprint;
11 : :
12 : : exec sql include sqlca;
13 : : exec sql include ../regression;
14 : :
15 : : int
6465 meskes@postgresql.or 16 :CBC 1 : main (void)
17 : : {
18 : : EXEC SQL BEGIN DECLARE SECTION;
3351 19 : 1 : int i = 1, j;
6465 20 : 1 : int *did = &i;
3351 21 : 1 : short a[10] = {9,8,7,6,5,4,3,2,1,0};
22 : : timestamp ts[10];
23 : : date d[10];
24 : : interval in[10];
25 : : numeric n[10];
6465 26 : 1 : char text[25] = "klmnopqrst";
6449 27 : 1 : char *t = (char *)malloc(11);
28 : : double f;
29 : : EXEC SQL END DECLARE SECTION;
30 : :
6465 31 : 1 : strcpy(t, "0123456789");
6462 32 : 1 : setlocale(LC_ALL, "C");
33 : :
6465 34 : 1 : ECPGdebug(1, stderr);
35 : :
3351 36 [ + + ]: 11 : for (j = 0; j < 10; j++) {
37 : : char str[28];
38 : : numeric *value;
39 : : interval *inter;
40 : :
41 : 10 : sprintf(str, "2000-1-1 0%d:00:00", j);
42 : 10 : ts[j] = PGTYPEStimestamp_from_asc(str, NULL);
43 : 10 : sprintf(str, "2000-1-1%d\n", j);
44 : 10 : d[j] = PGTYPESdate_from_asc(str, NULL);
45 : 10 : sprintf(str, "%d hours", j+10);
46 : 10 : inter = PGTYPESinterval_from_asc(str, NULL);
47 : 10 : in[j] = *inter;
48 : 10 : value = PGTYPESnumeric_new();
49 : 10 : PGTYPESnumeric_from_int(j, value);
50 : 10 : n[j] = *value;
51 : : }
52 : :
6465 53 : 1 : EXEC SQL CONNECT TO REGRESSDB1;
54 [ - + ]: 1 :
55 : 1 : EXEC SQL SET AUTOCOMMIT = ON;
56 [ - + ]: 1 :
4891 peter_e@gmx.net 57 : 1 : EXEC SQL BEGIN WORK;
6465 meskes@postgresql.or 58 [ - + ]: 1 :
3351 59 : 1 : EXEC SQL CREATE TABLE test (f float, i int, a int[10], text char(10), ts timestamp[10], n numeric[10], d date[10], inter interval[10]);
6465 60 [ - + ]: 1 :
3351 61 : 1 : EXEC SQL INSERT INTO test(f,i,a,text,ts,n,d,inter) VALUES(404.90,3,'{0,1,2,3,4,5,6,7,8,9}','abcdefghij',:ts,:n,:d,:in);
6465 62 [ - + ]: 1 :
3351 63 : 1 : EXEC SQL INSERT INTO test(f,i,a,text,ts,n,d,inter) VALUES(140787.0,2,:a,:text,:ts,:n,:d,:in);
6088 64 [ - + ]: 1 :
3351 65 : 1 : EXEC SQL INSERT INTO test(f,i,a,text,ts,n,d,inter) VALUES(14.07,:did,:a,:t,:ts,:n,:d,:in);
6465 66 [ - + ]: 1 :
67 : 1 : EXEC SQL COMMIT;
68 [ - + ]: 1 :
3351 69 [ + + ]: 11 : for (j = 0; j < 10; j++) {
70 : 10 : ts[j] = PGTYPEStimestamp_from_asc("1900-01-01 00:00:00", NULL);
71 : 10 : d[j] = PGTYPESdate_from_asc("1900-01-01", NULL);
72 : 10 : in[j] = *PGTYPESinterval_new();
73 : 10 : n[j] = *PGTYPESnumeric_new();
74 : : }
4891 peter_e@gmx.net 75 : 1 : EXEC SQL BEGIN WORK;
6465 meskes@postgresql.or 76 [ - + ]: 1 :
6431 77 : 1 : EXEC SQL SELECT f,text
78 : : INTO :f,:text
79 : : FROM test
80 : : WHERE i = 1;
6465 81 [ - + ]: 1 :
6431 82 : 1 : printf("Found f=%f text=%10.10s\n", f, text);
83 : :
6465 84 : 1 : f=140787;
3351 85 : 1 : EXEC SQL SELECT a,text,ts,n,d,inter
86 : : INTO :a,:t,:ts,:n,:d,:in
87 : : FROM test
88 : : WHERE f = :f;
6465 89 [ - + ]: 1 :
90 [ + + ]: 11 : for (i = 0; i < 10; i++)
3351 91 : 10 : printf("Found a[%d] = %d ts[%d] = %s n[%d] = %s d[%d] = %s in[%d] = %s\n", i, a[i], i, PGTYPEStimestamp_to_asc(ts[i]), i, PGTYPESnumeric_to_asc(&(n[i]), -1), i, PGTYPESdate_to_asc(d[i]), i, PGTYPESinterval_to_asc(&(in[i])));
92 : :
6465 93 : 1 : printf("Found text=%10.10s\n", t);
94 : :
95 : 1 : EXEC SQL SELECT a
96 : : INTO :text
97 : : FROM test
98 : : WHERE f = :f;
99 [ - + ]: 1 :
100 : 1 : printf("Found text=%s\n", text);
101 : :
102 : 1 : EXEC SQL DROP TABLE test;
103 [ - + ]: 1 :
104 : 1 : EXEC SQL COMMIT;
105 [ - + ]: 1 :
106 : 1 : EXEC SQL DISCONNECT;
107 [ - + ]: 1 :
4989 108 : 1 : free(t);
109 : :
2432 peter_e@gmx.net 110 : 1 : return 0;
111 : : }
|
