home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Libraries / PNL Libraries / MyMathUtils.p < prev    next >
Encoding:
Text File  |  1995-10-03  |  1.2 KB  |  79 lines  |  [TEXT/CWIE]

  1. unit MyMathUtils;
  2.  
  3. interface
  4.  
  5.     uses
  6.         ConditionalMacros; { MUST BE UPI }
  7.  
  8.     function Min (a, b: longint): longint;
  9. {$IFC not GENERATINGPOWERPC}
  10.     inline
  11.         $201F, $2E9F, $B097, $6C02, $2E80;
  12. {$ENDC}
  13.  
  14.     function Max (a, b: longint): longint;
  15. {$IFC not GENERATINGPOWERPC}
  16.     inline
  17.         $201F, $2E9F, $B097, $6F02, $2E80;
  18. {$ENDC}
  19.  
  20.     function Pin (a, b, c: longint): longint;
  21. {$IFC not GENERATINGPOWERPC}
  22.     inline
  23.         $201F, $221F, $B280, $6F02, $2200, $201F, $B280, $6C02, $2200, $2E81;
  24. {$ENDC}
  25.  
  26.     function Choose (cond: boolean; a, b: longint): longint;
  27. {$IFC not GENERATINGPOWERPC}
  28.     inline
  29.         $201F, $221F, $4A1F, $6602, $2200, $2E81;
  30. {$ENDC}
  31.  
  32. implementation
  33.  
  34. {$IFC GENERATINGPOWERPC}
  35.     function Max (a, b: longint): longint;
  36.     begin
  37.         if a > b then begin
  38.             Max := a;
  39.         end
  40.         else begin
  41.             Max := b;
  42.         end;
  43.     end;
  44.  
  45.     function Min (a, b: longint): longint;
  46.     begin
  47.         if a < b then begin
  48.             Min := a;
  49.         end
  50.         else begin
  51.             Min := b;
  52.         end;
  53.     end;
  54.  
  55.     function Pin (a, b, c: longint): longint;
  56.     begin
  57.         if b < a then begin
  58.             Pin := a;
  59.         end
  60.         else if b > c then begin
  61.             Pin := c;
  62.         end
  63.         else begin
  64.             Pin := b;
  65.         end;
  66.     end;
  67.  
  68.     function Choose (cond: boolean; a, b: longint): longint;
  69.     begin
  70.         if cond then begin
  71.             Choose := a;
  72.         end
  73.         else begin
  74.             Choose := b;
  75.         end;
  76.     end;
  77. {$ENDC}
  78.  
  79. end.