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 / tests / general / trim.icn < prev    next >
Text File  |  2001-12-06  |  378b  |  15 lines
  1. #SRC: JCON
  2.  
  3. procedure main()
  4.     write(image(trim("abc  ")))
  5.     write(image(trim("abc  ", ' ')))
  6.     write(image(trim("abc  ", 'x')))
  7.     write(image(trim("abc  ", 'abc ')))
  8.     write(image(trim("a c  ", ' ')))
  9.     write(image(trim("a c", ' ')))
  10.     write(image(trim("   ", ' ')))
  11.     write(image(trim(" ", ' ')))
  12.     write(image(trim("", ' ')))
  13.     write(image(trim("")))
  14. end
  15.