*** pgsql/src/interfaces/ecpg/test/expected/pgtypeslib-nan_test.c	2010/02/03 13:56:27	1.2
--- pgsql/src/interfaces/ecpg/test/expected/pgtypeslib-nan_test.c	2010/02/04 11:23:29	1.3
***************
*** 10,15 ****
--- 10,16 ----
  #include <stdio.h>
  #include <stdlib.h>
  #include <math.h>
+ #include <float.h>
  #include <pgtypes_numeric.h>
  #include <decimal.h>
  
***************
*** 21,27 ****
  
  
  
! #line 7 "nan_test.pgc"
  
  
  int
--- 22,28 ----
  
  
  
! #line 8 "nan_test.pgc"
  
  
  int
*************** main(void)
*** 33,86 ****
  		
  		
  	
! #line 13 "nan_test.pgc"
   int id ;
   
! #line 14 "nan_test.pgc"
   double d ;
   
! #line 15 "nan_test.pgc"
   numeric * num ;
   
! #line 16 "nan_test.pgc"
   char val [ 16 ] ;
  /* exec sql end declare section */
! #line 17 "nan_test.pgc"
  
  
  	ECPGdebug(1, stderr);
  	/* exec sql whenever sqlerror  do sqlprint ( ) ; */
! #line 20 "nan_test.pgc"
  
  
  	{ ECPGconnect(__LINE__, 0, "regress1" , NULL, NULL , NULL, 0); 
! #line 22 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 22 "nan_test.pgc"
  
  
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "create table nantest1 ( id int4 , d float8 )", ECPGt_EOIT, ECPGt_EORT);
! #line 24 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 24 "nan_test.pgc"
  
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into nantest1 ( id , d ) values ( 1 , 'nan' :: float8 ) , ( 2 , 'infinity' :: float8 ) , ( 3 , '-infinity' :: float8 )", ECPGt_EOIT, ECPGt_EORT);
! #line 25 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 25 "nan_test.pgc"
  
  
  	/* declare cur cursor for select id , d , d from nantest1 */
