diff --git a/example.p.fs b/example.p.fs index 055b87b..b9f90e9 100644 --- a/example.p.fs +++ b/example.p.fs @@ -4,4 +4,4 @@ !" Eines Tages hatten wir [Harald Steinlechner und Denis Knauf" !" ] die tolle Idee, eine Praesentationssoftware zu schreiben."

- diff --git a/presentation.fs b/presentation.fs index d059187..ce51fcb 100755 --- a/presentation.fs +++ b/presentation.fs @@ -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 +; : ( -- addr0 0 addr1 , xt-{np} ) here 0 here ['] {np} , ; : ( 0 -- faddr laddr paddr 0 !! endaddr 0 0 0 0 <...addr> ) diff --git a/presentation.p.fs b/presentation.p.fs index 5156546..7626396 100644 --- a/presentation.p.fs +++ b/presentation.p.fs @@ -16,7 +16,6 @@
  • s\" !\" Eine Ueberschrift\" " !!
  • s\"

    !\" Einfacher Text\"

    " !!
  • s\"
  • !\" Listen, wie diese hier\"
    • " !! -

    !" Eine neue Seite definieren: " !" " ; : p4-3 @@ -42,10 +41,12 @@ { a b c d } !" Interner Ablauf"

    + 71 <-> + 1 <|> !" Beschreibung" 18 <|> s\" ...

    !\" text \"

    ..." !! 56 <|> !" in forth" 71 <|> 71 <-> 1 <|> !" Speicheraufbau" 18 <|> s\" {p} 5 {i} {!!} addr len {/i} {/p} " !! 56 <|> s\" here-\"stack\"" !! 71 <|>
    - 1 <|> a b !! 18 <|> c d !! 56 <|> 71 <|> + 1 <|> a b !! 18 <|> c d !! 56 <|> 71 <|> 71 <->

    ; @@ -57,8 +58,8 @@ \ !" Denis Knauf & Harald Steinlechner"

    + !" Präsentationssoftware in Forth"

    - !" Präsentationssoftware in Forth"

    !" 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 artigen Tags implementiert."

    + !" Grundstruktur " +

    s" example.p.fs" 0 100

    + + !" Grundstruktur " +

    s" example.p.fs" 0 100

    + !" Ergebnis" + !" Dies ist eine Testpraesentation!"

    - !" Grundstruktur " -
    -
    - s" example.p.fs" 0 100 -
    - !" Mit den wichtigsten Wörtern:" -

    -

  • !" "
    • -
  • !" "
    • -
  • !"

    "

    • -
  • !" "
    • -
  • !"
    "
    • -
    + !" Eines Tages hatten wir [Harald Steinlechner und Denis Knauf" + !" ] die tolle Idee, eine Praesentationssoftware zu schreiben."

    - - p4-1 - - p4-1 p4-2 - - p4-1 p4-2 p4-3 +( + !" Mit den wichtigsten Wörtern:" +

    +

  • !" " !" : damit beginnt die praesentation"
    • +
  • !" " !" : Eine Ueberschrift"
    • +
  • !"

    " !" : Ein Paragraph"

    • +
  • !" " !" : Fettdruck"
    • +
  • !"
    "     !" : Zeilenumbruch"
    • +
  • !\" !\"" !" : Ein String"
    • +

    ) + p4-1 + p4-1 p4-2 + p4-1 p4-2 p4-3 + p4-1 p4-2 p4-3 +

    !" Eine neue Seite definieren: " !" " !" Und Farben"