/[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.17 by ttn, Fri Mar 15 14:00:02 2002 UTC revision 1.18 by ttn, Fri Mar 15 14:25:54 2002 UTC
# Line 65  regexp="(^greetings!spooks!hows!life)" Line 65  regexp="(^greetings!spooks!hows!life)"
65  for dep in `echo $deprecated_list` ; do  for dep in `echo $deprecated_list` ; do
66      regexp="(^${dep}[^_A-Z])|${regexp}"      regexp="(^${dep}[^_A-Z])|${regexp}"
67  done  done
 echo $regexp  
68  egrep -n ${regexp} $1 /dev/null > ${temp}  egrep -n ${regexp} $1 /dev/null > ${temp}
69  if [ -s ${temp} ] ; then  if [ -s ${temp} ] ; then
70      if $grep_dep_exit_p ; then hey=ERROR ; else hey=WARNING ; fi      if $grep_dep_exit_p ; then hey=ERROR ; else hey=WARNING ; fi

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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