|
|
|
/* This file is part of the KDE project
|
|
|
|
* Copyright (C) 2002 Carsten Niehaus <cniehaus@kde.org>
|
|
|
|
*
|
|
|
|
* This program is free software; you can redistribute it and/or
|
|
|
|
* modify it under the terms of the GNU General Public
|
|
|
|
* License as published by the Free Software Foundation version 2.
|
|
|
|
*
|
|
|
|
* This program is distributed in the hope that it will be useful,
|
|
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
|
* General Public License for more details.
|
|
|
|
*
|
|
|
|
* You should have received a copy of the GNU General Public License
|
|
|
|
* along with this program; see the file COPYING. If not, write to
|
|
|
|
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
|
|
* Boston, MA 02110-1301, USA.
|
|
|
|
*
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include "kfile_ts.h"
|
|
|
|
|
|
|
|
#include <kgenericfactory.h>
|
|
|
|
#include <kdebug.h>
|
|
|
|
|
|
|
|
#include <tqfile.h>
|
|
|
|
#include <tqstringlist.h>
|
|
|
|
|
|
|
|
typedef KGenericFactory<KTsPlugin> TsFactory;
|
|
|
|
|
|
|
|
K_EXPORT_COMPONENT_FACTORY(kfile_ts, TsFactory("kfile_ts"))
|
|
|
|
|
|
|
|
KTsPlugin::KTsPlugin(TQObject *tqparent, const char *name,
|
|
|
|
const TQStringList &args) : KFilePlugin(tqparent, name, args)
|
|
|
|
{
|
|
|
|
makeMimeTypeInfo( "application/x-linguist" );
|
|
|
|
}
|
|
|
|
|
|
|
|
void KTsPlugin::makeMimeTypeInfo(const TQString& mimeType)
|
|
|
|
{
|
|
|
|
KFileMimeTypeInfo* info = addMimeTypeInfo(mimeType);
|
|
|
|
|
|
|
|
KFileMimeTypeInfo::GroupInfo* group =
|
|
|
|
addGroupInfo(info, "General", i18n("General"));
|
|
|
|
|
|
|
|
KFileMimeTypeInfo::ItemInfo* item;
|
|
|
|
item = addItemInfo(group, "Messages", i18n("Messages"), TQVariant::Int);
|
|
|
|
setAttributes(item, KFileMimeTypeInfo::Averaged);
|
|
|
|
item = addItemInfo(group, "Translated", i18n("Translated"), TQVariant::Int);
|
|
|
|
setAttributes(item, KFileMimeTypeInfo::Averaged);
|
|
|
|
item = addItemInfo(group, "Untranslated", i18n("Untranslated"), TQVariant::Int);
|
|
|
|
setAttributes(item, KFileMimeTypeInfo::Averaged);
|
|
|
|
item = addItemInfo(group, "Obsolete", i18n("Obsolete"), TQVariant::Int);
|
|
|
|
}
|
|
|
|
|
|
|
|
bool KTsPlugin::readInfo(KFileMetaInfo& info, uint)
|
|
|
|
{
|
|
|
|
TQFile f(info.path());
|
|
|
|
if (!f.open(IO_ReadOnly))
|
|
|
|
return false;
|
|
|
|
|
|
|
|
int messages = 0;
|
|
|
|
int untranslated = 0;
|
|
|
|
int obsolete = 0;
|
|
|
|
|
|
|
|
TQTextStream stream( &f );
|
|
|
|
TQString line = stream.readLine();
|
|
|
|
|
|
|
|
// is it really a linguist file?
|
|
|
|
if (!line.tqcontains("<!DOCTYPE TS>", false))
|
|
|
|
return false;
|
|
|
|
|
|
|
|
while (!stream.eof())
|
|
|
|
{
|
|
|
|
line = stream.readLine();
|
|
|
|
|
|
|
|
if (line.tqcontains("type=\"obsolete\"")) obsolete++;
|
|
|
|
|
|
|
|
if (line.tqcontains("<source>")) messages++;
|
|
|
|
|
|
|
|
if (line.tqcontains("type=\"unfinished\"")) untranslated++;
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
KFileMetaInfoGroup group = appendGroup(info, "General");
|
|
|
|
appendItem(group, "Messages", messages);
|
|
|
|
appendItem(group, "Translated", messages-untranslated-obsolete);
|
|
|
|
appendItem(group, "Untranslated", untranslated);
|
|
|
|
appendItem(group, "Obsolete", obsolete);
|
|
|
|
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
|
|
|
|
#include "kfile_ts.moc"
|