Return to MKinfo.awk CVS log

Up to [MW Coherent from dump] / coherent / g / usr / lib / ncurses

Annotation of coherent/g/usr/lib/ncurses/MKinfo.awk, revision 1.1.1.1

1.1       root        1: #
                      2: # Generate putinfo.c
                      3: # 10-23-92. Vlad.
                      4: #
                      5: BEGIN  {
                      6:                print "/*" > "boolnames"
                      7:                print " * putinfo.c" > "boolnames"
                      8:                print " * This file is generated by MKinfo.awk." > "boolnames"
                      9:                print " * Do not make any changes directly to this file" > "boolnames"
                     10:                print " */" > "boolnames"
                     11:                print "#include <stdio.h>" > "boolnames"
                     12:                print "#include <string.h>" > "boolnames"
                     13:                print "#include <ctype.h>" > "boolnames"
                     14:                print ""  > "boolnames"
                     15:                print "#define  bool    char"  > "boolnames"
                     16:                print "#define  TRUE    1" > "boolnames"        
                     17:                print "#define  FALSE   0" > "boolnames"
                     18:                print "" > "boolnames"
                     19:                print "#define\tMAXINDEX(array) (sizeof(array)/sizeof(array[0]))" > "boolnames"
                     20:                print "" > "boolnames"
                     21:                print "/*" > "boolnames"
                     22:                print " * bools and boolcaps;" > "boolnames"
                     23:                print " * lookup translate table for boolean fields." > "boolnames"
                     24:                print " */\n" > "boolnames"
                     25:                print "struct bools {" > "boolnames"
                     26:                print "\tchar\t*capname;\t/* termcap name */" > "boolnames"
                     27:                print "\tchar\t*infoname;\t/* terminfo name */" > "boolnames"
                     28:                print "};\n" > "boolnames"
                     29:                print "struct bools\tboolcaps[] = {" > "boolnames"
                     30:                print  "\n/*" > "numnames"
                     31:                print  " * nums and numcaps;" > "numnames"
                     32:                print  " * lookuptranslate table for numeric capabilities." > "numnames"
                     33:                print  " */" > "numnames"
                     34:                print "struct nums {" > "numnames"
                     35:                print "\tchar\t*capname;\t/* termcap name */" > "numnames"
                     36:                print "\tchar\t*infoname;\t/* terminfo name */" > "numnames"
                     37:                print "};\n" > "numnames"
                     38:                print "struct nums\tnumcaps[] = {" > "numnames"
                     39:                print  "\n/*" > "strnames"
                     40:                print  " * sts and strcaps;" > "strnames"
                     41:                print  " * lookuptranslate table for string capabilities." > "strnames"
                     42:                print  " */" > "strnames"
                     43:                print "struct strs {" > "strnames"
                     44:                print "\tchar\t*capname;\t/* termcap name */" > "strnames"
                     45:                print "\tchar\t*infoname;\t/* terminfo name */" > "strnames"
                     46:                print "\tchar\t*dflt;\t\t/* default value */" > "strnames"
                     47:                print "};\n" > "strnames"
                     48:                print "struct strs\tstrcaps[] = {" > "strnames"
                     49:        }
                     50: 
                     51: $4 == "bool"   {
                     52:                        printf "\t\t{ %s, %s },\n", $3, $2 > "boolnames"
                     53:                }
                     54: $4 == "number" {
                     55:                        printf "\t\t{ %s, %s },\n", $3, $2 > "numnames"
                     56:                }
                     57: 
                     58: $4 == "str"    {
                     59:                        if ($2 == "\"bel\"")
                     60:                                printf "\t\t{ %s, %s, \"^G\" },\n", $3, $2 > "strnames"
                     61:                        else if ($2 == "\"cr\"")
                     62:                                printf "\t\t{ %s, %s, \"\\r\" },\n", $3, $2 > "strnames"
                     63:                        else if ($2 == "\"cud1\"")
                     64:                                printf "\t\t{ %s, %s, \"\\n\" },\n", $3, $2 > "strnames"
                     65:                        else if ($2 == "\"cub1\"")
                     66:                                printf "\t\t{ %s, %s, \"\\b\" },\n", $3, $2 > "strnames"
                     67:                        else if ($2 == "\"ind\"")
                     68:                                printf "\t\t{ %s, %s, \"\\n\" },\n", $3, $2 > "strnames"
                     69:                        else
                     70:                                printf "\t\t{ %s, %s, ((char *)0) },\n", $3, $2 > "strnames"
                     71:                }
                     72: 
                     73: END            {
                     74:                        print  "};\n" > "boolnames"
                     75:                        print "#define\tMAXBOOLS\tMAXINDEX(boolcaps)" > "boolnames"
                     76:                        print  "};\n" > "numnames"
                     77:                        print "#define\tMAXNUMS\tMAXINDEX(numcaps)" > "numnames"
                     78:                        print  "};" > "strnames"
                     79:                        print "\n#define\tMAXSTRS\tMAXINDEX(strcaps)\n" > "strnames"
                     80:                }

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