Return to std50.icn CVS log

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

Annotation of 43BSD/contrib/icon/test/std50.icn, revision 1.1.1.1

1.1       root        1: record array(a,b,c,d,e,f,g)
                      2: 
                      3: procedure dummy(u,v,x,y,z)
                      4:    suspend u | v
                      5:    return x
                      6: end
                      7: 
                      8: procedure main()
                      9:    write("*\"\" ----> ",image(*"") | "none")
                     10:    write("*'' ----> ",image(*'') | "none")
                     11:    write("*[] ----> ",image(*[]) | "none")
                     12:    write("*table() ----> ",image(*table()) | "none")
                     13:    write("*30 ----> ",image(*30) | "none")
                     14:    write("!\"abc\" ----> ",image(!"abc") | "none")
                     15:    write("![1,2,3] ----> ",image(![1,2,3]) | "none")
                     16:    write("!&lcase ----> ",image(!&lcase) | "none")
                     17:    write("!30 ----> ",image(!30) | "none")
                     18:    write("!table() ----> ",image(!table()) | "none")
                     19:    write("?\"abc\" ----> ",image(?"abc") | "none")
                     20:    write("?&lcase ----> ",image(?&lcase) | "none")
                     21:    write("?[1,2,3] ----> ",image(?[1,2,3]) | "none")
                     22:    write("?table() ----> ",image(?table()) | "none")
                     23:    write("?30 ----> ",image(?30) | "none")
                     24:    write("?0 ----> ",image(?0) | "none")
                     25:    write("?30.0 ----> ",image(?30.0) | "none")
                     26:    write(".x ----> ",image(.x) | "none")
                     27:    write(".\"abc\" ----> ",image(."abc") | "none")
                     28:    write(".[] ----> ",image(.[]) | "none")
                     29:    write(".main ----> ",image(.main) | "none")
                     30:    write("/main ----> ",image(/main) | "none")
                     31:    write("/\"abc\" ----> ",image(/"abc") | "none")
                     32:    write("/&null ----> ",image(/&null) | "none")
                     33:    write("/[] ----> ",image(/[]) | "none")
                     34:    write("/&lcase ----> ",image(/&lcase) | "none")
                     35:    write("\\main ----> ",image(\main) | "none")
                     36:    write("\\\"abc\" ----> ",image(\"abc") | "none")
                     37:    write("\\x ----> ",image(\x) | "none")
                     38:    write("\\[] ----> ",image(\[]) | "none")
                     39:    write("\\&null ----> ",image(\&null) | "none")
                     40:    write("!&null ----> ",image(!&null) | "none")
                     41: end

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