35 |
|
|
36 |
do_the_scan () |
do_the_scan () |
37 |
{ |
{ |
38 |
|
# we can probably compute sofile from guile |
39 |
$scan pre-inst-guile \ |
$scan pre-inst-guile \ |
40 |
libguile/.libs/libguile.so.[0-9]*.* \ |
libguile/.libs/libguile.so.[0-9]*.* \ |
41 |
$srcdir/doc/groupings.alist |
$srcdir/doc/groupings.alist \ |
42 |
|
"$@" |
43 |
} |
} |
44 |
|
|
45 |
if [ x"$1" = x-n ] ; then |
if [ x"$1" = x-n ] ; then |
46 |
do_the_scan |
shift |
47 |
|
do_the_scan "$@" |
48 |
exit $? |
exit $? |
49 |
fi |
fi |
50 |
|
|
56 |
: |
: |
57 |
: munge |
: munge |
58 |
: |
: |
59 |
do_the_scan > $alistdir/$alist |
do_the_scan "$@" > $alistdir/$alist |
60 |
: |
: |
61 |
: commit |
: commit |
62 |
: |
: |