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     ! 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.