obliqlib3D/src/ObBool.m3


Copyright (C) 1994, Digital Equipment Corp.
       Created on Tue Jan 20 14:00:00 PST 1994 by najork                   

MODULE ObBool;

IMPORT ObLib, ObValue, SynLocation;

PROCEDURE GetArg (args    : ObValue.ArgArray;
                  idx     : INTEGER;
                  package : ObLib.T;
                  opCode  : ObLib.OpCode;
                  loc     : SynLocation.T) : BOOLEAN RAISES {ObValue.Error} =
  BEGIN
    TYPECASE args[idx] OF
      ObValue.ValBool (node) => RETURN node.bool;
    ELSE
      ObValue.BadArgType (idx, "Bool", package.name, opCode.name, loc);
      RETURN FALSE;         (* ... only to suppress compiler warning *)
    END;
  END GetArg;

BEGIN
END ObBool.