$meta{abbr} = lc join '', $meta{name} =~ s/ MS$//r =~ m{
(?!Sans) (?<! [0-9]) ([[:upper:]0-9])
}gx;
+ $meta{os} = $_ for "@ttfext[0 .. $#ttfext-1]" || (
+ $meta{copyright} =~ /\bGoogle\b/ ? "Android" :
+ $ttfname eq 'arialuni' ? 'win2k' :
+ ()
+ );
+ $meta{oscorp} = (
+ s/^mac10/OS X 10./ ? 'Apple' :
+ s/^win(.+)/'Windows '.($1 eq '2k' ? 2000 : $1)/e ? 'Microsoft' :
+ m/^Android/ ? 'Google' :
+ undef
+ ) for $meta{os} || ();
say "# automatically generated by $0";
say '+', pp(\%meta), ',';