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

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.