Was wenn noch weitere features benoetigt werden hinzugefuegt
parent
165df46ca7
commit
c0dbabcbe0
@ -0,0 +1,12 @@
|
||||
: printCodeHeader ( end start namelen addr 1/0 -- ) \ prints source code header containing line numbers
|
||||
{ showLines }
|
||||
swap 2swap \ addr namelen end start
|
||||
2dup > if swap then \ addr namelen start/end end/start
|
||||
showLines if dup 0 <# #s #> nip else 0 then ptype-reset 1+ ptype-indent !
|
||||
2swap \ start end addr namelen
|
||||
showLines printsource
|
||||
;
|
||||
|
||||
: {source} ( -- ) dup dup dup dup @ swap cell + @ 2swap cell 2 * +
|
||||
@ swap cell 3 * + @ 1 printCodeHeader 4 cells + ptype-reset ;
|
||||
: <source> ( addr len from to -- , xt-{source} ) ['] {source} , , , , , ;
|
Loading…
Reference in New Issue