solver: initial Perl implementation

[public-inbox.git] / lib / PublicInbox / Git.pm

diff --git a/lib/PublicInbox/Git.pm b/lib/PublicInbox/Git.pm
index 16117277079e86b6aecfc4291a3cf90e25928c0a..9676086f648d4482d548640d7bc17c01144caff3 100644 (file)
--- a/lib/PublicInbox/Git.pm
+++ b/lib/PublicInbox/Git.pm
@@ -12,11 +12,35 @@ use warnings;
 use POSIX qw(dup2);
 require IO::Handle;
 use PublicInbox::Spawn qw(spawn popen_rd);
+use base qw(Exporter);
+our @EXPORT_OK = qw(git_unquote);
+
+my %GIT_ESC = (
+       a => "\a",
+       b => "\b",
+       f => "\f",
+       n => "\n",
+       r => "\r",
+       t => "\t",
+       v => "\013",
+       '"' => '"',
+       '\\' => '\\',
+);
+
+# unquote pathnames used by git, see quote.c::unquote_c_style.c in git.git
+sub git_unquote ($) {
+       return $_[0] unless ($_[0] =~ /\A"(.*)"\z/);
+       $_[0] = $1;
+       $_[0] =~ s/\\([\\"abfnrtv])/$GIT_ESC{$1}/g;
+       $_[0] =~ s/\\([0-7]{1,3})/chr(oct($1))/ge;
+       $_[0];
+}
 
 sub new {
        my ($class, $git_dir) = @_;
        my @st;
        $st[7] = $st[10] = 0;
+       # may contain {-wt} field (working-tree (File::Temp::Dir))
        bless { git_dir => $git_dir, st => \@st }, $class
 }
 
@@ -178,6 +202,21 @@ sub packed_bytes {
 
 sub DESTROY { cleanup(@_) }
 
+# show the blob URL for cgit/gitweb/whatever
+sub src_blob_url {
+       my ($self, $oid) = @_;
+       # blob_fmt = "https://example.com/foo.git/blob/%s"
+       if (my $bfu = $self->{blob_fmt_url}) {
+               return sprintf($bfu, $oid);
+       }
+
+       # don't show full FS path, basename should be OK:
+       if ($self->{git_dir} =~ m!/([^/]+)\z!) {
+               return "/path/to/$1";
+       }
+       '???';
+}
+
 1;
 __END__
 =pod