tools/find-doxy-source.sh

   1 #!/bin/sh -e
   2
   3 base="`dirname "$0"`"
   4
   5 text="`echo "$1" | perl -pe 's/[^a-zA-Z0-9]+/ /g;s/^ //;s/ $//'`"
   6 ${base}/find-sources.sh -c \
   7     | xargs perl -0777ne '
   8           while(m{/\*\*<?(.*?)\*/|///<?(.*?)$}smg) {
   9               $t=$1||$2;
  10               $t=~s/\\\S+//g;
  11               $t=~s/[^a-zA-Z0-9]+/ /g;
  12               print $ARGV,"\n" if $t=~m{\Q'"$text"'\E};
  13           }'\
  14     | sort -u