Examples of bind_key_boxed()

Examples of org.perl6.nqp.sixmodel.SixModelObject.bind_key_boxed()

4189
4190
4191
4192
4193
4194
4195
4196
4197
4198
4199
        SixModelObject strType = tc.curFrame.codeRef.staticInfo.compUnit.hllConfig.strBoxType;
        SixModelObject res = hashType.st.REPR.allocate(tc, hashType.st);

        Map<String, String> env = System.getenv();
        for (String envName : env.keySet())
            res.bind_key_boxed(tc, envName, box_s(env.get(envName), strType, tc));

        return res;
    }

    public static long getpid(ThreadContext tc) {
View Full Code Here

Examples of org.perl6.nqp.sixmodel.SixModelObject.bind_key_boxed()

4228
4229
4230
4231
4232
4233
4234
4235
4236
4237
4238
                if (pvlc.indexOf("win") >= 0)
                    propVal = "MSWin32";
                else if (pvlc.indexOf("mac os x") >= 0)
                    propVal = "darwin";
            }
            res.bind_key_boxed(tc, envName, box_s(propVal, strType, tc));
        }

        return res;
    }
View Full Code Here

Examples of org.perl6.nqp.sixmodel.SixModelObject.bind_key_boxed()

4536
4537
4538
4539
4540
4541
4542
4543
4544
4545
4546
            for (ExceptionHandling.TraceElement te : ExceptionHandling.backtrace(((VMExceptionInstance)obj))) {
                if (te.frame.codeRef.staticInfo.isThunk)
                    continue;
                SixModelObject annots = Hash.st.REPR.allocate(tc, Hash.st);
                if (te.file != null) annots.bind_key_boxed(tc, "file", box_s(te.file, Str, tc));
                if (te.line >= 0) annots.bind_key_boxed(tc, "line", box_i(te.line, Int, tc));
                SixModelObject row = Hash.st.REPR.allocate(tc, Hash.st);
                row.bind_key_boxed(tc, "sub", te.frame.codeRef);
                row.bind_key_boxed(tc, "annotations", annots);
                result.push_boxed(tc, row);
View Full Code Here

Examples of org.perl6.nqp.sixmodel.SixModelObject.bind_key_boxed()

4537
4538
4539
4540
4541
4542
4543
4544
4545
4546
4547
            for (ExceptionHandling.TraceElement te : ExceptionHandling.backtrace(((VMExceptionInstance)obj))) {
                if (te.frame.codeRef.staticInfo.isThunk)
                    continue;
                SixModelObject annots = Hash.st.REPR.allocate(tc, Hash.st);
                if (te.file != null) annots.bind_key_boxed(tc, "file", box_s(te.file, Str, tc));
                if (te.line >= 0) annots.bind_key_boxed(tc, "line", box_i(te.line, Int, tc));
                SixModelObject row = Hash.st.REPR.allocate(tc, Hash.st);
                row.bind_key_boxed(tc, "sub", te.frame.codeRef);
                row.bind_key_boxed(tc, "annotations", annots);
                result.push_boxed(tc, row);
            }
View Full Code Here

Examples of org.perl6.nqp.sixmodel.SixModelObject.bind_key_boxed()

4539
4540
4541
4542
4543
4544
4545
4546
4547
4548
4549
                    continue;
                SixModelObject annots = Hash.st.REPR.allocate(tc, Hash.st);
                if (te.file != null) annots.bind_key_boxed(tc, "file", box_s(te.file, Str, tc));
                if (te.line >= 0) annots.bind_key_boxed(tc, "line", box_i(te.line, Int, tc));
                SixModelObject row = Hash.st.REPR.allocate(tc, Hash.st);
                row.bind_key_boxed(tc, "sub", te.frame.codeRef);
                row.bind_key_boxed(tc, "annotations", annots);
                result.push_boxed(tc, row);
            }

            return result;
View Full Code Here

Examples of org.perl6.nqp.sixmodel.SixModelObject.bind_key_boxed()

4540
4541
4542
4543
4544
4545
4546
4547
4548
4549
4550
                SixModelObject annots = Hash.st.REPR.allocate(tc, Hash.st);
                if (te.file != null) annots.bind_key_boxed(tc, "file", box_s(te.file, Str, tc));
                if (te.line >= 0) annots.bind_key_boxed(tc, "line", box_i(te.line, Int, tc));
                SixModelObject row = Hash.st.REPR.allocate(tc, Hash.st);
                row.bind_key_boxed(tc, "sub", te.frame.codeRef);
                row.bind_key_boxed(tc, "annotations", annots);
                result.push_boxed(tc, row);
            }

            return result;
        }
View Full Code Here

Examples of org.perl6.nqp.sixmodel.SixModelObject.bind_key_boxed()

5696
5697
5698
5699
5700
5701
5702
5703
5704
5705
5706
        try {
      InputStream is = Ops.class.getResourceAsStream("/jvmconfig.properties");
      Properties config = new Properties();
      config.load(is);
      for (String name : config.stringPropertyNames())
          res.bind_key_boxed(tc, name, box_s(config.getProperty(name), strType, tc));
    } catch (Throwable e) {
      die_s("Failed to load config.properties", tc);
    }

        return res;
View Full Code Here

Examples of org.perl6.nqp.sixmodel.SixModelObject.bind_key_boxed()

1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
            cf.workingNameMap = new HashMap<String, Integer>(cs.nameMap);
        for (String name : cf.workingNameMap.keySet()) {
            Integer lookup = cf.workingNameMap.get(name);
            switch (lookup & 7) {
            case CallSiteDescriptor.ARG_OBJ:
                result.bind_key_boxed(tc, name, (SixModelObject)args[lookup >> 3]);
                break;
            case CallSiteDescriptor.ARG_INT:
                result.bind_key_boxed(tc, name, box_i((long)args[lookup >> 3], hllConfig.intBoxType, tc));
                break;
            case CallSiteDescriptor.ARG_NUM:
View Full Code Here

Examples of org.perl6.nqp.sixmodel.SixModelObject.bind_key_boxed()

1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
            switch (lookup & 7) {
            case CallSiteDescriptor.ARG_OBJ:
                result.bind_key_boxed(tc, name, (SixModelObject)args[lookup >> 3]);
                break;
            case CallSiteDescriptor.ARG_INT:
                result.bind_key_boxed(tc, name, box_i((long)args[lookup >> 3], hllConfig.intBoxType, tc));
                break;
            case CallSiteDescriptor.ARG_NUM:
                result.bind_key_boxed(tc, name, box_n((double)args[lookup >> 3], hllConfig.numBoxType, tc));
                break;
            case CallSiteDescriptor.ARG_STR:
View Full Code Here

Examples of org.perl6.nqp.sixmodel.SixModelObject.bind_key_boxed()

1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
                break;
            case CallSiteDescriptor.ARG_INT:
                result.bind_key_boxed(tc, name, box_i((long)args[lookup >> 3], hllConfig.intBoxType, tc));
                break;
            case CallSiteDescriptor.ARG_NUM:
                result.bind_key_boxed(tc, name, box_n((double)args[lookup >> 3], hllConfig.numBoxType, tc));
                break;
            case CallSiteDescriptor.ARG_STR:
                result.bind_key_boxed(tc, name, box_s((String)args[lookup >> 3], hllConfig.strBoxType, tc));
                break;
            }
View Full Code Here
TOP
Copyright © 2018 www.massapi.com. All rights reserved.
All source code are property of their respective owners. Java is a trademark of Sun Microsystems, Inc and owned by ORACLE Inc. Contact coftware#gmail.com.