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.
84 lines
2.9 KiB
Racket
84 lines
2.9 KiB
Racket
#lang debug racket/base
|
|
(require "layout.rkt"
|
|
"quad.rkt"
|
|
"pipeline.rkt"
|
|
"linearize.rkt"
|
|
"layout.rkt"
|
|
"draw.rkt"
|
|
"attr.rkt"
|
|
"font.rkt"
|
|
"constants.rkt"
|
|
"param.rkt"
|
|
racket/list
|
|
racket/match)
|
|
|
|
(define-pass (split-into-single-char-quads qs)
|
|
;; break list of quads into single characters (keystrokes)
|
|
#:pre (list-of simple-quad?)
|
|
#:post (list-of simple-quad?)
|
|
(append*
|
|
(for/list ([q (in-list qs)])
|
|
(match q
|
|
[(quad _ _ (list (? string? str)) _)
|
|
(for/list ([c (in-string str)])
|
|
(struct-copy quad q [elems (list (string c))]))]
|
|
[_ (list q)]))))
|
|
|
|
(define quad-compile
|
|
(make-pipeline (list
|
|
;; each pass in the pipeline is at least
|
|
;; (list-of quad?) -> (list-of quad?)
|
|
|
|
;; attribute prep =============
|
|
;; all attrs start out as symbol-string pairs.
|
|
;; we convert keys & values to corresponding higher-level types.
|
|
upgrade-attr-keys
|
|
downcase-attr-values
|
|
convert-boolean-attr-values
|
|
convert-numeric-attr-values
|
|
parse-dimension-strings
|
|
|
|
;; linearization =============
|
|
;; we postpone this step until we're certain any
|
|
;; information encoded from the hierarchy of quads
|
|
;; has been absorbed into the attrs
|
|
;; (e.g., cascading font sizes)
|
|
;; because once we linearize, that information is gone.
|
|
linearize
|
|
|
|
;; resolutions & parsings =============
|
|
;; TODO: finish resolve-font-sizes
|
|
#;resolve-font-sizes
|
|
resolve-font-paths
|
|
complete-attr-paths
|
|
;; TODO: parse feature strings
|
|
|
|
mark-text-runs
|
|
merge-adjacent-strings
|
|
split-whitespace
|
|
split-into-single-char-quads
|
|
;; TODO: missing glyphs
|
|
layout
|
|
make-drawing-insts
|
|
stackify)))
|
|
|
|
(module+ test
|
|
(require "render.rkt")
|
|
(define (test-compile x)
|
|
(parameterize ([current-wrap-width 13]
|
|
[current-attrs all-attrs]
|
|
[current-strict-attrs? #t]
|
|
[current-show-timing? #f]
|
|
[current-use-preconditions? #t]
|
|
[current-use-postconditions? #t])
|
|
(quad-compile (bootstrap-input x))))
|
|
|
|
(match (test-compile "Hello this is the earth")
|
|
[(? string? insts)
|
|
(render insts #:using text-renderer)
|
|
(render insts #:using drr-renderer)
|
|
#;(render-to-html drawing-insts)
|
|
#;(render-to-pdf drawing-insts)
|
|
]))
|
|
|