Branch data     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
      16                 :           2 : main (void)
      17                 :             : {
      18                 :             : EXEC SQL BEGIN DECLARE SECTION;
      19                 :           2 :     int i = 1, j;
      20                 :           2 :     int *did = &i;
      21                 :           2 :     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];
      26                 :           2 :     char text[25] = "klmnopqrst";
      27                 :           2 :     char *t = (char *)malloc(11);
      28                 :             :     double f;
      29                 :             : EXEC SQL END DECLARE SECTION;
      30                 :             : 
      31                 :           2 :     strcpy(t, "0123456789");
      32                 :           2 :     setlocale(LC_ALL, "C");
      33                 :             : 
      34                 :           2 :     ECPGdebug(1, stderr);
      35                 :             : 
      36         [ +  + ]:          22 :     for (j = 0; j < 10; j++) {
      37                 :             :         char str[28];
      38                 :             :         numeric *value;
      39                 :             :         interval *inter;
      40                 :             : 
      41                 :          20 :         sprintf(str, "2000-1-1 0%d:00:00", j);
      42                 :          20 :         ts[j] = PGTYPEStimestamp_from_asc(str, NULL);
      43                 :          20 :         sprintf(str, "2000-1-1%d\n", j);
      44                 :          20 :         d[j] = PGTYPESdate_from_asc(str, NULL);
      45                 :          20 :         sprintf(str, "%d hours", j+10);
      46                 :          20 :         inter = PGTYPESinterval_from_asc(str, NULL);
      47                 :          20 :         in[j] = *inter;
      48                 :          20 :         value = PGTYPESnumeric_new();
      49                 :          20 :         PGTYPESnumeric_from_int(j, value);
      50                 :          20 :         n[j] = *value;
      51                 :             :     }
      52                 :             : 
      53                 :           2 :         EXEC SQL CONNECT TO REGRESSDB1;
      54         [ -  + ]:           2 : 
      55                 :           2 :     EXEC SQL SET AUTOCOMMIT = ON;
      56         [ -  + ]:           2 : 
      57                 :           2 :     EXEC SQL BEGIN WORK;
      58         [ -  + ]:           2 : 
      59                 :           2 :     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]);
      60         [ -  + ]:           2 : 
      61                 :           2 :     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);
      62         [ -  + ]:           2 : 
      63                 :           2 :     EXEC SQL INSERT INTO test(f,i,a,text,ts,n,d,inter) VALUES(140787.0,2,:a,:text,:ts,:n,:d,:in);
      64         [ -  + ]:           2 : 
      65                 :           2 :     EXEC SQL INSERT INTO test(f,i,a,text,ts,n,d,inter) VALUES(14.07,:did,:a,:t,:ts,:n,:d,:in);
      66         [ -  + ]:           2 : 
      67                 :           2 :     EXEC SQL COMMIT;
      68         [ -  + ]:           2 : 
      69         [ +  + ]:          22 :     for (j = 0; j < 10; j++) {
      70                 :          20 :         ts[j] = PGTYPEStimestamp_from_asc("1900-01-01 00:00:00", NULL);
      71                 :          20 :         d[j] = PGTYPESdate_from_asc("1900-01-01", NULL);
      72                 :          20 :         in[j] = *PGTYPESinterval_new();
      73                 :          20 :         n[j] = *PGTYPESnumeric_new();
      74                 :             :     }
      75                 :           2 :     EXEC SQL BEGIN WORK;
      76         [ -  + ]:           2 : 
      77                 :           2 :     EXEC SQL SELECT f,text
      78                 :             :          INTO :f,:text
      79                 :             :          FROM test
      80                 :             :          WHERE i = 1;
      81         [ -  + ]:           2 : 
      82                 :           2 :     printf("Found f=%f text=%10.10s\n", f, text);
      83                 :             : 
      84                 :           2 :     f=140787;
      85                 :           2 :     EXEC SQL SELECT a,text,ts,n,d,inter
      86                 :             :      INTO :a,:t,:ts,:n,:d,:in
      87                 :             :      FROM test
      88                 :             :      WHERE f = :f;
      89         [ -  + ]:           2 : 
      90         [ +  + ]:          22 :     for (i = 0; i < 10; i++)
      91                 :          20 :         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                 :             : 
      93                 :           2 :     printf("Found text=%10.10s\n", t);
      94                 :             : 
      95                 :           2 :     EXEC SQL SELECT a
      96                 :             :      INTO :text
      97                 :             :      FROM test
      98                 :             :      WHERE f = :f;
      99         [ -  + ]:           2 : 
     100                 :           2 :     printf("Found text=%s\n", text);
     101                 :             : 
     102                 :           2 :     EXEC SQL DROP TABLE test;
     103         [ -  + ]:           2 : 
     104                 :           2 :     EXEC SQL COMMIT;
     105         [ -  + ]:           2 : 
     106                 :           2 :     EXEC SQL DISCONNECT;
     107         [ -  + ]:           2 : 
     108                 :           2 :     free(t);
     109                 :             : 
     110                 :           2 :     return 0;
     111                 :             : }