Return to snapshot.icn CVS log

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

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

1.1     ! root        1: #      SNAPSHOT
        !             2: #
        !             3: #      Snapshot of string scanning
        !             4: #
        !             5: #      Ralph E. Griswold and Randal L. Schwartz
        !             6: #
        !             7: #      Last modified 2/1/86
        !             8: #
        !             9: 
        !            10: procedure snapshot()
        !            11:    local bar, bar2, is, is0
        !            12:    prefix := "&subject = "
        !            13:    is := image(&subject)
        !            14:    is0 := *image(&subject[1:&pos]) | fail # quick exit if bogus
        !            15:    write(bar := repl("-", *is + *prefix + 4)) # 4 = two vbars/two spaces
        !            16:    write(bar2 := ("|" || repl(" ", *is + *prefix + 2) || "|"))
        !            17:    write("| ", prefix, is, " |")
        !            18:    bar2[*prefix + is0 + 2] := "|" # 2 = "| " prefix
        !            19:    write(bar2)
        !            20:    write(bar)
        !            21:    return ""
        !            22: end

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