source: trunk/mkstructinfo.awk @ 891

#! /usr/bin/awk -f
# vim:ts=4:sw=4
BEGIN {
    brace = 0;
    incomment = 0;
    buffer_len = 0;
}
function printstruct(structname) {
    printf "define(`ELEMENTSOF_%s', `%s')\n", structname, ELEMENTSOF[structname];
    printf "define(`COUNTOF_%s', `%s')\n", structname, COUNTOF[structname];
    printf "define(`SIZEOF_%s', `(  %s  )')\n", structname, SIZEOF[structname];
}
function countBrace(text,  len, i, char, braceCount) {
    len = length(text);
    braceCount = 0;
    for (i = 1; i <= len; ++i) {
        char = substr(text, i, 1);
        if (char == "{") {
            braceCount = braceCount + 1;
        }
        else if (char == "}") {
            braceCount = braceCount - 1;
        }
    }
    return braceCount;
}

# multiline comment handling
{
    # removes one line comment
    gsub(/\/\*(.+?)\*\//, " ");
}
/\*\// {
    if (incomment) {
        sub(/.*\*\//, "");
        incomment = 0;
    }
}
incomment {
    next;
}
/\/\*/ {
    sub(/\/\*.*/, "");
    incomment = 1;
    # fall through
}

# skip file/line mark here to be faster
/^#/ {
    next;
}

/^}.*;/ {
    if (instruct) {
        sub(";", "");
        structname = instruct;
        if (structname == 1 && $2) {
            structname = $2;
        }
        if (structname in typedefs) {
            structname = typedefs[structname];
        }
        sizeinfo = "";
        elms = "";
        for (i = 0; i in buffer; i ++) {
            if (i) {
                sizeinfo = sizeinfo " + ";
            }
            sizeinfo = sizeinfo "sizeof(((" structname "*)NULL)->" buffer[i] ")";

            if (i == 0) {
                elms = "\"" buffer[i] "\"";
            }
            else {
                elms = elms "," "\"" buffer[i] "\"";
            }
        }
        ELEMENTSOF[structname] = elms;
        COUNTOF[structname]    = i;
        SIZEOF[structname]     = sizeinfo;
        printstruct(structname);
        print "\n";
        for (i in buffer) {
            delete buffer[i];
        }
        buffer_len = 0;
        instruct = 0;
    }
    next;
}

/.[{}]/ {
    brace += countBrace($0);
}

{
    if (brace == 1 && instruct) {
        gsub(/(^[\t ]+|[\t ]+$)/, ""); # trim whitespaces
        sub(/.*[{}]/, "");
        gsub(/\[[^\]]+\]/, ""); # ignore [...]
        gsub(/:[0-9]+/, ""); # ignore struct bit
        if (match($0, /^[^(]*\([ ]*\*([^)]+)\)/)) {
            sub(/ +/, "")
            sub(/^[^(]*\(\*/, "");
            sub(/\).*/, "");
            # function pointer
            buffer[buffer_len] = $0;
            buffer_len ++;
        }
        else {
            # process normal variables

            # ignore any ()s
            while (gsub(/(\([^)]*\))/, "")) {
            }
            if (match($0, /[()]/)) {
                next;
            }
            # unsigned int *a,  b; int c;
            gsub(/[*]/, " ");
            # unsigned int a,  b; int c;
            gsub(/ +/, " ");
            # unsigned int a, b; int c;
            gsub(/ *[,;]/, ";");
            # unsigned int a; b; int c;
            if (!match($0, /;/)) {
                next;
            }
            # print "=DEBUG=" $0 "==";
            split($0, chunks, ";");
            # [unsigned int a, b, c]

            for (i = 1; i in chunks; i ++) {
                if (chunks[i] == "") {
                    delete chunks[i];
                    continue;
                }
                split(chunks[i], pieces, " ");
                # [unsigned, int, a]
                # [b]
                # [c]

                last_piece = "";
                for (j = 1; j in pieces; j ++) {
                    last_piece = pieces[j];
                    delete pieces[j];
                }
                if (last_piece == "") {
                    # print "=ERROR=" chunks[i] "==";
                    delete chunks[i];
                    continue;
                }
                # a
                # b
                # c

                buffer[buffer_len] = last_piece;
                buffer_len ++;
                delete chunks[i]
            }
            last_piece = "";
        }
        next;
    }
}

/^typedef struct [^{]*;/ {
    sub(";", "");
    typename=$3;
    newtypename=$4;
    typedefs[typename] = newtypename;
    if (ELEMENTSOF[typename]) {
        ELEMENTSOF[newtypename] = ELEMENTSOF[typename];
        COUNTOF[newtypename]    = COUNTOF[typename];
        sub(/.*/, SIZEOF[typename]);
        gsub(typename, newtypename);
        SIZEOF[newtypename]     = $0;
        printstruct(newtypename);
    }
    next;
}
/^typedef struct .*\{[^}]*$/ {
    brace = countBrace($0);
    if (brace > 0) {
        instruct = 1;
    }
    else {
        brace = 0;
        instruct = 0;
    }

    for (i in buffer) {
        delete buffer[i];
    }
    next;
}

/^struct .*\{.*/ {
    brace = countBrace($0);
    if (brace > 0) {
        instruct = $2;
    }
    else {
        brace = 0;
        instruct = 0;
    }

    for (i in buffer) {
        delete buffer[i];
    }
    next;
}