home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / modula3 / 843 < prev    next >
Encoding:
Internet Message Format  |  1992-07-21  |  2.9 KB
  1. Xref: sparky comp.lang.modula3:843 comp.lang.misc:2685 comp.lang.c++:11262
  2. Path: sparky!uunet!haven.umd.edu!darwin.sura.net!mips!pacbell.com!network.ucsd.edu!lyapunov.ucsd.edu!mbk
  3. From: mbk@lyapunov.ucsd.edu (Matt Kennel)
  4. Newsgroups: comp.lang.modula3,comp.lang.misc,comp.lang.c++
  5. Subject: Re: Sather's Multiple Inheritance
  6. Date: 21 Jul 1992 20:04:41 GMT
  7. Organization: Institute For Nonlinear Science, UCSD
  8. Lines: 92
  9. Message-ID: <14hqkpINN3h6@network.ucsd.edu>
  10. References: <ARI.HUTTUNEN.92Jul20112548@wonderwoman.hut.fi>
  11. NNTP-Posting-Host: lyapunov.ucsd.edu
  12. X-Newsreader: Tin 1.1 PL3
  13.  
  14. Ari.Huttunen@hut.fi (Ari Juhani Huttunen) writes:
  15. : In article <147qlkINNft3@network.ucsd.edu> mbk@lyapunov.ucsd.edu (Matt Kennel) writes:
  16. : 
  17. : ! Now what if both PARENT_CLASS_ONE and PARENT_CLASS_TWO
  18. : ! have two features, say integer variables "count":
  19. : 
  20. : ! Then you can use "alias new_name old_name":
  21. : ! ===========
  22. : ! class CHILD is
  23. : 
  24. : !     PARENT_CLASS_ONE;    --- That inherits it
  25. : !     alias count_one count;    --- rename "count" from P_C_O
  26. : !     PARENT_CLASS_TWO;    --- That inherits another
  27. : !     alias count_two count;    --- Rename that one as well
  28. : 
  29. : !     count : INT;        --- A third "count" different from the
  30. : !                 --- other two.
  31. : 
  32. : ! end;
  33. : ! ============
  34. : 
  35. : ! I don't know if this solution is perfect for all circumstances, but it
  36. : ! appears to a layman to cover a whole lot, and it's very easy to understand.
  37. : 
  38. : You still have the problem that CHILD, PARENT_CLASS_ONE and PARENT_CLASS_TWO
  39. : refer to the same 'count' each, unless you re-rewrite the functions in
  40. : the parent classes. (In some cases this would be desirable, in others it
  41. : would not.)
  42. : 
  43. : The problem would be solved, if this were possible: 'rename count_two count'.
  44.  
  45. I think there's a bug in the compiler, actually.  As you were, I wasn't able
  46. to override an integer feature (storage) with a procedure, but I was
  47. able to override that same integer feature with a feature of different type.
  48. ============================
  49. class FATHER is
  50.  
  51.     private xyz:INT;
  52.  
  53.         foobar is
  54.                 xyz := 123;
  55.         end; -- foobar
  56.  
  57. end; -- FATHER
  58.  
  59. class CHILDBAD is
  60.  
  61.         FATHER;
  62.         alias father_xyz xyz;
  63.  
  64.         xyz:DOUBLE is
  65.                 res := 1.0;
  66.         end; -- xyz
  67.  
  68. end; -- CHILDBAD
  69.  
  70. class CHILDGOOD is
  71.  
  72.         FATHER;
  73.         alias father_xyz xyz;
  74.  
  75.         xyz:DOUBLE;
  76.  
  77. end; -- CHILDGOOD
  78.  
  79.  
  80. class TEST is
  81.     main is
  82.         a:FATHER;
  83.         a.foobar;
  84.  
  85.         b:CHILDGOOD;
  86.         b.foobar;
  87.  
  88. --        c:CHILDBAD;
  89. --        c.foobar;
  90. --  Compiler gives an error if you uncomment these lines! ???
  91. --
  92.     end;
  93.  
  94. end;
  95.  
  96. ===================================
  97.  
  98. : --
  99. : ...............................................................................
  100. : Ari Huttunen                               They say the sky high above
  101. : 90-7285944                                   is Caribbean blue...  (Enya)
  102.  
  103. --
  104. -Matt Kennel          mbk@inls1.ucsd.edu
  105. -Institute for Nonlinear Science, University of California, San Diego
  106.