scripts/tmpl2sgml

   1 #!/usr/bin/perl
   2 #warn "No digit found.\n";
   3
   4 use Env qw(PATH TMPL2SGML KERNELDOC);
   5
   6 warn "Processing $ARGV[0]\n" ;
   7 #warn "PATH=$PATH\n" ;
   8 warn "KERNELDOC=$KERNELDOC\n" ;
   9
  10 open (TMPLFILE, "$ARGV[0]");
  11
  12 while (<TMPLFILE>) {
  13         $line=$_;
  14         if($line=~m/^![EIF]/){
  15                 ($srctype,$srcfile)= $line =~ /^!([EIF])(.*)$/ ;
  16                 warn "Found $srctype : $srcfile\n" ;
  17                 system "$KERNELDOC -docbook $srcfile";
  18         }else{
  19                 print $line
  20         }
  21 }
  22
  23 close TMPLFILE;