package xm::pp_maybe;
use strict;
use xm::pp;
use xm::o;

sub DESC {"
  this is a preprocessor that works on some input containing
  xm definitions.

  (More Documentation Should Be Here, But Is Not. Contact
   The Author. It is guidod\@gmx.de, now go and blame him).

  unlike xm::pp this one will only start execution if the file
  starts with the two bytes '<!', otherwise it will simply return
  what it had been fed with.
"}

sub DO 
{
    return xm::pp::DO($_[0]) if $_[0] =~ /^\s*<!/s;
    return $_[0];
}

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

1;