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
186
|
function PsychStartup
% PsychStartup -- Perform Psychtoolbox related setup at Matlab/Octave startup.
%
% This performs setup of Matlab or Octave at session startup for
% Psychtoolbox.
%
% On MS-Windows, it currently detects if the GStreamer 1.18+ runtime is
% installed, as this is required for Screen() multi-media functions to
% work. It performs GStreamer setup, or outputs a warning if the runtime is
% missing.
%
% This function is normally called from the startup.m Matlab startup file,
% or from the .octaverc startup file on GNU/Octave.
%
% History:
% 14.09.2012 mk Written.
% 14.01.2013 mk Make path detection more robust.
% 12.09.2013 mk Also apply GStreamer-SDK setup to 32-Bit Matlab on Windows.
% 26.08.2014 mk Switch the 64-Bit setup to the GStreamer-1.4.0+ runtime.
% 17.10.2015 mk Add warning about complete failure of Screen() for Octave on Windows.
% 30.10.2015 mk Setenv PSYCH_GSTREAMER_SDK_ROOT to help GStreamer on Octave-4 for Windows.
% 14.01.2016 mk Make detection more robust, delete dead code for GStreamer 0.10.
% 07.08.2019 mk Update for Psychtoolbox 3.0.16 - GStreamer 1.16+ MSVC needed.
% 01.09.2020 mk Update for GStreamer 1.18.0 - GStreamer 1.18+ MSVC detection.
% 26.10.2020 mk Update for GStreamer 1.18.0+ use only.
% 21.11.2020 mk Reenable GStreamer on octave-cli for Windows. Workaround no longer needed.
% 11.10.2021 mk Fix wrong drive letters in Win fallback GStreamer detection, introduced in 3.0.17.0.
% Try-Catch protect the function, so Matlab startup won't fail due to
% errors in this function:
try
% Setup for MS-Windows:
if IsWin
% Need to assign a proper install location for the
% www.gstreamer.net GStreamer-1.16.0+ MSVC runtime libraries, otherwise
% use of GStreamer based functions would fail due to unresolved
% link dependencies:
% Must omit GStreamer runtime path on Octave in CLI mode, to avoid
% build trouble due to lib clashes between Octave and GStreamer:
% useGStreamer = ~IsOctave || ~any(strfind(cell2mat (argv'), '--no-gui'));
% GStreamer disable for building on octave-cli: No longer needed since Octave 5.2+
useGStreamer = 1;
% Find path to SDK-Root folder: Should be defined in env variable
% by installer:
if Is64Bit
% Use 64-Bit GStreamer runtime for 64-Bit Matlab/Octave on Windows:
sdkroot = getenv('GSTREAMER_1_0_ROOT_MSVC_X86_64');
suffix = 'msvc_x86_64\';
else
% Use 32-Bit GStreamer runtime for 32-Bit Octave-5.2+ on Windows:
sdkroot = getenv('GSTREAMER_1_0_ROOT_MSVC_X86');
suffix = 'msvc_x86\';
end
if isempty(sdkroot)
if Is64Bit
fprintf('PsychStartup: Environment variable GSTREAMER_1_0_ROOT_MSVC_X86_64 is undefined.\n');
else
fprintf('PsychStartup: Environment variable GSTREAMER_1_0_ROOT_MSVC_X86 is undefined.\n');
end
fprintf('PsychStartup: Either GStreamer-1.18 MSVC or a later version is not installed at all, or if it is installed, then\n');
fprintf('PsychStartup: something is botched. Trying various common locations for the GStreamer runtime to keep going.\n');
else
if ~exist(sdkroot, 'dir')
% Env variable points to non-existent SDK dir. How peculiar?
% Invalidate invalid sdkroot, so fallback code can run:
if Is64Bit
fprintf('PsychStartup: Environment variable GSTREAMER_1_0_ROOT_MSVC_X86_64 points to non-existent folder?!?\n');
else
fprintf('PsychStartup: Environment variable GSTREAMER_1_0_ROOT_MSVC_X86 points to non-existent folder?!?\n');
end
fprintf('PsychStartup: The missing or inaccessible path to GStreamer is: %s\n', sdkroot);
fprintf('PsychStartup: Something is botched. Trying various common locations for the runtime to keep going.\n');
sdkroot = [];
end
end
% Probe standard install location on drives C,D,E,F,G:
if isempty(sdkroot) && exist(['C:\gstreamer\1.0\' suffix], 'dir')
sdkroot = ['C:\gstreamer\1.0\' suffix];
end
if isempty(sdkroot) && exist(['D:\gstreamer\1.0\' suffix], 'dir')
sdkroot = ['D:\gstreamer\1.0\' suffix];
end
if isempty(sdkroot) && exist(['E:\gstreamer\1.0\' suffix], 'dir')
sdkroot = ['E:\gstreamer\1.0\' suffix];
end
if isempty(sdkroot) && exist(['F:\gstreamer\1.0\' suffix], 'dir')
sdkroot = ['F:\gstreamer\1.0\' suffix];
end
if isempty(sdkroot) && exist(['G:\gstreamer\1.0\' suffix], 'dir')
sdkroot = ['G:\gstreamer\1.0\' suffix];
end
if isempty(sdkroot) || ~exist(sdkroot, 'dir')
fprintf('\nPsychStartup: Path to GStreamer runtime is undefined! This probably means that\n');
fprintf('PsychStartup: the 64-Bit GStreamer 1.18+ MSVC runtime from www.gstreamer.net is not installed.\n');
% PTB 3.0.17 - GStreamer is always needed, also on Matlab.
if 1 || IsOctave
fprintf('PsychStartup: The Psychtoolbox Screen() function will not work at all until you fix\n');
else
fprintf('PsychStartup: The Psychtoolbox Screen() multimedia functions and the new ''DrawText''\n');
fprintf('PsychStartup: high quality text renderer will fail to work until you fix\n');
end
fprintf('PsychStartup: this! Read ''help GStreamer'' for instructions.\n\n');
sdkroot = [];
else
sdkroot = [sdkroot 'bin'];
end
% Get current path:
path = getenv('PATH');
if useGStreamer && ~isempty(sdkroot)
% Matlab, or Octave in GUI mode: Prepend sdkroot to path:
newpath = [sdkroot ';' path];
% Check if we have the right flavor of GStreamer, the MSVC variant:
if ~isdeployed
addpath(sdkroot);
if exist('libgstreamer-1.0-0.dll', 'file') && ~exist('gstreamer-1.0-0.dll', 'file')
% Wrong type, the MinGW build instead of the MSVC build!
fprintf('\n\n');
fprintf('PsychStartup: WRONG variant of the GStreamer runtimes installed! This is\n');
fprintf('PsychStartup: the MinGW variant, but Psychtoolbox needs the MSVC variant!\n');
fprintf('PsychStartup: The Psychtoolbox Screen() function will NOT WORK AT ALL until\n');
fprintf('PsychStartup: you fix this! Read ''help GStreamer'' for instructions.\n\n');
warning('WRONG TYPE OF GStreamer packages INSTALLED! WE NEED THE MSVC variant, but this is the MINGW variant!');
end
rmpath(sdkroot);
end
% Also store sdkroot in a separate environment variable, to be used
% by Screen for Octave internally:
setenv('PSYCH_GSTREAMER_SDK_ROOT', sdkroot);
fprintf('\nPsychStartup: Adding path of installed GStreamer runtime to library path. [%s]\n', sdkroot);
else
newpath = path;
fprintf('\nPsychStartup: Use of GStreamer disabled or impossible.');
fprintf('\nPsychStartup: Only leightweight GStreamer-less Screen() mex file will work.\n');
end
% For Octave-5.1 on Windows, also need to prepend path to portaudio dll
% to library path, otherwise PsychPortAudio won't load:
driverloadpath = [PsychtoolboxRoot 'PsychSound'];
newpath = [driverloadpath ';' newpath];
% For moglcore we need to prepend the path to freeglut.dll:
if Is64Bit
% Need 64-Bit freeglut.dll:
driverloadpath = [PsychtoolboxRoot 'PsychOpenGL/MOGL/core/x64'];
else
% Need 32-Bit freeglut.dll:
driverloadpath = [PsychtoolboxRoot 'PsychOpenGL/MOGL/core'];
end
newpath = [driverloadpath ';' newpath];
% For PsychHID we need to prepend the path to libusb-1.0.dll:
if Is64Bit
% 64-Bit version of libusb.dll
driverloadpath = [PsychtoolboxRoot 'PsychContributed' filesep 'x64' filesep];
else
% 32-Bit version of libusb.dll
driverloadpath = [PsychtoolboxRoot 'PsychContributed' filesep ];
end
newpath = [driverloadpath ';' newpath];
setenv('PATH', newpath);
end
catch %#ok<*CTCH>
fprintf('PTB-WARNING: Call to PsychStartup() failed!! Error messages:\n');
ple;
end
end
|
