Package seph.lang.persistent

Examples of seph.lang.persistent.PersistentList

1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
                    top.push(13, result, false);
                    result.firstArgument = last;
                } else {
                    List<Message> currentChain = top.currentMessageChain;
                    Message last = currentChain.remove(currentChain.size() - 1);
                    currentChain.add(NamedMessage.create(name, new PersistentList(last), null, sourcename, l, cc, scope));
                    top.added();
                }
            } else {
                top.currentMessageChain.add(NamedMessage.create(name, null, null, sourcename,  l, cc, scope));
                top.added();
View Full Code Here
56
57
58
59
60
61
62
63
64
        throw new RuntimeException("ESCAPED MUTABLE MESSAGE");
    }

    public Message withNext(Message newNext) {
        IPersistentList args = realArguments == null ? null :
            (firstArgument == null ? new PersistentList(realArguments) : PersistentList.create(Arrays.asList(firstArgument, realArguments)));

        return NamedMessage.create(name, args, newNext, filename, line, position, scope);
    }
View Full Code Here
63
64
65
66
67
68
69
70
71
        assertEquals("fox", msg.withNext(null).name());
    }

    @Test
    public void with_next_returns_a_new_object_with_the_same_arguments() {
        IPersistentList expected = new PersistentList(null);
        NamedMessage msg = NamedMessage.create(null, expected, null, null, 0, 0, null);
        assertSame(expected, msg.withNext(null).arguments());
    }
View Full Code Here
80
81
82
83
84
85
86
87
88
89
90
    }

    public Object evaluateStream(String name, Reader reader) throws ControlFlow, IOException {
        Parser p = new Parser(this, reader, name);
        Message msg = (Message)p.parseFully().seq().first();
        Abstraction amsg = (Abstraction)NamedMessage.create("#", new PersistentList(msg), null, "<init>", -1, -1, p.scope);
        SephObject so = DefaultAbstraction.createFrom(amsg, LexicalScope.create(null, Ground.instance, this, new String[0]), "toplevel");
        SThread thread = new SThread(this);
        SephObject tmp = null;
        try {
            tmp = (SephObject)so.activationFor(0, false).invokeExact((SephObject)Ground.instance, thread, (LexicalScope)null);
View Full Code Here
TOP

Related Classes of seph.lang.persistent.PersistentList

  • seph.lang.ast.NamedMessageTest
  • seph.lang.parser.MutableMessage
  • seph.lang.parser.Parser
  • seph.lang.Runtime
    • Copyright © 2018 www.massapicom. 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.