> "Write a TTY-DESC to the supplied file. This produces a format that can be read by the TTY package." >)) #DECL ((DESC) TTY-DESC (FN) STRING (CH) (BUFSTR) STRING (DEV SNM NM2) ) > > > > CHARACTER>> > CHARACTER>> CHARACTER>> > CHARACTER>> CHARACTER>> > CHARACTER>> > > CHARACTER>> (TLEN) FIX) > <1 .BUFSTR > <2 .BUFSTR CHARACTER>> >> > >> .X>) (T <2 .BUFSTR > >> >)> > .TLEN>)> >> >> )>> (CHRS) FIX (BUF) STRING (PAD) FIX) <1 .BUF > <2 .BUF 2> CHARACTER>> <3 .BUF > <4 .BUF CHARACTER>> >> .PART> <+ 4 >) ( .BUF >) ( <1 .BUF > <3 .BUF CHARACTER>> ) (LEN 0)) ) <1 .TBUF > > >) (T <1 .TBUF CHARACTER>> >> .FROB> 1>>> >>)>> .PART> <2 .BUF > <+ .LEN 3>>)>> "Parse a TERMCAP file, making new files for each terminal described." ) > <2 .TV>) ( > >> <- >>>) (.X)>> .NAME>)>> ) ST) > ) (#FALSE ("TERMCAP ENTRY NOT IN ENVIRONMENT"))>> >) (CUR ) CT) #DECL ((CHANNEL) CHANNEL (BUF) STRING (CUR) FIX) > >)> .CT>>> >>)> > 1> <1 .BUF !\:> > )> > <- 2> .CUR>>> )> > ) ()>>) ()>>> ) DESCS) #DECL ((FN ST) STRING (CH) ) > >> > )> (TSS NAME STDNAME) STRING) >>> ) (T )>)> !\#> > > ) ()>)> > >> >> > )>) (>) ()> 0 <- 1 >>> > > 2> <==? <1 .ST> !\:> > <==? <2 .ST> >>> > > <==? <1 .ST> >> >)> )> )> > > ) (<==? <1 .ST> > > ) (<==? <1 .ST> > > "01234567"> )) #DECL ((CHR) CHARACTER (STR) STRING) <- >>>) (T )>> > ) (<==? .NUM > )> ) (T > > ) (<==? .CHR > ) (<==? .CHR !\E> ) (<==? .CHR !\n> ) (<==? .CHR !\r> ) (<==? .CHR !\t> ) (<==? .CHR !\b> ) (<==? .CHR !\f> ) (T .CHR)>)>) (<==? <1 .ST> !\^> > > CHARACTER>) (T > > .CHR)>>>> [.NAME .STDNAME .DSTR]>>> ) <3 .STDESC> .DESCS>> .DESC>> .DESCS> T)>> ) (DEF 0) "AUX" (NUM 0) TS) #DECL ((TARG MAIN) STRING (AUX TS) (NUM) FIX) > <==? 1>> !\#>> 1>>> )> <- >>>> .TS> .NUM) (.AUX .DEF>) (.DEF)>> ) (DEF <>) "AUX" TS (QUOTE <>)) #DECL ((TARG MAIN) STRING (AUX TS) ) > >> !\@> "") (T > !\:) (.C)>) (<==? .C > ) (<==? .C !\:> ) (.C)>> >)>) (.AUX .DEF>) (.DEF)>> ]>) > >)>> .DESCS>> > ) OPS) #DECL ((STDNAME DESC) STRING (HEIGHT WIDTH CRPAD LFPAD) FIX (PAD) (CUR-NAME) ) > >)> > > >> STRING> >)> > > >> ) .DESC .AUX !>>> ,OP-VEC> > ) "AUX" TS) #DECL ((MAIN TARG) STRING (OTH AUX) ) >> >> ) (.OTH )>> > >) ()>> ) (> >> )>> > )>> > .BS>)>> ) (>> )>> ) (<=? .CUR-NAME "VS100"> <>) (>> 1>>)>> ) > ) ( > ) ( > [.OP1 .OP2 ""]) ( > STRING> >>) (>)>) (T ] TTY-ELT>>) (T ] TTY-ELT>>)>)>) ( > > ) ( > ) (T [.OP1 .OP2 ""])>) ( >>> <2 .OP2>) (.OP2)>>) ()>> ) (Y <>) "AUX" (PAD 0)) #DECL ((STR) STRING (X Y) (PAD) FIX) <>) ( "0123456789"> )) #DECL ((ST) STRING (C) CHARACTER) > > ) ( > >> <- >>>) (T )>> .STR>)> <>) (<==? .PAD 0> ) ( .PAD] TTY-OUT>) (T ["" <- .PAD>] TTY-OUT> ""])>> ) (Y <>) "AUX" (X-FIRST? <>) (FIRST-USED? <>) (LAST-START .STR) (INC? <>) (BCD? <>) TE (SST .STR)) #DECL ((STR) STRING (LAST-START) (TE) VECTOR (BCD? INC? X-FIRST? FIRST-USED?) (X Y) ) > .STR) (T ) ()>)> > !\%> > ) ( >>> ) (T > > ) (<==? .C !\r> > ) (<==? .C !\i> ) (<==? .C !\B> )> ) (T )>) (T ) (T )>)> FIX>>)> FIX>>)> FIX>>) (<==? .C !\2> FIX>>) (<==? .C !\3> FIX>>) (<==? .C !\.> FIX>>) (<==? .C !\+> FIX>> > ) (T FIX>>)> FIX>>> >) ( FIX>>>> >)> .ANUM)>>>> >) ( STRING>> )> >> ) ()>)>> FIX>>> >)> FIX>>> > >>)> FIX>> >) (<==? .ANUM ,TTY-LIT+> >>) (<==? .ANUM ,TTY-DECIMAL> ) (<==? .ANUM ,TTY-RJD2> ) (<==? .ANUM ,TTY-RJD3> )>>