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 / env.icn < prev    next >
Text File  |  2002-03-07  |  455b  |  15 lines
  1. procedure main()
  2.    write()
  3.    write("&host:      ", &host)
  4.    write("&dateline:  ", &dateline)
  5.    write("   &date:   ", &date)
  6.    write("   &clock:  ", &clock)
  7.    write("&version:   ", &version)
  8.    write("&features:")
  9.    every write("   ", &features)
  10.    write("getenv(\"HOME\"):  ", getenv("HOME") | "[failed]")
  11.    write("getenv(\"SHELL\"): ", getenv("SHELL") | "[failed]")
  12.    write("uname -a: ", read(open("uname -a", "p")) | "[failed]")
  13.    write()
  14. end
  15.