forked from anubhav-gres/VAL-4.2.08
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathRelax.cpp
157 lines (130 loc) · 4.12 KB
/
Relax.cpp
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
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
/************************************************************************
* Copyright 2008, Strathclyde Planning Group,
* Department of Computer and Information Sciences,
* University of Strathclyde, Glasgow, UK
* http://planning.cis.strath.ac.uk/
*
* Maria Fox, Richard Howey and Derek Long - VAL
* Stephen Cresswell - PDDL Parser
*
* This file is part of VAL, the PDDL validator.
*
* VAL is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 2 of the License, or
* (at your option) any later version.
*
* VAL 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with VAL. If not, see <http://www.gnu.org/licenses/>.
*
************************************************************************/
/*-----------------------------------------------------------------------------
VAL - The Automatic Plan Validator for PDDL2.2
$Date: 2009-02-05 10:50:22 $
$Revision: 1.1 $
Maria Fox and Derek Long - PDDL2.2 and VAL
Stephen Cresswell - PDDL2.2 Parser
Richard Howey - Continuous Effects, derived predicates, timed initial literals and LaTeX report in VAL
By releasing this code we imply no warranty as to its reliability
and its use is entirely at your own risk.
Strathclyde Planning Group
http://planning.cis.strath.ac.uk
----------------------------------------------------------------------------*/
#include <cstdio>
#include <iostream>
#include <fstream>
#include "ptree.h"
#include "FlexLexer.h"
#include "RelaxTranslator.h"
using std::ifstream;
using std::ofstream;
using std::cout;
extern int yyparse();
extern int yydebug;
namespace VAL {
parse_category* top_thing=NULL;
analysis an_analysis;
analysis* current_analysis;
yyFlexLexer * yfl;
bool Verbose = false;
bool LaTeX = false;
};
char * current_filename;
using namespace VAL;
int main(int argc,char * argv[])
{
current_analysis = & an_analysis;
yfl = new yyFlexLexer;
ifstream current_in_stream(argv[1]);
yydebug=0; // Set to 1 to output yacc trace
cout << "Processing file: " << argv[1] << '\n';
RelaxTranslator * dyna = 0;
if (current_in_stream.bad())
{
cout << "Failed to open\n";
// Log an error to be reported in summary later
line_no= 0;
log_error(E_FATAL,"Failed to open file");
}
else
{
line_no= 1;
// Switch the tokeniser to the current input stream
yfl->switch_streams(¤t_in_stream,&cout);
yyparse();
// Output syntax tree
dyna = new RelaxTranslator(current_analysis);
auto_ptr<WriteController> ts
= auto_ptr<WriteController>(dyna);
// NOTE: We pass responsibility for dyna into parse_category. There
// is no need to garbage collect it. BUT we access dyna later through
// this pointer, so beware!
parse_category::setWriteController(ts);
if (top_thing)
{
string nm(argv[1]);
nm += ".rlx";
ofstream domfile(nm.c_str());
domfile << *top_thing;
};
}
// Output the errors from all input files
current_analysis->error_list.report();
delete yfl;
for(int i = 2;i < argc;++i)
{
yfl = new yyFlexLexer;
ifstream problem_in_stream(argv[i]);
cout << "Processing file: " << argv[i] << "\n";
if (problem_in_stream.bad())
{
cout << "Failed to open\n";
// Log an error to be reported in summary later
line_no= 0;
log_error(E_FATAL,"Failed to open file");
}
else
{
line_no= 1;
// Switch the tokeniser to the current input stream
yfl->switch_streams(&problem_in_stream,&cout);
yyparse();
if (top_thing)
{
string nm(argv[2]);
nm += ".rlx";
ofstream probfile(nm.c_str());
probfile << *top_thing;
};
}
}
}