Eskil

Check-in [3f2d2abd87]
Login

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

Overview
Comment:Made --query work again; lost in option reorganisation.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 3f2d2abd874481669ba9af2493b34a426fe8b12a
User & Date: peter 2017-01-31 20:36:46.391
Context
2017-01-31
20:46
Typo check-in: 4dcdb859d0 user: peter tags: trunk
20:36
Made --query work again; lost in option reorganisation. check-in: 3f2d2abd87 user: peter tags: trunk
20:36
Make things run clean check-in: 43ff6468af user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to Changes. 



1
2
3
4
5
6
7




2017-01-12
 Added -gz flag to compare compressed files.

2016-09-04
 Preserve line endings when saving during Edit Mode.

2016-08-30

>
>
>








1
2
3
4
5
6
7
8
9
10

2017-01-32
 Made --query work again; lost in option reorganisation.

2017-01-12
 Added -gz flag to compare compressed files.

2016-09-04
 Preserve line endings when saving during Edit Mode.

2016-08-30
︙︙
Changes to src/startup.tcl.
︙︙
733
734
735
736
737
738
739



740
741
742
743
744
745
746

    addMultOpt -r
    docFlag -r "Version info for version control mode"

    # If the first option is "--query", use it to ask about options.
    if {$::eskil(argc) == 2 && [lindex $::eskil(argv) 0] == "--query"} {
        set arg [lindex $::eskil(argv) 1]
        set allOpts [allOpts]



        if {[lsearch -exact $allOpts $arg] < 0} {
            set match [lsearch -glob -all -inline $allOpts $arg*]
        } else {
            set match [list $arg]
        }
        puts [lsort -dictionary $match]
        exit








>
>
>








733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749

    addMultOpt -r
    docFlag -r "Version info for version control mode"

    # If the first option is "--query", use it to ask about options.
    if {$::eskil(argc) == 2 && [lindex $::eskil(argv) 0] == "--query"} {
        set arg [lindex $::eskil(argv) 1]
        set allOpts [allOpts]
        # Remove "-" from allOpts
        set i [lsearch -exact $allOpts "-"]
        set allOpts [lreplace $allOpts $i $i]
        if {[lsearch -exact $allOpts $arg] < 0} {
            set match [lsearch -glob -all -inline $allOpts $arg*]
        } else {
            set match [list $arg]
        }
        puts [lsort -dictionary $match]
        exit
︙︙
Added tests/cmdline.test. 
























>
>
>
>
>
>
>
>
>
>
>

1
2
3
4
5
6
7
8
9
10
11

#------------------------------------------------------------*- tcl -*-
# Tests for command line.
#----------------------------------------------------------------------

test cmdline-1.1 {cmd line query} -body {
    set res [ExecEskil --query -]
} -match glob -result {*-browse *-help *-table *}

test cmdline-1.2 {cmd line query} -body {
    set res [ExecEskil --query -l]
} -result {-limit -line}