1 |
#!/bin/sh |
#!/bin/sh |
2 |
# Usage: update-guile-api.alist |
# Usage: update-guile-api.alist [-n] |
3 |
# |
# |
4 |
# You need to be in top-level guile-core build dir. |
# You need to be in top-level guile-core build dir. |
5 |
# You need to build guile first! |
# You need to build guile first! |
6 |
# |
# |
7 |
|
# Flag "-n" (no-commit) means print the guile-api.alist to stdout |
8 |
|
# and skip the cvs edit and cvs commit steps. |
9 |
|
# |
10 |
# Env var: GUILE_MAINTAINER_SCRIPTS |
# Env var: GUILE_MAINTAINER_SCRIPTS |
11 |
|
|
12 |
mscripts=${GUILE_MAINTAINER_SCRIPTS-../scripts} |
mscripts=${GUILE_MAINTAINER_SCRIPTS-../scripts} |
33 |
alistdir=${srcdir}/doc |
alistdir=${srcdir}/doc |
34 |
alist=guile-api.alist |
alist=guile-api.alist |
35 |
|
|
36 |
|
do_the_scan () |
37 |
|
{ |
38 |
|
$scan pre-inst-guile \ |
39 |
|
libguile/.libs/libguile.so.[0-9]*.* \ |
40 |
|
$srcdir/doc/groupings.alist |
41 |
|
} |
42 |
|
|
43 |
|
if [ x"$1" = x-n ] ; then |
44 |
|
do_the_scan |
45 |
|
exit $? |
46 |
|
fi |
47 |
|
|
48 |
set -ex |
set -ex |
49 |
: |
: |
50 |
: checkout |
: checkout |
53 |
: |
: |
54 |
: munge |
: munge |
55 |
: |
: |
56 |
$scan pre-inst-guile \ |
do_the_scan > $alistdir/$alist |
|
libguile/.libs/libguile.so.[0-9]*.* \ |
|
|
$srcdir/doc/groupings.alist \ |
|
|
> $alistdir/$alist |
|
57 |
: |
: |
58 |
: commit |
: commit |
59 |
: |
: |