[Tinyos-beta-commits] CVS: tinyos-1.x/beta/perlnesc/bin perlncpp, 1.3, 1.4

[Cory Sharp]

Update of /cvsroot/tinyos/tinyos-1.x/beta/perlnesc/bin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31133

Modified Files:
	perlncpp 
Log Message:
Small tweak to let me run Perlnesc as more of a filter on a single file
to more easily allow building the MathOpsM module for TOS2.

Index: perlncpp
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/beta/perlnesc/bin/perlncpp,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** perlncpp	23 Jul 2004 00:03:52 -0000	1.3
--- perlncpp	11 Feb 2005 01:50:03 -0000	1.4
***************
*** 28,31 ****
--- 28,32 ----
    check_includes => "no",
    verbose => 0,
+   filter => 0,
  );
  
***************
*** 38,42 ****
  use SlurpFile;
  
! push( @ARGV, "-I$Opts{PerlNescDir}/include" );
  @ARGV = parse_opts( FindInclude::parse_include_opts( @ARGV ) );
  $Opts{verbose} = 1 if !defined $Opts{verbose};
--- 39,43 ----
  use SlurpFile;
  
! push( @ARGV, "-I$Opts{PerlNescDir}/include", "-I." );
  @ARGV = parse_opts( FindInclude::parse_include_opts( @ARGV ) );
  $Opts{verbose} = 1 if !defined $Opts{verbose};
***************
*** 67,72 ****
  }
  
! $pnc->save_modified_files();
! $pnc->process_accounting();
  
  ### ---
--- 68,77 ----
  }
  
! if( !$Opts{filter} ) {
!   $pnc->save_modified_files();
!   $pnc->process_accounting();
! } else {
!   print $pnc->{files}->get_file($ARGV[0])->{text};
! }
  
  ### ---