Line
Link Here
|
0 |
-- a/libguile/guile-snarf.in |
0 |
++ b/libguile/guile-snarf.in |
Lines 50-56
modern_snarf () # writes stdout
Link Here
|
50 |
## Apparently, AIX's preprocessor is unhappy if you try to #include an |
50 |
## Apparently, AIX's preprocessor is unhappy if you try to #include an |
51 |
## empty file. |
51 |
## empty file. |
52 |
echo "/* cpp arguments: $@ */" ; |
52 |
echo "/* cpp arguments: $@ */" ; |
53 |
${cpp} -DSCM_MAGIC_SNARF_INITS -DSCM_MAGIC_SNARFER "$@" > ${temp} && cpp_ok_p=true |
53 |
${cpp} -P -DSCM_MAGIC_SNARF_INITS -DSCM_MAGIC_SNARFER "$@" > ${temp} && cpp_ok_p=true |
54 |
grep "^ *\^ *\^" ${temp} | sed -e "s/^ *\^ *\^//" -e "s/\^\ *:\ *\^.*/;/" |
54 |
grep "^ *\^ *\^" ${temp} | sed -e "s/^ *\^ *\^//" -e "s/\^\ *:\ *\^.*/;/" |
55 |
} |
55 |
} |
56 |
|
56 |
|