cluster.tk

openPBS的开放源代码

        set ${array}(Yscroll) $yscroll
}

proc clusterYscrollGet {clusterframe} {
        set array [string trimleft $clusterframe .]
        global $array

        if {![info exists ${array}(Yscroll)]} {
                return ""
        }
        return [set ${array}(Yscroll)]
}

proc clusterDisplayWidthPut {clusterframe width} {
        set array [string trimleft $clusterframe .]
        global $array

        set ${array}(displayWidth) $width
}

proc clusterDisplayWidthGet {clusterframe} {
        set array [string trimleft $clusterframe .]
        global $array

        if {![info exists ${array}(displayWidth)]} {
                return ""
        }
        return [set ${array}(displayWidth)]
}

proc clusterDisplayHeightPut {clusterframe height} {
        set array [string trimleft $clusterframe .]
        global $array

        set ${array}(displayHeight) $height
}

proc clusterDisplayHeightGet {clusterframe} {
        set array [string trimleft $clusterframe .]
        global $array

        if {![info exists ${array}(displayHeight)]} {
                return ""
        }
        return [set ${array}(displayHeight)]
}

proc clusterCanvasWidthPut {clusterframe width} {
        set array [string trimleft $clusterframe .]
        global $array

        set ${array}(canvasWidth) $width
}

proc clusterCanvasWidthGet {clusterframe} {
        set array [string trimleft $clusterframe .]
        global $array

        if {![info exists ${array}(canvasWidth)]} {
                return ""
        }
        return [set ${array}(canvasWidth)]
}
proc clusterCanvasHeightPut {clusterframe height} {
        set array [string trimleft $clusterframe .]
        global $array

        set ${array}(canvasHeight) $height
}

proc clusterCanvasHeightGet {clusterframe} {
        set array [string trimleft $clusterframe .]
        global $array

        if {![info exists ${array}(canvasHeight)]} {
                return ""
        }
        return [set ${array}(canvasHeight)]
}

proc clusterScrollRegionWidthPut {clusterframe width} {
        set array [string trimleft $clusterframe .]
        global $array

        set ${array}(scrollRegionWidth) $width
}

proc clusterScrollRegionWidthGet {clusterframe} {
        set array [string trimleft $clusterframe .]
        global $array

        if {![info exists ${array}(scrollRegionWidth)]} {
                return ""
        }
        return [set ${array}(scrollRegionWidth)]
}

proc clusterScrollRegionHeightPut {clusterframe height} {
        set array [string trimleft $clusterframe .]
        global $array

        set ${array}(scrollRegionHeight) $height
}

proc clusterScrollRegionHeightGet {clusterframe} {
        set array [string trimleft $clusterframe .]
        global $array

        if {![info exists ${array}(scrollRegionHeight)]} {
                return ""
        }
        return [set ${array}(scrollRegionHeight)]
}
proc clusterXposPut {clusterframe pos} {
        set array [string trimleft $clusterframe .]
        global $array

        set ${array}(Xpos) $pos
}

proc clusterXposGet {clusterframe} {
        set array [string trimleft $clusterframe .]
        global $array

        if {![info exists ${array}(Xpos)]} {
                return ""
        }
        return [set ${array}(Xpos)]
}

proc clusterYposPut {clusterframe pos} {
        set array [string trimleft $clusterframe .]
        global $array

        set ${array}(Ypos) $pos
}

proc clusterYposGet {clusterframe} {
        set array [string trimleft $clusterframe .]
        global $array

        if {![info exists ${array}(Ypos)]} {
                return ""
        }
        return [set ${array}(Ypos)]
}

proc clusterNextPut {clusterframe frame} {
        set array [string trimleft $clusterframe .]
        global $array

        set ${array}(next) $frame
}

proc clusterNextGet {clusterframe} {
        set array [string trimleft $clusterframe .]
        global $array

        if {![info exists ${array}(next)]} {
                return ""
        }
        return [set ${array}(next)]
}
proc clusterOffsetWidthPut {clusterframe incr} {
        set array [string trimleft $clusterframe .]
        global $array

        set ${array}(offsetWidth) $incr
}

proc clusterOffsetWidthGet {clusterframe} {
        set array [string trimleft $clusterframe .]
        global $array

        if {![info exists ${array}(offsetWidth)]} {
                return ""
        }
        return [set ${array}(offsetWidth)]
}

