43c0f5c0b4eb4855f89c3c16a2ac8b9cf64e795c
[scilab.git] / scilab / modules / core / sci_gateway / c / sci_clear.c
1 /*
2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3  * Copyright (C) 2006 - INRIA - Allan CORNET
4  * 
5  * This file must be used under the terms of the CeCILL.
6  * This source file is licensed as described in the file COPYING, which
7  * you should have received as part of this distribution.  The terms
8  * are also available at    
9  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
10  *
11  */
12 #include "gw_core.h"
13 #include "machine.h"
14 /*--------------------------------------------------------------------------*/
15 extern int C2F(intclear)(char *fname,unsigned long fname_len);
16 /*--------------------------------------------------------------------------*/
17 int C2F(sci_clear)(char *fname,unsigned long fname_len)
18 {
19         C2F(intclear)(fname,fname_len);
20         return 0;
21 }
22 /*--------------------------------------------------------------------------*/