ETHZ_Logo RAMSES_Logo_Right   RAMSES   RAMSES_Logo_Left Systems Ecology  
Start    search button      Modules:   A-Z   Function   Layer        QuickRefs:   DM   AuxLib   AuxLibE   SciLib   EasyMW   MW   ISIS   RMSLib

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.

  Contact RAMSES@env.ethz.ch Last updated: 25-Jul-2011 [Top of page]