#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 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
                  ;; I think `fill-default-attr-values` here is wrong.
                  ;; It will prevent parent values from cascading during linearization.
                  ;; But it would be OK at the top level, to ensure
                  ;; that there are values that cascade.
                  ;; But that can also be done by wrapping in a quad with the default values.
                  #;fill-default-attr-values
                  downcase-string-attr-values
                  convert-boolean-attr-values
                  convert-numeric-attr-values
                  convert-set-attr-values

                  ;; pre-linearization resolutions & parsings =============
                  ;; these need the tree shape
                  parse-dimension-strings
                  resolve-font-sizes
                  #;resolve-font-features

                  ;; 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

                  ;; post-linearization resolutions & parsings =============
                  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)
     ]))