source: mainline/uspace/dist/src/bithenge/test.bh@ a66ea217

transform length = struct {
        .len <- uint8;
};

transform pascal_string = struct {
        <- length;
        .string <- ascii <- known_length(.len);
};

transform u32(little_endian) =
        if (little_endian) {
                uint32le
        } else {
                uint32be
        };

transform item(little_endian, len) = struct {
        .type <- (3*in+1) <- u32(little_endian);
        .name <- pascal_string;
        switch (.type) {
                10: {
                        .val <- u32(little_endian);
                };
                11: {
                        .text <- ascii <- known_length(len);
                };
                else: {
                        .unknown <- known_length(len);
                };
        }
};

transform main() = struct {
        .first_item <- item(true, 3);
        .second_item <- item(false, 4);
};