praesentation nach presentation.p.fs ausgelagert und eine demonstration erstellt. ptype, ueberschriften, listen und normaler text funktionieren nun.

presentation.fs

@@ -8,6 +8,10 @@
 	loop
 ;
 
+: term-size form ;
+: term-height ( -- i ) term-size drop ;
+: term-width ( -- i ) term-size nip ;
+
 : isnewline? ( c -- i ) dup 10 = swap 13 = or ;
 : isspace?   ( c -- i ) dup 9 = over 11 = or swap 32 = or ;
 : anyspaces? ( c -- i ) dup isnewline? isspace? or ;
@@ -22,11 +26,7 @@
 	endcase nip
 ;
 
-variable ptype-lenl_
+variable ptype-lenl \ Wieviele Zeichen bereits in dieser Zeile geschrieben wurden
-: ptype-lenl
-	ptype-lenl_
-	s\" \nptype-lenl = " type dup @ . cr
-;
 : ptype-word ( addrw addrc c -- addrc+1 )
 	-rot \ c addrw addrc
 	dup -rot over - type \ c addrc
@@ -89,24 +89,15 @@ variable ptype-lenl_
 	over ptype-lenl !
 	nip nip tuck - type
 ;
-: ptype ( addr len ) 80 ptype-lenl @ ptype-init ptype' ;
+: ptype ( addr len -- ) term-width ptype-lenl @ ptype-init ptype' ;
 : ptype-reset ( -- ) 0 ptype-lenl ! ;
-ptype-reset
+ptype-reset \ ptype-lenl sollte von Anfang an 0 sein
 
 : escape ( -- addr len ) s\" \e" ;
 : csi ( -- addr len ) s\" \e[" ;
 : sgr ( u -- ) csi type 0 0 d.r 109 ( m ) emit ;
 : beep 7 emit s" *beep* " type ;
 
