[9724] | 1 | using System.Text;
|
---|
| 2 | using System.Collections.Generic;
|
---|
| 3 | using IEnumerableConstraintNode = System.Collections.Generic.IEnumerable<ConstraintNode>;
|
---|
| 4 |
|
---|
| 5 |
|
---|
| 6 |
|
---|
| 7 | using System;
|
---|
| 8 |
|
---|
| 9 | namespace HeuristicLab.Problems.GPDL {
|
---|
| 10 |
|
---|
| 11 |
|
---|
| 12 |
|
---|
| 13 | public class Parser {
|
---|
| 14 | public const int _EOF = 0;
|
---|
| 15 | public const int _ident = 1;
|
---|
| 16 | public const int maxT = 23;
|
---|
| 17 |
|
---|
| 18 | const bool T = true;
|
---|
| 19 | const bool x = false;
|
---|
| 20 | const int minErrDist = 2;
|
---|
| 21 |
|
---|
| 22 | public Scanner scanner;
|
---|
| 23 | public Errors errors;
|
---|
| 24 |
|
---|
| 25 | public Token t; // last recognized token
|
---|
| 26 | public Token la; // lookahead token
|
---|
| 27 | int errDist = minErrDist;
|
---|
| 28 |
|
---|
[9727] | 29 | public static HeuristicLab.Optimization.IProblem problem;
|
---|
[9724] | 30 |
|
---|
| 31 |
|
---|
| 32 |
|
---|
| 33 | public Parser(Scanner scanner) {
|
---|
| 34 | this.scanner = scanner;
|
---|
| 35 | errors = new Errors();
|
---|
| 36 | }
|
---|
| 37 |
|
---|
| 38 | void SynErr (int n) {
|
---|
| 39 | if (errDist >= minErrDist) errors.SynErr(la.line, la.col, n);
|
---|
| 40 | errDist = 0;
|
---|
| 41 | }
|
---|
| 42 |
|
---|
| 43 | public void SemErr (string msg) {
|
---|
| 44 | if (errDist >= minErrDist) errors.SemErr(t.line, t.col, msg);
|
---|
| 45 | errDist = 0;
|
---|
| 46 | }
|
---|
| 47 |
|
---|
| 48 | void Get () {
|
---|
| 49 | for (;;) {
|
---|
| 50 | t = la;
|
---|
| 51 | la = scanner.Scan();
|
---|
| 52 | if (la.kind <= maxT) { ++errDist; break; }
|
---|
| 53 |
|
---|
| 54 | la = t;
|
---|
| 55 | }
|
---|
| 56 | }
|
---|
| 57 |
|
---|
| 58 | void Expect (int n) {
|
---|
| 59 | if (la.kind==n) Get(); else { SynErr(n); }
|
---|
| 60 | }
|
---|
| 61 |
|
---|
| 62 | bool StartOf (int s) {
|
---|
| 63 | return set[s, la.kind];
|
---|
| 64 | }
|
---|
| 65 |
|
---|
| 66 | void ExpectWeak (int n, int follow) {
|
---|
| 67 | if (la.kind == n) Get();
|
---|
| 68 | else {
|
---|
| 69 | SynErr(n);
|
---|
| 70 | while (!StartOf(follow)) Get();
|
---|
| 71 | }
|
---|
| 72 | }
|
---|
| 73 |
|
---|
| 74 |
|
---|
| 75 | bool WeakSeparator(int n, int syFol, int repFol) {
|
---|
| 76 | int kind = la.kind;
|
---|
| 77 | if (kind == n) {Get(); return true;}
|
---|
| 78 | else if (StartOf(repFol)) {return false;}
|
---|
| 79 | else {
|
---|
| 80 | SynErr(n);
|
---|
| 81 | while (!(set[syFol, kind] || set[repFol, kind] || set[0, kind])) {
|
---|
| 82 | Get();
|
---|
| 83 | kind = la.kind;
|
---|
| 84 | }
|
---|
| 85 | return StartOf(syFol);
|
---|
| 86 | }
|
---|
| 87 | }
|
---|
| 88 |
|
---|
| 89 |
|
---|
| 90 | void SourceCode(out string src) {
|
---|
| 91 | src = "";
|
---|
| 92 | Expect(2);
|
---|
| 93 | int beg = la.pos;
|
---|
| 94 | while (StartOf(1)) {
|
---|
| 95 | Get();
|
---|
| 96 | }
|
---|
| 97 | int end = la.pos;
|
---|
| 98 | Expect(3);
|
---|
| 99 | if(end>beg) src = scanner.buffer.GetString(beg, end);
|
---|
| 100 | }
|
---|
| 101 |
|
---|
| 102 | void GPDef() {
|
---|
| 103 | RuleNode ruleNode = null;
|
---|
| 104 | GPDefNode gpDef = new GPDefNode();
|
---|
| 105 | NonTerminalNode ntNode = null;
|
---|
| 106 | FitnessFunctionNode fitnessFunNode = null;
|
---|
| 107 | TerminalNode tNode = null;
|
---|
| 108 | problem = null;
|
---|
| 109 | string src = "";
|
---|
| 110 |
|
---|
| 111 | Expect(4);
|
---|
| 112 | Expect(1);
|
---|
| 113 | gpDef.Name = t.val;
|
---|
| 114 | if (la.kind == 5) {
|
---|
| 115 | Get();
|
---|
| 116 | SourceCode(out src);
|
---|
| 117 | gpDef.ClassCodeNode = new CodeNode{SrcCode = src};
|
---|
| 118 | }
|
---|
| 119 | if (la.kind == 6) {
|
---|
| 120 | Get();
|
---|
| 121 | SourceCode(out src);
|
---|
| 122 | gpDef.InitCodeNode = new CodeNode{SrcCode = src};
|
---|
| 123 | }
|
---|
| 124 | Expect(7);
|
---|
| 125 | while (la.kind == 1) {
|
---|
| 126 | NonterminalDecl(out ntNode);
|
---|
| 127 | gpDef.NonTerminals.Add(ntNode);
|
---|
| 128 | }
|
---|
| 129 | Expect(8);
|
---|
| 130 | while (la.kind == 1) {
|
---|
| 131 | TerminalDecl(out tNode);
|
---|
| 132 | gpDef.Terminals.Add(tNode);
|
---|
| 133 | }
|
---|
| 134 | Expect(9);
|
---|
| 135 | while (la.kind == 1) {
|
---|
| 136 | RuleDef(out ruleNode);
|
---|
| 137 | gpDef.Rules.Add(ruleNode);
|
---|
| 138 | }
|
---|
| 139 | fitnessFunNode = new FitnessFunctionNode();
|
---|
| 140 | gpDef.FitnessFunctionNode = fitnessFunNode;
|
---|
| 141 |
|
---|
| 142 | if (la.kind == 10) {
|
---|
| 143 | Get();
|
---|
| 144 | fitnessFunNode.Maximization = true;
|
---|
| 145 | } else if (la.kind == 11) {
|
---|
| 146 | Get();
|
---|
| 147 | fitnessFunNode.Maximization = false;
|
---|
| 148 | } else SynErr(24);
|
---|
| 149 | SourceCode(out src);
|
---|
| 150 | fitnessFunNode.SrcCode = src;
|
---|
| 151 | Expect(12);
|
---|
| 152 | Expect(1);
|
---|
| 153 | var gen = new ProblemGenerator();
|
---|
| 154 | problem = gen.GenerateFromAst(gpDef);
|
---|
| 155 |
|
---|
| 156 | Expect(13);
|
---|
| 157 | }
|
---|
| 158 |
|
---|
| 159 | void NonterminalDecl(out NonTerminalNode ntNode) {
|
---|
| 160 | string identStr = ""; ntNode = null; string src = "";
|
---|
| 161 | Expect(1);
|
---|
| 162 | identStr = t.val;
|
---|
[9727] | 163 | if (la.kind == 2) {
|
---|
| 164 | SourceCode(out src);
|
---|
| 165 | }
|
---|
[9724] | 166 | var myNtNode = new NonTerminalNode();
|
---|
| 167 | ntNode = myNtNode;
|
---|
| 168 | myNtNode.Ident = identStr;
|
---|
| 169 | myNtNode.FormalParameters = src;
|
---|
| 170 |
|
---|
| 171 | Expect(13);
|
---|
| 172 | }
|
---|
| 173 |
|
---|
| 174 | void TerminalDecl(out TerminalNode tNode) {
|
---|
| 175 | string identStr = "";
|
---|
| 176 | tNode = null;
|
---|
| 177 | TerminalNode myTNode = null;
|
---|
| 178 | IEnumerableConstraintNode constraints = null;
|
---|
| 179 | string src = "";
|
---|
| 180 |
|
---|
| 181 | Expect(1);
|
---|
| 182 | identStr = t.val;
|
---|
[9727] | 183 | if (la.kind == 2) {
|
---|
| 184 | SourceCode(out src);
|
---|
| 185 | }
|
---|
[9724] | 186 | myTNode = new TerminalNode();
|
---|
| 187 | tNode = myTNode;
|
---|
| 188 | myTNode.Ident = identStr;
|
---|
| 189 | myTNode.FormalParameters = src;
|
---|
| 190 | myTNode.FieldDefinitions = SourceReader.ExtractFormalParameters(src);
|
---|
| 191 |
|
---|
| 192 | if (la.kind == 15) {
|
---|
| 193 | Get();
|
---|
| 194 | ConstraintDef(out constraints);
|
---|
| 195 | myTNode.Constraints = constraints;
|
---|
| 196 | }
|
---|
| 197 | Expect(13);
|
---|
| 198 | }
|
---|
| 199 |
|
---|
| 200 | void RuleDef(out RuleNode rule) {
|
---|
| 201 | RuleExprNode expr = null;
|
---|
| 202 | string identStr = null;
|
---|
| 203 | RuleNode myRule = null;
|
---|
| 204 | rule = null;
|
---|
| 205 | string src = "";
|
---|
| 206 |
|
---|
| 207 | Expect(1);
|
---|
| 208 | identStr = t.val;
|
---|
[9727] | 209 | if (la.kind == 2) {
|
---|
| 210 | SourceCode(out src);
|
---|
| 211 | }
|
---|
[9724] | 212 | Expect(20);
|
---|
| 213 | myRule = new RuleNode();
|
---|
| 214 | rule = myRule;
|
---|
| 215 | myRule.NtSymbol = identStr;
|
---|
| 216 |
|
---|
| 217 | if (la.kind == 21) {
|
---|
| 218 | Get();
|
---|
| 219 | SourceCode(out src);
|
---|
| 220 | myRule.LocalCode = src;
|
---|
| 221 |
|
---|
| 222 | }
|
---|
| 223 | SynExpr(out expr);
|
---|
| 224 | Expect(13);
|
---|
| 225 | myRule.RuleExpr = expr;
|
---|
| 226 |
|
---|
| 227 | }
|
---|
| 228 |
|
---|
| 229 | void SemAction(out RuleActionNode action) {
|
---|
| 230 | RuleActionNode myAction = null; action = null; string src = "";
|
---|
| 231 | Expect(14);
|
---|
| 232 | SourceCode(out src);
|
---|
| 233 | myAction = new RuleActionNode();
|
---|
| 234 | myAction.SrcCode = src;
|
---|
| 235 | action = myAction;
|
---|
| 236 |
|
---|
| 237 | }
|
---|
| 238 |
|
---|
| 239 | void ConstraintDef(out IEnumerableConstraintNode constraints) {
|
---|
| 240 | List<ConstraintNode> constraintsList = new List<ConstraintNode>();
|
---|
| 241 | ConstraintNode n = null;
|
---|
| 242 | constraints = null;
|
---|
| 243 |
|
---|
| 244 | while (la.kind == 1) {
|
---|
| 245 | ConstraintRule(out n);
|
---|
| 246 | constraintsList.Add(n);
|
---|
| 247 | }
|
---|
| 248 | constraints = constraintsList;
|
---|
| 249 | }
|
---|
| 250 |
|
---|
| 251 | void ConstraintRule(out ConstraintNode constraint) {
|
---|
| 252 | constraint = null;
|
---|
| 253 |
|
---|
| 254 | Expect(1);
|
---|
| 255 | constraint = new ConstraintNode(t.val);
|
---|
| 256 | Expect(16);
|
---|
| 257 | SetDefinition(constraint);
|
---|
| 258 | }
|
---|
| 259 |
|
---|
| 260 | void SetDefinition(ConstraintNode constraint) {
|
---|
| 261 | string src = "";
|
---|
| 262 | if (la.kind == 17) {
|
---|
| 263 | Get();
|
---|
| 264 | constraint.Type = ConstraintNodeType.Set;
|
---|
| 265 | SourceCode(out src);
|
---|
| 266 | constraint.SetExpression = src;
|
---|
| 267 | } else if (la.kind == 18) {
|
---|
| 268 | Get();
|
---|
| 269 | constraint.Type = ConstraintNodeType.Range;
|
---|
| 270 | SourceCode(out src);
|
---|
| 271 | constraint.RangeMinExpression = src;
|
---|
| 272 | Expect(19);
|
---|
| 273 | SourceCode(out src);
|
---|
| 274 | constraint.RangeMaxExpression = src;
|
---|
| 275 | } else SynErr(25);
|
---|
| 276 | }
|
---|
| 277 |
|
---|
| 278 | void SynExpr(out RuleExprNode expr ) {
|
---|
| 279 | expr = null;
|
---|
| 280 | AlternativesNode alt = null;
|
---|
| 281 |
|
---|
| 282 | SynTerm(out expr);
|
---|
| 283 | alt = new AlternativesNode();
|
---|
| 284 | alt.Add(expr);
|
---|
| 285 |
|
---|
| 286 | while (la.kind == 22) {
|
---|
| 287 | Get();
|
---|
| 288 | SynTerm(out expr);
|
---|
| 289 | alt.Add(expr); expr = alt;
|
---|
| 290 | }
|
---|
| 291 | }
|
---|
| 292 |
|
---|
| 293 | void SynTerm(out RuleExprNode expr) {
|
---|
| 294 | SequenceNode seq = null; expr = null;
|
---|
| 295 | SynFact(out expr);
|
---|
| 296 | seq = new SequenceNode();
|
---|
| 297 | seq.Add(expr);
|
---|
| 298 |
|
---|
| 299 | while (la.kind == 1 || la.kind == 14) {
|
---|
| 300 | SynFact(out expr);
|
---|
| 301 | seq.Add(expr); expr = seq;
|
---|
| 302 | }
|
---|
| 303 | }
|
---|
| 304 |
|
---|
| 305 | void SynFact(out RuleExprNode expr) {
|
---|
| 306 | string identStr = "";
|
---|
| 307 | RuleActionNode action = null;
|
---|
| 308 | expr = null;
|
---|
| 309 | string src = "";
|
---|
| 310 |
|
---|
| 311 | if (la.kind == 1) {
|
---|
| 312 | Get();
|
---|
| 313 | identStr = t.val;
|
---|
[9727] | 314 | if (la.kind == 2) {
|
---|
| 315 | SourceCode(out src);
|
---|
| 316 | }
|
---|
[9724] | 317 | var callNode = new CallSymbolNode{Ident = identStr};
|
---|
| 318 | callNode.ActualParameter = src;
|
---|
| 319 | expr = callNode;
|
---|
| 320 |
|
---|
| 321 | } else if (la.kind == 14) {
|
---|
| 322 | SemAction(out action);
|
---|
| 323 | expr = action;
|
---|
| 324 | } else SynErr(26);
|
---|
| 325 | }
|
---|
| 326 |
|
---|
| 327 |
|
---|
| 328 |
|
---|
| 329 | public void Parse() {
|
---|
| 330 | la = new Token();
|
---|
| 331 | la.val = "";
|
---|
| 332 | Get();
|
---|
| 333 | GPDef();
|
---|
| 334 | Expect(0);
|
---|
| 335 |
|
---|
| 336 | }
|
---|
| 337 |
|
---|
| 338 | static readonly bool[,] set = {
|
---|
| 339 | {T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x},
|
---|
| 340 | {x,T,T,x, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, x}
|
---|
| 341 |
|
---|
| 342 | };
|
---|
| 343 | } // end Parser
|
---|
| 344 |
|
---|
| 345 |
|
---|
| 346 | public class Errors {
|
---|
| 347 | public int count = 0; // number of errors detected
|
---|
| 348 | public System.IO.TextWriter errorStream = Console.Out; // error messages go to this stream
|
---|
| 349 | public string errMsgFormat = "-- line {0} col {1}: {2}"; // 0=line, 1=column, 2=text
|
---|
| 350 |
|
---|
| 351 | public virtual void SynErr (int line, int col, int n) {
|
---|
| 352 | string s;
|
---|
| 353 | switch (n) {
|
---|
| 354 | case 0: s = "EOF expected"; break;
|
---|
| 355 | case 1: s = "ident expected"; break;
|
---|
| 356 | case 2: s = "\"<<\" expected"; break;
|
---|
| 357 | case 3: s = "\">>\" expected"; break;
|
---|
| 358 | case 4: s = "\"PROBLEM\" expected"; break;
|
---|
| 359 | case 5: s = "\"CODE\" expected"; break;
|
---|
| 360 | case 6: s = "\"INIT\" expected"; break;
|
---|
| 361 | case 7: s = "\"NONTERMINALS\" expected"; break;
|
---|
| 362 | case 8: s = "\"TERMINALS\" expected"; break;
|
---|
| 363 | case 9: s = "\"RULES\" expected"; break;
|
---|
| 364 | case 10: s = "\"MAXIMIZE\" expected"; break;
|
---|
| 365 | case 11: s = "\"MINIMIZE\" expected"; break;
|
---|
| 366 | case 12: s = "\"END\" expected"; break;
|
---|
| 367 | case 13: s = "\".\" expected"; break;
|
---|
| 368 | case 14: s = "\"SEM\" expected"; break;
|
---|
| 369 | case 15: s = "\"CONSTRAINTS\" expected"; break;
|
---|
| 370 | case 16: s = "\"IN\" expected"; break;
|
---|
| 371 | case 17: s = "\"SET\" expected"; break;
|
---|
| 372 | case 18: s = "\"RANGE\" expected"; break;
|
---|
| 373 | case 19: s = "\"..\" expected"; break;
|
---|
| 374 | case 20: s = "\"=\" expected"; break;
|
---|
| 375 | case 21: s = "\"LOCAL\" expected"; break;
|
---|
| 376 | case 22: s = "\"|\" expected"; break;
|
---|
| 377 | case 23: s = "??? expected"; break;
|
---|
| 378 | case 24: s = "invalid GPDef"; break;
|
---|
| 379 | case 25: s = "invalid SetDefinition"; break;
|
---|
| 380 | case 26: s = "invalid SynFact"; break;
|
---|
| 381 |
|
---|
| 382 | default: s = "error " + n; break;
|
---|
| 383 | }
|
---|
| 384 | errorStream.WriteLine(errMsgFormat, line, col, s);
|
---|
| 385 | count++;
|
---|
| 386 | }
|
---|
| 387 |
|
---|
| 388 | public virtual void SemErr (int line, int col, string s) {
|
---|
| 389 | errorStream.WriteLine(errMsgFormat, line, col, s);
|
---|
| 390 | count++;
|
---|
| 391 | }
|
---|
| 392 |
|
---|
| 393 | public virtual void SemErr (string s) {
|
---|
| 394 | errorStream.WriteLine(s);
|
---|
| 395 | count++;
|
---|
| 396 | }
|
---|
| 397 |
|
---|
| 398 | public virtual void Warning (int line, int col, string s) {
|
---|
| 399 | errorStream.WriteLine(errMsgFormat, line, col, s);
|
---|
| 400 | }
|
---|
| 401 |
|
---|
| 402 | public virtual void Warning(string s) {
|
---|
| 403 | errorStream.WriteLine(s);
|
---|
| 404 | }
|
---|
| 405 | } // Errors
|
---|
| 406 |
|
---|
| 407 |
|
---|
| 408 | public class FatalError: Exception {
|
---|
| 409 | public FatalError(string m): base(m) {}
|
---|
| 410 | }
|
---|
| 411 | } |
---|