Return to cvt CVS log

Up to [Research Unix] / researchv10no / cmd / troff

Annotation of researchv10no/cmd/troff/cvt, revision 1.1

1.1     ! root        1: 
        !             2: awk '
        !             3: 
        !             4: /^{/ {
        !             5:        if (prev != "") {
        !             6:                # comments can be trouble (e.g. ffree())
        !             7:                if ( (c = match(prev, /\/\*.*\*\/$/)) != 0 ) {
        !             8:                        comment = substr(prev, c)
        !             9:                        sub(/\/\*.*\*\/$/, "", prev)
        !            10:                } else comment = ""
        !            11: 
        !            12:                x = prev
        !            13: 
        !            14:                # isolate argument list
        !            15:                sub(/^[^(]*\(/, "", x)
        !            16:                sub(/\)[^)]*$/, "", x)
        !            17: 
        !            18:                # find the names in it
        !            19:                n = split(x, args)
        !            20:                arglist = ""
        !            21:                for (i = 2; i <= n; i += 2)
        !            22:                        arglist = arglist args[i]
        !            23:                gsub(/\(\*f\)\(Tchar\)/, "f", arglist)  # special case for n4.c
        !            24:                gsub(/\[[0-9]+\]/, "", arglist)         #     for n8.c
        !            25:                gsub(/[*()\[\]]/, "", arglist)          # discard noise characters *()[]
        !            26:                gsub(/,/, ", ", arglist)                # space nicely
        !            27:                sub(/\(.*\)/, "(" arglist ")", prev)    # reconstruct
        !            28:                print prev comment
        !            29: 
        !            30:                # argument declarations
        !            31:                gsub(/,/, ";", x)
        !            32:                gsub(/\(\*f\)\(Tchar\)/, "(*f)()", x)   # special case for n4.c
        !            33:                if (x != "")
        !            34:                        print "\t" x ";"
        !            35:        }
        !            36:        prev = $0
        !            37:        next
        !            38: }
        !            39: 
        !            40: {      print prev
        !            41:        prev = $0
        !            42: }
        !            43: 
        !            44: END { print prev }
        !            45: ' $*

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