gEDA-cvs: CVS update: refdes_renum

[cvspsrv@xxxxxxxx]

  User: sdb     
  Date: 07/04/15 19:20:31

  Modified:    .        refdes_renum
  Log:
  Made --gentle the default behavior of refdes_renum.
  
  
  
  
  Revision  Changes    Path
  1.7       +24 -3     eda/geda/gaf/utils/scripts/refdes_renum
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: refdes_renum
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/gaf/utils/scripts/refdes_renum,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -b -r1.6 -r1.7
  --- refdes_renum	15 Apr 2007 00:42:22 -0000	1.6
  +++ refdes_renum	15 Apr 2007 23:20:31 -0000	1.7
  @@ -1,6 +1,6 @@
   #!/usr/bin/perl -w
   #
  -# $Id: refdes_renum,v 1.6 2007/04/15 00:42:22 sdb Exp $
  +# $Id: refdes_renum,v 1.7 2007/04/15 23:20:31 sdb Exp $
   #
   # Copyright (C) 2003 Dan McMahill
   #
  @@ -36,7 +36,7 @@
   # don't allow -he to be interpreted as --help
   $Getopt::Long::autoabbrev=0;
   
  -my $clear; # reset all refdes
  +#  my $clear; # reset all refdes
   &GetOptions(("help" => \&usage, 
   	     "nocopy" => \$nocopy,
   	     "pgskip:100" => \$pgskip,
  @@ -44,6 +44,7 @@
   	     "version" => \&version,
                "clear"   => \$clear,
   	     "gentle" => \$gentle,
  +	     "force" => \$force,
   	     ));
   
   usage() if $Getopt::Long::error;
  @@ -57,6 +58,13 @@
   }
   
   
  +# This makes --gentle the default behavior.  To 
  +# force refdes renumbering, use --force.
  +$gentle = 1;
  +if ( defined($force) || defined($clear) ) {
  +    undef($gentle);
  +}
  +
   # Print usage string in event user didn't call out any args
   usage() unless @ARGV;
   
  @@ -323,9 +331,13 @@
     print "                with 201, etc  Specifying a value gives the step between pages.\n";
     print "                For example --pgskip 10 will start with 11, 21, 31, etc.\n";
     print "\n";
  -  print "    --gentle    If given, this flag tells refdes_renum to leave any refdeses\n";
  +  print "    --gentle    This flag tells refdes_renum to leave any refdeses\n";
     print "                alone if they already have numbers.  Use this option to number\n";
     print "                new components in a schematic which has already been numbered.\n";
  +  print "                Note that --gentle is set by default!\n";
  +  print "\n";
  +  print "    --force     Set this flag to renumber all refdeses, whether they are already\n";
  +  print "                numbered or not.\n";
     print "\n";
     print "    --verbose   Enables verbose output.\n";
     print "\n";
  @@ -390,6 +402,14 @@
   # Change Log
   #
   # $Log: refdes_renum,v $
  +# Revision 1.7  2007/04/15 23:20:31  sdb
  +# Made --gentle the default behavior of refdes_renum.
  +#
  +# Revision 1.7  2007/04/15 SDB
  +# Made --gentle default behavior.  Now user must use --force
  +# to get old behavior, which renumbers all refdeses whether
  +# already numbered or not.
  +#
   # Revision 1.6  2007/04/15 00:42:22  sdb
   # Added --gentle flag to refdes_renum, which won't renumber refdeses
   # which already have a number.
  
  
  


_______________________________________________
geda-cvs mailing list
geda-cvs@xxxxxxxxxxxxxx
http://www.seul.org/cgi-bin/mailman/listinfo/geda-cvs