otter 0.7.1

Otter game system; common infrastructure Rust crate.
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

#!/usr/bin/perl -w

use strict;

die unless @ARGV == 4;
our ($out, $in, $lic, $usvg) = @ARGV;

open STDOUT, '>', "$out.tmp" or die $!;
open L, '<', $lic or die $!;
open STDIN, "<", $in or die $!;

$!=0; my $git = `git rev-parse HEAD`;       die "$? $!" if $! || $?;
$!=0; my $plus = `git status --porcelain`;  die "$? $!" if $! || $?;
chomp $git; chomp $plus;
$git .= "+" if length $plus;

sub add_lic () {
  while (<L>) {
    next unless m{^\s*SPDX-License-Identifier:\s+(\S.*?)\s*$};
    print "<!-- otter.git#$git $out $1, see $lic -->\n" or die $!;
    return;
  }
  die "no spdx in $lic ?";
}

add_lic();

flush STDOUT or die $!;
$!=0; $?=0; system qw(sh -ec), "exec $usvg - -c" and die "exec usvg: $? $!";
rename "$out.tmp", $out or die $!;