Diff of /ltfatstart.m[6cd45d] .. [41302f]  Maximize  Restore

Switch to unified view

a/ltfatstart.m b/ltfatstart.m
`...`
`...`
43
```    error(MSG);
```
43
```    error(MSG);
```
44
```else
```
44
```else
```
45
```    ltfat_version = fgetl (FID);
```
45
```    ltfat_version = fgetl (FID);
```
46
```    fclose(FID);
```
46
```    fclose(FID);
```
47
```end
```
47
```end
```
48
49
```%% --- Check for old versions of Octave and Matlab
```
50
```if isoctave
```
51
```   major_rq=3;
```
52
```   minor_rq=6;
```
53
```   intp='Octave';
```
54
```   req_versionname='3.6.0';
```
55
```else
```
56
```   major_rq=7;
```
57
```   minor_rq=9;
```
58
```   intp='Matlab';
```
59
```   req_versionname='2009b';
```
60
```end;
```
61
62
```% Split into major and minor version
```
63
```s=version;
```
64
```stops=find(s=='.');
```
65
```major_no  = str2num(s(1:stops(1)));
```
66
```if numel(stops)==1
```
67
```  minor_no  = str2num(s(stops(1)+1:end));
```
68
```  bugfix_no = 0;
```
69
```else
```
70
```  minor_no  = str2num(s(stops(1)+1:stops(2)));
```
71
```  bugfix_no = str2num(s(stops(2)+1:end));
```
72
```end;
```
73
74
```% Do the check, multiply by some big number to make the check easy
```
75
```if major_rq*1000+minor_rq>major_no*1000+minor_no
```
76
```  warning(['Your version of %s is too old for this version of LTFAT ' ...
```
77
```         'to function proberly. Your need at least version %s of %s.'],...
```
78
```    intp,req_versionname,intp);
```
79
```end;
```
48
80
49
81
50
```%% -----------  install the modules -----------------
```
82
```%% -----------  install the modules -----------------
```
51
83
52
```modules={};
```
84
```modules={};
```
`...`
`...`
110
```%    end;
```
142
```%    end;
```
111
```%  end;
```
143
```%  end;
```
112
```%end;
```
144
```%end;
```
113
145
114
```if ltfatstartprint
```
146
```if ltfatstartprint
```
147
```  try
```
115
```  s=which('comp_pgauss');
```
148
```    s=which('comp_pgauss');
```
116
```  if isempty(s)
```
149
```    if isempty(s)
```
117
```    error('comp_pgauss not found, something is wrong.')
```
150
```      error('comp_pgauss not found, something is wrong.')
```
118
```  end;
```
151
```    end;
```
119
```
```
152
```
```
120
```  if strcmp(s(end-1:end),'.m')
```
153
```    if strcmp(s(end-1:end),'.m')
```
121
```    backend = 'LTFAT is using the script language backend.';
```
154
```      backend = 'LTFAT is using the script language backend.';
```
122
```  else
```
123
```    if isoctave
```
124
```      backend = 'LTFAT is using the C++ Octave backend.';
```
125
```    else
```
155
```    else
```
156
```      if isoctave
```
157
```        backend = 'LTFAT is using the C++ Octave backend.';
```
158
```      else
```
126
```      backend = 'LTFAT is using the MEX backend.';
```
159
```        backend = 'LTFAT is using the MEX backend.';
```
160
```      end;
```
127
```    end;
```
161
```    end;
```
162
```  catch
```
163
```    backend = 'Error with backend, consider running "ltfatmex clean" immidiatly.';
```
128
```  end;
```
164
```  end;
```
129
```
```
165
```
```
130
```  banner = sprintf(['LTFAT version %s. Copyright 2005-2013 Peter L. Søndergaard. ' ...
```
166
```  banner = sprintf(['LTFAT version %s. Copyright 2005-2013 Peter L. Søndergaard. ' ...
```
131
```                    'For help, please type "ltfathelp". %s'], ...
```
167
```                    'For help, please type "ltfathelp". %s'], ...
```
132
```                   ltfat_version,backend);
```
168
```                   ltfat_version,backend);
```
133
```
```
169
```
```
`...`
`...`
148
```%% ---------- other initializations ---------------------
```
184
```%% ---------- other initializations ---------------------
```
149
185
150
```% Force the loading of FFTW, necessary for Matlab 64 bit on Linux. Thanks
```
186
```% Force the loading of FFTW, necessary for Matlab 64 bit on Linux. Thanks
```
151
```% to NFFT for this trick.
```
187
```% to NFFT for this trick.
```
152
```fft([1,2,3,4]);
```
188
```fft([1,2,3,4]);
```
189