cli.rkt

#lang racket
(require "kicad_mod.rkt")
(define m (file->string "example.footwork_mod"))

; turns struct into list but also keeps the initial keyword unlike the one in
; racket/struct
(define (struct->list x)
  (let* ([de-struct
          (λ (sym)
            (let ([str (symbol->string sym)])
              (string->symbol
               (string-replace str "struct:" ""))))]
         [v (struct->vector x)]
         [s (de-struct (vector-ref v 0))])
    (begin
      (vector-set! v 0 s)
      (vector->list v))))

; recursively turn a arbitrarily deep list of structs into list of lists
(define (structs->lists x)
  (cond
    [(struct? x) (structs->lists (struct->list x))]
    [(list? x) (map structs->lists x)]
    [else x]))

(pretty-write
  (structs->lists
    (flatten
      (eval-kicad_mod/ast m))))

(provide structs->lists)