lib/QueryLibrary.sh.in

   1 #!/bin/sh
   2 #
   3 #                             COPYRIGHT
   4 #
   5 #   PCB, interactive printed circuit board design
   6 #   Copyright (C) 1994,1995,1996 Thomas Nau
   7 #
   8 #   This program is free software; you can redistribute it and/or modify
   9 #   it under the terms of the GNU General Public License as published by
  10 #   the Free Software Foundation; either version 2 of the License, or
  11 #   (at your option) any later version.
  12 #
  13 #   This program is distributed in the hope that it will be useful,
  14 #   but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 #   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 #   GNU General Public License for more details.
  17 #
  18 #   You should have received a copy of the GNU General Public License
  19 #   along with this program; if not, write to the Free Software
  20 #   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  21 #
  22 #   Contact addresses for paper mail and Email:
  23 #   Thomas Nau, Schlehenweg 15, 88471 Baustetten, Germany
  24 #   Thomas.Nau@rz.uni-ulm.de
  25 #
  26 #   RCS: $Id$
  27 #
  28 # query a library
  29 #
  30 # usage: QueryLibrary.sh template value package
  31
  32 M4=@GNUM4@
  33
  34 Usage()
  35 {
  36         echo "usage: $0 [-fp] [path] library template value package" >&2
  37         echo "      If given, the -fp flag returns the correct value for" >&2
  38         echo "      the gschem footprint= attribute" >&2
  39         exit 1
  40 }
  41
  42 Fn=CreateObject
  43 if test $1 = "-fp" ; then
  44         Fn=QueryObject
  45         shift
  46 fi
  47
  48 SearchPath=.
  49 case $# in
  50         4)  ;;
  51         5)  SearchPath=`echo "$1" | tr ':' ' '`; shift;;
  52         *)  Usage;;
  53 esac
  54 Library="$1"
  55 Template="$2"
  56 Value="$3"
  57 Package="$4"
  58
  59 PATH=$PATH:`dirname $0`
  60
  61 for dir in $SearchPath; do
  62         name=$dir/$Library
  63         if [ -r $name ]; then
  64                 echo "${Fn}(\`$Template', \`$Value', \`$Package')" |
  65                         PATH=${SearchPath}:$PATH $M4 -R $name - |
  66                         awk '/^[ \t]*$/ {next} {print}'
  67                 exit
  68         fi
  69 done