home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / sortobj.lha / integer.e < prev    next >
Encoding:
Text File  |  1995-02-11  |  923 b   |  42 lines
  1. -> integer.e is a very SIMPLE object for handling integers.
  2. -> It's writen by Trey Van Riper of the Cheese Olfactory Workshop
  3. OPT MODULE
  4.  
  5. MODULE '*sortobj'
  6.  
  7. -> NOTE: In the future, 'integer' will be derived from 'number'.
  8. -> In the meantime, though, I'll just leave it like this.
  9.  
  10. EXPORT OBJECT integer OF sortobj
  11.  number
  12. ENDOBJECT
  13.  
  14. -> The all-important 'cmp()' method!
  15.  
  16. EXPORT PROC cmp(item:PTR TO integer) OF integer
  17.  IF self.number < item.number THEN RETURN -1
  18.  RETURN IF self.number > item.number THEN 1 ELSE 0
  19. ENDPROC
  20.  
  21. -> write(), to create a string out of the integer.
  22.  
  23. EXPORT PROC write() OF integer
  24.  DEF out
  25.  out:=String(14)
  26.  StringF(out,'\d',self.number)
  27. ENDPROC out
  28.  
  29. -> get()ing the integer itself.
  30.  
  31. EXPORT PROC get() OF integer IS self.number
  32.  
  33. -> set()ing the integer in some way.
  34.  
  35. EXPORT PROC set(in) OF integer
  36.  self.number:=in
  37. ENDPROC
  38.  
  39. -> this object's unique id # is '10'.
  40.  
  41. EXPORT PROC id() OF integer IS 10
  42.