start cff read

fontland/fontland/assets/fira-otf-directory.rktd

@@ -0,0 +1,114 @@
+((3)
+ 0
+ ()
+ 0
+ ()
+ ()
+ (h
+  !
+  ()
+  (tag . OTTO)
+  (rangeShift . 64)
+  (searchRange . 128)
+  (numTables . 12)
+  (entrySelector . 3)
+  (tables
+   h
+   !
+   (equal)
+   (maxp
+    h
+    !
+    ()
+    (tag . maxp)
+    (length . 6)
+    (checkSum . 172445696)
+    (offset . 204))
+   (CFF_
+    h
+    !
+    ()
+    (tag . |CFF |)
+    (length . 164604)
+    (checkSum . 516494622)
+    (offset . 33472))
+   (hhea
+    h
+    !
+    ()
+    (tag . hhea)
+    (length . 36)
+    (checkSum . 101714507)
+    (offset . 10792))
+   (post
+    h
+    !
+    ()
+    (tag . post)
+    (length . 32)
+    (checkSum . 4290248754)
+    (offset . 33440))
+   (GDEF
+    h
+    !
+    ()
+    (tag . GDEF)
+    (length . 392)
+    (checkSum . 936918765)
+    (offset . 198076))
+   (head
+    h
+    !
+    ()
+    (tag . head)
+    (length . 54)
+    (checkSum . 95220183)
+    (offset . 212))
+   (GPOS
+    h
+    !
+    ()
+    (tag . GPOS)
+    (length . 78818)
+    (checkSum . 4027394566)
+    (offset . 198468))
+   (cmap
+    h
+    !
+    ()
+    (tag . cmap)
+    (length . 20808)
+    (checkSum . 3634078005)
+    (offset . 12632))
+   (name
+    h
+    !
+    ()
+    (tag . name)
+    (length . 1706)
+    (checkSum . 2142217964)
+    (offset . 10924))
+   (GSUB
+    h
+    !
+    ()
+    (tag . GSUB)
+    (length . 19078)
+    (checkSum . 1205824848)
+    (offset . 277288))
+   (hmtx
+    h
+    !
+    ()
+    (tag . hmtx)
+    (length . 10524)
+    (checkSum . 2729095083)
+    (offset . 268))
+   (OS/2
+    h
+    !
+    ()
+    (tag . OS/2)
+    (length . 96)
+    (checkSum . 1618270015)
+    (offset . 10828)))))

fontland/fontland/directory.rkt

@@ -65,7 +65,10 @@ https://github.com/mbutterick/fontkit/blob/master/src/tables/directory.js
 (define (file-directory-decode ps)
   (directory-decode (open-input-file ps)))
 
-#;(test-module
-   (define ip (open-input-file charter-path))
-   (define decoded-dir (deserialize (read (open-input-file charter-directory-path))))
-   (check-equal? (directory-decode ip) decoded-dir))
+#;(module+ test
+  (require rackunit "helper.rkt" racket/serialize racket/file racket/pretty)
+   (define ip (open-input-file fira-otf-path))
+  (define dir  (serialize (directory-decode ip)))
+  (pretty-write dir)
+   (with-output-to-file    "assets/fira-otf-directory.rktd"
+     (λ () (pretty-write dir)) #:exists 'replace))

fontland/fontland/glyph.rkt

@@ -44,15 +44,21 @@ https://github.com/mbutterick/fontkit/blob/master/src/glyph/Glyph.js
                 'leftBearing (FT_Glyph_Metrics-horiBearingX ft-glyph-metrics)))
   (glyph-metrics g))
 
