home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / BIPL.ZIP / IDOL.ZIP / AUTOPARN.IOL < prev    next >
Encoding:
Text File  |  1991-12-30  |  277 b   |  16 lines
  1. #
  2. # Here is a sample test of automatic parenthesizing
  3. #
  4. class autotest(public yo)
  5.   method foo(x)
  6.     return x
  7.   end
  8. initially
  9.   self.yo := "yo, bro"
  10. end
  11.  
  12. procedure main()
  13.   x := autotest()
  14.   write(x$foo(x$yo)) # yo almost becomes a data item, notation-wise
  15. end
  16.