! #line 27 "nan_test.pgc"
  
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare cur cursor for select id , d , d from nantest1", ECPGt_EOIT, ECPGt_EORT);
! #line 28 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 28 "nan_test.pgc"
  
  	while (1)
  	{
--- 34,87 ----
  		
  		
  	
! #line 14 "nan_test.pgc"
   int id ;
   
! #line 15 "nan_test.pgc"
   double d ;
   
! #line 16 "nan_test.pgc"
   numeric * num ;
   
! #line 17 "nan_test.pgc"
   char val [ 16 ] ;
  /* exec sql end declare section */
! #line 18 "nan_test.pgc"
  
  
  	ECPGdebug(1, stderr);
  	/* exec sql whenever sqlerror  do sqlprint ( ) ; */
! #line 21 "nan_test.pgc"
  
  
  	{ ECPGconnect(__LINE__, 0, "regress1" , NULL, NULL , NULL, 0); 
! #line 23 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 23 "nan_test.pgc"
  
  
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "create table nantest1 ( id int4 , d float8 )", ECPGt_EOIT, ECPGt_EORT);
! #line 25 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 25 "nan_test.pgc"
  
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into nantest1 ( id , d ) values ( 1 , 'nan' :: float8 ) , ( 2 , 'infinity' :: float8 ) , ( 3 , '-infinity' :: float8 )", ECPGt_EOIT, ECPGt_EORT);
! #line 26 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 26 "nan_test.pgc"
  
  
  	/* declare cur cursor for select id , d , d from nantest1 */
! #line 28 "nan_test.pgc"
  
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare cur cursor for select id , d , d from nantest1", ECPGt_EOIT, ECPGt_EORT);
! #line 29 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 29 "nan_test.pgc"
  
  	while (1)
  	{
*************** if (sqlca.sqlcode < 0) sqlprint ( );}
*** 91,100 ****
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
  	ECPGt_char,(val),(long)16,(long)1,(16)*sizeof(char), 
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
! #line 31 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 31 "nan_test.pgc"
  
  		if (sqlca.sqlcode)
  			break;
--- 92,101 ----
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
  	ECPGt_char,(val),(long)16,(long)1,(16)*sizeof(char), 
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
! #line 32 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 32 "nan_test.pgc"
  
  		if (sqlca.sqlcode)
  			break;
*************** if (sqlca.sqlcode < 0) sqlprint ( );}
*** 108,141 ****
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
  	ECPGt_double,&(d),(long)1,(long)1,sizeof(double), 
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
! #line 39 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 39 "nan_test.pgc"
  
  		{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into nantest1 ( id , d ) values ( $1  + 6 , $2  )", 
  	ECPGt_int,&(id),(long)1,(long)1,sizeof(int), 
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
  	ECPGt_char,(val),(long)16,(long)1,(16)*sizeof(char), 
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
! #line 40 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 40 "nan_test.pgc"
  
  	}
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "close cur", ECPGt_EOIT, ECPGt_EORT);
! #line 42 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 42 "nan_test.pgc"
  
  
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare cur cursor for select id , d , d from nantest1", ECPGt_EOIT, ECPGt_EORT);
! #line 44 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 44 "nan_test.pgc"
  
  	while (1)
  	{
--- 109,142 ----
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
  	ECPGt_double,&(d),(long)1,(long)1,sizeof(double), 
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
! #line 40 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 40 "nan_test.pgc"
  
  		{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into nantest1 ( id , d ) values ( $1  + 6 , $2  )", 
  	ECPGt_int,&(id),(long)1,(long)1,sizeof(int), 
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
  	ECPGt_char,(val),(long)16,(long)1,(16)*sizeof(char), 
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
! #line 41 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 41 "nan_test.pgc"
  
  	}
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "close cur", ECPGt_EOIT, ECPGt_EORT);
! #line 43 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 43 "nan_test.pgc"
  
  
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare cur cursor for select id , d , d from nantest1", ECPGt_EOIT, ECPGt_EORT);
! #line 45 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 45 "nan_test.pgc"
  
  	while (1)
  	{
*************** if (sqlca.sqlcode < 0) sqlprint ( );}
*** 146,155 ****
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
  	ECPGt_char,(val),(long)16,(long)1,(16)*sizeof(char), 
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
! #line 47 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 47 "nan_test.pgc"
  
  		if (sqlca.sqlcode)
  			break;
--- 147,156 ----
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
  	ECPGt_char,(val),(long)16,(long)1,(16)*sizeof(char), 
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
! #line 48 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 48 "nan_test.pgc"
  
  		if (sqlca.sqlcode)
  			break;
*************** if (sqlca.sqlcode < 0) sqlprint ( );}
*** 159,183 ****
  			printf("%d  NaN '%s'\n", id, val);
  	}
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "close cur", ECPGt_EOIT, ECPGt_EORT);
! #line 55 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 55 "nan_test.pgc"
  
  
  	num = PGTYPESnumeric_new();
  
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "create table nantest2 ( id int4 , d numeric )", ECPGt_EOIT, ECPGt_EORT);
! #line 59 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 59 "nan_test.pgc"
  
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into nantest2 ( id , d ) values ( 4 , 'nan' :: numeric )", ECPGt_EOIT, ECPGt_EORT);
! #line 60 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 60 "nan_test.pgc"
  
  
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select id , d , d from nantest2 where id = 4", ECPGt_EOIT, 
--- 160,184 ----
  			printf("%d  NaN '%s'\n", id, val);
  	}
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "close cur", ECPGt_EOIT, ECPGt_EORT);
! #line 56 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 56 "nan_test.pgc"
  
  
  	num = PGTYPESnumeric_new();
  
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "create table nantest2 ( id int4 , d numeric )", ECPGt_EOIT, ECPGt_EORT);
! #line 60 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 60 "nan_test.pgc"
  
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into nantest2 ( id , d ) values ( 4 , 'nan' :: numeric )", ECPGt_EOIT, ECPGt_EORT);
! #line 61 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 61 "nan_test.pgc"
  
  
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select id , d , d from nantest2 where id = 4", ECPGt_EOIT, 
*************** if (sqlca.sqlcode < 0) sqlprint ( );}
*** 187,196 ****
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
  	ECPGt_char,(val),(long)16,(long)1,(16)*sizeof(char), 
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
! #line 62 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 62 "nan_test.pgc"
  
  
  	printf("%d %s '%s'\n", id, (num->sign == NUMERIC_NAN ? "NaN" : "not NaN"), val);
