Return to image.icn CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / ipl / source

Annotation of researchv10dc/cmd/icon/ipl/source/image.icn, revision 1.1

1.1     ! root        1: #      IMAGE
        !             2: #
        !             3: #      Generalized image of Icon object
        !             4: #
        !             5: #      Ralph E. Griswold
        !             6: #
        !             7: #      Last modified 2/1/86
        !             8: #
        !             9: 
        !            10: procedure Image(x,done)
        !            11:    /done := table()
        !            12:    if match("record ",image(x)) then return rimage(x,done)
        !            13:    else return case type(x) of {
        !            14:       "list":  limage(x,done)
        !            15:       "table": timage(x,done)
        !            16:       "set":   simage(x,done)
        !            17:       default: image(x)
        !            18:       }
        !            19: end
        !            20: 
        !            21: #  list image
        !            22: #
        !            23: procedure limage(a,done)
        !            24:    static i
        !            25:    local s, tag
        !            26:    initial i := 0
        !            27:    if \done[a] then return done[a]
        !            28:    done[a] := tag := "L" || (i +:= 1)
        !            29:    if *a = 0 then s := tag || ":[]" else {
        !            30:       s := tag || ":["
        !            31:       every s ||:= Image(!a,done) || ","
        !            32:       s[-1] := "]"
        !            33:       }
        !            34:    return s
        !            35: end
        !            36: 
        !            37: #  record image
        !            38: #
        !            39: procedure rimage(x,done)
        !            40:    static i
        !            41:    local s, tag
        !            42:    initial i := 0
        !            43:    s := image(x)
        !            44:                                        #  might be record constructor
        !            45:    if match("record constructor ",s) then return s
        !            46:    if \done[x] then return done[x]
        !            47:    done[x] := tag := "R" || (i +:= 1)
        !            48:    s ?:=  (="record " & (":" || (tab(upto('(') + 1))))
        !            49:    if *x = 0 then s := tag || s || ")" else {
        !            50:       s := tag || s
        !            51:       every s ||:= Image(!x,done) || ","
        !            52:       s[-1] := ")"
        !            53:       }
        !            54:    return s
        !            55: end
        !            56: 
        !            57: # set image
        !            58: #
        !            59: procedure simage(S,done)
        !            60:    static i
        !            61:    local s, tag
        !            62:    initial i := 0
        !            63:    if \done[S] then return done[S]
        !            64:    done[S] := tag := "S" || (i +:= 1)
        !            65:    if *S = 0 then s := tag || ":[]" else {
        !            66:       s := tag || ":["
        !            67:       every s ||:= Image(!S,done) || ","
        !            68:       s[-1] := "]"
        !            69:       }
        !            70:    return s
        !            71: end
        !            72: 
        !            73: #  table image
        !            74: #
        !            75: procedure timage(t,done)
        !            76:    static i
        !            77:    local s, tag, a, a1
        !            78:    initial i := 0
        !            79:    if \done[t] then return done[t]
        !            80:    done[t] := tag := "T" || (i +:= 1)
        !            81:    if *t = 0 then s := tag || ":[]" else {
        !            82:       a := sort(t,3)
        !            83:       s := tag || ":["
        !            84:       while s ||:= Image(get(a),done) || "->" || Image(get(a),done) || ","
        !            85:       s[-1] := "]"
        !            86:       }
        !            87:    return s
        !            88: end

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