gschem/scheme/print-NB-attribs.scm

   1 ;; gEDA - GPL Electronic Design Automation
   2 ;; gschem - gEDA Schematic Capture
   3 ;; Copyright (C) 1998-2010 Ales Hvezda
   4 ;; Copyright (C) 1998-2010 gEDA Contributors (see ChangeLog for details)
   5 ;;
   6 ;; This program is free software; you can redistribute it and/or modify
   7 ;; it under the terms of the GNU General Public License as published by
   8 ;; the Free Software Foundation; either version 2 of the License, or
   9 ;; (at your option) any later version.
  10 ;;
  11 ;; This program is distributed in the hope that it will be useful,
  12 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 ;; GNU General Public License for more details.
  15 ;;
  16 ;; You should have received a copy of the GNU General Public License
  17 ;; along with this program; if not, write to the Free Software
  18 ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  19
  20 (define (print-NB-attribs attribs)
  21   (for-each
  22    (lambda (attrib)
  23      (let* ((name-value (get-attribute-name-value attrib))
  24             (name (car name-value))
  25             (value (cdr name-value)))
  26        (if (string=? name "NB")
  27            (display (string-append value "\n")))))
  28    attribs))