Add support for 'strcmp'.

Author: Clownacy

lexical.c

@@ -714,7 +714,7 @@ extern int yylex \
 #undef yyTABLES_NAME
 #endif
 
-#line 458 "lexical.l"
+#line 459 "lexical.l"
 
 
 #line 720 "lexical.h"

lexical.h

@@ -307,6 +307,7 @@ pc              return TOKEN_PROGRAM_COUNTER;
 
  /* Functions. */
 strlen          return TOKEN_STRLEN;
+strcmp          return TOKEN_STRCMP;
 def             return TOKEN_DEF;
 
  /* Decimal number. */

lexical.l

@@ -774,6 +774,7 @@ static cc_bool ResolveExpression(SemanticState *state, Expression *expression, u
 					case EXPRESSION_PROGRAM_COUNTER_OF_STATEMENT:
 					case EXPRESSION_PROGRAM_COUNTER_OF_EXPRESSION:
 					case EXPRESSION_STRLEN:
+					case EXPRESSION_STRCMP:
 					case EXPRESSION_DEF:
 					case EXPRESSION_NEGATE:
 					case EXPRESSION_BITWISE_NOT:
@@ -878,6 +879,7 @@ static cc_bool ResolveExpression(SemanticState *state, Expression *expression, u
 					case EXPRESSION_PROGRAM_COUNTER_OF_STATEMENT:
 					case EXPRESSION_PROGRAM_COUNTER_OF_EXPRESSION:
 					case EXPRESSION_STRLEN:
+					case EXPRESSION_STRCMP:
 					case EXPRESSION_DEF:
 					case EXPRESSION_SUBTRACT:
 					case EXPRESSION_ADD:
@@ -966,6 +968,10 @@ static cc_bool ResolveExpression(SemanticState *state, Expression *expression, u
 			*value = strlen(expression->shared.string);
 			break;
 
+		case EXPRESSION_STRCMP:
+			*value = strcmp(expression->shared.subexpressions[0].shared.string, expression->shared.subexpressions[1].shared.string) == 0;
+			break;
+
 		case EXPRESSION_DEF:
 			*value = LookupSymbol(state, expression->shared.string, strlen(expression->shared.string)) != NULL;
 			break;
@@ -998,6 +1004,7 @@ static cc_bool ResolveExpression(SemanticState *state, Expression *expression, u
 			case EXPRESSION_NEGATE:
 			case EXPRESSION_BITWISE_NOT:
 			case EXPRESSION_LOGICAL_NOT:
+			case EXPRESSION_STRCMP:
 				free(expression->shared.subexpressions);
 				break;
 

semantic.c

@@ -250,6 +250,7 @@ typedef enum ExpressionType
 	EXPRESSION_PROGRAM_COUNTER_OF_STATEMENT,
 	EXPRESSION_PROGRAM_COUNTER_OF_EXPRESSION,
 	EXPRESSION_STRLEN,
+	EXPRESSION_STRCMP,
 	EXPRESSION_DEF
 } ExpressionType;
 
@@ -431,7 +432,7 @@ typedef struct Statement
 } Statement;
 
 
-#line 435 "syntactic.h"
+#line 436 "syntactic.h"
 
 /* Token kinds.  */
 #ifndef M68KASM_TOKENTYPE
@@ -610,7 +611,8 @@ typedef struct Statement
     TOKEN_LEFT_SHIFT = 423,        /* TOKEN_LEFT_SHIFT  */
     TOKEN_RIGHT_SHIFT = 424,       /* TOKEN_RIGHT_SHIFT  */
     TOKEN_STRLEN = 425,            /* TOKEN_STRLEN  */
-    TOKEN_DEF = 426                /* TOKEN_DEF  */
+    TOKEN_STRCMP = 426,            /* TOKEN_STRCMP  */
+    TOKEN_DEF = 427                /* TOKEN_DEF  */
   };
   typedef enum m68kasm_tokentype m68kasm_token_kind_t;
 #endif
@@ -619,7 +621,7 @@ typedef struct Statement
 #if ! defined M68KASM_STYPE && ! defined M68KASM_STYPE_IS_DECLARED
 union M68KASM_STYPE
 {
-#line 434 "syntactic.y"
+#line 435 "syntactic.y"
 
 	unsigned long unsigned_long;
 	char *string;
@@ -632,7 +634,7 @@ union M68KASM_STYPE
 	IdentifierList identifier_list;
 	Expression expression;
 
-#line 636 "syntactic.h"
+#line 638 "syntactic.h"
 
 };
 typedef union M68KASM_STYPE M68KASM_STYPE;
@@ -646,13 +648,13 @@ typedef union M68KASM_STYPE M68KASM_STYPE;
 int m68kasm_parse (void *scanner, Statement *statement);
 
 /* "%code provides" blocks.  */
-#line 408 "syntactic.y"
+#line 409 "syntactic.y"
 
 
 void DestroyExpression(Expression *expression);
 void DestroyStatement(Statement *statement);
 
 
-#line 657 "syntactic.h"
+#line 659 "syntactic.h"
 
 #endif /* !YY_M68KASM_SYNTACTIC_H_INCLUDED  */

syntactic.c

@@ -223,6 +223,7 @@ typedef enum ExpressionType
 	EXPRESSION_PROGRAM_COUNTER_OF_STATEMENT,
 	EXPRESSION_PROGRAM_COUNTER_OF_EXPRESSION,
 	EXPRESSION_STRLEN,
+	EXPRESSION_STRCMP,
 	EXPRESSION_DEF
 } ExpressionType;
 
