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
|
/*
Psychtoolbox3/Source/Common/SCREENTestStructures.c
AUTHORS:
Allen.Ingling@nyu.edu awi
PLATFORMS:
This file should build on any platform.
HISTORY:
1/14/03 awi Created.
DESCRIPTION:
Test the functions in PsychStructureGlue.h.
TO DO:
*/
#include "Screen.h"
static char useString[] = "struct=Screen('TestStructures')";
static char synopsisString[] =
"return a structure";
static char seeAlsoString[] = "";
PsychError SCREENTestStructures(void)
{
const char *farmFieldNames[]={"dogs", "chickens", "horses", "owner", "tractors"};
const char *tractorFieldNames[]={"Ford", "Deer", "Kubota"};
PsychGenericScriptType *farmStructArray, *tractorsStructArray;
//all sub functions should have these two lines
PsychPushHelp(useString, synopsisString, seeAlsoString);
if(PsychIsGiveHelp()){PsychGiveHelp();return(PsychError_none);};
//check to see if the user supplied superfluous arguments
PsychErrorExit(PsychCapNumOutputArgs(1));
PsychErrorExit(PsychCapNumInputArgs(0));
//create a structure and populate it.
PsychAllocOutStructArray(1, FALSE, 1, 5, farmFieldNames, &farmStructArray);
PsychSetStructArrayDoubleElement("dogs", 0, 1, farmStructArray);
PsychSetStructArrayDoubleElement("chickens", 0, 5, farmStructArray);
PsychSetStructArrayDoubleElement("horses", 0, 2, farmStructArray);
PsychSetStructArrayStringElement("owner", 0, "Farmer Ingling", farmStructArray);
PsychAllocOutStructArray(-1, FALSE, 1, 3, tractorFieldNames, &tractorsStructArray);
PsychSetStructArrayDoubleElement("Ford", 0, 1, tractorsStructArray);
PsychSetStructArrayDoubleElement("Deer", 0, 1, tractorsStructArray);
PsychSetStructArrayDoubleElement("Kubota", 0, 0, tractorsStructArray);
PsychSetStructArrayStructElement("tractors",0, tractorsStructArray, farmStructArray);
return(PsychError_none);
}
|
