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

enum!

Browse source
This commit is contained in:
Denis Knauf 2011-01-21 15:35:49 +01:00
parent 50c38dd860
commit 794a9c0f55
2 changed files with 13 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
presentation.fs
View file

@ -233,20 +233,20 @@ variable enumerationCount ( -- addr )
: {||} ( addr -- addr ) \ increments enumeration count and prints prefix : {||} ( addr -- addr ) \ increments enumeration count and prints prefix
enumerationCount dup @ 1+ dup rot ! enumerationCount dup @ 1+ dup rot !
2 cursor> 0 u.r ." ." space 2 cursor> 0 u.r ." ." space
5 ptype-curx ! 5 ptype-curx ! 0
; ;
: <||> ( -- , xt-{||} ) [char] e ok- @ <> throw ['] {||} , ; : <||> ( -- , xt-{||} ) block? <> throw ['] {||} , ;
: {/||} ( -- ) cr ; : {/||} ( -- ) cr ;
: </||> ( -- , xt-{/||} ) ['] {/||} , ; \ [char] e ok- @ 2dup emit emit <> throw ; : </||> ( -- , xt-{/||} ) ['] {/||} , block? ;
: {en} ( -- ) : {en} ( -- )
cr cr
5 ptype-indent ! \ 6 Zeichen weit einruecken 5 ptype-indent ! \ 6 Zeichen weit einruecken
0 enumerationCount ! \ resets enumeration count 0 enumerationCount ! \ resets enumeration count
; ;
: <en> ( -- , xt-{en} ) [char] e block! ['] {en} , ; : <en> ( -- , xt-{en} ) block? ['] {en} , ;
: {/en} ( -- ) ptype-reset ; : {/en} ( -- ) ptype-reset ;
: </en> ( -- , xt-{/en} ) ['] {en} , [char] e !block ; : </en> ( -- , xt-{/en} ) ['] {en} , block? ;
256 Constant max-line 256 Constant max-line
Create line-buffer max-line 2 + allot Create line-buffer max-line 2 + allot

14
presentation.p.fs
View file

@ -174,12 +174,14 @@
<p> farbendemo </p> <p> farbendemo </p>
<np> <np>
<h> !" Beliebige Wörter können Inhalte erzeugen!!" </h> <h> !" Beliebige Wörter können Inhalte erzeugen!!" </h>
( <p> <b> !" So kann man Aufzaehlungen erstellen" </b> </p> <p> <b> !" So kann man Aufzaehlungen erstellen" </b> </p>
<en> <p>
<||> !" Das erstellen von Präsentationen und Formatierungen wirkt natürlich" </||> <en>
<||> !" Unsere Sprache erbt die gesamte Funktionalität von Forth persönlich. " </||> <||> !" Das erstellen von Präsentationen und Formatierungen wirkt natürlich" </||>
<||> !" Makros generieren Inhalte" </||> <||> !" Unsere Sprache erbt die gesamte Funktionalität von Forth persönlich." </||>
</en> ) <||> !" Makros generieren Inhalte" </||>
</en>
</p>
<p> s" presentation.p.fs" 112 116 <source> </p> <p> s" presentation.p.fs" 112 116 <source> </p>
<p> !" Die Operatoren sehen so aus:" </p> <p> !" Die Operatoren sehen so aus:" </p>
<p> s" presentation.fs" 214 221 <source> </p> <p> s" presentation.fs" 214 221 <source> </p>