Додат синтаксни елемент "'"

eval.c

@@ -41,7 +41,8 @@ object eval(object input)
 			int noErrors = 1;
 			while (TYPE(*currentCell) != nilObject)
 			{
-				if (strcmp(SYM(CAR(input)), "навод") != 0)
+				if (TYPE(CAR(input)) != symbolObject ||
+					strcmp(SYM(CAR(input)), "навод") != 0)
 				{
 					CAR(*currentCell) =
 						eval(CAR(*currentCell));

internals.c

@@ -122,9 +122,9 @@ object divide(object parameters)
 	}
 	else
 	{
-		if (NUM(add(CDR(parameters))) != 0)
+		if (NUM(multiply(CDR(parameters))) != 0)
 		{
-			NUM(result) = NUM(CAR(parameters))/NUM(add(CDR(parameters)));
+			NUM(result) = NUM(CAR(parameters))/NUM(multiply(CDR(parameters)));
 		}
 		else
 		{

print.c

@@ -9,7 +9,8 @@ char *errors[] =
 	"Непознати симбол",
 	"Објекат није примењив",
 	"Дељење нулом",
-	"Функцији није прослеђен правилан број аргумената"
+	"Функцији није прослеђен правилан број аргумената",
+	"Синтаксна грешка"
 };
 
 void printValue(object input);

read.c

@@ -13,6 +13,7 @@ typedef enum
 	undefinedToken,
 	numberToken,
 	symbolToken,
+	quoteToken,
 	lParenthesisToken,
 	rParenthesisToken
 } tokenType;
@@ -86,7 +87,7 @@ int completeExpression(token **tokenQueue)
 		}
 		else
 		{
-			if (indentLevel == 0)
+			if (indentLevel == 0 && current->type != quoteToken)
 			{
 				result = 1;
 			}
@@ -141,7 +142,7 @@ token *lex1Token(char *input, int *i)
 	regcomp(&regSpace, "^[[:space:]]*", REG_EXTENDED);
 
 	regcomp(&regNumber, "^[-+]?[[:digit:]]+", REG_EXTENDED);
-	regcomp(&regSymbol, "^[-+/*_\\\\=<>!&[:alnum:]]+", REG_EXTENDED);
+	regcomp(&regSymbol, "^[-+/*_\\\\=<>!&?[:alnum:]]+", REG_EXTENDED);
 	regcomp(&regQuote, "^'", REG_EXTENDED);
 	regcomp(&regLParenthesis, "^\\(", REG_EXTENDED);
 	regcomp(&regRParenthesis, "^\\)", REG_EXTENDED);
@@ -172,6 +173,10 @@ token *lex1Token(char *input, int *i)
 			result->type = symbolToken;
 		}
 	}
+	else if (!regexec(&regQuote, input + *i, nmatches, a, 0))
+	{
+		result->type = quoteToken;
+	}
 	else if (!regexec(&regLParenthesis, input + *i, nmatches, a, 0))
 	{
 		result->type = lParenthesisToken;
@@ -259,6 +264,33 @@ object parseExpression(token **inputList)
 		strcpy(SYM(result), input.lexeme);
 		return result;
 	}
+	else if (input.type == quoteToken)
+	{
+		if ((*inputList)->type != rParenthesisToken)
+		{
+			TYPE(result) = consObject;
+			CONS(result) = malloc(sizeof(cons));
+			TYPE(CAR(result)) = symbolObject;
+			SYM(CAR(result)) = malloc((strlen("навод") + 1)
+					* sizeof(char));
+			strcpy(SYM(CAR(result)), "навод");
+
+			TYPE(CDR(result)) = consObject;
+			CONS(CDR(result)) = malloc(sizeof(cons));
+			CAR(CDR(result)) = parseExpression(inputList);
+
+			TYPE(CDR(CDR(result))) = nilObject;
+		}
+		else
+		{
+			TYPE(result) = errorObject;
+			ERR(result) = syntaxError;
+		}
+
+/* уколико "'" оператер директно претходи затвореној загради није могуће
+ * правилно га претворити у навод оператер стога се он изоставља из било којег
+ * израза */
+	}
 	else if (input.type == lParenthesisToken)
 	{
 		object *listCurrent = &result;
@@ -279,7 +311,30 @@ object parseExpression(token **inputList)
 		input = **inputList;
 		free(*inputList);
 		*inputList = input.next;
-	}
 
+		int noErrors = 1;
+		listCurrent = &result;
+
+		while (TYPE(*listCurrent) != nilObject)
+		{
+			if (TYPE(CAR(*listCurrent)) == errorObject)
+			{
+				noErrors = 0;
+			}
+			listCurrent = &CDR(*listCurrent);
+		}
+		if (!noErrors)
+		{
+			deleteObject(result);
+			TYPE(result) = errorObject;
+			ERR(result) = syntaxError;
+		}
+	}
+	else if (input.type == rParenthesisToken)
+	{
+		TYPE(result) = errorObject;
+		ERR(result) = syntaxError;
+	}
+	free(input.lexeme);
 	return result;
 }

util.h

@@ -25,7 +25,8 @@ typedef enum
 	unrecognizedSymbolError,
 	notApplicableError,
 	divisionByZeroError,
-	argumentNumberError
+	argumentNumberError,
+	syntaxError
 } error;
 
 typedef struct object object;