6502
/
of816
mirror of https://github.com/mgcaret/of816.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

fix devalias

This commit is contained in:
mgcaret 2020-11-11 15:02:10 -08:00
parent 1dde91e543
commit 953e2c985e
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ofw/of/node.fs
View File

@ -317,15 +317,17 @@ defer find-node
: .alias ( alias-name len -- )
find-alias dup IF type ELSE ." no alias available" THEN ;
\ fixed for OF816
: (.print-alias) ( lfa -- )
dup >name
dup lfa>name
\ Don't print name property
2dup s" name" string=ci IF 2drop drop
ELSE cr type space ." : " execute type
ELSE cr type space ." : " lfa>xt execute type
THEN ;
\ fixed for OF816
: (.list-alias) ( phandle -- )
node>properties @ cell+ @ BEGIN dup WHILE dup (.print-alias) @ REPEAT drop ;
node>properties @ @ BEGIN dup WHILE dup (.print-alias) @ REPEAT drop ;
: list-alias ( -- )
s" /aliases" find-node dup IF (.list-alias) THEN ;