linkpart2datasheet.tcl

来自「Cadence_Starter_Library」· TCL 代码 · 共 60 行

source $env(HOME)/libimport/common/adwcommon.tcl
package require java

set config [java::call com.cadence.adw.common.generic.util.Configuration getInstance]
set mainFrame [java::cast com.cadence.adw.common.generic.view.GenericMainFrame [$config getAppMainFrame]]

set hourglassCursor [java::new java.awt.Cursor [java::field java.awt.Cursor WAIT_CURSOR]]
$mainFrame setCursor $hourglassCursor

    set fLog [open $env(HOME)/libimport/script/debug.log w]
    set dao [getPartDAO]
    set DSDao [getDSModelDAO]

    set parts2dsFileName "$env(HOME)/libimport/script/import_datasheet.txt"
    set fId [open $parts2dsFileName r]
    regsub -all ";" [read $fId] "" cnxFile  
    close $fId

    puts $fLog $cnxFile

    set lst_element [split $cnxFile "\n"]

    
    foreach elem $lst_element {

	set lst_tmp [split $elem ","]
	puts $fLog " - $elem"
        set partNumber [lindex $lst_tmp 0]
	puts $fLog "Part Number: $partNumber"
        set Partdatamodel [getPartDatamodel $dao $partNumber]
	puts $fLog $Partdatamodel

	if { $Partdatamodel == "" } {
	    puts $fLog "Skipping..."
	    continue
	}

	set dsNames [lrange $lst_tmp 1 end]
	puts $fLog "Datasheets: $dsNames"

        foreach DSName $dsNames {
    	    set DSName [lindex [split $DSName "."] 0]
	    puts $fLog "Datasheet: $DSName"
	    set DSdatamodel [getDSDatamodel $DSDao $DSName]
	    puts $fLog $DSdatamodel
	    if { $DSdatamodel == "" } {
	        puts $fLog "Skipping..."
	        continue
	    }

	    set result [linkPart2Datasheet $dao $Partdatamodel $DSdatamodel]
	    puts $fLog "Linked	Part : $partNumber	to	DataSheet : $DSName Result : $result"
	}

    }
    flush $fLog
    close $fLog

set normalCursor [java::new java.awt.Cursor [java::field java.awt.Cursor DEFAULT_CURSOR]]
$mainFrame setCursor $normalCursor