Branch data     Line data    Source code

       1                 :             : #include <stdio.h>
       2                 :             : #include <stdlib.h>
       3                 :             : #include <pgtypes_numeric.h>
       4                 :             : #include <decimal.h>
       5                 :             : 
       6                 :             : exec sql include ../regression;
       7                 :             : 
       8                 :             : exec sql include ../printf_hack;
       9                 :             : 
      10                 :             : 
      11                 :             : int
      12                 :           2 : main(void)
      13                 :             : {
      14                 :           2 :     char *text="error\n";
      15                 :             :     numeric *value1, *value2, *res;
      16                 :             :     exec sql begin declare section;
      17                 :             :         numeric(14,7) *des;
      18                 :             :         /* = {0, 0, 0, 0, 0, NULL, NULL} ; */
      19                 :             :     exec sql end declare section;
      20                 :             :     double d;
      21                 :             :     long l1, l2;
      22                 :             :     int i, min, max;
      23                 :             : 
      24                 :           2 :     ECPGdebug(1, stderr);
      25                 :             :     exec sql whenever sqlerror do sqlprint();
      26                 :             : 
      27                 :           2 :     exec sql connect to REGRESSDB1;
      28         [ -  + ]:           2 : 
      29                 :           2 :     exec sql set autocommit = off;
      30         [ -  + ]:           2 :     exec sql create table test (text char(5), num numeric(14,7));
      31         [ -  + ]:           2 : 
      32                 :           2 :     value1 = PGTYPESnumeric_new();
      33                 :           2 :     PGTYPESnumeric_from_int(1407, value1);
      34                 :           2 :     text = PGTYPESnumeric_to_asc(value1, -1);
      35                 :           2 :     printf("from int = %s\n", text);
      36                 :           2 :     PGTYPESchar_free(text);
      37                 :           2 :     PGTYPESnumeric_free(value1);
      38                 :             : 
      39                 :           2 :     value1 = PGTYPESnumeric_from_asc("2369.7", NULL);
      40                 :           2 :     value2 = PGTYPESnumeric_from_asc("10.0", NULL);
      41                 :           2 :     res = PGTYPESnumeric_new();
      42                 :           2 :     PGTYPESnumeric_add(value1, value2, res);
      43                 :           2 :     text = PGTYPESnumeric_to_asc(res, -1);
      44                 :           2 :     printf("add = %s\n", text);
      45                 :           2 :     PGTYPESchar_free(text);
      46                 :             : 
      47                 :           2 :     PGTYPESnumeric_sub(res, value2, res);
      48                 :           2 :     text = PGTYPESnumeric_to_asc(res, -1);
      49                 :           2 :     printf("sub = %s\n", text);
      50                 :           2 :     PGTYPESchar_free(text);
      51                 :           2 :     PGTYPESnumeric_free(value2);
      52                 :             : 
      53                 :           2 :     des = PGTYPESnumeric_new();
      54                 :           2 :     PGTYPESnumeric_copy(res, des);
      55                 :           2 :     exec sql insert into test (text, num) values ('test', :des);
      56         [ -  + ]:           2 : 
      57                 :           2 :     value2 = PGTYPESnumeric_from_asc("2369.7", NULL);
      58                 :           2 :     PGTYPESnumeric_mul(value1, value2, res);
      59                 :           2 :     PGTYPESnumeric_free(value2);
      60                 :             : 
      61                 :           2 :     exec sql select num into :des from test where text = 'test';
      62         [ -  + ]:           2 : 
      63                 :           2 :     PGTYPESnumeric_mul(res, des, res);
      64                 :           2 :     text = PGTYPESnumeric_to_asc(res, -1);
      65                 :           2 :     printf("mul = %s\n", text);
      66                 :           2 :     PGTYPESchar_free(text);
      67                 :           2 :     PGTYPESnumeric_free(des);
      68                 :             : 
      69                 :           2 :     value2 = PGTYPESnumeric_from_asc("10000", NULL);
      70                 :           2 :     PGTYPESnumeric_div(res, value2, res);
      71                 :           2 :     text = PGTYPESnumeric_to_asc(res, -1);
      72                 :           2 :     PGTYPESnumeric_to_double(res, &d);
      73                 :           2 :     printf("div = %s ", text);
      74                 :           2 :     print_double(d);
      75                 :           2 :     printf("\n");
      76                 :             : 
      77                 :           2 :     PGTYPESnumeric_free(value1);
      78                 :           2 :     PGTYPESnumeric_free(value2);
      79                 :             : 
      80                 :           2 :     value1 = PGTYPESnumeric_from_asc("2E7", NULL);
      81                 :           2 :     value2 = PGTYPESnumeric_from_asc("14", NULL);
      82                 :           2 :     i = PGTYPESnumeric_to_long(value1, &l1) | PGTYPESnumeric_to_long(value2, &l2);
      83                 :           2 :     printf("to long(%d) = %ld %ld\n", i, l1, l2);
      84                 :             : 
      85                 :           2 :     PGTYPESchar_free(text);
      86                 :           2 :     PGTYPESnumeric_free(value1);
      87                 :           2 :     PGTYPESnumeric_free(value2);
      88                 :           2 :     PGTYPESnumeric_free(res);
      89                 :             : 
      90                 :             :     /* check conversion of numeric to int */
      91                 :           2 :     value1 = PGTYPESnumeric_from_asc("-2147483648", NULL);
      92                 :           2 :     PGTYPESnumeric_to_int(value1, &min);
      93                 :           2 :     printf("min int = %d\n", min);
      94                 :           2 :     PGTYPESnumeric_free(value1);
      95                 :             : 
      96                 :           2 :     value2 = PGTYPESnumeric_from_asc("2147483647", NULL);
      97                 :           2 :     PGTYPESnumeric_to_int(value2, &max);
      98                 :           2 :     printf("max int = %d\n", max);
      99                 :           2 :     PGTYPESnumeric_free(value2);
     100                 :             : 
     101                 :           2 :     exec sql rollback;
     102         [ -  + ]:           2 :     exec sql disconnect;
     103         [ -  + ]:           2 : 
     104                 :           2 :     return 0;
     105                 :             : }