pforth/f.py

f = open('forth2.f','r')
lf = f.readlines()
f.close()
df = {}
"""for i in lf:
    k = i.split()
    if len(k)>=3 and k[1] == "CONSTANT" and k[0]!=":":
        df[k[2]] = [k[0]]
    elif len(k)>=3:
        df[k[1]] = k[2:-1]

core = open("core","r")
lcore = [i[:-1] for i in core.readlines()]
core.close()
for word in lcore:
    if df.get(word, None)==None:
        print(word)

k=[]
for l in df.values():
    for i in l:
        if df.get(i, None)==None and not is_int(i) and i not in lcore and i not in k and i[:2]!="0x":
            k.append(i)
            print(i)"""

def setmemory(addr, value):
    memory[addr] = value&0xff
    memory[addr+1] = (value>>8)&0xff

def to_int(x):
    if x[:2]=="0x":
        try:
            a=int(x[2:],16)
            return a
        except:
            return None
    try:
        a=int(x)
        return a
    except:
        return None

def header(name):
    global here
    global latest
    memory[here] = 0
    here += 1
    for c in name.strip():
        memory[here] = ord(c)
        here += 1
    setmemory(here, latest)
    here += 2
    memory[here] = len(name)
    here += 1
    latest = here
    df[name] = here

def compile_constant(name, value):
    value=to_int(value)
    global here
    header(name)
    memory[here] = 77
    here += 1
    setmemory(here, value)
    here += 2
    memory[here] = 33
    here += 1
    memory[here] = 41
    here += 1

def compile_assembly(name, l):
    global here
    header(name)
    for inst in l:
        memory[here] = to_int(inst)
        here += 1

def compile_def(name, l, immed=False):
    global here
    header(name)
    if immed:
        memory[here-1] |= 128
    memory[here] = 42
    here += 1
    i = 0
    stack = []
    print(name)
    while i<len(l):
        #print(stack)
        word = l[i]
        i += 1
        if to_int(word)!=None:
            setmemory(here, df["(lit)"])
            here += 2
            setmemory(here, to_int(word))
            here += 2
        elif word == "POSTPONE":
            nw = l[i]
            i += 1
            setmemory(here, df[nw])
            here += 2
        elif word == "LITERAL":
            setmemory(here, df["(lit)"])
            here += 2
            setmemory(here, stack.pop())
            here += 2
        elif word == "[']":
            setmemory(here, df["(lit)"])
            here += 2
            nw = l[i]
            i += 1
            setmemory(here, df[nw])
            here += 2
        elif word == "[COMPILE]":
            setmemory(here, df["(lit)"])
            here += 2
            nw = l[i]
            i += 1
            setmemory(here, df[nw])
            here += 2
            setmemory(here, df[","])
            here += 2
        elif word == "IF":
            setmemory(here, df["(0branch)"])
            here += 2
            stack.append(here)
            setmemory(here, 0)
            here += 2
        elif word == "ELSE":
            setmemory(here, df["(branch)"])
            here += 2
            n = stack.pop()
            stack.append(here)
            setmemory(here, 0)
            here += 2
            setmemory(n, here)
        elif word == "THEN":
            setmemory(stack.pop(), here)
        elif word == "BEGIN":
            stack.append(here)
        elif word == "UNTIL":
            setmemory(here, df["(0branch)"])
            here += 2
            setmemory(here, stack.pop())
            here += 2
        elif word == "REPEAT":
            setmemory(here, df["(branch)"])
            here += 2
            setmemory(here, stack.pop())
            here += 2
            setmemory(stack.pop(), here)
        elif word == "AGAIN":
            setmemory(here, df["(branch)"])
            here += 2
            setmemory(here, stack.pop())
            here += 2
        elif word == "WHILE":
            setmemory(here, df["(0branch)"])
            here += 2
            n = stack.pop()
            stack.append(here)
            stack.append(n)
            setmemory(here, 0)
            here += 2
        elif word == "DO":
            setmemory(here, df["(do)"])
            here += 2
            stack.append(here)
            stack.append(-1)
        elif word == "?DO":
            setmemory(here, df["(?do)"])
            here += 2
            setmemory(here, -1)
            here += 2
            stack.append(here)
            stack.append(here-2)
            stack.append(0)
        elif word == "LOOP":
            setmemory(here, df["(loop)"])
            here += 2
            if stack.pop()==0:
                setmemory(stack.pop(), here+2)
            setmemory(here, stack.pop())
            here += 2
        else:
            setmemory(here, df[word])
            here += 2
    setmemory(here, df["EXIT"])
    here += 2

memory=[0]*0x10000
here=0x404
latest=0
state="forth"
for i in lf:
    k = i.split()
    if len(k)>=1 and k[0] == "ASSEMBLER":
        state="assembler"
    elif len(k)>=1 and k[0] == "FORTH":
        state="forth"
    elif len(k)>=3 and k[1] == "CONSTANT" and k[0]!=":":
        compile_constant(k[2],k[0])
    elif len(k)>=3:
        if k[0] == "\\":
            continue
        if state=="forth":
            if k[-1] == "IMMEDIATE":
                compile_def(k[1],k[2:-2],True)
            else:
                compile_def(k[1],k[2:-1])
        else:
            compile_assembly(k[1],k[2:-1])

memory[0x108]=10
memory[0x400]=0x4d
setmemory(0x401, df["COLD"])
memory[0x403]=0x1a
setmemory(0x10c, latest)
setmemory(0x112, here)

def getc(i):
    for key,k in df.items():
        if k==i:
            return key

f = open('forth.a','w')
f.write(str(memory))
f.close()
f = open('forth.dico','w')
f.write(str(df))
f.close()
print(memory)

f2=open("forth.bin","wb")
for i in memory:
    f2.write(chr(i))
f2.close()
print([getc(i) for i in []])