Test conversion to TQt3 from Qt3 8c6fc1f8e35fd264dd01c582ca5e7549b32ab731

1 files changed, 217 insertions, 0 deletions

diff --git a/tools/linguist/shared/proparser.cpp b/tools/linguist/shared/proparser.cpp
new file mode 100644
index 000000000..ded46b5c1
--- /dev/null
+++ b/tools/linguist/shared/proparser.cpp
@@ -0,0 +1,217 @@
+/**********************************************************************
+** Copyright (C) 2000-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of TQt Linguist.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing retquirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at [email protected].
+**
+** Licensees holding valid TQt Commercial licenses may use this file in
+** accordance with the TQt Commercial License Agreement provided with
+** the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "proparser.h"
+
+#include <qdir.h>
+#include <qfile.h>
+#include <qfileinfo.h>
+#include <qregexp.h>
+#include <qstringlist.h>
+#include <qtextstream.h>
+
+#ifdef Q_OS_UNIX
+#include <unistd.h>
+#endif
+
+#ifdef Q_OS_WIN32
+#define QT_POPEN _popen
+#else
+#define QT_POPEN popen
+#endif
+
+TQString loadFile( const TQString &fileName )
+{
+    TQFile file( fileName );
+    if ( !file.open(IO_ReadOnly) ) {
+	fprintf( stderr, "error: Cannot load '%s': %s\n",
+		 file.name().latin1(),
+		 file.errorString().latin1() );
+	return TQString();
+    }
+
+    TQTextStream in( &file );
+    return in.read();
+}
+
+TQMap<TQString, TQString> proFileTagMap( const TQString& text )
+{
+    TQString t = text;
+    TQMap<TQString, TQString> tagMap;
+    bool stillProcess = true; // If include() has a $$tag then we need to reprocess
+    
+    while(stillProcess) {
+
+	/* 
+	    Strip any commments before we try to include.  We
+	    still need to do it after we include to make sure the
+	    included file does not have comments
+	*/
+	t.replace( TQRegExp(TQString("#[^\n]*\n")), TQString(" ") );
+
+	/*
+	    Process include() commands.
+	    $$PWD is a special case so we have to change it while 
+	    we know where the included file is.
+        */
+	TQRegExp callToInclude("include\\s*\\(\\s*([^()\\s]+)\\s*\\)");
+	int i = 0;
+	while ( (i = callToInclude.search(t, i)) != -1 ) {
+	    bool doneWithVar = false;
+	    TQString fileName = callToInclude.cap(1);
+	    TQString after = fileName.replace("$$PWD", TQDir::currentDirPath());
+	    if (!tagMap.isEmpty() && after.contains("$$")) {
+		TQRegExp var( "\\$\\$[({]?([a-zA-Z0-9_]+)[)}]?" );
+		int ii = 0;
+		while ((ii = after.find(var, ii)) != -1) {
+		    if (tagMap.contains(var.cap(1))) {
+			after.replace(ii, var.cap(0).length(), tagMap[var.cap(1)]);
+		    } else { // Couldn't find it
+			doneWithVar = true;
+			break;
+		    }
+		}
+		
+	    }
+	    if (doneWithVar || !after.contains("$$")) {
+		after = loadFile(after);
+		TQFileInfo fi(callToInclude.cap(1));
+		after.replace("$$PWD", fi.dirPath());
+		t.replace( i, callToInclude.matchedLength(), after );
+	    }
+	    i += after.length();
+	}
+
+	/*
+	    Strip comments, merge lines ending with backslash, add
+	    spaces around '=' and '+=', replace '\n' with ';', and
+	    simplify white spaces.
+	*/
+	t.replace( TQRegExp(TQString("#[^\n]*\n")), TQString(" ") );
+	t.replace( TQRegExp(TQString("\\\\[^\n\\S]*\n")), TQString(" ") );
+	t.replace( "=", TQString(" = ") );
+	t.replace( "+ =", TQString(" += ") );
+	t.replace( "\n", TQString(";") );
+	t = t.simplifyWhiteSpace();
+	
+	/*
+	    Populate tagMap with 'key = value' entries.
+	*/
+	TQStringList lines = TQStringList::split( TQChar(';'), t );
+	TQStringList::Iterator line;
+	for ( line = lines.begin(); line != lines.end(); ++line ) {
+	    TQStringList toks = TQStringList::split( TQChar(' '), *line );
+	    
+	    if ( toks.count() >= 3 && 
+		(toks[1] == TQString("=") || toks[1] == TQString("+=")) ) {
+		TQString tag = toks.first();
+		int k = tag.findRev( TQChar(':') ); // as in 'unix:'
+		if ( k != -1 )
+		    tag = tag.mid( k + 1 );
+		toks.remove( toks.begin() );
+		
+		TQString action = toks.first();
+		toks.remove( toks.begin() );
+		
+		if ( tagMap.contains(tag) ) {
+		    if ( action == TQString("=") )
+			tagMap.replace( tag, toks.join(TQChar(' ')) );
+		    else
+			tagMap[tag] += TQChar( ' ' ) + toks.join( TQChar(' ') );
+		} else {
+		    tagMap[tag] = toks.join( TQChar(' ') );
+		}
+	    }
+	}
+	
+	/*
+	    Expand $$variables within the 'value' part of a 'key = value'
+	    pair.
+	*/
+	TQRegExp var( "\\$\\$[({]?([a-zA-Z0-9_]+)[)}]?" );
+	TQMap<TQString, TQString>::Iterator it;
+	for ( it = tagMap.begin(); it != tagMap.end(); ++it ) {
+	    int i = 0;
+	    while ( (i = var.search((*it), i)) != -1 ) {
+		int len = var.matchedLength();
+		TQString invocation = var.cap(1);
+		TQString after;
+		
+		if ( invocation == "system" ) {
+		    // skip system(); it will be handled in the next pass
+		    ++i;
+		} else {
+		    if ( tagMap.contains(invocation) )
+			after = tagMap[invocation];
+		    else if (invocation.lower() == "pwd")
+			after = TQDir::currentDirPath();
+		    (*it).replace( i, len, after );
+		    i += after.length();
+		}
+	    }
+	}
+    
+	/*
+	  Execute system() calls.
+	*/
+	TQRegExp callToSystem( "\\$\\$system\\s*\\(([^()]*)\\)" );
+	for ( it = tagMap.begin(); it != tagMap.end(); ++it ) {
+	    int i = 0;
+	    while ( (i = callToSystem.search((*it), i)) != -1 ) {
+		/*
+		  This code is stolen from qmake's project.cpp file.
+		  Ideally we would use the same parser, so we wouldn't
+		  have this code duplication.
+		*/
+		TQString after;
+		char buff[256];
+		FILE *proc = QT_POPEN( callToSystem.cap(1).latin1(), "r" );
+		while ( proc && !feof(proc) ) {
+		    int read_in = (int)fread( buff, 1, 255, proc );
+		    if ( !read_in )
+			break;
+		    for ( int i = 0; i < read_in; i++ ) {
+			if ( buff[i] == '\n' || buff[i] == '\t' )
+			    buff[i] = ' ';
+		    }
+		    buff[read_in] = '\0';
+		    after += buff;
+		}
+		(*it).replace( i, callToSystem.matchedLength(), after );
+		i += after.length();
+	    }
+	}
+	stillProcess = callToInclude.search(t) != -1;
+    }
+    return tagMap;
+}