2019-01-15 12:41:24 +01:00
|
|
|
// -*- C++ -*-
|
2019-04-16 14:30:37 +02:00
|
|
|
// Copyright © 2006-2011, Ondra Kamenik
|
2011-01-14 16:28:26 +01:00
|
|
|
|
2019-04-17 18:52:12 +02:00
|
|
|
%code requires
|
|
|
|
{
|
2019-01-08 17:12:05 +01:00
|
|
|
#include "parser/cc/location.hh"
|
2019-04-17 18:52:12 +02:00
|
|
|
#define DYNGLOB_LTYPE ogp::location_type
|
|
|
|
}
|
2009-09-08 15:55:19 +02:00
|
|
|
|
2019-04-17 18:52:12 +02:00
|
|
|
%code
|
|
|
|
{
|
|
|
|
#include "dynare_model.hh"
|
2009-09-08 15:55:19 +02:00
|
|
|
|
2019-04-17 18:52:12 +02:00
|
|
|
void dynglob_error(const char*);
|
|
|
|
int dynglob_lex();
|
|
|
|
extern ogdyn::DynareParser* dynare_parser;
|
|
|
|
int symblist_flag;
|
|
|
|
}
|
2009-09-08 15:55:19 +02:00
|
|
|
|
2019-04-17 18:52:12 +02:00
|
|
|
%union
|
|
|
|
{
|
|
|
|
int integer;
|
|
|
|
char *string;
|
|
|
|
char character;
|
2009-09-08 15:55:19 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
%token END INITVAL MODEL PARAMETERS VAR VAREXO SEMICOLON COMMA EQUAL_SIGN CHARACTER
|
|
|
|
%token VCOV LEFT_BRACKET RIGHT_BRACKET ORDER PLANNEROBJECTIVE PLANNERDISCOUNT
|
|
|
|
%token <string> NAME;
|
|
|
|
|
2019-04-17 18:52:12 +02:00
|
|
|
%define api.prefix {dynglob_}
|
2009-09-08 15:55:19 +02:00
|
|
|
|
|
|
|
%locations
|
2019-04-17 18:52:12 +02:00
|
|
|
%defines
|
|
|
|
%define parse.error verbose
|
2009-09-08 15:55:19 +02:00
|
|
|
|
|
|
|
%%
|
|
|
|
|
|
|
|
dynare_file : preamble paramset model rest {
|
|
|
|
dynare_parser->set_paramset_pos(@2.off, @3.off);}
|
|
|
|
| preamble model rest {
|
|
|
|
dynare_parser->set_paramset_pos(0, 0);}
|
|
|
|
| preamble paramset planner model rest {
|
|
|
|
dynare_parser->set_paramset_pos(@2.off, @3.off);}
|
|
|
|
;
|
|
|
|
|
|
|
|
preamble : preamble preamble_statement | preamble_statement;
|
|
|
|
|
|
|
|
preamble_statement : var | varexo | parameters;
|
|
|
|
|
|
|
|
var : VAR {symblist_flag=1;} symblist SEMICOLON;
|
|
|
|
|
|
|
|
varexo : VAREXO {symblist_flag=2;} symblist SEMICOLON;
|
|
|
|
|
|
|
|
parameters : PARAMETERS {symblist_flag=3;} symblist SEMICOLON;
|
|
|
|
|
|
|
|
|
|
|
|
symblist : symblist NAME {dynare_parser->add_name($2,symblist_flag);}
|
|
|
|
| symblist COMMA NAME {dynare_parser->add_name($3,symblist_flag);}
|
|
|
|
| NAME {dynare_parser->add_name($1,symblist_flag);}
|
|
|
|
;
|
|
|
|
|
|
|
|
paramset : recnameset;
|
|
|
|
|
|
|
|
recnameset : recnameset onenameset | onenameset;
|
|
|
|
|
|
|
|
onenameset : NAME EQUAL_SIGN material SEMICOLON;
|
|
|
|
|
|
|
|
material : material CHARACTER | material NAME | NAME | CHARACTER;
|
|
|
|
|
|
|
|
model : MODEL SEMICOLON equations END SEMICOLON {
|
|
|
|
dynare_parser->set_model_pos(@3.off, @4.off);
|
|
|
|
};
|
|
|
|
|
|
|
|
equations : equations equation | equation;
|
|
|
|
|
|
|
|
equation : material EQUAL_SIGN material SEMICOLON | material SEMICOLON;
|
|
|
|
|
|
|
|
rest : rest_statement | rest rest_statement;
|
|
|
|
|
|
|
|
rest_statement : initval | vcov | order | planner;
|
|
|
|
|
|
|
|
initval : INITVAL SEMICOLON recnameset END SEMICOLON {
|
|
|
|
dynare_parser->set_initval_pos(@3.off, @4.off);
|
|
|
|
};
|
|
|
|
|
|
|
|
vcov : VCOV EQUAL_SIGN LEFT_BRACKET m_material RIGHT_BRACKET SEMICOLON {
|
|
|
|
dynare_parser->set_vcov_pos(@4.off, @5.off);
|
|
|
|
};
|
|
|
|
|
|
|
|
m_material : m_material CHARACTER | m_material NAME | m_material SEMICOLON | m_material COMMA | CHARACTER | NAME | SEMICOLON | COMMA;
|
|
|
|
|
|
|
|
order : ORDER EQUAL_SIGN material SEMICOLON {
|
|
|
|
dynare_parser->set_order_pos(@3.off, @4.off);
|
|
|
|
};
|
|
|
|
|
|
|
|
planner : planner_objective planner_discount
|
|
|
|
| planner_discount planner_objective
|
|
|
|
;
|
|
|
|
|
|
|
|
planner_objective : PLANNEROBJECTIVE material SEMICOLON {
|
|
|
|
dynare_parser->set_pl_objective_pos(@2.off, @3.off);
|
|
|
|
};
|
|
|
|
|
|
|
|
planner_discount : PLANNERDISCOUNT NAME SEMICOLON {
|
|
|
|
dynare_parser->set_pl_discount_pos(@2.off, @3.off);
|
|
|
|
};
|
|
|
|
|
|
|
|
%%
|
|
|
|
|
2019-04-17 18:52:12 +02:00
|
|
|
void
|
|
|
|
dynglob_error(const char* mes)
|
2009-09-08 15:55:19 +02:00
|
|
|
{
|
2019-04-17 18:52:12 +02:00
|
|
|
dynare_parser->error(mes);
|
2009-09-08 15:55:19 +02:00
|
|
|
}
|