Skip to content

Instantly share code, notes, and snippets.

@metametaclass
Created August 5, 2012 20:14
Show Gist options
  • Save metametaclass/3266976 to your computer and use it in GitHub Desktop.
Save metametaclass/3266976 to your computer and use it in GitHub Desktop.
delphi codegen
(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")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment