utf: io 2
[scilab.git] / scilab / modules / io / src / c / systemc.c
1 /*
2 * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 * Copyright (C) 2010 - DIGITEO - Allan CORNET
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 */
11
12 /*--------------------------------------------------------------------------*/
13 /* Interface with system C function */
14 /*--------------------------------------------------------------------------*/
15 #include <stdio.h>
16 #include <stdlib.h>
17 #ifdef _MSC_VER
18 #include "spawncommand.h"
19 #else
20 #include <sys/wait.h>
21 #include "sci_malloc.h"
22 #endif
23 #include "charEncoding.h"
24 #include "systemc.h"
25 /*--------------------------------------------------------------------------*/
26 int systemc(char *command, int *stat)
27 {
28 #ifdef _MSC_VER
29     *stat = CallWindowsShell(command);
30 #else
31     int status = system(command);
32     /* provide exit value of the child */
33     *stat = WEXITSTATUS(status);
34 #endif
35     return  0;
36 }
37 /*--------------------------------------------------------------------------*/