Return to edscript.icn CVS log

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

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

1.1     ! root        1: #      EDSCRIPT(1)
        !             2: #
        !             3: #      Produce script for ed(1)
        !             4: #
        !             5: #      Ralph E. Griswold
        !             6: #
        !             7: #      Last modified 4/27/83
        !             8: #
        !             9: 
        !            10: procedure main()
        !            11:    local line, image, object, char
        !            12:    while line := read() do {
        !            13:       line ? {
        !            14:          char := move(1) | {error(line); next}
        !            15:          image := tab(find(char)) | {error(line); next}
        !            16:          move(1)
        !            17:          object := tab(find(char)) | {error(line); next}
        !            18:          }
        !            19:       write("g/",xform(image),"/s//",xform(object),"/g")
        !            20:    }
        !            21:    write("w\nq")
        !            22: end
        !            23: 
        !            24: #  process characters that have meaning to ed(1).
        !            25: #
        !            26: procedure insert()
        !            27:    static special
        !            28:    initial special := '\\/^&*[.$'
        !            29:    suspend {
        !            30:       tab(upto(special)) ||
        !            31:       "\\" ||
        !            32:       move(1) ||
        !            33:       (insert() | tab(0))
        !            34:       }
        !            35: end
        !            36: 
        !            37: procedure error(line)
        !            38:    write(&errout,"*** erroneous input: ",line)
        !            39: end
        !            40: 
        !            41: #  transform line
        !            42: #
        !            43: procedure xform(line)
        !            44:    line ?:= insert()
        !            45:    return line
        !            46: end

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