| Current File : //usr/bin/X11/transform-fdt |
#!/usr/bin/perl
=head1 NAME
transform-fdt - transform .fdt files to new file format
=head1 SYNOPSIS
transform-fdt *.fdt
=head1 DESCRIPTION
We are going to change the file format slightly for .fdt files. This
script will take files of the old format and rewrite them using the new
format. Old files will be renamed to have a ".BAK" extension.
Running this script multiple times against the same file should cause
an error.
NOTE: The file format has not changed yet, so you should not run this.
It is for testing purposes for core developers only at this point.
=cut
use strict;
use warnings;
use File::Slurp;
use Plucene::Store::InputStream;
while (my $file = shift) {
eval {
my $back = $file . ".BAK";
local $SIG{__WARN__} = sub { die "$file already converted" };
my $in = Plucene::Store::InputStream->new($file);
my $out = "";
while (!$in->eof) {
my @docs = map [ $in->read_vint, $in->read_byte, $in->read_string ],
1 .. $in->read_vint;
my $template = "w" . ("wCw/a*" x @docs);
$out .= pack $template, scalar @docs, map @$_, @docs;
}
rename $file => $back;
write_file $file, $out;
};
warn $@ if $@;
}