###############################################
##
## Copyright 2005 (c) Pointwise, Inc.
## All rights reserved.
##
## This sample Gridgen script is not supported by Pointwise, Inc.
## It is provided freely for demonstration purposes only.
## SEE THE WARRANTY DISCLAIMER AT THE BOTTOM OF THIS FILE.
##
## Script: BlkGet.glf   Created: April 29, 2005
## Author: Carolyn Dear Company: Pointwise, Inc.
## Purpose: A procedure that returns the block number
##   when the input variable is the block name.
##
## Example Usage:
##
##     set name "Cavity"
##     set num 3
##
##     set blkID1 [BlkGetByName $name]
##     set blkID2 [BlkGetByNum $num]
##
##     puts "My Block ID from BlkGetByName: $blkID1"
##     puts "My Block ID from BlkGetByNum: $blkID2"
###############################################


proc BlkGetByName { BlkName } {
    set AllBlks [gg::blkGetAll]
    foreach blk $AllBlks {
        set bName [string trim [gg::blkName $blk]]
        if {$bName == $BlkName} {
            return $blk
        }
    }
}


proc BlkGetByNum { BlkNum } {
    set AllBlks [gg::blkGetAll]
    foreach blk $AllBlks {
        set bNum [lindex [gg::blkIdToNum $blk] 0]
        if {$bNum == $BlkNum} {
            return $blk
        }
    }
}


#
# DISCLAIMER:
# TO THE MAXIMUM EXTENT PERMITTED BY APPLICABLE LAW, POINTWISE DISCLAIMS
# ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING, BUT NOT LIMITED
# TO, IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
# PURPOSE, WITH REGARD TO THIS SCRIPT.  TO THE MAXIMUM EXTENT PERMITTED
# BY APPLICABLE LAW, IN NO EVENT SHALL POINTWISE BE LIABLE TO ANY PARTY
# FOR ANY SPECIAL, INCIDENTAL, INDIRECT, OR CONSEQUENTIAL DAMAGES
# WHATSOEVER (INCLUDING, WITHOUT LIMITATION, DAMAGES FOR LOSS OF
# BUSINESS INFORMATION, OR ANY OTHER PECUNIARY LOSS) ARISING OUT OF THE
# USE OF OR INABILITY TO USE THIS SCRIPT EVEN IF POINTWISE HAS BEEN
# ADVISED OF THE POSSIBILITY OF SUCH DAMAGES AND REGARDLESS OF THE
# FAULT OR NEGLIGENCE OF POINTWISE.
#