Mercurial > hg > octave-lyh
annotate examples/stringdemo.cc @ 14599:97cb9286919c gui
Cleaned up code.
* .hgsub: Removed IRC Widget.
* gui.pro: Removed dependency on IRC Widget and removed files.
* class FileEditorMdiSubWindow: Renamed to FileEditor. File editor windows are now independent windows, thus removed the extra close button.
* MainWindow: Removed MDI Area and replaced it with the terminal instead.
* BrowserWidget: Removed browser widget.
* SettingsDialog: Rearranged settings for the editor, removed tab for shortcuts.
* OctaveCallbackThread: Raised update intervals from 0,5s to 1s.
* OctaveLink: Replaced signals names for triggering updates on the symbol table.
* WorkspaceView: Adjusted connect statements to fit the new signal names.
author | Jacob Dawid <jacob.dawid@googlemail.com> |
---|---|
date | Mon, 07 May 2012 00:53:54 +0200 |
parents | db1f49eaba6b |
children | 460a3c6d8bf1 |
rev | line source |
---|---|
6572 | 1 #include <octave/oct.h> |
2 | |
3 DEFUN_DLD (stringdemo, args, , "String Demo") | |
4 { | |
5 int nargin = args.length(); | |
12174 | 6 octave_value_list retval; |
6572 | 7 |
8 if (nargin != 1) | |
9 print_usage (); | |
10 else | |
11 { | |
12 charMatrix ch = args(0).char_matrix_value (); | |
13 | |
14 if (! error_state) | |
15 { | |
16 if (args(0).is_sq_string ()) | |
17 retval(1) = octave_value (ch, true); | |
18 else | |
19 retval(1) = octave_value (ch, true, '\''); | |
20 | |
21 octave_idx_type nr = ch.rows(); | |
22 for (octave_idx_type i = 0; i < nr / 2; i++) | |
23 { | |
24 std::string tmp = ch.row_as_string (i); | |
12174 | 25 ch.insert (ch.row_as_string(nr-i-1).c_str(), |
9932
6cb30a539481
untabify files in examples directory
John W. Eaton <jwe@octave.org>
parents:
9053
diff
changeset
|
26 i, 0); |
6572 | 27 ch.insert (tmp.c_str(), nr-i-1, 0); |
28 } | |
29 retval(0) = octave_value (ch, true); | |
30 } | |
31 } | |
32 return retval; | |
33 } |