1: # 2: /* 3: ** CMAP -- character map 4: ** 5: ** Defines: 6: ** map of lexical class of characters 7: ** 8: ** Required By: 9: ** all lexical routines 10: ** 11: ** Files: 12: ** constants.h -- for manifest constants 13: ** 14: ** History: 15: ** 5/31/78 -- (marc) based on rick's Cmap for quel 16: */ 17: 18: # include "constants.h" 19: 20: char Cmap [] = 21: { 22: EOF_TOK, CNTRL, CNTRL, CNTRL, CNTRL, CNTRL, CNTRL, CNTRL, 23: CNTRL, PUNCT, PUNCT, CNTRL, CNTRL, PUNCT, CNTRL, CNTRL, 24: CNTRL, CNTRL, CNTRL, CNTRL, CNTRL, CNTRL, CNTRL, CNTRL, 25: CNTRL, CNTRL, CNTRL, CNTRL, CNTRL, CNTRL, CNTRL, CNTRL, 26: PUNCT, OPATR, OPATR, OPATR, OPATR, OPATR, OPATR, OPATR, 27: OPATR, OPATR, OPATR, OPATR, OPATR, OPATR, OPATR, OPATR, 28: NUMBR, NUMBR, NUMBR, NUMBR, NUMBR, NUMBR, NUMBR, NUMBR, 29: NUMBR, NUMBR, OPATR, OPATR, OPATR, OPATR, OPATR, OPATR, 30: OPATR, ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, 31: ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, 32: ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, 33: ALPHA, ALPHA, ALPHA, OPATR, OPATR, OPATR, OPATR, ALPHA, 34: OPATR, ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, 35: ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, 36: ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, ALPHA, 37: ALPHA, ALPHA, ALPHA, OPATR, OPATR, OPATR, OPATR, CNTRL 38: };