added equality and relational operators

src/compiler/ASTi.h

@@ -22,6 +22,14 @@ typedef enum {
 	EXPR_SUB,
 	EXPR_MUL,
 	EXPR_DIV,
+
+	EXPR_EQL,
+	EXPR_NQL,
+	EXPR_LSS,
+	EXPR_LEQ,
+	EXPR_GRT,
+	EXPR_GEQ,
+
 	EXPR_ASS,
 	EXPR_INT,
 	EXPR_CALL,

src/compiler/compile.c

@@ -15,6 +15,12 @@ static Opcode exprkind_to_opcode(ExprKind kind)
 			case EXPR_SUB: return OPCODE_SUB;
 			case EXPR_MUL: return OPCODE_MUL;
 			case EXPR_DIV: return OPCODE_DIV;
+			case EXPR_EQL: return OPCODE_EQL;
+			case EXPR_NQL: return OPCODE_NQL;
+			case EXPR_LSS: return OPCODE_LSS;
+			case EXPR_LEQ: return OPCODE_LEQ;
+			case EXPR_GRT: return OPCODE_GRT;
+			case EXPR_GEQ: return OPCODE_GEQ;
 			default:
 			UNREACHABLE;
 			break;
@@ -38,6 +44,12 @@ static _Bool emit_instr_for_node(ExeBuilder *exeb, Node *node, Error *error)
 						case EXPR_SUB:
 						case EXPR_MUL:
 						case EXPR_DIV:
+						case EXPR_EQL:
+						case EXPR_NQL:
+						case EXPR_LSS:
+						case EXPR_LEQ:
+						case EXPR_GRT:
+						case EXPR_GEQ:
 						{
 							OperExprNode *oper = (OperExprNode*) expr;
 

src/compiler/parse.c

@@ -16,6 +16,10 @@ typedef enum {
 	TSUB = '-',
 	TMUL = '*',
 	TDIV = '/',
+
+	TLSS = '<',
+	TGRT = '>',
+
 	TASS = '=',
 
 	TDONE = 256,
@@ -33,6 +37,12 @@ typedef enum {
 	TKWRETURN,
 	TKWWHILE,
 	TKWDO,
+
+	TEQL,
+	TNQL,
+	TLEQ,
+	TGEQ,
+
 } TokenKind;
 
 typedef struct Token Token;
@@ -65,6 +75,9 @@ static inline _Bool isoper(char c)
 			c == '-' || 
 			c == '*' || 
 			c == '/' || 
+			c == '<' ||
+			c == '>' ||
+			c == '!' ||
 			c == '=';
 }
 
@@ -239,6 +252,30 @@ AST *parse(Source *src, BPAlloc *alloc, Error *error)
 						{
 							tok->kind = TDIV;
 						}
+					else if(matchop(str + tok->offset, tok->length, "=="))
+						{
+							tok->kind = TEQL;
+						}
+					else if(matchop(str + tok->offset, tok->length, "!="))
+						{
+							tok->kind = TNQL;
+						}
+					else if(matchop(str + tok->offset, tok->length, "<"))
+						{
+							tok->kind = TLSS;
+						}
+					else if(matchop(str + tok->offset, tok->length, "<="))
+						{
+							tok->kind = TLEQ;
+						}
+					else if(matchop(str + tok->offset, tok->length, ">"))
+						{
+							tok->kind = TGRT;
+						}
+					else if(matchop(str + tok->offset, tok->length, ">="))
+						{
+							tok->kind = TGEQ;
+						}
 					else if(matchop(str + tok->offset, tok->length, "="))
 						{
 							tok->kind = TASS;
@@ -1010,6 +1047,12 @@ static inline _Bool isbinop(Token *tok)
 			tok->kind == '-' || 
 			tok->kind == '*' || 
 			tok->kind == '/' ||
+			tok->kind == '<' ||
+			tok->kind == '>' ||
+			tok->kind == TLEQ ||
+			tok->kind == TGEQ ||
+			tok->kind == TEQL ||
+			tok->kind == TNQL ||
 			tok->kind == '=';
 }
 
@@ -1029,13 +1072,21 @@ static inline int precedenceof(Token *tok)
 			case '=':
 			return 0;
 
+			case '<':
+			case '>':
+			case TLEQ:
+			case TGEQ:
+			case TEQL:
+			case TNQL:
+			return 1;
+
 			case '+':
 			case '-':
-			return 1;
+			return 2;
 
 			case '*':
 			case '/':
-			return 2;
+			return 3;
 			
 			default:
 			return -100000000;
@@ -1087,6 +1138,12 @@ static Node *parse_expression_2(Context *ctx, Node *left_expr, int min_prec)
 						case '-': temp->base.kind = EXPR_SUB; break;
 						case '*': temp->base.kind = EXPR_MUL; break;
 						case '/': temp->base.kind = EXPR_DIV; break;
+						case '<': temp->base.kind = EXPR_LSS; break;
+						case '>': temp->base.kind = EXPR_GRT; break;
+						case TLEQ: temp->base.kind = EXPR_LEQ; break;
+						case TGEQ: temp->base.kind = EXPR_GEQ; break;
+						case TEQL: temp->base.kind = EXPR_EQL; break;
+						case TNQL: temp->base.kind = EXPR_NQL; break;
 						case '=': temp->base.kind = EXPR_ASS; break;
 
 						default: