1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
// -*- mode: c++; c-basic-offset:4 -*-
// This file is part of libdap, A C++ implementation of the OPeNDAP Data
// Access Protocol.
// Copyright (c) 2002,2003 OPeNDAP, Inc.
// Author: James Gallagher <jgallagher@opendap.org>
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
//
// You can contact OPeNDAP, Inc. at PO Box 112, Saunderstown, RI. 02874-0112.
// (c) COPYRIGHT URI/MIT 1997,1999
// Please read the full copyright statement in the file COPYRIGHT_URI.
//
// Authors:
// jhrg,jimg James Gallagher <jgallagher@gso.uri.edu>
%code requires {
#include "config_dap.h"
#include <iostream>
#include "Error.h"
#include "parser.h"
#include "debug.h"
#include "util.h"
using namespace std;
using namespace libdap;
// These macros are used to access the `arguments' passed to the parser. A
// pointer to an error object and a pointer to an integer status variable are
// passed in to the parser within a structure (which itself is passed as a
// pointer). Note that the ERROR macro explicitly casts OBJ to an ERROR *.
#define ERROR_OBJ(arg) ((Error *)((parser_arg *)(arg))->_object)
#define STATUS(arg) ((parser_arg *)(arg))->_status
//#define YYPARSE_PARAM arg
extern int error_line_num; // defined in Error.lex
}
%code {
int Errorlex(); // the scanner
void Errorerror(parser_arg *arg, const string &s); // gotta love automatically generated names...
}
%require "2.4"
%parse-param {parser_arg *arg}
%name-prefix "Error"
%defines
%debug
%verbose
%union {
#ifdef __SUNPRO_CC
int boolean;
#else
bool boolean;
#endif
int integer;
char *string;
}
%token <integer> SCAN_INT
%token <string> SCAN_STR
%token <integer> SCAN_ERROR
%token <integer> SCAN_CODE
%token <string> SCAN_MSG
%type <boolean> error_object contents description code message
%%
// The parser is called through a function named ERRORPARSE which takes a
// pointer to a structure and returns a boolean. The structure contains a
// pointer to an Error object which is empty and an integer which contains
// status information. In addition the parser_arg structure contains a
// pointer to an error object. However, the `error' member of parser_arg is
// not yet used here.
error_object: SCAN_ERROR '{' contents '}' ';' { $$ = $3; STATUS(arg) = $3; }
;
contents: description { $$ = $1; }
;
description: code message { $$ = $1 && $2; }
| code { $$ = $1; }
;
code: SCAN_CODE '=' SCAN_INT ';'
{
ERROR_OBJ(arg)->set_error_code((ErrorCode)$3);
$$ = true;
}
;
message: SCAN_MSG '=' SCAN_STR
{
ERROR_OBJ(arg)->set_error_message($3);
}
';'
{
$$ = true;
}
;
%%
void
Errorerror(parser_arg *, const string &s)
{
string msg = s;
msg += " line: ";
append_long_to_string(error_line_num, 10, msg);
msg += "\n";
throw Error(unknown_error, msg);
}
|
