You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
44 lines
2.3 KiB
Racket
44 lines
2.3 KiB
Racket
#lang racket/base
|
|
(require xenomorph
|
|
sugar/unstable/class
|
|
sugar/unstable/dict
|
|
"../helper.rkt")
|
|
(provide (all-defined-out))
|
|
|
|
(define-subclass Struct (Rmaxp))
|
|
|
|
(define maxp (+Rmaxp
|
|
(dictify 'version int32be
|
|
'numGlyphs uint16be ;; The number of glyphs in the font
|
|
'maxPoints uint16be ;; Maximum points in a non-composite glyph
|
|
'maxContours uint16be ;; Maximum contours in a non-composite glyph
|
|
'maxComponentPoints uint16be ;; Maximum points in a composite glyph
|
|
'maxComponentContours uint16be ;; Maximum contours in a composite glyph
|
|
'maxZones uint16be ;; 1 if instructions do not use the twilight zone, 2 otherwise
|
|
'maxTwilightPoints uint16be ;; Maximum points used in Z0
|
|
'maxStorage uint16be ;; Number of Storage Area locations
|
|
'maxFunctionDefs uint16be ;; Number of FDEFs
|
|
'maxInstructionDefs uint16be ;; Number of IDEFs
|
|
'maxStackElements uint16be ;; Maximum stack depth
|
|
'maxSizeOfInstructions uint16be ;; Maximum byte count for glyph instructions
|
|
'maxComponentElements uint16be ;; Maximum number of components referenced at “top level” for any composite glyph
|
|
'maxComponentDepth uint16be ;; Maximum levels of recursion; 1 for simple components
|
|
)))
|
|
|
|
|
|
(test-module
|
|
(require sugar/unstable/js
|
|
sugar/unstable/port
|
|
racket/class)
|
|
(define ip (open-input-file charter-path))
|
|
(define dir (deserialize (read (open-input-file charter-directory-path))))
|
|
(define maxp-offset (· dir tables maxp offset))
|
|
(define maxp-length (· dir tables maxp length))
|
|
(check-equal? maxp-offset 328)
|
|
(check-equal? maxp-length 32)
|
|
(define maxp-bytes #"\0\1\0\0\0\345\0f\0\a\0O\0\4\0\1\0\0\0\0\0\n\0\0\2\0\1s\0\2\0\1")
|
|
(set-port-position! ip 0)
|
|
(check-equal? (peek-bytes maxp-length maxp-offset ip) maxp-bytes)
|
|
(define maxp-data (send maxp decode maxp-bytes))
|
|
(check-equal? (· maxp-data numGlyphs) 229)
|
|
(check-equal? (· maxp-data version) 65536)) |