proc clusterMainFramePut {clusterframe frame} {
        set array [string trimleft $clusterframe .]
        global $array

        set ${array}(mainFrame) $frame
}

proc clusterMainFrameGet {clusterframe} {
        set array [string trimleft $clusterframe .]
        global $array

        if {![info exists ${array}(mainFrame)]} {
                return ""
        }
        return [set ${array}(mainFrame)]
}

proc clusterSystemFramePut {clusterframe frame} {
        set array [string trimleft $clusterframe .]
        global $array

        set ${array}(systemFrame) $frame
}

proc clusterSystemFrameGet {clusterframe} {
        set array [string trimleft $clusterframe .]
        global $array

        if {![info exists ${array}(systemFrame)]} {
                return ""
        }
        return [set ${array}(systemFrame)]
}
proc clusterNodesListPut {clusterframe nlist} {
        set array [string trimleft $clusterframe .]
        global $array

        set ${array}(nodeslist) $nlist
}

proc clusterNodesListGet {clusterframe} {
        set array [string trimleft $clusterframe .]
        global $array

        if {![info exists ${array}(nodeslist)]} {
                return ""
        }
        return [set ${array}(nodeslist)]
}

proc clusterTotPoolPut {clusterframe totpool} {
        set array [string trimleft $clusterframe .]
        global $array

        set ${array}(totpool) $totpool
}

proc clusterTotPoolGet {clusterframe} {
        set array [string trimleft $clusterframe .]
        global $array

        if {![info exists ${array}(totpool)]} {
                return ""
        }
        return [set ${array}(totpool)]
}

proc clusterUsePoolPut {clusterframe usepool} {
        set array [string trimleft $clusterframe .]
        global $array

        set ${array}(usepool) $usepool
}

proc clusterUsePoolGet {clusterframe} {
        set array [string trimleft $clusterframe .]
        global $array

        if {![info exists ${array}(usepool)]} {
                return ""
        }
        return [set ${array}(usepool)]
}

proc clusterAvailPoolPut {clusterframe availpool} {
        set array [string trimleft $clusterframe .]
        global $array

        set ${array}(availpool) $availpool
}

proc clusterAvailPoolGet {clusterframe} {
        set array [string trimleft $clusterframe .]
        global $array

        if {![info exists ${array}(availpool)]} {
                return ""
        }
        return [set ${array}(availpool)]
}
proc clusterOfflinePoolPut {clusterframe offlpool} {
        set array [string trimleft $clusterframe .]
        global $array

        set ${array}(offlpool) $offlpool
}

proc clusterOfflinePoolGet {clusterframe} {
        set array [string trimleft $clusterframe .]
        global $array

        if {![info exists ${array}(offlpool)]} {
                return ""
        }
        return [set ${array}(offlpool)]
}

proc clusterDownPoolPut {clusterframe downpool} {
        set array [string trimleft $clusterframe .]
        global $array

        set ${array}(downpool) $downpool
}

proc clusterDownPoolGet {clusterframe} {
        set array [string trimleft $clusterframe .]
        global $array

        if {![info exists ${array}(downpool)]} {
                return ""
        }
        return [set ${array}(downpool)]
}

proc clusterReservedPoolPut {clusterframe rsrvpool} {
        set array [string trimleft $clusterframe .]
        global $array

        set ${array}(rsrvpool) $rsrvpool
}

proc clusterReservedPoolGet {clusterframe} {
        set array [string trimleft $clusterframe .]
        global $array

        if {![info exists ${array}(rsrvpool)]} {
                return ""
        }
        return [set ${array}(rsrvpool)]
}

proc clusterUnkPoolPut {clusterframe unkpool} {
        set array [string trimleft $clusterframe .]
        global $array

        set ${array}(unkpool) $unkpool
}

proc clusterUnkPoolGet {clusterframe} {
        set array [string trimleft $clusterframe .]
        global $array

        if {![info exists ${array}(unkpool)]} {
                return ""
        }
        return [set ${array}(unkpool)]
}

proc clusterCpusAssnPut {clusterframe cpus_assn} {
        set array [string trimleft $clusterframe .]
        global $array

        set ${array}(cpus_assn) $cpus_assn
}

proc clusterCpusAssnGet {clusterframe} {