From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 13 Sep 2020 17:14:34 +0000 (+0100)
Subject: media-scraper: makefile fragment writer
X-Git-Tag: otter-0.2.0~948
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=e799d5abff4c6740cefe640b01858cd280150336;p=otter.git

media-scraper: makefile fragment writer

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/media-scraper b/media-scraper
index 8ba5aeb3..7198a1a4 100755
--- a/media-scraper
+++ b/media-scraper
@@ -97,6 +97,8 @@ foreach my $sect (values %$libinfo) {
   next unless $scraper;
   my $method = $scraper->{method};
   my $fn = ${*::}{"method_$method"};
+  my $makepath = "$basename/.make";
+  my $makefile = new IO::File "$makepath.tmp", '>' or die $!;
   my $method_fn = $fn->($scraper, $method);
   foreach (split(/\n/, $sect->{files})) {
     s/^\s+//;
@@ -106,6 +108,9 @@ foreach my $sect (values %$libinfo) {
     my $base = "$basename/$filespec";
     my $licpath = "$base.licence";
     print DEBUG "file $base ";
+    print $makefile <<END or die $!;
+LIBRARY_FILES += $base
+END
     if (stat $licpath) {
       print DEBUG "already.\n";
       next;
@@ -119,4 +124,5 @@ foreach my $sect (values %$libinfo) {
     rename "$licpath.tmp", "$licpath" or die $!;
     print DEBUG "done.\n";
   }
+  close $makefile or die $!;
 }