Differences

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

--- en:pfw:library [2025-03-20 17:13] – [The idea] willem
+++ en:pfw:library [2025-04-01 15:56] (current) – [noForth t library use] willem
@@ Line 1: / Line 1: @@
-====== A library for Forth ======
+====== A library for (no)Forth ======
-*W.O.*
+*W.O. 2025*
@@ Line 20: / Line 20: @@
   * ''%%RUN%%'' ''%%( i*x "name" -- j*x )%%'' Find "name" in the library and load & run the script from a library.
   * ''%%CHAPTERS%%''  ''%%( -- )%%'' Show all chapter headers of the current library
-  * ''%%LOOK-AT%%'' ''%%( "name" -- )%%'' Look at the code chapter from the library, that belongs to "name".
+  * ''%%LOOK-AT%%'' ''%%( "name" -- )%%'' Look at the code of chapter “name” from the active library.
 ===== Pseudo code =====
@@ Line 164: / Line 164: @@
   LIB value LIBHERE         \ Current end address of library
-: LIB-FIND    ( a +n –- sa ) \ a,+n=name, sa=begin-source-section
+: FIND-CHAPTER ( adr len -- chap-adr )  \ Find chapter start address (A.N.)
-    keyword place           \ Save keyword
+    >r >r
-    keyword count upper     \ Convert to uppercase
+    libhere lib
-    libhere  lib            \ Library address range
+    begin begin begin
-    begin
+ scan 3 +                      \ To begin chapter
-dup > 0= throw 2dup \ Nothing found?
+dup < throw                    \ End library?
-D scan nip over 1+ \ Get line with keywords, skip \
+        dup c@ r@ c@ = until            \ First letter ok?
-        begin
+        dup 2r@ over s<> 0= until       \ Name ok?
-dup > while        \ Line not done?
+        dup 2r@ drop + c@ ch ! < until  \ Length ok?
-            bl skip dup >r  \ Skip leading spaces
+    nip  2 - rdrop  rdrop ;
-            bl scan         \ After keyword
-            r@  over r> -   \ Keyword length
-            keyword count s<> 0= \ Keyword found, leave source address
-            if  2drop nip exit
-            then
-        repeat
-drop  09 scan  1+  \ Find library section, skip 09
-    again ;
 : LIB-REFILL  ( source-id –- f )
@@ Line 200: / Line 192: @@
 : NEEDED      ( a +n –- i*x )
     ['] lib-refill  to 'refill   \ Add library REFILL
-    LIB-FIND keyword find nip 0= \ in the current forth search order
+    find-chapter keyword find nip 0= \ in the current forth search order
     and lib-load ;
@@ Line 303: / Line 295: @@
     repeat  drop ;
-: LOOK-AT   ( "name" -- )       bl word count  lib-find libtype ;
+: LOOK-AT   ( "name" -- )       bl word count  find-chapter libtype ;
 </code>