home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.cs.arizona.edu
/
ftp.cs.arizona.edu.tar
/
ftp.cs.arizona.edu
/
icon
/
historic
/
v941.tgz
/
icon.v941src.tar
/
icon.v941src
/
ipl
/
packs
/
idol
/
linvktst.iol
< prev
next >
Wrap
Text File
|
2000-07-29
|
413b
|
26 lines
#
# List invocation for methods. Icon uses binary ! but Idol
# uses $! for "foreach", so list invocation is specified via $$.
#
class abang()
method a(args[])
write("a:")
every write (image(!args))
end
end
class bbang : abang()
method b(args[])
write("b:")
every write (image(!args))
return self $$ a(["yo"]|||args)
end
end
procedure main()
x := bbang()
x$b("yin","yang")
end