Eskil

Differences From Artifact [6fd359a342]:

• Executable file src/startup.tcl — part of check-in [3c9895c599] at 2020-12-10 12:23:41 on branch trunk — Refactoring and cleanup of Plugin code. Prepare for runtime plugin. (user: peter size: 46592)

To Artifact [698c64442b]:

• Executable file src/startup.tcl — part of check-in [469c6f07fc] at 2021-02-28 15:35:36 on branch trunk — Fix after plugin restructure. (user: peter size: 46593)

438
439
440
441
442
443
444
445
446
447
448
449
450
451
452

        exit
    }
}
proc optValidatePlugin {opt arg} {
    # We must start up completely to check a plugin
    Init
    set res [LocatePlugin $arg]
    set src [dict get $res src]
    if {$src eq ""} {
        puts "Bad plugin: $arg"
        printPlugins
        exit
    }
    # Look for declarations of command line options
    foreach {name flag doc} [dict get $res opts] {

|

438
439
440
441
442
443
444
445
446
447
448
449
450
451
452

        exit
    }
}
proc optValidatePlugin {opt arg} {
    # We must start up completely to check a plugin
    Init
    set res [LocatePlugin $arg]
    set src [dict get $res file]
    if {$src eq ""} {
        puts "Bad plugin: $arg"
        printPlugins
        exit
    }
    # Look for declarations of command line options
    foreach {name flag doc} [dict get $res opts] {