From 45f1ab86ba6e8dce3ef92703dddb99b4697de0b4 Mon Sep 17 00:00:00 2001 From: Denis Knauf Date: Sat, 15 Jan 2011 13:45:55 -0800 Subject: [PATCH 1/2] readme: weiter eingerueckt --- README.md | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/README.md b/README.md index 0c5cde6..c4a81cd 100644 --- a/README.md +++ b/README.md @@ -8,10 +8,10 @@ Benutzen ./presentation.fs presentation.p.fs - n \ naechste Seite - p \ Seite zueueck - u \ Seite aktualisieren (warum auch immer) - 3 g \ Zur dritten Seite springen - 3 n \ 3 Seiten vor springen + n \ naechste Seite + p \ Seite zueueck + u \ Seite aktualisieren (warum auch immer) + 3 g \ Zur dritten Seite springen + 3 n \ 3 Seiten vor springen In der Presentation wird gezeigt, was man alles machen kann. From eca796f4f93d9e3a4787c9044c5ec1ff8e58ee2a Mon Sep 17 00:00:00 2001 From: stucco Date: Sat, 15 Jan 2011 23:04:40 +0100 Subject: [PATCH 2/2] added enumeration --- presentation.fs | 17 +++++++++++++++++ presentation.p.fs | 9 +++++++++ 2 files changed, 26 insertions(+) diff --git a/presentation.fs b/presentation.fs index f203177..20c3a34 100755 --- a/presentation.fs +++ b/presentation.fs @@ -154,6 +154,23 @@ ptype-reset \ ptype-lenl sollte von Anfang an 0 sein : {/li} ( addr -- addr ) cr ; : ( addr len -- , xt-{/li} ) ['] {/li} , swap ! ; +variable enumerationCount ( -- addr ) +: {||} ( addr -- addr ) + enumerationCount @ 1+ enumerationCount ! + s" " type enumerationCount @ 0 U.R s" ) " type + 5 ptype-lenl ! + cell+ +; +: <||> ( -- addr u0 , xt-{||} 0 ) ['] {||} , here 0 , 0 ; +: {/||} ( addr -- addr ) cr ; +: ( addr len -- , xt-{/||} ) ['] {/||} , swap ! ; + +: {en} ( -- ) ; +: ( -- , xt-{en} ) ['] {en} , ; +: {/en} ( -- ) ; +: ( -- , xt-{/en} ) ['] {en} , ; + + : {np} ( -- ) 0 sgr \ Alle Bildschirmeigenschaften zuruecksetzen page \ Bildschirm leeren diff --git a/presentation.p.fs b/presentation.p.fs index a97fc87..d19b2a3 100644 --- a/presentation.p.fs +++ b/presentation.p.fs @@ -44,6 +44,15 @@ !" Eines Tages hatten wir [" !" Harald Steinlechner" !" und " !" Denis Knauf" !" ] die tolle Idee, eine Praesentationssoftware zu schreiben." +
+
+ + + <||> !" erstens" + <||> !" zweitens" + <||> !" dann" + +

!" Ergebnis"