1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
Description: Fix FTBFS due to pod sections embedded in pp_addxs commands.
Author: Bas Couwenberg <sebastic@debian.org>
Bug-Debian: https://bugs.debian.org/952305
Forwarded: not-needed
--- a/matlab.pd
+++ b/matlab.pd
@@ -869,38 +869,12 @@ if (RETVAL == -1) barf("PDL::IO::Matlab:
OUTPUT:
RETVAL
-=pod
-
-int
-_my_mat_feof(mat)
-mat_t * mat
-CODE:
-RETVAL = feof(mat->fp);
-OUTPUT:
-RETVAL
-
-=cut
-
-
');
pp_addxs ( '', '
-=pod
-
-void
-_extra_matio_print_all_var_info_new (matfp,printdata,max_cols,max_rows)
-mat_t * matfp
-int printdata
-int max_cols
-int max_rows
-CODE:
-extra_matio_print_all_var_info (matfp,printdata,max_cols,max_rows);
-
-=cut
-
void
_extra_matio_print_all_var_info (matfp,printdata)
mat_t * matfp
@@ -908,17 +882,6 @@ int printdata
CODE:
extra_matio_print_all_var_info(matfp,printdata);
-=pod
-
-following was a PITA. This returns undef if the
-reading matvar failed. The library does not seem
-to provide any way to detect EOF.
-
-Important not to use fprintf in this XS code. Can
-cause segfault.
-
-=cut
-
void
_convert_next_matvar_to_pdl(matfp,onedr)
mat_t * matfp
@@ -938,22 +901,6 @@ XPUSHs(p);
XPUSHs(s);
-=pod
-
-old method
-pdl *
-disa_convert_next_matvar_to_pdl(matfp)
-mat_t * matfp
-CODE:
-pdl * retval;
-matvar_t * matvar;
-retval = convert_next_matvar_to_pdl(matfp, &matvar);
-Mat_VarFree(matvar);
-ST(0) = sv_newmortal();
-if (retval != NULL) PDL->SetSV_PDL(ST(0),retval);
-
-=cut
-
int
_write_pdl_to_matlab_file (mat, piddle, varname, oned, compress)
mat_t * mat
|
