|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
// -*- mode: c++; c-basic-offset:4 -*-
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
// This file is part of libdap, A C++ implementation of the OPeNDAP Data
|
|
Packit |
a4aae4 |
// Access Protocol.
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
// Copyright (c) 2002,2003 OPeNDAP, Inc.
|
|
Packit |
a4aae4 |
// Author: James Gallagher <jgallagher@opendap.org>
|
|
Packit |
a4aae4 |
//
|
|
Packit |
a4aae4 |
// This library is free software; you can redistribute it and/or
|
|
Packit |
a4aae4 |
// modify it under the terms of the GNU Lesser General Public
|
|
Packit |
a4aae4 |
// License as published by the Free Software Foundation; either
|
|
Packit |
a4aae4 |
// version 2.1 of the License, or (at your option) any later version.
|
|
Packit |
a4aae4 |
//
|
|
Packit |
a4aae4 |
// This library is distributed in the hope that it will be useful,
|
|
Packit |
a4aae4 |
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
Packit |
a4aae4 |
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Packit |
a4aae4 |
// Lesser General Public License for more details.
|
|
Packit |
a4aae4 |
//
|
|
Packit |
a4aae4 |
// You should have received a copy of the GNU Lesser General Public
|
|
Packit |
a4aae4 |
// License along with this library; if not, write to the Free Software
|
|
Packit |
a4aae4 |
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
Packit |
a4aae4 |
//
|
|
Packit |
a4aae4 |
// You can contact OPeNDAP, Inc. at PO Box 112, Saunderstown, RI. 02874-0112.
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
// (c) COPYRIGHT URI/MIT 1997,1999
|
|
Packit |
a4aae4 |
// Please read the full copyright statement in the file COPYRIGHT_URI.
|
|
Packit |
a4aae4 |
//
|
|
Packit |
a4aae4 |
// Authors:
|
|
Packit |
a4aae4 |
// jhrg,jimg James Gallagher <jgallagher@gso.uri.edu>
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
%code requires {
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
#include "config_dap.h"
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
#include <iostream>
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
#include "Error.h"
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
#include "parser.h"
|
|
Packit |
a4aae4 |
#include "debug.h"
|
|
Packit |
a4aae4 |
#include "util.h"
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
using namespace std;
|
|
Packit |
a4aae4 |
using namespace libdap;
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
// These macros are used to access the `arguments' passed to the parser. A
|
|
Packit |
a4aae4 |
// pointer to an error object and a pointer to an integer status variable are
|
|
Packit |
a4aae4 |
// passed in to the parser within a structure (which itself is passed as a
|
|
Packit |
a4aae4 |
// pointer). Note that the ERROR macro explicitly casts OBJ to an ERROR *.
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
#define ERROR_OBJ(arg) ((Error *)((parser_arg *)(arg))->_object)
|
|
Packit |
a4aae4 |
#define STATUS(arg) ((parser_arg *)(arg))->_status
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
//#define YYPARSE_PARAM arg
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
extern int error_line_num; // defined in Error.lex
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
}
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
%code {
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
int Errorlex(); // the scanner
|
|
Packit |
a4aae4 |
void Errorerror(parser_arg *arg, const string &s); // gotta love automatically generated names...
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
}
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
%require "2.4"
|
|
Packit |
a4aae4 |
%parse-param {parser_arg *arg}
|
|
Packit |
a4aae4 |
%name-prefix "Error"
|
|
Packit |
a4aae4 |
%defines
|
|
Packit |
a4aae4 |
%debug
|
|
Packit |
a4aae4 |
%verbose
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
%union {
|
|
Packit |
a4aae4 |
#ifdef __SUNPRO_CC
|
|
Packit |
a4aae4 |
int boolean;
|
|
Packit |
a4aae4 |
#else
|
|
Packit |
a4aae4 |
bool boolean;
|
|
Packit |
a4aae4 |
#endif
|
|
Packit |
a4aae4 |
int integer;
|
|
Packit |
a4aae4 |
char *string;
|
|
Packit |
a4aae4 |
}
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
%token <integer> SCAN_INT
|
|
Packit |
a4aae4 |
%token <string> SCAN_STR
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
%token <integer> SCAN_ERROR
|
|
Packit |
a4aae4 |
%token <integer> SCAN_CODE
|
|
Packit |
a4aae4 |
%token <string> SCAN_MSG
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
%type <boolean> error_object contents description code message
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
%%
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
// The parser is called through a function named ERRORPARSE which takes a
|
|
Packit |
a4aae4 |
// pointer to a structure and returns a boolean. The structure contains a
|
|
Packit |
a4aae4 |
// pointer to an Error object which is empty and an integer which contains
|
|
Packit |
a4aae4 |
// status information. In addition the parser_arg structure contains a
|
|
Packit |
a4aae4 |
// pointer to an error object. However, the `error' member of parser_arg is
|
|
Packit |
a4aae4 |
// not yet used here.
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
error_object: SCAN_ERROR '{' contents '}' ';' { $$ = $3; STATUS(arg) = $3; }
|
|
Packit |
a4aae4 |
;
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
contents: description { $$ = $1; }
|
|
Packit |
a4aae4 |
;
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
description: code message { $$ = $1 && $2; }
|
|
Packit |
a4aae4 |
| code { $$ = $1; }
|
|
Packit |
a4aae4 |
;
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
code: SCAN_CODE '=' SCAN_INT ';'
|
|
Packit |
a4aae4 |
{
|
|
Packit |
a4aae4 |
ERROR_OBJ(arg)->set_error_code((ErrorCode)$3);
|
|
Packit |
a4aae4 |
$$ = true;
|
|
Packit |
a4aae4 |
}
|
|
Packit |
a4aae4 |
;
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
message: SCAN_MSG '=' SCAN_STR
|
|
Packit |
a4aae4 |
{
|
|
Packit |
a4aae4 |
ERROR_OBJ(arg)->set_error_message($3);
|
|
Packit |
a4aae4 |
}
|
|
Packit |
a4aae4 |
';'
|
|
Packit |
a4aae4 |
{
|
|
Packit |
a4aae4 |
$$ = true;
|
|
Packit |
a4aae4 |
}
|
|
Packit |
a4aae4 |
;
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
%%
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
void
|
|
Packit |
a4aae4 |
Errorerror(parser_arg *, const string &s)
|
|
Packit |
a4aae4 |
{
|
|
Packit |
a4aae4 |
string msg = s;
|
|
Packit |
a4aae4 |
msg += " line: ";
|
|
Packit |
a4aae4 |
append_long_to_string(error_line_num, 10, msg);
|
|
Packit |
a4aae4 |
msg += "\n";
|
|
Packit |
a4aae4 |
|
|
Packit |
a4aae4 |
throw Error(unknown_error, msg);
|
|
Packit |
a4aae4 |
}
|
|
Packit |
a4aae4 |
|