—

              
#!/usr/bin/env perl
# temporary script for running TrEd on treex files using the new extension
# can't use runtred, as it runs setup_platform and thus destroys PERLLIBS
use strict;
use warnings;
use Treex::Core::Log;
use Treex::Core::Config;
my $tred_dir = Treex::Core::Config->tred_dir();
log_fatal('TrEd not installed or tred_dir not set') if !defined $tred_dir;
my $tred_extension_dir = Treex::Core::Config->tred_extension_dir();
log_fatal('TrEd extension dir not set') if !defined $tred_extension_dir;
my $command =  $tred_dir
    . '/tred -O PreInstalledExtensionsDir='
    . $tred_extension_dir
    . ' -O MaxUndo=0 '
    . ' -B Treex::Core::TredView::BackendStorable ' # extra backends
    . ' -J* '
    . ' -j treex '
    . (join ' ',@ARGV);
print "Running TrEd customized for Treex:\n$command\n";
system $command;
1;
__END__
HideShow 27 lines of Pod
=encoding utf-8
=head1 NAME
ttred - running TrEd customized for browsing treex files
=head1 VERSION
version 0.08083
=head1 DESCRIPTION
This script executes the tree editor TrEd (by Petr Pajas)
customized for the PML data format generated by Treex::Core modules.
Visualization defined is Treex::Core::TredView is used.
=head1 AUTHOR
Zdeněk Žabokrtský <zabokrtsky@ufal.mff.cuni.cz>
=head1 COPYRIGHT AND LICENSE
Copyright © 2011 by Institute of Formal and Applied Linguistics, Charles University in Prague
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.