Mercurial > octave
view examples/code/stringdemo.cc @ 31199:8bd9b64aeb01
maint: Merge stable to default.
author | Markus Mützel <markus.muetzel@gmx.de> |
---|---|
date | Wed, 24 Aug 2022 17:19:26 +0200 |
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; }