 			       array))
 			 properties))))))
 
-;; select t0.f0 
-
-;; 
 ;; fields => [model field]
 
 (import org.dada.core.Getter)

	     (apply expand-property src-class src-type prop)))
       props))

(defn select [src-model tgt-class-name tgt-model-name key-name version-name props]
  (let [src-metadata (. src-model getMetadata)
	src-class (. src-metadata getValueClass)
	src-types (. src-metadata getAttributeTypes)
	src-names (. src-metadata getAttributeNames)

  (def view
       (select
	input-model
	"key"
	"version"
	(list ["id" :name "key"] ["version"] ["amount" :name "money"])))
  (insert metamodel view)

  (def item5 (make-instance input-class 3 2 2 6.0))
  (insert input-model item5)

  (def view2 (select view "key" "version" (list ["key"] ["version"] ["money" :name "amount"])))

  )

