OPEN GNJFN-OPEN PRINT-DATA GNJFN-PRINT-DATA NAME GNJFN-NAME SHORT-NAME GNJFN-SHORT-NAME DEV GNJFN-DEV SNM GNJFN-SNM NM1 GNJFN-NM1 NM2 GNJFN-NM2 DIR GNJFN-DIR DIR? GNJFN-DIR? NEXT-FILE GNJFN-NEXT-FILE CLOSE GNJFN-CLOSE> GN-DIR STRING GN-DIRSNM GN-DIR? ANY> >

>>>> > >>>> >) FIX-STRING:STRING DIR:STRING CH: FALSE> BUF:STRING CHAN-DAT:GNJFN-DATA VAL: TF:STRING DIR-SPEC?:) ) (T >)> T .NM-INFO>> 1> >> )) #DECL ((PLACE) FIX) !\/> >>> > ) (T >)>> >> > >> >> > > >> >> ) (T )> .VAL)>> )) ) (T DIR?> <==? .RET ,RETURN-DIRS>) (T <==? .RET ,RETURN-FILES>)>)>> ) F-OR-D:FIX) > ) (<==? .F-OR-D ,RETURN-DIRS> ) (T )>> )) >> <3 > <4 > .WHICH>)>> ) (BUF )) T >>>> :GNJFN-DATA>)) T> <> .NM-INFO <> <>>)> <1 .NM-INFO>> :GNJFN-DATA>)) T> <> .NM-INFO <> <>>)> <2 .NM-INFO>> (DAT:GNJFN-DATA ) (BUF ) (LEN )) >> <- 8 .LEN>>> T .NAME2>>) (T T >>>)> .NAME> NAME2: (DAT:GNJFN-DATA ) (BUF ) (LEN )) >> <- 8 .LEN>>> T >>)>> :GNJFN-DATA>> (CHAN-DAT:GNJFN-DATA ) (BUF:STRING ) (LEN ) (TF ) FILE:STRING DLEN VAL) >>> <512 .TF > 0 >> >>> !\/>)> :STRING 9 2> 16384>>>> .VAL> )) > :GNJFN-DATA>> :GNJFN-DATA>>> F? FILE:STRING (NMBUF: <>)) > > >> ; "Rest off previous match" > > > 0> )> ) (T )>)> > > >)> >>> <512 .NMBUF > > 0 > >>>>> >> !\/>) (T )> :STRING 9 2> 16384>>> .F?> >> >>> )>)> )> ) (T >>>)>>> ) (STR:STRING ) (SLNTH:FIX ) (FLEN:FIX ) CHECK (FPLACE 1) (FLAG T) (FLAG2 <>)) > <==? <1 .STR> !\*>> ) (T )>) (<==? <1 .STR> !\*> >)> 1> ) (T >)>) (T > >)>)>) ( ) (T >)>) (T >)>) (<==? <1 .STR>> )> > >) (.FLAG >) (.FLAG2 > >) (T >)>>>> > > 3>>)> ) (T >> > .BUF)>> 3>) (T > <1 ,BUFFERS .BUF> T)>>