From f1cdc457fd4fc086df0df7527333e3306d2e4758 Mon Sep 17 00:00:00 2001
From: Ole Tange <ole@tange.dk>
Date: Wed, 25 Jan 2023 23:48:25 +0100
Subject: [PATCH] G: Implemented --X = -X for all following args.

---
 G/G | 27 +++++++++++++--------------
 1 file changed, 13 insertions(+), 14 deletions(-)

diff --git a/G/G b/G/G
index 9d0562d..f47e984 100755
--- a/G/G
+++ b/G/G
@@ -34,9 +34,11 @@ necessarily on the same line.
 If a parent dir contains a B<.git> dir B<git grep> is used.
 
 
-=item B<--i>
+=item B<-->I<X>
 
-Ignore case for all following options.
+Apply single letter option X to all following options.
+
+E.g. B<--i> will prepend B<-i> to all following options.
 
 
 =item I<other options>
@@ -60,7 +62,7 @@ Grep for lines with Foo, bar but not baz. Ignore case for bar and baz:
 
 =head1 AUTHOR
 
-Copyright (C) 2017-2018 Ole Tange,
+Copyright (C) 2017-2023 Ole Tange,
 http://ole.tange.dk and Free Software Foundation, Inc.
 
 
@@ -95,7 +97,7 @@ B<grep>
 =cut
 
 my $i = 0;
-my $add_i = "";
+my @add_X;
 
 for(@ARGV) {
     if($_ eq "-g") {
@@ -104,21 +106,18 @@ for(@ARGV) {
 	# -g not an option for grep
 	next;
     }
-    if($_ eq "--i") {
-	# --i = add ignore case to the rest
-	$opt::i ||= 1;
-	$add_i = "-i";
-	# --i not an option for grep
+    if($_ =~ /^--(.)$/) {
+	# --X = add -X to the rest
+	$opt::X ||= 1;
+	push @add_X, "-$1";
+	# --X not an option for grep
 	next;
     }
-    if($add_i) { push @{$cmd[$i]}, $add_i; $add_i = ""; }
     push @{$cmd[$i]}, $_;
     if(/^[^-]/) {
+	# This is not an option
+	if(@add_X) { unshift @{$cmd[$i]}, @add_X; }
 	$i++;
-	if($opt::i) {
-	    # If --i: add -i as option
-	    $add_i = "-i";
-	}
     }
 }