// -*- 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);

}