octave: mk-opts.pl comparison

comparison mk-opts.pl @ 12174:db1f49eaba6b

whitespace fixes

author	John W. Eaton <jwe@octave.org>
date	Wed, 26 Jan 2011 23:49:42 -0500
parents	fd0a3ac60b0e
children	d1758f03a2ec

comparison

equal deleted inserted replaced

-:dd2af7b8dafe
+:db1f49eaba6b
 #! /usr/bin/perl
 #
 # Copyright (C) 2002-2011 John W. Eaton
 #
 # This file is part of Octave.
 #
 # Octave is free software; you can redistribute it and/or modify it
 # under the terms of the GNU General Public License as published by the
 # Free Software Foundation; either version 3 of the License, or (at
 # your option) any later version.
 #
 # Octave is distributed in the hope that it will be useful, but WITHOUT
 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 # FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
 # for more details.
 #
 # You should have received a copy of the GNU General Public License
 # along with Octave; see the file COPYING.  If not, see
 # <http://www.gnu.org/licenses/>.
 # Generate option handling code from a simpler input files for
 # Octave's functions like lsode, dassl, etc.
 # FIXME:
 #
 # * Improve default documentation and/or individual documentation
 #   in data files.
 #
 # * Fix print/show code to display/return something more informative
 #   for special values (for example, -1 ==> infinite in some cases).
 #   Probably need more information in the data files for this.
 $fcn_name = $1;
 }
 elsif (/^\s*INCLUDE\s*=\s*"(\S+)"\s*$/)
 {
 $include = "${include}#include <$1>\n";
-	}
+}
 elsif (/^\s*DOC_STRING\s*$/)
 {
 die "duplicate DOC_STRING" if ($have_doc_string);
 &parse_doc_string;
 $have_doc_string = 1;
 }
 else
 {
-	  die "mk-opts.pl: unknown command: $_\n"
+die "mk-opts.pl: unknown command: $_\n"
-	}
+}
 }
 }
 sub parse_option_block
 {
 $max_tokens = &max (@n_toks);
 &get_min_match_len_info ($max_tokens);
 $fcn_name = lc ($CLASS) if ($fcn_name eq "");
 $opt_fcn_name = "${fcn_name}_options" if ($opt_fcn_name eq "");
 $static_object_name = "${fcn_name}_opts";
 if ($doc_string eq "")
 for ($i = 0; $i < $opt_num; $i++)
 {
 for ($j = 0; $j < $max_tokens; $j++)
 {
-	  $min_tok_len_to_match[$i][$j] = 0;
+$min_tok_len_to_match[$i][$j] = 0;
 }
 $min_toks_to_match[$i] = 1;
 L1: for ($k = 0; $k < $opt_num; $k++)
 {
-	  local ($duplicate) = 1;
+local ($duplicate) = 1;
 if ($i != $k)
 {
 L2: for ($j = 0; $j < $max_tokens; $j++)
 {
 $min_toks_to_match[$i]++;
 }
 else
 {
-			  $duplicate = 0;
+$duplicate = 0;
-			  if ($min_tok_len_to_match[$i][$j] == 0)
+if ($min_tok_len_to_match[$i][$j] == 0)
-			    {
+{
-			      $min_tok_len_to_match[$i][$j] = 1;
+$min_tok_len_to_match[$i][$j] = 1;
-			    }
+}
 local (@s) = split (//, $kw_tok[$i][$j]);
 local (@t) = split (//, $kw_tok[$k][$j]);
 local ($n, $ii);
 for ($ii = 0; $ii < $n; $ii++)
 {
 if ("$s[$ii]" eq "$t[$ii]")
 {
-				  if ($ii + 2 > $min_tok_len_to_match[$i][$j])
+if ($ii + 2 > $min_tok_len_to_match[$i][$j])
-				    {
+{
-				      $min_tok_len_to_match[$i][$j]++;
+$min_tok_len_to_match[$i][$j]++;
-				    }
+}
 }
 else
 {
 last L2;
 }
 }
 last L1;
 }
 }
-		  else
+else
-		    {
+{
-		      die "ambiguous options \"$name[$i]\" and \"$name[$k]\"" if ($duplicate);
+die "ambiguous options \"$name[$i]\" and \"$name[$k]\"" if ($duplicate);
-		    }
+}
 }
 }
 }
 }
 }
 for ($i = 0; $i < $opt_num; $i++)
 {
 &emit_option_table_entry ($i, 0);
 if ($i < $opt_num - 1)
-	{
+{
-	  print "\n";
+print "\n";
-	}
+}
 }
 print "};\n\n";
 }
 {
 print "    os << $static_object_name.$opt[$i] () << \"\\n\";\n";
 }
 elsif ($type[$i] eq "Array<int>" || $type[$i] eq "Array<octave_idx_type>")
 {
-	  if ($type[$i] eq "Array<int>")
+if ($type[$i] eq "Array<int>")
 {
 $elt_type = "int";
 }
 else
 {
 os << val(0) << \"\\n\";
 }
 else
 {
 os << \"\\n\\n\";
-	octave_idx_type len = val.length ();
+octave_idx_type len = val.length ();
-	Matrix tmp (len, 1);
+Matrix tmp (len, 1);
-	for (octave_idx_type i = 0; i < len; i++)
+for (octave_idx_type i = 0; i < len; i++)
-	  tmp(i,0) = val(i);
+tmp(i,0) = val(i);
 octave_print_internal (os, tmp, false, 2);
 os << \"\\n\\n\";
 }\n";
 }
 elsif ($type[$i] eq "Array<double>")
 {
 print "      retval = $static_object_name.$opt[$i] ();\n";
 }
 elsif ($type[$i] eq "Array<int>" || $type[$i] eq "Array<octave_idx_type>")
 {
-	  if ($type[$i] eq "Array<int>")
+if ($type[$i] eq "Array<int>")
 {
 $elt_type = "int";
 }
 else
 {
 {
 retval = static_cast<double> (val(0));
 }
 else
 {
-	  octave_idx_type len = val.length ();
+octave_idx_type len = val.length ();
-	  ColumnVector tmp (len);
+ColumnVector tmp (len);
-	  for (octave_idx_type i = 0; i < len; i++)
+for (octave_idx_type i = 0; i < len; i++)
-	    tmp(i) = val(i);
+tmp(i) = val(i);
 retval = tmp;
 }\n";
 }
 elsif ($type[$i] eq "Array<double>")
 {
 for ($i = 0; $i < $opt_num; $i++)
 {
 print "\@item \\\"$name[$i]\\\"\\n\\\n";
 if ($doc_item[$i] ne "")
-	{
+{
-	  print "$doc_item[$i]";
+print "$doc_item[$i]";
-	}
+}
 }
 print "\@end table\\n\\\n\@end deftypefn\")
 {
 octave_value_list retval;
 }
 else
 print_usage ();
 return retval;
 }\n";
 }
 sub emit_options_debug
 {
 print "CLASS = \"$class\"\n";

Mercurial > octave

comparison mk-opts.pl @ 12174:db1f49eaba6b