Return to escape.icn CVS log

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

Annotation of 43BSD/contrib/icon/src/lib/escape.icn, revision 1.1.1.1

1.1       root        1: #      ESCAPE(2)
                      2: #
                      3: #      Interpret Icon literal strings
                      4: #
                      5: #      William H. Mitchell
                      6: #
                      7: #      Last modified 8/14/84
                      8: #
                      9: 
                     10: procedure escape(s)
                     11:    static digits
                     12:    initial digits := '0123456789'
                     13:    ns := ""
                     14:    s ? while c := move(1) do {
                     15:       ns ||:=
                     16:          if c == "\\" then
                     17:          case c2 := (move(1) | "") of {
                     18:             "b": "\b"
                     19:             "d": "\d"
                     20:             "e": "\e"
                     21:             "f": "\f"
                     22:             "l": "\l"
                     23:             "n": "\n"
                     24:             "r": "\r"
                     25:             "t": "\t"
                     26:             "v": "\v"
                     27:             "\'": "\'"
                     28:             "\"": "\""
                     29:             "x": hexcode(move(2))
                     30:             "^": ctrlcode(move(1))
                     31:             any(digits,c2) & c2: octcode(c2 || move(2))
                     32:             "": c
                     33:             default: {move(-1); c}
                     34:             }
                     35:       else c
                     36:       }
                     37:    return ns
                     38: end
                     39: 
                     40: procedure hexcode(s)
                     41:    return &cset[integer("16r" || s) + 1]
                     42: end
                     43: 
                     44: procedure octcode(s)
                     45:    return &cset[integer("8r" || s) + 1]
                     46: end
                     47: 
                     48: procedure ctrlcode(s)
                     49:    return &cset[find(map(s),&lcase) + 1]
                     50: end

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