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

an bildschirm angepasst

Browse source
This commit is contained in:
Denis Knauf 2011-01-21 12:50:34 +01:00
parent bc83b7edf9
commit c2602ca66c
3 changed files with 35 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
example.p.fs
View file

@ -4,4 +4,4 @@
!" Eines Tages hatten wir [Harald Steinlechner und Denis Knauf"
!" ] die tolle Idee, eine Praesentationssoftware zu schreiben."
</p>
</praesentation
</praesentation>

7
presentation.fs
View file

@ -378,7 +378,12 @@ variable pres-restore 3 cells allot
: p ( faddr laddr paddr 0 [u] -- faddr laddr paddr 0 ) page_steps cells + showpage ;
: u ( faddr laddr paddr X -- faddr laddr paddr 0 ) drop showpage ;
: q bye ;
: r ( -- faddr laddr paddr 0 ) pres-restore @ pres-restore cell+ @ pres-restore 2 cells + @ 0 ;
: r ( -- faddr laddr paddr 0 )
pres-restore dup @
swap cell+ dup @
swap cell+ @
0
;
: <presentation> ( -- addr0 0 addr1 , xt-{np} ) here 0 here ['] {np} , ;
: </presentation> ( 0 <addr...> -- faddr laddr paddr 0 !! endaddr 0 0 0 0 <...addr> )

50
presentation.p.fs
View file

@ -16,7 +16,6 @@
<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
@ -42,10 +41,12 @@
{ a b c d }
<h> !" Interner Ablauf" </h>
<p>
71 <->
1 <|> !" Beschreibung" 18 <|> s\" ... <p> <i> !\" text \" </i> </p> ..." !! 56 <|> !" in forth" 71 <|>
71 <->
1 <|> !" Speicheraufbau" 18 <|> s\" {p} 5 {i} {!!} addr len {/i} {/p} " !! 56 <|> s\" here-\"stack\"" !! 71 <|>
<br>
1 <|> a b !! 18 <|> <b> c d !! </b> 56 <|> 71 <|>
1 <|> <b> a b </b> !! 18 <|> <b> c d !! </b> 56 <|> 71 <|>
71 <->
</p>
;
@ -57,8 +58,8 @@
\ <b> !" Denis Knauf & Harald Steinlechner" </b>
</p>
<np>
<h> !" Präsentationssoftware in Forth" </h>
<p>
<h> !" Präsentationssoftware in Forth" </h>
<br>
<br>
!" Die flexible Forth-Syntax erlaubt die deklarative Representation von formatierten Text in Forth."
@ -66,27 +67,32 @@
!" Die Präsentation selbst sowie ihre Seiten werden mittels <html> artigen Tags implementiert."
</p>
<np>
<h> !" Grundstruktur " </h>
<p> <source> s" example.p.fs" 0 100 </source> </p>
<np>
<h> !" Grundstruktur " </h>
<p> <source> s" example.p.fs" 0 100 </source> </p>
<h> !" Ergebnis" </h>
<h> !" Dies ist eine Testpraesentation!" </h>
<p>
<h> !" Grundstruktur " </h>
<br>
<br>
<source> s" example.p.fs" 0 100 </source>
<br>
<b> !" Mit den wichtigsten Wörtern:" </b>
<br> <br>
<li> !" <prasentation>" </li>
<li> !" <h>" </li>
<li> !" <p>" </li>
<li> !" <b>" </li>
<li> !" <br>" </li>
<br>
!" Eines Tages hatten wir [Harald Steinlechner und Denis Knauf"
!" ] die tolle Idee, eine Praesentationssoftware zu schreiben."
</p>
<np>
p4-1
<np>
p4-1 p4-2
<np>
p4-1 p4-2 p4-3
( <np>
<h> !" Mit den wichtigsten Wörtern:" </h>
<p>
<li> <f> !" <presentation>" </f> !" : damit beginnt die praesentation" </li>
<li> <f> !" <h>" </f> !" : Eine Ueberschrift" </li>
<li> <f> !" <p>" </f> !" : Ein Paragraph" </li>
<li> <f> !" <b>" </f> !" : Fettdruck" </li>
<li> <f> !" <br>" </f> !" : Zeilenumbruch" </li>
<li> <f> !\" !\"" </f> !" : Ein String" </li>
</p> )
<np> p4-1
<np> p4-1 p4-2
<np> p4-1 p4-2 p4-3
<np> p4-1 p4-2 p4-3
<p> !" Eine neue Seite definieren: " <f> !" <np>" </f> </li>
<np>
<h> !" Und Farben" </h>
<br>