On Wed, 2003-01-22 at 07:55, Steve Wampler wrote:
Sigh. I wrote...
> and to show it works, some test cases:
>
...
>
> procedure main()
> a := A()
> b := B()
> c := C()
> d := D()
>
> checkInherit(a,"Class")
> checkInherit(a,"B")
> checkInherit(b,"A")
> checkInherit(b,"B")
> checkInherit(c,"Class")
> checkInherit(c,"A")
> checkInherit(d,"Class")
> checkInherit(d,"A")
> checkInherit(d,"B")
> checkInherit(d,"C")
>
> end
There's a procedure missing from the end of this:
--------------------------------------------------
procedure checkInherit(class1, class2name)
if class1.instanceof(class2name) then
write(class1.className()," is an instance of ",class2name)
else
write(class1.className()," is NOT an instance of ",class2name)
end
--------------------------------------------------
--
Steve Wampler <[EMAIL PROTECTED]>
National Solar Observatory
-------------------------------------------------------
This SF.net email is sponsored by: Scholarships for Techies!
Can't afford IT training? All 2003 ictp students receive scholarships.
Get hands-on training in Microsoft, Cisco, Sun, Linux/UNIX, and more.
www.ictp.com/training/sourceforge.asp
_______________________________________________
Unicon-group mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/unicon-group
