lib/gen_list.awk

   1 #!/usr/bin/awk -f
   2 #
   3 # $Id$
   4 #
   5 #                            COPYRIGHT
   6 #
   7 #   PCB, interactive printed circuit board design
   8 #   Copyright (C) 2003 Dan McMahill
   9 #
  10 #   This program is free software; you can redistribute it and/or modify
  11 #   it under the terms of the GNU General Public License as published by
  12 #   the Free Software Foundation; either version 2 of the License, or
  13 #   (at your option) any later version.
  14 #
  15 #   This program is distributed in the hope that it will be useful,
  16 #   but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 #   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 #   GNU General Public License for more details.
  19 #
  20 #   You should have received a copy of the GNU General Public License
  21 #   along with this program; if not, write to the Free Software
  22 #   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  23 #
  24 # Script to regenerate geda.list from geda.inc
  25 #
  26 # Usage:
  27 #
  28 #  awk -f gen_list.awk name=foo foo.inc > foo.list
  29 #
  30
  31 BEGIN {
  32         printf("#\n");
  33         printf("# NOTE: Auto-generated. Do not change.\n");
  34         printf("#");
  35         do_process = 0;
  36 }
  37
  38 /^\#[ \t]*EXTRACT_BEGIN/ {
  39   do_process = 1;
  40 }
  41
  42 /^\#[ \t]*EXTRACT_END/ {
  43   do_process = 0;
  44 }
  45
  46 do_process == 0 {
  47   next;
  48 }
  49
  50 /^\#\#/ {
  51         printf("#\n");
  52         next;
  53 }
  54
  55
  56 /^[ \t]*define/ {
  57         pkg = $1;
  58         ind = index(pkg, "PKG");
  59         pkg = substr(pkg, ind+4);
  60         ind = index(pkg, "'");
  61         pkg = substr(pkg, 1, ind-1);
  62         printf("%s_%s:%s:%s\n", name, pkg, pkg, pkg);
  63 }
  64