home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / sampl254.zip / gcc2 / samples / sample4 / message.m < prev    next >
Text File  |  1993-10-31  |  767b  |  55 lines
  1. #include "message.h"
  2.  
  3. @interface MessageList: Object
  4. {
  5.   id item;
  6.   id next;
  7. }
  8. - append: printable;
  9. - initItem: aItem;
  10. - print;
  11. @end
  12.  
  13. @implementation MessageList
  14. - append: printable
  15. {
  16.   if (next == nil)
  17.     next = [[MessageList alloc] initItem: printable];
  18.   else
  19.     [next append: printable];
  20.   return self;
  21. }
  22. - initItem: aItem
  23. {
  24.   [super init];
  25.   item = aItem;
  26.   return self;
  27. }
  28. - print
  29. {
  30.   [item print];
  31.   [next print];
  32. }
  33. @end
  34.  
  35. @implementation Message: Object
  36. - init
  37. {
  38.   self = [super init];
  39.   list = nil;
  40.   return self;
  41. }
  42. - append: printable
  43. {
  44.   if (list == nil)
  45.     list = [[MessageList alloc] initItem: printable];
  46.   else
  47.     [list append: printable];
  48. }
  49. - print
  50. {
  51.   if (list != nil)
  52.     [list print];
  53. }
  54. @end
  55.