| ︙ | | |
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
|
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
|
+
+
+
+
|
-browse : Automatically bring up file dialog after starting.
-server : Set up Eskil to be controllable from the outside.
-printps <file> : Generate postscript and exit.
-printpdf <file> : Generate pdf and exit.
-plugin <plugin> : Use plugin
-plugininfo <info> : Pass info to plugin (plugin specific)
-plugindump <plugin> : Dump plugin source to stdout
-limit <lines> : Do not process more than <lines> lines.
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 -`/'}
}
|
| ︙ | | |
3311
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
|
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
|
+
|
set allOpts {
-w --help -help -b -noignore -i -nocase -nodigit -nokeyword -prefix
-noparse -line -smallblock -block -char -word -limit -nodiff -dir
-clip -patch -browse -conflict -print -printps -printpdf
-server -o -r -context -cvs -svn -review
-foreach -preprocess -close -nonewline -plugin -plugininfo
-plugindump
}
# 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]
if {[lsearch -exact $allOpts $arg] < 0} {
set match [lsearch -glob -all -inline $allOpts $arg*]
|
| ︙ | | |
3338
3339
3340
3341
3342
3343
3344
3345
3346
3347
3348
3349
3350
3351
|
3343
3344
3345
3346
3347
3348
3349
3350
3351
3352
3353
3354
3355
3356
3357
|
+
|
set revNo 1
set dopatch 0
set doreview 0
set foreach 0
set preferedRev "GIT"
set plugin ""
set plugininfo ""
set plugindump ""
foreach arg $::eskil(argv) {
if {$nextArg != ""} {
if {$nextArg eq "mergeFile"} {
set opts(mergeFile) [file join [pwd] $arg]
} elseif {$nextArg eq "printFile"} {
set opts(printFile) [file join [pwd] $arg]
|
| ︙ | | |
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
3373
3374
3375
|
3368
3369
3370
3371
3372
3373
3374
3375
3376
3377
3378
3379
3380
3381
3382
3383
|
+
+
|
set RE "(?i)$RE"
}
lappend ::Pref(regsub) $RE {\1}
} elseif {$nextArg eq "plugin"} {
set plugin $arg
} elseif {$nextArg eq "plugininfo"} {
set plugininfo $arg
} elseif {$nextArg eq "plugindump"} {
set plugindump $arg
} elseif {$nextArg eq "preprocess"} {
if {[catch {llength $arg} len]} {
} elseif {[llength $arg] % 2 == 1} {
} else {
# FIXA: better validity check
|
| ︙ | | |
3418
3419
3420
3421
3422
3423
3424
3425
3426
3427
3428
3429
3430
3431
|
3426
3427
3428
3429
3430
3431
3432
3433
3434
3435
3436
3437
3438
3439
3440
3441
|
+
+
|
set nextArg prefix
} elseif {$arg eq "-preprocess"} {
set nextArg preprocess
} elseif {$arg eq "-plugin"} {
set nextArg plugin
} elseif {$arg eq "-plugininfo"} {
set nextArg plugininfo
} elseif {$arg eq "-plugindump"} {
set nextArg plugindump
} elseif {$arg eq "-context"} {
set nextArg context
} elseif {$arg eq "-noparse"} {
set Pref(parse) 0
} elseif {$arg eq "-line"} {
set Pref(parse) 1
} elseif {$arg eq "-smallblock"} {
|
| ︙ | | |
3501
3502
3503
3504
3505
3506
3507
3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518
|
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529
3530
3531
3532
3533
|
+
+
+
+
+
|
lappend files $apa
}
}
}
Init
if {$plugindump ne ""} {
printPlugin $plugindump
exit
}
if {$plugin ne ""} {
set pinterp [createPluginInterp $plugin $plugininfo]
if {$pinterp eq ""} {
puts "Bad plugin: $plugin"
printPlugins
exit
}
set opts(plugin) $pinterp
}
# Do we start in clip diff mode?
if {$doclip} {
|
| ︙ | | |