73c6415817097be1b9e791db51756258fa3b9e01
[scilab.git] / scilab / modules / io / src / c / GetenvB.c
1 /*
2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3  * Copyright (C) INRIA
4  * Copyright (C) INRIA - Sylvestre LEDRU
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.1-en.txt
11  *
12  */
13 /*--------------------------------------------------------------------------*/
14 #include "GetenvB.h"
15 #include "getenvc.h"
16 /*--------------------------------------------------------------------------*/
17 void GetenvB(char *name, char *env, int len)
18 {
19     int ierr = 0;
20     int one = 1;
21
22     C2F(getenvc)(&ierr, name, env, &len, &one);
23     if (ierr == 0)
24     {
25         char *last = &env[len - 1];
26         while ( *last == ' ' )
27         {
28             *last = '\0' ;
29         }
30         last--;
31     }
32     else
33     {
34         env[0] = '\0' ;
35     }
36 }
37 /*--------------------------------------------------------------------------*/