TEA (tclconfig) Source Code

Check-in [c9ba01fef0]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Practcl fixes to git repo management
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | practcl
Files: files | file ages | folders
SHA3-256:c9ba01fef06c72802edc57095fdf0448647c6a64c045ba45fdae4462e1a221aa
User & Date: hypnotoad 2017-12-12 20:32:22
Context
2018-01-11
17:16
Fix the name of the zipfs implementation in odie check-in: 441230505a user: hypnotoad tags: practcl
2017-12-12
20:32
Practcl fixes to git repo management check-in: c9ba01fef0 user: hypnotoad tags: practcl
2017-12-06
11:50
Tweak to gloss over corrupted .tm files when indexing packages check-in: d28e2babbf user: hypnotoad tags: practcl
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to practcl.tcl.

5130
5131
5132
5133
5134
5135
5136

5137
5138
5139
5140
5141
5142
5143
5144
5145
5146
    return 1
  }

  method ScmUpdate {} {
    if {[my ScmUnpack]} {
      return
    }

    set srcdir [my SrcDir]
    set tag [my ScmTag]
    ::practcl::doexec_in $srcdir git pull $tag
    cd $CWD
  }

}
oo::objdefine ::practcl::distribution.git {
  method claim_path path {
   if {[file exists [file join $path .git]]} {







>


|







5130
5131
5132
5133
5134
5135
5136
5137
5138
5139
5140
5141
5142
5143
5144
5145
5146
5147
    return 1
  }

  method ScmUpdate {} {
    if {[my ScmUnpack]} {
      return
    }
    set CWD [pwd]
    set srcdir [my SrcDir]
    set tag [my ScmTag]
    ::practcl::doexec_in $srcdir git pull
    cd $CWD
  }

}
oo::objdefine ::practcl::distribution.git {
  method claim_path path {
   if {[file exists [file join $path .git]]} {