From e799d5abff4c6740cefe640b01858cd280150336 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 13 Sep 2020 18:14:34 +0100
Subject: [PATCH] media-scraper: makefile fragment writer

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 media-scraper | 6 ++++++
 1 file changed, 6 insertions(+)

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 $!;
 }
-- 
2.30.2