home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ckscripts / inheritance < prev    next >
Text File  |  2020-01-01  |  3KB  |  106 lines
  1. ; From: Dat Thuc Nguyen
  2. ; Newsgroups: comp.protocols.kermit.misc
  3. ; Subject: Inheritance in Kermit 95
  4. ; Date: Mon, 29 Mar 1999 15:57:20 GMT
  5. ; URL: http://www.smalltickle.com
  6. ; 
  7. ; NO OBJECT-ORIENTED PROGRAMMING LEAVES HOME WITHOUT INHERITANCE.
  8. ; THE FOLLOWING SCRIPT DISPLAYS INHERITANCE IN KERMIT 95.
  9. ;
  10. ; CLASS PERSON IS THE BASE CLASS.
  11. ;
  12. ; CLASS EMPLOYEE DERIVES FROM CLASS PERSON. CLASS EMPLOYEE HAS
  13. ; ALL ATTRIBUTES AND BEHAVIOR OF CLASS PERSON AND SOME EXTRAS
  14. ;
  15. ; CLASS MANAGER DERIVES FROM CLASS EMPLOYEE. CLASS MANAGER HAS
  16. ; ALL ATTRIBUTES AND BEHAVIOR OF CLASS EMPLOYEE AND SOME EXTRAS
  17. ;
  18. ; THE KEY OF OBJECT-ORIENTED PROGRAMMING IN KERMIT 95 IS
  19. ; THE PROPER USAGE OF:
  20. ;
  21. ; ASSIGN  : ASSIGN EXPANDS ONLY R-VALUE VARIABLE.
  22. ; _ASSIGN : _ASSIGN EXPANDS BOTH L-VALUE AND R-VALUE VARIABLES.
  23. ; DEFINE  : DEFINE EXPANDS NEITHER L-VALUE NOR _R-VALUE VARIABLES.
  24. ; _DEFINE : _DEFINE EXPANDS ONLY L-VALUE VARIABLE.
  25. ;
  26. define PERSON {
  27.     local self
  28.     assign self \%1
  29.     _assign \m(self).age \%2
  30.     _assign \m(self).job \%3
  31.     _assign \m(self).introduce {
  32.         echo My name is \fcap(\%1)
  33.         echo I am \\m(\m(self).age) years old
  34.         echo I am a(n) \\m(\m(self).job)
  35.     }
  36.     _assign \m(self).destroy {
  37.         _define \m(self).age
  38.         _define \m(self).job
  39.         _define \m(self).introduce
  40.         _define \m(self).destroy
  41.     }
  42. }
  43.  
  44. define EMPLOYEE {
  45.     local self super \%s
  46.     assign self \%1
  47.     assign super person                 ; DERIVES FROM PERSON
  48.     \m(super) {\%1} {\%2} {\%3}         ; CREATE BASE COMPONENTS
  49.     assign \%s \m(self).introduce       ; SAVE SUPER CLASS METHOD
  50.                         ; introduce
  51.     _assign \m(self).introduce {        ; OVERLOAD METHOD introduce
  52.         \m(\%s)                         ; EXEC SUPER CLASS METHOD FIRST
  53.         echo I work for \%4             ; AND THIS EXTRA
  54.     }
  55. }
  56.  
  57. define MANAGER {
  58.     local self super \%s
  59.     assign self \%1
  60.     assign super employee               ; DERIVES FROM EMPLOYEE
  61.     \m(super) {\%1} {\%2} {\%3} {\%4}   ; CREATE BASE COMPONENTS
  62.     assign \%s \m(self).introduce       ; SAVE SUPER CLASS METHOD
  63.     _assign \m(self).introduce {        ; OVERLOAD METHOD introduce
  64.         \m(\%s)                         ; EXEC SUPER CLASS METHOD FIRST
  65.         echo I am a manager             ; AND THIS EXTRA
  66.     }
  67.     _define \m(self).fire {             ; ADD THE NEW METHOD fire
  68.         echo {\%1, you are fired}
  69.     }
  70.     _define \m(self).offer {            ; ADD THE NEW METHOD hire
  71.         echo {\%1, I would like to offer you \%2}
  72.     }
  73. }
  74.  
  75. ; JANE IS A 27 YEARS YOUNG STUDENT
  76. person Jane 27 student
  77. Jane.introduce
  78. echo
  79.  
  80. ; MARK IS A 36 YEARS OLD PROGRAMMER WORKING FOR BT&T
  81. employee Mark 36 programmer BT&T
  82. Mark.introduce
  83. echo
  84.  
  85. ; MARIO IS A 24 YEARS OLD PROGRAMMERS WORKING FOR METAS
  86. employee Mario 24 programmer METAS
  87. Mario.introduce
  88. echo
  89.  
  90. ; BOB IS A 47 YEARS OLD ENGINEER WORKING FOR METAS AS A MANAGER
  91. manager Bob 47 Engineer METAS
  92. Bob.introduce
  93. echo
  94.  
  95. ; MARIO KNOWS NO DIFFERENCE BETWEEN DEFINE AND _DEFINE.
  96. ; Bob DECIDES TO FIRE HIM:
  97. Bob.fire Mario
  98. echo
  99.  
  100. ; MARK KNOWS THE DIFFERENCE BETWEEN ASSIGN AND _ASSIGN.
  101. ; Bob DECIDES TO MAKE HIM AN OFFER:
  102. Bob.offer Mark 100K
  103. echo
  104.  
  105. end
  106.