| ; example.clj | |
| (ns example) | |
| (import org.eclipse.persistence.script.PersistenceUnit) | |
| (import org.eclipse.persistence.script.DataService) | |
| (defn createService [name] | |
| (let [pu (PersistenceUnit. "example")] | |
| (.setDataSource pu "java:app/env/DS") | |
| (doto (.addType pu "Person") | |
| (.generatedId "id") | |
| (.basic "name") | |
| ) | |
| (doto (.addType pu "Address") | |
| (.generatedId "id") | |
| (.basic "street") | |
| (.basic "city") | |
| (.basic "state") | |
| (.basic "country") | |
| ) | |
| (.create (DataService. pu) "v1.0" "create-or-extend-tables"))) | |