.;	 Title		C.CMD - COMPILE ONLY
	.ENABLE SUBSTITUTION
	.ENABLE	GLOBAL

	.SETS	UIC	<UIC>
	.TEST	UIC	","
	.SETS	GRP	UIC[2:<STRLEN>-1]
	.SETS	MOD	P1
	.IF	MOD	EQ "?"	.GOTO	HELP
	.ENABLE	QUIET
.;
	ASN	SY:=SR:
.;
.;	DETERMINE STATE OF OB: AND LS:
.;
	.SETF	SOBD
	.TESTDEVICE	OB:
	.TEST	<EXSTRI> "NSD"
	.IF	<STRLEN> EQ 0	.GOTO	020$
.;
.;	ASSIGN OB: TO SY:
.;
	.SETT	SOBD
	ASN	SY:=OB:
.020$:
	.SETF	SLSD
	.TESTDEVICE	LS:
	.TEST	<EXSTRI> "NSD"
	.IF	<STRLEN> EQ 0	.GOTO	040$
.;
.;	ASSIGN LS: TO SY:
.;
	.SETT	SLSD
	ASN	SY:=LS:
.040$:
	.DISABLE QUIET
.;
.;	NOW DETERMINE FILE TYPE .STN, .FTN, .MAC
.;
	.TESTFILE	'MOD'.STN
	.IF	<FILERR> NE 1	.GOTO	100$
.;
.;	MODULE IS SORTRAN MODULE
.;
	S4P	'MOD',LS:'MOD'/-SP='MOD'
	.IF	<EXSTAT> NE 1	.GOTO	ERR
	F77	OB:['GRP',24]'MOD',LS:'MOD'/-SP'P2'='MOD'
	.IF	<EXSTAT> NE 1	.GOTO	ERR
	PIP	'MOD'.FTN;*/DE/NM
	.GOTO	DONE
.100$:
	.TESTFILE	'MOD'.FTN
	.IF	<FILERR> NE 1	.GOTO	200$
.;
.;	MODULE IS FORTRAN MODULE
.;
	F77	OB:['GRP',24]'MOD',LS:'MOD'/-SP'P2'='MOD'
	.IF	<EXSTAT> NE 1	.GOTO	ERR
	.GOTO	DONE
.200$:
	.TESTFILE	'MOD'.MAC
	.IF	<FILERR> NE 1	.GOTO	300$
.;
.;	MODULE IS MACRO MODULE
.;
	MAC	OB:['GRP',24]'MOD',LS:'MOD'/-SP'P2'=[30,10]GA/ML,'UIC''MOD'
	.IF	<EXSTAT> NE 1	.GOTO	ERR
	.GOTO	DONE
.300$:
	.DISABLE DISPLAY
;
;	Want to try again, this time enter the right module name
;
.DONE:
	.ENABLE	QUIET
	ASN	=SR:
	.IFT	SOBD	ASN	=OB:
	.IFT	SLSD	ASN	=LS:
	.EXIT
.ERR:
	.DISABLE DISPLAY
;
;	Module has a problem or you do!!
;
	.GOTO	DONE
.HELP:
	.DISABLE DISPLAY
;
;	Complile module command file
;
;	1) Must be in the source uic
;	2) LS: and OB: must be pre-assigned if you wish to stuff these files
;		other than on '<SYDISK>''<SYUNIT>':.
;	3) LS: and OB: will be assigned to SY: upon entering this cmd file if
;		they are not already assigned.
;	4) Format is as follows:
;
;		>@C FILE SW
;		where:
;			FILE = file name only, no extension, C.cmd know diff.
;			SW   = legal output switches for approriate file ext.
;				such at /TR:NONE for fortran or sortran.
;
	.EXIT