1533929015.rkt

(require (for-syntax syntax/parse
                     racket/syntax))

(define-type-alias Unit Symbol) ;; Temp

(struct Parameter ([p-id : String]
                   [p-desc : String]
                   ;[p-val : Measure]
                   [p-num : Number]
                   [p-unit : Unit])
  #:transparent)

(define-syntax (def-par stx)
  (syntax-parse stx
    [(_ [~seq name:id descr:string val:number punit:expr] ...)
     #:fail-when (check-duplicate-identifier (syntax->list #'(name ...))) "duplicate identifier"
     #:with [name-str ...] (map (λ (name) #`#,(symbol->string (syntax-e name))) (syntax->list #'[name ...]))
     #:with [ids ...] (map
                       (λ (s) (format-id s "par-~a" s))
                       (syntax->list #'[name ...]))
     #'(begin (define ids (Parameter name-str descr val punit)) ...)]))

(define kilogram 'kilogram)

(def-par
  h "handling time" 123 kilogram
  a "attack rate" 321 kilogram)

par-h