.; inc.cmd - compile a program with decus c
.; p1	name of program to compile			foo
.; p2	what the program does		rotating_interrupt_vectors_1_bit
.; #1	file to write commands into for cleanup
.; #3	file to write requirements
.;
.; out:		foo.obj
.; cleanup:	delete foo.obj
.;
	.enable substitution
	.enable escape
	.data #3 you need C program source 'p1'.c for 'p2'
	@ini ...xcc $cc DECUS_C_compiler
	@ini ...xas $as DECUS_C_assembler
	@ini ...pip $pip DEC_file_utility
.retry:
	xcc 'p1' -a
	.if <exstat> = <succes> .goto ok
	; PROBLEM -- I wanted to compile 'p1' using DECUS C
	; I needed it for 'p2'
	.asks junk type <ESCAPE> to continue regardless, <RETURN> to retry
	.ift <escape> .goto banzai
	; PAUSING so you can correct the problem before retrying
	.pause
	.goto retry
.banzai:
.ok:
	.testfile 'p1'.obj
	.data #1 pip '<filspc>'/de/nm
	.exit <succes>
