1 // Copyright (C) 2007-2008 CEA/DEN, EDF R&D, OPEN CASCADE
3 // Copyright (C) 2003-2007 OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
4 // CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
6 // This library is free software; you can redistribute it and/or
7 // modify it under the terms of the GNU Lesser General Public
8 // License as published by the Free Software Foundation; either
9 // version 2.1 of the License.
11 // This library is distributed in the hope that it will be useful,
12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 // Lesser General Public License for more details.
16 // You should have received a copy of the GNU Lesser General Public
17 // License along with this library; if not, write to the Free Software
18 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
20 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
22 // File : SALOME_FileTransfer_i.cxx
23 // Author : Paul RASCLE, EDF
27 #include "SALOME_FileTransfer_i.hxx"
28 #include "utilities.h"
30 /*! \class fileTransfer_i
31 \brief A class to manage file transfer in SALOME
35 //=============================================================================
37 * Default constructor,
39 //=============================================================================
41 fileTransfer_i::fileTransfer_i()
43 MESSAGE("fileTransfer_i::fileTransfer_i");
47 //=============================================================================
51 //=============================================================================
53 fileTransfer_i::~fileTransfer_i()
55 MESSAGE("fileTransfer_i::~fileTransfer_i");
59 //=============================================================================
60 /*! \brief open the given file
62 * CORBA method: try to open the file. If the file is readable, return
63 * a positive integer else return 0;
64 * \param fileName path to the file to be transfered
65 * \return fileId = positive integer > 0 if open OK.
67 //=============================================================================
69 CORBA::Long fileTransfer_i::open(const char* fileName)
71 MESSAGE(" fileTransfer_i::open " << fileName);
72 int aKey = _fileKey++;
75 if ((fp = fopen(fileName,"rb")) == NULL)
77 INFOS("file " << fileName << " is not readable");
80 _fileAccess[aKey] = fp;
84 //=============================================================================
85 /*! \brief close a file
87 * CORBA method: close the file associated to the fileId given at open.
88 * \param fileId got in return from open method
90 //=============================================================================
92 void fileTransfer_i::close(CORBA::Long fileId)
94 MESSAGE("fileTransfer_i::close");
96 if (! (fp = _fileAccess[fileId]) )
98 INFOS(" no FILE structure associated to fileId " <<fileId);
103 _fileAccess.erase(fileId);
107 #define FILEBLOCK_SIZE 256*1024
109 //=============================================================================
110 /*! \brief get a data block from a file
112 * CORBA method: get a block of data from the file associated to the fileId
114 * \param fileId got in return from open method
115 * \return an octet sequence. Last one is empty.
117 //=============================================================================
119 Engines::fileBlock* fileTransfer_i::getBlock(CORBA::Long fileId)
121 MESSAGE("fileTransfer_i::getBlock");
122 Engines::fileBlock* aBlock = new Engines::fileBlock;
125 if (! (fp = _fileAccess[fileId]) )
127 INFOS(" no FILE structure associated to fileId " <<fileId);
131 // use replace member function for sequence to avoid copy
132 // see Advanced CORBA Programming with C++ pp 187-194
135 buf = Engines::fileBlock::allocbuf(FILEBLOCK_SIZE);
136 int nbRed = fread(buf, sizeof(CORBA::Octet), FILEBLOCK_SIZE, fp);
138 aBlock->replace(nbRed, nbRed, buf, 1); // 1 means give ownership
142 /*! \brief open the given file in write mode (for copy)
144 * CORBA method: try to open the file. If the file is writable,
145 * return a positive integer else return 0;
146 * \param fileName path to the file to be transfered
147 * \return fileId = positive integer > 0 if open OK.
149 CORBA::Long fileTransfer_i::openW(const char* fileName)
151 MESSAGE(" fileTransfer_i::openW " << fileName);
152 int aKey = _fileKey++;
155 if ((fp = fopen(fileName,"wb")) == NULL)
157 INFOS("file " << fileName << " is not writable");
160 _fileAccess[aKey] = fp;
164 /*! \brief put a data block for copy into a file
166 * CORBA method: put a block of data into the file associated to the fileId
168 * \param fileId got in return from openW method
169 * \param block an octet sequence to copy into opened file
171 void fileTransfer_i::putBlock(CORBA::Long fileId, const Engines::fileBlock& block)
173 MESSAGE("fileTransfer_i::putBlock");
175 if (! (fp = _fileAccess[fileId]) )
177 INFOS(" no FILE structure associated to fileId " <<fileId);
180 int toFollow = block.length();
182 const CORBA::Octet *buf = block.get_buffer();
183 fwrite(buf, sizeof(CORBA::Octet), toFollow, fp);