grammar vms.fortran.VmsFortran with org.eclipse.xtext.common.Terminals

generate vmsFortran "[...]vms/fortran/VmsFortran"

Model:
	includes+=Include*
	elements+=Declaration*
	elements+=Call*;
	
Include:
	'include' importURI=STRING;

Declaration:
	'integer' name=ID;
	
Call:
	var=[Declaration|ID];

            // java-based API for validation
            fragment = validation.JavaValidatorFragment {
            //    composedCheck = "org.eclipse.xtext.validation.ImportUriValidator"
            //    composedCheck = "org.eclipse.xtext.validation.NamesAreUniqueValidator"
            }

            // scoping and exporting API
            fragment = scoping.ImportURIScopingFragment { ignoreCase = true }
            fragment = exporting.SimpleNamesFragment {}

            // scoping and exporting API
            //fragment = scoping.ImportNamespacesScopingFragment { ignoreCase= true }
            //fragment = exporting.QualifiedNamesFragment {}

public class VmsFortranRuntimeModule extends vms.fortran.AbstractVmsFortranRuntimeModule {
	
	public Class<? extends ImportUriResolver> bindImportUriResolver() {
		return VmsFortranImportUriResolver.class;
	
	}

}

public class VmsFortranImportUriResolver extends ImportUriResolver {
	
	private static final Logger LOGGER = Logger.getLogger(VmsFortranImportUriResolver.class);
	
	public VmsFortranImportUriResolver() {
		super();
		LOGGER.setLevel(Level.INFO);
	}
	
	@Override
	public String resolve(EObject object) {
		
		final String vmsUri = super.resolve(object);
		final String winUri = VmsPathConverter.getInstance().convert(vmsUri);
		
		LOGGER.info(vmsUri + "  -->  " + winUri);
		
		return "platform:/resource/"+winUri;
	}
}

      include '($SSDEV)'

Model:
	includes+=Include*
	elements+=Declaration*
	elements+=Call*;
	
Include:
	'include' importURI=STRING ';' ;

Declaration:
	'integer' name=ID ';' ;
	
Call:
	var=[Declaration|ID] ';' ;

public IScope scope_Call_var(final Call call, final EReference ref) {
   return scopeFor(call.eObject.elements.filter(typeof(Declaration)));
}