Return to std40.icn CVS log

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

Annotation of 43BSD/contrib/icon/test/std40.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("'a' ----> ",image('a') | "none")
        !            10:    write("'ab' ----> ",image('ab') | "none")
        !            11:    write("'\\xb9' ----> ",image('\xb9') | "none")
        !            12:    write("'\\xb8\\xb4' ----> ",image('\xb8\xb4') | "none")
        !            13:    write("'\\^d' ----> ",image('\^d') | "none")
        !            14:    write("'\\^a\\^d' ----> ",image('\^a\^d') | "none")
        !            15:    write("\"a\" ----> ",image("a") | "none")
        !            16:    write("\"ab\" ----> ",image("ab") | "none")
        !            17:    write("\"\\xb9\" ----> ",image("\xb9") | "none")
        !            18:    write("\"\\xb8\\xb4\" ----> ",image("\xb8\xb4") | "none")
        !            19:    write("\"\\^d\" ----> ",image("\^d") | "none")
        !            20:    write("\"\\^a\\^d\" ----> ",image("\^a\^d") | "none")
        !            21:    write("*'a' ----> ",image(*'a') | "none")
        !            22:    write("*'ab' ----> ",image(*'ab') | "none")
        !            23:    write("*'\\xb9' ----> ",image(*'\xb9') | "none")
        !            24:    write("*'\\xb8\\xb4' ----> ",image(*'\xb8\xb4') | "none")
        !            25:    write("*'\\^d' ----> ",image(*'\^d') | "none")
        !            26:    write("*'\\^a\\^d' ----> ",image(*'\^a\^d') | "none")
        !            27:    write("*\"a\" ----> ",image(*"a") | "none")
        !            28:    write("*\"ab\" ----> ",image(*"ab") | "none")
        !            29:    write("*\"\\xb9\" ----> ",image(*"\xb9") | "none")
        !            30:    write("*\"\\xb8\\xb4\" ----> ",image(*"\xb8\xb4") | "none")
        !            31:    write("*\"\\^d\" ----> ",image(*"\^d") | "none")
        !            32:    write("*\"\\^a\\^d\" ----> ",image(*"\^a\^d") | "none")
        !            33:    write("+\"a\" ----> ",image(+"a") | "none")
        !            34: end

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