Miroirs/sallyforth
1
0
Fork 0
mirror of https://github.com/russolsen/sallyforth synced 2024-12-25 21:58:18 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Cleanup.

Browse source
This commit is contained in:
Russ Olsen 2020-05-22 15:08:43 -04:00
parent 6273bdfde7
commit 66a4e271d8
2 changed files with 18 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sallyforth/0.sf
View file

@ -16,6 +16,8 @@
\ Basic aliases
: ->inline { *last-word* inline }
: ->static { false *last-word* dynamic }
: ->dynamic { true *last-word* dynamic }
: -- { 1 - } ->inline
: ++ { 1 + } ->inline

16
sallyforth/basic_words.py
View file

@ -10,6 +10,7 @@ def dynamic(forth):
name = forth.stack.pop()
isdyn = forth.stack.pop()
var = forth.ns[name]
print(f'name: {name} var: {var} dyn: {isdyn}')
var.dynamic = isdyn
@word()
@ -25,6 +26,18 @@ def native(forth):
wrapped_f = native_word(native_f, name, n, has_return)
forth.set(name, wrapped_f)
@word("function")
def function_word(forth):
name = forth.stack.pop()
var = forth.ns[name]
word_f = var.value
def native_f(*args):
forth.stack.push(args)
word_f(forth)
result = forth.stack.pop()
return result
forth.stack.push(native_f)
@word('raise')
def w_raise(forth):
ex = forth.stack.pop()
@ -134,7 +147,7 @@ def stack(forth):
@word()
def ns(forth):
print(forth.ns.name)
print(forth.ns.contents)
pprint(forth.ns.contents)
@word(':', True)
def colon(forth):
@ -147,6 +160,7 @@ def colon(forth):
@word()
def inline(forth):
name = forth.stack.pop()
print('name', name)
var = forth.ns[name]
value = var.value
if not value.forth_primitive: