.; inmp.cmd - macro from .mac to .obj, including prefix files
.; p1	name of macro file					foo
.; p2	purpose of macro file			use_SMSG$_to_break_DECnet
.; p3:9	any desired prefix files	lb:[1,1]rsxmac.mlb/ml	pre.mac
.;	WARNING: file names are .testfile'd so give extensions !
.;
.; cleanup:	delete 'p1'.obj
.;
	.enable substitution
	.sets prefix ""
	.setn n 2.
.loop:
	.inc n
	.if n > 9. .goto done
	.sets pn "p'n'"
	.test 'pn'
	.if <strlen> = 0 .goto loop
	.parse 'pn' "/" filnam junk
	@inx 'filnam' prefix_to_macro_for_'p2'
	.sets prefix prefix+'pn'+","
	.goto loop
.done:
	@inm 'p1' 'p2' 'prefix'
.;	.sets p3 "'prefix'"
.;	.chain inm/LO
