Return to tracer.icn CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / tests

Annotation of researchv10dc/cmd/icon/tests/tracer.icn, revision 1.1.1.1

1.1       root        1: global s
                      2: procedure main()
                      3:    &trace := -1
                      4:    s := "abcdef"
                      5:    &subject := "123456"
                      6:    &pos := 4
                      7:    every tracer(1)
                      8:    every foo(&pos | &subject | &pos[1] | &subject[2:5])
                      9: end
                     10: 
                     11: procedure tracer(a)
                     12:    local i
                     13:    static j
                     14:    i := 2
                     15:    j := 3
                     16:    suspend a | i | j | s | &subject |
                     17:       &pos | &random | &trace | &subject[3:4] | &pos[1] |
                     18:       s[3] | s[3:5] | &random[1] | &trace[1] | &subject[2:5][1]
                     19: end
                     20: 
                     21: procedure foo(s)
                     22:    return s
                     23: end

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