1#!/usr/bin/env perl
2# $Id: ttfsum,v 1.4 2003/08/05 16:26:37 s42335 Exp $
3#
4# usage: ttfsum table1 table2 ...
5#
6# display the total checksum of given files.
7#
8#	2002/2/3, by 1@2ch
9#	* public domain *
10#
11
12$p=$0; $p=~s:[^/]+$::; push(@INC,$p);
13require 'lib_util.pl';
14require 'lib_ttfdir.pl';
15
16if (0 == @ARGV) {
17    print "usage: $0 tablefile ...\n";
18    exit 1;
19}
20
21$s=0;
22foreach $ttf (@ARGV) {
23    $s = addint($s, ttf_calc_sum($ttf));
24}
25printf "0x%lx\n", $s;
26