home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / dev / ppcsmalleiffel / lib_show / animal / animal.e next >
Encoding:
Text File  |  1998-01-16  |  710 b   |  43 lines
  1. deferred class ANIMAL
  2.  
  3. feature {ANY}
  4.    
  5.    cri: STRING is
  6.       deferred
  7.       end;
  8.    
  9.    crier2 is
  10.       do
  11.      std_output.put_string(cri);
  12.       end;
  13.    
  14.    crier is
  15.       deferred
  16.       end;
  17.    
  18.    reproduction(autre: ANIMAL): ANIMAL is
  19.       require
  20.      autre /= Void
  21.       do
  22.      Result := autre;
  23.       end;
  24.    
  25.    reproduction_avec_quadrupede(autre: QUADRUPEDE): ANIMAL is
  26.       require
  27.      autre /= Void
  28.       do
  29.      Result := autre;
  30.       end;
  31.    
  32.    felicitations(autre: ANIMAL) is
  33.       do
  34.      Current.crier2;
  35.      std_output.put_string(" + ");
  36.          autre.crier;
  37.          std_output.put_string(" = ");
  38.          Current.reproduction(autre).crier;
  39.          std_output.put_new_line;
  40.       end;
  41.    
  42. end -- ANIMAL
  43.