Java Environment.isVDMPP方法代码示例

import com.fujitsu.vdmj.typechecker.Environment; //导入方法依赖的package包/类
public void typeResolve(Environment env, TCTypeDefinition root)
{
	// Recursion defence done by the type
	type = type.typeResolve(env, root);

	if (env.isVDMPP())
	{
		if (type instanceof TCFunctionType)
		{
   			tagname.setTypeQualifier(((TCFunctionType)type).parameters);
		}
		else if (type instanceof TCOperationType)
   		{
   			tagname.setTypeQualifier(((TCOperationType)type).parameters);
   		}
	}
}
 

import com.fujitsu.vdmj.typechecker.Environment; //导入方法依赖的package包/类
@Override
public TCType typeCheck(Environment env, TCTypeList qualifiers, NameScope scope, TCType constraint)
{
	// Each local definition is in scope for later local definitions...

	Environment local = env;

	for (TCDefinition d: localDefs)
	{
		if (d instanceof TCExplicitFunctionDefinition)
		{
			// Functions' names are in scope in their bodies, whereas
			// simple variable declarations aren't

			local = new FlatCheckedEnvironment(d, local, scope);	// cumulative
			d.implicitDefinitions(local);
			d.typeResolve(local);

			if (env.isVDMPP())
			{
				TCClassDefinition cdef = env.findClassDefinition();
				d.setClassDefinition(cdef);
				d.setAccessSpecifier(d.accessSpecifier.getStatic(true));
			}

			d.typeCheck(local, scope);
		}
		else
		{
			d.implicitDefinitions(local);
			d.typeResolve(local);
			d.typeCheck(local, scope);
			local = new FlatCheckedEnvironment(d, local, scope);	// cumulative
		}
	}

	TCType r = expression.typeCheck(local, null, scope, constraint);
	local.unusedCheck(env);
	return r;
}
 

import com.fujitsu.vdmj.typechecker.Environment; //导入方法依赖的package包/类
@Override
public void typeCheck(Environment base, NameScope scope)
{
	if (base.isVDMPP())
	{
		base = new FlatEnvironment(getSelfDefinition(), base);
	}

	for (TCTraceDefinitionTerm term: terms)
	{
		term.typeCheck(base, NameScope.NAMESANDSTATE);
	}
}
 

import com.fujitsu.vdmj.typechecker.Environment; //导入方法依赖的package包/类
@Override
public void typeResolve(Environment base)
{
	if (typeParams != null)
	{
		FlatCheckedEnvironment params =	new FlatCheckedEnvironment(
			getTypeParamDefinitions(), base, NameScope.NAMES);

		type = type.typeResolve(params, null);
	}
	else
	{
		type = type.typeResolve(base, null);
	}

	if (result != null)
	{
		result.typeResolve(base);
	}

	if (base.isVDMPP())
	{
		name.setTypeQualifier(type.parameters);
	}

	if (precondition != null)
	{
		predef.typeResolve(base);
	}

	if (postcondition != null)
	{
		postdef.typeResolve(base);
	}

	for (TCPatternListTypePair pltp: parameterPatterns)
	{
		pltp.typeResolve(base);
	}
}
 

import com.fujitsu.vdmj.typechecker.Environment; //导入方法依赖的package包/类
@Override
public void typeResolve(Environment base)
{
	type = type.typeResolve(base, null);

	if (result != null)
	{
		result.typeResolve(base);
	}

	if (base.isVDMPP())
	{
		name.setTypeQualifier(type.parameters);

		if (name.getName().equals(classDefinition.name.getName()))
		{
			isConstructor = true;
			classDefinition.hasConstructors = true;
		}
	}

	if (precondition != null)
	{
		predef.typeResolve(base);
	}

	if (postcondition != null)
	{
		postdef.typeResolve(base);
	}

	for (TCPatternListTypePair ptp: parameterPatterns)
	{
		ptp.typeResolve(base);
	}
}
 

import com.fujitsu.vdmj.typechecker.Environment; //导入方法依赖的package包/类
private TCExplicitFunctionDefinition getPreDefinition(Environment base)
{
	TCPatternListList parameters = new TCPatternListList();
	TCPatternList plist = new TCPatternList();

	for (TCPatternListTypePair pl: parameterPatterns)
	{
		plist.addAll(pl.patterns);
	}

	if (state != null)
	{
		plist.add(new TCIdentifierPattern(state.name));
	}
	else if (base.isVDMPP() && !accessSpecifier.isStatic)
	{
		plist.add(new TCIdentifierPattern(name.getSelfName()));
	}

	parameters.add(plist);
	TCExpression preop = new TCPreOpExpression(name, precondition, errors, state);

	TCExplicitFunctionDefinition def = new TCExplicitFunctionDefinition(TCAccessSpecifier.DEFAULT, name.getPreName(precondition.location),
		null, type.getPreType(state, classDefinition, accessSpecifier.isStatic),
		parameters, preop, null, null, false, null);

	// Operation precondition functions are effectively not static as
	// their expression can directly refer to instance variables, even
	// though at runtime these are passed via a "self" parameter.

	def.setAccessSpecifier(accessSpecifier.getStatic(false));
	def.classDefinition = classDefinition;
	return def;
}
 