-\ Es folgen ein paar blockorientierte Kennzeichnungen.
-: {h}  ( addr -- addr ) cr s"    " type 3 ptype-lenl ! cell+ ; \ header
-: <h>  ( -- addr u0 )  ['] {h}  , here 0 , 0 ;
-: {/h} ( addr -- addr ) cr ;
-: </h> ( addr len -- ) ['] {/h} , swap ! ;
-: {p}  ( addr -- addr ) cr ptype-reset cell+ ; \ paragraph
-: <p>  ( -- addr u0 )  ['] {p}  , here 0 , 0 ;
-: {/p} ( addr -- addr ) cr ;
-: </p> ( addr len -- ) ['] {/p} , swap ! ;
 \ Es folgen ein paar syntaktische Textauszeichnungen.
 : {i}   ( addr -- addr )  7 sgr ;
 : <i>   ( -- ) ['] {i}  , ;
@@ -128,13 +119,52 @@ ptype-reset
 : <bc>  ( -- ) ['] {bc} , , ;
 : {/bc} ( addr -- addr ) 49 sgr ;
 : </bc> ( -- ) ['] {/bc} , ;
+: {br}  ( addr -- addr ) cr ptype-reset ;
+: <br>  ( -- ) ['] {br} , ;
+\ Es folgen ein paar blockorientierte Kennzeichnungen.
+: {h}   ( addr -- addr )
+	cr
+	term-width over @ - 2 / \ addr width-twidth/2
+	dup ptype-lenl !
+	1 +do 32 emit loop
+	cell+
+	{b}
+; \ header
+: <h>   ( -- addr u0 )  ['] {h}  , here 0 , 0 ;
+: {/h}  ( addr -- addr )
+	{/b}
+	cr
+	term-width over @ - 2 / \ addr width-twidth/2
+	dup
+	2 +do 32 emit loop
+	ptype-lenl @ swap 2 - +do 61 ( = ) emit loop
+	cr
+	cell+
+;
+: </h>  ( addr len -- ) ['] {/h} , dup , swap ! ;
+: {p}   ( addr -- addr ) cr ptype-reset cell+ ; \ paragraph
+: <p>   ( -- addr u0 )  ['] {p}  , here 0 , 0 ;
+: {/p}  ( addr -- addr ) cr ;
+: </p>  ( addr len -- ) ['] {/p} , swap ! ;
+: {li}  ( addr -- addr )
+	s\"   * " type
+	4 ptype-lenl !
+	cell+
+;
+: <li>  ( -- addr u0 ) ['] {li} , here 0 , 0 ;
+: {/li} ( addr -- addr ) cr ;
+: </li> ( addr len -- ) ['] {/li} , swap ! ;
 
 : {np} ( -- )
 	0 sgr \ Alle Bildschirmeigenschaften zuruecksetzen
-	\ csi type s\" 2J" type \ Bildschirm leeren
+	page \ Bildschirm leeren
 ;
-: <np> ( -- addr ) \ Wir legen jede Anfangsadresse einer Seite auf den Stack (Achtung, in umgekehrter Reihenfolge
+: {/np} ( -- )
-	here ['] {np} ,
+	\ 30 sgr 40 sgr
+	0 term-height 2 - at-xy
+;
+: <np> ( -- addr ) \ Wir legen jede Anfangsadresse einer Seite auf den Stack (Achtung, in umgekehrter Reihenfolge)
+	['] {/np} , here ['] {np} ,
 ;
 
 : {!!} ( addr -- addr+2 )
@@ -143,7 +173,7 @@ ptype-reset
 	cell+   \ straddr addr
 	tuck    \ addr straddr addr
 	@       \ addr straddr strlen
-	ptype-init ptype'   \ addr
+	ptype   \ addr
 	cell+
 ;
 : !! ( len0 addr1 len1 -- len !! '{!!} addr1 len1 )
@@ -152,16 +182,9 @@ ptype-reset
 	rot , , \ len0 len1 len1 addr1 -> len0 len1
 	+ \ len0+len1
 ;
+:noname ( -- ) 34 parse save-mem !! ; :noname 34 parse postpone sliteral postpone !! ; interpret/compile: !"
+:noname ( -- ) \"-parse save-mem !! ; :noname \"-parse postpone sliteral postpone !! ; interpret/compile: !\"
 
-: <presentation> ( -- 0 addr0 !! '{np} ) 0 here ['] {np} , ;
-: </presentation> ( 0 <addr...> -- faddr laddr paddr 0 !! endaddr 0 0 0 0 <...addr> )
-	here \ 0 <addr...> faddr
-	begin swap dup \ 0 <addr..> addr0 faddr
-	while , \ 0 <addr..> faddr
-	repeat \ .s cr
-	drop \ faddr
-	here dup 0 \ faddr laddr paddr 0
-;
 : pres_page_cur ( addr -- addr ) ;
 : pres_page_from ( addr -- addr ) cell+ ;
 : pres_page_to ( addr -- addr ) 2 cells + ;
@@ -196,42 +219,35 @@ ptype-reset
 	2drop
 ;
 : showpage ( faddr laddr paddr -- faddr laddr paddr 0 )
-	cells -
 	validpage?
 	if beep then
 	dup showpage' 0
 ;
 : n ( faddr laddr paddr 0 [u] -- faddr laddr paddr 0 )
-	page_steps \ faddr laddr paddr x
+	page_steps cells - \ faddr laddr paddr
 	showpage
 ;
 : g ( faddr laddr paddr 0 u -- faddr laddr paddr 0 )
+	cells nip nip over swap -
 	showpage
 ;
 : p ( faddr laddr paddr 0 [u] -- faddr laddr paddr 0 )
-	page_steps negate
+	page_steps cells +
 	showpage
 ;
+: u ( faddr laddr paddr X -- faddr laddr paddr 0 )
+	drop showpage
+;
+: q bye ;
 
-here
+: <presentation> ( -- addr0 0 addr1 !! '{np} ) here 0 here ['] {np} , ;
-<presentation>
+: </presentation> ( 0 <addr...> -- faddr laddr paddr 0 !! endaddr 0 0 0 0 <...addr> )
-<h> s" Dies ist eine Testpresentation!" !! </h>
+	<np>
-<p>
+	here \ 0 <addr...> faddr
-	s" Eines Tages hatten wir [" !! <b> s" Harald Steinlechner" !! </b>
+	begin swap dup \ 0 <addr..> addr0 faddr
-	s"  und " !! <b> s" Denis Knauf" !! </b>
+	while , \ 0 <addr..> faddr
-	s" ] die tolle Idee, eine Presentationssoftware zu schreiben." !!
+	repeat \ .s cr
-</p>
+	drop \ faddr
-<np>
+	here dup 0 \ faddr laddr paddr 0
-<h> s" Ergebnis" !! </h>
+	\ u \ Praesentation starten
-<p> <b> s" Das hier" !! </b> </p>
+;
-<np>
-<h> s" hallo" !! </h>
-<p> s" Sieht doch garnicht so schlecht aus" !! </p>
-</presentation>
-
-( bye
-\ presentation ist gestartet: erste Seite wird angezeigt
-n \ zweite Seite
-p \ erste Seite
-2 n \ dritte Seite
-)

presentation.p.fs

@@ -0,0 +1,67 @@
+
+\ Haeufig benutzte Textauszeichnungen:
+: <f> <b> 4 <fc> ;
+: </f> </fc> </b> ;
+
+: p4-1
+	<h> !" Welche Funktionen sind moeglich?" </h>
+	<p>
+		!" Natuerlich Text: " <f> s\" !\" Irgend ein Text\"" !! </f>
+		<br>
+		!" (Manchmal ist '" <f> s\" s\" Etwa wenn man !\" erklaeren zu wollen\" !!" !! </f> !" ' noetig)"
+	</p>
+;
+: p4-2
+	<p> !" Aber " <u> !" immer" </u> !"  innerhalb eines Blockes:" </p>
+	<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
+	<p> !" Textauszeichnung:" </p>
+	<li> <f> s\" <b> !\" Fettdruck\" </b>" !! </f> !" : " <b> !" Fettdruck" </b> </li>
+	<li> <f> s\" <i> !\" Farbinvertierung\" </i>" !! </f> !" : " <i> !" Farbinvertierung" </i> </li>
+	<li> <f> s\" <u> !\" Unterstrichen\" </u>" !! </f> !" : " <u> !" Unterstrichen" </u> </li>
+;
+
+: farbendemo
+	0 <bc> 0 <fc> !" ====" 1 <fc> !" ====" 2 <fc> !" ====" 3 <fc> !" ====" 4 <fc> !" ====" 5 <fc> !" ====" 6 <fc> !" ====" 7 <fc> !" ====" <br>
+	1 <bc> 0 <fc> !" ====" 1 <fc> !" ====" 2 <fc> !" ====" 3 <fc> !" ====" 4 <fc> !" ====" 5 <fc> !" ====" 6 <fc> !" ====" 7 <fc> !" ====" <br>
+	2 <bc> 0 <fc> !" ====" 1 <fc> !" ====" 2 <fc> !" ====" 3 <fc> !" ====" 4 <fc> !" ====" 5 <fc> !" ====" 6 <fc> !" ====" 7 <fc> !" ====" <br>
+	3 <bc> 0 <fc> !" ====" 1 <fc> !" ====" 2 <fc> !" ====" 3 <fc> !" ====" 4 <fc> !" ====" 5 <fc> !" ====" 6 <fc> !" ====" 7 <fc> !" ====" <br>
+	4 <bc> 0 <fc> !" ====" 1 <fc> !" ====" 2 <fc> !" ====" 3 <fc> !" ====" 4 <fc> !" ====" 5 <fc> !" ====" 6 <fc> !" ====" 7 <fc> !" ====" <br>
+	5 <bc> 0 <fc> !" ====" 1 <fc> !" ====" 2 <fc> !" ====" 3 <fc> !" ====" 4 <fc> !" ====" 5 <fc> !" ====" 6 <fc> !" ====" 7 <fc> !" ====" <br>
+	6 <bc> 0 <fc> !" ====" 1 <fc> !" ====" 2 <fc> !" ====" 3 <fc> !" ====" 4 <fc> !" ====" 5 <fc> !" ====" 6 <fc> !" ====" 7 <fc> !" ====" <br>
+	7 <bc> 0 <fc> !" ====" 1 <fc> !" ====" 2 <fc> !" ====" 3 <fc> !" ====" 4 <fc> !" ====" 5 <fc> !" ====" 6 <fc> !" ====" 7 <fc> !" ===="
+	</bc> </fc>
+;
+
+<presentation>
+	<h> !" Dies ist eine Testpraesentation!" </h>
+	<p>
+		!" Eines Tages hatten wir [" <b> !" Harald Steinlechner" </b>
+		!"  und " <b> !" Denis Knauf" </b>
+		!" ] die tolle Idee, eine Praesentationssoftware zu schreiben."
+	</p>
+<np>
+	<h> !" Ergebnis" </h>
+	<p> <b> !" Das hier" </b> </p>
+<np>
+	<h> !" hallo" </h>
+	<p> !" Sieht doch garnicht so schlecht aus" </p>
+<np>
+	p4-1
+<np>
+	p4-1 p4-2
+<np>
+	p4-1 p4-2 p4-3
+<np>
+	<h> !" Und Farben" </h>
+	<br>
+	<li> !" Hintergrundfarbe: " <f> !" 3 <bc>" </f> </li>
+	<li> !" Vordergrundfarbe: " <f> !" 5 <fc>" </f> </li>
+	<p> !" 8 Farben sind moeglich:" </p>
+	<p> farbendemo </p>
+</presentation>