! ! ! MACREV - REVISION HISTORY BLOCK ! ! MAINTENANCE TECO MACRO FOR .MAC FILES.! ! ! ! !!X01.02!! ! ! ! ! X01.01 - CHECK FOR IDTITL AND IDENT ! ! ! ! X01.02 - PRESERVE FORM-FEED FLAG (^E) ! ! ! EP:@ER%LB:[201,5]REVBLK.TEC%"S ! ! ! READ THE FILE INTO Q-REG 5 AND ! ! EXECUTE IT. THE ITERATION LOOP IS ! ! REQUIRED TO MAKE SURE THE WHOLE FILE ! ! IS READ INTO THE Q-REG. IF THE LOOP ! ! IS REQUIRED, LOADING WILL BE VERY SLOW! ! ! ! NOTE: THIS ROUTINE ASSUMES THAT ! ! REVBLK.TEC TERMINATES WITH A FORM-FEED! ! CHARACTER. IF IT DOESN'T, THE STATUS ! ! OF THE FORM-FEED FLAG (^E) OF THE ! ! ORIGINAL INPUT FILE WILL BE LOST. ! ! ! [3 ZJ ZU3 [5 ^EU5 A Q3,ZX5 Q3,ZK ^E"F <1:A; Q3,Z:X5 Q3,ZK ^E"T 0;' > ' ! ! ! IF THE INPUT FILE DIDN'T HAVE A FORM- ! ! FEED AT THE END, DO ONE MORE APPEND ! ! TO RESET THE FORM-FEED FLAG (^E). ! ! ! Q5"F :A^[ Q3,ZK ' ! ! ! SAVE THE COMMENT CHARACTER IN Q-REG X ! ! AND EXECUTE THE MACRO. ! ! ! [X @^UX%;% @EI%% M5^[ ! ! ! IF WE GOT A VALID VERSION, PROCESS IT.! ! ! QX"T [A EDUA 0ED ! ! ! SAVE MODULE NAME FOR POSSIBLE USE IN .TITLE ! ! ! J :@S%Module name:^ES% "S XA ! ! ! SET UP MODULE NAME IN .TITLE IF NOT DONE YET ! ! ! J :@S%.TITLE%"U J @I% .TITLE % GA ' ' ! ! ! PUT THE NEW VERSION INTO THE .IDENT FIELD ! ! ! J :@S%.IDENT^N:%"U JL @I% .IDENT % 2R | R ' K @I% /% GX @I%/ % ! ! ! IF THE FIRST LINE CONTAINS "IDTITL" OR "IDENT"! ! (FROM THE PIPMAC PREFIX FILE), UPDATE THE ! ! IDENT IN THE FIRST ARGUMENT. ITS FORMAT IS: ! ! "NNMM", E.G., X02.34 WOULD BE 0234. ! ! ! J :@FB%^ESIDTITL%"S @O%ID% ' :@FB%^ESIDENT% "S !ID! ::@S%^ES% "S .UX :@FB%,% "S R QX,.K GX 2R -D 2R -D ' ' ' ! ! ! PUT THE VERSION IN THE DEFINITION OF .IDENT ! ! IF IT IS AROUND SOMEWHERE. ! ! ! J :@S%.IDENT:%"S @O%EQ% ' :@S%.IDENT^ES:%"S !EQ! :@FB%.RAD50%"S K @I% /% GX @I%/ % ' ' QAED ]A ']X ]5 ]3 ' @ER%% ! ! ! FINALLY, POSITION US AFTER THE HISTORY BLOCK. ! ! ! J 2:@S%**-%"S L '