![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to repr.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / cfront / cfront2.00|
Return to repr.c CVS log | Up to [Research Unix] / researchv10no / cmd / cfront / cfront2.00 |
1.1 root 1: /*ident "@(#)ctrans:src/repr.c 1.1.2.7" */
2: /**************************************************************************
3:
4: C++ source for cfront, the C++ compiler front-end
5: written in the computer science research center of Bell Labs
6:
7: Copyright (c) 1984 AT&T, Inc. All Rights Reserved
8: THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T, INC.
9:
10: repr.c:
11:
12: *****************************************************************************/
13:
14: #include "cfront.h"
15:
16: char* oper_name(TOK op)
17: /*
18: return the string representation of operator "op"
19: */
20: {
21: switch (op) {
22: default: error('i',"oper_name(%k)",op);
23: case GNEW:
24: case NEW: return "__nw";
25: case GDELETE:
26: case DELETE: return "__dl";
27: case MUL: return "__ml";
28: case DIV: return "__dv";
29: case MOD: return "__md";
30: case UPLUS:
31: case PLUS: return "__pl";
32: case MINUS:
33: case UMINUS: return "__mi";
34: case LS: return "__ls";
35: case RS: return "__rs";
36: case EQ: return "__eq";
37: case NE: return "__ne";
38: case LT: return "__lt";
39: case GT: return "__gt";
40: case LE: return "__le";
41: case GE: return "__ge";
42: case AND:
43: case ADDROF: return "__ad";
44: case OR: return "__or";
45: case ER: return "__er";
46: case ANDAND: return "__aa";
47: case OROR: return "__oo";
48: case NOT: return "__nt";
49: case COMPL: return "__co";
50: case INCR: return "__pp";
51: case DECR: return "__mm";
52: case CALL: return "__cl";
53: case DEREF: return "__vc";
54: case ASSIGN: return "__as";
55: case REF: return "__rf";
56: case ASPLUS: return "__apl";
57: case ASMINUS: return "__ami";
58: case ASMUL: return "__amu";
59: case ASDIV: return "__adv";
60: case ASMOD: return "__amd";
61: case ASLS: return "__als";
62: case ASRS: return "__ars";
63: case ASAND: return "__aad";
64: case ASOR: return "__aor";
65: case ASER: return "__aer";
66: case CTOR: return "__ct";
67: case DTOR: return "__dt";
68: // operator T "__op"<signature of T>
69: // case SIZEOF: return "sizeof";
70: case CM: return "__cm";
71: case REFMUL: return "__rm";
72: // library functions:
73: // "_vec_delete"
74: // "_vec_new"
75: // "_main"
76: }
77: }
78:
79: #define new_op(ss,v) keys[v]=ss
80:
81: void otbl_init()
82: /*
83: operator representation table
84: */
85: {
86: new_op("->",REF);
87: new_op("." ,DOT);
88: new_op("!" ,NOT);
89: new_op("~" ,COMPL);
90: new_op("++",INCR);
91: new_op("--",DECR);
92: new_op("*" ,MUL);
93: new_op("&" ,AND);
94: new_op("&" ,ADDROF);
95: new_op("&" ,G_ADDROF);
96: new_op("/" ,DIV);
97: new_op("%" ,MOD);
98: new_op("+" ,PLUS);
99: new_op("+" ,UPLUS);
100: new_op("-" ,MINUS);
101: new_op("-" ,UMINUS);
102: new_op("<<",LS);
103: new_op(">>",RS);
104: new_op("<" ,LT);
105: new_op(">" ,GT);
106: new_op("<=",LE);
107: new_op(">=",GE);
108: new_op("==",EQ);
109: new_op("!=",NE);
110: new_op("^" ,ER);
111: new_op("|" ,OR);
112: new_op("&&",ANDAND);
113: new_op("||",OROR);
114: new_op("?:" ,QUEST);
115: // new_op(":" ,COLON);
116: new_op("=" ,ASSIGN);
117: new_op("," ,CM);
118: new_op("," ,G_CM);
119:
120: new_op(";" ,SM);
121: new_op("{" ,LC);
122: new_op("}" ,RC);
123: new_op("(" ,LP);
124: new_op(")" ,RP);
125: new_op("[" ,LB);
126: new_op("]" ,RB);
127:
128: new_op("+=",ASPLUS);
129: new_op("-=",ASMINUS);
130: new_op("*=",ASMUL);
131: new_op("/=",ASDIV);
132: new_op("%=",ASMOD);
133: new_op("&=",ASAND);
134: new_op("|=",ASOR);
135: new_op("^=",ASER);
136: new_op(">>=",ASRS);
137: new_op("<<=",ASLS);
138:
139: // new_op("sizeof",SIZEOF);
140: // new_op("new",NEW);
141: // new_op("delete",DELETE);
142:
143: new_op("0" ,ZERO);
144: new_op("[]" ,DEREF);
145: new_op("expression list", ELIST);
146: new_op("()", CALL);
147: new_op("generated function call",G_CALL);
148: new_op("inline function call",ICALL);
149: new_op("cast",CAST);
150: new_op("inline argument",ANAME);
151: new_op(".*",MEMPTR);
152:
153: new_op("class", COBJ);
154: new_op("enum", EOBJ);
155: new_op("union", ANON);
156:
157: new_op("function",FCT);
158: new_op("pointer",PTR);
159: new_op("reference",RPTR);
160: new_op("array",VEC);
161: new_op("identifier",ID);
162: new_op("name",NAME);
163: new_op("...",ELLIPSIS);
164: new_op("::",MEM);
165: new_op("type name",TYPE);
166: new_op("{}",BLOCK);
167: new_op("pair",PAIR);
168: new_op("declaration",DCL);
169: new_op("character constant",CCON);
170: new_op("integer constant",ICON);
171: new_op("float constant",FCON);
172: new_op("integer value",IVAL);
173: new_op("string",STRING);
174: new_op("label",LABEL);
175: new_op("'class', 'struct', or 'union'",AGGR);
176: new_op(" argument",ARG);
177: new_op(" empty expression",DUMMY);
178: new_op(" ::new",GNEW);
179: new_op(" constructor call",VALUE);
180: new_op(" ::delete",GDELETE);
181: new_op(ansi_opt?" long double":" double",LDOUBLE);
182: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.