CMSCOPE changed

4 files changed, 135 insertions, 0 deletions

diff --git a/modules/time/includes/dynlib_time.h b/modules/time/includes/dynlib_time.h
new file mode 100755
index 000000000..b0cb43c84
--- /dev/null
+++ b/modules/time/includes/dynlib_time.h
@@ -0,0 +1,28 @@
+/*
+* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+* Copyright (C) DIGITEO - 2009 - Allan CORNET
+*
+* This file must be used under the terms of the CeCILL.
+* This source file is licensed as described in the file COPYING, which
+* you should have received as part of this distribution.  The terms
+* are also available at
+* http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
+*
+*/
+
+/*--------------------------------------------------------------------------*/
+#ifndef __DYNLIB_TIME_H__
+#define __DYNLIB_TIME_H__
+
+#ifdef _MSC_VER
+#ifdef TIME_EXPORTS
+#define TIME_IMPEXP __declspec(dllexport)
+#else
+#define TIME_IMPEXP __declspec(dllimport)
+#endif
+#else
+#define TIME_IMPEXP
+#endif
+
+#endif /* __DYNLIB_TIME_H__ */
+/*--------------------------------------------------------------------------*/
diff --git a/modules/time/includes/gw_time.h b/modules/time/includes/gw_time.h
new file mode 100755
index 000000000..eb9d540bf
--- /dev/null
+++ b/modules/time/includes/gw_time.h
@@ -0,0 +1,32 @@
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) INRIA - Allan CORNET
+ *
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at
+ * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
+ *
+ */
+
+/*--------------------------------------------------------------------------*/
+#ifndef __GW_TIME_H__
+#define __GW_TIME_H__
+/*--------------------------------------------------------------------------*/
+#include "dynlib_time.h"
+/*--------------------------------------------------------------------------*/
+TIME_IMPEXP int gw_time(void);
+/*--------------------------------------------------------------------------*/
+/* interface for the previous function Table */
+/*--------------------------------------------------------------------------*/
+TIME_IMPEXP int sci_getdate(char *fname, unsigned long fname_len);
+TIME_IMPEXP int sci_calendar(char *fname, unsigned long fname_len);
+TIME_IMPEXP int sci_timer(char *fname, unsigned long fname_len);
+TIME_IMPEXP int sci_sleep(char *fname, unsigned long fname_len);
+TIME_IMPEXP int sci_xpause(char *fname, unsigned long fname_len);
+TIME_IMPEXP int sci_realtimeinit(char *fname, unsigned long fname_len);
+TIME_IMPEXP int sci_realtime(char *fname, unsigned long fname_len);
+/*--------------------------------------------------------------------------*/
+#endif /*  __GW_TIME_H__ */
+/*--------------------------------------------------------------------------*/
diff --git a/modules/time/includes/realtime.h b/modules/time/includes/realtime.h
new file mode 100755
index 000000000..ea6c7cd24
--- /dev/null
+++ b/modules/time/includes/realtime.h
@@ -0,0 +1,38 @@
+/*--------------------------------------------------------------------------*/
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) INRIA - Sylvestre LEDRU
+ *
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at
+ * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
+ *
+ */
+/*--------------------------------------------------------------------------*/
+#ifndef  __REALTIME_H__
+#define __REALTIME_H__
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#include "machine.h"
+
+    /**
+    * @TODO add comment
+    */
+    int C2F(realtimeinit)(double *t, double *scale);
+
+    /**
+    * @TODO add comment
+    */
+    int C2F(realtime)(double *t);
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif /* __REALTIME_H__ */
+/*--------------------------------------------------------------------------*/
\ No newline at end of file
diff --git a/modules/time/includes/timer.h b/modules/time/includes/timer.h
new file mode 100755
index 000000000..4c651b67d
--- /dev/null
+++ b/modules/time/includes/timer.h
@@ -0,0 +1,37 @@
+/*--------------------------------------------------------------------------*/
+/*
+* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+* Copyright (C) INRIA
+* Copyright (C) DIGITEO - 2009 - Allan CORNET
+*
+* This file must be used under the terms of the CeCILL.
+* This source file is licensed as described in the file COPYING, which
+* you should have received as part of this distribution.  The terms
+* are also available at
+* http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
+*
+*/
+
+/*--------------------------------------------------------------------------*/
+#ifndef __TIMER_H__
+#define __TIMER_H__
+
+#include "machine.h" /* C2F */
+
+/**
+* Returns the CPU time since the preceding call to "C2F(timer)"
+* used to call from fortran
+* uses scilab_timer
+* @param etime
+* @return 0
+*/
+int C2F(timer)(double *etime);
+
+/**
+* Returns the CPU time since the preceding call to "scilab_timer"
+* @return elapsed time
+*/
+double scilab_timer(void);
+
+#endif /* __TIMER_H__ */
+/*--------------------------------------------------------------------------*/