delphi codegen

gistfile1.clj

(use 'codegen)
(use 'clojure.pprint)


(defDclass
  TTree3Element
    ID  integer    
    ;Position integer
    Sort   string     
    Number string 
    Name   string
    Desc   string
    Attributes dictionary
)


(defDclass  
  TTree3CellDetail
    DetailID (field integer {:reference :Detail :caption "Код детализации"})
    Name     (field string {:caption "Название"})
    Value    (field currency  {:caption "Сумма"})
)


(defDclass
  TTree3Cell
    ColID  integer    
    RowID  integer     
    Value  currency 
    StrValue string
    Details (array TTree3CellDetail)
)


(defDclass 
    TTree3Section
        ID integer
        Sort   string     
        Number string 
        Name   string
        Desc   string
        Attributes dictionary
        Cols       (array TTree3Element)
        Rows       (array TTree3Element)
        Cells      (array TTree3Cell))
 


(defDclass TTree3Document 
             DocumentID integer
             TemplateID integer 
             Version    integer
             IsTotal    integer 
             Date       date
             EndDate    date
             Dept       integer
             Imns       nullInteger
             Status     integer
             Comment    string
             Sections   (array TTree3Section)
                          
)

(defDclass TTree3Template
             ID integer
             Number string
             Name   string
             Group  string
             Desc   string
             Metadata json
)


(defDclass TemplateList
             Templates (array TTree3Template)
)
            



(def classes [TTree3CellDetail TTree3Element TTree3Cell TTree3Section TTree3Document TTree3Template TemplateList])

;(defn dump [] (map pprint classes))

;(println (dump))

(writeUnit classes "Tree3Document")