Changeset 78d3a00 in mainline for uspace/dist/src/bithenge/test.bh

Timestamp:

2012-07-31T21:07:26Z (12 years ago)

Author:

Sean Bartell <wingedtachikoma@…>

Branches:

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

Children:

3f2ea63

Parents:

20ac1a4

Message:

Bithenge: add switch transforms and sugar

File:

• uspace/dist/src/bithenge/test.bh (modified) (1 diff)

uspace/dist/src/bithenge/test.bh

@@ -8 +8 @@
 };
 
-transform item(first_len, second_len) = struct {
-        .id <- uint32le <- known_length(4); # the known_length is unnecessary
+transform u32(little_endian) =
+        if (little_endian) {
+                uint32le
+        } else {
+                uint32be
+        };
+
+transform item(little_endian, len) = struct {
+        .type <- u32(little_endian);
         .name <- pascal_string;
-        .first <- known_length(first_len);
-        .second <- known_length(second_len);
+        switch (.type) {
+                3: {
+                        .val <- u32(little_endian);
+                };
+                14: {
+                        .text <- ascii <- known_length(len);
+                };
+                else: {
+                        .unknown <- known_length(len);
+                };
+        }
 };
 
-transform main() = item(3, 0);
+transform main() = struct {
+        .first_item <- item(true, 3);
+        .second_item <- item(false, 4);
+};