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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
|
/*
* PsychToolbox2/Source/Common/PsychCellGlue.c
*
* Allen.Ingling@nyu.edu awi
* mario.kleiner.de@gmail.com mk
*
* PLATFORMS: All
*
* PROJECTS: All
*
* HISTORY:
*
* 11/17/03 awi wrote it.
* 03/28/11 mk Make 64-bit clean.
*
*/
#include "Psych.h"
#if PSYCH_LANGUAGE == PSYCH_MATLAB
/*
* PsychAllocOutCellVector()
*
* -If argument is optional we allocate the structure even if the argument is not present. If this behavior bothers you,
* then check within your code for the presense of a return argument before creating the struct array. We
* allocate space regardeless of whether the argument is present because this is consistant with other "PsychAllocOut*"
* functions which behave this way because in some situations subfunctions might derive returned results from values
* stored in an optional argument.
*
* -If position is -1 then don't attempt to return the created structure to the calling environment. Instead just
* allocate the structure and return it in pStruct. This is how to create a structure which is embeded within another
* structure using PsychSetStructArrayStructArray(). Note that we use -1 as the flag and not NULL because NULL is 0 and
* 0 is reserved for future use as a reference to the subfunction name, of if none then the function name.
*/
psych_bool PsychAllocOutCellVector(int position,
PsychArgRequirementType isRequired,
int numElements,
PsychGenericScriptType **pCell)
{
mxArray **mxArrayOut;
mwSize cellArrayNumDims = 2;
mwSize cellArrayDims[2];
PsychError matchError;
psych_bool putOut;
cellArrayDims[0] = 1;
cellArrayDims[1] = numElements;
if (position != kPsychNoArgReturn) { //Return the result to both the C caller and the scripting environment.
PsychSetReceivedArgDescriptor(position, FALSE, PsychArgOut);
PsychSetSpecifiedArgDescriptor(position, PsychArgOut, PsychArgType_cellArray, isRequired, 1,1,numElements,numElements,0,0);
*pCell = mxCreateCellArray(cellArrayNumDims, cellArrayDims);
mxArrayOut = PsychGetOutArgMxPtr(position);
matchError = PsychMatchDescriptors();
putOut = PsychAcceptOutputArgumentDecider(isRequired, matchError);
if (putOut)
*mxArrayOut=*pCell;
return(putOut);
} else { //Return the result only to the C caller, not to the calling environment. Ignore "required".
*pCell = mxCreateCellArray(cellArrayNumDims, cellArrayDims);
return(TRUE);
}
}
/*
* PsychSetCellVectorStringElement()
*
* The variable "index", the index of the element within the struct array, is zero-indexed.
*/
void PsychSetCellVectorStringElement(int index,
const char *text,
PsychGenericScriptType *cellVector)
{
size_t numElements;
psych_bool isCell;
mxArray *mxFieldValue;
//check for bogus arguments
numElements = mxGetM(cellVector) * mxGetN(cellVector);
if ((size_t) index >= numElements)
PsychErrorExitMsg(PsychError_internal, "Attempt to set a cell array field at an out-of-bounds index");
isCell = mxIsCell(cellVector);
if (!isCell)
PsychErrorExitMsg(PsychError_internal, "Attempt to set a cell within a non-existent cell array.");
//do stuff
mxFieldValue = mxCreateString(text);
mxSetCell(cellVector, (mwIndex) index, mxFieldValue);
if (PSYCH_LANGUAGE == PSYCH_OCTAVE) mxDestroyArray(mxFieldValue);
}
/*
* PsychSetCellVectorDoubleElement() - UNUSED
*
* Note: The variable "index" is zero-indexed.
void PsychSetCellVectorDoubleElement(int index,
double value,
PsychGenericScriptType *cellVector)
{
size_t numElements;
psych_bool isCell;
mxArray *mxFieldValue;
//check for bogus arguments
numElements = mxGetM(cellVector) * mxGetN(cellVector);
if ((size_t) index >= numElements)
PsychErrorExitMsg(PsychError_internal, "Attempt to set a cell array field at an out-of-bounds index");
isCell = mxIsCell(cellVector);
if (!isCell)
PsychErrorExitMsg(PsychError_internal, "Attempt to set a field within a non-existent cell array.");
//do stuff
mxFieldValue = mxCreateDoubleMatrix(1, 1, mxREAL);
mxGetPr(mxFieldValue)[0]= value;
mxSetCell(cellVector, (mwIndex) index, mxFieldValue);
if (PSYCH_LANGUAGE == PSYCH_OCTAVE) mxDestroyArray(mxFieldValue);
}
*/
/*
* PsychSetCellVectorNativeElement() - UNUSED
void PsychSetCellVectorNativeElement(int index,
PsychGenericScriptType *pNativeElement,
PsychGenericScriptType *cellVector)
{
size_t numElements;
psych_bool isCell;
//check for bogus arguments
numElements = mxGetM(cellVector) * mxGetN(cellVector);
if ((size_t) index >= numElements)
PsychErrorExitMsg(PsychError_internal, "Attempt to set a cell array field at an out-of-bounds index");
isCell = mxIsCell(cellVector);
if (!isCell)
PsychErrorExitMsg(PsychError_internal, "Attempt to set a field within a non-existent structure.");
//do stuff
mxSetCell(cellVector, (mwIndex) index, pNativeElement);
}
*/
/*
* PsychAllocInNativeCellVector() - UNUSED
psych_bool PsychAllocInNativeCellVector(int position, PsychArgRequirementType isRequired, const PsychGenericScriptType **cellVector)
{
PsychError matchError;
psych_bool acceptArg;
PsychSetReceivedArgDescriptor(position, FALSE, PsychArgIn);
PsychSetSpecifiedArgDescriptor(position, PsychArgIn, PsychArgType_cellArray, isRequired, 1, kPsychUnboundedArraySize,1, kPsychUnboundedArraySize,0, 1);
matchError = PsychMatchDescriptors();
acceptArg = PsychAcceptInputArgumentDecider(isRequired, matchError);
if (acceptArg)
*cellVector = PsychGetInArgMxPtr(position);
return(acceptArg);
}
*/
/*
* PsychAllocInNativeString() - UNUSED
psych_bool PsychAllocInNativeString(int position, PsychArgRequirementType isRequired, const PsychGenericScriptType **nativeString)
{
PsychError matchError;
psych_bool acceptArg;
PsychSetReceivedArgDescriptor(position, FALSE, PsychArgIn);
PsychSetSpecifiedArgDescriptor(position, PsychArgIn, PsychArgType_char, isRequired, 1, kPsychUnboundedArraySize,1, kPsychUnboundedArraySize,0, 1);
matchError = PsychMatchDescriptors();
acceptArg = PsychAcceptInputArgumentDecider(isRequired, matchError);
if (acceptArg)
*nativeString = PsychGetInArgMxPtr(position);
return(acceptArg);
}
*/
#endif
|
