compilers/ncigen/nci_gen.pl

   1 #! perl
   2 # Copyright (C) 2008, The Perl Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7
   8 use Getopt::Long;
   9 use Pod::Usage;
  10 use File::Temp;
  11 use File::Spec;
  12 use IPC::Run3;
  13
  14 my $man = 0;
  15 my $help = 0;
  16 my $PARROT = "../../parrot";
  17 my ($incpaths,$libname,$nsname);
  18
  19 GetOptions('help|?'   => \$help,
  20             man       => \$man,
  21             libname   => \$libname,
  22             nsname    => \$nsname,
  23             "I=s@"    => \$incpaths) or pod2usage(2);
  24 pod2usage(1) if $help;
  25 pod2usage(-exitstatus => 0, -verbose => 2) if $man;
  26
  27 #sub usage()
  28
  29 sub cc_preprocess {
  30   my ($file) = @_;
  31   my ($volume, $directories, $fileonly) = File::Spec->splitpath( $file );
  32   print "$fileonly\n";
  33
  34   my $ofile = mktemp( $fileonly . "_XXXX");
  35   #execit("gcc -x c -fdirectives-only -E $file > $ofile");
  36   execit("gcc -x c -E $file > $ofile");
  37   return $ofile;
  38 }
  39
  40 sub dump_parse_tree {
  41   my ( $file, $more_args ) = @_;
  42   return execit("make; $PARROT c99.pbc $more_args $file");
  43 }
  44
  45 sub execit {
  46   my ($cmd) = @_;
  47   print "$cmd\n";
  48   my $output = `$cmd`;
  49   return $output;
  50 }
  51
  52 sub main {
  53   my $more_args = "";
  54   $ARGV[0] = 't/spi.c' unless $ARGV[0];
  55   $libname = "libexamplelib"      unless $libname;
  56   $nsname  = "CLIB::examplelib"   unless $nsname;
  57
  58   #$more_args = "--target=parse --libname=fred --nsname=GO::Mojo";
  59   $more_args = "--libname=$libname --nsname=$nsname";
  60   my $preproc_fn = cc_preprocess($ARGV[0]);
  61
  62   my $parse_tree = dump_parse_tree($preproc_fn, $more_args);
  63   unlink($preproc_fn);
  64   print $parse_tree;
  65   print "$preproc_fn\n";
  66 }
  67
  68 main();
  69
  70 __END__
  71
  72 =head1 NAME
  73
  74 sample - Using nci_gen.pl
  75
  76 =head1 SYNOPSIS
  77
  78 nci_gen [options] [file ...]
  79
  80 Options:
  81 -help            brief help message
  82 -man             full documentation
  83
  84 =head1 OPTIONS
  85
  86 =over 8
  87
  88 =item B<-help>
  89
  90 Print a brief help message and exits.
  91
  92 =item B<-man>
  93
  94 Prints the manual page and exits.
  95
  96 =back
  97
  98 =head1 DESCRIPTION
  99
 100 B<nci_gen> will read the given input file c header file and create a pir interface file.
 101
 102 =cut
 103