963 } |
963 } |
964 else {ERROR;} |
964 else {ERROR;} |
965 return NULL; |
965 return NULL; |
966 } |
966 } |
967 |
967 |
968 void *visit(GT_operator_c *symbol) { |
968 void *visit(GT_operator_c *symbol) {CMP_operator_result_type(); return NULL;} |
969 if (!search_base_type.type_is_enumerated(this->default_variable_name.current_type) && |
969 void *visit(GE_operator_c *symbol) {CMP_operator_result_type(); return NULL;} |
970 search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) { |
970 void *visit(EQ_operator_c *symbol) {CMP_operator_result_type(); return NULL;} |
971 CMP_operator_result_type(); |
971 void *visit(LT_operator_c *symbol) {CMP_operator_result_type(); return NULL;} |
972 } |
972 void *visit(LE_operator_c *symbol) {CMP_operator_result_type(); return NULL;} |
973 else {ERROR;} |
973 void *visit(NE_operator_c *symbol) {CMP_operator_result_type(); return NULL;} |
974 return NULL; |
|
975 } |
|
976 |
|
977 void *visit(GE_operator_c *symbol) { |
|
978 if (!search_base_type.type_is_enumerated(this->default_variable_name.current_type) && |
|
979 search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) { |
|
980 CMP_operator_result_type(); |
|
981 } |
|
982 else {ERROR;} |
|
983 return NULL; |
|
984 } |
|
985 |
|
986 void *visit(EQ_operator_c *symbol) { |
|
987 if (search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) { |
|
988 CMP_operator_result_type(); |
|
989 } |
|
990 else {ERROR;} |
|
991 return NULL; |
|
992 } |
|
993 |
|
994 void *visit(LT_operator_c *symbol) { |
|
995 if (!search_base_type.type_is_enumerated(this->default_variable_name.current_type) && |
|
996 search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) { |
|
997 CMP_operator_result_type(); |
|
998 } |
|
999 else {ERROR;} |
|
1000 return NULL; |
|
1001 } |
|
1002 |
|
1003 void *visit(LE_operator_c *symbol) { |
|
1004 if (!search_base_type.type_is_enumerated(this->default_variable_name.current_type) && |
|
1005 search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) { |
|
1006 CMP_operator_result_type(); |
|
1007 } |
|
1008 else {ERROR;} |
|
1009 return NULL; |
|
1010 } |
|
1011 |
|
1012 void *visit(NE_operator_c *symbol) { |
|
1013 if (search_expression_type->is_same_type(this->default_variable_name.current_type, this->current_operand_type)) { |
|
1014 CMP_operator_result_type(); |
|
1015 } |
|
1016 else {ERROR;} |
|
1017 return NULL; |
|
1018 } |
|
1019 |
974 |
1020 /***************************************/ |
975 /***************************************/ |
1021 /* B.3 - Language ST (Structured Text) */ |
976 /* B.3 - Language ST (Structured Text) */ |
1022 /***************************************/ |
977 /***************************************/ |
1023 /***********************/ |
978 /***********************/ |