1 |
#!/bin/sh |
#!/bin/sh |
2 |
# Usage: update-guile-api.alist |
# Usage: update-guile-api.alist |
|
# You need to be in top-level guile-core. |
|
|
# You need to build guile first! |
|
3 |
# |
# |
4 |
# TODO: Handle srcdir!=builddir situation. |
# You need to be in top-level guile-core build dir. |
5 |
|
# You need to build guile first! |
6 |
|
|
7 |
|
me=`basename $0` |
8 |
|
|
9 |
if [ ! -f ./pre-inst-guile ] ; then |
if [ ! -f ./pre-inst-guile ] ; then |
10 |
echo $0: ERROR: need to run this from top-level guile-core |
echo ${me}: ERROR: need to run in top-level guile-core build dir |
11 |
exit 1 |
exit 1 |
12 |
fi |
fi |
13 |
|
|
14 |
scan=../scripts/scan-api |
set_top_srcdir=`grep '^top_srcdir=' pre-inst-guile` |
15 |
|
|
16 |
|
eval $set_top_srcdir |
17 |
|
srcdir=$top_srcdir |
18 |
|
|
19 |
|
scan=${srcdir}/../scripts/scan-api |
20 |
|
|
21 |
if [ ! -x $scan ] ; then |
if [ ! -x $scan ] ; then |
22 |
echo $0: ERROR: could not find $scan |
echo ${me}: ERROR: could not find $scan |
23 |
exit 1 |
exit 1 |
24 |
fi |
fi |
25 |
|
|
26 |
alist=doc/guile-api.alist |
alistdir=${srcdir}/doc |
27 |
|
alist=guile-api.alist |
28 |
|
|
29 |
set -ex |
set -ex |
30 |
cvs edit $alist |
( cd $alistdir ; cvs edit $alist ) |
31 |
$scan pre-inst-guile libguile/.libs/libguile.so.[0-9]*.* > $alist |
$scan pre-inst-guile libguile/.libs/libguile.so.[0-9]*.* > $alistdir/$alist |
32 |
cvs ci -m 'Update.' $alist |
( cd $alistdir ; cvs ci -m 'Update.' $alist ) |
33 |
|
|
34 |
# update-guile-api.alist ends here |
# update-guile-api.alist ends here |