reorg tables

fontland/fontland/subset.rkt

@@ -1,6 +1,6 @@
 #lang debug racket/base
 (require "racket.rkt")
-(require racket/serialize "ttfglyphencoder.rkt" "loca.rkt" "directory.rkt" xenomorph)
+(require racket/serialize "ttfglyphencoder.rkt" "table/loca.rkt" "directory.rkt" xenomorph)
 (provide Subset CFFSubset TTFSubset)
 
 #|

fontland/fontland/table/CFF_.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require "racket.rkt")
+(require "../racket.rkt")
 
 (require xenomorph)
 (provide CFF_)

fontland/fontland/table/OS2.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require "racket.rkt")
+(require "../racket.rkt")
 
 (require xenomorph)
 (provide (all-defined-out))

fontland/fontland/table/cvt_.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require "racket.rkt")
+(require "../racket.rkt")
 
 (require xenomorph)
 (provide (all-defined-out))

fontland/fontland/table/fpgm.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require "racket.rkt")
+(require "../racket.rkt")
 
 (require xenomorph)
 (provide (all-defined-out))
@@ -13,9 +13,9 @@ https://github.com/mbutterick/fontkit/blob/master/src/tables/fpgm.js
 ;; is for the definition of functions that are used in many different glyph programs.
 
 
-(define-subclass Struct (fpgm%))
+(define-subclass Struct (Rfpgm))
 
-(define fpgm (make-object fpgm%
+(define fpgm (make-object Rfpgm
                (dictify
                 'instructions (make-object Array uint8))))
 

fontland/fontland/table/glyf.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require "racket.rkt")
+(require "../racket.rkt")
 
 (require xenomorph)
 (provide (all-defined-out))

fontland/fontland/table/head.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require "racket.rkt")
+(require "../racket.rkt")
 
 (require xenomorph)
 (provide (all-defined-out))

fontland/fontland/table/hhea.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require "racket.rkt")
+(require "../racket.rkt")
 
 (require xenomorph)
 (provide (all-defined-out))

fontland/fontland/table/hmtx.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require "racket.rkt")
+(require "../racket.rkt")
 
 (require xenomorph)
 (provide (all-defined-out))

fontland/fontland/table/loca.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require "racket.rkt")
+(require "../racket.rkt")
 
 (require xenomorph)
 (provide (all-defined-out))

fontland/fontland/table/maxp.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require "racket.rkt")
+(require "../racket.rkt")
 
 (require xenomorph)
 (provide (all-defined-out))

fontland/fontland/table/post.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require "racket.rkt")
+(require "../racket.rkt")
 
 (require xenomorph)
 (provide (all-defined-out))

fontland/fontland/table/prep.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
-(require "racket.rkt")
+(require "../racket.rkt")
 
 (require xenomorph)
 (provide (all-defined-out))

fontland/fontland/tables.rkt

@@ -11,7 +11,8 @@ https://github.com/mbutterick/fontkit/blob/master/src/tables/index.js
 
 (define-macro (define-table-codecs ID TABLE-ID ...)
   (with-pattern ([(TABLE-ID-STRING ...) (pattern-case-filter #'(TABLE-ID ...)
-                                                        [STX (datum->syntax caller-stx (string-replace (format "~a.rkt" (syntax->datum #'STX)) "/" ""))])]) 
+                                                        [STX (datum->syntax caller-stx
+                                                                            (string-append "table/" (string-replace (format "~a.rkt" (syntax->datum #'STX)) "/" "")))])]) 
                 #'(begin
                     (r+p TABLE-ID-STRING ...)
                     (test-module (require (submod TABLE-ID-STRING test) ...))