Return to stubs.awk CVS log

Up to [Research Unix] / researchv10no / libj

Annotation of researchv10no/libj/stubs.awk, revision 1.1

1.1     ! root        1: BEGIN {
        !             2: 
        !             3:        FS=":";
        !             4:        type["c"] = "char"
        !             5:        type["c*"] = "char *"
        !             6:        type["c**"] = "char **"
        !             7:        type["i"] = "int"
        !             8:        type["l"] = "long"
        !             9:        type["s"] = "short"
        !            10:        type["v"] = "void"
        !            11: 
        !            12:        type["B"] = "Bitmap"
        !            13:        type["B*"] = "Bitmap *"
        !            14:        type["C"] = "Code"
        !            15:        type["F"] = "Font"
        !            16:        type["F*"] = "Font *"
        !            17:        type["M"] = "Menu"
        !            18:        type["M*"] = "Menu *"
        !            19:        type["P"] = "Point"
        !            20:        type["P*"] = "Point *"
        !            21:        type["R"] = "Rectangle"
        !            22:        type["R*"] = "Rectangle *"
        !            23:        type["T"] = "Texture"
        !            24:        type["T*"] = "Texture *"
        !            25: 
        !            26:        s = "ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz "
        !            27:        # set upper["A"] = upper["a"] = "A"
        !            28:        for (i = 1; i <= 27; i++) {
        !            29:                upper[substr(s,i+27,1)] = substr(s,i,1)
        !            30:                upper[substr(s,i,1)] = substr(s,i,1)
        !            31:        }
        !            32: 
        !            33:        STUB = "stubs.c"
        !            34:        printf "#include \"jerq.h\"\n" >STUB
        !            35:        printf "#include \"commands.h\"\n" >STUB
        !            36:        printf "#include \"io.h\"\n" >STUB
        !            37:        printf "\n" >STUB
        !            38: 
        !            39:        COM = "commands.h"
        !            40:        printf "#define CCBALLOC 1\n#define CCBFREE 2\n#define CCEXIT 3\n" >COM
        !            41:        printf "#define CCFFREE 4\n#define CCGETFONT 5\n" >COM
        !            42:        printf "#define CCMENUHIT 6\n#define CCMENU 7\n#define CCBSPLINE 8\n" >COM
        !            43:        printf "#define CCGETMOUSE 9\n#define CCKBDCHAR 20\n" >COM
        !            44:        printf "#define CCTRACKARC 10\n#define CCTRACKRECT 11\n" >COM
        !            45:        printf "#define CCTRACKCIRCLE 12\n#define CCTRACKDISC 13\n" >COM
        !            46:        printf "#define CCTRACKELARC 14\n#define CCTRACKELDISC 15\n" >COM
        !            47:        printf "#define CCTRACKELLIPSE 16\n#define CCTRACKLINE 17\n" >COM
        !            48:        printf "#define CCTRACKRECTF 18\n#define CCTRACKSTRING 19\n" >COM
        !            49:        d = 21
        !            50: }
        !            51: 
        !            52: func doSendRec(s,cmd) {
        !            53:        printf "\t%s", cmd >STUB
        !            54:        u = index(s,"u")
        !            55:        tt = index(s,"**")
        !            56:        t = index(s,"*")
        !            57:        f = index(s,"*()")
        !            58:        if (f>0) {
        !            59:                printf "Function" >STUB
        !            60:                s = type[substr(s,u+1,f-u-1)]
        !            61:        }
        !            62:        else if (tt>0) {
        !            63:                printf "ToTo" >STUB
        !            64:                s = type[substr(s,u+1,tt-u-1)]
        !            65:        }
        !            66:        else if (t>0) {
        !            67:                printf "To" >STUB
        !            68:                s = type[substr(s,u+1,t-u-1)]
        !            69:        }
        !            70:        else if (u>0) {
        !            71:                printf "Unsigned" >STUB
        !            72:                s = type[substr(s,u+1,length(s)-u)]
        !            73:        }
        !            74:        else s = type[s]
        !            75:        s2 = substr(s,2,length(s)-1)
        !            76:        s1 = upper[substr(s,1,1)]
        !            77:        printf "%s%s", s1, s2 >STUB
        !            78:        if (cmd == "send") printf "(arg%d);\n", i-2 >STUB
        !            79:        else printf "();\n" >STUB
        !            80: }
        !            81: 
        !            82: {      
        !            83:        printf "%s %s(", type[$1], $2 >STUB
        !            84:        for (i=3; i<=NF; i++) {
        !            85:                if (i>3) 
        !            86:                        printf ", " >STUB
        !            87:                printf "arg%d", i-2  >STUB
        !            88:        }
        !            89:        printf ")\n" >STUB
        !            90:        for (i=3; i<=NF; i++) {
        !            91:                u = index($i, "u")
        !            92:                f = index($i,"*()")
        !            93:                t = index($i,"*")
        !            94:                if (u>0) printf "unsigned " >STUB
        !            95:                if (f>0) 
        !            96:                 printf "%s (*arg%d)();\n", type[substr($i,u+1,f-u-1)], i-2 >STUB
        !            97:                else {
        !            98:                        printf "%s", type[substr($i,u+1,length($i)-u)] >STUB
        !            99:                        if (t==0) printf " " >STUB
        !           100:                        printf "arg%d;\n", i-2 >STUB
        !           101:                }
        !           102:        }
        !           103:        printf "{\n" >STUB
        !           104:        printf "\tsendCommand(CC" >STUB
        !           105: #      printf "\t" >COM
        !           106:        printf "#define CC" >COM 
        !           107:        for (i=1; i<=length($2); i++) {
        !           108:                printf "%s", upper[substr($2,i,1)] >STUB
        !           109:                printf "%s", upper[substr($2,i,1)] >COM 
        !           110:        }
        !           111:        printf ");\n" >STUB
        !           112: #      printf ",\n" >COM
        !           113:        printf " %d\n", d >COM
        !           114:        d = d+1
        !           115:        for (i=3; i<=NF; i++) doSendRec($i,"send")
        !           116:        if ($1 != "v") doSendRec($1,"flush();\n\treturn rec")
        !           117:        printf "}\n\n" >STUB
        !           118: }
        !           119: 
        !           120: #END {
        !           121: #      printf "};\n" >COM
        !           122: #}

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