Return to amkconf CVS log

Up to [Research Unix] / researchv10no / cmd / adb / conf

Annotation of researchv10no/cmd/adb/conf/amkconf, revision 1.1

1.1     ! root        1: #!/usr/bin/awk -f
        !             2: BEGIN {
        !             3:        files = "files";
        !             4:        templ = "templ";
        !             5: #      out = stdout;
        !             6:        if (ARGC == 2 && ARGV[1] == "-")        # ugh
        !             7:                ARGC--;
        !             8:        if (ARGC < 2) {
        !             9:                printf "usage: %s pat ...\n", ARGV[0];
        !            10:                exit
        !            11:        }
        !            12:        for (i = 1; i < ARGC; i++)
        !            13:                atags[ARGV[i]] = ARGV[i];
        !            14:        rdfiles(files, atags);
        !            15:        putmake(templ, out);
        !            16:        exit
        !            17: }
        !            18: 
        !            19: #
        !            20: # read the list of component files
        !            21: # pick out the ones we care about
        !            22: # return
        !            23: #      src     array of source filenames
        !            24: #      obj     array of objects
        !            25: #      typ     array of types
        !            26: #      nf      number of names in the above arrays
        !            27: # to preserve order, the arrays are indexed by numbers
        !            28: #
        !            29: 
        !            30: func rdfiles(files, atags)
        !            31: {
        !            32:        nf = 0;
        !            33:        while ((getline f <files) > 0) {
        !            34:                if (split(f, ff, ":[ \t]*") != 4) {
        !            35:                        printf "bad files line: %s\n", f;
        !            36:                        continue;
        !            37:                }
        !            38:                if (split(ff[4], tags, "[ \t]+") < 1) {
        !            39:                        printf "bad files line: %s\n", f;
        !            40:                        continue;
        !            41:                }
        !            42:                mat = 0;
        !            43:                for (t in tags)
        !            44:                        if (atags[tags[t]] != "") {
        !            45:                                mat = 1;
        !            46:                                break;
        !            47:                        }
        !            48:                if (mat == 0)
        !            49:                        continue;
        !            50:                nf++;
        !            51:                obj[nf] = ff[1];
        !            52:                src[nf] = ff[2];        # perhaps a list
        !            53:                typ[nf] = ff[3];
        !            54:        }
        !            55:        for (i = 1; i < nf; i++)
        !            56:                allobj=allobj " " obj[i];
        !            57: }
        !            58: 
        !            59: #
        !            60: # read the template makefile
        !            61: # scoop up the rules;
        !            62: # spit out lists;
        !            63: # copy the literal part;
        !            64: # spit out rules for our files
        !            65: #
        !            66: 
        !            67: func putmake(templ, out)
        !            68: {
        !            69:        while ((getline l <templ) > 0) {
        !            70:                if (l == "%%")
        !            71:                        break;
        !            72:                if (l ~ /^#/)
        !            73:                        continue;
        !            74:                if ((i = index(l, ":")) == 0) {
        !            75:                        printf "bad line in template: %s\n", l;
        !            76:                        continue;
        !            77:                }
        !            78:                t = substr(l, 1, i - 1);
        !            79:                rule = "";
        !            80:                while ((getline r <templ) > 0) {
        !            81:                        if (r == "")
        !            82:                                break;
        !            83:                        rule = rule "\n" r;
        !            84:                }
        !            85:                if (rules[t] != "")
        !            86:                        printf "dup rule for %s ignored\n", t;
        !            87:                else {
        !            88:                        rules[t] = rule;
        !            89:                        extra[t] = substr(l, i + 1, length(l));
        !            90:                }
        !            91:        }
        !            92:        print "FILES=" allobj   # >out
        !            93:        while ((getline l <templ) > 0)
        !            94:                print l         # >out
        !            95:        print                   # >out
        !            96:        for (i = 1; i < nf; i++)
        !            97:                if (rules[typ[i]] == "")
        !            98:                        print obj[i] ": " src[i];
        !            99:                else
        !           100:                        print obj[i] ": " src[i] " " extra[typ[i]] rules[typ[i]];
        !           101: }

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