|
|
|
|
||
|
DEFINITION MODULE ScanAux; (******************************************************************* Module ScanAux (Version 1.0) Copyright (c) 1996-2006 by Dimitrios Gyalistras and ETH Zurich. Purpose Auxiliary procedures for scanning with the aid of module "Scanner". Remarks -- Programming o Design Dimitrios Gyalistras 28/03/1996 o Implementation Dimitrios Gyalistras 28/03/1996 ETH Zurich Systems Ecology CHN E 35.1 Universitaetstrasse 16 8092 Zurich SWITZERLAND URLs: <mailto:RAMSES@env.ethz.ch> <http://www.sysecol.ethz.ch> <http://www.sysecol.ethz.ch/SimSoftware/RAMSES> Last revision of definition: 10/12/1996 DG *******************************************************************) FROM Scanner IMPORT Symbol; VAR globErrTxt : ARRAY [0..127] OF CHAR ; PROCEDURE DocumentError( explanation: ARRAY OF CHAR ); PROCEDURE SkipToSym( ss: Symbol ):BOOLEAN; PROCEDURE Get( ss: Symbol ): BOOLEAN; PROCEDURE GetInteger(VAR int:INTEGER):BOOLEAN; PROCEDURE GetLongInt(VAR lint:LONGINT):BOOLEAN; PROCEDURE GetReal(VAR real:REAL ):BOOLEAN; PROCEDURE GetLongReal(VAR lreal:LONGREAL ):BOOLEAN; PROCEDURE GetString( VAR str:ARRAY OF CHAR ):BOOLEAN; PROCEDURE GetID(VAR id:ARRAY OF CHAR): BOOLEAN; END ScanAux.
|
||
|
|
|