fth/filefind.fth

\ @(#) filefind.fth 98/01/26 1.2
\ FILE?  ( <name> -- , report which file this Forth word was defined in )
\
\ FILE? looks for ::::Filename and ;;;; in the dictionary
\ that have been left by INCLUDE.  It figures out nested
\ includes and reports each file that defines the word.
\
\ Author: Phil Burk
\ Copyright 1992 Phil Burk
\
\ 00001 PLB 2/21/92 Handle words from kernel or keyboard.
\       Support EACH.FILE?
\ 961213 PLB Port to pForth.

ANEW TASK-FILEFIND.FTH

: BE@ { addr | val -- val , fetch from unaligned address in BigEndian order }
    4 0
    DO
        addr i + c@
        val 8 lshift or -> val
    LOOP
    val
;

: BE! { val addr -- , store to unaligned address in BigEndian order }
    4 0
    DO
        val 3 i - 8 * rshift
        addr i + c!
    LOOP
;
: BEW@ { addr -- , fetch word from unaligned address in BigEndian order }
    addr c@ 8 lshift
    addr 1+ c@ OR
;

: BEW! { val addr -- , store word to unaligned address in BigEndian order }
    val 8 rshift addr c!
    val addr 1+ c!
;

\ scan dictionary from NFA for filename
: F?.SEARCH.NFA { nfa | dpth stoploop keyb nfa0 -- addr count }
    0 -> dpth
    0 -> stoploop
    0 -> keyb
    nfa -> nfa0
    BEGIN
        nfa prevname -> nfa
        nfa 0>
        IF
            nfa 1+ be@
            CASE
                $ 3a3a3a3a ( :::: )
                OF
                    dpth 0=
                    IF
                        nfa count 31 and
                        4 - swap 4 + swap
                        true -> stoploop
                    ELSE
                        -1 dpth + -> dpth
                    THEN
                ENDOF
                $ 3b3b3b3b ( ;;;; )
                OF
                        1 dpth + -> dpth
                        true -> keyb     \ maybe from keyboard
                ENDOF
            ENDCASE
        ELSE
            true -> stoploop
            keyb
            IF
                " keyboard"
            ELSE
                " 'C' kernel"
            THEN
            count
        THEN
        stoploop
    UNTIL
;

: FINDNFA.FROM { $name start_nfa -- nfa true | $word false }
    context @ >r
    start_nfa context !
    $name findnfa
    r> context !
;

\ Search entire dictionary for all occurences of named word.
: FILE? {  | $word nfa done? -- , take name from input }
    0 -> done?
    bl word -> $word
    $word findnfa
    IF  ( -- nfa )
        $word count type ."  from:" cr
        -> nfa
        BEGIN
            nfa f?.search.nfa ( addr cnt )
            nfa name> 12 .r   \ print xt
            4 spaces type cr
            nfa prevname dup -> nfa
            0>
            IF
                $word nfa findnfa.from  \ search from one behind found nfa
                swap -> nfa
                not
            ELSE
                true
            THEN
        UNTIL
    ELSE ( -- $word )
        count type ."  not found!" cr
    THEN
;