Return to deansify.awk CVS log

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

Annotation of researchv10no/cmd/gre/deansify.awk, revision 1.1

1.1     ! root        1: # De-ANSI-fy C programs
        !             2: 
        !             3: # change void* to char *
        !             4:        { gsub(/void *\*/, "char *") }
        !             5: 
        !             6: # remove args from function declarations and typedefs
        !             7: # assume one per line (fitting on one line)
        !             8: 
        !             9: /^[a-zA-Z0-9_]+.*\([^(]*\);.*/ {
        !            10:        if($0 !~ /^print\(/ && $0 !~ /^fprint\(/ && $0 !~ /^if\(/) {
        !            11:                sub(/\([^(]*\);/, "();")
        !            12:                print
        !            13:                next
        !            14:        }
        !            15:     }
        !            16: 
        !            17: #    change function definition headers to old-style
        !            18: #    function definition headers on one line, ending with ')',
        !            19: #       with the return type (if not omitted) on previous line
        !            20: #    assume no parentheses inside arg list
        !            21: 
        !            22: /^[a-zA-Z0-9_]+\(.*\)$/ {
        !            23:        st = index($0, "(") + 1
        !            24:        n = length($0) - st
        !            25:        rawargs = substr($0, st, n)
        !            26:        printf("%s(", substr($0, 1, st-2))
        !            27:        if( rawargs == "void" ) {
        !            28:                printf(")\n");
        !            29:                next
        !            30:        }
        !            31:        nargs = split(rawargs, args, ", *")
        !            32:        for(i = 1; i <= nargs; i++){
        !            33:                if(! match(args[i], /[a-zA-Z0-9_]+ *$/)){
        !            34:                        if(! match(args[i], /[a-zA-Z0-9_]+\[.*\]$/))
        !            35:                                id = "OOPS"
        !            36:                        else {
        !            37:                                id = substr(args[i], RSTART)
        !            38:                                sub(/\[.*\]/, "", id)
        !            39:                        }
        !            40:                } else
        !            41:                        id = substr(args[i], RSTART, RLENGTH)
        !            42:                printf("%s", id)
        !            43:                if(i < nargs) printf(", ")
        !            44:        }
        !            45:        printf(")\n")
        !            46:        for(i = 1; i <= nargs; i++)
        !            47:                printf("\t%s;\n", args[i])
        !            48:        next
        !            49:     }
        !            50: 
        !            51: # remove pragmas
        !            52: 
        !            53: /^#[    ]*pragma/ { next }
        !            54: 
        !            55: # just print remaining lines
        !            56:        { print }

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