erro function addition.
Bruno Jofret [Fri, 26 Oct 2007 13:50:57 +0000 (13:50 +0000)]
scilab/modules/output_stream/includes/erro.h [new file with mode: 0644]
scilab/modules/output_stream/src/c/erro.c [new file with mode: 0644]

diff --git a/scilab/modules/output_stream/includes/erro.h b/scilab/modules/output_stream/includes/erro.h
new file mode 100644 (file)
index 0000000..0308d38
--- /dev/null
@@ -0,0 +1,21 @@
+/*
+**  -*- C -*-
+**
+** erro.h
+** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
+**
+** Started on  Thu Oct 25 11:02:46 2007 bruno
+** Last update Thu Oct 25 11:03:45 2007 bruno
+**
+** Copyright INRIA 2007
+*/
+
+#ifndef __ERRO_H__
+#define __ERRO_H__
+
+#include "machine.h"
+#include "Scierror.h"
+
+int C2F(erro)(char *str,unsigned int str_len);
+
+#endif /* !__ERRO_H__ */
diff --git a/scilab/modules/output_stream/src/c/erro.c b/scilab/modules/output_stream/src/c/erro.c
new file mode 100644 (file)
index 0000000..d785a21
--- /dev/null
@@ -0,0 +1,12 @@
+/*-----------------------------------------------------------------------------------*/
+/* CORNET Allan */
+/* INRIA 2006 */
+/*-----------------------------------------------------------------------------------*/
+#include "erro.h"
+/*-----------------------------------------------------------------------------------*/
+int C2F(erro)(char *str,unsigned int str_len)
+{
+  Scierror(9999,str);
+  return 0;
+}
+/*-----------------------------------------------------------------------------------*/