import com.fujitsu.vdmj.typechecker.Environment; //导入方法依赖的package包/类
@Override
public void typeResolve(Environment base)
{
	type = type.typeResolve(base, null);

	if (base.isVDMPP())
	{
		name.setTypeQualifier(type.parameters);

		if (name.getName().equals(classDefinition.name.getName()))
		{
			isConstructor = true;
			classDefinition.hasConstructors = true;
		}
	}
	
	if (precondition != null)
	{
		predef.typeResolve(base);
	}

	if (postcondition != null)
	{
		postdef.typeResolve(base);
	}

	for (TCPattern p: parameterPatterns)
	{
		p.typeResolve(base);
	}
}
 

import com.fujitsu.vdmj.typechecker.Environment; //导入方法依赖的package包/类
private TCExplicitFunctionDefinition getPreDefinition(Environment base)
{
	TCPatternListList parameters = new TCPatternListList();
	TCPatternList plist = new TCPatternList();
	plist.addAll(parameterPatterns);

	if (state != null)
	{
		plist.add(new TCIdentifierPattern(state.name));
	}
	else if (base.isVDMPP() && !accessSpecifier.isStatic)
	{
		plist.add(new TCIdentifierPattern(name.getSelfName()));
	}

	parameters.add(plist);
	TCPreOpExpression preop = new TCPreOpExpression(name, precondition, null, state);

	TCExplicitFunctionDefinition def = new TCExplicitFunctionDefinition(accessSpecifier, name.getPreName(precondition.location),
		null, type.getPreType(state, classDefinition, accessSpecifier.isStatic),
		parameters, preop, null, null, false, null);

	// Operation precondition functions are effectively not static as
	// their expression can directly refer to instance variables, even
	// though at runtime these are passed via a "self" parameter.

	def.setAccessSpecifier(accessSpecifier.getStatic(false));
	def.classDefinition = classDefinition;
	return def;
}
 

import com.fujitsu.vdmj.typechecker.Environment; //导入方法依赖的package包/类
@Override
public TCType typeCheck(Environment env, NameScope scope, TCType constraint)
{
	// Each local definition is in scope for later local definitions...

	Environment local = env;

	for (TCDefinition d: localDefs)
	{
		if (d instanceof TCExplicitFunctionDefinition)
		{
			// Functions' names are in scope in their bodies, whereas
			// simple variable declarations aren't

			local = new FlatCheckedEnvironment(d, local, scope);	// cumulative
			d.implicitDefinitions(local);
			d.typeResolve(local);

			if (env.isVDMPP())
			{
				TCClassDefinition cdef = env.findClassDefinition();
				d.setClassDefinition(cdef);
				d.setAccessSpecifier(d.accessSpecifier.getStatic(true));
			}

			d.typeCheck(local, scope);
		}
		else
		{
			d.implicitDefinitions(local);
			d.typeResolve(local);
			d.typeCheck(local, scope);
			local = new FlatCheckedEnvironment(d, local, scope);	// cumulative
		}
	}

	TCType r = statement.typeCheck(local, scope, constraint);
	local.unusedCheck(env);
	return r;
}
 

import com.fujitsu.vdmj.typechecker.Environment; //导入方法依赖的package包/类
@Override
public void typeResolve(Environment base)
{
	if (typeParams != null)
	{
		FlatCheckedEnvironment params =	new FlatCheckedEnvironment(
			getTypeParamDefinitions(), base, NameScope.NAMES);

		type = type.typeResolve(params, null);
	}
	else
	{
		type = type.typeResolve(base, null);
	}

	if (base.isVDMPP())
	{
		name.setTypeQualifier(type.parameters);
	}

	if (body instanceof TCSubclassResponsibilityExpression ||
		body instanceof TCNotYetSpecifiedExpression)
	{
		isUndefined = true;
	}

	if (precondition != null)
	{
		predef.typeResolve(base);
	}

	if (postcondition != null)
	{
		postdef.typeResolve(base);
	}

	for (TCPatternList pp: paramPatternList)
	{
		pp.typeResolve(base);
	}
}
 

