\ @(#) 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;