Changeset 28796


Ignore:
Timestamp:
Sep 9, 2007, 5:29:36 AM (10 years ago)
Author:
landonf@…
Message:
  • Hide 'cd' as '_cd'. It should be removed entirely once the few uses can be fixed in port1.0
  • Fix escaping of } { in strings in base/src/port1.0/portinstall.tcl
Location:
trunk/base/src
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/macports1.0/macports.tcl

    r28699 r28796  
    637637    interp hide $workername exit
    638638
     639    # cd: This is necessary for some code in port1.0, but should be hidden
     640    interp eval $workername "rename cd _cd"
     641
    639642    # Tell the sub interpreter about all the Tcl packages we already
    640643    # know about so it won't glob for packages.
  • trunk/base/src/port1.0/portdestroot.tcl

    r27892 r28796  
    191191                    set mandirpath [file join $manpath $mandir]
    192192                    set pwd [pwd]
    193                     if {[catch {cd $mandirpath} err]} {
     193                    if {[catch {_cd $mandirpath} err]} {
    194194                        puts $err
    195195                        return
     
    209209                        system "ln -s \"${manlinksrc}.gz\" \"$manlinkpath\""
    210210                    }
    211                     cd $pwd
     211                    _cd $pwd
    212212                }
    213213            }
  • trunk/base/src/port1.0/portinstall.tcl

    r28768 r28796  
    7979    global installPlist
    8080    set pwd [pwd]
    81     if {[catch {cd $workdir} err]} {
     81    if {[catch {_cd $workdir} err]} {
    8282        puts $err
    8383        return
     
    125125        }
    126126    }
    127     cd $pwd
     127    _cd $pwd
    128128}
    129129
     
    189189        set space " "
    190190    }
    191     append p "} {" [info body $pname] "\}"
     191    append p "\} \{" [info body $pname] "\}"
    192192    return $p
    193193}
  • trunk/base/src/port1.0/portpatch.tcl

    r26177 r28796  
    7070        return -code error [msgcat::mc "Patch files missing"]
    7171    }
    72     cd [option worksrcpath]
     72    _cd [option worksrcpath]
    7373    foreach patch $patchlist {
    7474        ui_info "$UI_PREFIX [format [msgcat::mc "Applying %s"] $patch]"
  • trunk/base/src/port1.0/resources/group/gnustep-1.0.tcl

    r26266 r28796  
    229229            ui_msg "--->  Making Documentation for ${name}"
    230230           
    231             cd ${worksrcpath}/Documentation
     231            _cd ${worksrcpath}/Documentation
    232232            system "${destroot.env} ${destroot.cmd} \
    233233                    ${destroot.pre_args} ${destroot.destdir}"
  • trunk/base/src/port1.0/resources/group/ruby-1.0.tcl

    r28777 r28796  
    181181
    182182                        destroot {
    183                                 cd ${worksrcpath}/${ruby.srcdir}
     183                                _cd ${worksrcpath}/${ruby.srcdir}
    184184                                xinstall -d -m 0755 ${destroot}${ruby.lib}
    185185                                foreach dir [exec find . -type d] {
     
    273273                       
    274274                        destroot {
    275                           cd ${worksrcpath}
     275                          _cd ${worksrcpath}
    276276                          system "${prefix}/bin/gem install --local --force --install-dir ${destroot}${prefix}/lib/ruby/gems/${ruby.version} ${distpath}/${distname}"
    277277                       
    278278                                set binDir ${destroot}${prefix}/lib/ruby/gems/${ruby.version}/bin
    279279                                if {[file isdirectory $binDir]} {
    280                                         cd $binDir
     280                                        _cd $binDir
    281281                                        foreach file [readdir $binDir] {
    282282                                                file copy $file ${destroot}${prefix}/bin
     
    292292
    293293        post-destroot {
    294                 cd ${worksrcpath}
     294                _cd ${worksrcpath}
    295295                # Install documentation files (if specified)
    296296                if {[llength ${ruby.docs}] > 0} {
Note: See TracChangeset for help on using the changeset viewer.