From 8ae32ee3058ffa2a81af88fa5bdc8d18f7e7e35b Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 5 Jul 2017 22:56:14 -0700 Subject: [PATCH] resume in applyFeatures --- pitfall/fontkit/gpos-processor.rkt | 4 ++++ pitfall/fontkit/ot-processor.rkt | 6 +++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/pitfall/fontkit/gpos-processor.rkt b/pitfall/fontkit/gpos-processor.rkt index ef04d77e..353cd3a5 100644 --- a/pitfall/fontkit/gpos-processor.rkt +++ b/pitfall/fontkit/gpos-processor.rkt @@ -7,5 +7,9 @@ https://github.com/mbutterick/fontkit/blob/master/src/opentype/GPOSProcessor.js |# (define-subclass OTProcessor (GPOSProcessor) + + (define/override (applyFeatures userFeatures glyphs advances) + (error 'gpos-processor-applyFeatures-not-implemented) + (super applyFeatures userFeatures glyphs advances)) ) \ No newline at end of file diff --git a/pitfall/fontkit/ot-processor.rkt b/pitfall/fontkit/ot-processor.rkt index 087d86b4..f1502c11 100644 --- a/pitfall/fontkit/ot-processor.rkt +++ b/pitfall/fontkit/ot-processor.rkt @@ -69,5 +69,9 @@ https://github.com/mbutterick/fontkit/blob/master/src/opentype/OTProcessor.js (when (· this language) (for ([featureIndex (in-list (· this language featureIndexes))]) (define record (list-ref (· this table featureList) featureIndex)) - (dict-set! (· this features) (· record tag) (· record feature)))))))) + (dict-set! (· this features) (· record tag) (· record feature))))))) + + + (define/public (applyFeatures userFeatures glyphs advances) + (error 'ot-processor-applyFeatures-not-implemented)))