Miroirs/retroforth
1
0
Fork 0
mirror of https://git.sr.ht/~crc_/retroforth synced 2024-11-16 19:48:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

nga-python: restore ability to run code in files

Browse source 
FossilOrigin-Name: 8e6741a5cc3a7ebf38b7e17455d80c40479d86f24ca43988aa1d4681d18293e1
This commit is contained in:
crc 2020-12-02 20:41:15 +00:00
parent 1b0fa54eef
commit 4bcec9773e
1 changed files with 27 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
vm/nga-python/retro.py
View file

@ -369,7 +369,7 @@ class Retro:
if action == 1:
a = self.stack.pop()
b = self.stack.pop()
self.stack.push(inject_string(sys.argv[a + 2], b))
self.stack.push(self.inject_string(sys.argv[a + 2], b))
if action == 2:
run_file(self.extract_string(self.stack.pop()))
if action == 3:
@ -454,9 +454,9 @@ class Retro:
in_block = not in_block
elif in_block:
for token in line.strip().split():
inject_string(token, 1024)
stack.push(1024)
execute(interpreter, not_found)
self.inject_string(token, 1024)
self.stack.push(1024)
self.execute(self.interpreter, self.not_found)
def update_image(self):
import requests
@ -470,4 +470,26 @@ class Retro:
if __name__ == "__main__":
retro = Retro()
retro.run()
if len(sys.argv) == 1:
retro.run()
if len(sys.argv) == 2:
retro.run_file(sys.argv[1])
sources = []
if len(sys.argv) > 2:
i = 1
e = len(sys.argv)
while i < e:
param = sys.argv[i]
if param == "-f":
i += 1
sources.append(sys.argv[i])
i += 1
if len(sys.argv) > 2 and sys.argv[1][0] != "-":
retro.run_file(sys.argv[1])
else:
for source in sources:
retro.run_file(source)