1- /* $Header: /cvsroot/pgsql/src/interfaces/ecpg/preproc/Attic/preproc.y,v 1.218 2003/05/1604:59:22 momjian Exp $*/
1+ /* $Header: /cvsroot/pgsql/src/interfaces/ecpg/preproc/Attic/preproc.y,v 1.219 2003/05/1611:30:09 meskes Exp $*/
22
33/* Copyright comment*/
44%{
@@ -4183,6 +4183,14 @@ ecpg_interval:opt_interval{ $$ = $1; }
41834183;
41844184
41854185single_vt_type :common_type
4186+ | DOUBLE_P
4187+ {
4188+ $$ .type_enum = ECPGt_double;
4189+ $$ .type_str = make_str(" double" );
4190+ $$ .type_dimension = make_str(" -1" );
4191+ $$ .type_index = make_str(" -1" );
4192+ $$ .type_sizeof =NULL ;
4193+ }
41864194| ECPGColLabelCommon ecpg_interval
41874195{
41884196if (strlen($2 ) !=0 && strcmp ($1 ," datetime" ) !=0 && strcmp ($1 ," interval" ) !=0 )
@@ -4208,14 +4216,6 @@ single_vt_type: common_type
42084216$$ .type_index = make_str(" -1" );
42094217$$ .type_sizeof =NULL ;
42104218}
4211- else if (strcmp($1 ," double" ) ==0 )
4212- {
4213- $$ .type_enum = ECPGt_double;
4214- $$ .type_str = make_str(" double" );
4215- $$ .type_dimension = make_str(" -1" );
4216- $$ .type_index = make_str(" -1" );
4217- $$ .type_sizeof =NULL ;
4218- }
42194219else if (strcmp($1 ," numeric" ) ==0 )
42204220{
42214221$$ .type_enum = ECPGt_numeric;
@@ -4671,7 +4671,7 @@ variable: opt_pointer ECPGColLabelCommon opt_array_bounds opt_initializer
46714671struct ECPGtype * type;
46724672char *dimension =$3 .index1;/* dimension of array*/
46734673char *length =$3 .index2;/* lenght of string*/
4674- char dim[14L ], ascii_len[ 12 ] ;
4674+ char dim[14L ];
46754675
46764676adjust_array (actual_type[struct_level].type_enum, &dimension, &length, actual_type[struct_level].type_dimension, actual_type[struct_level].type_index, strlen($1 ));
46774677
@@ -5289,11 +5289,11 @@ symbol: ColLabel{ $$ = $1; }
52895289
52905290/* Column identifier --- names that can be column, table, etc names.
52915291*/
5292- ColId :ident {$$ =$1 ; }
5292+ ColId :ident {$$ =$1 ; }
52935293| unreserved_keyword {$$ =$1 ; }
5294- | col_name_keyword {$$ =$1 ; }
5295- | ECPGKeywords {$$ =$1 ; }
5296- | CHAR_P {$$ = make_str(" char" ); }
5294+ | col_name_keyword {$$ =$1 ; }
5295+ | ECPGKeywords {$$ =$1 ; }
5296+ | CHAR_P {$$ = make_str(" char" ); }
52975297;
52985298
52995299/* Type identifier --- names that can be type names.