#! /usr/perl5/bin/perl

#

# Copyright 2007 Sun Microsystems, Inc.  All rights reserved.

# Use is subject to license terms.

#

# Permission is hereby granted, free of charge, to any person obtaining a

# copy of this software and associated documentation files (the

# "Software"), to deal in the Software without restriction, including

# without limitation the rights to use, copy, modify, merge, publish,

# distribute, and/or sell copies of the Software, and to permit persons

# to whom the Software is furnished to do so, provided that the above

# copyright notice(s) and this permission notice appear in all copies of

# the Software and that both the above copyright notice(s) and this

# permission notice appear in supporting documentation.

# 

# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS

# OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT

# OF THIRD PARTY RIGHTS. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR

# HOLDERS INCLUDED IN THIS NOTICE BE LIABLE FOR ANY CLAIM, OR ANY SPECIAL

# INDIRECT OR CONSEQUENTIAL DAMAGES, OR ANY DAMAGES WHATSOEVER RESULTING

# FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,

# NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION

# WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

# 

# Except as contained in this notice, the name of a copyright holder

# shall not be used in advertising or otherwise to promote the sale, use

# or other dealings in this Software without prior written authorization

# of the copyright holder.

#

# ident	"@(#)merge-fonts.scale.pl	1.1	07/09/14 SMI"

#

# Merge fonts.scale files

use strict;

use warnings;

use integer;

use Getopt::Long;

my @infiles;

my $outfile;

my $options_ok = GetOptions(

	   "in=s" => \@infiles, 	# --in=<filename>, may be repeated

	   "out=s" => \$outfile);	# --out=<filename>, only once	

die "Invalid options" if !$options_ok;

die "No input specified" if (scalar(@infiles) < 1);

die "No output specified" if !defined($outfile);

my %fonts = ();

for my $f (@infiles) {

  open my $IN, '<', $f or die "Couldn't open $f for reading: $!\n";

  my $firstline = <$IN>;  # count of lines, ignore

  while (my $l = <$IN>) {

    chomp $l;

    $l =~ m/(\S*)\s+(.*)/;

    $fonts{$2} = $1;

  }

  close $IN;

}

open my $OUT, '>', $outfile or die "Couldn't open $outfile for writing: $!\n";

print $OUT scalar(keys %fonts), "\n";

for my $ft (sort {$fonts{$a} cmp $fonts{$b}} keys %fonts) {

  print $OUT $fonts{$ft}, ' ', $ft, "\n";

}

close $OUT or die "Couldn't finish writing $outfile: $!\n";