/[guile]/guile/guile-core/libguile/guile-snarf.in
ViewVC logotype

Diff of /guile/guile-core/libguile/guile-snarf.in

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20 by mvo, Tue Apr 16 20:12:10 2002 UTC revision 1.21 by mvo, Wed Apr 17 17:44:28 2002 UTC
# Line 24  Line 24 
24  #  #
25  # Process INFILE using the C pre-processor and some other programs.  # Process INFILE using the C pre-processor and some other programs.
26  # Write output to a file named OUTFILE or to the standard output when no  # Write output to a file named OUTFILE or to the standard output when no
27  # OUTFILE has been specified or when OUTFILE is "-".  When writing  # OUTFILE has been specified or when OUTFILE is "-".
 # to a file, ignore lines from the input matching the following grep(1)  
 # regular expression:  
 #  
 #       ^#include ".*OUTFILE"  
28  #  #
29  # If there are errors during processing, delete OUTFILE and exit with  # If there are errors during processing, delete OUTFILE and exit with
30  # non-zero status.  # non-zero status.
# Line 110  if [ x"$CPP" = x ] ; then cpp="@CPP@" ; Line 106  if [ x"$CPP" = x ] ; then cpp="@CPP@" ;
106  trap "rm -f $temp" 0 1 2 15  trap "rm -f $temp" 0 1 2 15
107    
108  if [ ! "$outfile" = "-" ]; then  if [ ! "$outfile" = "-" ]; then
109      self_blind_regexp='^#include ".*'`basename $outfile`'"'      modern_snarf "$@" $infile > $outfile
     clean_infile=$infile.clean.c        # temp file in same dir as infile  
                                         # so that #include "foo" works  
                                         # (e.g., see libguile/eval.c).  
                                         # use .c to satisfy cpp heuristics.  
   
     # clean input file  
     trap "rm -f $cleanfile" 0 1 2 15  
     grep -v "$self_blind_regexp" $infile > $clean_infile  
     modern_snarf "$@" $clean_infile > $outfile  
110  else  else
111      modern_snarf "$@" $infile      modern_snarf "$@" $infile
112  fi  fi

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26