From 3f52712f806fbd80d66dfdcaff401e5cf94dcca4 Mon Sep 17 00:00:00 2001
From: yash1112
Date: Fri, 7 Jul 2017 21:20:49 +0530
Subject: sci2c arduino updated

---
 macros/GeneralFunctions/SCI2Ccopyfile.sci | 49 +++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 macros/GeneralFunctions/SCI2Ccopyfile.sci

(limited to 'macros/GeneralFunctions/SCI2Ccopyfile.sci')

diff --git a/macros/GeneralFunctions/SCI2Ccopyfile.sci b/macros/GeneralFunctions/SCI2Ccopyfile.sci
new file mode 100644
index 00000000..f95c29ef
--- /dev/null
+++ b/macros/GeneralFunctions/SCI2Ccopyfile.sci
@@ -0,0 +1,49 @@
+function SCI2Ccopyfile(InFileName,OutFileName,CopyMode)
+// function SCI2Ccopyfile(InFileName,OutFileName,CopyMode)
+// -----------------------------------------------------------------
+// #RNU_RES_B
+// Copy the contents of infile into outfile. Append mode is used.
+//
+// Input data:
+// InFileName: path+filename of the input file.
+// OutFileName: path+filename of the input file.
+// CopyMode: 'append' or 'overwrite'
+// #RNU_RES_E
+//
+// Output data:
+// ---
+//
+// Status:
+// 23-Nov-2007 -- Raffaele Nutricato: Author.
+//
+// Copyright 2007 Raffaele Nutricato
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),3,3);
+
+if (CopyMode == 'append')
+   // ------------------------
+   // --- Open Input file. ---
+   // ------------------------
+   fidIn = SCI2COpenFileRead(InFileName);
+   
+   // -------------------
+   // --- Read lines. ---
+   // -------------------
+   tmpline = mgetl(fidIn,1);
+   while (meof(fidIn) == 0)
+      PrintStringInfo(tmpline, OutFileName, 'file', 'y');
+      tmpline = mgetl(fidIn,1);
+   end
+   mclose(fidIn);
+elseif (CopyMode == 'overwrite')
+   PrintStringInfo(' ', OutFileName, 'file', 'y'); // Cannot use scilab copyfile when the directory is empty!.
+   copyfile(InFileName,OutFileName);
+else
+   SCI2Cerror('Unknown CopyMode: ""'+CopyMode+'""');
+end
+
+endfunction
-- 
cgit