Return to snapshot.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / src / lib

Annotation of 43BSD/contrib/icon/src/lib/snapshot.icn, revision 1.1.1.1

1.1       root        1: #      SNAPSHOT(2)
                      2: #
                      3: #      Snapshot of string scanning
                      4: #
                      5: #      Ralph E. Griswold
                      6: #
                      7: #      Last modified 5/12/83
                      8: #
                      9: 
                     10: procedure snapshot()
                     11:    local bar, p1, p2, p3, i
                     12:    if pos(0) then {
                     13:       p2 := *image(&subject) - 2
                     14:       p1 := p2 + 1
                     15:       p3 := 0
                     16:       }
                     17:    else {
                     18:       p1 := 0
                     19:       every i := 1 to &pos do
                     20:          p1 +:= *image(&subject[i]) - 2
                     21:       p3 := *image(&subject[&pos]) - 3
                     22:       p2 := p1
                     23:       every i := &pos + 1 to *&subject do
                     24:          p2 +:= *image(&subject[i]) - 2
                     25:       }
                     26:    write(bar := repl("-",17 + p2))
                     27:    write("|",right("|",16 + p2))
                     28:    write("| &subject = ",image(&subject)," |")
                     29:    write("|            ",right("|",p1 - p3 + 1),
                     30:       right("|",p2 - p1 + p3 + 3))
                     31:    write(bar)
                     32:    return
                     33: end
                     34: 

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