home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / self / contrib.lha / contrib / 491 / aa / boundedNum.self < prev    next >
Encoding:
Text File  |  1993-05-30  |  1.4 KB  |  51 lines
  1. " A bounded number is a number that can get bigger and smaller, "
  2. " but only within some bounds (that may be infinite). If you add "
  3. " to it, for instance, and it gets too big, it won't grow any "
  4. " larger than the upper bound "
  5. "
  6. * 
  7. * boundedNum.self,v 1.3 1993/05/30 21:41:14 richards Exp
  8. *
  9. * boundedNum.self,v
  10. * Revision 1.3  1993/05/30  21:41:14  richards
  11. * CVS checkin.
  12. *
  13. * Revision 1.2  1993/05/14  22:42:25  richards
  14. * Bounded numbers now work properly in 2.0.1 and even print nicely.
  15. * +/- and * are supported operations that return a *new* bnum.
  16. *
  17. * Revision 1.1  1992/10/05  06:37:47  richards
  18. * Initial revision
  19. *
  20. *
  21. *
  22. "
  23.  
  24. aa traits _AddSlotsIfAbsent: ( | bnum = (). |)
  25.  
  26. aa traits bnum _Define: ( |
  27.     parent* = traits clonable.
  28.     printString = (
  29.     'Bnum<', (lower printString), '|', (upper printString), '>: ', (value printString)
  30.     ).
  31.     + aNumericThing = ( copy value: (aNumericThing + value) ).
  32.     - aNumericThing = ( copy value: (aNumericThing - value) ).
  33.     * aNumericThing = ( copy value: (aNumericThing * value) ).
  34.     value = ( val ).
  35.     value: x = ( | newval. |
  36.     newval: x max: lower.
  37.     newval: newval min: upper.
  38.     val: newval ).
  39. |)
  40.  
  41. aa prototypes _AddSlotsIfAbsent: ( | bnum = (). |)
  42.  
  43. aa prototypes bnum _Define: ( |
  44.           parent* = aa traits bnum.
  45.       thisObjectPrints = true.
  46.           upper <- infinity.
  47.           lower <- 0-infinity.  
  48.           val <- 0.
  49. |)
  50.  
  51.