Mercurial > hg > octave-nkf

comparison examples/stringdemo.cc @ 12254:23385f2c90b7 release-3-4-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
whitespace fixes
author John W. Eaton <jwe@octave.org>
date Wed, 26 Jan 2011 23:49:42 -0500
parents 6cb30a539481
children 460a3c6d8bf1
comparison
equal deleted inserted replaced
12253:1f14586af94c 12254:23385f2c90b7
1 #include <octave/oct.h> 1 #include <octave/oct.h>
2 2
3 DEFUN_DLD (stringdemo, args, , "String Demo") 3 DEFUN_DLD (stringdemo, args, , "String Demo")
4 { 4 {
5 int nargin = args.length(); 5 int nargin = args.length();
6 octave_value_list retval; 6 octave_value_list retval;
7 7
8 if (nargin != 1) 8 if (nargin != 1)
9 print_usage (); 9 print_usage ();
10 else 10 else
11 { 11 {
20 20
21 octave_idx_type nr = ch.rows(); 21 octave_idx_type nr = ch.rows();
22 for (octave_idx_type i = 0; i < nr / 2; i++) 22 for (octave_idx_type i = 0; i < nr / 2; i++)
23 { 23 {
24 std::string tmp = ch.row_as_string (i); 24 std::string tmp = ch.row_as_string (i);
25 ch.insert (ch.row_as_string(nr-i-1).c_str(), 25 ch.insert (ch.row_as_string(nr-i-1).c_str(),
26 i, 0); 26 i, 0);
27 ch.insert (tmp.c_str(), nr-i-1, 0); 27 ch.insert (tmp.c_str(), nr-i-1, 0);
28 } 28 }
29 retval(0) = octave_value (ch, true); 29 retval(0) = octave_value (ch, true);
30 } 30 }