home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 10 / Fresh_Fish_10_2352.bin / new / dev / obero / oberon-a / source / library / util.mod < prev    next >
Text File  |  1995-06-29  |  1KB  |  70 lines
  1. (***************************************************************************
  2.  
  3.      $RCSfile: Util.mod $
  4.   Description: Utility procedures
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 1.8 $
  8.       $Author: fjc $
  9.         $Date: 1995/06/04 23:22:41 $
  10.  
  11.   Copyright © 1994-1995, Frank Copeland.
  12.   This file is part of the Oberon-A Library.
  13.   See Oberon-A.doc for conditions of use and distribution.
  14.  
  15. ***************************************************************************)
  16.  
  17. MODULE Util;
  18.  
  19. PROCEDURE MaxShortint * (a, b : SHORTINT) : SHORTINT;
  20.  
  21. BEGIN
  22.   IF a > b THEN RETURN a END; RETURN b
  23. END MaxShortint;
  24.  
  25. PROCEDURE MinShortint * (a, b : SHORTINT) : SHORTINT;
  26.  
  27. BEGIN
  28.   IF a < b THEN RETURN a END; RETURN b
  29. END MinShortint;
  30.  
  31. PROCEDURE MaxInt * (a, b : INTEGER) : INTEGER;
  32.  
  33. BEGIN
  34.   IF a > b THEN RETURN a END; RETURN b
  35. END MaxInt;
  36.  
  37. PROCEDURE MinInt * (a, b : INTEGER) : INTEGER;
  38.  
  39. BEGIN
  40.   IF a < b THEN RETURN a END; RETURN b
  41. END MinInt;
  42.  
  43. PROCEDURE MaxLongint * (a, b : LONGINT) : LONGINT;
  44.  
  45. BEGIN
  46.   IF a > b THEN RETURN a END; RETURN b
  47. END MaxLongint;
  48.  
  49. PROCEDURE MinLongint * (a, b : LONGINT) : LONGINT;
  50.  
  51. BEGIN
  52.   IF a < b THEN RETURN a END; RETURN b
  53. END MinLongint;
  54.  
  55. PROCEDURE PowerOfTwo * (power : SHORTINT) : LONGINT;
  56.  
  57. VAR
  58.   result : LONGINT;
  59.  
  60. BEGIN
  61.   result := 1;
  62.   WHILE power > 0 DO
  63.     result := result * 2;
  64.     DEC(power);
  65.   END;
  66.   RETURN result;
  67. END PowerOfTwo;
  68.  
  69. END Util.
  70.