use of org.spoofax.interpreter.core.IContext in project spoofax by metaborg.
the class CheckSdf2TablePrimitive method call.
@Override
public boolean call(IContext env, Strategy[] svars, IStrategoTerm[] tvars) throws InterpreterException {
org.metaborg.core.context.IContext context = (org.metaborg.core.context.IContext) env.contextObject();
final FileObject location = context.location();
final IProject project = projectService.get(location);
if (project == null) {
return false;
}
if (languageSpecServiceProvider == null) {
// Indicates that meta-Spoofax is not available (ISpoofaxLanguageSpecService cannot be injected), but this
// should never happen because this primitive is inside meta-Spoofax. Check for null just in case.
logger.error("Language specification service is not available; static injection failed");
return false;
}
final ISpoofaxLanguageSpecService languageSpecService = languageSpecServiceProvider.get();
if (!languageSpecService.available(project)) {
return false;
}
final ISpoofaxLanguageSpec languageSpec;
try {
languageSpec = languageSpecService.get(project);
} catch (ConfigException e) {
throw new InterpreterException("Unable to get language specification name for " + location, e);
}
if (languageSpec == null) {
return false;
}
if (!languageSpec.config().sdfEnabled()) {
env.setCurrent(env.getFactory().makeString("disabled"));
return true;
}
env.setCurrent(env.getFactory().makeString(languageSpec.config().sdf2tableVersion().toString()));
return true;
}
use of org.spoofax.interpreter.core.IContext in project spoofax by metaborg.
the class GetContextualGrammarPrimitive method call.
@Override
public boolean call(IContext env, Strategy[] svars, IStrategoTerm[] tvars) throws InterpreterException {
org.metaborg.core.context.IContext context = (org.metaborg.core.context.IContext) env.contextObject();
String path = ((IStrategoString) tvars[0]).stringValue();
ResourceService rs = context.injector().getInstance(ResourceService.class);
FileObject fo = rs.resolve(path + "/target/metaborg/ctxgrammar.aterm");
InputStream inputStream;
String text = "";
try {
inputStream = fo.getContent().getInputStream();
text = IOUtils.toString(inputStream, StandardCharsets.UTF_8.name());
} catch (IOException e) {
e.printStackTrace();
}
final ITermFactory tf = env.getFactory();
env.setCurrent(tf.parseFromString(text));
return true;
}
use of org.spoofax.interpreter.core.IContext in project spoofax by metaborg.
the class PlaceholderCharsPrimitive method call.
@Override
public boolean call(IContext env, Strategy[] svars, IStrategoTerm[] tvars) throws InterpreterException {
org.metaborg.core.context.IContext context = (org.metaborg.core.context.IContext) env.contextObject();
final FileObject location = context.location();
final IProject project = projectService.get(location);
if (project == null) {
return false;
}
if (languageSpecServiceProvider == null) {
// Indicates that meta-Spoofax is not available (ISpoofaxLanguageSpecService cannot be injected), but this
// should never happen because this primitive is inside meta-Spoofax. Check for null just in case.
logger.error("Language specification service is not available; static injection failed");
return false;
}
final ISpoofaxLanguageSpecService languageSpecService = languageSpecServiceProvider.get();
if (!languageSpecService.available(project)) {
return false;
}
final ISpoofaxLanguageSpec languageSpec;
try {
languageSpec = languageSpecService.get(project);
} catch (ConfigException e) {
throw new InterpreterException("Unable to get language specification name for " + location, e);
}
if (languageSpec == null) {
return false;
}
PlaceholderCharacters placeholderChars = languageSpec.config().placeholderChars();
IStrategoString prefix = env.getFactory().makeString(placeholderChars.prefix);
IStrategoString suffix = null;
if (placeholderChars.suffix != null) {
suffix = env.getFactory().makeString(placeholderChars.suffix);
} else {
suffix = env.getFactory().makeString("");
}
env.setCurrent(env.getFactory().makeTuple(prefix, suffix));
return true;
}
use of org.spoofax.interpreter.core.IContext in project nabl by metaborg.
the class ScopeGraphContextPrimitive method call.
@Override
public final boolean call(IContext env, Strategy[] svars, IStrategoTerm[] tvars) throws InterpreterException {
final Object contextObj = env.contextObject();
if (contextObj == null) {
logger.warn("Context is null.");
return false;
}
if (!(contextObj instanceof IScopeGraphContext)) {
throw new InterpreterException("Context does not implement IScopeGraphContext");
}
final IScopeGraphContext<?> context = (IScopeGraphContext<?>) env.contextObject();
List<IStrategoTerm> termArgs = Arrays.asList(tvars);
Optional<? extends IStrategoTerm> result;
try (IClosableLock lock = context.guard()) {
result = call(context, env.current(), termArgs, env.getFactory());
}
return result.map(t -> {
env.setCurrent(t);
return true;
}).orElse(false);
}
Aggregations