Gitweb links:

...log 
http://git.netsurf-browser.org/netsurf.git/shortlog/a4bda322a9a8e2d1fe7909771cf8fbd47904ced2
...commit 
http://git.netsurf-browser.org/netsurf.git/commit/a4bda322a9a8e2d1fe7909771cf8fbd47904ced2
...tree 
http://git.netsurf-browser.org/netsurf.git/tree/a4bda322a9a8e2d1fe7909771cf8fbd47904ced2

The branch, master has been updated
       via  a4bda322a9a8e2d1fe7909771cf8fbd47904ced2 (commit)
      from  72b20fbd4549d406becd95c102c462b751032de1 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commitdiff 
http://git.netsurf-browser.org/netsurf.git/commit/?id=a4bda322a9a8e2d1fe7909771cf8fbd47904ced2
commit a4bda322a9a8e2d1fe7909771cf8fbd47904ced2
Author: Daniel Silverstone <[email protected]>
Commit: Daniel Silverstone <[email protected]>

    linktrace: It'd help if I'd added the tool
    
    Signed-off-by: Daniel Silverstone <[email protected]>

diff --git a/tools/linktrace-to-depfile.pl b/tools/linktrace-to-depfile.pl
new file mode 100644
index 0000000..8607baa
--- /dev/null
+++ b/tools/linktrace-to-depfile.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Cwd qw(abs_path);
+
+my %deps;
+
+while (my $line = <>) {
+   chomp $line;
+   if ($line =~ /\(([^)]+)/) {
+      $deps{abs_path($1)} = 1;
+   }
+}
+
+my @deps = keys %deps;
+
+print join("\t\\\n\t", @deps), "\n";
+


-----------------------------------------------------------------------

Summary of changes:
 tools/linktrace-to-depfile.pl |   18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 tools/linktrace-to-depfile.pl

diff --git a/tools/linktrace-to-depfile.pl b/tools/linktrace-to-depfile.pl
new file mode 100644
index 0000000..8607baa
--- /dev/null
+++ b/tools/linktrace-to-depfile.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Cwd qw(abs_path);
+
+my %deps;
+
+while (my $line = <>) {
+   chomp $line;
+   if ($line =~ /\(([^)]+)/) {
+      $deps{abs_path($1)} = 1;
+   }
+}
+
+my @deps = keys %deps;
+
+print join("\t\\\n\t", @deps), "\n";
+


-- 
NetSurf Browser
_______________________________________________
netsurf-commits mailing list -- [email protected]
To unsubscribe send an email to [email protected]

Reply via email to