//
//
// C++ Implementation: kfilereplacepart
//
// Description:
//
//
// Author: Andras Mantia <amantia@kde.org>, (C) 2003
// Maintainer: Emiliano Gulmini <emi_barbarossa@yahoo.it>, (C) 2004
//
// Copyright: GPL v2. See COPYING file that comes with this distribution
//
//
// QT
# include <tqdir.h>
# include <tqdatastream.h>
# include <tqregexp.h>
# include <tqimage.h>
# include <tqtextcodec.h>
// KDE
# include <dcopclient.h>
# include <dcopref.h>
# include <kaboutapplication.h>
# include <kapplication.h>
# include <kaction.h>
# include <kbugreport.h>
# include <kconfig.h>
# include <kfiledialog.h>
# include <kinstance.h>
# include <kio/netaccess.h>
# include <klocale.h>
# include <kmessagebox.h>
# include <kparts/genericfactory.h>
# include <kstandarddirs.h>
# include <kiconloader.h>
# include <kglobal.h>
# include <kiconeffect.h>
# include <klistview.h>
# include <kuser.h>
# include <kcombobox.h>
# include <kguiitem.h>
// local
# include "kfilereplacelib.h"
# include "kfilereplacepart.h"
# include "kfilereplaceview.h"
# include "koptionsdlg.h"
# include "knewprojectdlg.h"
# include "report.h"
# include "commandengine.h"
# include "whatthis.h"
using namespace whatthisNameSpace ;
//PUBLIC CONSTRUCTORS
// Factory code for KDE 3
typedef KParts : : GenericFactory < KFileReplacePart > FileReplaceFactory ;
K_EXPORT_COMPONENT_FACTORY ( libkfilereplacepart , FileReplaceFactory )
KFileReplacePart : : KFileReplacePart ( TQWidget * parentWidget , const char * , TQObject * parent , const char * name , const TQStringList & ) : KParts : : ReadOnlyPart ( parent , name )
{
setInstance ( FileReplaceFactory : : instance ( ) ) ;
KGlobal : : locale ( ) - > insertCatalogue ( " kfilereplace " ) ;
m_parentWidget = parentWidget ;
m_config = new KConfig ( " kfilereplacerc " ) ;
m_aboutDlg = 0 ;
m_stop = false ;
m_optionMask = TQDir : : Files ;
m_w = widget ( ) ;
m_option = 0 ;
loadOptionsFromRC ( ) ;
initView ( ) ;
initGUI ( ) ;
whatsThis ( ) ;
}
KFileReplacePart : : ~ KFileReplacePart ( )
{
m_view = 0 ; //it's already deleted, so set it to NULL
saveOptionsToRC ( ) ;
delete m_aboutDlg ;
m_aboutDlg = 0 ;
delete m_config ;
m_config = 0 ;
delete m_w ;
m_w = 0 ;
delete m_option ;
}
//PRIVATE SLOTS
void KFileReplacePart : : slotSetNewParameters ( )
{
launchNewProjectDialog ( KURL ( ) ) ;
m_view - > changeView ( m_option - > m_searchingOnlyMode ) ;
emit setStatusBarText ( i18n ( " Ready. " ) ) ;
}
void KFileReplacePart : : slotSearchingOperation ( )
{
if ( ! checkBeforeOperation ( ) )
return ;
KListView * rv = m_view - > getResultsView ( ) ;
rv - > clear ( ) ;
rv - > setSorting ( - 1 ) ;
// show wait cursor
TQApplication : : setOverrideCursor ( TQt : : waitCursor ) ;
freezeActions ( ) ;
setOptionMask ( ) ;
TQString currentDirectory = m_option - > m_directories [ 0 ] ,
currentFilter = m_option - > m_filters [ 0 ] ;
//m_currentDir = currentDirectory;
m_view - > showSemaphore ( " red " ) ;
uint filesNumber = 0 ;
if ( m_option - > m_recursive )
recursiveFileSearch ( currentDirectory , currentFilter , filesNumber ) ;
else
fileSearch ( currentDirectory , currentFilter ) ;
m_view - > showSemaphore ( " yellow " ) ;
kapp - > processEvents ( ) ;
//disabling and enabling sorting... don't ask me why, but it works!
rv - > setSorting ( 0 ) ;
rv - > sort ( ) ;
rv - > setSorting ( - 1 ) ;
// restore false status for stop button
m_stop = false ;
TQApplication : : restoreOverrideCursor ( ) ;
emit setStatusBarText ( i18n ( " Search completed. " ) ) ;
m_option - > m_searchingOnlyMode = true ;
resetActions ( ) ;
m_searchingOperation = true ;
m_view - > showSemaphore ( " green " ) ;
}
void KFileReplacePart : : slotReplacingOperation ( )
{
if ( KMessageBox : : warningContinueCancel ( m_w , i18n ( " <qt>You have selected <b>%1</b> as the encoding of the files.<br>Selecting the correct encoding is very important as if you have files that have some other encoding than the selected one, after a replace you may damage those files.<br><br>In case you do not know the encoding of your files, select <i>utf8</i> and <b>enable</b> the creation of backup files. This setting will autodetect <i>utf8</i> and <i>utf16</i> files, but the changed files will be converted to <i>utf8</i>.</qt> " ) . tqarg ( m_option - > m_encoding ) , i18n ( " File Encoding Warning " ) , KStdGuiItem : : cont ( ) , " ShowEncodingWarning " ) = = KMessageBox : : Cancel )
return ;
if ( ! checkBeforeOperation ( ) )
return ;
KListView * rv = m_view - > getResultsView ( ) ;
if ( m_option - > m_simulation )
{
emit setStatusBarText ( i18n ( " Replacing files (simulation) . . . " )) ;
rv - > setColumnText ( 4 , i18n ( " Replaced strings (simulation) " ) ) ;
}
else
{
emit setStatusBarText ( i18n ( " Replacing files... " ) ) ;
rv - > setColumnText ( 4 , i18n ( " Replaced strings " ) ) ;
}
// show wait cursor
TQApplication : : setOverrideCursor ( TQt : : waitCursor ) ;
freezeActions ( ) ;
setOptionMask ( ) ;
rv - > setSorting ( - 1 ) ;
m_view - > showSemaphore ( " green " ) ;
TQString currentDirectory = m_option - > m_directories [ 0 ] ;
m_view - > showSemaphore ( " red " ) ;
if ( m_option - > m_recursive )
{
int filesNumber = 0 ;
recursiveFileReplace ( currentDirectory , filesNumber ) ;
}
else
{
fileReplace ( ) ;
}
rv - > setSorting ( 0 ) ;
rv - > sort ( ) ;
rv - > setSorting ( - 1 ) ;
// restore false status for stop button
m_stop = false ;
TQApplication : : restoreOverrideCursor ( ) ;
m_option - > m_searchingOnlyMode = false ;
resetActions ( ) ;
m_searchingOperation = false ;
m_view - > showSemaphore ( " green " ) ;
}
void KFileReplacePart : : slotSimulatingOperation ( )
{
m_option - > m_simulation = true ;
slotReplacingOperation ( ) ;
m_option - > m_simulation = false ;
}
void KFileReplacePart : : slotStop ( )
{
emit setStatusBarText ( i18n ( " Stopping... " ) ) ;
m_stop = true ;
TQApplication : : restoreOverrideCursor ( ) ;
resetActions ( ) ;
}
void KFileReplacePart : : slotCreateReport ( )
{
// Check there are results
KListView * rv = m_view - > getResultsView ( ) ,
* sv = m_view - > getStringsView ( ) ;
if ( rv - > firstChild ( ) = = 0 )
{
KMessageBox : : error ( m_w , i18n ( " There are no results to save: the result list is empty. " ) ) ;
return ;
}
// Select the file where results will be saved
TQString documentName = KFileDialog : : getSaveFileName ( TQString ( ) , " *.xml|XML " + i18n ( " Files " ) + " (*.xml) " , m_w , i18n ( " Save Report " ) ) ;
if ( documentName . isEmpty ( ) )
return ;
// delete a spourious extension
documentName . truncate ( documentName . length ( ) - 4 ) ;
TQFileInfo fileInfo ( documentName ) ;
if ( fileInfo . exists ( ) )
{
KMessageBox : : error ( m_w , i18n ( " <qt>A folder or a file named <b>%1</b> already exists.</qt> " ) . tqarg ( documentName ) ) ;
return ;
}
TQDir directoryName ;
if ( ! directoryName . mkdir ( documentName , true ) )
{
KMessageBox : : error ( m_w , i18n ( " <qt>Cannot create the <b>%1</b> folder.</qt> " ) . tqarg ( documentName ) ) ;
return ;
}
directoryName . cd ( documentName ) ;
TQString documentPath = documentName + " / " + directoryName . dirName ( ) ;
Report report ( m_option , rv , sv ) ;
report . createDocument ( documentPath ) ;
//resetActions();
}
void KFileReplacePart : : slotStringsAdd ( )
{
m_view - > slotStringsAdd ( ) ;
resetActions ( ) ;
}
void KFileReplacePart : : slotQuickStringsAdd ( )
{
//this slot handles a pair of strings that come from project dialog,
//if the control character 'N' is found at the position 0 of the two strings,
//then we start the search now.
TQString qs = m_option - > m_quickSearchString ;
TQStringList map ;
map . append ( qs . left ( 1 ) ) ;
map . append ( qs . right ( qs . length ( ) - 1 ) ) ;
//in this case there is no string to search for, so return
if ( map [ 1 ] . isEmpty ( ) )
return ;
//in this one instead, we must search for a string
qs = m_option - > m_quickReplaceString ;
map . append ( qs . left ( 1 ) ) ;
map . append ( qs . right ( qs . length ( ) - 1 ) ) ;
m_view - > updateOptions ( m_option ) ;
m_view - > slotQuickStringsAdd ( map [ 1 ] , map [ 3 ] ) ;
//if search-only mode == true and search-now mode == true then
//search string
if ( map [ 0 ] = = " N " )
if ( m_option - > m_searchingOnlyMode )
slotSearchingOperation ( ) ;
else
slotReplacingOperation ( ) ;
}
void KFileReplacePart : : slotStringsDeleteItem ( )
{
m_view - > slotStringsDeleteItem ( ) ;
resetActions ( ) ;
}
void KFileReplacePart : : slotStringsEmpty ( )
{
m_view - > slotStringsEmpty ( ) ;
resetActions ( ) ;
}
void KFileReplacePart : : slotStringsEdit ( )
{
m_view - > slotStringsEdit ( ) ;
resetActions ( ) ;
}
void KFileReplacePart : : slotStringsSave ( )
{
m_view - > slotStringsSave ( ) ;
}
void KFileReplacePart : : slotStringsLoad ( )
{
// Selects the file to load from
TQString menu = " *.kfr| " + i18n ( " KFileReplace strings " ) + " (*.kfr) \n *| " + i18n ( " All Files " ) + " (*) " ;
TQString fileName = KFileDialog : : getOpenFileName ( TQString ( ) , menu , m_w , i18n ( " Load Strings From File " ) ) ;
if ( ! fileName . isEmpty ( ) )
loadRulesFile ( fileName ) ;
resetActions ( ) ;
}
void KFileReplacePart : : slotStringsInvertCur ( )
{
m_view - > stringsInvert ( false ) ;
resetActions ( ) ;
}
void KFileReplacePart : : slotStringsInvertAll ( )
{
m_view - > stringsInvert ( true ) ;
resetActions ( ) ;
}
void KFileReplacePart : : slotOpenRecentStringFile ( const KURL & urlFile )
{
TQString fileName ;
// Downloads file if need (if url is "http://...")
if ( ! ( KIO : : NetAccess : : download ( urlFile , fileName , 0 ) ) )
return ;
// Checks it's not a directory
TQFileInfo fileInfo ;
fileInfo . setFile ( fileName ) ;
if ( fileInfo . isDir ( ) )
{
KMessageBox : : error ( m_w , i18n ( " Cannot open folders. " ) ) ;
return ;
}
loadRulesFile ( fileName ) ;
resetActions ( ) ;
}
void KFileReplacePart : : slotOptionRecursive ( )
{
m_option - > m_recursive = ! m_option - > m_recursive ;
resetActions ( ) ;
}
void KFileReplacePart : : slotOptionBackup ( )
{
m_option - > m_backup = ! m_option - > m_backup ;
resetActions ( ) ;
}
void KFileReplacePart : : slotOptionCaseSensitive ( )
{
m_option - > m_caseSensitive = ! m_option - > m_caseSensitive ;
resetActions ( ) ;
}
void KFileReplacePart : : slotOptionVariables ( )
{
m_option - > m_variables = ! m_option - > m_variables ;
resetActions ( ) ;
}
void KFileReplacePart : : slotOptionRegularExpressions ( )
{
m_option - > m_regularExpressions = ! m_option - > m_regularExpressions ;
resetActions ( ) ;
}
void KFileReplacePart : : slotOptionPreferences ( )
{
KOptionsDlg dlg ( m_option , m_w , 0 ) ;
if ( ! dlg . exec ( ) )
return ;
//updating m_view
m_view - > updateOptions ( m_option ) ;
resetActions ( ) ;
}
void KFileReplacePart : : showAboutApplication ( )
{
m_aboutDlg = new KAboutApplication ( createAboutData ( ) , ( TQWidget * ) 0 , ( const char * ) 0 , false ) ;
if ( m_aboutDlg = = 0 )
return ;
if ( ! m_aboutDlg - > isVisible ( ) )
m_aboutDlg - > show ( ) ;
else
m_aboutDlg - > raise ( ) ;
}
void KFileReplacePart : : appHelpActivated ( )
{
kapp - > invokeHelp ( TQString ( ) , " kfilereplace " ) ;
}
void KFileReplacePart : : reportBug ( )
{
KBugReport dlg ( m_w , true , createAboutData ( ) ) ;
dlg . exec ( ) ;
}
void KFileReplacePart : : resetActions ( )
{
KListView * rv = m_view - > getResultsView ( ) ,
* sv = m_view - > getStringsView ( ) ;
bool hasItems = ( sv - > firstChild ( ) ! = 0 ) ,
searchOnlyMode = m_option - > m_searchingOnlyMode ;
// File
actionCollection ( ) - > action ( " new_project " ) - > setEnabled ( true ) ;
actionCollection ( ) - > action ( " search " ) - > setEnabled ( hasItems & & searchOnlyMode ) ;
actionCollection ( ) - > action ( " file_simulate " ) - > setEnabled ( hasItems & & ! searchOnlyMode ) ;
actionCollection ( ) - > action ( " replace " ) - > setEnabled ( hasItems & & ! searchOnlyMode ) ;
actionCollection ( ) - > action ( " save_results " ) - > setEnabled ( hasItems ) ;
actionCollection ( ) - > action ( " stop " ) - > setEnabled ( false ) ;
// Strings
actionCollection ( ) - > action ( " strings_add " ) - > setEnabled ( true ) ;
actionCollection ( ) - > action ( " strings_del " ) - > setEnabled ( hasItems ) ;
actionCollection ( ) - > action ( " strings_empty " ) - > setEnabled ( hasItems ) ;
actionCollection ( ) - > action ( " strings_edit " ) - > setEnabled ( hasItems ) ;
actionCollection ( ) - > action ( " strings_save " ) - > setEnabled ( hasItems ) ;
actionCollection ( ) - > action ( " strings_load " ) - > setEnabled ( true ) ;
actionCollection ( ) - > action ( " strings_invert " ) - > setEnabled ( hasItems & & ! searchOnlyMode ) ;
actionCollection ( ) - > action ( " strings_invert_all " ) - > setEnabled ( hasItems & & ! searchOnlyMode ) ;
// Options
actionCollection ( ) - > action ( " options_recursive " ) - > setEnabled ( true ) ;
actionCollection ( ) - > action ( " options_backup " ) - > setEnabled ( ! searchOnlyMode ) ;
actionCollection ( ) - > action ( " options_case " ) - > setEnabled ( true ) ;
actionCollection ( ) - > action ( " options_var " ) - > setEnabled ( ! searchOnlyMode ) ;
actionCollection ( ) - > action ( " options_regularexpressions " ) - > setEnabled ( true ) ;
actionCollection ( ) - > action ( " configure_kfilereplace " ) - > setEnabled ( true ) ;
hasItems = ( rv - > firstChild ( ) ! = 0 ) ;
// Results
actionCollection ( ) - > action ( " results_infos " ) - > setEnabled ( hasItems ) ;
actionCollection ( ) - > action ( " results_openfile " ) - > setEnabled ( hasItems ) ;
if ( actionCollection ( ) - > action ( " results_editfile " ) )
actionCollection ( ) - > action ( " results_editfile " ) - > setEnabled ( hasItems ) ;
actionCollection ( ) - > action ( " results_opendir " ) - > setEnabled ( hasItems ) ;
actionCollection ( ) - > action ( " results_delete " ) - > setEnabled ( hasItems ) ;
actionCollection ( ) - > action ( " results_treeexpand " ) - > setEnabled ( hasItems ) ;
actionCollection ( ) - > action ( " results_treereduce " ) - > setEnabled ( hasItems ) ;
// Updates menus and toolbar
( ( KToggleAction * ) actionCollection ( ) - > action ( " options_recursive " ) ) - > setChecked ( m_option - > m_recursive ) ;
( ( KToggleAction * ) actionCollection ( ) - > action ( " options_backup " ) ) - > setChecked ( m_option - > m_backup & & ! searchOnlyMode ) ;
( ( KToggleAction * ) actionCollection ( ) - > action ( " options_case " ) ) - > setChecked ( m_option - > m_caseSensitive ) ;
( ( KToggleAction * ) actionCollection ( ) - > action ( " options_var " ) ) - > setChecked ( m_option - > m_variables & & ! searchOnlyMode ) ;
( ( KToggleAction * ) actionCollection ( ) - > action ( " options_regularexpressions " ) ) - > setChecked ( m_option - > m_regularExpressions ) ;
}
//PUBLIC METHODS
KAboutData * KFileReplacePart : : createAboutData ( )
{
KAboutData * aboutData = new KAboutData ( " kfilereplacepart " ,
I18N_NOOP ( " KFileReplacePart " ) ,
KFR_VERSION ,
I18N_NOOP ( " Batch search and replace tool. " ) ,
KAboutData : : License_GPL_V2 ,
" (C) 1999-2002 Fran<61> is Dupoux \n (C) 2003-2004 Andras Mantia \n (C) 2004 Emiliano Gulmini " , I18N_NOOP ( " Part of the KDEWebDev module. " ) , " http://www.kdewebdev.org " ) ;
aboutData - > addAuthor ( " Fran<EFBFBD> is Dupoux " ,
I18N_NOOP ( " Original author of the KFileReplace tool " ) ,
" dupoux@dupoux.com " ) ;
aboutData - > addAuthor ( " Emiliano Gulmini " ,
I18N_NOOP ( " Current maintainer, code cleaner and rewriter " ) ,
" emi_barbarossa@yahoo.it " ) ;
aboutData - > addAuthor ( " Andras Mantia " ,
I18N_NOOP ( " Co-maintainer, KPart creator " ) ,
" amantia@kde.org " ) ;
aboutData - > addCredit ( " Heiko Goller " ,
I18N_NOOP ( " Original german translator " ) ,
" heiko.goller@tuebingen.mpg.de " ) ;
return aboutData ;
}
//PROTECTED METHODS
bool KFileReplacePart : : openURL ( const KURL & url )
{
if ( ! url . isEmpty ( ) & & ( url . protocol ( ) ! = " file " ) )
{
KMessageBox : : sorry ( m_w , i18n ( " Sorry, currently the KFileReplace part works only for local files. " ) , i18n ( " Non Local File " ) ) ;
emit canceled ( " " ) ;
return false ;
}
if ( ! url . isEmpty ( ) )
return launchNewProjectDialog ( url ) ;
else
{
resetActions ( ) ;
return true ;
}
}
//PRIVATE METHODS
void KFileReplacePart : : initGUI ( )
{
setXMLFile ( " kfilereplacepartui.rc " ) ;
actionCollection ( ) - > setHighlightingEnabled ( true ) ;
DCOPClient * client = kapp - > dcopClient ( ) ;
QCStringList appList = client - > registeredApplications ( ) ;
bool quantaFound = false ;
for ( QCStringList : : Iterator it = appList . begin ( ) ; it ! = appList . end ( ) ; + + it )
{
if ( ( * it ) . left ( 6 ) = = " quanta " )
{
quantaFound = true ;
break ;
}
}
// File
( void ) new KAction ( i18n ( " Customize Search/Replace Session... " ) , " projectopen " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotSetNewParameters ( ) ) , actionCollection ( ) , " new_project " ) ;
( void ) new KAction ( i18n ( " &Search " ) , " filesearch " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotSearchingOperation ( ) ) , actionCollection ( ) , " search " ) ;
( void ) new KAction ( i18n ( " S&imulate " ) , " filesimulate " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotSimulatingOperation ( ) ) , actionCollection ( ) , " file_simulate " ) ;
( void ) new KAction ( i18n ( " &Replace " ) , " filereplace " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotReplacingOperation ( ) ) , actionCollection ( ) , " replace " ) ;
( void ) new KAction ( i18n ( " Sto&p " ) , " stop " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotStop ( ) ) , actionCollection ( ) , " stop " ) ;
( void ) new KAction ( i18n ( " Cre&ate Report File... " ) , " filesaveas " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotCreateReport ( ) ) , actionCollection ( ) , " save_results " ) ;
// Strings
( void ) new KAction ( i18n ( " &Add String... " ) , " editadd " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotStringsAdd ( ) ) , actionCollection ( ) , " strings_add " ) ;
( void ) new KAction ( i18n ( " &Delete String " ) , " editremove " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotStringsDeleteItem ( ) ) , actionCollection ( ) , " strings_del " ) ;
( void ) new KAction ( i18n ( " &Empty Strings List " ) , " editdelete " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotStringsEmpty ( ) ) , actionCollection ( ) , " strings_empty " ) ;
( void ) new KAction ( i18n ( " Edit Selected String... " ) , " edit " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotStringsEdit ( ) ) , actionCollection ( ) , " strings_edit " ) ;
( void ) new KAction ( i18n ( " &Save Strings List to File... " ) , " filesaveas " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotStringsSave ( ) ) , actionCollection ( ) , " strings_save " ) ;
( void ) new KAction ( i18n ( " &Load Strings List From File... " ) , " unsortedList " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotStringsLoad ( ) ) , actionCollection ( ) , " strings_load " ) ;
( void ) new KRecentFilesAction ( i18n ( " &Load Recent Strings Files " ) , " fileopen " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotOpenRecentStringFile ( const KURL & ) ) , actionCollection ( ) , " strings_load_recent " ) ;
( void ) new KAction ( i18n ( " &Invert Current String (search <--> replace) " ) , " invert " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotStringsInvertCur ( ) ) , actionCollection ( ) , " strings_invert " ) ;
( void ) new KAction ( i18n ( " &Invert All Strings (search <--> replace) " ) , " invert " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotStringsInvertAll ( ) ) , actionCollection ( ) , " strings_invert_all " ) ;
// Options
( void ) new KToggleAction ( i18n ( " &Include Sub-Folders " ) , " recursive_option " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotOptionRecursive ( ) ) , actionCollection ( ) , " options_recursive " ) ;
( void ) new KToggleAction ( i18n ( " Create &Backup Files " ) , " backup_option " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotOptionBackup ( ) ) , actionCollection ( ) , " options_backup " ) ;
( void ) new KToggleAction ( i18n ( " Case &Sensitive " ) , " casesensitive_option " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotOptionCaseSensitive ( ) ) , actionCollection ( ) , " options_case " ) ;
( void ) new KToggleAction ( i18n ( " Enable Commands &in Replace String: [$command:option$] " ) , " command_option " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotOptionVariables ( ) ) , actionCollection ( ) , " options_var " ) ;
( void ) new KToggleAction ( i18n ( " Enable &Regular Expressions " ) , " regularexpression_option " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotOptionRegularExpressions ( ) ) , actionCollection ( ) , " options_regularexpressions " ) ;
( void ) new KAction ( i18n ( " Configure &KFileReplace... " ) , " configure " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotOptionPreferences ( ) ) , actionCollection ( ) , " configure_kfilereplace " ) ;
// Results
( void ) new KAction ( i18n ( " &Properties " ) , " informations " , 0 , TQT_TQOBJECT ( m_view ) , TQT_SLOT ( slotResultProperties ( ) ) , actionCollection ( ) , " results_infos " ) ;
( void ) new KAction ( i18n ( " &Open " ) , " filenew " , 0 , TQT_TQOBJECT ( m_view ) , TQT_SLOT ( slotResultOpen ( ) ) , actionCollection ( ) , " results_openfile " ) ;
if ( quantaFound )
{
( void ) new KAction ( i18n ( " &Edit in Quanta " ) , " quanta " , 0 , TQT_TQOBJECT ( m_view ) , TQT_SLOT ( slotResultEdit ( ) ) , actionCollection ( ) , " results_editfile " ) ;
}
( void ) new KAction ( i18n ( " Open Parent &Folder " ) , " fileopen " , 0 , TQT_TQOBJECT ( m_view ) , TQT_SLOT ( slotResultDirOpen ( ) ) , actionCollection ( ) , " results_opendir " ) ;
( void ) new KAction ( i18n ( " &Delete " ) , " editdelete " , 0 , TQT_TQOBJECT ( m_view ) , TQT_SLOT ( slotResultDelete ( ) ) , actionCollection ( ) , " results_delete " ) ;
( void ) new KAction ( i18n ( " E&xpand Tree " ) , 0 , TQT_TQOBJECT ( m_view ) , TQT_SLOT ( slotResultTreeExpand ( ) ) , actionCollection ( ) , " results_treeexpand " ) ;
( void ) new KAction ( i18n ( " &Reduce Tree " ) , 0 , TQT_TQOBJECT ( m_view ) , TQT_SLOT ( slotResultTreeReduce ( ) ) , actionCollection ( ) , " results_treereduce " ) ;
( void ) new KAction ( i18n ( " &About KFileReplace " ) , " kfilereplace " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( showAboutApplication ( ) ) , actionCollection ( ) , " help_about_kfilereplace " ) ;
( void ) new KAction ( i18n ( " KFileReplace &Handbook " ) , " help " , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( appHelpActivated ( ) ) , actionCollection ( ) , " help_kfilereplace " ) ;
( void ) new KAction ( i18n ( " &Report Bug " ) , 0 , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( reportBug ( ) ) , actionCollection ( ) , " report_bug " ) ;
}
void KFileReplacePart : : initView ( )
{
m_view = new KFileReplaceView ( m_option , m_parentWidget , " view " ) ;
setWidget ( m_view ) ;
m_view - > setAcceptDrops ( false ) ;
m_view - > showSemaphore ( " green " ) ;
}
void KFileReplacePart : : freezeActions ( )
{
//Disables actions during search/replace operation
actionCollection ( ) - > action ( " new_project " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " stop " ) - > setEnabled ( true ) ;
actionCollection ( ) - > action ( " file_simulate " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " replace " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " search " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " strings_add " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " strings_del " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " strings_empty " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " strings_edit " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " strings_save " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " strings_load " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " strings_invert " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " strings_invert_all " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " options_recursive " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " options_backup " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " options_case " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " options_var " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " options_regularexpressions " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " configure_kfilereplace " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " results_infos " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " results_openfile " ) - > setEnabled ( false ) ;
if ( actionCollection ( ) - > action ( " results_editfile " ) )
actionCollection ( ) - > action ( " results_editfile " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " results_opendir " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " results_delete " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " results_treeexpand " ) - > setEnabled ( false ) ;
actionCollection ( ) - > action ( " results_treereduce " ) - > setEnabled ( false ) ;
( ( KToggleAction * ) actionCollection ( ) - > action ( " options_recursive " ) ) - > setChecked ( false ) ;
( ( KToggleAction * ) actionCollection ( ) - > action ( " options_backup " ) ) - > setChecked ( false ) ;
( ( KToggleAction * ) actionCollection ( ) - > action ( " options_case " ) ) - > setChecked ( false ) ;
( ( KToggleAction * ) actionCollection ( ) - > action ( " options_var " ) ) - > setChecked ( false ) ;
( ( KToggleAction * ) actionCollection ( ) - > action ( " options_regularexpressions " ) ) - > setChecked ( false ) ;
}
void KFileReplacePart : : loadOptionsFromRC ( )
{
m_option = new RCOptions ( ) ;
loadOptions ( ) ;
loadFileSizeOptions ( ) ;
loadDateAccessOptions ( ) ;
loadOwnerOptions ( ) ;
loadLocationsList ( ) ;
loadFiltersList ( ) ;
loadBackupExtensionOptions ( ) ;
}
void KFileReplacePart : : loadOptions ( )
{
m_config - > setGroup ( " General Options " ) ;
m_option - > m_recentStringFileList = m_config - > readListEntry ( rcRecentFiles ) ;
m_option - > m_searchingOnlyMode = m_config - > readBoolEntry ( rcSearchMode , SearchModeOption ) ;
m_config - > setGroup ( " Options " ) ;
m_option - > m_encoding = m_config - > readEntry ( rcEncoding , EncodingOption ) ;
m_option - > m_recursive = m_config - > readBoolEntry ( rcRecursive , RecursiveOption ) ;
m_option - > m_caseSensitive = m_config - > readBoolEntry ( rcCaseSensitive , CaseSensitiveOption ) ;
m_option - > m_variables = m_config - > readBoolEntry ( rcVariables , VariablesOption ) ;
m_option - > m_regularExpressions = m_config - > readBoolEntry ( rcRegularExpressions , RegularExpressionsOption ) ;
m_option - > m_followSymLinks = m_config - > readBoolEntry ( rcFollowSymLinks , FollowSymbolicLinksOption ) ;
m_option - > m_haltOnFirstOccur = m_config - > readBoolEntry ( rcHaltOnFirstOccur , StopWhenFirstOccurenceOption ) ;
m_option - > m_ignoreHidden = m_config - > readBoolEntry ( rcIgnoreHidden , IgnoreHiddenOption ) ;
m_option - > m_ignoreFiles = m_config - > readBoolEntry ( rcIgnoreFiles , IgnoreFilesOption ) ;
m_config - > setGroup ( " Notification Messages " ) ;
m_option - > m_notifyOnErrors = m_config - > readBoolEntry ( rcNotifyOnErrors , true ) ;
m_option - > m_askConfirmReplace = m_config - > readBoolEntry ( rcAskConfirmReplace , AskConfirmReplaceOption ) ;
TQString dontAskAgain = m_config - > readEntry ( rcDontAskAgain , " no " ) ;
if ( dontAskAgain = = " yes " )
m_option - > m_askConfirmReplace = false ;
}
void KFileReplacePart : : loadFileSizeOptions ( )
{
m_config - > setGroup ( " Size options " ) ;
m_option - > m_minSize = m_config - > readNumEntry ( rcMinFileSize , FileSizeOption ) ;
m_option - > m_maxSize = m_config - > readNumEntry ( rcMaxFileSize , FileSizeOption ) ;
}
void KFileReplacePart : : loadDateAccessOptions ( )
{
m_config - > setGroup ( " Access options " ) ;
m_option - > m_dateAccess = m_config - > readEntry ( rcValidAccessDate , ValidAccessDateOption ) ;
m_option - > m_minDate = m_config - > readEntry ( rcMinDate , AccessDateOption ) ;
m_option - > m_maxDate = m_config - > readEntry ( rcMaxDate , AccessDateOption ) ;
}
void KFileReplacePart : : loadOwnerOptions ( )
{
m_config - > setGroup ( " Owner options " ) ;
TQStringList ownerList = TQStringList : : split ( ' , ' , m_config - > readEntry ( rcOwnerUser , OwnerOption ) , true ) ;
if ( ownerList [ 0 ] = = " true " )
m_option - > m_ownerUserIsChecked = true ;
else
m_option - > m_ownerUserIsChecked = false ;
m_option - > m_ownerUserType = ownerList [ 1 ] ;
m_option - > m_ownerUserBool = ownerList [ 2 ] ;
m_option - > m_ownerUserValue = ownerList [ 3 ] ;
ownerList = TQStringList : : split ( ' , ' , m_config - > readEntry ( rcOwnerGroup , OwnerOption ) , true ) ;
if ( ownerList [ 0 ] = = " true " )
m_option - > m_ownerGroupIsChecked = true ;
else
m_option - > m_ownerGroupIsChecked = false ;
m_option - > m_ownerGroupType = ownerList [ 1 ] ;
m_option - > m_ownerGroupBool = ownerList [ 2 ] ;
m_option - > m_ownerGroupValue = ownerList [ 3 ] ;
}
void KFileReplacePart : : loadLocationsList ( )
{
m_config - > setGroup ( " Directories " ) ;
TQStringList locationsEntryList ;
# if KDE_IS_VERSION(3,1,3)
locationsEntryList = m_config - > readPathListEntry ( rcDirectoriesList ) ;
# else
locationsEntryList = m_config - > readListEntry ( rcDirectoriesList ) ;
# endif
if ( locationsEntryList . isEmpty ( ) )
locationsEntryList . append ( TQDir : : current ( ) . path ( ) ) ;
m_option - > m_directories = locationsEntryList ;
}
void KFileReplacePart : : loadFiltersList ( )
{
TQStringList filtersEntryList ;
m_config - > setGroup ( " Filters " ) ;
# if KDE_IS_VERSION(3,1,3)
filtersEntryList = m_config - > readPathListEntry ( rcFiltersList ) ;
# else
filtersEntryList = m_config - > readListEntry ( rcFiltersList ) ;
# endif
if ( filtersEntryList . isEmpty ( ) )
filtersEntryList . append ( " *.htm;*.html;*.xml;*.xhtml;*.css;*.js;*.php " ) ;
m_option - > m_filters = filtersEntryList ;
}
void KFileReplacePart : : loadBackupExtensionOptions ( )
{
m_config - > setGroup ( " Options " ) ;
TQStringList bkList = TQStringList : : split ( ' , ' ,
m_config - > readEntry ( rcBackupExtension , BackupExtensionOption ) ,
true ) ;
if ( bkList [ 0 ] = = " true " )
m_option - > m_backup = true ;
else
m_option - > m_backup = false ;
m_option - > m_backupExtension = bkList [ 1 ] ;
}
void KFileReplacePart : : saveOptionsToRC ( )
{
saveOptions ( ) ;
saveFileSizeOptions ( ) ;
saveDateAccessOptions ( ) ;
saveOwnerOptions ( ) ;
saveLocationsList ( ) ;
saveFiltersList ( ) ;
saveBackupExtensionOptions ( ) ;
}
void KFileReplacePart : : saveOptions ( )
{
m_config - > setGroup ( " General Options " ) ;
m_config - > writeEntry ( rcRecentFiles , m_option - > m_recentStringFileList ) ;
m_config - > writeEntry ( rcSearchMode , m_option - > m_searchingOnlyMode ) ;
m_config - > setGroup ( " Options " ) ;
m_config - > writeEntry ( rcEncoding , m_option - > m_encoding ) ;
m_config - > writeEntry ( rcRecursive , m_option - > m_recursive ) ;
m_config - > writeEntry ( rcCaseSensitive , m_option - > m_caseSensitive ) ;
m_config - > writeEntry ( rcVariables , m_option - > m_variables ) ;
m_config - > writeEntry ( rcRegularExpressions , m_option - > m_regularExpressions ) ;
m_config - > writeEntry ( rcFollowSymLinks , m_option - > m_followSymLinks ) ;
m_config - > writeEntry ( rcHaltOnFirstOccur , m_option - > m_haltOnFirstOccur ) ;
m_config - > writeEntry ( rcIgnoreHidden , m_option - > m_ignoreHidden ) ;
m_config - > writeEntry ( rcIgnoreFiles , m_option - > m_ignoreFiles ) ;
m_config - > setGroup ( " Notification Messages " ) ;
m_config - > writeEntry ( rcNotifyOnErrors , m_option - > m_notifyOnErrors ) ;
if ( m_config - > readEntry ( rcDontAskAgain , " no " ) = = " yes " )
m_config - > writeEntry ( rcAskConfirmReplace , false ) ;
else
m_config - > writeEntry ( rcAskConfirmReplace , m_option - > m_askConfirmReplace ) ;
m_config - > sync ( ) ;
}
void KFileReplacePart : : saveFileSizeOptions ( )
{
m_config - > setGroup ( " Size options " ) ;
m_config - > writeEntry ( rcMaxFileSize , m_option - > m_maxSize ) ;
m_config - > writeEntry ( rcMinFileSize , m_option - > m_minSize ) ;
m_config - > sync ( ) ;
}
void KFileReplacePart : : saveDateAccessOptions ( )
{
m_config - > setGroup ( " Access options " ) ;
m_config - > writeEntry ( rcValidAccessDate , m_option - > m_dateAccess ) ;
m_config - > writeEntry ( rcMinDate , m_option - > m_minDate ) ;
m_config - > writeEntry ( rcMaxDate , m_option - > m_maxDate ) ;
m_config - > sync ( ) ;
}
void KFileReplacePart : : saveOwnerOptions ( )
{
m_config - > setGroup ( " Owner options " ) ;
TQString list ;
if ( m_option - > m_ownerUserIsChecked )
list = " true, " ;
else
list = " false, " ;
list + = m_option - > m_ownerUserType +
" , " +
m_option - > m_ownerUserBool ;
if ( ! m_option - > m_ownerUserValue . isEmpty ( ) )
list + = " , " + m_option - > m_ownerUserValue ;
m_config - > writeEntry ( rcOwnerUser , list ) ;
if ( m_option - > m_ownerGroupIsChecked )
list = " true, " ;
else
list = " false, " ;
list + = m_option - > m_ownerGroupType +
" , " +
m_option - > m_ownerGroupBool ;
if ( ! m_option - > m_ownerGroupValue . isEmpty ( ) )
list + = " , " + m_option - > m_ownerGroupValue ;
m_config - > writeEntry ( rcOwnerGroup , list ) ;
m_config - > sync ( ) ;
}
void KFileReplacePart : : saveLocationsList ( )
{
m_config - > setGroup ( " Directories " ) ;
# if KDE_IS_VERSION(3,1,3)
m_config - > writePathEntry ( rcDirectoriesList , m_option - > m_directories ) ;
# else
m_config - > writeEntry ( rcDirectoriesList , m_option - > m_directories ) ;
# endif
m_config - > sync ( ) ;
}
void KFileReplacePart : : saveFiltersList ( )
{
m_config - > setGroup ( " Filters " ) ;
m_config - > writeEntry ( rcFiltersList , m_option - > m_filters ) ;
m_config - > sync ( ) ;
}
void KFileReplacePart : : saveBackupExtensionOptions ( )
{
m_config - > setGroup ( " Options " ) ;
TQString bkOptions ;
if ( m_option - > m_backup )
bkOptions = " true, " + m_option - > m_backupExtension ;
else
bkOptions = " false, " + m_option - > m_backupExtension ;
m_config - > writeEntry ( rcBackupExtension , bkOptions ) ;
m_config - > sync ( ) ;
}
void KFileReplacePart : : fileReplace ( )
{
TQString directoryName = m_option - > m_directories [ 0 ] ;
TQDir d ( directoryName ) ;
d . setMatchAllDirs ( true ) ;
d . setFilter ( m_optionMask ) ;
TQString currentFilter = m_option - > m_filters [ 0 ] ;
TQStringList filesList = d . entryList ( currentFilter ) ;
TQStringList : : iterator filesIt ;
int filesNumber = 0 ;
m_view - > displayScannedFiles ( filesNumber ) ;
for ( filesIt = filesList . begin ( ) ; filesIt ! = filesList . end ( ) ; + + filesIt )
{
TQString fileName = ( * filesIt ) ;
// m_stop == true means that we pushed the stop button
if ( m_stop )
break ;
// Avoids files that not match requirements
if ( ! KFileReplaceLib : : isAnAccessibleFile ( d . canonicalPath ( ) , fileName , m_option ) )
continue ;
kapp - > processEvents ( ) ;
if ( m_option - > m_backup )
replaceAndBackup ( d . canonicalPath ( ) , fileName ) ;
else
replaceAndOverwrite ( d . canonicalPath ( ) , fileName ) ;
filesNumber + + ;
m_view - > displayScannedFiles ( filesNumber ) ;
}
}
void KFileReplacePart : : recursiveFileReplace ( const TQString & directoryName , int & filesNumber )
{
//if m_stop == true then interrupts recursion
if ( m_stop )
return ;
else
{
TQDir d ( directoryName ) ;
d . setMatchAllDirs ( true ) ;
d . setFilter ( m_optionMask ) ;
TQString currentFilter = m_option - > m_filters [ 0 ] ;
TQStringList filesList = d . entryList ( currentFilter ) ;
TQStringList : : iterator filesIt ;
for ( filesIt = filesList . begin ( ) ; filesIt ! = filesList . end ( ) ; + + filesIt )
{
//if m_stop == true then end for-loop
if ( m_stop )
break ;
TQString fileName = ( * filesIt ) ;
// Avoids files that not match requirements
if ( ! KFileReplaceLib : : isAnAccessibleFile ( d . canonicalPath ( ) , fileName , m_option ) )
continue ;
TQString filePath = d . canonicalPath ( ) + " / " + fileName ;
TQFileInfo qi ( filePath ) ;
m_view - > displayScannedFiles ( filesNumber ) ;
//if filePath is a directory then recursion
if ( qi . isDir ( ) )
recursiveFileReplace ( filePath , filesNumber ) ;
else
{
kapp - > processEvents ( ) ;
if ( m_option - > m_backup )
replaceAndBackup ( d . canonicalPath ( ) , fileName ) ;
else
replaceAndOverwrite ( d . canonicalPath ( ) , fileName ) ;
filesNumber + + ;
m_view - > displayScannedFiles ( filesNumber ) ;
}
}
}
}
void KFileReplacePart : : replaceAndBackup ( const TQString & currentDir , const TQString & oldFileName )
{
//Creates a path string
TQString oldPathString = currentDir + " / " + oldFileName ;
TQFile currentFile ( oldPathString ) ;
if ( ! currentFile . open ( IO_ReadOnly ) )
{
KMessageBox : : information ( m_w , i18n ( " <qt>Cannot open file <b>%1</b> for reading.</qt> " ) . tqarg ( oldFileName ) , TQString ( ) , rcNotifyOnErrors ) ;
return ;
}
TQTextStream currentStream ( & currentFile ) ;
if ( m_option - > m_encoding = = " utf8 " )
currentStream . setEncoding ( TQTextStream : : UnicodeUTF8 ) ;
else
currentStream . setCodec ( TQTextCodec : : codecForName ( m_option - > m_encoding . ascii ( ) ) ) ;
TQString line = currentStream . read ( ) ,
backupLine = line ;
TQString backupSize = KFileReplaceLib : : formatFileSize ( currentFile . size ( ) ) ;
currentFile . close ( ) ;
TQString backupExtension = m_option - > m_backupExtension ;
bool atLeastOneStringFound = false ;
KListViewItem * item = 0 ;
int occurrence = 0 ;
replacingLoop ( line , & item , atLeastOneStringFound , occurrence , m_option - > m_regularExpressions , m_option - > m_askConfirmReplace ) ;
//If we are not performing a simulation creates a backup file
if ( ! m_option - > m_simulation )
{
if ( atLeastOneStringFound )
{
KIO : : NetAccess : : file_copy ( KURL : : fromPathOrURL ( oldPathString ) , KURL : : fromPathOrURL ( oldPathString + backupExtension ) , - 1 , true ) ;
}
}
if ( ! m_option - > m_simulation )
{
if ( atLeastOneStringFound )
{
TQFile newFile ( oldPathString ) ;
if ( ! newFile . open ( IO_WriteOnly ) )
{
KMessageBox : : information ( m_w , i18n ( " <qt>Cannot open file <b>%1</b> for writing.</qt> " ) . tqarg ( oldFileName ) , TQString ( ) , rcNotifyOnErrors ) ;
return ;
}
TQTextStream newStream ( & newFile ) ;
if ( m_option - > m_encoding = = " utf8 " )
newStream . setEncoding ( TQTextStream : : UnicodeUTF8 ) ;
else
newStream . setCodec ( TQTextCodec : : codecForName ( m_option - > m_encoding . ascii ( ) ) ) ;
newStream < < line ;
newFile . close ( ) ;
}
}
if ( ! m_option - > m_ignoreFiles )
atLeastOneStringFound = true ;
TQFileInfo oldFileInfo ( oldPathString ) ;
if ( atLeastOneStringFound & & item /* && atLeastOneStringConfirmed*/ )
{
KFileReplaceLib : : setIconForFileEntry ( item , currentDir + " / " + oldFileName ) ;
item - > setText ( 0 , oldFileName ) ;
item - > setText ( 1 , currentDir ) ;
TQString newSize = KFileReplaceLib : : formatFileSize ( oldFileInfo . size ( ) ) ;
if ( ! m_option - > m_simulation )
{
item - > setText ( 2 , backupSize ) ;
item - > setText ( 3 , newSize ) ;
}
else
{
item - > setText ( 2 , backupSize ) ;
item - > setText ( 3 , " - " ) ;
}
item - > setText ( 4 , TQString : : number ( occurrence , 10 ) ) ;
item - > setText ( 5 , TQString ( " %1[%2] " ) . tqarg ( oldFileInfo . owner ( ) ) . tqarg ( oldFileInfo . ownerId ( ) ) ) ;
item - > setText ( 6 , TQString ( " %1[%2] " ) . tqarg ( oldFileInfo . group ( ) ) . tqarg ( oldFileInfo . groupId ( ) ) ) ;
}
}
void KFileReplacePart : : replaceAndOverwrite ( const TQString & currentDir , const TQString & oldFileName )
{
TQString oldPathString = currentDir + " / " + oldFileName ;
TQFile oldFile ( oldPathString ) ;
TQFileInfo oldFileInfo ( oldPathString ) ;
if ( ! oldFile . open ( IO_ReadOnly ) )
{
KMessageBox : : information ( m_w , i18n ( " <qt>Cannot open file <b>%1</b> for reading.</qt> " ) . tqarg ( oldFile . name ( ) ) , TQString ( ) , rcNotifyOnErrors ) ;
return ;
}
TQString fileSizeBeforeReplacing = KFileReplaceLib : : formatFileSize ( oldFileInfo . size ( ) ) ;
KListViewItem * item = 0 ;
TQTextStream oldStream ( & oldFile ) ;
if ( m_option - > m_encoding = = " utf8 " )
oldStream . setEncoding ( TQTextStream : : UnicodeUTF8 ) ;
else
oldStream . setCodec ( TQTextCodec : : codecForName ( m_option - > m_encoding . ascii ( ) ) ) ;
TQString line = oldStream . read ( ) ;
oldFile . close ( ) ;
bool atLeastOneStringFound = false ;
int occurrence = 0 ;
replacingLoop ( line , & item , atLeastOneStringFound , occurrence , m_option - > m_regularExpressions , m_option - > m_askConfirmReplace ) ;
if ( ! m_option - > m_simulation )
{
if ( atLeastOneStringFound )
{
TQFile newFile ( oldPathString ) ;
if ( ! newFile . open ( IO_WriteOnly ) )
{
KMessageBox : : information ( m_w , i18n ( " <qt>Cannot open file <b>%1</b> for writing.</qt> " ) . tqarg ( newFile . name ( ) ) , TQString ( ) , rcNotifyOnErrors ) ;
return ;
}
TQTextStream newStream ( & newFile ) ;
if ( m_option - > m_encoding = = " utf8 " )
newStream . setEncoding ( TQTextStream : : UnicodeUTF8 ) ;
else
newStream . setCodec ( TQTextCodec : : codecForName ( m_option - > m_encoding . ascii ( ) ) ) ;
newStream < < line ;
newFile . close ( ) ;
}
}
TQFileInfo nf ( oldPathString ) ;
TQString fileSizeAfterReplacing = KFileReplaceLib : : formatFileSize ( nf . size ( ) ) ;
//if ignoreFiles == false then every files must be show
if ( ! m_option - > m_ignoreFiles )
atLeastOneStringFound = true ;
if ( atLeastOneStringFound & & item /*&& atLeastOneStringConfirmed*/ )
{
KFileReplaceLib : : setIconForFileEntry ( item , currentDir + " / " + oldFileName ) ;
item - > setText ( 0 , oldFileName ) ;
item - > setText ( 1 , currentDir ) ;
item - > setText ( 2 , fileSizeBeforeReplacing ) ;
if ( ! m_option - > m_simulation )
item - > setText ( 3 , fileSizeAfterReplacing ) ;
else
item - > setText ( 3 , " - " ) ;
item - > setText ( 4 , TQString : : number ( occurrence , 10 ) ) ;
item - > setText ( 5 , TQString ( " %1[%2] " ) . tqarg ( oldFileInfo . owner ( ) ) . tqarg ( oldFileInfo . ownerId ( ) ) ) ;
item - > setText ( 6 , TQString ( " %1[%2] " ) . tqarg ( oldFileInfo . group ( ) ) . tqarg ( oldFileInfo . groupId ( ) ) ) ;
}
}
void KFileReplacePart : : replacingLoop ( TQString & line , KListViewItem * * item , bool & atLeastOneStringFound , int & occur , bool regularExpression , bool & askConfirmReplace )
{
KeyValueMap tempMap = m_replacementMap ;
KeyValueMap : : Iterator it ;
KListView * rv = m_view - > getResultsView ( ) ;
for ( it = tempMap . begin ( ) ; it ! = tempMap . end ( ) ; + + it )
{
if ( m_stop )
break ;
ResultViewEntry entry ( it . key ( ) , it . data ( ) , regularExpression , m_option - > m_caseSensitive ) ;
while ( entry . pos ( line ) ! = - 1 )
{
if ( m_stop )
break ;
if ( askConfirmReplace )
{
int answer = KMessageBox : : questionYesNo ( 0 ,
i18n ( " <qt>Do you want to replace the string <b>%1</b> with the string <b>%2</b>?</qt> " ) . tqarg ( it . key ( ) ) . tqarg ( it . data ( ) ) ,
i18n ( " Confirm Replace " ) ,
i18n ( " Replace " ) ,
i18n ( " Do Not Replace " ) ,
rcDontAskAgain ) ;
if ( answer = = KMessageBox : : Yes )
{
atLeastOneStringFound = true ;
TQString msg = entry . message ( entry . capturedText ( line ) ,
entry . lineNumber ( line ) ,
entry . columnNumber ( line ) ) ;
if ( ! * item )
* item = new KListViewItem ( rv ) ;
KListViewItem * tempItem = new KListViewItem ( * item ) ;
tempItem - > setMultiLinesEnabled ( true ) ;
tempItem - > setText ( 0 , msg ) ;
occur + + ;
entry . updateLine ( line ) ;
entry . incPos ( ) ;
}
else
{
entry . incPos ( ) ;
}
if ( dontAskAgain ( ) ) askConfirmReplace = false ;
}
else
{
atLeastOneStringFound = true ;
TQString msg = entry . message ( entry . capturedText ( line ) ,
entry . lineNumber ( line ) ,
entry . columnNumber ( line ) ) ;
if ( ! * item )
* item = new KListViewItem ( rv ) ;
KListViewItem * tempItem = new KListViewItem ( * item ) ;
tempItem - > setMultiLinesEnabled ( true ) ;
tempItem - > setText ( 0 , msg ) ;
occur + + ;
entry . updateLine ( line ) ;
entry . incPos ( ) ;
}
}
}
}
void KFileReplacePart : : fileSearch ( const TQString & directoryName , const TQString & filters )
{
TQDir d ( directoryName ) ;
d . setMatchAllDirs ( true ) ;
d . setFilter ( m_optionMask ) ;
TQStringList filesList = d . entryList ( filters ) ;
TQString filePath = d . canonicalPath ( ) ;
TQStringList : : iterator filesIt ;
uint filesNumber = 0 ;
m_view - > displayScannedFiles ( filesNumber ) ;
for ( filesIt = filesList . begin ( ) ; filesIt ! = filesList . end ( ) ; + + filesIt )
{
// We pushed stop button
if ( m_stop )
break ;
TQString fileName = ( * filesIt ) ;
// Avoids files that not match
if ( ! KFileReplaceLib : : isAnAccessibleFile ( filePath , fileName , m_option ) )
continue ;
TQFileInfo fileInfo ( filePath + " / " + fileName ) ;
if ( fileInfo . isDir ( ) )
continue ;
kapp - > processEvents ( ) ;
search ( filePath , fileName ) ;
filesNumber + + ;
m_view - > displayScannedFiles ( filesNumber ) ;
}
}
void KFileReplacePart : : recursiveFileSearch ( const TQString & directoryName , const TQString & filters , uint & filesNumber )
{
// if m_stop == true then interrupt recursion
if ( m_stop )
return ;
else
{
TQDir d ( directoryName ) ;
d . setMatchAllDirs ( true ) ;
d . setFilter ( m_optionMask ) ;
TQStringList filesList = d . entryList ( filters ) ;
TQString filePath = d . canonicalPath ( ) ;
TQStringList : : iterator filesIt ;
for ( filesIt = filesList . begin ( ) ; filesIt ! = filesList . end ( ) ; + + filesIt )
{
// stop polling
if ( m_stop )
break ;
TQString fileName = ( * filesIt ) ;
// Avoids files that not match
if ( ! KFileReplaceLib : : isAnAccessibleFile ( filePath , fileName , m_option ) )
continue ;
// Composes file path string
TQFileInfo fileInfo ( filePath + " / " + fileName ) ;
m_view - > displayScannedFiles ( filesNumber ) ;
// Searchs recursively if "filePath" is a directory
if ( fileInfo . isDir ( ) )
recursiveFileSearch ( filePath + " / " + fileName , filters , filesNumber ) ;
else
{
kapp - > processEvents ( ) ;
search ( filePath , fileName ) ;
filesNumber + + ;
m_view - > displayScannedFiles ( filesNumber ) ;
}
}
}
}
void KFileReplacePart : : search ( const TQString & currentDir , const TQString & fileName )
{
TQFile file ( currentDir + " / " + fileName ) ;
if ( ! file . open ( IO_ReadOnly ) )
{
KMessageBox : : information ( m_w , i18n ( " <qt>Cannot open file <b>%1</b> for reading.</qt> " ) . tqarg ( fileName ) , TQString ( ) , rcNotifyOnErrors ) ;
return ;
}
// Creates a stream with the file
TQTextStream stream ( & file ) ;
if ( m_option - > m_encoding = = " utf8 " )
stream . setEncoding ( TQTextStream : : UnicodeUTF8 ) ;
else
stream . setCodec ( TQTextCodec : : codecForName ( m_option - > m_encoding . ascii ( ) ) ) ;
TQString line = stream . read ( ) ;
file . close ( ) ;
TQFileInfo fileInfo ( currentDir + " / " + fileName ) ;
KListViewItem * item = 0 ;
//Counts occurrences
int occurrence = 0 ;
//This map contains strings to search
KeyValueMap tempMap = m_replacementMap ;
//If no strings has been found, then no lines will be added to the result view
bool atLeastOneStringFound = false ;
KeyValueMap : : Iterator it = tempMap . begin ( ) ;
KListView * rv = m_view - > getResultsView ( ) ;
while ( it ! = tempMap . end ( ) )
{
//stop polling
if ( m_stop )
break ;
TQString key = it . key ( ) ;
TQString strKey ;
TQRegExp rxKey ;
if ( m_option - > m_regularExpressions )
rxKey = TQRegExp ( " ( " + key + " ) " , m_option - > m_caseSensitive , false ) ;
else
strKey = key ;
/* If this option is true then for any string in
* the map we search for the first match */
if ( m_option - > m_haltOnFirstOccur )
{
int pos ;
if ( m_option - > m_regularExpressions )
pos = line . find ( rxKey ) ;
else
pos = line . find ( strKey , 0 , m_option - > m_caseSensitive ) ;
if ( pos ! = - 1 )
{
atLeastOneStringFound = true ;
int lineNumber = line . mid ( 0 , pos ) . contains ( ' \n ' ) + 1 ;
int columnNumber = pos - line . findRev ( ' \n ' , pos ) ;
if ( ! item )
item = new KListViewItem ( rv ) ;
KListViewItem * tempItem = new KListViewItem ( item ) ;
TQString msg ,
capturedText ;
if ( m_option - > m_regularExpressions )
capturedText = rxKey . cap ( 1 ) ;
else
capturedText = line . mid ( pos , strKey . length ( ) ) ;
msg = i18n ( " Line:%2, Col:%3 - \" %1 \" " ) . tqarg ( capturedText ) . tqarg ( TQString : : number ( lineNumber , 10 ) ) . tqarg ( TQString : : number ( columnNumber , 10 ) ) ;
tempItem - > setMultiLinesEnabled ( true ) ;
tempItem - > setText ( 0 , msg ) ;
occurrence = 1 ;
}
} // ends m_option->m_haltOnFirstOccur if-block
else
{
/* This point of the code is reached when we must search for all
* occurrences of all the strings */
int pos = 0 ;
if ( m_option - > m_regularExpressions )
pos = rxKey . search ( line , pos ) ;
else
pos = line . find ( strKey , pos , m_option - > m_caseSensitive ) ;
while ( pos ! = - 1 )
{
//stop polling
if ( m_stop )
break ;
atLeastOneStringFound = true ;
TQString msg ,
capturedText ;
int lineNumber = line . mid ( 0 , pos ) . contains ( ' \n ' ) + 1 ;
int columnNumber = pos - line . findRev ( ' \n ' , pos ) ;
if ( m_option - > m_regularExpressions )
{
capturedText = rxKey . cap ( 1 ) ;
pos = rxKey . search ( line , pos + rxKey . matchedLength ( ) ) ;
}
else
{
capturedText = line . mid ( pos , strKey . length ( ) ) ;
pos = line . find ( strKey , pos + strKey . length ( ) ) ;
}
msg = i18n ( " Line:%2, Col:%3 - \" %1 \" " ) . tqarg ( capturedText ) . tqarg ( TQString : : number ( lineNumber , 10 ) ) . tqarg ( TQString : : number ( columnNumber , 10 ) ) ;
if ( ! item )
item = new KListViewItem ( rv ) ;
KListViewItem * tempItem = new KListViewItem ( item ) ;
tempItem - > setMultiLinesEnabled ( true ) ;
tempItem - > setText ( 0 , msg ) ;
occurrence + + ;
//we push stop button
if ( m_stop )
break ;
}
}
//Advances of one position in the strings map
+ + it ;
//we push stop button
if ( m_stop )
break ;
}
//if ignoreFiles == false then every files must be show
if ( ! m_option - > m_ignoreFiles )
atLeastOneStringFound = true ;
if ( atLeastOneStringFound & & item )
{
KFileReplaceLib : : setIconForFileEntry ( item , currentDir + " / " + fileName ) ;
item - > setText ( 0 , fileName ) ;
item - > setText ( 1 , currentDir ) ;
item - > setText ( 2 , KFileReplaceLib : : formatFileSize ( fileInfo . size ( ) ) ) ;
item - > setText ( 3 , TQString : : number ( occurrence , 10 ) ) ;
item - > setText ( 4 , TQString ( " %1[%2] " ) . tqarg ( fileInfo . owner ( ) ) . tqarg ( fileInfo . ownerId ( ) ) ) ;
item - > setText ( 5 , TQString ( " %1[%2] " ) . tqarg ( fileInfo . group ( ) ) . tqarg ( fileInfo . groupId ( ) ) ) ;
}
}
void KFileReplacePart : : loadViewContent ( )
{
/* Maps the content of the strings view to a TQMap */
KeyValueMap tempMap ;
CommandEngine command ;
TQListViewItemIterator itlv ( m_view - > getStringsView ( ) ) ;
while ( itlv . current ( ) )
{
TQListViewItem * item = itlv . current ( ) ;
if ( m_option - > m_variables )
tempMap [ item - > text ( 0 ) ] = command . variableValue ( item - > text ( 1 ) ) ;
else
tempMap [ item - > text ( 0 ) ] = item - > text ( 1 ) ;
+ + itlv ;
}
m_replacementMap = tempMap ;
}
void KFileReplacePart : : loadRulesFile ( const TQString & fileName )
{
/* Loads a file with kfr extension.
* creates a xml document and browses it */
TQDomDocument doc ( " mydocument " ) ;
TQFile file ( fileName ) ;
KListView * sv = m_view - > getStringsView ( ) ;
if ( ! file . open ( IO_ReadOnly ) )
{
KMessageBox : : error ( m_w , i18n ( " <qt>Cannot open the file <b>%1</b> and load the string list.</qt> " ) . tqarg ( fileName ) ) ;
return ;
}
if ( ! doc . setContent ( & file ) )
{
file . close ( ) ;
KMessageBox : : information ( m_w , i18n ( " <qt>File <b>%1</b> seems not to be written in new kfr format. Remember that the old kfr format will be soon abandoned. You can convert your old rules files by simply saving them with kfilereplace.</qt> " ) . tqarg ( fileName ) , i18n ( " Warning " ) ) ;
KFileReplaceLib : : convertOldToNewKFRFormat ( fileName , sv ) ;
return ;
}
else
file . close ( ) ;
//clears view
sv - > clear ( ) ;
TQDomElement docElem = doc . documentElement ( ) ;
TQDomNode n = docElem . firstChild ( ) ;
TQString searchAttribute = n . toElement ( ) . attribute ( " search " ) . latin1 ( ) ;
KeyValueMap docMap ;
if ( searchAttribute . isNull ( ) | | searchAttribute . isEmpty ( ) )
{
int answer = KMessageBox : : warningYesNo ( m_w , i18n ( " <qt>The format of kfr files has been changed; attempting to load <b>%1</b>. Please see the KFilereplace manual for details. Do you want to load a search-and-replace list of strings?</qt> " ) . tqarg ( fileName ) , i18n ( " Warning " ) , i18n ( " Load " ) , i18n ( " Do Not Load " ) ) ;
if ( answer = = KMessageBox : : Yes )
searchAttribute = " false " ;
else
searchAttribute = " true " ;
}
//Verifies the search mode
if ( searchAttribute = = " true " )
m_option - > m_searchingOnlyMode = true ;
else
m_option - > m_searchingOnlyMode = false ;
//Refreshes the view appearances
m_view - > changeView ( m_option - > m_searchingOnlyMode ) ;
//Goes to next tag
n = n . nextSibling ( ) ;
//Reads the string list
while ( ! n . isNull ( ) )
{
TQDomElement e = n . toElement ( ) ; // tries to convert the node to an element.
if ( ! e . isNull ( ) )
{
TQString oldString = e . firstChild ( ) . toElement ( ) . text ( ) ,
newString = e . lastChild ( ) . toElement ( ) . text ( ) ;
docMap [ oldString ] = newString ;
}
n = n . nextSibling ( ) ;
}
// Adds file to "load strings form file" menu
TQStringList fileList = m_option - > m_recentStringFileList ;
if ( ! fileList . contains ( fileName ) )
{
fileList . append ( fileName ) ;
( ( KRecentFilesAction * ) actionCollection ( ) - > action ( " strings_load_recent " ) ) - > setItems ( fileList ) ;
m_option - > m_recentStringFileList = fileList ;
}
m_view - > changeView ( m_option - > m_searchingOnlyMode ) ;
m_view - > loadMap ( docMap ) ;
//resetActions();
}
bool KFileReplacePart : : launchNewProjectDialog ( const KURL & startURL )
{
if ( ! startURL . isEmpty ( ) )
m_option - > m_directories . prepend ( startURL . path ( ) ) ;
/* This dlg reads options from m_option, then execs, finally returns options.*/
KNewProjectDlg dlg ( m_option ) ;
if ( ! dlg . exec ( ) )
return false ;
dlg . saveRCOptions ( ) ;
m_config - > sync ( ) ;
slotQuickStringsAdd ( ) ;
m_view - > updateOptions ( m_option ) ;
resetActions ( ) ;
return true ;
}
void KFileReplacePart : : setOptionMask ( )
{
m_optionMask | = TQDir : : Dirs ;
if ( ! m_option - > m_ignoreHidden )
m_optionMask | = TQDir : : Hidden ;
if ( ! m_option - > m_followSymLinks )
m_optionMask | = TQDir : : NoSymLinks ;
}
bool KFileReplacePart : : checkBeforeOperation ( )
{
loadViewContent ( ) ;
KListView * sv = m_view - > getStringsView ( ) ;
// Checks if there are strings to replace (not need in search operation)
if ( sv - > childCount ( ) = = 0 )
{
KMessageBox : : error ( m_w , i18n ( " There are no strings to search and replace. " ) ) ;
return false ;
}
// Checks if the main directory can be accessed
TQString currentDirectory = m_option - > m_directories [ 0 ] ;
TQDir dir ;
dir . setPath ( currentDirectory ) ;
TQString directory = dir . absPath ( ) ;
if ( ! dir . exists ( ) )
{
KMessageBox : : error ( m_w , i18n ( " <qt>The main folder of the project <b>%1</b> does not exist.</qt> " ) . tqarg ( directory ) ) ;
return false ;
}
TQFileInfo dirInfo ( directory ) ;
if ( ! ( dirInfo . isReadable ( ) & & dirInfo . isExecutable ( ) )
| | ( ! m_option - > m_searchingOnlyMode & & ! m_option - > m_simulation & & ! ( dirInfo . isWritable ( ) ) ) )
{
KMessageBox : : error ( m_w , i18n ( " <qt>Access denied in the main folder of the project:<br><b>%1</b></qt> " ) . tqarg ( directory ) ) ;
return false ;
}
// Clears the list view
m_view - > getResultsView ( ) - > clear ( ) ;
return true ;
}
bool KFileReplacePart : : dontAskAgain ( )
{
m_config - > setGroup ( " Notification Messages " ) ;
TQString dontAskAgain = m_config - > readEntry ( rcDontAskAgain , " no " ) ;
if ( dontAskAgain = = " yes " )
return true ;
else
return false ;
}
void KFileReplacePart : : whatsThis ( )
{
actionCollection ( ) - > action ( " options_backup " ) - > setWhatsThis ( optionsBackupWhatthis ) ;
actionCollection ( ) - > action ( " options_case " ) - > setWhatsThis ( optionsCaseWhatthis ) ;
actionCollection ( ) - > action ( " options_var " ) - > setWhatsThis ( optionsVarWhatthis ) ;
actionCollection ( ) - > action ( " options_recursive " ) - > setWhatsThis ( optionsRecursiveWhatthis ) ;
actionCollection ( ) - > action ( " options_regularexpressions " ) - > setWhatsThis ( optionsRegularExpressionsWhatthis ) ;
}
# include "kfilereplacepart.moc"