Miroirs/fcl
1
0
Fork 0
mirror of https://github.com/zeroflag/fcl.git synced 2025-01-11 20:01:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

words

Browse source
This commit is contained in:
zeroflag 2021-06-27 16:22:26 +02:00
parent 74aabb6445
commit da0a365bcf
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/main/java/com/vectron/fcl/Fcl.java
View file

@ -16,6 +16,9 @@ import com.vectron.fcl.types.Word;
import java.io.IOException;
import java.io.Reader;
import java.io.StringReader;
import java.util.ArrayList;
import java.util.Collections;
import java.util.List;
import java.util.Set;
public class Fcl {
@ -364,6 +367,13 @@ public class Fcl {
addPrimitive("var:", () -> { String name = word(); dict.add(new Var(dp, name)); dp++; });
addPrimitive("val:", () -> { String name = word(); dict.add(new Val(name, stack.pop())); });
addPrimitive("abort", () -> { throw new Aborted(stack.pop().asStr().value()); });
addPrimitive("words", () -> {
List<String> words = new ArrayList(wordList());
Collections.sort(words);
for (String each : words) {
transcript.show(each);
transcript.cr();
}});
addPrimitive("exec", () -> {
rstack.push(new Num(ip));
innerLoop(pop().intValue());