Eskil

Check-in [24353cd8ba]
Login

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

Overview
Comment:Include version in command line help
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 24353cd8bae321d862319c0dcbe87b8aa0e4e428696b445f27a1b6d54b906bd3
User & Date: peter 2019-07-05 11:02:35
Context
2019-07-05
11:34
Added -subst command line, to acces PreProcess Subst function. check-in: 65a2768e2e user: peter tags: trunk
11:02
Include version in command line help check-in: 24353cd8ba user: peter tags: trunk
2019-06-25
13:20
Document -preprocess flag. check-in: 563562acd6 user: peter tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to src/startup.tcl.

318
319
320
321
322
323
324
325
326
327
328

329
330
331
332
333
334
335
336
337
338











339
340
341
342
343
344
345
}

#####################################
# Startup stuff
#####################################

proc printUsage {} {
    puts {Usage: eskil [options] [files...]
  [options]  See below.
  [files...] Files to be compared


  If no files are given, the program is started anyway and you can select
  files from within. If only one file is given, the program looks for version
  control of the file, and if found, runs in version control mode.
  If directories are given, Eskil starts in directory diff.

  To list all options matching a prefix, run 'eskil --query prefix'.
  In tcsh use this line to get option completion:
  complete eskil 'C/-/`eskil --query -`/'

  Options:}












    # Dump option info
    foreach name [lsort -dictionary [dict keys $::eskil(opts,info)]] {
        set outName $name
        if {![dict exists $::eskil(opts,info) $name flag]} {
            puts "Internal Error: BOHOHOHO $name"
            break







|


<
>










>
>
>
>
>
>
>
>
>
>
>







318
319
320
321
322
323
324
325
326
327

328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
}

#####################################
# Startup stuff
#####################################

proc printUsage {} {
    set usageStr {Usage: eskil [options] [files...]
  [options]  See below.
  [files...] Files to be compared

  %v%
  If no files are given, the program is started anyway and you can select
  files from within. If only one file is given, the program looks for version
  control of the file, and if found, runs in version control mode.
  If directories are given, Eskil starts in directory diff.

  To list all options matching a prefix, run 'eskil --query prefix'.
  In tcsh use this line to get option completion:
  complete eskil 'C/-/`eskil --query -`/'

  Options:}

    set versionStr ""
    if {[file exists $::eskil(thisDir)/../version.txt]} {
        set ch [open $::eskil(thisDir)/../version.txt]
        set versionStr [string trim [read $ch 100]]
        close $ch
        set versionStr "$versionStr\n"
    }

    set usageStr [string map [list "%v%" $versionStr] $usageStr]
    puts $usageStr

    # Dump option info
    foreach name [lsort -dictionary [dict keys $::eskil(opts,info)]] {
        set outName $name
        if {![dict exists $::eskil(opts,info) $name flag]} {
            puts "Internal Error: BOHOHOHO $name"
            break