Return to enrepl.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / book / f

Annotation of 43BSD/contrib/icon/book/f/enrepl.icn, revision 1.1.1.1

1.1       root        1: procedure enrepl(s)
                      2:    local c, s1
                      3:    s1 := ""
                      4:    s ? while c := move(1) do {
                      5:       i := 1 + (*tab(many(c)) | 0)
                      6:       if i > 4 then s1 ||:= c || "(" || i || ")"
                      7:       else s1 ||:= repl(c,i)
                      8:       }
                      9:    return s1
                     10: end
                     11: 
                     12: procedure derepl(s)
                     13:    local c, s1
                     14:    s1 := ""
                     15:    s ? {
                     16:       while s1 ||:= tab(upto('(') - 1) do {
                     17:          c := move(1)
                     18:          move(1)
                     19:          s1 ||:= repl(c,tab(upto(')')))
                     20:          move(1)
                     21:          }
                     22:       s1 ||:= tab(0)
                     23:       }
                     24:   return s1
                     25: end

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