home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_100 / 164_01 / math.int < prev    next >
Text File  |  1984-07-05  |  2KB  |  62 lines
  1. {           file:          MATH.INT                           }
  2.  
  3. interface;
  4.  
  5. { This file is the interface between your program and the
  6.   extended precision MATH subroutines.  To use: use the
  7.   include metacommand to copy this file into your program,
  8.   and code the "uses math;" statement in your program.
  9.   See the demo program for an example of how to interface
  10.   with these routines.
  11. }
  12.  
  13. unit  math  ( x_add,
  14.               x_comp,
  15.               x_ctox,
  16.               x_div,
  17.               x_mult,
  18.               x_sub,
  19.               x_xtoc,
  20.               xprecision,
  21.               xint,
  22.               xchar,
  23.               xcomp_type,
  24.               x_a_lt_b,
  25.               x_a_eq_b,
  26.               x_a_gt_b
  27.             );
  28.  
  29. const xprecision = 64;
  30.  
  31. type  xint        = array  [1..xprecision] of boolean;
  32.       xchar       = string ((xprecision div 3) + 1);
  33.       xcomp_type  = (x_a_lt_b, x_a_eq_b, x_a_gt_b);
  34.  
  35. procedure  x_add    (a, b:          xint;
  36.                      var c:         xint;
  37.                      var overflow:  boolean);
  38.  
  39. function   x_comp   (a, b:          xint): xcomp_type;
  40.  
  41. procedure  x_ctox   (c:             xchar;
  42.                      var x:         xint;
  43.                      var overflow:  boolean);
  44.  
  45. procedure  x_div    (a, b:          xint;
  46.                      var q, r:      xint;
  47.                      var zero_div:  boolean);
  48.  
  49. procedure  x_mult   (a, b:          xint;
  50.                      var c:         xint;
  51.                      var overflow:  boolean);
  52.  
  53. procedure  x_sub    (a, b:          xint;
  54.                      var c:         xint;
  55.                      var overflow:  boolean);
  56.  
  57. procedure  x_xtoc   (a:             xint;
  58.                      var b:         xchar);
  59.  
  60. begin
  61. end;
  62.