home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / Tickle-4.0 (tcl) / scripts / env.tcl < prev    next >
Encoding:
Text File  |  1992-03-01  |  613 b   |  36 lines  |  [TEXT/$Tcl]
  1.  
  2. putenv TESTING "This is a test"
  3. puts stdout [getenv TESTING]
  4. puts stdout "[array names env]"
  5.  
  6. proc pretty_env_list {} {
  7.     global env;
  8.  
  9.     set length 0;
  10.     foreach name "[array names env]" {
  11.         set newlength [string length $name];
  12.         if { $newlength > $length } then { set length $newlength; };
  13.         };
  14.     foreach name "[array names env]" {
  15.         puts stdout [format "%-${length}s <%s>" $name $env($name)];
  16.         };
  17.     };
  18.  
  19. proc print_env_list {} {
  20.     global env;
  21.  
  22.     foreach name "[array names env]" {
  23.         puts stdout "${name}=$env($name)";
  24.         };
  25.     };
  26.  
  27. print_env_list;
  28. puts stdout "";
  29.  
  30. pretty_env_list;
  31. puts stdout "";
  32.  
  33. set env(LOGLEVEL) 5;
  34.  
  35.  
  36.