.H			Copyright (c) 1996, Gary D. Campbell
NAME =USAGE
0000 USAGE	ENTRY
0000		=`0,@COPYRIGHT
0003	=CR,LF, "USAGE:  PTRAN <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 MML"
011E		=" (the Minimal Meta-Language)."
013B	=CR,LF,`8,"The Object File is created using the "
0163		="filepath of the Source, but"
017E	=CR,LF,`8,"with a .",`0,@OBJ," file extension. "
019D		=" The object file will be suitable for"
01C2	=CR,LF,`8,"LINKing to other XPL .",`0,@OBJ," files."
01E5	=CR,LF,`7,@ABORT
01EA PERIOD	ENTRY
01EA		="."
01EB SRC.EXT	ENTRY
01EB SRC:	="PT",0,0
01EF OBJ.EXT	ENTRY
01EF OBJ:	="OBJ",0
01F3 FIX.1	ENTRY
01F3		=4,0,0,0	/T (SP-->SP, HTs-->SPs) & trim WhiteSpace
01F7 FIX.2	ENTRY
01F7		= 0,0,0,0	default = SPs--> HTs	    EOL = CR,LF.
01FB ERRORS	ENTRY
01FB		=`3,@ERR.CNT," Error(s) in ",`0,@7C,CR,LF,0
0211 DONEOK	ENTRY
0211		=`0,@7C," Created O.K.",CR,LF,0
0224 EMPTY	ENTRY
0224		=`0,@7C," defined an empty Object File.",`7,@ABORT
0248 BAD.END	ENTRY
0248		="Abnormal Termination at: ",`0,@5D,`7,@ABORT
0267 NO.DEF.1	ENTRY
0267		=`8,"Undefined Pattern: ",`0,@5D,CR,LF,0
0281 E.O.CODE	ENTRY
.
0000 COPYRIGHT	0003 CR 	0003 LF 	01E5 ABORT
01FB ERR.CNT