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     ! 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.