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"