Index by: file name | procedure name | procedure call | annotation
hashMap_proc.tcl (annotations | original source)

####################################################################
# Reads a property file using the java properties object and returns a sorted list.
####################################################################
proc hashMap { propertiesFile } {

   set procName [ lindex [ info level 0 ] 0 ]

   putsLog "## proc - $procName"

   foreach i [ info args $procName ]  {

      upvar 0 $i ilocal

      set propertiesArray($i) $ilocal 

   }

   putsLog "procedure arguments are................."

   foreach { a b } [ array get propertiesArray ] {

       putsLog [ format "%-35s %s" "$a" "$b" ]

   }

   if { [ file exists $propertiesFile ] == 1 } {

      putsLog "File location confirmed for: $propertiesFile"

      } else {

          putsLog "ERROR: file $propertiesFile does not exist."
          return -code error 

   }

   java::import java.util.Properties
   java::import java.util.Hashtable
   java::import java.util.Map
   java::import java.io.FileInputStream

   set FileInputStreamI [ java::new FileInputStream $propertiesFile ]
   set PropertiesI      [ java::new Properties ]  

   $PropertiesI load $FileInputStreamI 

   #puts $hashTableList 

   return $PropertiesI

}

Index by: file name | procedure name | procedure call | annotation
File generated 2007-08-07 at 13:42.