Changeset 231d038 in tol for tol/stdlib/general/system/_system.tol

Timestamp:

Oct 26, 2008, 10:33:12 AM (18 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

e7bf535

Parents:

8958dab

Message:

New function OSFilCat that concats a set of files in a new one

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@79 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/stdlib/general/system/_system.tol (modified) (3 diffs)

tol/stdlib/general/system/_system.tol

@@ -16 +16 @@
 // OSFilCopy:   Copies a file to other directory or with a different name.
 // OSFilMove:   Moves a file to other directory or with a different name.
+// OSFilCat:    Cats a set of files into a new one.
 // OSDirExist:  Cheks if a folder exists
 // OSDirMake:   Creates a directory and all its non existent parents
@@ -364 +365 @@
     OSPathQt(oldFil)+" "+OSPathQt(newFil));
   OSShowErr(ok,call)
-
 };
 //////////////////////////////////////////////////////////////////////////////
@@ -396 +396 @@
 En caso de error devuelve FALSO y si no CIERTO"),
 OSFilMove);
+//////////////////////////////////////////////////////////////////////////////
+
+//////////////////////////////////////////////////////////////////////////////
+Real OSFilCat(Set oldFiles, Text newFil)
+//////////////////////////////////////////////////////////////////////////////
+{
+  Text call = "OSFilCat("<<oldFiles+","+newFil+")";
+  Text OSTrace(3,call);
+  Real ok = OSCmdWait(If(OSUnix,
+  {
+    "cat"+SetSum(For(1,Card(oldFiles),Text(Real k)
+    {
+      " "+OSPathQt(oldFiles[k])
+    }))+" > "+OSPathQt(newFil)
+  }, 
+  {
+    "copy "+SetSum(For(1,Card(oldFiles),Text(Real k)
+    {
+      If(k==1,"","+")+OSPathQt(oldFiles[k])
+    }))+" "+OSPathQt(newFil)
+  }));
+  OSShowErr(ok,call)
+};
+//////////////////////////////////////////////////////////////////////////////
+PutDescription(I2(
+"Copies a set of files to a new one.
+Returns TRUE if success or FALSE if an error happens",
+"Copia un conjunto ficheros en uno nuevo.
+En caso de error devuelve FALSO y si no CIERTO"),
+OSFilCat);
 //////////////////////////////////////////////////////////////////////////////