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.h

36 lines
1.2 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. *
* *
***************************************************************************/
#ifndef _FIXEDFORMPARSER_H_
#define _FIXEDFORMPARSER_H_
#include <tqstring.h>
#include <tqtextstream.h>
#include <tqregexp.h>
#include <codemodel.h>
class FixedFormParser
{
public:
FixedFormParser(CodeModel* model);
void parse(const TQString &fileName);
private:
void process(const TQCString &line, const TQString &fileName, int lineNum);
CodeModel* m_model;
FileDom m_file;
TQRegExp functionre, subroutinere;
};
#endif