Mercurial > octave
view examples/code/stringdemo.cc @ 31225:3eab70385569
sparse-xpow.cc: Use faster multiplication technique, this time for complex
author | Arun Giridhar <arungiridhar@gmail.com> |
---|---|
date | Sun, 11 Sep 2022 13:53:38 -0400 |
parents | 73ab962bc52d |
children |
line wrap: on
line source
#include <octave/oct.h> DEFUN_DLD (stringdemo, args, , "String Demo") { if (args.length () != 1) print_usage (); octave_value_list retval; charMatrix ch = args(0).char_matrix_value (); retval(1) = octave_value (ch, '\''); // Single Quote String octave_idx_type nr = ch.rows (); for (octave_idx_type i = 0; i < nr / 2; i++) { std::string tmp = ch.row_as_string (i); ch.insert (ch.row_as_string (nr-i-1).c_str (), i, 0); ch.insert (tmp.c_str (), nr-i-1, 0); } retval(0) = octave_value (ch, '"'); // Double Quote String return retval; }