Mercurial > hg > octave-lojdl
view src/mk-oct-links @ 3930:61d4427c016e
[project @ 2002-05-07 00:47:31 by jwe]
author | jwe |
---|---|
date | Tue, 07 May 2002 00:47:31 +0000 |
parents | 044d25a60ea1 |
children | b908aaa4080a |
line wrap: on
line source
#! /bin/sh -e # Create additional links to .oct files that define more than one # function. # If the first arg is -p, only print the links we need to make. # The first non-option arg is taken as the directory where the .oct # files are installed. The remaining arguments should be the list of # source files that were used to create the .oct files. print_only=false if [ $1 = "-p" ]; then print_only=true shift fi links_dir=$1 shift for f in "$@"; do base=`basename $f | sed 's/\.cc$//'` fcns=`grep '^ *DEFUN_DLD' $f |\ sed -e 's/DEFUN_DLD *( *//' -e 's/ *,.*$//' |\ sort -u` if [ -n "$fcns" ]; then for n in $fcns; do if [ "$n" = "$base" ]; then true else if $print_only; then echo $base.oct $n.oct else echo "creating link $n.oct -> $base.oct" ( cd $links_dir; rm -f $n.oct; ln $base.oct $n.oct ) fi fi done fi done exit $?