add octal escape sequences to evaluator

git-svn-id: https://ssl.bulix.org/svn/lcd4linux/trunk@981 3ae390bd-cb1e-0410-b409-cd5a39f66f1f

1 files changed, 15 insertions, 0 deletions

diff --git a/evaluator.c b/evaluator.c
index 52212b3..7626d01 100644
--- a/evaluator.c
+++ b/evaluator.c
@@ -631,6 +631,21 @@ static void Parse(void)
 		    Word[length++] = '\r';
 		    ExprPtr += 2;
 		    break;
+		case '0':
+		case '1':
+		case '2':
+		case '3':
+		    if (*(ExprPtr + 2) >= '0' && *(ExprPtr + 2) <= '7' &&
+			*(ExprPtr + 3) >= '0' && *(ExprPtr + 3) <= '7') {
+			Word[length++] =
+			    (*(ExprPtr + 1) - '0') * 64 + (*(ExprPtr + 2) - '0') * 8 + (*(ExprPtr + 3) - '0');
+			ExprPtr += 4;
+		    } else {
+			error("Evaluator: illegal octal sequence '\\%c%c%c' in <%s>",
+			      *(ExprPtr + 1), *(ExprPtr + 2), *(ExprPtr + 3), Expression);
+			Word[length++] = *ExprPtr++;
+		    }
+		    break;
 		default:
 		    error("Evaluator: unknown escape sequence '\\%c' in <%s>", *(ExprPtr + 1), Expression);
 		    Word[length++] = *ExprPtr++;