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.
tdevelop/languages/fortran/fixedformparser.cpp

95 lines
2.9 KiB

/***************************************************************************
* Copyright (C) 2001 by Bernd Gehrmann *
* bernd@tdevelop.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; either version 2 of the License, or *
* (at your option) any later version. *
* *
***************************************************************************/
#include "fixedformparser.h"
#include <tqfile.h>
#include <tqtextstream.h>
#include <kdebug.h>
#include <codemodel.h>
FixedFormParser::FixedFormParser(CodeModel* model)
{
m_model = model;
functionre.setPattern("(integer|real|logical|complex|character|"
"double(precision)?)function([^(]+).*");
subroutinere.setPattern("subroutine([^(]+).*");
functionre.setCaseSensitive( false );
subroutinere.setCaseSensitive( false );
}
void FixedFormParser::process(const TQCString &line, const TQString &fileName, int lineNum)
{
TQCString simplified;
int l = line.length();
for (int i=0; i < l; ++i)
if (line[i] != ' ')
simplified += line[i];
if ( simplified.isEmpty() ) return;
TQString name;
if (functionre.search(simplified) != -1)
name = functionre.cap(3);
else if (subroutinere.search(simplified) != -1)
name = subroutinere.cap(1);
else
return;
FunctionDom method = m_model->create<FunctionModel>();
method->setName(name);
method->setFileName(fileName);
method->setStartPosition(lineNum, 0);
if( !m_file->hasFunction(method->name()) )
m_file->addFunction(method);
}
void FixedFormParser::parse(const TQString &fileName)
{
TQFile f(TQFile::encodeName(fileName));
if (!f.open(IO_ReadOnly))
return;
TQTextStream stream(&f);
m_file = m_model->create<FileModel>();
m_file->setName( fileName );
TQCString line;
int lineNum=0, startLineNum=0;
while (!stream.atEnd()) {
++lineNum;
TQCString str = stream.readLine().local8Bit();
if (!str.isEmpty() && TQCString("*Cc#!").find(str[0]) != -1)
continue;
// Continuation line
if (str.length() > 6 && str.left(5) == " " && str[5] != ' ') {
line += str.right(str.length()-6);
continue;
}
// An initial or invalid line. We don't care
// about validity
process(line, fileName, startLineNum);
line = str.right(str.length()-6);
startLineNum = lineNum-1;
}
process(line, fileName, startLineNum);
f.close();
m_model->addFile( m_file );
}