code: /******************************************************************************
   *
   *	Copyright (c) 2017-2022, INTO-CPS Association,
   *	c/o Professor Peter Gorm Larsen, Department of Engineering
   *	Finlandsgade 22, 8200 Aarhus N.
   *
   *	This file is part of the INTO-CPS toolchain.
   *
   *	MaestroCheck 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 3 of the License, or
   *	(at your option) any later version.
   *
   *	MaestroCheck 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 MaestroCheck. If not, see <http://www.gnu.org/licenses/>.
   *	SPDX-License-Identifier: GPL-3.0-or-later
   *
   ******************************************************************************/
  
  package annotations.tc;
  
  import com.fujitsu.vdmj.tc.annotations.TCAnnotation;
  import com.fujitsu.vdmj.tc.expressions.TCExpression;
  import com.fujitsu.vdmj.tc.expressions.TCExpressionList;
  import com.fujitsu.vdmj.tc.lex.TCIdentifierToken;
  import com.fujitsu.vdmj.typechecker.Environment;
  import com.fujitsu.vdmj.typechecker.NameScope;
  
  public class TCOnFailAnnotation extends TCAnnotation
  {
  	public TCOnFailAnnotation(TCIdentifierToken name, TCExpressionList args)
  	{
  		super(name, args);
  	}
  	
  	@Override
  	public void tcBefore(TCExpression exp, Environment env, NameScope scope)
  	{
  		for (TCExpression arg: args)
  		{
  			arg.typeCheck(env, null, scope, null);	// Just checks scope
  		}
  	}
  }
  