package xm::code::plain; use xm::o; use xm::code::vars; use xm::code::func; sub DESC{" highlight sourcecode - PLAIN text mode "} # BEGIN { # written by PP $LANGUAGE{'plain'} = { 'filename' => '', 'regex' => '', 'patterns' => [] }; # }1; sub DO { return xm::code::func::DO($_[0],$LANGUAGE{plain}{patterns}); } sub ARGS { return xm::o::args_stdin(@_, DESC); } sub main { return DO(xm::o::args_stdin(@_, DESC)); } 1;