Fix a typo in fftw.start
[scilab.git] / scilab / modules / fftw / etc / fftw.start
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2009-2011  - DIGITEO - Allan CORNET
3 //
4 // This file must be used under the terms of the CeCILL.
5 // This source file is licensed as described in the file COPYING, which
6 // you should have received as part of this distribution.  The terms
7 // are also available at
8 // http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
9
10 function startModule()
11   if %fftw then
12     if getos() == "Windows" then
13       librarynamefftw = SCI+"/bin/fftw/libfftw3-3"+getdynlibext();
14       librarynamefftw3 = "";
15     else
16       librarynamefftw = "libfftw3"+getdynlibext();
17       // Some distribs/os are not adding the .3 extension...
18       librarynamefftw3 = librarynamefftw+".3";
19     end
20
21     if ( loadfftwlibrary(librarynamefftw3) | loadfftwlibrary(librarynamefftw)) then
22       // replace scilab fft function by fftw
23       clearfun('fft');
24       newfun('fft', funptr('fftw'));
25
26     else  // if ( loadfftwlibrary(librarynamefftw) )
27       settings_file = pathconvert(SCIHOME+"/.scilab_settings", %f, %t)
28       w = fileinfo(settings_file);
29       show = %t;
30       if w <> [] then
31         show = grep(mgetl(SCIHOME+"/.scilab_settings"),"displayWarningFFTW=no")==[]
32       end
33       if show then
34         MSG_FTTW = [_("You chose to install Scilab with the fftw module.");
35                   _("This module requires: "+librarynamefftw+" (GPL licence).");
36                   _("Scilab will use standard fft by default until you install this library.");
37                   _("See help fftw for more information.")];
38
39         if getscilabmode() == "STD" then
40           messagebox(MSG_FTTW,"","info");
41         else
42           warning(MSG_FTTW);
43         end
44         mputl("displayWarningFFTW=no",SCIHOME+"/.scilab_settings")
45       end
46     end // if ( loadfftwlibrary(librarynamefftw) )
47   end
48
49 endfunction
50
51 startModule();
52 clear startModule;