Changeset 3851677 in tol

Timestamp:

Oct 26, 2008, 7:16:38 PM (18 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

997c16c

Parents:

b6e52e72

Message:

New method Cat

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

Location:

tol/bbasic

Files:

• sys.cpp (modified) (1 diff)
• tol_bsys.h (modified) (1 diff)

tol/bbasic/sys.cpp

@@ -591 +591 @@
 }
 
+//--------------------------------------------------------------------
+BBool BSys::Cat(const BArray<BText>& origin, const BText& target)
+
+/*! Cats a set of files into target. 
+ * \return Returns true on success, or false if an error occurred
+ */
+//--------------------------------------------------------------------
+{
+  static const int bufferSize_ = 1024*1024;
+  static char buffer_[bufferSize_];
+  FILE* in;
+  FILE* out = fopen(target.String(),"wb");
+  if(!out)
+  {
+    Error(I2("Cannot open for write file ",
+             "No se pudo abrir para escritura el fichero ")+
+          target);
+    return(false);
+  }
+  int i, numBytes, size, pos;
+  for(i=0; i<origin.Size(); i++)
+  {
+    size = GetFileSize(origin[i]);
+    in = fopen(origin[i].String(),"rb");
+    if(!in)
+    {
+      Error(I2("Cannot open for read file ",
+               "No se pudo abrir para lectura el fichero ")+
+            origin[i]);
+      return(false);
+    }
+    pos = 0;
+    while(pos<size)
+    {
+      numBytes = bufferSize_;
+      if(numBytes>size-pos) { numBytes = size-pos; }
+      fread (&buffer_,1,numBytes,in);
+      fwrite(&buffer_,1,numBytes,out);
+      pos += numBytes;
+    }
+    fclose(in);
+  }
+  fclose(out);
+  return(true);
+}
 
 //--------------------------------------------------------------------

tol/bbasic/tol_bsys.h

@@ -117 +117 @@
                             bool  wait=BFALSE);
 #endif
-  static BBool  ChildProcess(const BText& command);
+  static BBool ChildProcess(const BText& command);
   //! Prints a file in the default printer.
-  static BBool  Print      (const BText& fileName);
+  static BBool Print(const BText& fileName);
   //! Removes a file
-  static BBool  Remove     (const BText& fileName);
+  static BBool Remove(const BText& fileName);
   //! Copies \a origin file(s) to \a target
-  static BBool  Copy       (const BText& origin, const BText& target);
+  static BBool Copy(const BText& origin, const BText& target);
+  static BBool Cat(const BArray<BText>& origin, const BText& target);
+
   //! Prints a file in the default printer and removes this file from disk.
   static BBool  PrintUnlink(const BText& fileName);