[cfd] / findlinks.in

#! /bin/sh
### -*-sh-*-
###
### Find files which could be links to the repository
###
### (c) 1997 Mark Wooding
###

###----- Licensing notice ---------------------------------------------------
###
### This file is part of the Common Files Distribution (`common').
###
### `Common' is free software; you can redistribute it and/or modify
### it under the terms of the GNU General Public License as published by
### the Free Software Foundation; either version 2 of the License, or
### (at your option) any later version.
###
### `Common' is distributed in the hope that it will be useful,
### but WITHOUT ANY WARRANTY; without even the implied warranty of
### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
### GNU General Public License for more details.
###
### You should have received a copy of the GNU General Public License
### along with `common'; if not, write to the Free Software Foundation,
### Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

set -e

pkgdatadir="@pkgdatadir@"
VERSION="@VERSION@"

###--------------------------------------------------------------------------
### Parse command line arguments.

while [ $# -gt 0 ]; do
  case "$1" in
    -h | --h | --he | --hel | --help)
      cat <<EOF
Usage: findlinks

Scans the current directory and any subdirectories, writing the names of
files which could be linked into the shared files repository to standard
output.  This list could be used as input to the \`mklinks' command.
EOF
      exit 0
      ;;
    -v | --v | --ve | --ver | --vers | --versi | --versio | --version)
      echo "findlinks: Common Files Distribution version $VERSION"
      exit 0
      ;;
    *)
      echo "findlinks: unknown option \`$1'" >&2
      exit 1
      ;;
  esac
  shift
done

###--------------------------------------------------------------------------
### Read the names of all the files I support.
###
###
### Yes, this is ugly and hacky: well spotted.  Shells have a nasty habit of
### spontaneously forking when redirection gets too hard for them to think
### about, so instead of something nice along the lines of
###
###   find ... | while read name; do <build `files'> done
###
### I have to stick the whole lot in backticks and echo the result when it's
### all done.  Yuk.
###
### Oh, I almost forgot: that colon on the end there, that's to make sure
### that all the entries are surrounded by colons on both sides, which makes
### the pattern match in the `case' below work properly.

files=$(
  files=""
  find "$pkgdatadir" -type f -print | {
    while read name; do
      files="$files:$(echo "$name" | sed 's;^.*/;;')"
    done
    echo $files
  }
):

###--------------------------------------------------------------------------
### Now examine the current directory.
###
### Remember to include things which are already linked, so that users can
### say `findlinks >.links' without any problems.

find . \( -type f -o -type l \) -print | while read name; do
  base="$(echo "$name" | sed 's;^.*/;;')"
  case "$files" in
    *:$base:*)
      echo $name
      ;;
    *)
  esac
done | sed 's,^\./,,' | sort

###----- That's all, folks --------------------------------------------------
Commit	Line	Data
b91e2391	1	#! /bin/sh
996a7fd0 MW	2	### --sh--
	3	###
	4	### Find files which could be links to the repository
	5	###
	6	### (c) 1997 Mark Wooding
	7	###
b91e2391	8
996a7fd0 MW	9	###----- Licensing notice ---------------------------------------------------
	10	###
	11	### This file is part of the Common Files Distribution (`common').
	12	###
	13	### `Common' is free software; you can redistribute it and/or modify
	14	### it under the terms of the GNU General Public License as published by
	15	### the Free Software Foundation; either version 2 of the License, or
	16	### (at your option) any later version.
	17	###
	18	### `Common' is distributed in the hope that it will be useful,
	19	### but WITHOUT ANY WARRANTY; without even the implied warranty of
	20	### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	21	### GNU General Public License for more details.
	22	###
	23	### You should have received a copy of the GNU General Public License
	24	### along with `common'; if not, write to the Free Software Foundation,
	25	### Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
b91e2391	26
996a7fd0	27	set -e
b91e2391	28
996a7fd0 MW	29	pkgdatadir="@pkgdatadir@"
996a7fd0 MW	30	VERSION="@VERSION@"
b91e2391	31
996a7fd0 MW	32	###--------------------------------------------------------------------------
996a7fd0 MW	33	### Parse command line arguments.
b91e2391	34
b91e2391	35	while [ $# -gt 0 ]; do
996a7fd0	36	case "$1" in
b91e2391	37	-h \| --h \| --he \| --hel \| --help)
	38	cat <<EOF
	39	Usage: findlinks
	40
	41	Scans the current directory and any subdirectories, writing the names of
	42	files which could be linked into the shared files repository to standard
	43	output. This list could be used as input to the \`mklinks' command.
	44	EOF
	45	exit 0
	46	;;
	47	-v \| --v \| --ve \| --ver \| --vers \| --versi \| --versio \| --version)
996a7fd0	48	echo "findlinks: Common Files Distribution version $VERSION"
b91e2391	49	exit 0
	50	;;
	51	*)
	52	echo "findlinks: unknown option \`$1'" >&2
	53	exit 1
	54	;;
	55	esac
	56	shift
996a7fd0	57	done
b91e2391	58
996a7fd0 MW	59	###--------------------------------------------------------------------------
	60	### Read the names of all the files I support.
	61	###
	62	###
	63	### Yes, this is ugly and hacky: well spotted. Shells have a nasty habit of
	64	### spontaneously forking when redirection gets too hard for them to think
	65	### about, so instead of something nice along the lines of
	66	###
	67	### find ... \| while read name; do <build `files'> done
	68	###
	69	### I have to stick the whole lot in backticks and echo the result when it's
	70	### all done. Yuk.
	71	###
	72	### Oh, I almost forgot: that colon on the end there, that's to make sure
	73	### that all the entries are surrounded by colons on both sides, which makes
	74	### the pattern match in the `case' below work properly.
b91e2391	75
996a7fd0	76	files=$(
b91e2391	77	files=""
996a7fd0 MW	78	find "$pkgdatadir" -type f -print \| {
	79	while read name; do
	80	files="$files:$(echo "$name" \| sed 's;^.*/;;')"
	81	done
	82	echo $files
	83	}
	84	):
b91e2391	85
996a7fd0 MW	86	###--------------------------------------------------------------------------
	87	### Now examine the current directory.
	88	###
	89	### Remember to include things which are already linked, so that users can
	90	### say `findlinks >.links' without any problems.
b91e2391	91
b91e2391	92	find . \( -type f -o -type l \) -print \| while read name; do
996a7fd0	93	base="$(echo "$name" \| sed 's;^.*/;;')"
b91e2391	94	case "$files" in
	95	:$base:)
	96	echo $name
	97	;;
	98	*)
	99	esac
996a7fd0 MW	100	done \| sed 's,^\./,,' \| sort
	101
	102	###----- That's all, folks --------------------------------------------------