Ignore:
Timestamp:
Sep 12, 2002, 11:26:01 PM (16 years ago)
Author:
landonf
Message:

Changes to allow arguments to command.{var} procedures to contain spaces within individual arguments

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r618 r628  
    106106
    107107    if [info exists ${command}.env] {
    108         set cmdstring "$cmdstring [set ${command}.env]"
     108        foreach string [set ${command}.env] {
     109                set cmdstring "$cmdstring $string"
     110        }
    109111    }
    110112
    111113    if [info exists ${command}.cmd] {
    112         set cmdstring "$cmdstring [set ${command}.cmd]"
     114        foreach string [set ${command}.cmd] {
     115                set cmdstring "$cmdstring $string"
     116        }
    113117    } else {
    114118        set cmdstring "$cmdstring ${command}"
     
    116120    foreach var "${command}.pre_args ${command}.args ${command}.post_args" {
    117121        if [info exists $var] {
    118             set cmdstring "$cmdstring [set $var]"
     122        foreach string [set ${var}] {
     123                set cmdstring "$cmdstring $string"
     124        }
    119125        }
    120126    }
Note: See TracChangeset for help on using the changeset viewer.