We now parse the simplest negate case

patrickas · May 22, 2010 · 12709a9 · 12709a9
1 parent 1bd48f0
commit 12709a9
Showing 1 changed file with 12 additions and 2 deletions.
diff --git a/process-cmd-args.p6 b/process-cmd-args.p6
@@ -3,7 +3,7 @@ use Test;
 
 sub process-cmd-args(@args, %named) {
 	my (@positional-arguments, %named-arguments);
-	my ($looking_for , $no_more_switches);
+	my ($looking_for , $no_more_switches , $negate);
 	for @args -> $passed_value {
 		if $no_more_switches {
 			@positional-arguments.push: $passed_value;
@@ -13,6 +13,11 @@ sub process-cmd-args(@args, %named) {
 
 		} elsif substr($passed_value,0,2) eq '--' {
 			my $arg = $passed_value.substr(2);
+			if $arg.match(/^\//) { 
+				$arg .= substr(1) ;
+				$negate = $arg;
+			}
+
 			if $arg eq '' {
 				$no_more_switches=True;
 			} elsif %named{$arg} ~~ Bool {
@@ -31,7 +36,7 @@ sub process-cmd-args(@args, %named) {
 				} else {
 					%named-arguments{$name} = $value;
 				}
-			} else {
+			} elsif !$negate {
 				$looking_for=$arg;
 			}
 
@@ -40,6 +45,11 @@ sub process-cmd-args(@args, %named) {
 		}
 	}
 
+	if $negate {
+		%named-arguments{$negate} = False;
+		$negate = '';
+	}
+
 	if $looking_for {
 		%named-arguments{$looking_for} = '';
 	}