usvg-processor

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 die unless @ARGV == 4;
   6 our ($out, $in, $lic, $usvg) = @ARGV;
   7
   8 open STDOUT, '>', "$out.tmp" or die $!;
   9 open L, '<', $lic or die $!;
  10 open STDIN, "<", $in or die $!;
  11
  12 sub add_lic () {
  13   while (<L>) {
  14     next unless m{^\s*SPDX-License-Identifier:\s+(\S.*?)\s*$};
  15     print "<!-- otter $out $1, see $lic -->\n" or die $!;
  16     return;
  17   }
  18   die "no spdx in $lic ?";
  19 }
  20
  21 add_lic();
  22
  23 flush STDOUT or die $!;
  24 $!=0; $?=0; system qw(sh -ec), "exec $usvg -c -" and die "exec usvg: $? $!";
  25 rename "$out.tmp", $out or die $!;