Mercurial > octave-nkf
annotate examples/mystring.c @ 18840:4a4edf0f2077 nkf-ready
fix LLVM 3.4 build (bug #41061)
* configure.ac: Call new functions OCTAVE_LLVM_RAW_FD_OSTREAM_API and
OCTAVE_LLVM_LEGACY_PASSMANAGER_API, check for Verifier.h header file
* m4/acinclude.m4 (OCTAVE_LLVM_RAW_FD_OSTREAM_API): New function to
detect correct raw_fd_ostream API
* m4/acinclude.m4 (OCTAVE_LLVM_LEGACY_PASSMANAGER_API): New function
to detect legacy passmanager API
* libinterp/corefcn/jit-util.h: Use legacy passmanager namespace if
necessary
* libinterp/corefcn/pt-jit.h (class tree_jit): Use legacy passmanager
class if necessary
* libinterp/corefcn/pt-jit.cc: Include appropriate header files
* libinterp/corefcn/pt-jit.cc (tree_jit::initialize): Use legacy
passmanager if necessary
* libinterp/corefcn/pt-jit.cc (tree_jit::optimize): Use correct API
* libinterp/corefcn/jit-typeinfo.cc: Include appropriate header file
author | Stefan Mahr <dac922@gmx.de> |
---|---|
date | Sun, 11 May 2014 02:28:33 +0200 |
parents | 224e76250443 |
children |
rev | line source |
---|---|
6593 | 1 #include <string.h> |
2 #include "mex.h" | |
3 | |
4 void | |
16867
be41c30bcb44
Re-write documentation and all examples of dynamically linked functions.
Rik <rik@octave.org>
parents:
9932
diff
changeset
|
5 mexFunction (int nlhs, mxArray *plhs[], |
be41c30bcb44
Re-write documentation and all examples of dynamically linked functions.
Rik <rik@octave.org>
parents:
9932
diff
changeset
|
6 int nrhs, const mxArray *prhs[]) |
6593 | 7 { |
16867
be41c30bcb44
Re-write documentation and all examples of dynamically linked functions.
Rik <rik@octave.org>
parents:
9932
diff
changeset
|
8 mwSize m, n; |
6686 | 9 mwIndex i, j; |
6593 | 10 mxChar *pi, *po; |
11 | |
17791
224e76250443
Use GNU style coding conventions for code in examples/
Rik <rik@octave.org>
parents:
16867
diff
changeset
|
12 if (nrhs != 1 || ! mxIsChar (prhs[0]) |
224e76250443
Use GNU style coding conventions for code in examples/
Rik <rik@octave.org>
parents:
16867
diff
changeset
|
13 || mxGetNumberOfDimensions (prhs[0]) > 2) |
16867
be41c30bcb44
Re-write documentation and all examples of dynamically linked functions.
Rik <rik@octave.org>
parents:
9932
diff
changeset
|
14 mexErrMsgTxt ("ARG1 must be a char matrix"); |
6593 | 15 |
16 m = mxGetM (prhs[0]); | |
17 n = mxGetN (prhs[0]); | |
18 pi = mxGetChars (prhs[0]); | |
16867
be41c30bcb44
Re-write documentation and all examples of dynamically linked functions.
Rik <rik@octave.org>
parents:
9932
diff
changeset
|
19 plhs[0] = mxCreateNumericMatrix (m, n, mxCHAR_CLASS, mxREAL); |
6593 | 20 po = mxGetChars (plhs[0]); |
21 | |
22 for (j = 0; j < n; j++) | |
23 for (i = 0; i < m; i++) | |
16867
be41c30bcb44
Re-write documentation and all examples of dynamically linked functions.
Rik <rik@octave.org>
parents:
9932
diff
changeset
|
24 po[j*m + m - 1 - i] = pi[j*m + i]; |
6593 | 25 } |