diff --git a/src/main/java/serene/simple/RootScope.java b/src/main/java/serene/simple/RootScope.java index 94565b3..10de44f 100644 --- a/src/main/java/serene/simple/RootScope.java +++ b/src/main/java/serene/simple/RootScope.java @@ -44,6 +44,9 @@ public class RootScope extends AScope { put("or", new OrFn()); put("not", new NotFn()); put("conj", new ConjFn()); + put("list", new ListFn()); + // put("let", new LetFn()); + // put("cond", new CondFn()); //put("reduce", new ReduceFn()); put("System", System.class); put("Boolean", Boolean.class); diff --git a/src/main/java/serene/simple/builtin/ListFn.java b/src/main/java/serene/simple/builtin/ListFn.java new file mode 100644 index 0000000..6bd88ab --- /dev/null +++ b/src/main/java/serene/simple/builtin/ListFn.java @@ -0,0 +1,52 @@ +/** + * Serene (simple) - A PoC lisp to collect data on Serenes concepts + * Copyright (C) 2019-2020 Sameer Rahmani + * + * This program is free software; you can redistribute it and/or + * modify it under the terms of the GNU General Public License + * as published by the Free Software Foundation; either version 2 + * of the License, or (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, + * MA 02110-1301, USA. + */ +package serene.simple.builtin; + +import java.util.ArrayList; +import java.util.Collections; +import java.util.List; + +import serene.simple.IScope; +import serene.simple.ListNode; +import serene.simple.SereneException; + + +public class ListFn extends AFn { + public String fnName() { + return "list"; + }; + + public Object eval(IScope scope) throws SereneException{ + ArrayList args = (ArrayList) this.arguments(); + + if (args.size() == 0) { + return ListNode.EMPTY; + } + + ListNode list = (ListNode) ListNode.EMPTY; + Collections.reverse(args); + + for (Object x : args) { + list = new ListNode(x, list); + } + + return list; + } +}