adwcommon.tcl

Cadence_Starter_Library

package require java

proc getPartDAO {} {
	set datamodel [java::new com.cadence.adw.common.datamodel.ECADLibraryPart]
	set daoFactory [java::call com.cadence.adw.common.generic.dao.DAOFactory getInstance]
	set dao [$daoFactory getDAO $datamodel]
	return $dao
}

proc search {dao} {
	set result [java::cast java.util.ArrayList [$dao search [java::new java.util.HashMap] [java::new java.util.HashMap]]]
	return $result
}

proc getDatamodel {objects count} {
    set e [java::cast com.cadence.adw.common.datamodel.IDatamodel [$objects get $count]]
	return $e
}

proc getPartDatamodel {dao partNumber} {
    set tmpAttrMap [java::new java.util.HashMap]
    $tmpAttrMap put "Part Number" $partNumber
    set result [java::cast java.util.ArrayList [$dao search $tmpAttrMap [java::new java.util.HashMap]]]
    set size [$result size]
    if { $size > 0 } {
	return [java::cast com.cadence.adw.common.datamodel.IDatamodel [$result get 0]]
    } else {
        return "";
    }
}

proc getDSDatamodel {dao DSName} {
    set tmpAttrMap [java::new java.util.HashMap]
    $tmpAttrMap put "name" $DSName
    set result [java::cast java.util.ArrayList [$dao search $tmpAttrMap [java::new java.util.HashMap]]]
    set size [$result size]
    if { $size > 0 } {
	return [java::cast com.cadence.adw.common.datamodel.IDatamodel [$result get 0]]
    } else {
        return "";
    }
}

proc getDSModelDAO {} {
	set datamodel [java::new com.cadence.adw.common.datamodel.ECADLibraryModel]
	$datamodel setObjectType "Datasheet Model"
	set daoFactory [java::call com.cadence.adw.common.generic.dao.DAOFactory getInstance]
	set dao [$daoFactory getDAO $datamodel]
	return $dao
}

proc linkPart2Datasheet {daoPart part ds} {
	set daoFactory [java::call com.cadence.adw.common.generic.dao.DAOFactory getInstance]
	set relation [java::new com.cadence.adw.common.datamodel.ECADRelation]

	$relation setName "Component Specification"

	set tmpTypesColl [java::new java.util.ArrayList]
        $tmpTypesColl add "ECAD Component"
        $relation setFromTypes $tmpTypesColl

	set tmpTypesColl1 [java::new java.util.ArrayList]
        $tmpTypesColl1 add "Datasheet Model"
        $relation setToTypes $tmpTypesColl1


	set relInst [java::new com.cadence.adw.common.datamodel.ECADRelationInstance]
	$relInst setRelation $relation
	$relInst setDatamodel $part
	$relInst setRelatedDatamodel $ds

	set bool true
	$relInst setNew $bool
	$part addRelationInstance [$relation getName] $relInst

	set datamodel [$daoPart update $part]
	return $datamodel
}