File: EyelinkReadFromTracker.c

package info (click to toggle)
psychtoolbox-3 3.0.19.14.dfsg1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 86,796 kB
  • sloc: ansic: 176,245; cpp: 20,103; objc: 5,393; sh: 2,753; python: 1,397; php: 384; makefile: 193; java: 113
file content (78 lines) | stat: -rw-r--r-- 1,827 bytes parent folder | download | duplicates (7)
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
/*
 PsychSourceGL/Source/Common/Eyelink/EyelinkReadFromTracker.c

 PLATFORMS: All
 
 PROJECTS: Eyelink 
 
 AUTHORS:

 nuha@sr-research.com nj
  
 HISTORY:
 
 11-03-09  nj		created
 
*/

#include "PsychEyelink.h"

static char useString[] = "[result, reply] = Eyelink('ReadFromTracker', VariableName);";

static char synopsisString[] =
	"Sends a text variable 'VariableName' name whose value is to be read and returned by the tracker as a text string.\n"
	"Returns text with reply to last read request.\n";

static char seeAlsoString[] = "";

/*
 ROUTINE: EyelinkReadFromTracker 
 PURPOSE:
 Sends a text variable name whose value is to be read and returned by the tracker as a text string.
 Returns text with reply to last read request. */

PsychError EyelinkReadFromTracker(void)
{
	int		result;
	char	*varbuf;
	char    replybuf[100] = "";
	int		t;
	
	//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(PsychCapNumInputArgs(1));
	PsychErrorExit(PsychRequireNumInputArgs(1));
	PsychErrorExit(PsychCapNumOutputArgs(2));
	
	// Verify eyelink is up and running
	EyelinkSystemIsConnected();
	EyelinkSystemIsInitialized();
	
	PsychAllocInCharArg(1, TRUE, &varbuf);
	
	result = eyelink_read_request(varbuf);
	
	if (!result){
		t = current_msec();

		// Waits for a maximum of 500 msec
		while(current_msec()-t < 500)
		{
			if(eyelink_read_reply(replybuf) == OK_RESULT)
			{
				break;
			}
            
            // OS friendly wait for at least 1 msec before retry:
            PsychYieldIntervalSeconds(0.001);
		}
	}

	PsychCopyOutDoubleArg(1, TRUE, result);
	PsychCopyOutCharArg(2, TRUE, replybuf);	

	return(PsychError_none);
}