view src/mk-oct-links @ 3215:bc3fdfe311a3

[project @ 1998-11-10 14:06:21 by jwe]
author jwe
date Tue, 10 Nov 1998 14:12:07 +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 $?