Return to list CVS log

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

researchv9-SUN3(old)

L			Edit a List of Files or (arg != 1) of manual pages

C. Douglas Blewett (DR30L19) Version 4

This file contains a command that allows the user to edit
(recursively) a list of files.  This is much like vi's :next
command.  The list of files is collected in .exec and the files
are edited in .list.  This is useful for making changes in a global
variable that appears in a list of files (e.g. ^XL *.c).

If an argument other than 1 is given then the command looks up the
file name in the directories known to contain manual pages.  This
routine contains a string with embedded paths to the manual
directories.

An "ls -d" is performed, so full Bourne shell style wild carding is
available.  This is very useful for manual page searches
(e.g. ^U^XL *open*).

Modified to preserve the sanity of .exec. Saves the point, mark,
and extent of .exec.

	B<List of files ?
	0>				Get the string
	<
	|�				Input Conditional
		�&			Check for Null string
			-<
		�				Null Check End
		� 				Default
			0<Wait
			0				Print "Wait"
			<.exec
								Move to .exec
			6�0=7�1=		Current pos.
			8�0=9�1=	Save the mark
			�				Meta Moon
			5�0=				Save the eoB
			|�				Check for man
				�1~1	Arg == 1 normal list
					exec /bin/ls -d -

				�
				� 			man request
					exec ls -d /usr/man/man?/.* /usr/ncmp/man/man?/.* /usr/man/local/.*-

				�
			�
			<usilent
			�
				Run the command
			
�5�
<usilent
			
				Reset usilent
			|�
				�1~1	Arg == 1 normal list
				�
				� 			man request
					<not found
					^��
						
1-
						<not found
					�
					5�

				�
			�
			�1				TRUE = 1
			^�4~0		Loop forever
				^�		Loop through filenames
					<.list
						Read in the file
					0<Editing a List of Files: ^Z to move to the next file
					0	Print "List"
							Edit the file
					<.exec
							Move back and cleanup
					
		The rest of the line
				�
				5�
�0
				!�-<End of List: r to Rewind or Press Return
					�r	Rewind
						0<Rewinding
						0
						-
					�
					��
						�0	Zero == FALSE
					�
				�				Rewind End
			�				Forever End
			5�-��-6�7�
			8�9	Reset point and mark
			%		Cleanup and Move back
			<.list
			
		�				Default End
	�				Input Conditional End
	0<
	0		Cleanup of Print "Wait" and "List"


This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.