Return to mkkeytab.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / tran

Annotation of 43BSD/contrib/icon/tran/mkkeytab.icn, revision 1.1

1.1     ! root        1: # mkkeytab - builds keyword.c, which is structure of keywords and
        !             2: #  their identification numbers. also builds keyword.h, which has
        !             3: #  defined constants giving keyword identification numbers.
        !             4: #  input is list of keyword/identfication number pairs, (alphabetic
        !             5: #  order-one pair per line) in file 'keywords', elements of a pair
        !             6: #  are separated by one or more blanks or tabs.
        !             7: 
        !             8: procedure main(args)
        !             9: local df, f, input, word, atab
        !            10: 
        !            11:    input := open("keywords") | stop("unable to open 'keywords'")
        !            12:    f := open("keyword.c","w")
        !            13:    df := open("../h/keyword.h","w")
        !            14:    write(df,"/*")
        !            15:    write(df," * Keyword definitions.")
        !            16:    write(df," */\n")
        !            17: 
        !            18:    write(f, "#include \"../h/keyword.h\"")   # put out table header
        !            19:    write(f, "#include \"sym.h\"")
        !            20:    write(f, "")
        !            21:    write(f, "/*")
        !            22:    write(f, " * Keyword table.")
        !            23:    write(f, " */")
        !            24:    write(f, "")
        !            25:    write(f, "struct keyent keytab[] = {")
        !            26: 
        !            27:    every                               # put out table body
        !            28:       trim(!input) ?
        !            29:          if word := tab(upto(' \t')) then {
        !            30:             tab(many(' \t'))
        !            31:             if *word < 6 then atab := "\t\t" else atab := "\t"
        !            32:             write(df, "#define K_",ucase(word),atab,right(tab(0),2)) 
        !            33:             write(f,"   \"",word,"\",\tK_",ucase(word),",")
        !            34:             }
        !            35:          else
        !            36:             write(&errout, "bad input: ", &subject)
        !            37: 
        !            38:    write(f,"   \"\"\t\t-1")
        !            39:    write(f, "   };")
        !            40: 
        !            41: end
        !            42: 
        !            43: procedure ucase(name)
        !            44:    return map(name,&lcase,&ucase)
        !            45: end

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