112 lines
3.9 KiB
Forth
112 lines
3.9 KiB
Forth
|
|
\ Haeufig benutzte Textauszeichnungen:
|
|
: <f> <b> Blue <fc> ;
|
|
: </f> </fc> </b> ;
|
|
|
|
: p4-1
|
|
<h> !" Welche Funktionen sind moeglich?" </h>
|
|
<p>
|
|
!" Natuerlich Text: " <f> s\" !\" Irgend ein Text\"" !! </f>
|
|
<br>
|
|
!" (Manchmal ist '" <f> s\" s\" Etwa wenn man !\" erklaeren will\" !!" !! </f> !" ' noetig)"
|
|
</p>
|
|
;
|
|
: p4-2
|
|
<p> !" Aber " <u> !" immer" </u> !" innerhalb eines Blockes:" </p>
|
|
<li> <f> s\" <h> !\" Eine Ueberschrift\" </h>" !! </f> </li>
|
|
<li> <f> s\" <p> !\" Einfacher Text\" </p>" !! </f> </li>
|
|
<li> <f> s\" <li> !\" Listen, wie diese hier\" </li>" !! </f> </li>
|
|
<p> !" Eine neue Seite definieren: " <f> !" <np>" </f> </li>
|
|
;
|
|
|
|
: p4-3
|
|
<p> !" Textauszeichnung:" </p>
|
|
<li> <f> s\" <b> !\" Fettdruck\" </b>" !! </f> !" : " <b> !" Fettdruck" </b> </li>
|
|
<li> <f> s\" <i> !\" Farbinvertierung\" </i>" !! </f> !" : " <i> !" Farbinvertierung" </i> </li>
|
|
<li> <f> s\" <u> !\" Unterstrichen\" </u>" !! </f> !" : " <u> !" Unterstrichen" </u> </li>
|
|
;
|
|
|
|
: farbendemo'' <fc> !" ====" ;
|
|
: farbendemo'
|
|
7 0 +do
|
|
i postpone literal postpone <bc>
|
|
7 0 +do
|
|
i postpone literal postpone farbendemo''
|
|
loop
|
|
postpone <br>
|
|
loop
|
|
; immediate
|
|
: farbendemo farbendemo' </bc> </fc> ;
|
|
|
|
256 Constant max-line
|
|
Create line-buffer max-line 2 + allot
|
|
|
|
0 Value fd-in
|
|
: open-input ( addr u -- ) r/o open-file throw to fd-in ;
|
|
|
|
: printsource ( from to addr u -- )
|
|
open-input
|
|
cr
|
|
0
|
|
begin
|
|
1+
|
|
line-buffer max-line fd-in read-line throw
|
|
while
|
|
swap 2over rot swap over >= if
|
|
swap over <= if
|
|
dup 0 U.R s" -> " ptype-type swap line-buffer swap ptype-type {br}
|
|
else swap drop
|
|
endif
|
|
else swap drop swap drop
|
|
endif
|
|
repeat
|
|
2drop 2drop
|
|
fd-in close-file throw ;
|
|
|
|
: printCodeHeader ( end start namelen addr -- ) \ prints source code header containing line numbers
|
|
swap 2dup type 2swap \ s" (" type 0 U.R s" -" type 0 U.R s" ): " type cr cr type ;
|
|
swap 2swap cr printsource cr ; \ type emit emit ;
|
|
|
|
: {source} ( -- ) ;
|
|
: <source> ( -- , xt-{source} ) ['] {source} , ;
|
|
: {/source} ( -- ) dup dup dup dup @ swap cell + @ 2swap cell 2 * +
|
|
@ swap cell 3 * + @ printCodeHeader 4 cells + ;
|
|
: </source> ( -- , xt-{/source} ) ['] {/source} , , , , , ;
|
|
|
|
<presentation>
|
|
<h> !" Dies ist eine Testpraesentation!" </h>
|
|
<p>
|
|
!" Eines Tages hatten wir [" ( <b> <tw> ) !" Harald Steinlechner" </tw> </b>
|
|
!" und " ( <b> <tw> ) !" Denis Knauf" </tw> </b>
|
|
!" ] die tolle Idee, eine Praesentationssoftware zu schreiben."
|
|
</p>
|
|
\ <p> <en>
|
|
\ <||> !" Forth eignet sich gut für Domain specific languages." </||>
|
|
\ <||> !" Makros sind ein Heidenspass." </||>
|
|
\ <||> !" Execution tokens erzeugen unseren Code. text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text text" </||>
|
|
\ </en> </p>
|
|
<np>
|
|
<h> !" Ergebnis" </h>
|
|
<p> <b> !" Das hier" </b> </p>
|
|
<np>
|
|
<h> !" hallo" </h>
|
|
<p> !" Sieht doch garnicht so schlecht aus" </p>
|
|
<np>
|
|
p4-1
|
|
<np>
|
|
p4-1 p4-2
|
|
<np>
|
|
p4-1 p4-2 p4-3
|
|
<np>
|
|
<h> !" Und Farben" </h>
|
|
<br>
|
|
<li> !" Hintergrundfarbe: " <f> s\" Yellow <bc> !\" text\" </bc> " !! </f> !" : " Yellow <bc> !\" text" </bc> </li>
|
|
<li> !" Vordergrundfarbe: " <f> s\" Brown <fc> !\" text\" </fc> " !! </f> !" : " Brown <fc> !\" text" </fc> </li>
|
|
<p> !" 8 Farben sind moeglich:" </p>
|
|
<p> farbendemo </p>
|
|
<np>
|
|
<h> !" Und Source" </h>
|
|
<br>
|
|
<source> s" presentation.fs" 10 20 </source>
|
|
</presentation>
|