Differences

This shows you the differences between two versions of the page.

--- en:pfw:library [2024-09-04 13:04] – [The viewer] willem
+++ en:pfw:library [2024-09-04 13:16] (current) – [The viewer] willem
@@ Line 276: / Line 276: @@
 </code>
-===== The viewer =====
+===== A viewer for the library =====
+This viewer shows 16 or less lines at a time.
+It stops at a <09> character, prints a divider line and waits for user input.
+When the spacebar was hit, it goes on displaying the next chapter.
+Any other key leaves the viewer.
 <code forth>
 ( A library consists of 09 {tab}, 0D {cr} and ASCII chars )
 ( ranging from blank to ~ others chars are not allowed )
-v: inside also  definitions \ Show the library source code of a chapter
+\ Show the library source code of a chapter
 : .LINE     ( a1 -- a2 ch ) begin c@+ dup BL < 0= while emit repeat ;
-: .DIVIDER  ( -- )          cr  10 for ." -- " next  cr ;
+: .DIVIDER  ( -- )          cr  10 0 do ." -- " loop  cr ;
 : LIBTYPE   ( a -- )
@@ Line 295: / Line 300: @@
     repeat  drop ;
-v: extra definitions
+: VIEW      ( "name" -- )       bl word count  lib-find libtype ;
-: VIEW      ( ccc -- )          bl-word count  lib-find libtype ;
-v: fresh</code>
+</code>
 ===== A sample library source =====
 This examples shows how many different code parts can be used inside the library.\\