shithub: fnt

Info  •  Files  •  Log  •  Branches

skip -> skip_bytes; add type-size

--- a/otf.rkt

+++ b/otf.rkt

@@ -32,6 +32,9 @@

    (define (c-type t)

      (type-c t))])

+(define (type-size t)

+  (/ (type-bits t) 8))

+

 (define-struct field (type name unused)

   #:transparent

   #:methods gen:code

@@ -44,7 +47,7 @@

                ";")))

    (define (gen-c f)

      (list (if (field-unused f)

-               (~a "if(skip(ctx, " (/ (type-bits (field-type f)) 8) ") < 0){")

+               (~a "if(skip_bytes(ctx, " (type-size (field-type f)) ") < 0){")

                (~a "if(read_" (type-name (field-type f)) "(ctx, &v->" (field-name f) ") < 0){"))

            (~a "\twerror(\"%s: %r\", \"" (field-name f) "\");")

            (~a "\tgoto err;")