Обычный текстовый редактор TECO и его макросы
Код:
!
DIRFIX.TEC
TECO macro to manipulate directory-listing files
generated by PIP or SRD
Eliminates all header, trailer lines associated with
a directory; and prefixes each filespec with the [g,m]
directory identifier
Purpose: makes file easily searchable with a utility
such as GREP so that full file location is displayed
when match is found
Technique: lines containing [ are assumed to be direct-
ory headers. Lines containing ; are assumed filespecs.
Some fancy stuff included so TECO can handle the fact
that the wierd format of PIP (and SRD??) outputs causes
buffer reads (:A op) to sometimes have a partial line
image at end of buffer.
Modification history:
13-Mar-82 Change to trim line down to filespec only
5-Nov-82 Change to elim [*,*] lines, insert leading
zeroes to force g,m to fixed-length
8-Nov-82 Change so can handle PIP /FU listings
To use: MUNG DIRFIX,filespec
Will create a new version for output via the EB command.
!
JX1 EBQ1
^U1[]
HK
<:100A;-1U2
< Q2"E 0L **DEL**> TK .-Z; |
FBL; -L'
0U2 :FB[*,*
"F :fb;"f :fb[
"t ^u1[ \ 3+^s<:^u10> :^yx1 :^u1, fb
\ 3+^s<:^u10> :^yx1 :^u1] '
| -1U2 0L G1 FB;\ KI
-T'
'
>
0,.PW 0,.K
>
EF
***> DONE ***>
EX