view libinterp/find-defun-files.sh @ 18977:714ce8ca71ea

mkdoc.pl: Tweaks to make code easier to understand for non-Perl experts. * mkdoc.pl: Use label when short-circuiting out of loop with next. Use GNU indendation style for if blocks. Explicitly use variable $_ in foreach loop for those unaware of Perl's default variable.
author Rik <rik@octave.org>
date Fri, 18 Jul 2014 09:16:27 -0700
parents 39096b290a2f
children
line wrap: on
line source

#! /bin/sh

set -e
SED=${SED:-sed}
EGREP=${EGREP:-egrep}

# Some stupid egreps don't like empty elements in alternation patterns,
# so we have to repeat ourselves because some stupid egreps don't like
# empty elements in alternation patterns.

DEFUN_PATTERN="^[ \t]*DEF(CONSTFUN|CMD|UN|UN_DLD|UNX_DLD|UN_TEXT)[ \t]*\\("

srcdir="$1"
shift

for arg
do
  if [ -f "$arg" ]; then
    file="$arg"
  else
    file="$srcdir/$arg"
  fi
  if [ "`$EGREP -l "$DEFUN_PATTERN" $file`" ]; then
    echo "$file" | $SED "s,\\$srcdir/,," | $SED 's/\.cc$/.df/; s/\.ll$/.df/; s/\.in.yy$/.df/';
  fi
done