Fix some valgrind issues
[scilab.git] / scilab / modules / fftw / sci_gateway / c / sci_disposefftwlibrary.c
1 /*
2 * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 * Copyright (C) 2006 - INRIA - Allan CORNET
4 * Copyright (C) 2012 - Scilab Enterprises - Cedric Delamarre
5 *
6 * This file must be used under the terms of the CeCILL.
7 * This source file is licensed as described in the file COPYING, which
8 * you should have received as part of this distribution.  The terms
9 * are also available at
10 * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
11 *
12 */
13
14 #include "callfftw.h"
15 #include "fftwlibname.h"
16 #include "gw_fftw.h"
17 #include "localization.h"
18 #include "api_scilab.h"
19 #include "Scierror.h"
20
21 /*--------------------------------------------------------------------------*/
22 int sci_disposefftwlibrary(char *fname, unsigned long fname_len)
23 {
24     int iErr;
25
26     if (DisposeFFTWLibrary())
27     {
28         iErr = createScalarBoolean(pvApiCtx, nbInputArgument(pvApiCtx) + 1, 1); // true
29     }
30     else
31     {
32         iErr = createScalarBoolean(pvApiCtx, nbInputArgument(pvApiCtx) + 1, 0); // false
33     }
34     freefftwlibname();
35
36     if (iErr)
37     {
38         Scierror(999, _("%s: Memory allocation error.\n"), fname);
39         return iErr;
40     }
41
42     AssignOutputVariable(pvApiCtx, 1) = nbInputArgument(pvApiCtx) + 1;
43     ReturnArguments(pvApiCtx);
44
45     return 0;
46 }
47 /*--------------------------------------------------------------------------*/