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 #
  27 # query a library
  28 #
  29 # usage: QueryLibrary.sh template value package
  30
  31 M4=@GNUM4@
  32
  33 Usage()
  34 {
  35         echo "usage: $0 [-fp] [path] library template value package" >&2
  36         echo "      If given, the -fp flag returns the correct value for" >&2
  37         echo "      the gschem footprint= attribute" >&2
  38         exit 1
  39 }
  40
  41 Fn=CreateObject
  42 if test $1 = "-fp" ; then
  43         Fn=QueryObject
  44         shift
  45 fi
  46
  47 SearchPath=.
  48 case $# in
  49         4)  ;;
  50         5)  SearchPath=`echo "$1" | tr ':' ' '`; shift;;
  51         *)  Usage;;
  52 esac
  53 Library="$1"
  54 Template="$2"
  55 Value="$3"
  56 Package="$4"
  57
  58 PATH=$PATH:`dirname $0`
  59
  60 for dir in $SearchPath; do
  61         name=$dir/$Library
  62         if [ -r $name ]; then
  63                 echo "${Fn}(\`$Template', \`$Value', \`$Package')" |
  64                         PATH=${SearchPath}:$PATH $M4 -R $name - |
  65                         awk '/^[ \t]*$/ {next} {print}'
  66                 exit
  67         fi
  68 done