lib/gen_list.awk

   1 #!/usr/bin/awk -f
   2 #
   3 #                            COPYRIGHT
   4 #
   5 #   PCB, interactive printed circuit board design
   6 #   Copyright (C) 2003 Dan McMahill
   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 # Script to regenerate geda.list from geda.inc
  23 #
  24 # Usage:
  25 #
  26 #  awk -f gen_list.awk name=foo foo.inc > foo.list
  27 #
  28
  29 BEGIN {
  30         printf("#\n");
  31         printf("# NOTE: Auto-generated. Do not change.\n");
  32         printf("#");
  33         do_process = 0;
  34 }
  35
  36 /^\#[ \t]*EXTRACT_BEGIN/ {
  37   do_process = 1;
  38 }
  39
  40 /^\#[ \t]*EXTRACT_END/ {
  41   do_process = 0;
  42 }
  43
  44 do_process == 0 {
  45   next;
  46 }
  47
  48 /^\#\#/ {
  49         printf("#\n");
  50         next;
  51 }
  52
  53
  54 /^[ \t]*define/ {
  55         pkg = $1;
  56         ind = index(pkg, "PKG");
  57         pkg = substr(pkg, ind+4);
  58         ind = index(pkg, "'");
  59         pkg = substr(pkg, 1, ind-1);
  60         printf("%s_%s:%s:%s\n", name, pkg, pkg, pkg);
  61 }
  62