! ! ! EXPAND 01.00 ! ! ! ! Last edited by: K.J. CROSS ! ! 26-AUG-80 ! ! ! ! This TECO macro is designed to be ! ! executed via the following "MUNG" ! ! command: MUN EXPAND,filespec ! ! where "filespec" is the filespec ! ! of the file(s) to be expanded. ! ! ! ! Expansion consists of converting ! ! all tabs to ! ! spaces to form an equivalent spacing. ! ! ! Z"E @^A% No file specifications. Execution is initiated using this command line: MCR>MUN LB:[201,5]EXPAND,filespec to expand the files in "filespec". Wildcards are allowed. %EX' ! ! ! Save the filespec in Q-reg F. ! ! ! ^O0ED HXF HK @EN%^EQF% ! ! ! If this is a scope, ask if he wants ! ! to watch the progress. ! ! ! @EI%% 0UW ET&512"N @^A% Watch progress [Y/N]: % ^T-^^Y"E -1UW 1,3:W -1W ' ' ! ! ! Loop through all the files. ! ! ! < @:EN%%"U EX' @EB%^EQ*% Y ! ! ! Loop through the buffer. ! ! ! !BUFF! < J .-Z; < @FS%^ES % %; > ! ! ! Loop through the current line. ! ! ! < 1UP < .-Z; 0A-37"G C %P^[ F< ' 0A-11"E D QP&7"E 40@I%% | 11-(QP&7) <40@I%%> ' 1UP QW"T -1W ' F< ' ::@S%^EL% :; QW"T -1W ' C %P^[ > ! End of line. ! .-Z; > .-Z; > ! End of buffer. ! ^N"F P @O%BUFF% ' EC ! ! ! End of current file. Try for another.! ! ! >