Differences

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

--- en:pfw:library [2024-09-04 13:02] – [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 )
+\ Show the library source code of a chapter
+: .LINE     ( a1 -- a2 ch ) begin c@+ dup BL < 0= while emit repeat ;
+: .DIVIDER  ( -- )          cr  10 0 do ." -- " loop  cr ;
+: LIBTYPE   ( a -- )
+    begin
+0 do                         \ Max. 16 lines at a time
+            cr .line 09 =               \ End of source chapter?
+            if  .divider leave  then    \ Show divider & ready
+        loop
+    dup libhere < while                 \ More library source to be done?
+        key BL <> if drop exit then     \ Yes, ask key, stop on non space
+    repeat  drop ;
+: VIEW      ( "name" -- )       bl word count  lib-find libtype ;
 </code>
 ===== A sample library source =====