Skip to content
Permalink
master
Switch branches/tags
Go to file
 
 
Cannot retrieve contributors at this time
names <- hashtable(2131)
F' [ pushf: names ] bind: names2 'F
mem_value <- hashtable(200000)
set_mem_hint <- fun[index hint]:
hashtable.set(int_to_str(index) hint mem_value)
memory_hint.set(hint index)
get_mem_hint <- fun[index]:
return(hashtable.get(int_to_str(index) mem_value))
convert_names <- fun[]:
end = functions.end()
index = names.get + 5
cond = not(index > end)
repeat_if:
drop1(`cond)
names . set(memory.get(index) memory.get(index + 3))
# If it is memory pointer
if type_of(memory.get(index + 3)) == 2:
set_mem_hint(memory.get(index + 3) memory.get(index))
index = `index + 7
cond = not(index > end)
names.get <- fun[name]:
value = hashtable.get(name names2())
if value == None():
if is_str(name):
print("Can't find global name: ")
printraw(name)
printeol()
value = error("Lookup error")
return(value)
new.bind <- fun[value]:
name = input.next_token()
hashtable.set(name value names2())
set_mem_hint(value name)
convert_names()
hashtable.set("bind:" hashtable.get("new.bind" names2()) names2())
F' push: bind: names2 hashtable.get rebind: bind:
push: names.get names2 hashtable.get rebind: names.get 'F