home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / readsetup.tcl < prev    next >
Encoding:
Text File  |  1996-08-12  |  2.1 KB  |  87 lines
  1. # Set of TCL read procedures to read the .setup files
  2.  
  3. #List
  4. global userlist 
  5. #Array's
  6. global roleinfo
  7. global userroleinfo 
  8. #List format project,config
  9. global projectconf
  10.  
  11. proc readsetup {filename} {
  12.     set filename "$filename.setup"
  13.     set file [open $filename]
  14.         set result [read $file]
  15.         close $file
  16.     return $result
  17. }
  18.  
  19. proc readusers {} {
  20.     global userlist
  21.     set file [readsetup "users"]
  22.     set lines [split $file '\n']
  23.         foreach line $lines {
  24.            set first [lindex $line 0]
  25.        if { $first == "" || $first == "#" } {
  26.        } else {
  27.           set user [string trim $line]
  28.           lappend userlist $user
  29.            }
  30.     }
  31. }
  32.  
  33. proc readroles {} {
  34.     global roleinfo
  35.         set roleinfo {}
  36.     set file [readsetup "roles"]
  37.         set lines [split $file '\n']
  38.         foreach line $lines {
  39.            set first [lindex $line 0]
  40.        if { $first == "" || $first == "#" } {
  41.        } else {
  42.           set roleline [string trim $line]    
  43.           lappend roleinfo $roleline
  44.            }
  45.     }
  46. }
  47.  
  48. proc readuserroles {} {
  49.     global userroleinfo
  50.     set file [readsetup "userroles"]
  51.         set lines [split $file '\n']
  52.         foreach line $lines {
  53.            set first [lindex $line 0]
  54.        if { $first == "" || $first == "#" } {
  55.        } else {
  56.           set roleline [string trim $line]    
  57.           set roleusers [split $roleline '|']
  58.           set rolename [string trim [lindex $roleusers 0]]
  59.               set users    [string trim [lindex $roleusers 1]]
  60.           set userroleinfo($rolename) [split $users ',']
  61.            }
  62.     }
  63. }
  64.  
  65. proc readprojects {} {
  66.     global projectconf
  67.     set file [readsetup "projects"]
  68.         set lines [split $file '\n']
  69.     foreach line $lines {
  70.            set first [lindex $line 0]
  71.            if { $first == "" || $first == "#" } {
  72.            } else {
  73.         set projectline [string trim $line]
  74.         set projconf    [split $projectline '|']
  75.             set project     [string trim [lindex $projconf 0]]
  76.             set config      [string trim [lindex $projconf 1]]
  77.         lappend projectconf "$project,$config"
  78.            }
  79.     }
  80. }
  81.  
  82. # Read in the Files into the global variables
  83. readusers
  84. readroles
  85. readuserroles
  86. readprojects
  87.