cmdr
Check-in [4eaa72578e]
Not logged in

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

Overview
Comment:Fix the guard conditions for negative aliases.
Timelines: family | ancestors | descendants | both | neg-aliases
Files: files | file ages | folders
SHA1:4eaa72578e372db1a0da26704dd574edd13b71a3
User & Date: aku 2015-05-11 23:02:05
Context
2015-05-11
23:02
Update expected test results. check-in: 5299cd1353 user: aku tags: neg-aliases
23:02
Fix the guard conditions for negative aliases. check-in: 4eaa72578e user: aku tags: neg-aliases
23:01
Fix overwrite of outer loop variable. check-in: 374d694490 user: aku tags: neg-aliases
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to parameter.tcl.

562
563
564
565
566
567
568
569
570
571
572
573
574
575
576

577
578
579
580
581
582
583
584
585
586
587

    forward C9_PresenceValidateConflict \
	my Assert {!$myonlypresence} \
	{Presence-only option "@" cannot have custom validation type}

    forward C10_ForbiddenInvertedAlias \
	my Assert {
	    ($myiscmdline && !$myisordered &&
	    ($myvalidate ne "::cmdr::validate::boolean")) ||
	    $myhasinverted
	} \
	{Non-boolean option "@" cannot have negated alias}

    forward C11_ForbiddenInvertedAlias \
	my Assert {

	    ($myiscmdline && !$myisordered && $myonlypresence) ||
	    $myhasinverted
	} \
	{Presence option "@" cannot have negated alias}

    # # ## ### ##### ######## #############
    ## Internal: DSL support. Syntax constraints.

    forward Alias_Option \
	my Assert {$myiscmdline && !$myisordered} \
	{Non-option parameter "@" cannot have alias}







|
|
|
<
|



>
|
|
<
|







562
563
564
565
566
567
568
569
570
571

572
573
574
575
576
577
578

579
580
581
582
583
584
585
586

    forward C9_PresenceValidateConflict \
	my Assert {!$myonlypresence} \
	{Presence-only option "@" cannot have custom validation type}

    forward C10_ForbiddenInvertedAlias \
	my Assert {
	    !$myiscmdline || $myisordered ||
	    ($myvalidate eq "::cmdr::validate::boolean") ||
	    !$myhasinverted

	} {Non-boolean option "@" cannot have negated alias}

    forward C11_ForbiddenInvertedAlias \
	my Assert {
	    !$myiscmdline || $myisordered ||
	    !$myonlypresence ||
	    !$myhasinverted

	} {Presence option "@" cannot have negated alias}

    # # ## ### ##### ######## #############
    ## Internal: DSL support. Syntax constraints.

    forward Alias_Option \
	my Assert {$myiscmdline && !$myisordered} \
	{Non-option parameter "@" cannot have alias}