Line data    Source code

       1              : #include <stdio.h>
       2              : #include <stdlib.h>
       3              : #include <float.h>
       4              : #include <math.h>
       5              : #include <pgtypes_numeric.h>
       6              : #include <decimal.h>
       7              : 
       8              : exec sql include ../regression;
       9              : 
      10              : int
      11            2 : main(void)
      12              : {
      13              :     exec sql begin declare section;
      14              :     int id, loopcount;
      15              :     double  d;
      16              :     numeric *num;
      17              :     char    val[16];
      18              :     exec sql end declare section;
      19              : 
      20            2 :     ECPGdebug(1, stderr);
      21              :     exec sql whenever sqlerror do sqlprint();
      22              : 
      23            2 :     exec sql connect to REGRESSDB1;
      24            2 : 
      25            2 :     exec sql create table nantest1 (id int4, d float8);
      26            2 :     exec sql insert into nantest1 (id, d) values (1, 'nan'::float8), (2, 'infinity'::float8), (3, '-infinity'::float8);
      27            2 : 
      28              :     exec sql declare cur cursor for select id, d, d from nantest1;
      29            2 :     exec sql open cur;
      30            8 :     for (loopcount = 0; loopcount < 100; loopcount++)
      31              :     {
      32            8 :         exec sql fetch from cur into :id, :d, :val;
      33            8 :         if (sqlca.sqlcode)
      34            2 :             break;
      35            6 :         if (isnan(d))
      36            2 :             printf("%d  NaN '%s'\n", id, val);
      37            4 :         else if (isinf(d))
      38            4 :             printf("%d %sInf '%s'\n", id, (d < 0 ? "-" : "+"), val);
      39              : 
      40            6 :         exec sql insert into nantest1 (id, d) values (:id + 3, :d);
      41            6 :         exec sql insert into nantest1 (id, d) values (:id + 6, :val);
      42            6 :     }
      43            2 :     exec sql close cur;
      44            2 : 
      45            2 :     exec sql open cur;
      46           20 :     for (loopcount = 0; loopcount < 100; loopcount++)
      47              :     {
      48           20 :         exec sql fetch from cur into :id, :d, :val;
      49           20 :         if (sqlca.sqlcode)
      50            2 :             break;
      51           18 :         if (isinf(d))
      52           12 :             printf("%d %sInf '%s'\n", id, (d < 0 ? "-" : "+"), val);
      53           18 :         if (isnan(d))
      54            6 :             printf("%d  NaN '%s'\n", id, val);
      55              :     }
      56            2 :     exec sql close cur;
      57            2 : 
      58            2 :     num = PGTYPESnumeric_new();
      59              : 
      60            2 :     exec sql create table nantest2 (id int4, d numeric);
      61            2 :     exec sql insert into nantest2 (id, d) values (4, 'nan'::numeric);
      62            2 : 
      63            2 :     exec sql select id, d, d into :id, :num, :val from nantest2 where id = 4;
      64            2 : 
      65            2 :     printf("%d %s '%s'\n", id, (num->sign == NUMERIC_NAN ? "NaN" : "not NaN"), val);
      66              : 
      67            2 :     exec sql insert into nantest2 (id, d) values (5, :num);
      68            2 :     exec sql insert into nantest2 (id, d) values (6, :val);
      69            2 : 
      70              :     exec sql declare cur1 cursor for select id, d, d from nantest2;
      71            2 :     exec sql open cur1;
      72            8 :     for (loopcount = 0; loopcount < 100; loopcount++)
      73              :     {
      74            8 :         exec sql fetch from cur1 into :id, :num, :val;
      75            8 :         if (sqlca.sqlcode)
      76            2 :             break;
      77            6 :         printf("%d %s '%s'\n", id, (num->sign == NUMERIC_NAN ? "NaN" : "not NaN"), val);
      78              :     }
      79            2 :     exec sql close cur1;
      80            2 : 
      81            2 :     PGTYPESnumeric_free(num);
      82              : 
      83            2 :     exec sql rollback;
      84            2 :     exec sql disconnect;
      85            2 : 
      86            2 :     return 0;
      87              : }