diff --git a/fontland/fontland/table/CFF_.rkt b/fontland/fontland/table/CFF_.rkt index d974cf23..974e8ee1 100644 --- a/fontland/fontland/table/CFF_.rkt +++ b/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 ) \ No newline at end of file diff --git a/fontland/fontland/table/cff-top.rkt b/fontland/fontland/table/cff-top.rkt index 36593667..c87b98c0 100644 --- a/fontland/fontland/table/cff-top.rkt +++ b/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) )