Mercurial > octave-nkf

comparison scripts/io/dlmwrite.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 d52e405df4f7
children 044d9df4d79a
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
109 delim = varargin{i}; 109 delim = varargin{i};
110 elseif (strcmpi (varargin{i}, "newline")) 110 elseif (strcmpi (varargin{i}, "newline"))
111 i = i + 1; 111 i = i + 1;
112 newline = varargin{i}; 112 newline = varargin{i};
113 if (strcmpi (newline, "unix")) 113 if (strcmpi (newline, "unix"))
114 newline = "\n"; 114 newline = "\n";
115 elseif (strcmpi (newline, "pc")) 115 elseif (strcmpi (newline, "pc"))
116 newline = "\r\n"; 116 newline = "\r\n";
117 elseif (strcmpi (newline, "mac")) 117 elseif (strcmpi (newline, "mac"))
118 newline = "\r"; 118 newline = "\r";
119 endif 119 endif
120 elseif (strcmpi (varargin{i}, "roffset")) 120 elseif (strcmpi (varargin{i}, "roffset"))
121 i = i + 1; 121 i = i + 1;
122 r = varargin{i}; 122 r = varargin{i};
123 elseif (strcmpi (varargin{i}, "coffset")) 123 elseif (strcmpi (varargin{i}, "coffset"))
125 c = varargin{i}; 125 c = varargin{i};
126 elseif (strcmpi (varargin{i}, "precision")) 126 elseif (strcmpi (varargin{i}, "precision"))
127 i = i + 1; 127 i = i + 1;
128 precision = varargin{i}; 128 precision = varargin{i};
129 if (! strcmpi (class (precision), "char")) 129 if (! strcmpi (class (precision), "char"))
130 precision = sprintf ("%.%gg", precision); 130 precision = sprintf ("%.%gg", precision);
131 endif 131 endif
132 elseif (strcmpi (varargin{i}, "-append")) 132 elseif (strcmpi (varargin{i}, "-append"))
133 opentype = "at"; 133 opentype = "at";
134 elseif (strcmpi (varargin{i}, "append")) 134 elseif (strcmpi (varargin{i}, "append"))
135 i = i + 1; 135 i = i + 1;
136 if (strcmpi (varargin{i}, "on")) 136 if (strcmpi (varargin{i}, "on"))
137 opentype = "at"; 137 opentype = "at";
138 elseif (strcmpi (varargin{i}, "off")) 138 elseif (strcmpi (varargin{i}, "off"))
139 opentype = "wt"; 139 opentype = "wt";
140 else 140 else
141 error ("dlmwrite: append must be \"on\" or \"off\"."); 141 error ("dlmwrite: append must be \"on\" or \"off\".");
142 endif 142 endif
143 else 143 else
144 if (i == 1) 144 if (i == 1)
145 delim = varargin{i}; 145 delim = varargin{i};
146 elseif (i == 2) 146 elseif (i == 2)
147 r = varargin{i}; 147 r = varargin{i};
148 elseif (i == 3) 148 elseif (i == 3)
149 c = varargin{i}; 149 c = varargin{i};
150 else 150 else
151 print_usage(); 151 print_usage();
152 endif 152 endif
153 endif 153 endif
154 endwhile 154 endwhile
155 155
156 [fid, msg] = fopen (file, opentype); 156 [fid, msg] = fopen (file, opentype);
157 if (fid < 0) 157 if (fid < 0)
158 error (msg); 158 error (msg);
159 else 159 else
160 if (r > 0) 160 if (r > 0)
161 fprintf (fid, "%s", 161 fprintf (fid, "%s",
162 repmat ([repmat(delim, 1, c + columns(a)-1), newline], 1, r)); 162 repmat ([repmat(delim, 1, c + columns(a)-1), newline], 1, r));
163 endif 163 endif
164 if (iscomplex (a)) 164 if (iscomplex (a))
165 cprecision = regexprep (precision, '^%([-\d.])','%+$1'); 165 cprecision = regexprep (precision, '^%([-\d.])','%+$1');
166 template = [precision, cprecision, "i", ... 166 template = [precision, cprecision, "i", ...
167 repmat([delim, precision, cprecision, "i"], 1, ... 167 repmat([delim, precision, cprecision, "i"], 1, ...
168 columns(a) - 1), newline ]; 168 columns(a) - 1), newline ];
169 else 169 else
170 template = [precision, repmat([delim, precision], 1, columns(a)-1),... 170 template = [precision, repmat([delim, precision], 1, columns(a)-1),...
171 newline]; 171 newline];
172 endif 172 endif
173 if (c > 0) 173 if (c > 0)
174 template = [repmat(delim, 1, c), template]; 174 template = [repmat(delim, 1, c), template];
175 endif 175 endif
176 if (iscomplex (a)) 176 if (iscomplex (a))