1 | //
|
---|
2 | // Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo
|
---|
3 | //
|
---|
4 | // The contents of this file are covered under the licence agreement in the
|
---|
5 | // file "LICENCE" distributed with Cforall.
|
---|
6 | //
|
---|
7 | // OperatorTable.cc --
|
---|
8 | //
|
---|
9 | // Author : Richard C. Bilson
|
---|
10 | // Created On : Mon May 18 07:44:20 2015
|
---|
11 | // Last Modified By : Peter A. Buhr
|
---|
12 | // Last Modified On : Mon Feb 10 18:12:12 2020
|
---|
13 | // Update Count : 17
|
---|
14 | //
|
---|
15 |
|
---|
16 | #include <algorithm> // for any_of
|
---|
17 | #include <map> // for map, _Rb_tree_const_iterator, map<>::const_iterator
|
---|
18 | #include <utility> // for pair
|
---|
19 |
|
---|
20 | #include "OperatorTable.h"
|
---|
21 | #include "Common/utility.h"
|
---|
22 |
|
---|
23 | namespace CodeGen {
|
---|
24 | namespace {
|
---|
25 | const OperatorInfo tableValues[] = {
|
---|
26 | { "?[?]", "", "_operator_index", "Index", OT_INDEX },
|
---|
27 | { "?{}", "=", "_constructor", "Constructor", OT_CTOR },
|
---|
28 | { "^?{}", "", "_destructor", "Destructor", OT_DTOR },
|
---|
29 | { "?()", "", "_operator_call", "Call Operator", OT_CALL },
|
---|
30 | { "?++", "++", "_operator_postincr", "Postfix Increment", OT_POSTFIXASSIGN },
|
---|
31 | { "?--", "--", "_operator_postdecr", "Postfix Decrement", OT_POSTFIXASSIGN },
|
---|
32 | { "*?", "*", "_operator_deref", "Dereference", OT_PREFIX },
|
---|
33 | { "+?", "+", "_operator_unaryplus", "Plus", OT_PREFIX },
|
---|
34 | { "-?", "-", "_operator_unaryminus", "Minus", OT_PREFIX },
|
---|
35 | { "~?", "~", "_operator_bitnot", "Bitwise Not", OT_PREFIX },
|
---|
36 | { "!?", "!", "_operator_lognot", "Logical Not", OT_PREFIX },
|
---|
37 | { "++?", "++", "_operator_preincr", "Prefix Increment", OT_PREFIXASSIGN },
|
---|
38 | { "--?", "--", "_operator_predecr", "Prefix Decrement", OT_PREFIXASSIGN },
|
---|
39 | { "?\\?", "\\", "_operator_exponential", "Exponentiation", OT_INFIX },
|
---|
40 | { "?*?", "*", "_operator_multiply", "Multiplication", OT_INFIX },
|
---|
41 | { "?/?", "/", "_operator_divide", "Division", OT_INFIX },
|
---|
42 | { "?%?", "%", "_operator_modulus", "Modulo", OT_INFIX },
|
---|
43 | { "?+?", "+", "_operator_add", "Addition", OT_INFIX },
|
---|
44 | { "?-?", "-", "_operator_subtract", "Substraction", OT_INFIX },
|
---|
45 | { "?<<?", "<<", "_operator_shiftleft", "Shift Left", OT_INFIX },
|
---|
46 | { "?>>?", ">>", "_operator_shiftright", "Shift Right", OT_INFIX },
|
---|
47 | { "?<?", "<", "_operator_less", "Less-than", OT_INFIX },
|
---|
48 | { "?>?", ">", "_operator_greater", "Greater-than", OT_INFIX },
|
---|
49 | { "?<=?", "<=", "_operator_lessequal", "Less-than-or-Equal", OT_INFIX },
|
---|
50 | { "?>=?", ">=", "_operator_greaterequal", "Greater-than-or-Equal", OT_INFIX },
|
---|
51 | { "?==?", "==", "_operator_equal", "Equality", OT_INFIX },
|
---|
52 | { "?!=?", "!=", "_operator_notequal", "Not-Equal", OT_INFIX },
|
---|
53 | { "?&?", "&", "_operator_bitand", "Bitwise And", OT_INFIX },
|
---|
54 | { "?^?", "^", "_operator_bitxor", "Bitwise Xor", OT_INFIX },
|
---|
55 | { "?|?", "|", "_operator_bitor", "Bitwise Or", OT_INFIX },
|
---|
56 | { "?=?", "=", "_operator_assign", "Assignment", OT_INFIXASSIGN },
|
---|
57 | { "?\\=?", "\\=", "_operator_expassign", "Exponentiation Assignment", OT_INFIXASSIGN },
|
---|
58 | { "?*=?", "*=", "_operator_multassign", "Multiplication Assignment", OT_INFIXASSIGN },
|
---|
59 | { "?/=?", "/=", "_operator_divassign", "Division Assignment", OT_INFIXASSIGN },
|
---|
60 | { "?%=?", "%=", "_operator_modassign", "Modulo Assignment", OT_INFIXASSIGN },
|
---|
61 | { "?+=?", "+=", "_operator_addassign", "Addition Assignment", OT_INFIXASSIGN },
|
---|
62 | { "?-=?", "-=", "_operator_subassign", "Substrction Assignment", OT_INFIXASSIGN },
|
---|
63 | { "?<<=?", "<<=", "_operator_shiftleftassign", "Shift Left Assignment", OT_INFIXASSIGN },
|
---|
64 | { "?>>=?", ">>=", "_operator_shiftrightassign", "Shift Right Assignment", OT_INFIXASSIGN },
|
---|
65 | { "?&=?", "&=", "_operator_bitandassign", "Bitwise And Assignment", OT_INFIXASSIGN },
|
---|
66 | { "?^=?", "^=", "_operator_bitxorassign", "Bitwise Xor Assignment", OT_INFIXASSIGN },
|
---|
67 | { "?|=?", "|=", "_operator_bitorassign", "Bitwise Or Assignment", OT_INFIXASSIGN },
|
---|
68 | };
|
---|
69 |
|
---|
70 | const int numOps = sizeof( tableValues ) / sizeof( OperatorInfo );
|
---|
71 |
|
---|
72 | std::map< std::string, OperatorInfo > table;
|
---|
73 |
|
---|
74 | void initialize() {
|
---|
75 | for ( int i = 0; i < numOps; ++i ) {
|
---|
76 | table[ tableValues[i].inputName ] = tableValues[i];
|
---|
77 | } // for
|
---|
78 | }
|
---|
79 | } // namespace
|
---|
80 |
|
---|
81 | bool operatorLookup( const std::string & funcName, OperatorInfo & info ) {
|
---|
82 | static bool init = false;
|
---|
83 | if ( ! init ) {
|
---|
84 | initialize();
|
---|
85 | } // if
|
---|
86 |
|
---|
87 | std::map< std::string, OperatorInfo >::const_iterator i = table.find( funcName );
|
---|
88 | if ( i == table.end() ) {
|
---|
89 | if ( isPrefix( funcName, "?`" ) ) { // user-defined postfix operator ?
|
---|
90 | info.inputName = funcName;
|
---|
91 | info.symbol = funcName.substr(2);
|
---|
92 | info.outputName = toString( "__postfix_call_", info.symbol );
|
---|
93 | info.type = OT_POSTFIX;
|
---|
94 | return true;
|
---|
95 | }
|
---|
96 | return false;
|
---|
97 | } else {
|
---|
98 | info = i->second;
|
---|
99 | return true;
|
---|
100 | } // if
|
---|
101 | }
|
---|
102 |
|
---|
103 | bool isOperator( const std::string & funcName ) {
|
---|
104 | OperatorInfo info;
|
---|
105 | return operatorLookup( funcName, info );
|
---|
106 | }
|
---|
107 |
|
---|
108 | std::string operatorFriendlyName( const std::string & funcName ) {
|
---|
109 | OperatorInfo info;
|
---|
110 | if( operatorLookup( funcName, info ) ) {
|
---|
111 | return info.friendlyName;
|
---|
112 | }
|
---|
113 | return "";
|
---|
114 | }
|
---|
115 |
|
---|
116 | /// determines if a given function name is one of the operator types between [begin, end)
|
---|
117 | template<typename Iterator>
|
---|
118 | bool isOperatorType( const std::string & funcName, Iterator begin, Iterator end ) {
|
---|
119 | OperatorInfo info;
|
---|
120 | if ( operatorLookup( funcName, info ) ) {
|
---|
121 | return std::find( begin, end, info.type ) != end;
|
---|
122 | }
|
---|
123 | return false;
|
---|
124 | }
|
---|
125 |
|
---|
126 | bool isConstructor( const std::string & funcName ) {
|
---|
127 | static OperatorType types[] = { OT_CTOR };
|
---|
128 | return isOperatorType( funcName, std::begin(types), std::end(types) );
|
---|
129 | }
|
---|
130 |
|
---|
131 | bool isDestructor( const std::string & funcName ) {
|
---|
132 | static OperatorType types[] = { OT_DTOR };
|
---|
133 | return isOperatorType( funcName, std::begin(types), std::end(types) );
|
---|
134 | }
|
---|
135 |
|
---|
136 | bool isAssignment( const std::string & funcName ) {
|
---|
137 | static OperatorType types[] = { OT_PREFIXASSIGN, OT_POSTFIXASSIGN, OT_INFIXASSIGN };
|
---|
138 | return isOperatorType( funcName, std::begin(types), std::end(types) );
|
---|
139 | }
|
---|
140 |
|
---|
141 | bool isCtorDtor( const std::string & funcName ) {
|
---|
142 | static OperatorType types[] = { OT_CTOR, OT_DTOR };
|
---|
143 | return isOperatorType( funcName, std::begin(types), std::end(types) );
|
---|
144 | }
|
---|
145 |
|
---|
146 | bool isCtorDtorAssign( const std::string & funcName ) {
|
---|
147 | static OperatorType types[] = { OT_CTOR, OT_DTOR, OT_PREFIXASSIGN, OT_POSTFIXASSIGN, OT_INFIXASSIGN };
|
---|
148 | return isOperatorType( funcName, std::begin(types), std::end(types) );
|
---|
149 | }
|
---|
150 | } // namespace CodeGen
|
---|
151 |
|
---|
152 | // Local Variables: //
|
---|
153 | // tab-width: 4 //
|
---|
154 | // mode: c++ //
|
---|
155 | // compile-command: "make install" //
|
---|
156 | // End: //
|
---|