--- 188,197 ----
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
  	ECPGt_char,(val),(long)16,(long)1,(16)*sizeof(char), 
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
! #line 63 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 63 "nan_test.pgc"
  
  
  	printf("%d %s '%s'\n", id, (num->sign == NUMERIC_NAN ? "NaN" : "not NaN"), val);
*************** if (sqlca.sqlcode < 0) sqlprint ( );}
*** 198,225 ****
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into nantest2 ( id , d ) values ( 5 , $1  )", 
  	ECPGt_numeric,&(num),(long)1,(long)0,sizeof(numeric), 
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
! #line 66 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 66 "nan_test.pgc"
  
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into nantest2 ( id , d ) values ( 6 , $1  )", 
  	ECPGt_char,(val),(long)16,(long)1,(16)*sizeof(char), 
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
! #line 67 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 67 "nan_test.pgc"
  
  
  	/* declare cur1 cursor for select id , d , d from nantest2 */
! #line 69 "nan_test.pgc"
  
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare cur1 cursor for select id , d , d from nantest2", ECPGt_EOIT, ECPGt_EORT);
! #line 70 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 70 "nan_test.pgc"
  
  	while (1)
  	{
--- 199,226 ----
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into nantest2 ( id , d ) values ( 5 , $1  )", 
  	ECPGt_numeric,&(num),(long)1,(long)0,sizeof(numeric), 
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
! #line 67 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 67 "nan_test.pgc"
  
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into nantest2 ( id , d ) values ( 6 , $1  )", 
  	ECPGt_char,(val),(long)16,(long)1,(16)*sizeof(char), 
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);
! #line 68 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 68 "nan_test.pgc"
  
  
  	/* declare cur1 cursor for select id , d , d from nantest2 */
! #line 70 "nan_test.pgc"
  
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare cur1 cursor for select id , d , d from nantest2", ECPGt_EOIT, ECPGt_EORT);
! #line 71 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 71 "nan_test.pgc"
  
  	while (1)
  	{
*************** if (sqlca.sqlcode < 0) sqlprint ( );}
*** 230,262 ****
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
  	ECPGt_char,(val),(long)16,(long)1,(16)*sizeof(char), 
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
! #line 73 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 73 "nan_test.pgc"
  
  		if (sqlca.sqlcode)
  			break;
  		printf("%d %s '%s'\n", id, (num->sign == NUMERIC_NAN ? "NaN" : "not NaN"), val);
  	}
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "close cur1", ECPGt_EOIT, ECPGt_EORT);
! #line 78 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 78 "nan_test.pgc"
  
  
  	{ ECPGtrans(__LINE__, NULL, "rollback");
! #line 80 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 80 "nan_test.pgc"
  
  	{ ECPGdisconnect(__LINE__, "CURRENT");
! #line 81 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 81 "nan_test.pgc"
  
  
  	return (0);
--- 231,263 ----
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
  	ECPGt_char,(val),(long)16,(long)1,(16)*sizeof(char), 
  	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
! #line 74 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 74 "nan_test.pgc"
  
  		if (sqlca.sqlcode)
  			break;
  		printf("%d %s '%s'\n", id, (num->sign == NUMERIC_NAN ? "NaN" : "not NaN"), val);
  	}
  	{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "close cur1", ECPGt_EOIT, ECPGt_EORT);
! #line 79 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 79 "nan_test.pgc"
  
  
  	{ ECPGtrans(__LINE__, NULL, "rollback");
! #line 81 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 81 "nan_test.pgc"
  
  	{ ECPGdisconnect(__LINE__, "CURRENT");
! #line 82 "nan_test.pgc"
  
  if (sqlca.sqlcode < 0) sqlprint ( );}
! #line 82 "nan_test.pgc"
  
  
  	return (0);