Return to labels.icn CVS log

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

Annotation of researchv10dc/cmd/icon/ipl/source/labels.icn, revision 1.1.1.1

1.1       root        1: #      LABELS
                      2: #
                      3: #      Format mailing labels
                      4: #
                      5: #      Ralph E. Griswold
                      6: #
                      7: #      Last modified 12/25/85
                      8: #
                      9: 
                     10: global line, lsize, repet, llength, ldepth, first
                     11: 
                     12: procedure main(x)
                     13:    local selectors, use, y, i
                     14:    line := ""
                     15:    selectors := '#'
                     16:    lsize := 9
                     17:    ldepth := 8
                     18:    llength := 40
                     19:    repet := 1
                     20:    i := 0
                     21:    use := "usage: labels [-c n] [-s s] [-t] [-d n] [-w n] [-l n] [-f]"
                     22:    while y := x[i +:= 1] do
                     23:       case y of {
                     24:          "-f":  first := 1
                     25:          "-s": selectors := cset(x[i +:= 1]) | stop(use)
                     26:          "-t":  {
                     27:             lsize := 12
                     28:             if ldepth > lsize then ldepth := lsize
                     29:             }
                     30:          "-w":  llength := (0 < integer(x[i +:= 1])) | stop(use)
                     31:          "-l":  {
                     32:             ldepth := (0 < integer(x[i +:= 1])) | stop(use)
                     33:             if lsize < ldepth then lsize := ldepth
                     34:             }
                     35:          "-d":  {
                     36:             lsize := (0 < integer(x[i +:= 1])) | stop(use)
                     37:             if ldepth > lsize then ldepth := lsize
                     38:             }
                     39:          "-c": repet := (0 < integer(x[i +:= 1])) | stop(use)
                     40:          default: stop(use)
                     41:          }
                     42:    repeat {                            # processing loop
                     43:       if line[1] == "#" & upto(selectors,line)
                     44:          then obtain() else {
                     45:             line := read() | break
                     46:             }
                     47:       }
                     48: end
                     49: 
                     50: #  Obtain next label
                     51: #
                     52: procedure obtain()
                     53:    local label, max
                     54:    label := []
                     55:    max := 0
                     56:    line := ""
                     57:    while line := read() do {
                     58:       if line[1] == "*" then next
                     59:       if line[1] == "#" then break
                     60:       if \first then {
                     61:          write(line)
                     62:          return
                     63:          }
                     64:       else put(label,line)
                     65:       max <:= *line
                     66:       if *label > ldepth then {
                     67:          error(label[1],1)
                     68:          return
                     69:          }
                     70:       if max > llength then {
                     71:          error(label[1],2)
                     72:          return
                     73:          }
                     74:       }
                     75:    every 1 to repet do format(label,max)
                     76: end
                     77: 
                     78: #  Format a label
                     79: #
                     80: procedure format(label,width)
                     81:    local j, indent
                     82:    indent := repl(" ",(llength - width) / 2)
                     83:    j := lsize - *label
                     84:    every 1 to j / 2 do write()
                     85:    every write(indent,!label)
                     86:    every 1 to (j + 1) / 2 do write()
                     87: end
                     88: 
                     89: #  Issue label for an error
                     90: #
                     91: procedure error(name,type)
                     92:    static badform
                     93:    initial badform := list(lsize)
                     94:    case type of {
                     95:       1:  badform[3] := "     **** too many lines"
                     96:       2:  badform[3] := "     **** line too long"
                     97:       }
                     98:    badform[1] := name
                     99:    every write(&errout,!badform)
                    100: end

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