gEDA-cvs: CVS update: gnet-bom.scm

[cvspsrv@xxxxxxxx]

  User: cnieves 
  Date: 05/02/16 13:43:55

  Log:
  Use stdout if the output filename is "-".
  
  
  
  
  
  
  Revision  Changes    Path
  1.230     +6 -0      eda/geda/devel/gnetlist/ChangeLog
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: ChangeLog
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/devel/gnetlist/ChangeLog,v
  retrieving revision 1.229
  retrieving revision 1.230
  diff -u -b -r1.229 -r1.230
  --- ChangeLog	14 Feb 2005 22:31:45 -0000	1.229
  +++ ChangeLog	16 Feb 2005 18:43:54 -0000	1.230
  @@ -1,8 +1,14 @@
  +2005-02-16 Carlos Nieves Onega <cnieves@xxxxxxxxxx>
  +
  +	* scheme/gnet-bom.scm, scheme/gnet-bom2.scm, scheme/gnet-redac.scm:
  +	  Use stdout if the output filename is "-".
  +
   2005-02-14  Patrick Bernaud  <b-patrick@xxxxxxxxxx>
   
   	* src/g_netlist.c (g_get_packages): Added two lines missing after 
   	yesterday rewrite.
   
  +>>>>>>> 1.229
   2005-02-13  Patrick Bernaud  <b-patrick@xxxxxxxxxx>
   
   	* src/g_netlist.c (g_get_packages): Rewritten to use a GLib hash 
  
  
  

  Modified:    .        gnet-bom.scm gnet-bom2.scm gnet-redac.scm
  Log:
  Use stdout if the output filename is "-".
  
  
  
  
  
  
  Revision  Changes    Path
  1.10      +4 -2      eda/geda/devel/gnetlist/scheme/gnet-bom.scm
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: gnet-bom.scm
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/devel/gnetlist/scheme/gnet-bom.scm,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -b -r1.9 -r1.10
  --- gnet-bom.scm	3 Feb 2005 12:49:36 -0000	1.9
  +++ gnet-bom.scm	16 Feb 2005 18:43:55 -0000	1.10
  @@ -1,4 +1,4 @@
  -;;; $Id: gnet-bom.scm,v 1.9 2005/02/03 12:49:36 danmc Exp $
  +;;; $Id: gnet-bom.scm,v 1.10 2005/02/16 18:43:55 cnieves Exp $
   ;;;
   ;;; gEDA - GNU Electronic Design Automation
   ;;; gnetlist - GNU Netlist
  @@ -33,7 +33,9 @@
   
   (define bom
     (lambda (output-filename)
  -    (let ((port (open-output-file output-filename))
  +    (let ((port (if (string=? "-" output-filename)
  +		      (current-output-port)
  +		      (open-output-file output-filename)))
   	  (attriblist (bom:parseconfig (open-input-file "attribs"))))
         (bom:printlist (cons 'package attriblist) port)
         (bom:components port packages attriblist)
  
  
  
  1.8       +4 -2      eda/geda/devel/gnetlist/scheme/gnet-bom2.scm
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: gnet-bom2.scm
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/devel/gnetlist/scheme/gnet-bom2.scm,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -b -r1.7 -r1.8
  --- gnet-bom2.scm	3 Feb 2005 12:49:36 -0000	1.7
  +++ gnet-bom2.scm	16 Feb 2005 18:43:55 -0000	1.8
  @@ -1,4 +1,4 @@
  -;;; $Id: gnet-bom2.scm,v 1.7 2005/02/03 12:49:36 danmc Exp $
  +;;; $Id: gnet-bom2.scm,v 1.8 2005/02/16 18:43:55 cnieves Exp $
   ;;;
   ;;; gEDA - GNU Electronic Design Automation
   ;;; gnetlist - GNU Netlist
  @@ -33,7 +33,9 @@
   
   (define bom2
     (lambda (output-filename)
  -    (let ((port (open-output-file output-filename))
  +    (let ((port (if (string=? "-" output-filename)
  +		      (current-output-port)
  +		      (open-output-file output-filename)))
   	  (attriblist (bom2:parseconfig (open-input-file "attribs"))))
         (bom2:printlist (cons 'package attriblist) port #\:)
         (newline port)
  
  
  
  1.3       +4 -2      eda/geda/devel/gnetlist/scheme/gnet-redac.scm
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: gnet-redac.scm
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/devel/gnetlist/scheme/gnet-redac.scm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -b -r1.2 -r1.3
  --- gnet-redac.scm	3 Feb 2005 12:49:36 -0000	1.2
  +++ gnet-redac.scm	16 Feb 2005 18:43:55 -0000	1.3
  @@ -1,4 +1,4 @@
  -;;; $Id: gnet-redac.scm,v 1.2 2005/02/03 12:49:36 danmc Exp $
  +;;; $Id: gnet-redac.scm,v 1.3 2005/02/16 18:43:55 cnieves Exp $
   ;;;
   ;;; gEDA - GNU Electronic Design Automation
   ;;; gnetlist - GNU Netlist
  @@ -54,7 +54,9 @@
   
   (define redac 
      (lambda (filename)
  -      (let ((port (open-output-file filename)))
  +      (let ((port (if (string=? "-" filename)
  +		      (current-output-port)
  +		      (open-output-file filename))))
            (display ".PCB\r\n" port)
            (display ".REM CREATED BY gEDA GNETLIST\r\n" port)
            (display ".CON\r\n" port)