deac/presentation.fs
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

fixed stupid enumeration implementation

Browse source
This commit is contained in:
stucco 2011-01-16 13:14:45 +01:00
parent ed28a880c2
commit e020e16e45
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
presentation.fs
View file

@ -161,20 +161,19 @@ ptype-reset \ ptype-lenl sollte von Anfang an 0 sein
: </li> ( addr len -- , xt-{/li} ) ['] {/li} , swap ! ; : </li> ( addr len -- , xt-{/li} ) ['] {/li} , swap ! ;
variable enumerationCount ( -- addr ) variable enumerationCount ( -- addr )
: {||} ( addr -- addr ) : {||} ( addr -- addr ) \ increments enumeration count and prints prefix
enumerationCount @ 1+ enumerationCount ! enumerationCount dup @ 1+ dup rot !
s" " type enumerationCount @ 0 U.R s" ) " type s" " type 0 U.R s" ) " type
5 ptype-lenl ! 5 ptype-lenl !
cell+
; ;
: <||> ( -- addr u0 , xt-{||} 0 ) ['] {||} , here 0 , 0 ; : <||> ( -- , xt-{||} 0 ) ['] {||} , ;
: {/||} ( addr -- addr ) cr ; : {/||} ( addr -- addr ) cr ;
: </||> ( addr len -- , xt-{/||} ) ['] {/||} , swap ! ; : </||> ( -- , xt-{/||} ) ['] {/||} , ;
: {en} ( -- ) ; : {en} ( -- ) 0 enumerationCount ! ; \ resets enumeration count
: <en> ( -- , xt-{en} ) ['] {en} , ; : <en> ( -- , xt-{en} ) ['] {en} , ;
: {/en} ( -- ) ; : {/en} ( -- ) ;
: </en> ( -- , xt-{/en} ) ['] {en} , ; : </en> ( -- , xt-{/en} ) ['] {en} , ;
: {np} ( -- ) : {np} ( -- )