Return to std50.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / test

BSD 4.3

record array(a,b,c,d,e,f,g)

procedure dummy(u,v,x,y,z)
   suspend u | v
   return x
end

procedure main()
   write("*\"\" ----> ",image(*"") | "none")
   write("*'' ----> ",image(*'') | "none")
   write("*[] ----> ",image(*[]) | "none")
   write("*table() ----> ",image(*table()) | "none")
   write("*30 ----> ",image(*30) | "none")
   write("!\"abc\" ----> ",image(!"abc") | "none")
   write("![1,2,3] ----> ",image(![1,2,3]) | "none")
   write("!&lcase ----> ",image(!&lcase) | "none")
   write("!30 ----> ",image(!30) | "none")
   write("!table() ----> ",image(!table()) | "none")
   write("?\"abc\" ----> ",image(?"abc") | "none")
   write("?&lcase ----> ",image(?&lcase) | "none")
   write("?[1,2,3] ----> ",image(?[1,2,3]) | "none")
   write("?table() ----> ",image(?table()) | "none")
   write("?30 ----> ",image(?30) | "none")
   write("?0 ----> ",image(?0) | "none")
   write("?30.0 ----> ",image(?30.0) | "none")
   write(".x ----> ",image(.x) | "none")
   write(".\"abc\" ----> ",image(."abc") | "none")
   write(".[] ----> ",image(.[]) | "none")
   write(".main ----> ",image(.main) | "none")
   write("/main ----> ",image(/main) | "none")
   write("/\"abc\" ----> ",image(/"abc") | "none")
   write("/&null ----> ",image(/&null) | "none")
   write("/[] ----> ",image(/[]) | "none")
   write("/&lcase ----> ",image(/&lcase) | "none")
   write("\\main ----> ",image(\main) | "none")
   write("\\\"abc\" ----> ",image(\"abc") | "none")
   write("\\x ----> ",image(\x) | "none")
   write("\\[] ----> ",image(\[]) | "none")
   write("\\&null ----> ",image(\&null) | "none")
   write("!&null ----> ",image(!&null) | "none")
end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.