Changeset 10334c2e in mainline for uspace/app/bithenge/script.c

Timestamp:

2012-07-30T01:40:55Z (13 years ago)

Author:

Sean Bartell <wingedtachikoma@…>

Branches:

lfn, master, serial, ticket/834-toolchain-update, topic/msim-upgrade, topic/simplify-dev-export

Children:

20ac1a4

Parents:

d1e580a

Message:

Bithenge: add if_transform

File:

• uspace/app/bithenge/script.c (modified) (6 diffs)

uspace/app/bithenge/script.c

@@ -58 +58 @@
 
         /* Keywords */
+        TOKEN_ELSE,
+        TOKEN_FALSE,
+        TOKEN_IF,
         TOKEN_STRUCT,
         TOKEN_TRANSFORM,
+        TOKEN_TRUE,
 } token_type_t;
 
@@ -204 +208 @@
                 if (!value) {
                         error_errno(state, ENOMEM);
+                } else if (!str_cmp(value, "else")) {
+                        state->token = TOKEN_ELSE;
+                        free(value);
+                } else if (!str_cmp(value, "false")) {
+                        state->token = TOKEN_FALSE;
+                        free(value);
+                } else if (!str_cmp(value, "if")) {
+                        state->token = TOKEN_IF;
+                        free(value);
                 } else if (!str_cmp(value, "struct")) {
                         state->token = TOKEN_STRUCT;
@@ -209 +222 @@
                 } else if (!str_cmp(value, "transform")) {
                         state->token = TOKEN_TRANSFORM;
+                        free(value);
+                } else if (!str_cmp(value, "true")) {
+                        state->token = TOKEN_TRUE;
                         free(value);
                 } else {
@@ -329 +345 @@
 static bithenge_expression_t *parse_expression(state_t *state)
 {
-        if (state->token == TOKEN_INTEGER) {
+        if (state->token == TOKEN_TRUE || state->token == TOKEN_FALSE) {
+                bool val = state->token == TOKEN_TRUE;
+                next_token(state);
+                bithenge_node_t *node;
+                int rc = bithenge_new_boolean_node(&node, val);
+                if (rc != EOK) {
+                        error_errno(state, rc);
+                        return NULL;
+                }
+
+                bithenge_expression_t *expr;
+                rc = bithenge_const_expression(&expr, node);
+                if (rc != EOK) {
+                        error_errno(state, rc);
+                        return NULL;
+                }
+
+                return expr;
+        } else if (state->token == TOKEN_INTEGER) {
                 bithenge_int_t val = state->token_int;
                 next_token(state);
@@ -454 +488 @@
 
         return result;
+}
+
+static bithenge_transform_t *parse_if(state_t *state)
+{
+        expect(state, TOKEN_IF);
+        expect(state, '(');
+        bithenge_expression_t *expr = parse_expression(state);
+        expect(state, ')');
+        expect(state, '{');
+        bithenge_transform_t *true_xform = parse_transform(state);
+        expect(state, '}');
+        expect(state, TOKEN_ELSE);
+        expect(state, '{');
+        bithenge_transform_t *false_xform = parse_transform(state);
+        expect(state, '}');
+        if (state->error != EOK) {
+                bithenge_expression_dec_ref(expr);
+                bithenge_transform_dec_ref(true_xform);
+                bithenge_transform_dec_ref(false_xform);
+                return NULL;
+        }
+        bithenge_transform_t *if_xform;
+        int rc = bithenge_if_transform(&if_xform, expr, true_xform,
+            false_xform);
+        if (rc != EOK) {
+                error_errno(state, rc);
+                return NULL;
+        }
+        return if_xform;
 }
 
@@ -507 +570 @@
         if (state->token == TOKEN_IDENTIFIER) {
                 return parse_invocation(state);
+        } else if (state->token == TOKEN_IF) {
+                return parse_if(state);
         } else if (state->token == TOKEN_STRUCT) {
                 return parse_struct(state);