112 lines
3.2 KiB
Forth
112 lines
3.2 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" -> " type swap line-buffer swap type cr
|
|
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." </||>
|
|
</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>
|