reorganization (move some .c files src/ in src/c) ;)
[scilab.git] / scilab / modules / fftw / src / c / fftwlibname.c
1 /*-----------------------------------------------------------------------------------*/
2 /* INRIA 2007 */
3 /* Allan CORNET */
4 /*-----------------------------------------------------------------------------------*/
5 #include <string.h>
6 #include "stdlib.h"
7 #include "fftwlibname.h"
8 #include "MALLOC.h"
9 /*-----------------------------------------------------------------------------------*/ 
10 char *fftwlibname = NULL;
11 /*-----------------------------------------------------------------------------------*/ 
12 void setfftwlibname(char *libname)
13 {
14         if (libname)
15         {
16                 if (fftwlibname) {FREE(fftwlibname);fftwlibname = NULL;}
17                 fftwlibname = (char *)MALLOC(sizeof(char)*(strlen(libname)+1));
18                 strcpy(fftwlibname,libname);
19         }
20 }
21 /*-----------------------------------------------------------------------------------*/ 
22 char *getfftwlibname(void)
23 {
24         char *name = NULL;
25
26         if (fftwlibname)
27         {
28                 name = (char *)MALLOC(sizeof(char)*(strlen(fftwlibname)+1));
29                 strcpy(name,fftwlibname);
30         }
31
32         return name;
33 }
34 /*-----------------------------------------------------------------------------------*/