void OnErrorStatement( //#line 3413 "VBNET.ATG" out OnErrorStatement stmt) { //#line 3415 "VBNET.ATG" stmt = null; Location startLocation = la.Location; GotoStatement goToStatement = null; Expect(171); Expect(118); if ( //#line 3422 "VBNET.ATG" IsNegativeLabelName()) { Expect(132); Expect(30); Expect(5); //#line 3424 "VBNET.ATG" long intLabel = Int64.Parse(t.val); if(intLabel != 1) { Error("invalid label in on error statement."); } stmt = new OnErrorStatement(new GotoStatement((intLabel * -1).ToString())); } else if (la.kind == 132) { GotoStatement( //#line 3430 "VBNET.ATG" out goToStatement); //#line 3432 "VBNET.ATG" string val = goToStatement.Label; // if value is numeric, make sure that is 0 try { long intLabel = Int64.Parse(val); if(intLabel != 0) { Error("invalid label in on error statement."); } } catch { } stmt = new OnErrorStatement(goToStatement); } else if (la.kind == 194) { lexer.NextToken(); Expect(163); //#line 3446 "VBNET.ATG" stmt = new OnErrorStatement(new ResumeStatement(true)); } else SynErr(319); //#line 3450 "VBNET.ATG" if (stmt != null) { stmt.StartLocation = startLocation; stmt.EndLocation = t.EndLocation; } }
public sealed override object VisitOnErrorStatement(OnErrorStatement onErrorStatement, object data) { this.BeginVisit(onErrorStatement); object result = this.TrackedVisitOnErrorStatement(onErrorStatement, data); this.EndVisit(onErrorStatement); return result; }
public override object TrackedVisitOnErrorStatement(OnErrorStatement onErrorStatement, object data) { return null; }
public virtual object VisitOnErrorStatement(OnErrorStatement onErrorStatement, object data) { throw new global::System.NotImplementedException("OnErrorStatement"); }
public virtual object TrackedVisitOnErrorStatement(OnErrorStatement onErrorStatement, object data) { return base.VisitOnErrorStatement(onErrorStatement, data); }
void OnErrorStatement( #line 2596 "VBNET.ATG" out OnErrorStatement stmt) { #line 2598 "VBNET.ATG" stmt = null; GotoStatement goToStatement = null; Expect(135); Expect(92); if ( #line 2604 "VBNET.ATG" IsNegativeLabelName()) { Expect(104); Expect(15); Expect(5); #line 2606 "VBNET.ATG" long intLabel = Int64.Parse(t.val); if(intLabel != 1) { Error("invalid label in on error statement."); } stmt = new OnErrorStatement(new GotoStatement((intLabel * -1).ToString())); } else if (la.kind == 104) { GotoStatement( #line 2612 "VBNET.ATG" out goToStatement); #line 2614 "VBNET.ATG" string val = goToStatement.Label; // if value is numeric, make sure that is 0 try { long intLabel = Int64.Parse(val); if(intLabel != 0) { Error("invalid label in on error statement."); } } catch { } stmt = new OnErrorStatement(goToStatement); } else if (la.kind == 153) { lexer.NextToken(); Expect(128); #line 2628 "VBNET.ATG" stmt = new OnErrorStatement(new ResumeStatement(true)); } else SynErr(265); }
void OnErrorStatement( #line 3081 "VBNET.ATG" out OnErrorStatement stmt) { #line 3083 "VBNET.ATG" stmt = null; GotoStatement goToStatement = null; Expect(157); Expect(105); if ( #line 3089 "VBNET.ATG" IsNegativeLabelName()) { Expect(119); Expect(18); Expect(5); #line 3091 "VBNET.ATG" long intLabel = Int64.Parse(t.val); if(intLabel != 1) { Error("invalid label in on error statement."); } stmt = new OnErrorStatement(new GotoStatement((intLabel * -1).ToString())); } else if (la.kind == 119) { GotoStatement( #line 3097 "VBNET.ATG" out goToStatement); #line 3099 "VBNET.ATG" string val = goToStatement.Label; // if value is numeric, make sure that is 0 try { long intLabel = Int64.Parse(val); if(intLabel != 0) { Error("invalid label in on error statement."); } } catch { } stmt = new OnErrorStatement(goToStatement); } else if (la.kind == 179) { lexer.NextToken(); Expect(149); #line 3113 "VBNET.ATG" stmt = new OnErrorStatement(new ResumeStatement(true)); } else SynErr(283); }
public virtual object VisitOnErrorStatement(OnErrorStatement onErrorStatement, object data) { Debug.Assert((onErrorStatement != null)); Debug.Assert((onErrorStatement.EmbeddedStatement != null)); nodeStack.Push(onErrorStatement.EmbeddedStatement); onErrorStatement.EmbeddedStatement.AcceptVisitor(this, data); onErrorStatement.EmbeddedStatement = ((Statement)(nodeStack.Pop())); return null; }
public virtual object VisitOnErrorStatement(OnErrorStatement onErrorStatement, object data) { throw CreateException(onErrorStatement); }
public object VisitOnErrorStatement(OnErrorStatement onErrorStatement, object data) { throw new NotImplementedException (); }
public virtual object VisitOnErrorStatement(OnErrorStatement onErrorStatement, object data) { Debug.Assert((onErrorStatement != null)); Debug.Assert((onErrorStatement.EmbeddedStatement != null)); return onErrorStatement.EmbeddedStatement.AcceptVisitor(this, data); }
public virtual bool VisitOnErrorStatement(OnErrorStatement onErrorStatement, object d) { if ((onErrorStatement == null)) { return SetFailure(); } if ((d == null)) { return SetFailure(); } if ((onErrorStatement.EmbeddedStatement == null)) { return SetFailure(); } if(onErrorStatement.GetType() != d.GetType()) {return SetFailure();} var data = (OnErrorStatement)d; if (!IsMatch(onErrorStatement, data)) { return SetFailure(); } return onErrorStatement.EmbeddedStatement.AcceptVisitor(this, data.EmbeddedStatement); }
public override object VisitOnErrorStatement(OnErrorStatement onErrorStatement, object data) { return base.VisitOnErrorStatement(onErrorStatement, data); }
private bool IsMatch(OnErrorStatement left, OnErrorStatement data) { return false; }
public object VisitOnErrorStatement(OnErrorStatement onErrorStatement, object data) { AddError(onErrorStatement, "old VB-style exception handling is not supported."); return null; }
void OnErrorStatement( #line 3320 "VBNET.ATG" out OnErrorStatement stmt) { #line 3322 "VBNET.ATG" stmt = null; GotoStatement goToStatement = null; Expect(171); Expect(118); if ( #line 3328 "VBNET.ATG" IsNegativeLabelName()) { Expect(132); Expect(30); Expect(5); #line 3330 "VBNET.ATG" long intLabel = Int64.Parse(t.val); if(intLabel != 1) { Error("invalid label in on error statement."); } stmt = new OnErrorStatement(new GotoStatement((intLabel * -1).ToString())); } else if (la.kind == 132) { GotoStatement( #line 3336 "VBNET.ATG" out goToStatement); #line 3338 "VBNET.ATG" string val = goToStatement.Label; // if value is numeric, make sure that is 0 try { long intLabel = Int64.Parse(val); if(intLabel != 0) { Error("invalid label in on error statement."); } } catch { } stmt = new OnErrorStatement(goToStatement); } else if (la.kind == 194) { lexer.NextToken(); Expect(163); #line 3352 "VBNET.ATG" stmt = new OnErrorStatement(new ResumeStatement(true)); } else SynErr(319); }