summaryrefslogtreecommitdiff
path: root/2.3-1/src/c/Files
diff options
context:
space:
mode:
Diffstat (limited to '2.3-1/src/c/Files')
-rw-r--r--2.3-1/src/c/Files/includes/files.h47
-rw-r--r--2.3-1/src/c/Files/interfaces/int_files.h58
-rw-r--r--2.3-1/src/c/Files/mclose/mclose.c22
-rw-r--r--2.3-1/src/c/Files/mopen/mopen.c24
-rw-r--r--2.3-1/src/c/Files/mput/dmputa.c33
-rw-r--r--2.3-1/src/c/Files/mput/dmputs.c27
-rw-r--r--2.3-1/src/c/Files/mput/i16mputa.c33
-rw-r--r--2.3-1/src/c/Files/mput/i16mputs.c26
-rw-r--r--2.3-1/src/c/Files/mput/i8mputa.c33
-rw-r--r--2.3-1/src/c/Files/mput/i8mputs.c26
-rw-r--r--2.3-1/src/c/Files/mput/smputa.c33
-rw-r--r--2.3-1/src/c/Files/mput/smputs.c26
-rw-r--r--2.3-1/src/c/Files/mput/u16mputa.c33
-rw-r--r--2.3-1/src/c/Files/mput/u16mputs.c26
-rw-r--r--2.3-1/src/c/Files/mput/u8mputa.c33
-rw-r--r--2.3-1/src/c/Files/mput/u8mputs.c26
16 files changed, 506 insertions, 0 deletions
diff --git a/2.3-1/src/c/Files/includes/files.h b/2.3-1/src/c/Files/includes/files.h
new file mode 100644
index 00000000..4491e7e6
--- /dev/null
+++ b/2.3-1/src/c/Files/includes/files.h
@@ -0,0 +1,47 @@
+ /* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ 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-en.txt
+ Author: Siddhesh Wani
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+ */
+#ifndef __FILES_H__
+#define __FILES_H__
+
+#include <stdio.h>
+#include "types.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+FILE *mopen (char *path, char *mode);
+
+int mclose(FILE *fptr);
+
+/*For writing single/scalar values*/
+int dmputs (FILE *fptr, double data);
+int smputs (FILE *fptr, float data);
+int u8mputs (FILE *fptr, uint8 data);
+int i8mputs (FILE *fptr, int8 data);
+int u16mputs (FILE *fptr, uint16 data);
+int i16mputs (FILE *fptr, int16 data);
+
+/*For writing array/matrix values*/
+int dmputa (FILE *fptr, double *data, int row, int col);
+int smputa (FILE *fptr, float *data, int row, int col);
+int u8mputa (FILE *fptr, uint8 *data, int row, int col);
+int i8mputa (FILE *fptr, int8 *data, int row, int col);
+int u16mputa (FILE *fptr, uint16 *data, int row, int col);
+int i16mputa (FILE *fptr, int16 *data, int row, int col);
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /*__FILES_H__*/
diff --git a/2.3-1/src/c/Files/interfaces/int_files.h b/2.3-1/src/c/Files/interfaces/int_files.h
new file mode 100644
index 00000000..862754fc
--- /dev/null
+++ b/2.3-1/src/c/Files/interfaces/int_files.h
@@ -0,0 +1,58 @@
+ /* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ 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-en.txt
+ Author: Siddhesh Wani
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+ */
+#ifndef __INT_FILES_H__
+#define __INT_FILES_H__
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#define g2g2mopenf0(path, pathsize, mode, modesize) mopen(path, mode)
+
+#define f0mclosei0(fptr) mclose(fptr)
+
+#define d0g2f0mputi0(data, format, formatsize, fptr) dmputs(fptr, data)
+
+#define s0g2f0mputi0(data, format, formatsize, fptr) smputs(fptr, data)
+
+#define u80g2f0mputi0(data, format, formatsize, fptr) u8mputs(fptr, data)
+
+#define i80g2f0mputi0(data, format, formatsize, fptr) i8mputs(fptr, data)
+
+#define u160g2f0mputi0(data, format, formatsize, fptr) u16mputs(fptr, data)
+
+#define i160g2f0mputi0(data, format, formatsize, fptr) i16mputs(fptr, data)
+
+#define d2g2f0mputi0(data, size1, format, formatsize, fptr) \
+ dmputa(fptr, data, size1[0], size1[1])
+
+#define s2g2f0mputi0(data, size1, format, formatsize, fptr) \
+ smputa(fptr, data, size1[0], size1[1])
+
+#define u82g2f0mputi0(data, size1, format, formatsize, fptr) \
+ u8mputa(fptr, data, size1[0], size1[1])
+
+#define i82g2f0mputi0(data, size1, format, formatsize, fptr) \
+ i8mputa(fptr, data, size1[0], size1[1])
+
+#define u162g2f0mputi0(data, size1, format, formatsize, fptr) \
+ u16mputa(fptr, data, size1[0], size1[1])
+
+#define i162g2f0mputi0(data, size1, format, formatsize, fptr) \
+ i16mputa(fptr, data, size1[0], size1[1])
+
+
+#ifdef __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /*__INT_FILES_H__*/
diff --git a/2.3-1/src/c/Files/mclose/mclose.c b/2.3-1/src/c/Files/mclose/mclose.c
new file mode 100644
index 00000000..5e689358
--- /dev/null
+++ b/2.3-1/src/c/Files/mclose/mclose.c
@@ -0,0 +1,22 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ 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-en.txt
+ Author: Siddhesh Wani
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+/*Function to close file pointed by input file handle*/
+
+#include "files.h"
+
+int mclose(FILE *fptr)
+{
+ int res;
+ res = fclose(fptr);
+ return res;
+} \ No newline at end of file
diff --git a/2.3-1/src/c/Files/mopen/mopen.c b/2.3-1/src/c/Files/mopen/mopen.c
new file mode 100644
index 00000000..1cb1c880
--- /dev/null
+++ b/2.3-1/src/c/Files/mopen/mopen.c
@@ -0,0 +1,24 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ 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-en.txt
+ Author: Siddhesh Wani
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+/*Function to open a file and obtain handle for the same */
+
+#include "files.h"
+
+FILE *mopen (char *path, char *mode)
+{
+ FILE *fptr;
+
+ fptr = fopen(path, mode);
+
+ return fptr;
+} \ No newline at end of file
diff --git a/2.3-1/src/c/Files/mput/dmputa.c b/2.3-1/src/c/Files/mput/dmputa.c
new file mode 100644
index 00000000..9cb6482b
--- /dev/null
+++ b/2.3-1/src/c/Files/mput/dmputa.c
@@ -0,0 +1,33 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ 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-en.txt
+ Author: Siddhesh Wani
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+/*Function ot write 'double' array/matrix in given file */
+
+#include "files.h"
+
+int dmputa (FILE *fptr, double *data, int row, int col)
+{
+ int res = 0, row_ctr, col_ctr;
+
+ if(fptr != NULL)
+ {
+ for(row_ctr = 0; row_ctr < row; row_ctr++)
+ {
+ for(col_ctr = 0; col_ctr < col; col_ctr++)
+ {
+ res += fprintf(fptr, "%f ", data[row*col_ctr+row_ctr]);
+ }
+ fprintf(fptr, "\n");
+ }
+ }
+ return res;
+} \ No newline at end of file
diff --git a/2.3-1/src/c/Files/mput/dmputs.c b/2.3-1/src/c/Files/mput/dmputs.c
new file mode 100644
index 00000000..42780059
--- /dev/null
+++ b/2.3-1/src/c/Files/mput/dmputs.c
@@ -0,0 +1,27 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ 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-en.txt
+ Author: Siddhesh Wani
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+/*Function ot write 'double' scalar in given file */
+
+#include <stdio.h>
+
+int dmputs (FILE *fptr, double data)
+{
+ int res;
+
+
+ if(fptr != NULL)
+ {
+ res = fprintf(fptr, "%f", data);
+ }
+ return res;
+} \ No newline at end of file
diff --git a/2.3-1/src/c/Files/mput/i16mputa.c b/2.3-1/src/c/Files/mput/i16mputa.c
new file mode 100644
index 00000000..daa07bf8
--- /dev/null
+++ b/2.3-1/src/c/Files/mput/i16mputa.c
@@ -0,0 +1,33 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ 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-en.txt
+ Author: Siddhesh Wani
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+/*Function ot write 'int16' array/matrix in given file */
+
+#include "files.h"
+
+int i16mputa (FILE *fptr, int16 *data, int row, int col)
+{
+ int res = 0, row_ctr, col_ctr;
+
+ if(fptr != NULL)
+ {
+ for(row_ctr = 0; row_ctr < row; row_ctr++)
+ {
+ for(col_ctr = 0; col_ctr < col; col_ctr++)
+ {
+ res += fprintf(fptr, "%d ", data[row*col_ctr+row_ctr]);
+ }
+ fprintf(fptr, "\n");
+ }
+ }
+ return res;
+} \ No newline at end of file
diff --git a/2.3-1/src/c/Files/mput/i16mputs.c b/2.3-1/src/c/Files/mput/i16mputs.c
new file mode 100644
index 00000000..43194f1f
--- /dev/null
+++ b/2.3-1/src/c/Files/mput/i16mputs.c
@@ -0,0 +1,26 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ 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-en.txt
+ Author: Siddhesh Wani
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+/*Function ot write 'int16' scalar in given file */
+
+#include "files.h"
+
+int i16mputs (FILE *fptr, int16 data)
+{
+ int res;
+
+ if(fptr != NULL)
+ {
+ res = fprintf(fptr, "%d\n", data);
+ }
+ return res;
+} \ No newline at end of file
diff --git a/2.3-1/src/c/Files/mput/i8mputa.c b/2.3-1/src/c/Files/mput/i8mputa.c
new file mode 100644
index 00000000..50da3989
--- /dev/null
+++ b/2.3-1/src/c/Files/mput/i8mputa.c
@@ -0,0 +1,33 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ 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-en.txt
+ Author: Siddhesh Wani
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+/*Function ot write 'int8' array/matrix in given file */
+
+#include "files.h"
+
+int i8mputa (FILE *fptr, int8 *data, int row, int col)
+{
+ int res = 0, row_ctr, col_ctr;
+
+ if(fptr != NULL)
+ {
+ for(row_ctr = 0; row_ctr < row; row_ctr++)
+ {
+ for(col_ctr = 0; col_ctr < col; col_ctr++)
+ {
+ res += fprintf(fptr, "%d ", data[row*col_ctr+row_ctr]);
+ }
+ fprintf(fptr, "\n");
+ }
+ }
+ return res;
+} \ No newline at end of file
diff --git a/2.3-1/src/c/Files/mput/i8mputs.c b/2.3-1/src/c/Files/mput/i8mputs.c
new file mode 100644
index 00000000..1884bf2f
--- /dev/null
+++ b/2.3-1/src/c/Files/mput/i8mputs.c
@@ -0,0 +1,26 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ 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-en.txt
+ Author: Siddhesh Wani
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+/*Function ot write 'int8' scalar in given file */
+
+#include "files.h"
+
+int i8mputs (FILE *fptr, int8 data)
+{
+ int res;
+
+ if(fptr != NULL)
+ {
+ res = fprintf(fptr, "%d\n", data);
+ }
+ return res;
+} \ No newline at end of file
diff --git a/2.3-1/src/c/Files/mput/smputa.c b/2.3-1/src/c/Files/mput/smputa.c
new file mode 100644
index 00000000..03098a78
--- /dev/null
+++ b/2.3-1/src/c/Files/mput/smputa.c
@@ -0,0 +1,33 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ 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-en.txt
+ Author: Siddhesh Wani
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+/*Function ot write 'float' array/matrix in given file */
+
+#include "files.h"
+
+int smputa (FILE *fptr, float *data, int row, int col)
+{
+ int res = 0, row_ctr, col_ctr;
+
+ if(fptr != NULL)
+ {
+ for(row_ctr = 0; row_ctr < row; row_ctr++)
+ {
+ for(col_ctr = 0; col_ctr < col; col_ctr++)
+ {
+ res += fprintf(fptr, "%f ", data[row*col_ctr+row_ctr]);
+ }
+ fprintf(fptr, "\n");
+ }
+ }
+ return res;
+} \ No newline at end of file
diff --git a/2.3-1/src/c/Files/mput/smputs.c b/2.3-1/src/c/Files/mput/smputs.c
new file mode 100644
index 00000000..10eeb7b5
--- /dev/null
+++ b/2.3-1/src/c/Files/mput/smputs.c
@@ -0,0 +1,26 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ 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-en.txt
+ Author: Siddhesh Wani
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+/*Function ot write 'float' scalar in given file */
+
+#include "files.h"
+
+int smputs (FILE *fptr, float data)
+{
+ int res;
+
+ if(fptr != NULL)
+ {
+ res = fprintf(fptr, "%f\n", data);
+ }
+ return res;
+} \ No newline at end of file
diff --git a/2.3-1/src/c/Files/mput/u16mputa.c b/2.3-1/src/c/Files/mput/u16mputa.c
new file mode 100644
index 00000000..e2d2d8fe
--- /dev/null
+++ b/2.3-1/src/c/Files/mput/u16mputa.c
@@ -0,0 +1,33 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ 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-en.txt
+ Author: Siddhesh Wani
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+/*Function ot write 'uint16' array/matrix in given file */
+
+#include "files.h"
+
+int u16mputa (FILE *fptr, uint16 *data, int row, int col)
+{
+ int res = 0, row_ctr, col_ctr;
+
+ if(fptr != NULL)
+ {
+ for(row_ctr = 0; row_ctr < row; row_ctr++)
+ {
+ for(col_ctr = 0; col_ctr < col; col_ctr++)
+ {
+ res += fprintf(fptr, "%d ", data[row*col_ctr+row_ctr]);
+ }
+ fprintf(fptr, "\n");
+ }
+ }
+ return res;
+} \ No newline at end of file
diff --git a/2.3-1/src/c/Files/mput/u16mputs.c b/2.3-1/src/c/Files/mput/u16mputs.c
new file mode 100644
index 00000000..46b95221
--- /dev/null
+++ b/2.3-1/src/c/Files/mput/u16mputs.c
@@ -0,0 +1,26 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ 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-en.txt
+ Author: Siddhesh Wani
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+/*Function ot write 'uint16' scalar in given file */
+
+#include "files.h"
+
+int u16mputs (FILE *fptr, uint16 data)
+{
+ int res;
+
+ if(fptr != NULL)
+ {
+ res = fprintf(fptr, "%d\n", data);
+ }
+ return res;
+} \ No newline at end of file
diff --git a/2.3-1/src/c/Files/mput/u8mputa.c b/2.3-1/src/c/Files/mput/u8mputa.c
new file mode 100644
index 00000000..d2baee16
--- /dev/null
+++ b/2.3-1/src/c/Files/mput/u8mputa.c
@@ -0,0 +1,33 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ 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-en.txt
+ Author: Siddhesh Wani
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+/*Function ot write 'uint8' array/matrix in given file */
+
+#include "files.h"
+
+int u8mputa (FILE *fptr, uint8 *data, int row, int col)
+{
+ int res = 0, row_ctr, col_ctr;
+
+ if(fptr != NULL)
+ {
+ for(row_ctr = 0; row_ctr < row; row_ctr++)
+ {
+ for(col_ctr = 0; col_ctr < col; col_ctr++)
+ {
+ res += fprintf(fptr, "%d ", data[row*col_ctr+row_ctr]);
+ }
+ fprintf(fptr, "\n");
+ }
+ }
+ return res;
+} \ No newline at end of file
diff --git a/2.3-1/src/c/Files/mput/u8mputs.c b/2.3-1/src/c/Files/mput/u8mputs.c
new file mode 100644
index 00000000..a53179e9
--- /dev/null
+++ b/2.3-1/src/c/Files/mput/u8mputs.c
@@ -0,0 +1,26 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ 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-en.txt
+ Author: Siddhesh Wani
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+/*Function ot write 'uint8' scalar in given file */
+
+#include "files.h"
+
+int u8mputs (FILE *fptr, uint8 data)
+{
+ int res;
+
+ if(fptr != NULL)
+ {
+ res = fprintf(fptr, "%d\n", data);
+ }
+ return res;
+} \ No newline at end of file