The Lambda Lab
/
projects
/
forth.jl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Made forth.jl compatible with julia 0.5.
[forth.jl.git]
/
src
/
forth.jl
diff --git
a/src/forth.jl
b/src/forth.jl
index
81505a1
..
e391d00
100644
(file)
--- a/
src/forth.jl
+++ b/
src/forth.jl
@@
-97,7
+97,7
@@
end
# Handy functions for adding/retrieving strings to/from memory.
# Handy functions for adding/retrieving strings to/from memory.
-getString(addr::Int64, len::Int64) =
Abstract
String([Char(c) for c in mem[addr:(addr+len-1)]])
+getString(addr::Int64, len::Int64) = String([Char(c) for c in mem[addr:(addr+len-1)]])
function putString(str::AbstractString, addr::Int64)
mem[addr:(addr+length(str)-1)] = [Int64(c) for c in str]
function putString(str::AbstractString, addr::Int64)
mem[addr:(addr+length(str)-1)] = [Int64(c) for c in str]
@@
-708,7
+708,7
@@
end
function getKey()
raw_mode!(true)
function getKey()
raw_mode!(true)
- byte = read
bytes
(STDIN, 1)[1]
+ byte = read(STDIN, 1)[1]
raw_mode!(false)
if byte == 0x0d
raw_mode!(false)
if byte == 0x0d
@@
-750,7
+750,7
@@
function getLineFromSTDIN()
if key == '\n'
print(" ")
if key == '\n'
print(" ")
- return
Abstract
String(line)
+ return String(line)
elseif key == '\x04'
if isempty(line)
elseif key == '\x04'
if isempty(line)
@@
-1370,7
+1370,7
@@
function dump(startAddr::Int64; count::Int64 = 100, cellsPerLine::Int64 = 10)
i += 1
end
i += 1
end
- println("\t",
Abstract
String(chars))
+ println("\t", String(chars))
end
end
end
end