next: topDictIndex

fontland/fontland/table/CFF_.rkt

@@ -34,6 +34,10 @@ https://github.com/mbutterick/fontkit/blob/master/src/cff/CFFFont.js
   (define ip (open-input-file fira-otf-path))
   (define cff-bytes (peek-bytes cff-length cff-offset ip))
   (define cff-data (decode CFFFont cff-bytes))
+  (check-equal? (hash-ref cff-data 'length) 13)
+  (check-equal? (hash-ref cff-data 'hdrSize) 4)
+  (check-equal? (hash-ref cff-data 'offSize) 3)
   (check-equal? (hash-ref cff-data 'nameIndex) '("FiraSans-Book"))
+  (check-equal? (hash-ref cff-data 'length) (string-length (car (hash-ref cff-data 'nameIndex))))
   cff-data
   )

fontland/fontland/table/cff-top.rkt

@@ -14,7 +14,7 @@ https://github.com/mbutterick/fontkit/blob/master/src/cff/CFFTop.js
     1 (dictify 'hdrSize uint8
                'offSize uint8
                'nameIndex (CFFIndex (x:string #:length 'length))
-               ;'topDictIndex (CFFIndex CFFTopDict)
+               ;;'topDictIndex (CFFIndex CFFTopDict)
                ;;'stringIndex (CFFIndex (x:string #:length 'length))
                ;;'globalSubrIndex (CFFIndex)
                )