#!/bin/perl
use POSIX;
use FileHandle;
use integer;
use AnyDBM_File;

use DB_File ;
use strict 'untie' ;
autoflush STDOUT 1;

`rm bitmaps.db`;
tie %bitmaps, 'DB_File', "bitmaps.db", O_RDWR|O_CREAT, 0600, $DB_BTREE;
opendir BITMAPDIR, "../font/bitm/";
@Files = grep{ /Tbmp.*bin/ } readdir(BITMAPDIR); 
closedir BITMAPDIR;
print "Reading bitmaps ";
foreach $i (@Files) {
  print ".";
  open TMPFILE, "../font/bitm/$i";
  ($jis) = ($i =~ /Tbmp(.*)\.bin/ );
  read TMPFILE, $bitmap, 32; 
  $bitmapdata = pack ("a32", $bitmap);
  $bitmaps{$jis} = $bitmapdata; 
  close TMPFILE;
}
print "\nUntieing file\n";
untie %bitmaps;

