Return to labels.icn CVS log

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

Annotation of 43BSD/contrib/icon/src/cmd/labels.icn, revision 1.1

1.1     ! root        1: #      LABELS(1)
        !             2: #
        !             3: #      Format mailing labels
        !             4: #
        !             5: #      Ralph E. Griswold
        !             6: #
        !             7: #      Last modified 4/27/83
        !             8: #
        !             9: 
        !            10: global line, lsize, repet
        !            11: 
        !            12: procedure main(x)
        !            13:    local selectors, use, y, i
        !            14:    line := ""
        !            15:    selectors := '#'
        !            16:    lsize := 9
        !            17:    repet := 1
        !            18:    i := 0
        !            19:    use := "usage: labels [-n] [-s string] [-t]"
        !            20:    while y := x[i +:= 1] do
        !            21:       if y == "-s" then selectors := cset(x[i +:= 1]) | stop(use)
        !            22:       else if y == "-t" then lsize := 12       #  tape labels
        !            23:       else if y[1] == "-" then
        !            24:          repet := integer(y[2:0]) | stop(use)
        !            25:          else stop(use)
        !            26:    repeat {
        !            27:       if line[1] == "#" & upto(selectors,line)
        !            28:          then obtain() else {line := read() | break}
        !            29:       }
        !            30: end
        !            31: 
        !            32: #  format and write label
        !            33: #
        !            34: procedure format(label,width)
        !            35:    local j, indent
        !            36:    indent := repl(" ",(40-width)/2)
        !            37:    j := lsize - *label
        !            38:    every 1 to j/2 do write()
        !            39:    every write(indent,!label)
        !            40:    every 1 to (j+1)/2 do write()
        !            41: end
        !            42: 
        !            43: #  format error message as label
        !            44: #
        !            45: procedure error(name,type)
        !            46:    static badform
        !            47:    initial badform := list(lsize)
        !            48:    case type of {
        !            49:       1:  badform[4] := "     **** too many lines"
        !            50:       2:  badform[4] := "     **** line too long"
        !            51:       }
        !            52:    badform[1] := name
        !            53:    every write(&errout,!badform)
        !            54: end
        !            55: 
        !            56: #  obtain label
        !            57: #
        !            58: procedure obtain()
        !            59:    local label, max
        !            60:    label := []
        !            61:    max := 0
        !            62:    while line := read() do {
        !            63:       if line[1] == "*" then next              #  comment
        !            64:       if line[1] == "#" then break             #  new label
        !            65:       put(label,line)
        !            66:       if *line > max then max := *line
        !            67:       if *label > 8 then {error(label[1],1); return}
        !            68:       if max > 40 then {error(label[1],2); return}
        !            69:       }
        !            70:    every 1 to repet do format(label,max)
        !            71: end

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