(******************************************************************************
*                                PARAM11 .DEF                                 *
*                              ABO Software Dep.                              *
* Purpose : To provide a powerful interface to the comand line parameters.    *
*                                                                             *
*   Notes : The standard format for the command line is;                      *
*         Parameter = {Seperator'/'Option [Param]} {Param}.                   *
*         Option    = Str.                                                    *
*         Param     = (Seperator(Str|Int|Flt)).                               *
*         Seperator = ' '{' '}.                                               *
*                                                                             *
*         Version Date : 12/6/92                                              *
******************************************************************************)
DEFINITION MODULE PARAM11;

FROM STRS11 IMPORT Str4,Str80;

CONST
	MaxParam = 30;
TYPE

Param = Str80;

VAR
	Error  :BOOLEAN;
	Number :CARDINAL;
	Command:ARRAY[0..MaxParam] OF Param;
	
PROCEDURE Option(o:ARRAY OF CHAR):BOOLEAN;
PROCEDURE IntOption(o:ARRAY OF CHAR;VAR i:INTEGER):BOOLEAN;
PROCEDURE FltOption(o:ARRAY OF CHAR;VAR v:REAL):BOOLEAN;
PROCEDURE StrOption(o:ARRAY OF CHAR;VAR s:ARRAY OF CHAR):BOOLEAN;
PROCEDURE GetInt(i:INTEGER);
PROCEDURE GetFlt(r:REAL);
PROCEDURE GetStr(VAR s:ARRAY OF CHAR);
PROCEDURE Empty():BOOLEAN;
END PARAM11.