import com.fujitsu.vdmj.typechecker.Environment; //导入方法依赖的package包/类
private TCExplicitFunctionDefinition getPostDefinition(Environment base)
{
	TCPatternListList parameters = new TCPatternListList();
	TCPatternList plist = new TCPatternList();

	for (TCPatternListTypePair pl: parameterPatterns)
	{
		plist.addAll(pl.patterns);
	}

	if (result != null)
	{
		plist.add(result.pattern);
	}

	if (state != null)
	{
		plist.add(new TCIdentifierPattern(state.name.getOldName()));
		plist.add(new TCIdentifierPattern(state.name));
	}
	else if (base.isVDMPP())
	{
		plist.add(new TCIdentifierPattern(name.getSelfName().getOldName()));
		
		if (!accessSpecifier.isStatic)
		{
			plist.add(new TCIdentifierPattern(name.getSelfName()));
		}
	}

	parameters.add(plist);
	TCExpression postop = new TCPostOpExpression(name, precondition, postcondition, errors, state);

	TCExplicitFunctionDefinition def = new TCExplicitFunctionDefinition(accessSpecifier, name.getPostName(postcondition.location),
		null, type.getPostType(state, classDefinition, accessSpecifier.isStatic),
		parameters, postop,
		null, null, false, null);

	// Operation postcondition functions are effectively not static as
	// their expression can directly refer to instance variables, even
	// though at runtime these are passed via a "self" parameter.

	def.setAccessSpecifier(accessSpecifier.getStatic(false));
	def.classDefinition = classDefinition;
	return def;
}
 

import com.fujitsu.vdmj.typechecker.Environment; //导入方法依赖的package包/类
@Override
public void typeCheck(Environment base, NameScope scope)
{
	getDefinitions().setExcluded(true);
	expType = exp.typeCheck(base, null, scope, type);
	getDefinitions().setExcluded(false);
	
	if (expType instanceof TCUnknownType)
	{
		pass = Pass.FINAL;	// Come back to this
	}
	
	if (expType instanceof TCVoidType)
	{
		exp.report(3048, "Expression does not return a value");
	}
	else if (type != null && !(type instanceof TCUnknownType))
	{
		TypeComparator.checkComposeTypes(type, base, false);
		
		if (!TypeComparator.compatible(type, expType))
		{
			report(3051, "Expression does not match declared type");
			detail2("Declared", type, "Expression", expType);
		}
	}
	else
	{
		type = expType;
	}

	if (base.isVDMPP() && type instanceof TCNamedType)
	{
		TCNamedType named = (TCNamedType)type;
   		TCDefinition typedef = base.findType(named.typename, location.module);

   		if (typedef.accessSpecifier.narrowerThan(accessSpecifier))
   		{
   			report(3052, "Value type visibility less than value definition");
   		}
	}

	pattern.typeResolve(base);
	updateDefs();
	defs.typeCheck(base, scope);
}
 

import com.fujitsu.vdmj.typechecker.Environment; //导入方法依赖的package包/类
private TCExplicitFunctionDefinition getPostDefinition(Environment base)
{
	TCPatternListList parameters = new TCPatternListList();
	TCPatternList plist = new TCPatternList();
	plist.addAll(parameterPatterns);

	if (!(type.result instanceof TCVoidType))
	{
   		plist.add(new TCIdentifierPattern(name.getResultName(location)));
	}

	if (state != null)	// Two args, called Sigma~ and Sigma
	{
		plist.add(new TCIdentifierPattern(state.name.getOldName()));
		plist.add(new TCIdentifierPattern(state.name));
	}
	else if (base.isVDMPP())
	{
		// Two arguments called "self~" and "self"
		plist.add(new TCIdentifierPattern(name.getSelfName().getOldName()));
		
		if (!accessSpecifier.isStatic)
		{
			plist.add(new TCIdentifierPattern(name.getSelfName()));
		}
	}

	parameters.add(plist);
	TCPostOpExpression postop = new TCPostOpExpression(name, precondition, postcondition, null, state);

	TCExplicitFunctionDefinition def = new TCExplicitFunctionDefinition(accessSpecifier, name.getPostName(postcondition.location),
		null, type.getPostType(state, classDefinition, accessSpecifier.isStatic),
		parameters, postop, null, null, false, null);

	// Operation postcondition functions are effectively not static as
	// their expression can directly refer to instance variables, even
	// though at runtime these are passed via a "self" parameter.

	def.setAccessSpecifier(accessSpecifier.getStatic(false));
	def.classDefinition = classDefinition;
	return def;
}