1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
package bjc.dicelang.scl;
import java.util.HashMap;
import java.util.Map;
import static bjc.dicelang.scl.WordSCLToken.Word.*;
public class WordSCLToken extends SCLToken {
public static enum Word {
/* Array manipulation */
MAKEARRAY, MAKEEXEC, MAKEUNEXEC,
/* Stream manipulation */
NEWSTREAM, LEFTSTREAM, RIGHTSTREAM, DELETESTREAM, MERGESTREAM,
/* Stack manipulation */
STACKCOUNT, STACKEMPTY, DROP, NDROP, NIP, NNIP,
}
public Word wordVal;
public WordSCLToken(String wrd) {
this(builtinWords.get(wrd));
}
public WordSCLToken(Word wrd) {
super(Type.WORD);
wordVal = wrd;
}
@Override
public String toString() {
return "WordSCLToken [wordVal=" + wordVal + "]";
}
@Override
public int hashCode() {
final int prime = 31;
int result = super.hashCode();
result = prime * result + ((wordVal == null) ? 0 : wordVal.hashCode());
return result;
}
@Override
public boolean equals(Object obj) {
if (this == obj)
return true;
if (!super.equals(obj))
return false;
if (getClass() != obj.getClass())
return false;
WordSCLToken other = (WordSCLToken) obj;
if (wordVal != other.wordVal)
return false;
return true;
}
public static boolean isBuiltinWord(String wrd) {
return builtinWords.containsKey(wrd);
}
private static final Map<String, WordSCLToken.Word> builtinWords;
static {
/* Init builtin words. */
builtinWords = new HashMap<>();
builtinWords.put("makearray", MAKEARRAY);
builtinWords.put("+stream", NEWSTREAM);
builtinWords.put(">stream", LEFTSTREAM);
builtinWords.put("<stream", RIGHTSTREAM);
builtinWords.put("-stream", DELETESTREAM);
builtinWords.put("<-stream", MERGESTREAM);
builtinWords.put("cvx", MAKEEXEC);
builtinWords.put("cvux", MAKEUNEXEC);
builtinWords.put("#", STACKCOUNT);
builtinWords.put("empty?", STACKEMPTY);
builtinWords.put("drop", DROP);
builtinWords.put("ndrop", NDROP);
builtinWords.put("nip", NIP);
builtinWords.put("nnip", NNIP);
}
}
|
