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