update to use new x:pointer naming

main
Matthew Butterick 5 years ago
parent f9b036d6b4
commit de92b6455f

@ -14,8 +14,8 @@ https://github.com/mbutterick/fontkit/blob/master/src/tables/directory.js
(define table-entry (x:struct (define table-entry (x:struct
'tag (x:symbol #:length 4) 'tag (x:symbol #:length 4)
'checkSum uint32be 'checkSum uint32be
'offset (x:pointer #:offset-type uint32be 'offset (x:pointer #:type uint32be
#:type 'void #:dest-type 'void
#:relative-to 'global) #:relative-to 'global)
'length uint32be)) 'length uint32be))

@ -11,7 +11,7 @@ https://github.com/mbutterick/fontkit/blob/master/src/cff/CFFPointer.js
(define (CFFPointer type (define (CFFPointer type
#:relative-to [relative-to 'global] #:relative-to [relative-to 'global]
#:lazy [lazy #false]) #:lazy [lazy #false])
(x:pointer #:type type (x:pointer #:dest-type type
#:base-class CFFPointer% #:base-class CFFPointer%
#:relative-to relative-to #:relative-to relative-to
#:lazy lazy)) #:lazy lazy))
@ -20,10 +20,10 @@ https://github.com/mbutterick/fontkit/blob/master/src/cff/CFFPointer.js
(class x:pointer% (class x:pointer%
(super-new) (super-new)
(inherit-field type offset-type) (inherit-field ptr-type)
(define/override (x:decode stream parent operands) (define/override (x:decode stream parent operands)
(set! offset-type (make-object (set! ptr-type (make-object
(class x:base% (class x:base%
(super-new) (super-new)
(define/augment (x:decode . args) (first operands))))) (define/augment (x:decode . args) (first operands)))))
@ -33,7 +33,7 @@ https://github.com/mbutterick/fontkit/blob/master/src/cff/CFFPointer.js
(cond (cond
[(not stream) [(not stream)
;; compute the size (so ctx.pointerSize is correct) ;; compute the size (so ctx.pointerSize is correct)
(set! offset-type (make-object (set! ptr-type (make-object
(class x:base% (class x:base%
(super-new) (super-new)
(define/augment (x:size . args) 0)))) (define/augment (x:size . args) 0))))
@ -41,7 +41,7 @@ https://github.com/mbutterick/fontkit/blob/master/src/cff/CFFPointer.js
(list (Ptr 0))] (list (Ptr 0))]
[else [else
(define ptr #false) (define ptr #false)
(set! offset-type (make-object (set! ptr-type (make-object
(class x:base% (class x:base%
(super-new) (super-new)
(define/augment (x:encode val stream . _) (set! ptr val))))) (define/augment (x:encode val stream . _) (set! ptr val)))))

Loading…
Cancel
Save