Scilab [trunk]: scilab/modules/intersci/src/lib/out.c Source File

00001 /*-----------------------------------------------------------------------------------*/
00002 /* CORNET Allan */
00003 /* INRIA 2006 */
00004 /*-----------------------------------------------------------------------------------*/
00005 #include <string.h>
00006 #include "machine.h"
00007 #include "stack-c.h"
00008 /*-----------------------------------------------------------------------------------*/
00009 extern int C2F(basout)();
00010 int C2F(out)(char *str,long int str_len);
00011 /*-----------------------------------------------------------------------------------*/
00012 int C2F(out)(char *str,long int str_len)
00013 {
00014     static integer io;
00015     C2F(basout)(&io, &C2F(iop).wte, str, strlen(str));
00016     return 0;
00017 }
00018 /*-----------------------------------------------------------------------------------*/