Return to i-trfil.icn CVS log

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

Annotation of 43BSD/contrib/icon/src/cmd/i-trfil.icn, revision 1.1

1.1     ! root        1: #      I-TRFIL(1)
        !             2: #
        !             3: #      Icon trace filter
        !             4: #
        !             5: #      Allan J. Anderson
        !             6: #
        !             7: #      Last modified 7/10/83
        !             8: #
        !             9: 
        !            10: global buffer, ylist, nlist, yylist, priorlines, followlines
        !            11: 
        !            12: procedure main(a)
        !            13:    local s, n, i
        !            14:    initial {
        !            15:       ylist := []
        !            16:       nlist := []
        !            17:       yylist := []
        !            18:       buffer := []
        !            19:       priorlines := followlines := 0
        !            20:       }
        !            21:    every s := !a do
        !            22:       if s[1+:2] == ("-c" | "-C") then {
        !            23:         if n := integer(s[3:0] | a[i + 1]) then {
        !            24:            if n = 0 then priorlines := followlines := 0
        !            25:            else if n < 0 then priorlines := abs(n)
        !            26:            else if n > 0 then followlines := n
        !            27:            }
        !            28:         }
        !            29:       else if s[1] == "+" then
        !            30:         if *s <= 1 then next
        !            31:         else put(ylist,s[2:0])
        !            32:       else if s[1] == "^" then
        !            33:         if *s <= 1 then next
        !            34:         else put(nlist,s[2:0])
        !            35:       else if s[1] == "!" then
        !            36:         if *s <= 1 then next
        !            37:         else put(yylist,s[2:0])
        !            38:       else if not integer(s) then stop(
        !            39:         "usage: trfil +includestring ^excludestring !keepstring -cn <infile")
        !            40:    while trfil(read())
        !            41: end    # main
        !            42: 
        !            43: procedure trfil(line)
        !            44:    if *buffer > priorlines then get(buffer)
        !            45:    put(buffer,line)
        !            46:    if (*ylist = 0) | find(!ylist,line) then delcheck(line)
        !            47:    return
        !            48: end
        !            49: 
        !            50: procedure delcheck(line)
        !            51:    local n
        !            52:    if find(!nlist,line) then 
        !            53:       if not find(!yylist,line) then return
        !            54:    every write(get(buffer))
        !            55:    n := followlines
        !            56:    while n > 0 do {
        !            57:       if find(!ylist,line) & (not find(!nlist,line)) then
        !            58:         n := followlines
        !            59:       else n -:= 1
        !            60:       if *buffer < priorlines then put(buffer,line)
        !            61:       write(line)
        !            62:       if *buffer >= priorlines then get(buffer,line)
        !            63:       line := read()
        !            64:       }
        !            65:    if (priorlines > 0 | followlines > 0) then write("\t")
        !            66: end

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