Changeset c54f5d0 in mainline for uspace/app/bithenge/script.c

Timestamp:

2012-08-09T05:23:54Z (13 years ago)

Author:

Sean Bartell <wingedtachikoma@…>

Branches:

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

Children:

71450c8

Parents:

3c70376

Message:

Bithenge: partial transforms

File:

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

uspace/app/bithenge/script.c

@@ -66 +66 @@
         TOKEN_IF,
         TOKEN_IN,
+        TOKEN_PARTIAL,
         TOKEN_REPEAT,
         TOKEN_STRUCT,
@@ -232 +233 @@
                 } else if (!str_cmp(value, "in")) {
                         state->token = TOKEN_IN;
+                        free(value);
+                } else if (!str_cmp(value, "partial")) {
+                        state->token = TOKEN_PARTIAL;
                         free(value);
                 } else if (!str_cmp(value, "repeat")) {
@@ -871 +875 @@
 }
 
+static bithenge_transform_t *parse_partial(state_t *state)
+{
+        expect(state, TOKEN_PARTIAL);
+        bithenge_transform_t *offset_xform = NULL;
+        if (state->token == '(') {
+                next_token(state);
+                bithenge_expression_t *offset = parse_expression(state);
+                expect(state, ')');
+
+                bithenge_expression_t *in_expr;
+                int rc = bithenge_in_node_expression(&in_expr);
+                if (rc != EOK)
+                        error_errno(state, rc);
+                if (state->error != EOK) {
+                        bithenge_expression_dec_ref(offset);
+                        return NULL;
+                }
+
+                rc = bithenge_subblob_expression(&offset, in_expr, offset,
+                    NULL, true);
+                if (rc != EOK) {
+                        error_errno(state, rc);
+                        return NULL;
+                }
+
+                rc = bithenge_expression_transform(&offset_xform, offset);
+                if (rc != EOK) {
+                        error_errno(state, rc);
+                        return NULL;
+                }
+        }
+        expect(state, '{');
+        bithenge_transform_t *xform = parse_transform(state);
+        expect(state, '}');
+        if (state->error != EOK) {
+                bithenge_transform_dec_ref(offset_xform);
+                bithenge_transform_dec_ref(xform);
+                return NULL;
+        }
+
+        int rc = bithenge_partial_transform(&xform, xform);
+        if (rc != EOK) {
+                error_errno(state, rc);
+                bithenge_transform_dec_ref(offset_xform);
+                return NULL;
+        }
+
+        if (offset_xform) {
+                bithenge_transform_t **xforms = malloc(2 * sizeof(*xforms));
+                if (!xforms) {
+                        error_errno(state, ENOMEM);
+                        bithenge_transform_dec_ref(xform);
+                        bithenge_transform_dec_ref(offset_xform);
+                        return NULL;
+                }
+                xforms[0] = xform;
+                xforms[1] = offset_xform;
+                rc = bithenge_new_composed_transform(&xform, xforms, 2);
+                if (rc != EOK) {
+                        error_errno(state, rc);
+                        return NULL;
+                }
+        }
+
+        return xform;
+}
+
 /* The TOKEN_STRUCT and '{' must already have been skipped. */
 static bithenge_transform_t *parse_struct(state_t *state)
@@ -952 +1023 @@
         } else if (state->token == TOKEN_IF) {
                 return parse_if(state, false);
+        } else if (state->token == TOKEN_PARTIAL) {
+                return parse_partial(state);
         } else if (state->token == TOKEN_REPEAT) {
                 return parse_repeat(state);