public virtual object Visit(OnErrorStatement onErrorStatement, object data)
 {
     Debug.Assert(onErrorStatement != null);
     Debug.Assert(onErrorStatement.EmbeddedStatement != null);
     onErrorStatement.EmbeddedStatement.AcceptVisitor(this, data);
     return(data);
 }
 public void VBNetOnErrorStatementTest()
 {
     OnErrorStatement onErrorStatement = ParseUtil.ParseStatement <OnErrorStatement>("On Error Goto err");
 }
 public virtual object VisitOnErrorStatement(OnErrorStatement onErrorStatement, object data)
 {
     throw new global::System.NotImplementedException("OnErrorStatement");
 }
Exemple #4
0
	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);
	}
Exemple #5
0
 public object VisitOnErrorStatement(OnErrorStatement onErrorStatement, object data)
 {
     AddError(onErrorStatement, "old VB-style exception handling is not supported.");
     return(null);
 }
Exemple #6
0
 public override object VisitOnErrorStatement(OnErrorStatement onErrorStatement, object data)
 {
     return(base.VisitOnErrorStatement(onErrorStatement, data));
 }
 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);
		}
 private bool IsMatch(OnErrorStatement left, OnErrorStatement data)
 {
     return(false);
 }
		public virtual object VisitOnErrorStatement(OnErrorStatement onErrorStatement, object data) {
			throw new global::System.NotImplementedException("OnErrorStatement");
		}
		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 sealed override object VisitOnErrorStatement(OnErrorStatement onErrorStatement, object data) {
			BeginVisit(onErrorStatement);
			object result = TrackedVisitOnErrorStatement(onErrorStatement, data);
			EndVisit(onErrorStatement);
			return result;
		}
		public virtual object TrackedVisitOnErrorStatement(OnErrorStatement onErrorStatement, object data) {
			return base.VisitOnErrorStatement(onErrorStatement, data);
		}