/[guile]/guile/guile-scripts/update-guile-api.alist
ViewVC logotype

Diff of /guile/guile-scripts/update-guile-api.alist

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by ttn, Wed Apr 24 02:27:17 2002 UTC revision 1.4 by ttn, Wed May 1 06:01:51 2002 UTC
# Line 1  Line 1 
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

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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