Return to list CVS log

Up to [Research Unix] / researchv9 / cmd / emacs / macros

Annotation of researchv9/cmd/emacs/macros/list, revision 1.1.1.1

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.