!* -*- TECO -*- ! !~Filename~:! !Macros for helping with User-Accounts inquiries! USER-A !& Get User Accounts Files:! !& Get a list of User-Accounts files If given an argument, get the list sorted backwards in time! f[dfile !* Bind default filename ! er NIL;.FILE._(DIR) @y !* Yank in directory ! m(m.m Keep_Lines)CLSTUFF !* Flush un-interesting filenames ! j <.-z; iNIL;DSK: 6d 13c :k l> !* Format filenames ! j sCL_____STUFF 0l k !* Flush current version ! FF&1"N sCL$\l !* Sort buffer ! zj i DSK: NIL; CL_____STUFF ' !* and end with current ! "# :sCL$\l !* Sort buffer backwards ! j i DSK: NIL; CL_____STUFF ' !* Beginning with current !  !& Pop QReg:! !S Pop q, returning value what was popped! [..O !* Make argument buffer current ! z"e 0' !* If no more lines, return 0 ! j1:fx*(k) !* Return first line, saving rest ! !Locate Text:! !S Locate a string of text in the user accounts back mail Give it an argument to reverse the search! f[dfile !* Bind default filename ! [Buffer_Filenames !* Bind Emacs file defaults ! [0[1[2[3[4[5[..J !* Bind scratch q-regs ! e[e\fne^e] !* Close all files that happen ! !* to get open in this process ! ff&1 "e -1u5 '"# 1u5' !* -1 => reverse search ! 1[Inhibit_Write !* Dont do gratuitous write-back ! :i..J[User-Accounts_Search] !* Bind mode line ! 1 fs mode change !* Mention mode line needs fixing ! 1,f Locate:_ u0 !* Read a string to locate in q0 ! fq0"l 0' !* Exit if over-rubout ! fq0"e !* Null string ! 1,m(m.m &_Read_Line) Locate:_ u0 !* So read another entry ! fq0:"g 0'' !* Return if still nothing seen ! f[bbind q..ou1 !* Get a temp buffer for filenames ! Fm(m.m &_Get_User_Accounts_Files)!* Get filenames to try in q1 ! f[bbind !* Do all this in a temp buffer ! f !* Loop ! > !* Loop !  !* Pop state ! !& Locate Text Command:! !& Prompt for a command from user and execute it! [0[1[2 !* Bind scratch qreg ! bu1zu2 !* remember our region ! < !Top! :i*Cfs echo display out !* Clear echo area ! !no-clear-top! fsrgetty"n@'ftCommand:_ 0u..H !* Then pause ! fiu0 !* Read a character into q0 ! q0-a:"l q0-z:"g q0-40.u0'' !* Upcase if necessary ! q0-"e  otop' !* ^R = Edit buffer ! q0-_ "e !* Space = Forward screen ! @m(m.m ^R_Next_Screen) @V oTop' q0-"e !* Backspace = Back screen ! @m(m.m ^R_Previous_Screen) @V oTop' q0-N "e -1' !* Altmode = Continue ! q0-Q "e f;Locate-Text-Exit' !* Q = Exit ! q0-W "e !* W = Write File ! f[D File !* Bind default file ! 0[Buffer_Filenames !* Bind buffer filenames ! et DSK:NIL;FUBAR_> !* Hack default filename ! h @m(m.m Write_Region) !* Write out text in region ! ]Buffer_Filenames !* Unbind default file ! f]dfile O no-clear-top' !* Unbind the world ! q0-Z "e 0' !* Z = Skip rest of file ! q0- "e @v oTop' !* Control-L = Redisplay ! q0-."e j @v oTop' !* . = Reselect current message ! (q0-)*(q0-)"e !* Control-C or Control-Z = ! 100000.fsexit @v oTop' !* Return to Superior ! q0-?"e ft ________Command_____Description  ________or______Return_to_Superior_temporarily __________________Enter_-Mode_on_buffer_(C-M-C_returns) ________Space_______Go_forward_a_screenful _______Backspace____Go_back_a_screenful _______Control-L____Redisplay ___________.________Jump_to_head_of_currently_selected_text ___________N________Proceed_to_next_match ___________Q________Quit ___________W________Write_text_on_screen_to_file_(reads_filename) ___________Z________Skip_rest_of_this_file ___________?________Types_this_message  0u..H oTop' fg !* Beep - Not Understood ! > !* Loop !