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

DEFINITION MODULE Journaling;

  (*******************************************************************

    Module  Journaling     (Version 1.0)

      Copyright (c) 1989-2006 by Andreas Fischlin and ETH Zurich.

    Purpose   Write textual output simultaneously to a window and
              to a journal text file.

    Remarks   Provides routines with same idents as those from
              module DMWindIO.  Besides the journaling these
              routines function exactly as described under
              DMWindIO.

              This is a fix for missing implementation of
              SaveFollowingText from module DMSaveOutput.
              This would require modifications of the DM
              implementation, which I currently can't afford
              to make (AF 18/04/1989).


    Programming

      o Design
        Andreas Fischlin          18/04/1989

      o Implementation
        Andreas Fischlin          18/04/1989


    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:  05/03/1991  AF

  *******************************************************************)


  PROCEDURE OpenJournal;
  PROCEDURE CloseJournal;

  PROCEDURE Write(ch: CHAR);
  PROCEDURE WriteString ( s: ARRAY OF CHAR );
  PROCEDURE WriteLn;
  PROCEDURE WriteInt ( i,c: INTEGER );
  PROCEDURE WriteReal ( x: REAL; fw,dec: INTEGER );
  PROCEDURE WriteRealSci ( x: REAL; fw,dec: INTEGER );
  PROCEDURE EraseContent;

END Journaling.