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 >
Text File  |  2000-07-29  |  413b  |  26 lines
  1. #
  2. # List invocation for methods.  Icon uses binary ! but Idol
  3. # uses $! for "foreach", so list invocation is specified via $$.
  4. #
  5.  
  6. class abang()
  7.   method a(args[])
  8.     write("a:")
  9.     every write (image(!args))
  10.   end
  11. end
  12.  
  13. class bbang : abang()
  14.   method b(args[])
  15.     write("b:")
  16.     every write (image(!args))
  17.     return self $$ a(["yo"]|||args)
  18.   end
  19. end
  20.  
  21. procedure main()
  22.   x := bbang()
  23.   x$b("yin","yang")
  24.  
  25. end
  26.