mirror of
https://github.com/Unidata/netcdf-c.git
synced 2024-12-21 08:39:46 +08:00
dc9e31df68
The problem was that for opendap, it is possible to use keywords as identifiers when there is no ambiguity. However, the DAP2 parser lost the case of the identifier used the lower case version. Fix is to use the actual text of the symbol when it is used as an identifier. Also added a test case for this (kwcase.*). Additionally cleaned up some misc. dap2 testing problems. 1. ncdap_test/tst_ncdap3.sh was using an empty test set. restored the testing of datasets. 2. as a consequence of #1, some tests needed to be updated with minor tweeks. 3. fix dapmerge to handle multiple DODS_EXTRAS attributes. 4. modify buildattribute to suppress nul characters and terminate the name at the first nul. 5. clean up various test scripts to remove residual, unused references to obsolete netcdf-4 translation. 6. export e.g. NCDUMP from test_common.in so that non-top-level shell scripts can access it.
274 lines
7.7 KiB
Plaintext
274 lines
7.7 KiB
Plaintext
/* Copyright 2009, UCAR/Unidata and OPeNDAP, Inc.
|
|
See the COPYRIGHT file for more information. */
|
|
|
|
/*The lines down to DO NOT DELETE ... comment are specific to the C Parser.
|
|
They will be commennted out when building a java parser.
|
|
*/
|
|
%error-verbose
|
|
%pure-parser
|
|
%lex-param {DAPparsestate* parsestate}
|
|
%parse-param {DAPparsestate* parsestate}
|
|
%{
|
|
#include "config.h"
|
|
#include "dapparselex.h"
|
|
#include "dapy.h"
|
|
int dapdebug = 0;
|
|
%}
|
|
|
|
/*DO NOT DELETE THIS LINE*/
|
|
|
|
%token SCAN_ALIAS
|
|
%token SCAN_ARRAY
|
|
%token SCAN_ATTR
|
|
%token SCAN_BYTE
|
|
%token SCAN_CODE
|
|
%token SCAN_DATASET
|
|
%token SCAN_DATA
|
|
|
|
%token SCAN_ERROR
|
|
%token SCAN_FLOAT32
|
|
%token SCAN_FLOAT64
|
|
%token SCAN_GRID
|
|
%token SCAN_INT16
|
|
%token SCAN_INT32
|
|
%token SCAN_MAPS
|
|
%token SCAN_MESSAGE
|
|
%token SCAN_SEQUENCE
|
|
%token SCAN_STRING
|
|
%token SCAN_STRUCTURE
|
|
%token SCAN_UINT16
|
|
%token SCAN_UINT32
|
|
%token SCAN_URL
|
|
/* For errorbody */
|
|
%token SCAN_PTYPE
|
|
%token SCAN_PROG
|
|
|
|
/* Non-keywords */
|
|
%token WORD_WORD WORD_STRING
|
|
|
|
%start start
|
|
|
|
%%
|
|
|
|
start:
|
|
dataset datasetbody
|
|
| dataset datasetbody SCAN_DATA /* The SCAN_DATA indicates serialized data follows */
|
|
| attr attributebody
|
|
| err errorbody
|
|
| error {dap_unrecognizedresponse(parsestate); YYABORT;}
|
|
;
|
|
|
|
dataset:
|
|
SCAN_DATASET
|
|
{dap_tagparse(parsestate,SCAN_DATASET);}
|
|
;
|
|
attr:
|
|
SCAN_ATTR
|
|
{dap_tagparse(parsestate,SCAN_ATTR);}
|
|
;
|
|
err:
|
|
SCAN_ERROR
|
|
{dap_tagparse(parsestate,SCAN_ERROR);}
|
|
;
|
|
|
|
datasetbody:
|
|
'{' declarations '}' datasetname ';'
|
|
{dap_datasetbody(parsestate,$4,$2);}
|
|
;
|
|
|
|
|
|
declarations:
|
|
/* empty */ {$$=dap_declarations(parsestate,null,null);}
|
|
| declarations declaration {$$=dap_declarations(parsestate,$1,$2);}
|
|
;
|
|
|
|
/* 01/21/08: James says: no dimensions for grids or sequences */
|
|
/* 05/08/09: James says: no duplicate map names */
|
|
declaration:
|
|
base_type var_name array_decls ';'
|
|
{$$=dap_makebase(parsestate,$2,$1,$3);}
|
|
| SCAN_STRUCTURE '{' declarations '}' var_name array_decls ';'
|
|
{if(($$=dap_makestructure(parsestate,$5,$6,$3))==null) {YYABORT;}}
|
|
| SCAN_SEQUENCE '{' declarations '}' var_name ';'
|
|
{if(($$=dap_makesequence(parsestate,$5,$3))==null) {YYABORT;}}
|
|
| SCAN_GRID '{' SCAN_ARRAY ':' declaration SCAN_MAPS ':'
|
|
declarations '}' var_name ';'
|
|
{if(($$=dap_makegrid(parsestate,$10,$5,$8))==null) {YYABORT;}}
|
|
| error
|
|
{dapsemanticerror(parsestate,OC_EBADTYPE,"Unrecognized type"); YYABORT;}
|
|
;
|
|
|
|
|
|
base_type:
|
|
SCAN_BYTE {$$=(Object)SCAN_BYTE;}
|
|
| SCAN_INT16 {$$=(Object)SCAN_INT16;}
|
|
| SCAN_UINT16 {$$=(Object)SCAN_UINT16;}
|
|
| SCAN_INT32 {$$=(Object)SCAN_INT32;}
|
|
| SCAN_UINT32 {$$=(Object)SCAN_UINT32;}
|
|
| SCAN_FLOAT32 {$$=(Object)SCAN_FLOAT32;}
|
|
| SCAN_FLOAT64 {$$=(Object)SCAN_FLOAT64;}
|
|
| SCAN_URL {$$=(Object)SCAN_URL;}
|
|
| SCAN_STRING {$$=(Object)SCAN_STRING;}
|
|
;
|
|
|
|
array_decls:
|
|
/* empty */ {$$=dap_arraydecls(parsestate,null,null);}
|
|
| array_decls array_decl {$$=dap_arraydecls(parsestate,$1,$2);}
|
|
;
|
|
|
|
array_decl:
|
|
'[' WORD_WORD ']' {$$=dap_arraydecl(parsestate,null,$2);}
|
|
| '[' '=' WORD_WORD ']' {$$=dap_arraydecl(parsestate,null,$3);}
|
|
| '[' name '=' WORD_WORD ']' {$$=dap_arraydecl(parsestate,$2,$4);}
|
|
| error
|
|
{dapsemanticerror(parsestate,OC_EDIMSIZE,"Illegal dimension declaration"); YYABORT;}
|
|
;
|
|
|
|
datasetname:
|
|
var_name {$$=$1;}
|
|
| error
|
|
{dapsemanticerror(parsestate,OC_EDDS,"Illegal dataset declaration"); YYABORT;}
|
|
;
|
|
|
|
var_name: name {$$=$1;};
|
|
|
|
attributebody:
|
|
'{' attr_list '}' {dap_attributebody(parsestate,$2);}
|
|
| error
|
|
{dapsemanticerror(parsestate,OC_EDAS,"Illegal DAS body"); YYABORT;}
|
|
;
|
|
|
|
attr_list:
|
|
/* empty */ {$$=dap_attrlist(parsestate,null,null);}
|
|
| attr_list attribute {$$=dap_attrlist(parsestate,$1,$2);}
|
|
;
|
|
|
|
attribute:
|
|
alias ';' {$$=null;} /* ignored */
|
|
| SCAN_BYTE name bytes ';'
|
|
{$$=dap_attribute(parsestate,$2,$3,(Object)SCAN_BYTE);}
|
|
| SCAN_INT16 name int16 ';'
|
|
{$$=dap_attribute(parsestate,$2,$3,(Object)SCAN_INT16);}
|
|
| SCAN_UINT16 name uint16 ';'
|
|
{$$=dap_attribute(parsestate,$2,$3,(Object)SCAN_UINT16);}
|
|
| SCAN_INT32 name int32 ';'
|
|
{$$=dap_attribute(parsestate,$2,$3,(Object)SCAN_INT32);}
|
|
| SCAN_UINT32 name uint32 ';'
|
|
{$$=dap_attribute(parsestate,$2,$3,(Object)SCAN_UINT32);}
|
|
| SCAN_FLOAT32 name float32 ';'
|
|
{$$=dap_attribute(parsestate,$2,$3,(Object)SCAN_FLOAT32);}
|
|
| SCAN_FLOAT64 name float64 ';'
|
|
{$$=dap_attribute(parsestate,$2,$3,(Object)SCAN_FLOAT64);}
|
|
| SCAN_STRING name strs ';'
|
|
{$$=dap_attribute(parsestate,$2,$3,(Object)SCAN_STRING);}
|
|
| SCAN_URL name urls ';'
|
|
{$$=dap_attribute(parsestate,$2,$3,(Object)SCAN_URL);}
|
|
| name '{' attr_list '}' {$$=dap_attrset(parsestate,$1,$3);}
|
|
| error
|
|
{dapsemanticerror(parsestate,OC_EDAS,"Illegal attribute"); YYABORT;}
|
|
;
|
|
|
|
bytes:
|
|
WORD_WORD {$$=dap_attrvalue(parsestate,null,$1,(Object)SCAN_BYTE);}
|
|
| bytes ',' WORD_WORD
|
|
{$$=dap_attrvalue(parsestate,$1,$3,(Object)SCAN_BYTE);}
|
|
;
|
|
int16:
|
|
WORD_WORD {$$=dap_attrvalue(parsestate,null,$1,(Object)SCAN_INT16);}
|
|
| int16 ',' WORD_WORD
|
|
{$$=dap_attrvalue(parsestate,$1,$3,(Object)SCAN_INT16);}
|
|
;
|
|
uint16:
|
|
WORD_WORD {$$=dap_attrvalue(parsestate,null,$1,(Object)SCAN_UINT16);}
|
|
| uint16 ',' WORD_WORD
|
|
{$$=dap_attrvalue(parsestate,$1,$3,(Object)SCAN_UINT16);}
|
|
;
|
|
int32:
|
|
WORD_WORD {$$=dap_attrvalue(parsestate,null,$1,(Object)SCAN_INT32);}
|
|
| int32 ',' WORD_WORD
|
|
{$$=dap_attrvalue(parsestate,$1,$3,(Object)SCAN_INT32);}
|
|
;
|
|
uint32:
|
|
WORD_WORD {$$=dap_attrvalue(parsestate,null,$1,(Object)SCAN_UINT32);}
|
|
| uint32 ',' WORD_WORD {$$=dap_attrvalue(parsestate,$1,$3,(Object)SCAN_UINT32);}
|
|
;
|
|
float32:
|
|
WORD_WORD {$$=dap_attrvalue(parsestate,null,$1,(Object)SCAN_FLOAT32);}
|
|
| float32 ',' WORD_WORD {$$=dap_attrvalue(parsestate,$1,$3,(Object)SCAN_FLOAT32);}
|
|
;
|
|
float64:
|
|
WORD_WORD {$$=dap_attrvalue(parsestate,null,$1,(Object)SCAN_FLOAT64);}
|
|
| float64 ',' WORD_WORD {$$=dap_attrvalue(parsestate,$1,$3,(Object)SCAN_FLOAT64);}
|
|
;
|
|
strs:
|
|
str_or_id {$$=dap_attrvalue(parsestate,null,$1,(Object)SCAN_STRING);}
|
|
| strs ',' str_or_id {$$=dap_attrvalue(parsestate,$1,$3,(Object)SCAN_STRING);}
|
|
;
|
|
|
|
urls:
|
|
url {$$=dap_attrvalue(parsestate,null,$1,(Object)SCAN_URL);}
|
|
| urls ',' url {$$=dap_attrvalue(parsestate,$1,$3,(Object)SCAN_URL);}
|
|
;
|
|
|
|
url:
|
|
str_or_id {$$=$1;}
|
|
;
|
|
|
|
str_or_id:
|
|
name {$$=$1;}
|
|
| WORD_STRING {$$=$1;}
|
|
;
|
|
|
|
/* Not used
|
|
float_or_int:
|
|
WORD_INT {$$=$1;}
|
|
| WORD_DOUBLE {$$=$1;}
|
|
;
|
|
*/
|
|
|
|
alias:
|
|
SCAN_ALIAS WORD_WORD WORD_WORD {$$=$2; $$=$3; $$=null;} /* Alias is ignored */
|
|
;
|
|
|
|
errorbody:
|
|
'{' errorcode errormsg errorptype errorprog '}' ';'
|
|
{dap_errorbody(parsestate,$2,$3,$4,$5);}
|
|
;
|
|
|
|
errorcode: /*empty*/ {$$=null;} | SCAN_CODE '=' WORD_WORD ';' {$$=$3;}
|
|
errormsg: /*empty*/ {$$=null;} | SCAN_MESSAGE '=' WORD_STRING ';' {$$=$3;}
|
|
errorptype: /*empty*/ {$$=null;} | SCAN_PTYPE '=' WORD_WORD ';' {$$=$3;}
|
|
errorprog : /*empty*/ {$$=null;} | SCAN_PROG '=' WORD_WORD ';' {$$=$3;}
|
|
|
|
/* Note that variable names like "byte" are legal names
|
|
and are disambiguated by context
|
|
*/
|
|
name:
|
|
WORD_WORD {$$=dapdecode(parsestate->lexstate,$1);}
|
|
| SCAN_ALIAS {$$=strdup($1);}
|
|
| SCAN_ARRAY {$$=strdup($1);}
|
|
| SCAN_ATTR {$$=strdup($1);}
|
|
| SCAN_BYTE {$$=strdup($1);}
|
|
| SCAN_DATASET {$$=strdup($1);}
|
|
| SCAN_DATA {$$=strdup($1);}
|
|
| SCAN_ERROR {$$=strdup($1);}
|
|
| SCAN_FLOAT32 {$$=strdup($1);}
|
|
| SCAN_FLOAT64 {$$=strdup($1);}
|
|
| SCAN_GRID {$$=strdup($1);}
|
|
| SCAN_INT16 {$$=strdup($1);}
|
|
| SCAN_INT32 {$$=strdup($1);}
|
|
| SCAN_MAPS {$$=strdup($1);}
|
|
| SCAN_SEQUENCE {$$=strdup($1);}
|
|
| SCAN_STRING {$$=strdup($1);}
|
|
| SCAN_STRUCTURE {$$=strdup($1);}
|
|
| SCAN_UINT16 {$$=strdup($1);}
|
|
| SCAN_UINT32 {$$=strdup($1);}
|
|
| SCAN_URL {$$=strdup($1);}
|
|
| SCAN_CODE {$$=strdup($1);}
|
|
| SCAN_MESSAGE {$$=strdup($1);}
|
|
| SCAN_PROG {$$=strdup($1);}
|
|
| SCAN_PTYPE {$$=strdup($1);}
|
|
;
|
|
|
|
%%
|