You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
133 lines
4.1 KiB
133 lines
4.1 KiB
/* This file is part of the KDE project
|
|
Copyright (C) 2002 Sandy Meier <smeier@kdevelop.org>
|
|
|
|
This library is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU Library General Public
|
|
License as published by the Free Software Foundation; either
|
|
version 2 of the License, or (at your option) any later version.
|
|
|
|
This library 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
|
|
Library General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Library General Public License
|
|
along with this library; see the file COPYING.LIB. If not, write to
|
|
the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
Boston, MA 02110-1301, USA.
|
|
*/
|
|
|
|
#include "filetemplate.h"
|
|
|
|
#include <tqdatetime.h>
|
|
#include <tqfile.h>
|
|
#include <tqfileinfo.h>
|
|
#include <tqregexp.h>
|
|
#include <tqtextstream.h>
|
|
|
|
#include <kstandarddirs.h>
|
|
|
|
#include "kdevplugin.h"
|
|
#include "kdevproject.h"
|
|
#include "domutil.h"
|
|
|
|
|
|
bool FileTemplate::exists(KDevPlugin *part, const TQString &name, Policy p)
|
|
{
|
|
//TQString fileName = (p == Default) ?
|
|
// (part->project()->projectDirectory() + "/templates/" + name) : name;
|
|
|
|
return TQFile::exists( fullPathForName(part,name,p) );
|
|
}
|
|
|
|
TQString FileTemplate::read(KDevPlugin *part, const TQString &name, Policy p)
|
|
{
|
|
|
|
//KDevProject *project = part->project();
|
|
//TQString fileName = (p == Default) ? (project->projectDirectory() +
|
|
// "/templates/" + name) : name;
|
|
|
|
return readFile(part, fullPathForName(part, name, p) );
|
|
}
|
|
|
|
TQString FileTemplate::readFile(KDevPlugin *part, const TQString &fileName)
|
|
{
|
|
TQDomDocument dom;
|
|
|
|
TQFile f(fileName);
|
|
if (!f.open(IO_ReadOnly))
|
|
return TQString();
|
|
TQTextStream stream(&f);
|
|
TQString str = stream.read();
|
|
if (part->projectDom())
|
|
{
|
|
dom = *part->projectDom();
|
|
}
|
|
|
|
return makeSubstitutions( dom, str );
|
|
}
|
|
|
|
TQString FileTemplate::makeSubstitutions( TQDomDocument & dom, const TQString & text )
|
|
{
|
|
TQString author = DomUtil::readEntry(dom, "/general/author");
|
|
TQString email = DomUtil::readEntry(dom, "/general/email");
|
|
TQString version = DomUtil::readEntry(dom, "/general/version");
|
|
TQString appname = DomUtil::readEntry(dom, "/general/projectname");
|
|
TQString date = TQDate::currentDate().toString();
|
|
TQString year = TQString::number(TQDate::currentDate().year());
|
|
|
|
TQString str = text;
|
|
str.replace(TQRegExp("\\$EMAIL\\$"),email);
|
|
str.replace(TQRegExp("\\$AUTHOR\\$"),author);
|
|
str.replace(TQRegExp("\\$VERSION\\$"),version);
|
|
str.replace(TQRegExp("\\$DATE\\$"),date);
|
|
str.replace(TQRegExp("\\$YEAR\\$"),year);
|
|
str.replace(TQRegExp("\\$APPNAME\\$"),appname);
|
|
str.replace(TQRegExp("\\$APPNAME\\$"),appname);
|
|
str.replace(TQRegExp("\\$APPNAMEUC\\$"),appname.upper());
|
|
str.replace(TQRegExp("\\$APPNAMELC\\$"),appname.lower());
|
|
|
|
return str;
|
|
}
|
|
|
|
|
|
bool FileTemplate::copy(KDevPlugin *part, const TQString &name,
|
|
const TQString &dest, Policy p)
|
|
{
|
|
TQString text = read(part, name, p);
|
|
|
|
TQFile f(dest);
|
|
if (!f.open(IO_WriteOnly))
|
|
return false;
|
|
|
|
TQFileInfo fi(f);
|
|
TQString module = fi.baseName();
|
|
TQString basefilename = fi.baseName(true);
|
|
text.replace(TQRegExp("\\$MODULE\\$"),module);
|
|
text.replace(TQRegExp("\\$FILENAME\\$"),basefilename);
|
|
|
|
TQTextStream stream(&f);
|
|
stream << text;
|
|
f.close();
|
|
|
|
return true;
|
|
}
|
|
|
|
TQString FileTemplate::fullPathForName(KDevPlugin *part, const TQString &name,
|
|
Policy p) {
|
|
// if Policy is not default, full path is just the name
|
|
if (p!=Default) return name;
|
|
|
|
TQString fileName;
|
|
// first try project-specific
|
|
if (part->project())
|
|
{
|
|
fileName = (part->project()->projectDirectory() + "/templates/" + name);
|
|
if (TQFile::exists(fileName)) return fileName;
|
|
}
|
|
|
|
// next try global
|
|
TQString globalName = ::locate("data", "kdevfilecreate/file-templates/" + name);
|
|
return globalName.isNull() ? fileName : globalName;
|
|
}
|