CD Actual 11/CDACTUAL11.iso/cdactual/demobin/share/os2/XCO212P/SAMPLES/SIMPLE/DRY.MOD

Text File | 1996-01-06 | 8.1 KB | 266 lines

<*# IF __GEN_X86__ THEN *>
  <*+NOPTRALIAS*>
  <*-SPACE*>
  <*-GENHISTORY*>
<*# END *>
<*+M2EXTENSIONS*>
<*+ALIGNMENT*>
<*+PROCINLINE*>
<*-CHECKINDEX*>
<*-CHECKRANGE*>
<*-CHECKNIL*>
<*-IOVERFLOW*>
<*-COVERFLOW*>
<*-GENDEBUG*>
<*-LINENO*>

MODULE Dry;

IMPORT InOut, SysClock;
FROM Storage IMPORT ALLOCATE;

CONST   LOOPS = 4000000;

TYPE Enumeration    = (Ident1, Ident2, Ident3, Ident4, Ident5);
     OneToThirty    = INTEGER [1..30];
     OneToFifty     = INTEGER [1..50];
     CapitalLetter  = ['A'..'Z'];
     String30       = ARRAY [0..30] OF CHAR;
     Array1Dim      = ARRAY [0..50] OF INTEGER;
     Array2Dim      = ARRAY [0..50], [0..50] OF INTEGER;
     RecordPtr      = POINTER TO RecordType;
     RecordType     = RECORD
                        PtrComp : RecordPtr;
                        Discr : Enumeration;
                        EnumComp : Enumeration;
                        IntComp : OneToFifty;
                        StringComp : String30;
                      END;

VAR clocks, clocks0       : INTEGER;
    IntGlob               : INTEGER;
    BoolGlob              : BOOLEAN;
    Char1Glob, Char2Glob  : CHAR;
    Array1Glob            : Array1Dim;
    Array2Glob            : Array2Dim;
    PtrGlob, PGlobNext    : RecordPtr;

PROCEDURE time (VAR tm: INTEGER);       (* Get time - IGNORE MIDNIGHT! *)
VAR t: SysClock.DateTime;
BEGIN
    SysClock.GetClock (t);
    tm := (t.hour * 60 + t.minute) * 60 + t.second;
END time;

PROCEDURE Func1 (CharPar1, CharPar2 : CapitalLetter) : Enumeration; FORWARD;
PROCEDURE Func2 (VAR StrParI1, StrParI2 : String30) : BOOLEAN; FORWARD;
PROCEDURE Func3 (EnumParIn : Enumeration) : BOOLEAN; FORWARD;
PROCEDURE Proc3 (VAR PtrParOut : RecordPtr); FORWARD;
PROCEDURE Proc6 (EnumParIn : Enumeration; VAR EnumParOut : Enumeration); FORWARD;
PROCEDURE Proc7 (IntParI1, IntParI2 : OneToFifty; VAR IntParOut : OneToFifty); FORWARD;

PROCEDURE Proc1 (PtrParIn : RecordPtr);
BEGIN
      PtrParIn^.PtrComp^ := PtrGlob^;
      PtrParIn^.IntComp := 5;
      PtrParIn^.PtrComp^.IntComp := PtrParIn ^. IntComp;
      PtrParIn^.PtrComp^.PtrComp := PtrParIn ^. PtrComp;
      Proc3 (PtrParIn^.PtrComp^.PtrComp);
      IF PtrParIn^.PtrComp^.Discr = Ident1 THEN
         PtrParIn^.PtrComp^.IntComp := 6;
         Proc6 (PtrParIn ^. EnumComp, PtrParIn^.PtrComp^.EnumComp);
         PtrParIn^.PtrComp^.PtrComp := PtrGlob ^. PtrComp;
         Proc7 (PtrParIn^.PtrComp^.IntComp, 10, PtrParIn^.PtrComp^.IntComp);
      ELSE
         PtrParIn^ := PtrParIn^.PtrComp^;
      END;
END Proc1;

PROCEDURE Proc2 (VAR IntParIO : OneToFifty);
VAR IntLoc:OneToFifty;
VAR EnumLoc:Enumeration;
BEGIN
      IntLoc := IntParIO + 10;
      LOOP
         IF Char1Glob = 'A' THEN
            DEC (IntLoc); IntParIO := IntLoc - IntGlob; EnumLoc := Ident1;
         END;
         IF EnumLoc = Ident1 THEN EXIT END;
      END
END Proc2;

PROCEDURE Proc3 (VAR PtrParOut : RecordPtr);
BEGIN
        IF PtrGlob # NIL THEN
            PtrParOut := PtrGlob^.PtrComp;
        ELSE
            IntGlob := 100;
        END;
        Proc7 (10, IntGlob, PtrGlob^.IntComp);
END Proc3;

PROCEDURE Proc4;
VAR BoolLoc:BOOLEAN;
BEGIN
      BoolLoc := Char1Glob = 'A';
      BoolLoc := BoolLoc OR BoolGlob;
      Char2Glob := 'B';
END Proc4;

PROCEDURE Proc5;
BEGIN
      Char1Glob := 'A'; BoolGlob := FALSE;
END Proc5;

PROCEDURE Proc6 (EnumParIn : Enumeration; VAR EnumParOut : Enumeration);
BEGIN
      EnumParOut := EnumParIn;
      IF NOT Func3 (EnumParIn) THEN
         EnumParOut := Ident4;
      END;
      CASE EnumParIn OF
      |  Ident1:      EnumParOut := Ident1;
      |  Ident2:      IF IntGlob > 100 THEN
                         EnumParOut := Ident1;
                      ELSE
                         EnumParOut := Ident4;
                      END;
      |  Ident3:      EnumParOut := Ident2;
      |  Ident4:
      |  Ident5:      EnumParOut := Ident3;
      END;
