Return to MKnames.awk CVS log

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

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

1.1       root        1: #*********************************************************************
                      2: #                         COPYRIGHT NOTICE                           *
                      3: #*********************************************************************
                      4: #        This software is copyright (C) 1982 by Pavel Curtis         *
                      5: #                                                                    *
                      6: #        Permission is granted to reproduce and distribute           *
                      7: #        this file by any means so long as no fee is charged         *
                      8: #        above a nominal handling fee and so long as this            *
                      9: #        notice is always included in the copies.                    *
                     10: #                                                                    *
                     11: #        Other rights are reserved except as explicitly granted      *
                     12: #        by written permission of the author.                        *
                     13: #                Pavel Curtis                                        *
                     14: #                Computer Science Dept.                              *
                     15: #                405 Upson Hall                                      *
                     16: #                Cornell University                                  *
                     17: #                Ithaca, NY 14853                                    *
                     18: #                                                                    *
                     19: #                Ph- (607) 256-4934                                  *
                     20: #                                                                    *
                     21: #                Pavel.Cornell@Udel-Relay   (ARPAnet)                *
                     22: #                decvax!cornell!pavel       (UUCPnet)                *
                     23: #********************************************************************/
                     24: 
                     25: #
                     26: #  $Header: /src386/usr/lib/ncurses/RCS/MKnames.awk,v 1.1 92/03/26 11:44:27 bin Exp Locker: bin $
                     27: #
                     28: 
                     29: BEGIN          {
                     30:                        print  "/*" > "boolnames"
                     31:                        print  " *      dump_names.c - Arrays of capability names for use by the" > "boolnames"
                     32:                        print  " *                      dump program." > "boolnames"
                     33:                        print  " *" > "boolnames"
                     34:                        print  " */" > "boolnames"
                     35:                        print  "" > "boolnames"
                     36:                        print  "" > "boolnames"
                     37:                        print  "char    *BoolNames[] = {" > "boolnames"
                     38:                        print  "char    *NumNames[] = {" > "numnames"
                     39:                        print  "char    *StrNames[] = {" > "strnames"
                     40:                }
                     41: 
                     42: $4 == "bool"   {
                     43:                        printf "\t\t%s,\n", $2 > "boolnames"
                     44:                }
                     45: 
                     46: $4 == "number" {
                     47:                        printf "\t\t%s,\n", $2 > "numnames"
                     48:                }
                     49: 
                     50: $4 == "str"    {
                     51:                        printf "\t\t%s,\n", $2 > "strnames"
                     52:                }
                     53: 
                     54: END            {
                     55:                        print  "};" > "boolnames"
                     56:                        print  "" > "boolnames"
                     57:                        print  "};" > "numnames"
                     58:                        print  "" > "numnames"
                     59:                        print  "};" > "strnames"
                     60:                }

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