/* * Copyright 1999-2004 The Apache Software Foundation. *  * Licensed under the Apache License, Version 2.0 (the "License"); * you may not use this file except in compliance with the License. * You may obtain a copy of the License at *  *      http://www.apache.org/licenses/LICENSE-2.0 *  * Unless required by applicable law or agreed to in writing, software * distributed under the License is distributed on an "AS IS" BASIS, * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. * See the License for the specific language governing permissions and * limitations under the License. *//** * $Id: OS400PlatformUtils.cpp,v 1.20 2004/09/23 21:44:13 cargilld Exp $ */// ---------------------------------------------------------------------------//  Includes// ---------------------------------------------------------------------------#define MY_XP_CPLUSPLUS#include    <pthread.h>#include    <xercesc/util/PlatformUtils.hpp>#include    <xercesc/util/RuntimeException.hpp>#include    <xercesc/util/Janitor.hpp>#include    <xercesc/util/XMLString.hpp>#include    <xercesc/util/XMLUniDefs.hpp>#include    <xercesc/util/PanicHandler.hpp>#include    <stdio.h>#include    <stdlib.h>#include    <errno.h>#include    <unistd.h>#include    <qp0z1170.h>#include    <mimchint.h>#include    <string.h>#include    <qmhsndpm.h>#include    <qmhrtvm.h>#include    <qusec.h>#include    <unistd.h>#include    <string.h>#include    <except.h>#include    <mih/cmpswp.h>#include    "OS400PlatformUtils.hpp"#include    <xercesc/util/OutOfMemoryException.hpp>#if defined (XML_USE_ICONV400_TRANSCODER)    #include <xercesc/util/Transcoders/Iconv400/Iconv400TransService.hpp>	void cleanupDefaultConverter();#elif defined (XML_USE_ICU_TRANSCODER)    #include <xercesc/util/Transcoders/ICU/ICUTransService.hpp>#else Transcoder not Specified - For OS/400 must be either ICU or Iconv400#endif#if defined(XML_USE_MSGFILE_MESSAGELOADER)	 #include <xercesc/util/MsgLoaders/MsgFile/MsgLoader.hpp>#elif defined(XML_USE_INMEM_MESSAGELOADER)	 #include <xercesc/util/MsgLoaders/InMemory/InMemMsgLoader.hpp>#else	 #include <xercesc/util/MsgLoaders/ICU/ICUMsgLoader.hpp>#endif#if defined (XML_USE_NETACCESSOR_SOCKET)    #include <xercesc/util/NetAccessors/Socket/SocketNetAccessor.hpp>#endifXERCES_CPP_NAMESPACE_BEGINchar* PackingRepText(const char * const repText1,		     const char * const repText2,		     const char * const repText3,		     const char * const repText4);// ---------------------------------------------------------------------------//  XMLPlatformUtils: Platform init method// ---------------------------------------------------------------------------XMLNetAccessor* XMLPlatformUtils::makeNetAccessor(){#if defined (XML_USE_NETACCESSOR_SOCKET)    return new SocketNetAccessor();#else    return 0;#endif}////  This method is called very early in the bootstrapping process. This guy//  must create a transcoding service and return it. It cannot use any string//  methods, any transcoding services, throw any exceptions, etc... It just//  makes a transcoding service and returns it, or returns zero on failure.//XMLTransService* XMLPlatformUtils::makeTransService()#if defined (XML_USE_ICU_TRANSCODER){    return new ICUTransService;}#elif defined (XML_USE_ICONV400_TRANSCODER){    return new Iconv400TransService;}#else{    return new IconvTransService;}#endif////  This method is called by the platform independent part of this class//  when client code asks to have one of the supported message sets loaded.//  In our case, we use the ICU based message loader mechanism.//XMLMsgLoader* XMLPlatformUtils::loadAMsgSet(const XMLCh* const msgDomain){    XMLMsgLoader* retVal;    try    {#if defined(XML_USE_MSGFILE_MESSAGELOADER)                retVal = new MsgCatalogLoader(msgDomain);#elif defined (XML_USE_ICU_MESSAGELOADER)	retVal = new ICUMsgLoader(msgDomain);#elif defined (XML_USE_ICONV_MESSAGELOADER)	retVal = new MsgCatalogLoader(msgDomain);#else	retVal = new InMemMsgLoader(msgDomain);#endif    }    catch(const OutOfMemoryException&)    {        throw;    }    catch(...)    {        panic( PanicHandler::Panic_CantLoadMsgDomain );    }    return retVal;}// ---------------------------------------------------------------------------//  XMLPlatformUtils: The panic method// ---------------------------------------------------------------------------void XMLPlatformUtils::panic(const PanicHandler::PanicReasons reason){	    if (fgUserPanicHandler)    {    	fgUserPanicHandler->panic(reason);    } 	    //    //  We just print a message and exit, Note we are currently dependent on    // the number of reasons being under 10 for this teo work    //    else    {        struct reason_code        {            char reason_char;            char endofstring;        }reason_code;        reason_code.reason_char = '0';        reason_code.endofstring = '\0';        reason_code.reason_char = reason_code.reason_char + reason;        send_message((char*)&reason_code,GENERAL_PANIC_MESSAGE,'e');    }}// ---------------------------------------------------------------------------//  XMLPlatformUtils: File Methods// ---------------------------------------------------------------------------unsigned int XMLPlatformUtils::curFilePos(FileHandle theFile                                          , MemoryManager* const manager){    // Get the current position    int curPos = ftell( (FILE*)theFile);    if (curPos == -1)	ThrowXMLwithMemMgr(XMLPlatformUtilsException, XMLExcepts::File_CouldNotGetSize, manager);    return (unsigned int)curPos;}void XMLPlatformUtils::closeFile(FileHandle theFile                                 , MemoryManager* const manager){    if (fclose((FILE*)theFile))	ThrowXMLwithMemMgr(XMLPlatformUtilsException, XMLExcepts::File_CouldNotCloseFile, manager);}unsigned int XMLPlatformUtils::fileSize(FileHandle theFile                                        , MemoryManager* const manager){    // Get the current position    long  int curPos = ftell((FILE*)theFile);    if (curPos == -1)		ThrowXMLwithMemMgr(XMLPlatformUtilsException, XMLExcepts::File_CouldNotGetCurPos, manager);    // Seek to the end and save that value for return     if (fseek( (FILE*)theFile, 0, SEEK_END) )		ThrowXMLwithMemMgr(XMLPlatformUtilsException, XMLExcepts::File_CouldNotSeekToEnd, manager);    long int retVal = ftell( (FILE*)theFile);    if (retVal == -1)		ThrowXMLwithMemMgr(XMLPlatformUtilsException, XMLExcepts::File_CouldNotSeekToEnd, manager);    // And put the pointer back    if (fseek( (FILE*)theFile, curPos, SEEK_SET) )		ThrowXMLwithMemMgr(XMLPlatformUtilsException, XMLExcepts::File_CouldNotSeekToPos, manager);    return (unsigned int)retVal;}FileHandle XMLPlatformUtils::openFile(const XMLCh* const fileName                                      , MemoryManager* const manager){   char errno_id[7];    const char* tmpFileName = XMLString::transcode(fileName, manager);    ArrayJanitor<char> janText((char*)tmpFileName, manager);    errno = 0;    FileHandle retVal = (FILE*)fopen( tmpFileName , "rb" );    if (retVal == NULL)    {     send_message((char*)tmpFileName,FILE_OPEN_PROBLEMS,'d');     convert_errno(errno_id,errno);     send_message(NULL,errno_id,'d');        return 0;    }    return retVal;}FileHandle XMLPlatformUtils::openFile(const char* const fileName                                      , MemoryManager* const manager){   char errno_id[7];    errno = 0;    FileHandle retVal = (FILE*)fopen( fileName , "rb" );    if (retVal == NULL)    {     send_message((char*)fileName,FILE_OPEN_PROBLEMS,'d');     convert_errno(errno_id,errno);     send_message(NULL,errno_id,'d');        return 0;    }    return retVal;}FileHandle XMLPlatformUtils::openFileToWrite(const XMLCh* const fileName                                             , MemoryManager* const manager){    const char* tmpFileName = XMLString::transcode(fileName, manager);    ArrayJanitor<char> janText((char*)tmpFileName, manager);    return openFileToWrite(tmpFileName);}FileHandle XMLPlatformUtils::openFileToWrite(const char* const fileName                                             , MemoryManager* const manager){    char errno_id[7];    errno = 0;    FileHandle retVal = (FILE*)fopen( fileName , "wb" );    if (retVal == NULL)    {     send_message((char*)fileName,FILE_OPEN_PROBLEMS,'d');     convert_errno(errno_id,errno);     send_message(NULL,errno_id,'d');        return 0;    }    return retVal;}unsigned intXMLPlatformUtils::readFileBuffer(  FileHandle      theFile                                , const unsigned int    toRead                                , XMLByte* const  toFill                                , MemoryManager* const manager){    size_t noOfItemsRead = fread( (void*) toFill, 1, toRead, (FILE*)theFile);    if(ferror((FILE*)theFile))    {		ThrowXMLwithMemMgr(XMLPlatformUtilsException, XMLExcepts::File_CouldNotReadFromFile, manager);    }    return (unsigned int)noOfItemsRead;}voidXMLPlatformUtils::writeBufferToFile( FileHandle     const  theFile                                   , long                  toWrite                                   , const XMLByte* const  toFlush                                   , MemoryManager* const  manager){    if (!theFile        ||        (toWrite <= 0 ) ||        !toFlush         )        return;    const XMLByte* tmpFlush = (const XMLByte*) toFlush;    size_t bytesWritten = 0;    while (true)    {        bytesWritten=fwrite(tmpFlush, sizeof(XMLByte), toWrite, (FILE*)theFile);        if(ferror((FILE*)theFile))        {            ThrowXMLwithMemMgr(XMLPlatformUtilsException, XMLExcepts::File_CouldNotWriteToFile, manager);        }        if (bytesWritten < toWrite) //incomplete write        {            tmpFlush+=bytesWritten;            toWrite-=bytesWritten;            bytesWritten=0;        }        else            return;    }    return;}void XMLPlatformUtils::resetFile(FileHandle theFile                                 , MemoryManager* const manager){    // Seek to the start of the file    if (fseek((FILE*)theFile, 0, SEEK_SET) )		ThrowXMLwithMemMgr(XMLPlatformUtilsException, XMLExcepts::File_CouldNotResetFile, manager);}// ---------------------------------------------------------------------------//  XMLPlatformUtils: File system methods// ---------------------------------------------------------------------------/* since we do not have the realpath function on AS/400 and it appearsto no be important that we convert the name to the real path we willonly verify that the path exists  - note that this may make AS/400 output a different error for the pathname but customer shouldbe able to determine what the name is suppose to be*/char *realpath(const char *file_name, char *resolved_name){ if (file_name== NULL) {   errno = EINVAL;   return(NULL); } if (access(file_name,F_OK)) /* verify that the file exists*/ {  errno = EACCES;  return(NULL); } else /* code says that we make a copy of the file name so do it */  strcpy(resolved_name,file_name);  return(resolved_name);}XMLCh* XMLPlatformUtils::getFullPath(const XMLCh* const srcPath,                                     MemoryManager* const manager){    //    //  NOTE: THe path provided has always already been opened successfully,    //  so we know that its not some pathological freaky path. It comes in    //  in native format, and goes out as Unicode always    //    char* newSrc = XMLString::transcode(srcPath, manager);     ArrayJanitor<char> janText(newSrc, manager);    // Use a local buffer that is big enough for the largest legal path    char absPath[PATH_MAX + 1];	//get the absolute path    char* retPath = realpath(newSrc, &absPath[0]);