]> Sergey Matveev's repositories - public-inbox.git/commitdiff
git: add git_quote
authorEric Wong <e@80x24.org>
Fri, 18 Jan 2019 10:21:40 +0000 (10:21 +0000)
committerEric Wong <e@80x24.org>
Sat, 19 Jan 2019 03:34:54 +0000 (03:34 +0000)
It'll be helpful for displaying progress in SolverGit
output.

lib/PublicInbox/Git.pm
t/git.t

index a270180caebf11b1c7d07843f4e5c1a0c73c2745..d0ac6b6cb0b6f3aca4605c15a4626d4059732132 100644 (file)
@@ -13,7 +13,7 @@ use POSIX qw(dup2);
 require IO::Handle;
 use PublicInbox::Spawn qw(spawn popen_rd);
 use base qw(Exporter);
-our @EXPORT_OK = qw(git_unquote);
+our @EXPORT_OK = qw(git_unquote git_quote);
 
 my %GIT_ESC = (
        a => "\a",
@@ -26,6 +26,8 @@ my %GIT_ESC = (
        '"' => '"',
        '\\' => '\\',
 );
+my %ESC_GIT = map { $GIT_ESC{$_} => $_ } keys %GIT_ESC;
+
 
 # unquote pathnames used by git, see quote.c::unquote_c_style.c in git.git
 sub git_unquote ($) {
@@ -36,6 +38,14 @@ sub git_unquote ($) {
        $_[0];
 }
 
+sub git_quote ($) {
+       if ($_[0] =~ s/([\\"\a\b\f\n\r\t\013]|[^[:print:]])/
+                     '\\'.($ESC_GIT{$1}||sprintf("%0o",ord($1)))/egs) {
+               return qq{"$_[0]"};
+       }
+       $_[0];
+}
+
 sub new {
        my ($class, $git_dir) = @_;
        my @st;
diff --git a/t/git.t b/t/git.t
index 2d58a106a9fc671c16a9efb9a1de6c54f06d4ff5..9c80fbb422172cd9e9f0136fe7af7bd52d6e0db1 100644 (file)
--- a/t/git.t
+++ b/t/git.t
@@ -144,11 +144,16 @@ if ('alternates reloaded') {
        is($$found, $config, 'alternates reloaded');
 }
 
-use_ok 'PublicInbox::Git', qw(git_unquote);
+use_ok 'PublicInbox::Git', qw(git_unquote git_quote);
 my $s;
 is("foo\nbar", git_unquote($s = '"foo\\nbar"'), 'unquoted newline');
 is("Eléanor", git_unquote($s = '"El\\303\\251anor"'), 'unquoted octal');
 is(git_unquote($s = '"I\"m"'), 'I"m', 'unquoted dq');
 is(git_unquote($s = '"I\\m"'), 'I\\m', 'unquoted backslash');
 
+is(git_quote($s = "Eléanor"), '"El\\303\\251anor"', 'quoted octal');
+is(git_quote($s = "hello\"world"), '"hello\"world"', 'quoted dq');
+is(git_quote($s = "hello\\world"), '"hello\\\\world"', 'quoted backslash');
+is(git_quote($s = "hello\nworld"), '"hello\\nworld"', 'quoted LF');
+
 done_testing();