/************************************************************** * * Licensed to the Apache Software Foundation (ASF) under one * or more contributor license agreements. See the NOTICE file * distributed with this work for additional information * regarding copyright ownership. The ASF licenses this file * to you 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. * *************************************************************/ // MARKER(update_precomp.py): autogen include statement, do not remove #include "precompiled_idlc.hxx" #include #include #include #include #include #include #include #if defined(SAL_W32) || defined(SAL_OS2) #include #endif #ifdef SAL_UNX #include #if defined(MACOSX) || defined(FREEBSD) || defined(NETBSD) #include #else #include #endif #endif #include using namespace ::rtl; using namespace ::osl; extern int yyparse(); extern FILE* yyin; extern int yydebug; sal_Int32 lineNumber = 1; static OUString TMP(RTL_CONSTASCII_USTRINGPARAM("TMP")); static OUString TEMP(RTL_CONSTASCII_USTRINGPARAM("TEMP")); static sal_Char tmpFilePattern[512]; sal_Bool isFileUrl(const OString& fileName) { if (fileName.indexOf("file://") == 0 ) return sal_True; return sal_False; } OString convertToAbsoluteSystemPath(const OString& fileName) { OUString uSysFileName; OUString uFileName(fileName.getStr(), fileName.getLength(), osl_getThreadTextEncoding()); if ( isFileUrl(fileName) ) { if (FileBase::getSystemPathFromFileURL(uFileName, uSysFileName) != FileBase::E_None) { OSL_ASSERT(false); } } else { OUString uWorkingDir, uUrlFileName, uTmp; if (osl_getProcessWorkingDir(&uWorkingDir.pData) != osl_Process_E_None) { OSL_ASSERT(false); } if (FileBase::getFileURLFromSystemPath(uFileName, uTmp) != FileBase::E_None) { OSL_ASSERT(false); } if (FileBase::getAbsoluteFileURL(uWorkingDir, uTmp, uUrlFileName) != FileBase::E_None) { OSL_ASSERT(false); } if (FileBase::getSystemPathFromFileURL(uUrlFileName, uSysFileName) != FileBase::E_None) { OSL_ASSERT(false); } } return OUStringToOString(uSysFileName, osl_getThreadTextEncoding()); } OString convertToFileUrl(const OString& fileName) { if ( !isFileUrl(fileName) ) { OString tmp = convertToAbsoluteSystemPath(fileName); OUString uFileName(tmp.getStr(), tmp.getLength(), osl_getThreadTextEncoding()); OUString uUrlFileName; if (FileBase::getFileURLFromSystemPath(uFileName, uUrlFileName) != FileBase::E_None) { OSL_ASSERT(false); } return OUStringToOString(uUrlFileName, osl_getThreadTextEncoding()); } return fileName; } OString makeTempName(const OString& prefix) { OUString uTmpPath; OString tmpPath; if ( osl_getEnvironment(TMP.pData, &uTmpPath.pData) != osl_Process_E_None ) { if ( osl_getEnvironment(TEMP.pData, &uTmpPath.pData) != osl_Process_E_None ) { #if defined(SAL_W32) tmpPath = OString("c:\\temp"); #else tmpPath = OString("/tmp"); #endif } } if ( uTmpPath.getLength() ) tmpPath = OUStringToOString(uTmpPath, RTL_TEXTENCODING_UTF8); #if defined(SAL_W32) || defined(SAL_UNX) || defined(SAL_OS2) OSL_ASSERT( sizeof(tmpFilePattern) > ( strlen(tmpPath) + RTL_CONSTASCII_LENGTH( PATH_SEPARATOR ) + prefix.getLength() + RTL_CONSTASCII_LENGTH( "XXXXXX") ) ); tmpFilePattern[ sizeof(tmpFilePattern)-1 ] = '\0'; strncpy(tmpFilePattern, tmpPath, sizeof(tmpFilePattern)-1); strncat(tmpFilePattern, PATH_SEPARATOR, sizeof(tmpFilePattern)-1-strlen(tmpFilePattern)); strncat(tmpFilePattern, prefix.getStr(), sizeof(tmpFilePattern)-1-strlen(tmpFilePattern)); strncat(tmpFilePattern, "XXXXXX", sizeof(tmpFilePattern)-1-strlen(tmpFilePattern)); #ifdef SAL_UNX int nDescriptor = mkstemp(tmpFilePattern); if( -1 == nDescriptor ) { fprintf( stderr,"idlc: couldn't create temporary file %s\n", tmpFilePattern ); exit( 1 ); } // the file shall later be reopened by stdio functions close( nDescriptor ); #else (void) mktemp(tmpFilePattern); #endif #endif return OString(tmpFilePattern); } sal_Bool copyFile(const OString* source, const OString& target) { sal_Bool bRet = sal_True; FILE* pSource = source == 0 ? stdin : fopen(source->getStr(), "rb"); if ( !pSource ) return sal_False; FILE* pTarget = fopen(target.getStr(), "wb"); if ( !pTarget ) { fclose(pSource); return sal_False; } size_t totalSize = 512; size_t readSize = 0; size_t writeSize = 0; char pBuffer[513]; while ( !feof(pSource) ) { if ( (readSize = fread(pBuffer, 1, totalSize, pSource)) > 0 && !ferror(pSource) ) { if ( (writeSize = fwrite(pBuffer, 1, readSize, pTarget)) != readSize || ferror(pTarget) ) { if (source != 0) { fclose(pSource); } fclose(pTarget); return sal_False; } } } if (source != 0) { fclose(pSource); } if ( fflush(pTarget) ) bRet = sal_False; fclose(pTarget); return bRet; } sal_Int32 compileFile(const OString * pathname) { // preprocess input file OString tmpFile = makeTempName(OString("idli_")); OString preprocFile = makeTempName(OString("idlf_")); OString fileName; if (pathname == 0) { fileName = "stdin"; } else { fileName = *pathname; } if ( !copyFile(pathname, tmpFile) ) { fprintf(stderr, "%s: could not copy %s%s to %s\n", idlc()->getOptions()->getProgramName().getStr(), pathname == 0 ? "" : "file ", fileName.getStr(), tmpFile.getStr()); exit(99); } idlc()->setFileName(fileName); idlc()->setMainFileName(fileName); idlc()->setRealFileName(tmpFile); ::std::vector< ::rtl::OUString > lCppArgs; lCppArgs.push_back(OUString(RTL_CONSTASCII_USTRINGPARAM("-DIDL"))); lCppArgs.push_back(OUString(RTL_CONSTASCII_USTRINGPARAM("-C"))); lCppArgs.push_back(OUString(RTL_CONSTASCII_USTRINGPARAM("-zI"))); lCppArgs.push_back(OUString(RTL_CONSTASCII_USTRINGPARAM("-I."))); OStringBuffer cppArgs(256); Options* pOptions = idlc()->getOptions(); OString filePath; sal_Int32 index = fileName.lastIndexOf(SEPARATOR); if ( index > 0) { filePath = fileName.copy(0, index); if ( filePath.getLength() ) { cppArgs.append("-I"); cppArgs.append(filePath); lCppArgs.push_back(OStringToOUString(cppArgs.makeStringAndClear().replace('\\', '/'), RTL_TEXTENCODING_UTF8)); } } if ( pOptions->isValid("-D") ) { OString dOpt = pOptions->getOption("-D"); OString token; sal_Int32 nIndex = 0; do { token = dOpt.getToken( 0, ' ', nIndex ); if (token.getLength()) { lCppArgs.push_back(OStringToOUString(token, RTL_TEXTENCODING_UTF8)); } } while( nIndex != -1 ); } if ( pOptions->isValid("-I") ) { OString incOpt = pOptions->getOption("-I"); OString token; sal_Int32 nIndex = 0; do { token = incOpt.getToken( 0, ' ', nIndex ); if (token.getLength()) { lCppArgs.push_back(OStringToOUString(token, RTL_TEXTENCODING_UTF8)); } } while( nIndex != -1 ); } lCppArgs.push_back(OUString(RTL_CONSTASCII_USTRINGPARAM("-o"))); cppArgs.append(preprocFile); lCppArgs.push_back(OStringToOUString(cppArgs.makeStringAndClear(), RTL_TEXTENCODING_UTF8)); cppArgs.append(tmpFile); lCppArgs.push_back(OStringToOUString(cppArgs.makeStringAndClear(), RTL_TEXTENCODING_UTF8)); OUString cpp; OUString startDir; if (osl_getExecutableFile(&cpp.pData) != osl_Process_E_None) { OSL_ASSERT(false); } sal_Int32 idx= cpp.lastIndexOf(OUString( RTL_CONSTASCII_USTRINGPARAM("idlc")) ); cpp = cpp.copy(0, idx); #if defined(SAL_W32) || defined(SAL_OS2) cpp += OUString( RTL_CONSTASCII_USTRINGPARAM("ucpp.exe")); #else cpp += OUString( RTL_CONSTASCII_USTRINGPARAM("ucpp")); #endif oslProcess hProcess = NULL; oslProcessError procError = osl_Process_E_None; const int nCmdArgs = lCppArgs.size(); rtl_uString** pCmdArgs = 0; pCmdArgs = (rtl_uString**)rtl_allocateZeroMemory(nCmdArgs * sizeof(rtl_uString*)); ::std::vector< ::rtl::OUString >::iterator iter = lCppArgs.begin(); ::std::vector< ::rtl::OUString >::iterator end = lCppArgs.end(); int i = 0; while ( iter != end ) { pCmdArgs[i++] = (*iter).pData; ++iter; } procError = osl_executeProcess(cpp.pData, pCmdArgs, nCmdArgs, osl_Process_WAIT, 0, startDir.pData, 0, 0, &hProcess); oslProcessInfo hInfo; hInfo.Size = (sal_uInt32)(sizeof(oslProcessInfo)); if (osl_getProcessInfo(hProcess, osl_Process_EXITCODE, &hInfo) != osl_Process_E_None) { OSL_ASSERT(false); } if ( procError || (hInfo.Code != 0) ) { if ( procError != osl_Process_E_None ) fprintf(stderr, "%s: starting preprocessor failed\n", pOptions->getProgramName().getStr()); else fprintf(stderr, "%s: preprocessing %s%s failed\n", pOptions->getProgramName().getStr(), pathname == 0 ? "" : "file ", fileName.getStr()); // unlink(tmpFile.getStr()); // unlink(preprocFile.getStr()); // unlink(cmdFileName.getStr()); osl_freeProcessHandle(hProcess); rtl_freeMemory(pCmdArgs); exit(hInfo.Code ? hInfo.Code : 99); } osl_freeProcessHandle(hProcess); rtl_freeMemory(pCmdArgs); if (unlink(tmpFile.getStr()) != 0) { fprintf(stderr, "%s: Could not remove cpp input file %s\n", pOptions->getProgramName().getStr(), tmpFile.getStr()); exit(99); } if ( pOptions->isValid("-E") ) { if (unlink(preprocFile) != 0) { fprintf(stderr, "%s: Could not remove parser input file %s\n", pOptions->getProgramName().getStr(), preprocFile.getStr()); exit(99); } exit(0); } // parse file yyin = fopen(preprocFile.getStr(), "r"); if (yyin == NULL) { fprintf(stderr, "%s: Could not open cpp output file %s\n", pOptions->getProgramName().getStr(), preprocFile.getStr()); exit(99); } //yydebug = 0 no trace information //yydebug = 1 parser produce trace information yydebug = 0; sal_Int32 nErrors = yyparse(); nErrors = idlc()->getErrorCount(); fclose(yyin); if (unlink(preprocFile.getStr()) != 0) { fprintf(stderr, "%s: Could not remove parser input file %s\n", pOptions->getProgramName().getStr(), preprocFile.getStr()); exit(99); } return nErrors; }