Differences

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

--- en:pfw:library [2024-09-04 12:58] – [The idea] willem
+++ en:pfw:library [2024-09-04 13:16] (current) – [The viewer] willem
@@ Line 35: / Line 35: @@
 Function: .LIB     ( -- )
     Print all chapter headers in a human readable form.
+Function: VIEW     ( "name" --)
+    When the keyword "name" is found view the source code chapter,
+    otherwise issue an error message
 Function: FROM     ( "name" -- )
@@ Line 272: / Line 276: @@
 </code>
+===== 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 =====
 This examples shows how many different code parts can be used inside the library.\\