-;; Represents a TrueType glyph.
-
 (define (+ttf-glyph . args)
   (apply +glyph #:constructor ttf-glyph args))
 
+(define (+cff-glyph . args)
+  (apply +glyph #:constructor cff-glyph args))
+
+#|
+approximates
+https://github.com/mbutterick/fontkit/blob/master/src/glyph/TTFFont.js
+|#
+
 ;; Returns a glyph object for the given glyph id.
 ;; You can pass the array of code points this glyph represents for
 ;; your use later, and it will be stored in the glyph object.
 (define (get-glyph font gid [codepoints null])
   ((if (has-table? font #"CFF_")
-       (error 'cff-fonts-unsupported)
+       +cff-glyph
        +ttf-glyph) gid codepoints font))

fontland/fontland/helper.rkt

@@ -12,4 +12,5 @@
 (define-runtime-path fira-path "assets/fira.ttf")
 (define-runtime-path fira-otf-path "assets/fira.otf")
 (define-runtime-path charter-directory-path "assets/charter-directory.rktd")
-(define-runtime-path charter-italic-directory-path "assets/charter-italic-directory.rktd")
+(define-runtime-path charter-italic-directory-path "assets/charter-italic-directory.rktd")
+(define-runtime-path fira-otf-directory-path "assets/fira-otf-directory.rktd")

fontland/fontland/struct.rkt

@@ -19,4 +19,6 @@
 
 (struct glyph (id codepoints font is-mark? is-ligature? metrics) #:transparent #:mutable)
 
-(struct ttf-glyph glyph () #:transparent)
+(struct ttf-glyph glyph () #:transparent)
+
+(struct cff-glyph glyph () #:transparent)

fontland/fontland/subset.rkt

@@ -43,7 +43,9 @@ https://github.com/mbutterick/fontkit/blob/master/src/subset/Subset.js
 
 (define (encode-to-port ss)
   (define p (open-output-bytes))
-  (subset-encode ss p)
+  ((if (cff-subset? ss)
+       cff-subset-encode
+       ttf-subset-encode) ss p)
   p)
 
 (define (subset-add-glyph! ss glyph-or-gid) ; fka `includeGlyph`
@@ -64,7 +66,7 @@ https://github.com/mbutterick/fontkit/blob/master/src/subset/CFFSubset.js
 (struct cff-subset subset (cff strings charstrings gsubrs) #:transparent #:mutable)
 
 (define (+cff-subset font [glyphs empty] [mapping (mhash)]
-                     [cff #f]
+                     [cff (get-table font 'CFF_)]
                      [strings #f]
                      [charstrings #f]
                      [gsubrs #f])
@@ -72,7 +74,21 @@ https://github.com/mbutterick/fontkit/blob/master/src/subset/CFFSubset.js
   (subset-add-glyph! ss 0)
   ss)
 
-(module+ test
+(define (subsetCharstrings this)
+  (set-cff-subset-charstrings! this null)
+  (define gsubrs (make-hash))
+  #;(for ([gid (in-list (subset-glyphs this))])
+       (define new-string (getCharString (cff-subset-cff this) gid))
+       (set-cff-subset-charstrings! this (cons new-string (cff-subset-charstrings this))))
+  (error 'subsetCharStrings-unfinished))
+
+(define (cff-subset-encode ss port)
+  ;; ss = this
+  ;; port = stream
+  (subsetCharstrings ss)
+  (error 'cff-subset-encode-unfinished))
+
+#;(module+ test
   (require "font.rkt" "helper.rkt")
   (define otf (open-font (path->string fira-otf-path)))
   (define cffss (+cff-subset otf))
@@ -137,7 +153,7 @@ https://github.com/mbutterick/fontkit/blob/master/src/subset/TTFSubset.js
 
 (define (clone-deep val) (deserialize (serialize val)))
 
-(define (subset-encode ss port)  
+(define (ttf-subset-encode ss port)  
   (set-ttf-subset-glyf! ss empty)
   (set-ttf-subset-offset! ss 0)
   (set-ttf-subset-loca! ss (mhash 'offsets empty))

fontland/fontland/table/CFF_.rkt

@@ -1,6 +1,6 @@
-#lang racket/base
-(require xenomorph)
-(provide CFF_)
+#lang debug racket/base
+(require racket/class xenomorph "cff-top.rkt")
+(provide (rename-out (CFFFont CFF_)))
 
 #|
 approximates
@@ -8,7 +8,28 @@ https://github.com/mbutterick/fontkit/blob/master/src/cff/CFFFont.js
 |#
 
 ;; the CFFFont object acts as the decoder for the `CFF ` table.
-;; no CFF support yet
 
-(define CFF_ (x:buffer))
+(struct $CFFFont (stream) #:transparent #:mutable) 
 
+(define CFFFont
+  (make-object
+      (class xenobase%
+        (super-new)
+
+        (define/augride (:decode port parent [len 0])
+          (define stream port)
+          (define start (pos stream))
+          (define top (decode CFFTop stream))
+          top))))
+
+
+(module+ test
+  (require rackunit racket/serialize racket/stream "../helper.rkt")
+  (define dir (deserialize (read (open-input-file #R fira-otf-directory-path))))
+  (define cff-offset (hash-ref (hash-ref (hash-ref dir 'tables) 'CFF_) 'offset))
+  (define cff-length (hash-ref (hash-ref (hash-ref dir 'tables) 'CFF_) 'length))
+  (define ip (open-input-file fira-otf-path))
+  (define cff-bytes (peek-bytes #R cff-length #R cff-offset ip))
+  (define cff-data (decode CFFFont cff-bytes))
+  cff-data
+  )

fontland/fontland/table/cff-index.rkt

@@ -0,0 +1,25 @@
+#lang racket/base
+(require racket/class xenomorph sugar/unstable/dict)
+(provide CFFIndex)
+
+(define CFFIndex%
+  (class xenobase%
+    (super-new)
+    (init-field [type type])
+
+    (define (getCFFVersion ctx)
+      (let loop ([ctx ctx])
+        (if (and ctx (not (hash-ref ctx 'hdrSize)))
+            (loop (hash-ref ctx 'parent))
+            (if ctx (hash-ref ctx 'version) -1))))
+    
+    (define/augride (:decode stream parent)
+      (define version (getCFFVersion parent))
+      (define count (decode (if (>= version 2)
+                                uint32be
+                                uint16be) stream))
+      count
+      )))
+
+(define (CFFIndex type)
+  (new CFFIndex% [type type]))

fontland/fontland/table/cff-top.rkt

@@ -0,0 +1,26 @@
+#lang racket/base
+(require xenomorph sugar/unstable/dict "cff-index.rkt")
+(provide CFFTop)
+
+#|
+approximates
+https://github.com/mbutterick/fontkit/blob/master/src/cff/CFFTop.js
+|#
+
+(define CFFTop
+  (x:versioned-struct
+   fixed16be
+   (dictify
+    1 (dictify 'hdrSize uint8
+               'offSize uint8
+               ;;'nameIndex (CFFIndex (x:string #:length 'length))
+               ;;'topDictIndex (CFFIndex CFFTopDict)
+               ;;'stringIndex (CFFIndex (x:string #:length 'length))
+               ;;'globalSubrIndex (CFFIndex)
+               )
+    
+    2 (dictify 'hdrSize uint8
+               'length  uint16be
+               ;;'topDict CFF2TopDict
+               ;;'globalSubrIndex (CFFIndex)
+               ))))

fontland/fontland/tables.rkt

@@ -16,14 +16,14 @@ https://github.com/mbutterick/fontkit/blob/master/src/tables/index.js
                        (r+p TABLE-ID-STRING ...)
                        (define ID (make-hasheq (map cons (list 'TABLE-ID ...) (list TABLE-ID ...))))))]))
 
-(define-table-codecs table-codecs head hhea hmtx maxp OS/2 post cvt_ fpgm loca prep glyf)
+(define-table-codecs table-codecs head hhea hmtx maxp OS/2 post cvt_ fpgm loca prep glyf CFF_)
 
 
 #|
 Tables not supported:
 cmap name
 PostScript outlines:
-CFF_ CFF2 VORG
+CFF2 VORG
 Advanced OpenType Tables
 BASE GDEF GPOS GSUB JSTF
 |#