Mercurial > octave-nkf

diff scripts/general/int2str.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents d73c9bd101ef
children c776f063fefe
line wrap: on
line diff
--- a/scripts/general/int2str.m	Fri Apr 23 11:13:48 2010 -0700
+++ b/scripts/general/int2str.m	Fri Apr 23 11:28:50 2010 -0700
@@ -58,7 +58,7 @@
     if (nc > 1)
       idx = cell ();
       for i = 1:nd
-	idx{i} = 1:sz(i);
+        idx{i} = 1:sz(i);
       endfor
       idx(2) = 1;
       ifmt = get_fmt (x(idx{:}), 0);
@@ -89,9 +89,9 @@
     nan_inf = isinf (t) | isnan (t);
     if (any (nan_inf))
       if (any (t(nan_inf) < 0))
-	min_fw = 4 + sep;
+        min_fw = 4 + sep;
       else
-	min_fw = 3 + sep;
+        min_fw = 3 + sep;
       endif
     else
       min_fw = 1 + sep;
@@ -105,7 +105,7 @@
       tfw = floor (log10 (double (abs (t)))) + 1 + sep;
       fw = max (tfw);
       if (any (t(tfw == fw) < 0))
-	fw++;
+        fw++;
       endif
       fmt = sprintf ("%%%dd", max (fw, min_fw));
     endif