"Fast FLOADer for people who use TECO to debug MUDDLE" "DFLDEFS"> > > !\ >> 50>> > 40>> > 9>> (FILNAM) ) >> (FILNAM) (READ2?) ) > (FILNAM) ) >)> .FILNAM .STR .READ2?>> ) "AUX" (DFL-STRUC ,DFL-STRUC) (DFL-SCRATCH ,DFL-NAM-SCRATCH) (TL )) #DECL ((FUNC-NAME) (TL) FIX (DFL-SCRATCH DFL-STRUC) VECTOR) > "-IMSUBR">) (T )>>) ( "-IMSUBR">) (T .FUNC-NAME)>>) (T .TL> 5>> "">>> >>)> >>> )) #DECL ((X) VECTOR (Y) ]> (FOO) ) >)> <1 .X "-IMSUBR">) (T .FOO)>>> .DFL-SCRATCH .FUNC-NAME> .DFL-SCRATCH)>> > >> <- >>>) (T .C)>> .STR>> ) FUNC-NAMLEN TSTR STR (PACKAGE-FLAG <>) FNV (DFL-BUF ,DFL-BUF) (6STR ,6STRING) ATM FORM RFILNAM BEGACC ACC P Q (DEBUGGING? T)) #DECL ((FUNC-NAME) ]> (6STR FILNAM) STRING (CHN) FALSE> (FNV) (TSTR) STRING (FUNC-NAMLEN) FIX (MEMSTR) (PACKAGE-FLAG) (STR) (DFL-BUF) STRING (ATM) ATOM (FORM) FORM (DEBUGGING?) (READ2?) (RFILNAM) (BEGACC ACC) FIX) >> )) #DECL ((ANS ANS1) (CHARS-READ) FIX (FOUND?) ) >) ( > 0 50 .TSTR>)> > > > !\R> >) (T)> !\<> >) (T)> > ";'">>> >> > > >> LIST>> > > >) (ELSE > > > !\R> >)> !\<> ";'">> )> > .CHARS-READ> <- ,DFL-BUFLEN >>> > )>> > !\ > '["-DEBUG" "-TOTAL" "-DEFER"]> <=? > "-WHEN">>> > !\ > <=? "-DEBUG"> <=? > "-WHEN">>>> > .CHARS-READ> <- ,DFL-BUFLEN >>> > > )> >)>) ( > )>)> >> > <- ,DFL-BUFLEN .CHARS-READ>>>> > >> .FUNC-NAME>) FALSE> .REPNAM>>) (T)> .STR > " "> >)> >> )>>>> > .FUNC-NAME>> > ";'">>> > .CHARS-READ> <- ,DFL-BUFLEN 8>>>> >>> > .RFILNAM .OBLIST>> > > > )> ) (T > > 1>> .ANS> )> )>) ( )>>>>> >> ) > :FIX 1>>)>> (TARG) STRING (STR) STRING (MEMSTR) >) > >)>) (T > .STR>> > >>>> >)> ) (<==? <1 .SECOND> <1 .RT>> > >> )>) (T > )>>> <2 .MEMSTR>> <>)>>)>> > "OPT" (FILNAM:> <>) (FORCE: <>) "AUX" (FOOTOP: ,SLEN) (T <* ,SLEN>)>>) (FOOBOT: >) FOO:UNTUPLE FOOSAV:UNTUPLE TEMP ACC:FIX FILP: OCH:> ICH:> NEWFIL: (LOSERS: ()) NM1: NM2: SNM: DEV: CDATE1: NAME1) > ) ( .UNACT>)>) (T ) > ) (T )>> .ATMS> 1> )>)> > > > > > > > > >)>) (T "MUD" <3 .FILNAM> <4 .FILNAM>>>)> > > )> >> .NAME1> :FIX>>) ( .NAME1) FALSE> .UNACT>)> >) (T "MUD" <3 .FILNAM> <4 .FILNAM>>>)> (OBLIST) ) > >> )> > > > >> FUNCTION> ) (

)>> > .NEWBEG> >> >> ) ( .NEWFIL> >)>> > ) (.ATMS)>)>> "AUX" (AS:> ) "VALUE" >) >: .ATM> > > > >)>> ) (INC <- .CT .ACC>) TINC) #DECL ((ICH OCH) (TINC INC CT ACC) FIX (BUF) STRING) >> > 0> )>>> ) (NEWL <>)) > )> >> > >) ()>) (T >)>>>