home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / XLSP21TC.ZIP / XLISP.EG / text0000.txt < prev   
Encoding:
Text File  |  1991-04-14  |  7.2 KB  |  231 lines
  1.  
  2. A MORE REALISTIC EXAMPLE 
  3. ______________________________________________________________________________
  4.  
  5.  
  6. The following is an example, using the idea of tools again.  It contains
  7. a hierarchy of tool  classes.  The top of the class  hierarchy is TOOLS.
  8. HAND-TOOLS and SHOP-TOOLS are sub-classes of TOOLS.  The example creates
  9. instances of these  sub-classes.  It is possible to extend this  example
  10. in various ways.  One obvious  extension would be to create a third tier
  11. of classes  under  HAND-TOOLS  that could  contain  classes like drills,
  12. screwdrivers, pliers and so on.
  13.  
  14.  
  15.  
  16.  
  17. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  18. ;
  19. ;    File name:    tools.lsp
  20. ;    Author:        Tim Mikkelsen
  21. ;    Description:    Object-oriented example program
  22. ;    Language:    XLISP 2.0
  23. ;
  24. ;    Date Created:    10-Jan-1988
  25. ;    Date Updated:    2-Apr-1989
  26. ;    
  27. ;    (c) Copyright 1988, by Tim Mikkelsen, all rights reserved.
  28. ;        Permission is granted for unrestricted non-commercial use.
  29. ;
  30. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  31.  
  32. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  33. ;
  34. ;    Define the superclasses and classes
  35. ;
  36. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  37.  
  38. ;
  39. ; make TOOLS superclass
  40. ;    with a different :ISNEW method
  41. ;    added methods are :BORROW and :RETURN
  42. ;    class variables are    NUMBER        contains # of tool instances
  43. ;                ACTIVE-LIST    contains list of current objects
  44. ;    instance variables are     POWER         list - (AC BATTERY HAND)
  45. ;                MOVEABLE     CAN-CARRY or CAN-ROLL or FIXED
  46. ;                OPERATIONS    list
  47. ;                MATERIAL     list - (WOOD METAL PLASTIC ...)
  48. ;                PIECES         list
  49. ;                LOCATION    HOME or person's name
  50. ;
  51.  
  52. (setq tools (send class :new '(power 
  53.                    moveable 
  54.                    operations 
  55.                    material 
  56.                    pieces 
  57.                    location) 
  58.                  '(number active-list)))
  59. (send tools :answer :isnew '() 
  60.                    '((if (null number) (setq number 1)
  61.                                  (setq number (1+ number)))
  62.                  (setq active-list (cons self active-list))
  63.                  (setq location 'home)))
  64. (send tools :answer :borrow '(by-who)
  65.                     '((if (eq location 'home) (setq location by-who)
  66.                                      (print "you can't"))))
  67. (send tools :answer :return '()
  68.                     '((if (eq location 'home) (print "got it already")
  69.                                      (setq location 'home))))
  70.  
  71. ;
  72. ; make HAND-TOOLS class
  73. ;    with a different :ISNEW method
  74. ;    new instance variable    WEIGHT        <number> of pounds
  75. ;    the rest is inherited from TOOLS 
  76. ; 
  77.  
  78. (setq hand-tools (send class :new '(weight) '() tools))
  79. (send hand-tools :answer :isnew '(pow op mat parts w-in)
  80.                     '((setq power pow)
  81.                       (setq moveable 'can-carry)
  82.                       (setq operations op)
  83.                       (setq material mat)
  84.                           (setq pieces parts)
  85.                       (setq weight w-in)
  86.                       (send-super :isnew)))
  87.  
  88. ;
  89. ; make SHOP-TOOLS class
  90. ;    with a different :ISNEW method
  91. ;    no new instance variables
  92. ;    the rest is inherited from TOOLS 
  93. ; 
  94.  
  95. (setq shop-tools (send class :new '() '() tools))
  96. (send shop-tools :answer :isnew '(pow mov op mat parts)
  97.                     '((setq power pow)
  98.                      (setq moveable mov)
  99.                      (setq operations op)
  100.                      (setq material mat)
  101.                      (setq pieces parts)
  102.                      (send-super :isnew)))
  103.  
  104. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  105. ;
  106. ;    Create instances of various tool classes 
  107. ;
  108. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  109.  
  110. (setq hand-drill (send hand-tools :new         ; make an instance - HAND-DRILL
  111.                  '(ac) 
  112.                  '(drill polish grind screw)
  113.                  '(wood metal plastic)
  114.                  '(drill drill-bits screw-bits buffer)
  115.                  '2.5))
  116.  
  117. (setq table-saw (send shop-tools :new         ; make an instance - TABLE-SAW
  118.                  '(ac)
  119.                  'fixed
  120.                  '(rip cross-cut)
  121.                  '(wood plastic)
  122.                  '(saw blades fence)))
  123.  
  124.  
  125. (setq radial-arm (send shop-tools :new         ; make an instance = RADIAL-ARM
  126.                  '(ac)
  127.                  'can-roll
  128.                  '(rip cross-cut)
  129.                  '(wood plastic)
  130.                  '(saw blades dust-bag)))
  131.  
  132.  
  133. The following  session shows how to use the tool  definitions  from this
  134. better  example.  The example starts at the OS shell and brings up xlisp
  135. running the file 'tools.lsp'.
  136.  
  137.      ________________________________________________________________
  138.     |
  139.     |    cmd? xlisp tools
  140.     |    ; loading "init.lsp"
  141.     |    ; loading "tools.lsp"
  142.     |    > (send hand-drill :borrow 'fred)
  143.     |    FRED
  144.     |
  145.     |    > (send table-saw :return)
  146.     |    "got it already"
  147.     |    "got it already"
  148.     |
  149.     |    > (send hand-drill :borrow 'joe)
  150.     |    "you can't"
  151.     |    "you can't"
  152.     |
  153.     |    > (send hand-drill :return)
  154.     |    HOME
  155.     |________________________________________________________________
  156.  
  157.  
  158. So, Fred was able to borrow the HAND-DRILL.  When an attempt was made to
  159. return the  TABLE-SAW,  it was  already  at home.  A second  attempt  to
  160. borrow the HAND-DRILL  indicated that "you can't" because it was already
  161. lent out.  Lastly, the HAND-DRILL was returned successfully.  (Note that
  162. the "got it  already"  and "you  can't"  strings  show up  twice  in the
  163. display because the methods both print and return the string.)
  164.  
  165. The following session shows the structure of the TOOLS object:
  166.  
  167.      ________________________________________________________________
  168.     |
  169.     |    > (send tools :show)
  170.     |    Object is #<Object: #276fc>, Class is #<Object: #23fe2>
  171.     |      MESSAGES = ((:RETURN . #<Closure-:RETURN: #2dbd0>) 
  172.     |                (:BORROW . #<Closure-:BORROW: #2ddba>) 
  173.     |              (:ISNEW . #<Closure-:ISNEW: #274a4>))
  174.     |      IVARS = (POWER MOVEABLE OPERATIONS MATERIAL PIECES LOCATION)
  175.     |      CVARS = (NUMBER ACTIVE-LIST)
  176.     |      CVALS = #(3 (#<Object: #2cadc> 
  177.     |                 #<Object: #2cda2> 
  178.     |           #<Object: #2d0e0>))
  179.     |      SUPERCLASS = #<Object: #23fd8>
  180.     |      IVARCNT = 6
  181.     |      IVARTOTAL = 6
  182.     |    #<Object: #276fc>
  183.     |________________________________________________________________
  184.  
  185.  
  186. The two TOOLS sub-classes HAND-TOOLS and SHOP-TOOLS structure looks like:
  187.  
  188.      ________________________________________________________________
  189.     |
  190.     |    > (send hand-tools :show)
  191.     |    Object is #<Object: #2dab8>, Class is #<Object: #23fe2>
  192.     |      MESSAGES = ((:ISNEW . #<Closure-:ISNEW: #2d7a2>))
  193.     |      IVARS = (WEIGHT)
  194.     |      CVARS = NIL
  195.     |      CVALS = NIL
  196.     |      SUPERCLASS = #<Object: #276fc>
  197.     |      IVARCNT = 1
  198.     |      IVARTOTAL = 7
  199.     |    #<Object: #2dab8>
  200.     |
  201.     |    > (send shop-tools :show)
  202.     |    Object is #<Object: #2d680>, Class is #<Object: #23fe2>
  203.     |      MESSAGES = ((:ISNEW . #<Closure-:ISNEW: #2d450>))
  204.     |      IVARS = NIL
  205.     |      CVARS = NIL
  206.     |      CVALS = NIL
  207.     |      SUPERCLASS = #<Object: #276fc>
  208.     |      IVARCNT = 0
  209.     |      IVARTOTAL = 6
  210.     |    #<Object: #2d680>
  211.     |________________________________________________________________
  212.  
  213.  
  214. The class HAND-TOOLS has an instance HAND-DRILL which looks like:
  215.  
  216.      ________________________________________________________________
  217.     |
  218.     |    > (send hand-drill :show)
  219.     |    Object is #<Object: #2d0e0>, Class is #<Object: #2dab8>
  220.     |      WEIGHT = 2.5
  221.     |      POWER = (AC)
  222.     |      MOVEABLE = CAN-CARRY
  223.     |      OPERATIONS = (DRILL POLISH GRIND SCREW)
  224.     |      MATERIAL = (WOOD METAL PLASTIC)
  225.     |      PIECES = (DRILL DRILL-BITS SCREW-BITS BUFFER)
  226.     |      LOCATION = HOME
  227.     |    #<Object: #2d0e0>
  228.     |________________________________________________________________
  229.  
  230.  
  231.