27 lines
601 B
Plaintext
27 lines
601 B
Plaintext
|
procedure main(argv)
|
||
|
|
local s, L, i
|
||
|
|
|
||
|
|
L := []
|
||
|
|
while s := read() do {
|
||
|
|
put(L, s)
|
||
|
|
}
|
||
|
|
|
||
|
|
write("public class ", argv[1], " {")
|
||
|
|
|
||
|
|
write("\tstatic System.Collections.Hashtable set = new System.Collections.Hashtable();")
|
||
|
|
write("\tstatic ", argv[1], "() {")
|
||
|
|
every i := !L do {
|
||
|
|
write("\t\tset.Add(", image(i), ", ", image(i), ");")
|
||
|
|
}
|
||
|
|
write("\t}")
|
||
|
|
write()
|
||
|
|
|
||
|
|
write("\tpublic static string keywordTag(string s) {")
|
||
|
|
write("\t\tif (set.Contains(s)) {")
|
||
|
|
write("\t\t\treturn s;")
|
||
|
|
write("\t\t}")
|
||
|
|
write("\t\treturn null;")
|
||
|
|
write("\t} // keywordTag")
|
||
|
|
write("} // ", argv[1])
|
||
|
|
end
|