'do' special mode has been added

This commit is contained in:
Sameer Rahmani 2020-01-01 18:02:10 +00:00
parent 470d14d6df
commit 479f341799
2 changed files with 40 additions and 0 deletions

View File

@ -0,0 +1,37 @@
/**
* Serene (simple) - A PoC lisp to collect data on Serenes concepts
* Copyright (C) 2019-2020 Sameer Rahmani <lxsameer@gnu.org>
*
* 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;
public class DoSpecialForm extends SpecialForm {
public DoSpecialForm(ListNode<Node> listNode) {
super(listNode);
}
@Override
public Object eval(IScope scope) {
Object result = ListNode.EMPTY;
for(Node x: this.node.rest()) {
result = x.eval(scope);
}
return result;
}
}

View File

@ -27,6 +27,7 @@ public class SpecialForm extends Node {
private static final SymbolNode QUOTE = new SymbolNode("quote");
private static final SymbolNode LET = new SymbolNode("let");
private static final SymbolNode COND = new SymbolNode("cond");
private static final SymbolNode DO = new SymbolNode("do");
public ListNode<Node> node;
@ -43,6 +44,8 @@ public class SpecialForm extends Node {
return new DefSpecialForm(l);
} else if (l.first().equals(LET)){
return new LetSpecialForm(l);
} else if (l.first().equals(DO)){
return new DoSpecialForm(l);
} else if (l.first().equals(COND)){
return new CondSpecialForm(l);
} else if (l.first().equals(FN)) {