sources = Array{Any,1}()
currentSource() = sources[length(sources)]
+CLOSEFILES_CFA = defPrimWord("CLOSEFILES", () -> begin
+ while currentSource() != STDIN
+ close(pop!(sources))
+ end
+
+ return NEXT
+end)
+
EOF_CFA = defPrimWord("\x04", () -> begin
if currentSource() != STDIN
close(pop!(sources))
elseif key == '\b'
if !isempty(line)
+ if line[length(line)] == '\t'
+ print(string("\r\033[K",line[1:length(line)-1]))
+ else
+ print("\b\033[K")
+ end
+
line = line[1:length(line)-1]
- print("\b \b")
end
elseif key == '\e'
BRANCH_CFA,-4])
ABORT_CFA = defWord("ABORT",
- [PSP0_CFA, PSPSTORE_CFA, QUIT_CFA])
+ [CLOSEFILES_CFA, PSP0_CFA, PSPSTORE_CFA, QUIT_CFA])
BYE_CFA = defPrimWord("BYE", () -> begin
println("\nBye!")