| author | Francesco Abbate <francesco.bbt@gmail.com> | 2010年07月20日 22:08:41 +0200 |
|---|---|---|
| committer | Francesco Abbate <francesco.bbt@gmail.com> | 2010年07月20日 22:08:41 +0200 |
| commit | 47b7a1b2935b25e9691cb4eab79049d290fe8017 (patch) | |
| tree | 0c0cf80eb5093ff8378da4cc43c2af349ced3afe /matrix_headers_source.h | |
| parent | 3191118dc33b65e22b6d720fe1c6bf5538fd5888 (diff) | |
| download | gsl-shell-47b7a1b2935b25e9691cb4eab79049d290fe8017.tar.gz | |
| -rw-r--r-- | matrix_headers_source.h | 78 |
diff --git a/matrix_headers_source.h b/matrix_headers_source.h index df14d6eb..e63bdab7 100644 --- a/matrix_headers_source.h +++ b/matrix_headers_source.h @@ -1,39 +1,39 @@ -
-extern void FUNCTION (matrix, register) (lua_State *L);
-
-extern TYPE (gsl_matrix) * FUNCTION (matrix, push) (lua_State *L,
- int n1, int n2);
-
-extern TYPE (gsl_matrix) * FUNCTION (matrix, push_raw) (lua_State *L,
- int n1, int n2);
-
-extern void FUNCTION (matrix, push_view) (lua_State *L,
- TYPE (gsl_matrix) *m);
-
-extern TYPE (gsl_matrix) * FUNCTION (matrix, check) (lua_State *L,
- int index);
-
-extern void FUNCTION (matrix, null_view) (lua_State *L,
- int index);
-
-extern void FUNCTION (matrix, check_size) (lua_State *L,
- TYPE (gsl_matrix) *m,
- size_t n1, size_t n2);
-
-
-/* matrix helper functions */
-extern void
-FUNCTION (matrix, set_view_and_push) (lua_State *L, int index, double *data,
- size_t n1, size_t n2, const double *src);
-
-extern void
-FUNCTION (matrix, set_view) (lua_State *L, int index, double *data,
- size_t n1, size_t n2, const double *src);
-
-extern void
-FUNCTION (matrix, jacob_copy_real_to_cmpl) (double *dest_cmpl, double *src_real,
- size_t n, size_t p, size_t mult);
-
-extern void
-FUNCTION (matrix, jacob_copy_cmpl_to_real) (double *dest_real, double *src_cmpl,
- size_t n, size_t p, size_t mult);
+ +extern void FUNCTION (matrix, register) (lua_State *L); + +extern TYPE (gsl_matrix) * FUNCTION (matrix, push) (lua_State *L, + int n1, int n2); + +extern TYPE (gsl_matrix) * FUNCTION (matrix, push_raw) (lua_State *L, + int n1, int n2); + +extern void FUNCTION (matrix, push_view) (lua_State *L, + TYPE (gsl_matrix) *m); + +extern TYPE (gsl_matrix) * FUNCTION (matrix, check) (lua_State *L, + int index); + +extern void FUNCTION (matrix, null_view) (lua_State *L, + int index); + +extern void FUNCTION (matrix, check_size) (lua_State *L, + TYPE (gsl_matrix) *m, + size_t n1, size_t n2); + + +/* matrix helper functions */ +extern void +FUNCTION (matrix, set_view_and_push) (lua_State *L, int index, double *data, + size_t n1, size_t n2, const double *src); + +extern void +FUNCTION (matrix, set_view) (lua_State *L, int index, double *data, + size_t n1, size_t n2, const double *src); + +extern void +FUNCTION (matrix, jacob_copy_real_to_cmpl) (double *dest_cmpl, double *src_real, + size_t n, size_t p, size_t mult); + +extern void +FUNCTION (matrix, jacob_copy_cmpl_to_real) (double *dest_real, double *src_cmpl, + size_t n, size_t p, size_t mult); |