.H			Copyright (c) 1996, Gary D. Campbell
NAME =USAGE
0000 USAGE	ENTRY
0000		=`0,@COPYRIGHT
0003	=CR,LF, "USAGE:  OTRAN <filepath>[.",`0,@SRC
0022		="]"
0023	=CR,LF,`8,"A utility to translate a minimal meta"
004B		="-definition into a .",`0,@OBJ," file"
0067	=CR,LF,`8,"suitable for building a more advanced"
008F		=" source to object translator."
00AC	=CR,LF,"<filepath> must name a .",`0,@SRC," file (the fi"
00D6		="le extension, .",`0,@SRC,", is optional)"
00F6	=CR,LF,`8,"containing pattern definitions in the"
011E		=" OTRAN Meta-Language."
0133	=CR,LF,`8,"The Object File is created using the "
015B		="filepath of the Source, but"
0176	=CR,LF,`8,"with a .",`0,@OBJ," file extension. "
0195		=" The object file will be suitable for "
01BB	=CR,LF,`8,"LINKing to other XPL .",`0,@OBJ," files."
01DE		=CR,LF,`7,@ABORT
01E3 PERIOD	ENTRY
01E3		="."
01E4 SRC.EXT	ENTRY
01E4 SRC:	="OT",0,0
01E8 OBJ.EXT	ENTRY
01E8 OBJ:	="OBJ",0
01EC FIX.1	ENTRY
01EC		=4,0,0,0	/T (SP-->SP, HTs-->SPs) & trim WhiteSpace
01F0 FIX.2	ENTRY
01F0		= 0,0,0,0	default = SPs--> HTs	    EOL = CR,LF.
01F4 ERRORS	ENTRY
01F4		=`3,@ERR.CNT," Error(s) in ",`0,@7C,CR,LF,0
020A DONEOK	ENTRY
020A		=`0,@7C," Created O.K.",CR,LF,0
021D EMPTY	ENTRY
021D		=`0,@7C," defined an empty Object File.",`7,@ABORT
0241 BAD.END	ENTRY
0241		="Abnormal Termination at: ",`0,@5D,`7,@ABORT
0260 NO.DEF.1	ENTRY
0260		=`8,"Undefined Pattern: ",`0,@5D,CR,LF,0
027A E.O.CODE	ENTRY
.
0000 COPYRIGHT	0003 CR 	0003 LF 	01DE ABORT
01F4 ERR.CNT