nethack-gwaa-kiwi/nethack
1
0
Fork 0
Code Pull Requests Activity

nhsub: handle git add/commit options that take an argument

Browse Source
This commit is contained in:
keni
2015-04-13 19:32:51 -04:00
parent 71d7eff0a7
commit 4e45cf3e7f
1 changed files with 17 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
DEVEL/hooksdir/nhsub
View File

@@ -267,6 +267,8 @@ my $count = s/\$$PREFIX-(([A-Za-z][A-Za-z0-9_]*)(: ([^\x24]+))?)\$/&handlevar($2
rename $ofile, $file or die "Can't rename $ofile to $file"; rename $ofile, $file or die "Can't rename $ofile to $file";
} }
# XXX docs for --fixup and --squash are wrong in synopsis. --file missing
# --message --template -t
sub cmdparse { sub cmdparse {
my(@in) = @_; my(@in) = @_;
@@ -315,6 +317,21 @@ sub cmdparse {
if($opt{cmd} eq 'add' && $single eq 'n'){ if($opt{cmd} eq 'add' && $single eq 'n'){
exit 0; exit 0;
} }
#need to deal with options that eat a following element (-m, -F etc etc)
#add: nothing?
#commit: -c -C -F -m
# -u<mode> mode is optional
# -S<keyid> keyid is optional
if($opt{cmd} eq 'commit'){
if($single =~ m/[uS]/){
last;
}
if($single =~ m/[cCFm]/){
#XXX this will be a mess if the argument is wrong, but can we tell? No.
shift @in;
last;
}
}
} }
} }
shift @in; shift @in;