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

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.