Return to gensym.awk CVS log

Up to [GnuMach] / OSKit-Mach

Annotation of OSKit-Mach/gensym.awk, revision 1.1

1.1     ! root        1: #
        !             2: # Copyright (c) 1994 The University of Utah and
        !             3: # the Computer Systems Laboratory (CSL).  All rights reserved.
        !             4: #
        !             5: # Permission to use, copy, modify and distribute this software and its
        !             6: # documentation is hereby granted, provided that both the copyright
        !             7: # notice and this permission notice appear in all copies of the
        !             8: # software, derivative works or modified versions, and any portions
        !             9: # thereof, and that both notices appear in supporting documentation.
        !            10: #
        !            11: # THE UNIVERSITY OF UTAH AND CSL ALLOW FREE USE OF THIS SOFTWARE IN ITS "AS
        !            12: # IS" CONDITION.  THE UNIVERSITY OF UTAH AND CSL DISCLAIM ANY LIABILITY OF
        !            13: # ANY KIND FOR ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
        !            14: #
        !            15: # CSL requests users of this software to return to [email protected] any
        !            16: # improvements that they make and grant CSL redistribution rights.
        !            17: #
        !            18: #      Author: Bryan Ford, University of Utah CSL
        !            19: #
        !            20: 
        !            21: BEGIN {
        !            22:        bogus_printed = "no"
        !            23: }
        !            24: 
        !            25: # Start the bogus function just before the first sym directive,
        !            26: # so that any #includes higher in the file don't get stuffed inside it.
        !            27: /^[a-z]/ {
        !            28:        if (bogus_printed == "no")
        !            29:        {
        !            30:                print "void bogus() {";
        !            31:                bogus_printed = "yes";
        !            32:        }
        !            33: }
        !            34: 
        !            35: # Take an arbitrarily complex C symbol or expression and constantize it.
        !            36: /^expr/ {
        !            37:        print "__asm (\"\\n\\";
        !            38:        if ($3 == "")
        !            39:                printf "* %s mAgIc%%0\" : : \"i\" (%s));\n", $2, $2;
        !            40:        else
        !            41:                printf "* %s mAgIc%%0\" : : \"i\" (%s));\n", $3, $2;
        !            42: }
        !            43: 
        !            44: # Output a symbol defining the size of a C structure.
        !            45: /^size/ {
        !            46:        print "__asm (\"\\n\\";
        !            47:        if ($4 == "")
        !            48:                printf "* %s_SIZE mAgIc%%0\" : : \"i\" (sizeof(struct %s)));\n",
        !            49:                        toupper($3), $2;
        !            50:        else
        !            51:                printf "* %s mAgIc%%0\" : : \"i\" (sizeof(struct %s)));\n",
        !            52:                        $4, $2;
        !            53: }
        !            54: 
        !            55: # Output a symbol defining the byte offset of an element of a C structure.
        !            56: /^offset/ {
        !            57:        print "__asm (\"\\n\\";
        !            58:        if ($5 == "")
        !            59:        {
        !            60:                printf "* %s_%s mAgIc%%0\" : : \"i\" (&((struct %s*)0)->%s));\n",
        !            61:                        toupper($3), toupper($4), $2, $4;
        !            62:        }
        !            63:        else
        !            64:        {
        !            65:                printf "* %s mAgIc%%0\" : : \"i\" (&((struct %s*)0)->%s));\n",
        !            66:                        toupper($5), $2, $4;
        !            67:        }
        !            68: }
        !            69: 
        !            70: # Copy through all preprocessor directives.
        !            71: /^#/ {
        !            72:        print
        !            73: }
        !            74: 
        !            75: END {
        !            76:        print "}"
        !            77: }

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