END Proc6;

PROCEDURE Proc7 (IntParI1, IntParI2 : OneToFifty; VAR IntParOut : OneToFifty);
VAR IntLoc:OneToFifty;
BEGIN
        IntLoc := IntParI1 + 2;
        IntParOut := IntParI2 + IntLoc;
END Proc7;

PROCEDURE Proc8 (VAR Array1Par : Array1Dim; VAR Array2Par : Array2Dim;
                 IntParI1, IntParI2 : OneToFifty);
VAR IntLoc, IntIndex:OneToFifty;
BEGIN
        IntLoc := IntParI1 + 5;
        Array1Par [IntLoc] := IntParI2;
        Array1Par [IntLoc + 1] := Array1Par [IntLoc];
        Array1Par [IntLoc + 30] := IntLoc;
        FOR IntIndex := IntLoc TO IntLoc + 1 DO
                INC (Array2Par [IntLoc] [IntLoc - 1]);
        END;
        Array2Par [IntLoc + 20] [IntLoc] := Array1Par [IntLoc];
        IntGlob := 5;
END Proc8;

PROCEDURE Func1 (CharPar1, CharPar2 : CapitalLetter) : Enumeration;
VAR CharLoc1,CharLoc2:CapitalLetter;
BEGIN
      CharLoc1 := CharPar1;
      CharLoc2 := CharLoc1;
      IF CharLoc2 # CharPar2 THEN RETURN Ident1 ELSE RETURN Ident2 END;
END Func1;

PROCEDURE Func2 (VAR StrParI1, StrParI2 : String30) : BOOLEAN;
VAR IntLoc:OneToThirty;
VAR CharLoc:CapitalLetter;
BEGIN
      IntLoc := 1;
      WHILE IntLoc <= 1 DO
         IF Func1 (StrParI1 [IntLoc], StrParI2 [IntLoc + 1]) = Ident1 THEN
            CharLoc := 'A'; INC (IntLoc);
         END;
      END;
      IF (CharLoc >= 'W') AND (CharLoc <= 'Z') THEN
         IntLoc := 7;
      END;
      IF CharLoc = 'X' THEN
         RETURN TRUE;
      ELSE
         IF StrParI1 > StrParI2 THEN
            INC (IntLoc, 7);
            RETURN TRUE;
         ELSE
            RETURN FALSE;
         END;
      END
END Func2;

PROCEDURE Func3 (EnumParIn : Enumeration) : BOOLEAN;
VAR EnumLoc:Enumeration;
BEGIN
        EnumLoc := EnumParIn;
        IF EnumLoc = Ident3 THEN
                RETURN TRUE;
        END;
        RETURN FALSE;
END Func3;

PROCEDURE Proc0;
        VAR IntLoc1, IntLoc2, IntLoc3 : OneToFifty;
            CharLoc, CharIndex : CHAR;
            EnumLoc : Enumeration;
            String1Loc, String2Loc : String30;
            starttime, benchtime, nulltime, totaltime : INTEGER;
            i : INTEGER;
BEGIN
        InOut.WriteString ("Please, wait about 60 seconds");
        InOut.WriteLn;
        time (starttime);
        FOR i := 1 TO LOOPS DO
        END;
        time (benchtime);
        nulltime := benchtime - starttime;

        ALLOCATE  (PGlobNext, SIZE (PGlobNext^));
        ALLOCATE  (PtrGlob,   SIZE (PtrGlob^));
        PtrGlob ^. PtrComp  := PGlobNext;
        PtrGlob ^. Discr    := Ident1;
        PtrGlob ^. EnumComp := Ident3;
        PtrGlob ^. IntComp  := 40;
        PtrGlob ^. StringComp := "DHRYSTONE PROGRAM, SOME STRING";
        String1Loc := "DHRYSTONE PROGRAM, 1'ST STRING";
        time (starttime);

        FOR i := 1 TO LOOPS DO
            Proc5;
            Proc4;
            IntLoc1    := 2;
            IntLoc2    := 3;
            String2Loc := "DHRYSTONE PROGRAM, 2'ND STRING";
            EnumLoc    := Ident2;
            BoolGlob   := NOT Func2 (String1Loc, String2Loc);
            WHILE IntLoc1 < IntLoc2 DO
               IntLoc3 := 5 * IntLoc1 - IntLoc2;
               Proc7 (IntLoc1, IntLoc2, IntLoc3);
               INC (IntLoc1);
           END;
           Proc8 (Array1Glob, Array2Glob, IntLoc1, IntLoc3);
           Proc1 (PtrGlob);
           FOR CharIndex := 'A' TO Char2Glob DO
               IF EnumLoc = Func1 (CharIndex, 'C') THEN
                  Proc6 (Ident1, EnumLoc);
               END;
           END;
           IntLoc3 := IntLoc2 * IntLoc1;
           IntLoc2 := IntLoc3 DIV IntLoc1;
           IntLoc2 := 7 * (IntLoc3 - IntLoc2) - IntLoc1;
           Proc2 (IntLoc1);
        END;
        time (benchtime);
        totaltime := benchtime - starttime - nulltime;
        InOut.WriteString ("Dhrystone time for");
        InOut.WriteCard   (LOOPS, 0);
        InOut.WriteString (" passes =");
        InOut.WriteInt    (totaltime, 0);
        InOut.WriteLn;
        InOut.WriteString  ("This machine benchmarks at");
        InOut.WriteInt     (LOOPS / totaltime, 0);
        InOut.WriteString  (" dhrystones/second");
        InOut.WriteLn;
END Proc0;

BEGIN
    Proc0;
END Dry.