package xm::csource;
use strict;
use xm::o;

sub DESC
{"
 this is a combi script to read plain C sources and attach all sorts
 of xm markers that can be used later for xml processing.
"}

sub DO
{
    my $in = shift;
    $in = &xm::cread  $in;
    $in = &xm::cdocs  $in;
    $in = &xm::blocks $in;
    $in = &xm::cdefs  $in;
}

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

1;