|
|
1.1 ! root 1: L Edit a List of Files or (arg != 1) of manual pages ! 2: ! 3: C. Douglas Blewett (DR30L19) Version 4 ! 4: ! 5: This file contains a command that allows the user to edit ! 6: (recursively) a list of files. This is much like vi's :next ! 7: command. The list of files is collected in .exec and the files ! 8: are edited in .list. This is useful for making changes in a global ! 9: variable that appears in a list of files (e.g. ^XL *.c). ! 10: ! 11: If an argument other than 1 is given then the command looks up the ! 12: file name in the directories known to contain manual pages. This ! 13: routine contains a string with embedded paths to the manual ! 14: directories. ! 15: ! 16: An "ls -d" is performed, so full Bourne shell style wild carding is ! 17: available. This is very useful for manual page searches ! 18: (e.g. ^U^XL *open*). ! 19: ! 20: Modified to preserve the sanity of .exec. Saves the point, mark, ! 21: and extent of .exec. ! 22: ! 23: B<List of files ? ! 24: 0> Get the string ! 25: < ! 26: |� Input Conditional ! 27: �& Check for Null string ! 28: -< ! 29: � Null Check End ! 30: � Default ! 31: 0<Wait ! 32: 0 Print "Wait" ! 33: <.exec ! 34: Move to .exec ! 35: 6�0=7�1= Current pos. ! 36: 8�0=9�1= Save the mark ! 37: � Meta Moon ! 38: 5�0= Save the eoB ! 39: |� Check for man ! 40: �1~1 Arg == 1 normal list ! 41: exec /bin/ls -d -& ! 42: � ! 43: � man request ! 44: exec ls -d /usr/man/man?/.* /usr/ncmp/man/man?/.* /usr/man/local/.*-& ! 45: � ! 46: � ! 47: <usilent ! 48: � Run the command ! 49: &�5�&<usilent ! 50: Reset usilent ! 51: |� ! 52: �1~1 Arg == 1 normal list ! 53: � ! 54: � man request ! 55: <not found ! 56: ^�� ! 57: &1- ! 58: <not found ! 59: � ! 60: 5�& ! 61: � ! 62: � ! 63: �1 TRUE = 1 ! 64: ^�4~0 Loop forever ! 65: ^� Loop through filenames ! 66: <.list ! 67: Read in the file ! 68: 0<Editing a List of Files: ^Z to move to the next file ! 69: 0 Print "List" ! 70: Edit the file ! 71: <.exec ! 72: Move back and cleanup ! 73: & The rest of the line ! 74: � ! 75: 5�&�0 ! 76: !�-<End of List: r to Rewind or Press Return ! 77: �r Rewind ! 78: 0<Rewinding ! 79: 0 ! 80: - ! 81: � ! 82: �� ! 83: �0 Zero == FALSE ! 84: � ! 85: � Rewind End ! 86: � Forever End ! 87: 5�-��-6�7� ! 88: 8�9 Reset point and mark ! 89: % Cleanup and Move back ! 90: <.list ! 91: ! 92: � Default End ! 93: � Input Conditional End ! 94: 0< ! 95: 0 Cleanup of Print "Wait" and "List" ! 96:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.