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

8
presentation.p.fs
View file

@ -174,12 +174,14 @@
<p> farbendemo </p>
<np>
<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>
<p>
<en>
<||> !" Das erstellen von Präsentationen und Formatierungen wirkt natürlich" </||>
<||> !" Unsere Sprache erbt die gesamte Funktionalität von Forth persönlich. " </||>
<||> !" Unsere Sprache erbt die gesamte Funktionalität von Forth persönlich." </||>
<||> !" Makros generieren Inhalte" </||>
</en> )
</en>
</p>
<p> s" presentation.p.fs" 112 116 <source> </p>
<p> !" Die Operatoren sehen so aus:" </p>
<p> s" presentation.fs" 214 221 <source> </p>