"This package contains the useful stuff in the old STR package, rewritten in Muddle instead of assembly code." "STRTOX -- String to Sixbit, takes a string and returns a single-word sixbit representation of it" (CNT C) FIX) ) (>> 31> > )>>) (ELSE )> .C>> > 6> )> >>>> "SIXTOS -- Sixbit to String, takes a sixbit word and returns the string corresponding to it. Note that trailing sixbit spaces are not put in the string returned." )) #DECL ((W) (Q) ) ) > > > 32>>> > > ) (.C)>>>> "CHARACTER <-> FIX : Faster than ASCII." > > "SUBSTR -- Substring search, takes arguments such as MEMQ and optionally a maximum length to search and a flag indicating whether case is to be considered significant" ) (CASE? T) "AUX" (S .S1) (WIN <>) (CNT 0) C) #DECL ((S S1 S2) STRING (WIN) (N CNT) FIX (C) CHARACTER) > .N> >) ( >> <==? > >> 32>>) (ELSE .C)> > > > >> > 32>>) (ELSE <1 .S>)>>>> > >> )>) (ELSE >)>> .S2>> "SUBSNC -- Substring No Case, encapsulates SUBSTR with a fourth arg of <>" )) #DECL ((S1 S2) STRING (N) FIX) >> "UPPERCASE -- Uppercases a string, clobbers the old string." )) #DECL ((S) STRING (CNT) FIX) > 0> ) (> > > >> > 32>>>)> >> .S> "LOWERCASE -- Lowercases a string, clobbers the old string." )) #DECL ((S) STRING (CNT) FIX) > 0> ) (> > > >> > 32>>>)> >> .S>