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

an bildschirm angepasst

Browse Source
master
Denis Knauf 13 years ago
parent bc83b7edf9
commit c2602ca66c
3 changed files with 35 additions and 24 deletions
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Show Stats Download Patch File Download Diff File
  1. 2
      example.p.fs
  2. 7
      presentation.fs
  3. 50
      presentation.p.fs

2
example.p.fs
Unescape 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
Unescape 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
Unescape 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>

Write Preview
Loading…
Cancel
Save