@@ -612,6 +613,7 @@ static void DestroyStatementInstruction(StatementInstruction *instruction);
 %token TOKEN_LEFT_SHIFT
 %token TOKEN_RIGHT_SHIFT
 %token TOKEN_STRLEN
+%token TOKEN_STRCMP
 %token TOKEN_DEF
 
 %type<instruction> instruction
@@ -624,13 +626,13 @@ static void DestroyStatementInstruction(StatementInstruction *instruction);
 %type<unsigned_long> data_or_address_register
 %type<expression_list> expression_list
 %type<identifier_list> identifier_list
-%type<expression> expression expression1 expression2 expression3 expression4 expression5 expression6 expression7 expression8
+%type<expression> expression expression1 expression2 expression3 expression4 expression5 expression6 expression7 expression8 string
 
 %destructor { free($$); } TOKEN_IDENTIFIER TOKEN_LOCAL_IDENTIFIER TOKEN_STRING
 %destructor { DestroyOperand(&$$); } operand
 %destructor { DestroyExpressionList(&$$); } expression_list
 %destructor { DestroyIdentifierList(&$$); } identifier_list
-%destructor { DestroyExpression(&$$); } expression expression1 expression2 expression3 expression4 expression5 expression6 expression7 expression8
+%destructor { DestroyExpression(&$$); } expression expression1 expression2 expression3 expression4 expression5 expression6 expression7 expression8 string
 
 %start statement
 
@@ -1971,10 +1973,9 @@ expression8
 			free($2);
 		}
 	}
-	| TOKEN_STRING
+	| string
 	{
-		$$.type = EXPRESSION_STRING;
-		$$.shared.string = $1;
+		$$ = $1;
 	}
 	| '*'
 	{
@@ -1993,13 +1994,25 @@ expression8
 		$$.type = EXPRESSION_STRLEN;
 		$$.shared.string = $3;
 	}
+	| TOKEN_STRCMP '(' string ',' string ')'
+	{
+		if (!DoExpression(&$$, EXPRESSION_STRLEN, &$3, &$5))
+			YYNOMEM;
+	}
 	| TOKEN_DEF '(' TOKEN_IDENTIFIER ')'
 	{
 		$$.type = EXPRESSION_DEF;
 		$$.shared.string = $3;
 	}
 	;
 
+string
+	: TOKEN_STRING
+	{
+		$$.type = EXPRESSION_STRING;
+		$$.shared.string = $1;
+	}
+
 %%
 
 static cc_bool DoExpression(Expression *expression, ExpressionType type, Expression *left_expression, Expression *right_expression)
@@ -2052,6 +2065,7 @@ void DestroyExpression(Expression *expression)
 		case EXPRESSION_MORE_OR_EQUAL:
 		case EXPRESSION_LEFT_SHIFT:
 		case EXPRESSION_RIGHT_SHIFT:
+		case EXPRESSION_STRCMP:
 			DestroyExpression(&expression->shared.subexpressions[0]);
 			DestroyExpression(&expression->shared.subexpressions[1]);
 			free(expression->shared.subexpressions);