Changeset 997c16c in tol

Timestamp:

Oct 26, 2008, 7:17:12 PM (18 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

64f4b50

Parents:

3851677

Message:

New built-in function FileCat

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

File:

• tol/btol/real_type/datgrav.cpp (modified) (1 diff)

tol/btol/real_type/datgrav.cpp

@@ -952 +952 @@
   }
 #endif
+}
+
+  //--------------------------------------------------------------------
+  DeclareContensClass(BDat, BDatTemporary, BDatFileCat);
+  DefExtOpr(1, BDatFileCat, "FileCat", 2, 2, "Set Text",
+  "(Set origin, Text target)",
+  I2("Cats a set of files into target. On error returns FALSE, else returns TRUE.",
+     "Copia un conjunto de ficheros en otro. En caso de error devuelve FALSO y si no "
+     "CIERTO."),
+     BOperClassify::System_);
+  void BDatFileCat::CalcContens()
+//--------------------------------------------------------------------
+{
+  const BSet& origin = Set(Arg(1));
+  const BText& target = Text(Arg(2));
+  BArray<BText> in(origin.Card());
+  int i;
+  BSyntaxObject* obj;
+  for(i=0; i<in.Size(); i++)
+  {
+    obj = origin[i+1];
+    if(obj && (obj->Grammar()==GraText()))
+    {
+      in[i] = Text(obj);
+    }
+    else
+    {
+      Error(BText("[FileCat] ")+
+        I2("Argument 'origin' must have just Text elements",
+           "El argumento 'origin' debe tener sólo elementos "
+           "de tipo Text"));
+    }
+  }
+  contens_ = BSys::Cat(in, target);
 }