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
|
function ThePath=PsychtoolboxConfigDir(subDir)
% Syntax: path=PsychtoolboxConfigDir([subDir])
%
% Purpose: Look for a folder for storing Psychtoolbox preferences; create if
% necessary.
%
% When called without optional 'subDir' argument, the path to the
% root configuration folder is returned (and the folder optionally
% created if it doesn't exist yet). When 'subDir' is given, the
% path to the subfolder 'subDir' inside the root configuration
% folder is returned - and the 'subDir' created inside that folder
% if neccessary. Subfolders are useful to group related
% configuration data, e.g., all settings for DAQ toolbox, all
% display calibration settings, etc.
%
% History: 1/23/08 mpr configured it was about time to write this
% 3/7/08 mpr streamlined this
% 3/8/08 mk A bit more of streamlining - Don't write the
% PsychPrefsfolder.m file anymore.
% 4/28/08 mk Made compatible with Octave, added 'subDir'
% option.
% 6/14/09 mk Remove Octave code -> Not needed anymore.
% 4/10/17 mk Some cleanup and error reporting improvements.
persistent PTBPrefPath %#ok<REDEF>
ThePath = [];
% Already have a cached path to config directory?
if ~isempty(PTBPrefPath) %#ok<NODEF>
if exist(PTBPrefPath,'dir') %#ok<NODEF>
% Yes - Assign it:
ThePath=PTBPrefPath;
end
end
% No path yet? If so find it - and create configdir folder if neccessary.
if isempty(ThePath)
if IsOSX
% Did this instead of '~/' because the which command above and the addpath
% commands below will expand '~/' to a full path; echoing the HOME
% environment variable was the first way I found to get said full path so
% that strings will match when they should
HomeDir = getenv('HOME');
StringStart = [HomeDir '/Library/Preferences/'];
elseif IsLinux
HomeDir = getenv('HOME');
StringStart = [HomeDir '/.'];
elseif IsWindows
[ErrMsg,StringStart] = dos('echo %AppData%');
StringStart = deblank(StringStart);
if strcmp(StringStart,'%AppData%')
FoundHomeDir = 0;
[ErrMsg,HomeDir] = dos('echo %UserProfile%');
HomeDir = deblank(HomeDir);
if strcmp(HomeDir,'%UserProfile%')
HomeDir = uigetdir('','Please find your home folder for me');
if ischar(HomeDir)
FoundHomeDir = 1;
else
warning(sprintf(['I could not find your home directory or understand your input so I am storing\n' ...
'preferences folder in the current working directory: %s.\n'],pwd)); %#ok<SPWRN>
StringStart = [pwd filesep];
end
else
FoundHomeDir = 1;
end
if FoundHomeDir
[DirMade,DirMessage]=mkdir(HomeDir,'Application Data'); %#ok<NASGU>
if DirMade
StringStart = [HomeDir filesep 'Application Data' filesep];
else
warning(sprintf('"Application Data" folder neither exists nor is createable;\nstoring preferences in home directory.')); %#ok<WNTAG,SPWRN>
StringStart = [HomeDir filesep];
end
end
else
StringStart = [StringStart filesep];
end
else
fprintf(['I do not know your operating system, so I don''t know where I should store\n' ...
'Preferences. I''m putting them in the current working directory:\n %s.\n\n'],pwd);
StringStart = [pwd filesep];
end
StringStart = strtrim(StringStart);
TheDir = [StringStart 'Psychtoolbox'];
if exist(TheDir,'dir')
ThePath = TheDir; %#ok<NASGU>
else
[DirMade, DirMessage] = mkdir(TheDir);
if DirMade
TheDir = [StringStart 'Psychtoolbox'];
ThePath=TheDir; %#ok<NASGU>
else % if exist(TheDir,'dir')
error(sprintf('I could not create this folder to store your preferences in:\n\n%s\nReason: [%s]\n\nValid filename? What are the permissions on that folder?',TheDir, DirMessage)); %#ok<SPERR>
end % if exist(TheDir,'dir'); else
end
ThePath = [ThePath filesep];
PTBPrefPath = ThePath;
end
% Ok, Psychtoolbox root configuration folder exists and 'ThePath' is the
% fully qualified path to it.
% Did user specify a subDir inside that folder?
if exist('subDir', 'var')
% Yes. Usercode wants path to subdirectory inside config dir. Assemble
% path name:
ThePath = [ThePath subDir];
if ThePath(end) ~= filesep
ThePath = [ThePath filesep];
end
% Create subDir on first use:
if ~exist(ThePath, 'dir')
[DirMade, DirMessage] = mkdir(ThePath);
if DirMade == 0
error(sprintf('I could not create this folder to store your preferences in:\n\n%s\nReason: [%s]\n\nValid filename? What are the permissions on that folder?',ThePath, DirMessage)); %#ok<SPERR>
end
end
end
% Return 'ThePath':
return;
|
