예제 #1
0
파일: Init.java 프로젝트: Util/6model
 /// <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;
 }
예제 #2
0
파일: Init.java 프로젝트: Util/6model
  /// <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;
  }