package xm::allpre;
use strict;
use xm::o;

sub DESC
{"
  will enclose the whole file in a <pre>-section.
  --pre='markup' to set the pre-markup to be used instead of 'pre'
"}

sub DO
{
    my $in = shift;
    my $a = "pre";
    $a = $o{pre} if exists $o{pre};
    $a =~ s{\.}{><}gs;
    my $c = $a; $c =~ s{<}{</};
    return "<".$a.">".$in."</".$c.">\n";
} 

sub ARGS {    return xm::o::args_stdin(@_,DESC); }
sub main { return(DO(xm::o::args_stdin(@_,DESC))); }

1;