PWB1/usr/lib/macros/mmcrunch

: crunch procedure for -mm.  Creates $1.m $1.mtoc $1.mcs from $1.src.
	rm -f $1.mcs $1.mtoc $1.m
	cp $1.src TMP$1.src
	chmod 666 TMP$1.src
	pump | ed - TMP$1.src
3,\$g/^''*	/d
1,\$s/\\".*//
1,\$s/@//g
/ds.*RE/g//s//@/
w
e
g/if/s/if  */if/g
g/^[.'][abcdefghijklmnopqrstuvwxyz][abcdefghijklmnopqrstuvwxyz]  */s/  *//
g/^.if.*[.'][abcdefghijklmnopqrstuvwxyz][abcdefghijklmnopqrstuvwxyz] /ka\
s/^\(.*[.'][abcdefghijklmnopqrstuvwxyz][abcdefghijklmnopqrstuvwxyz]\)  */\1/
w
/S>TOC/+1;/E>TOC/-w $1.mtoc
/S>TOC/;/E>TOC/d
/S>CS/+1;/E>CS/-w $1.mcs
/S>CS/;/E>CS/d
w $1.m
q
!

rm -f TMP$1.src
chmod 664 $1.m $1.mcs $1.mtoc
chgrp pw $1.m $1.mcs $1.mtoc
chown bin $1.m $1.mcs $1.mtoc
exit 0
	deletes all comments lines
	deletes \" sections
	converts @ to bell for convenient delimiter
	crunches out blanks in appropriate places
		watch out for .if blah .ds S ".xx   12345      !!!!!
	DOES NOT take out .tm commands