Eskil

Check-in [ba20a13c77]
Login

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

Overview
Comment:Robustness fix.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: ba20a13c77ed2a252da5c650d63f47c3df6c194e
User & Date: peter 2007-12-09 07:51:10.000
Context
2007-12-09
08:00
Support command line "-" to read patch from stdin. check-in: 1bdf9b7152 user: peter tags: trunk
07:51
Robustness fix. check-in: ba20a13c77 user: peter tags: trunk
2007-12-05
19:38
Added some more on feature list. check-in: 7d18e05c94 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/rev.tcl.
︙︙
307
308
309
310
311
312
313

314
315
316
317
318
319
320

##############################################################################
# Exported procedures
##############################################################################

# Figure out what revision control system a file is under
# Returns "CVS", "RCS", "CT", "GIT" if detected, or "" if none.
proc detectRevSystem {file} {

    # The search order is manually set to ensure GIT priority over CVS.
    foreach rev {GIT CVS RCS CT} {
        set result [eskil::rev::${rev}::detect $file]
        if {$result} {return $rev}
    }
    return
}








>








307
308
309
310
311
312
313
314
315
316
317
318
319
320
321

##############################################################################
# Exported procedures
##############################################################################

# Figure out what revision control system a file is under
# Returns "CVS", "RCS", "CT", "GIT" if detected, or "" if none.
proc detectRevSystem {file} {
    if {![file exists $file]} { return "" }
    # The search order is manually set to ensure GIT priority over CVS.
    foreach rev {GIT CVS RCS CT} {
        set result [eskil::rev::${rev}::detect $file]
        if {$result} {return $rev}
    }
    return
}
︙︙