home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 3
/
AACD03.BIN
/
AACD
/
Programming
/
sofa
/
archive
/
SmallEiffel.lha
/
SmallEiffel
/
lib_show
/
animal
/
animal.e
next >
Wrap
Text File
|
1999-06-05
|
738b
|
43 lines
deferred class ANIMAL
feature {ANY}
cri: STRING is
deferred
end;
crier2 is
do
std_output.put_string(cri);
end;
crier is
deferred
end;
reproduction(autre: ANIMAL): ANIMAL is
require
autre /= Void
do
Result := autre;
end;
reproduction_avec_quadrupede(autre: QUADRUPEDE): ANIMAL is
require
autre /= Void
do
Result := autre;
end;
felicitations(autre: ANIMAL) is
do
Current.crier2;
std_output.put_string(" + ");
autre.crier;
std_output.put_string(" = ");
Current.reproduction(autre).crier;
std_output.put_new_line;
end;
end -- ANIMAL