File: ListLibraryContents.sh.in

package info (click to toggle)
pcb 20060822-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 11,260 kB
  • ctags: 6,230
  • sloc: ansic: 62,222; sh: 4,062; pascal: 3,569; yacc: 1,097; makefile: 792; lex: 348; perl: 299; awk: 158; tcl: 63
file content (50 lines) | stat: -rwxr-xr-x 1,424 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
#!/bin/sh
#
#                             COPYRIGHT
# 
#   PCB, interactive printed circuit board design
#   Copyright (C) 1994,1995,1996 Thomas Nau
# 
#   This program 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.
# 
#   This program 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 this program; if not, write to the Free Software
#   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
# 
#   Contact addresses for paper mail and Email:
#   Thomas Nau, Schlehenweg 15, 88471 Baustetten, Germany
#   Thomas.Nau@rz.uni-ulm.de
# 
#   RCS: $Id: ListLibraryContents.sh.in,v 1.1 2006/03/24 00:25:40 danmc Exp $
#
# list the contents of a library
#
# usage: ListLibraryContents.sh [path] file

Usage()
{
	echo "usage: $0 [path] file" >&2
	exit 1
}

SearchPath=.
case $# in
	1)	File="$1";;
	2)	SearchPath=`echo "$1" | tr ':' ' '`; File="$2";;
	*)	Usage;;
esac

for dir in $SearchPath; do
	name=$dir/$File.contents
	if [ -r $name ]; then
		cat $name
	fi
done