summaryrefslogtreecommitdiff
path: root/2.3-1/src/c/Files/mput
diff options
context:
space:
mode:
Diffstat (limited to '2.3-1/src/c/Files/mput')
-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
12 files changed, 355 insertions, 0 deletions
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