/// <summary>
/// Registers all of the built-in representations.
/// </summary>
private static void RegisterRepresentations() {
if (!REPRS_Registered) {
REPRRegistry.register_REPR("KnowHOWREPR", new KnowHOWREPR());
REPRRegistry.register_REPR("P6opaque", new P6opaque());
REPRRegistry.register_REPR("P6hash", new P6hash());
REPRRegistry.register_REPR("P6int", new P6int());
REPRRegistry.register_REPR("P6num", new P6num());
REPRRegistry.register_REPR("P6str", new P6str());
REPRRegistry.register_REPR("P6capture", new P6capture());
REPRRegistry.register_REPR("RakudoCodeRef", new RakudoCodeRef());
REPRRegistry.register_REPR("P6list", new P6list());
REPRRegistry.register_REPR("P6mapping", new P6mapping());
REPRS_Registered = true;
}
}
/// <summary>
/// Sets up the bootstrapping setting that we use to compile the
/// real setting.
/// </summary>
/// <param name="KnowHOW"></param>
/// <returns></returns>
private static Context BootstrapSetting(RakudoObject knowHOW, RakudoObject knowHOWAttribute) {
// System.err.println( "calling new Context from Init" );
Context settingContext = new Context();
settingContext.LexPad =
new Lexpad(
new String[] {
"KnowHOW",
"KnowHOWAttribute",
"capture",
"NQPInt",
"NQPNum",
"NQPStr",
"NQPList",
"NQPCode",
"list",
"NQPArray",
"NQPHash"
});
settingContext.LexPad.Storage =
new RakudoObject[] {
knowHOW,
knowHOWAttribute,
REPRRegistry.get_REPR_by_name("P6capture").type_object_for(null, null),
REPRRegistry.get_REPR_by_name("P6int").type_object_for(null, null),
REPRRegistry.get_REPR_by_name("P6num").type_object_for(null, null),
REPRRegistry.get_REPR_by_name("P6str").type_object_for(null, null),
REPRRegistry.get_REPR_by_name("P6list").type_object_for(null, null),
REPRRegistry.get_REPR_by_name("RakudoCodeRef")
.type_object_for(null, knowHOW.getSTable().REPR.instance_of(null, knowHOW)),
CodeObjectUtility.WrapNativeMethod(
new RakudoCodeRef.IFunc_Body() // C# has a lambda instead of the anonymous class
{
public RakudoObject Invoke(
ThreadContext tc, RakudoObject self, RakudoObject capture) {
RakudoObject nqpList = Ops.get_lex(tc, "NQPList");
P6list.Instance list =
(P6list.Instance) nqpList.getSTable().REPR.instance_of(tc, nqpList);
P6capture.Instance nativeCapture = (P6capture.Instance) capture;
for (RakudoObject obj : nativeCapture.Positionals) list.Storage.add(obj);
return list;
}
}),
null,
null
};
return settingContext;
}
/// <summary>
/// Loads the setting with the given name.
/// </summary>
/// <param name="Name"></param>
/// <param name="KnowHOW"></param>
/// <returns></returns>
public static Context LoadSetting(
String settingName, RakudoObject knowHOW, RakudoObject knowHOWAttribute) {
// Load the assembly.
// This is quite unlike the C# version
// System.err.println("Init.LoadSetting begin loading " + settingName );
ClassLoader loader = ClassLoader.getSystemClassLoader();
Class<?> classNQPSetting = null; // grrr, a wildcard type :-(
try {
classNQPSetting = loader.loadClass(settingName);
} catch (ClassNotFoundException ex) {
System.err.println("Class " + settingName + " not found: " + ex.getMessage());
ex.printStackTrace();
System.exit(1);
} catch (Exception ex) {
System.err.println("loadClass(\"" + settingName + "\") exception: " + ex.getMessage());
System.exit(1);
}
assert classNQPSetting != null : "classNQPSetting is null";
// Find the setting type and its LoadSetting method.
java.lang.reflect.Method methodLoadSetting = null;
try {
methodLoadSetting = classNQPSetting.getMethod("LoadSetting");
} catch (NoSuchMethodException ex) {
System.err.println("Method LoadSetting not found: " + ex.getMessage());
System.exit(1);
} catch (Exception ex) {
System.err.println("getMethod(\"LoadSetting\") exception: " + ex.getMessage());
ex.printStackTrace();
System.exit(1);
}
assert methodLoadSetting != null : "methodLoadSetting is null";
// Run it to get the context we want.
Context settingContext = null;
try {
settingContext = (Context) methodLoadSetting.invoke(null);
} catch (IllegalAccessException ex) {
System.err.println("Illegal access: " + ex.getMessage());
System.exit(1);
} catch (java.lang.reflect.InvocationTargetException ex) {
System.err.println("Invocation target exception: " + ex.getMessage());
ex.printStackTrace();
System.exit(1);
}
// Fudge a few more things in.
// XXX Should be able to toss all of these but KnowHOW.
settingContext.LexPad.Extend(
new String[] {"KnowHOW", "KnowHOWAttribute", "print", "say", "capture"});
settingContext.LexPad.SetByName("KnowHOW", knowHOW);
settingContext.LexPad.SetByName("KnowHOWAttribute", knowHOWAttribute);
settingContext.LexPad.SetByName(
"print",
CodeObjectUtility.WrapNativeMethod(
new RakudoCodeRef.IFunc_Body() { // an anonymous class where C# has a => (lambda)
public RakudoObject Invoke(
ThreadContext tc, RakudoObject self, RakudoObject capture) {
int numPositionals = CaptureHelper.NumPositionals(capture);
for (int i = 0; i < numPositionals; i++) {
RakudoObject value = CaptureHelper.GetPositional(capture, i);
RakudoObject strMeth =
self.getSTable().FindMethod.FindMethod(tc, value, "Str", 0);
RakudoObject strVal =
strMeth
.getSTable()
.Invoke
.Invoke(tc, strMeth, CaptureHelper.FormWith(new RakudoObject[] {value}));
System.out.print(Ops.unbox_str(null, strVal));
}
return CaptureHelper.Nil();
}
}));
settingContext.LexPad.SetByName(
"say",
CodeObjectUtility.WrapNativeMethod(
new RakudoCodeRef.IFunc_Body() { // an anonymous class where C# has a => (lambda)
public RakudoObject Invoke(
ThreadContext tc, RakudoObject self, RakudoObject capture) {
int numPositionals = CaptureHelper.NumPositionals(capture);
for (int i = 0; i < numPositionals; i++) {
RakudoObject value = CaptureHelper.GetPositional(capture, i);
RakudoObject strMeth =
self.getSTable().FindMethod.FindMethod(tc, value, "Str", 0);
RakudoObject strVal =
strMeth
.getSTable()
.Invoke
.Invoke(tc, strMeth, CaptureHelper.FormWith(new RakudoObject[] {value}));
System.out.print(Ops.unbox_str(null, strVal));
}
System.out.println();
return CaptureHelper.Nil();
}
}));
settingContext.LexPad.SetByName(
"capture", REPRRegistry.get_REPR_by_name("P6capture").type_object_for(null, null));
return settingContext;
}