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.
tdeaddons/kate/cppsymbolviewer/tcl_parser.cpp

151 lines
5.4 KiB

/***************************************************************************
tcl_parser.cpp - description
-------------------
begin : Apr 2 2003
author : 2003 Massimo Callegari
email : massitqmocallegari@yahoo.it
***************************************************************************/
/***************************************************************************
* *
* 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 "plugin_katesymbolviewer.h"
void KatePluginSymbolViewerView::parseTclSymbols(void)
{
if (!win->viewManager()->activeView())
return;
TQString currline, prevline;
bool prevComment = false;
TQString varStr("set ");
TQString procStr("proc");
TQString stripped;
uint i, j, args_par = 0, graph = 0;
char block = 0, parse_func = 0;
TQListViewItem *node = NULL;
TQListViewItem *mcrNode = NULL, *clsNode = NULL;
TQListViewItem *lastMcrNode = NULL, *lastClsNode = NULL;
TQPixmap mcr( ( const char** ) macro_xpm );
TQPixmap cls( ( const char** ) class_xpm );
if(treeMode)
{
clsNode = new TQListViewItem(symbols, symbols->lastItem(), i18n("Functions"));
mcrNode = new TQListViewItem(symbols, symbols->lastItem(), i18n("Globals"));
lastMcrNode = mcrNode;
lastClsNode = clsNode;
if (expanded_on)
{
clsNode->setOpen(TRUE);
mcrNode->setOpen(TRUE);
}
symbols->setRootIsDecorated(1);
}
else
symbols->setRootIsDecorated(0);
Kate::Document *kDoc = win->viewManager()->activeView()->getDoc();
//positions.resize(kDoc->numLines() + 3); // Maximum symbols number o.O
//positions.fill(0);
for (i = 0; i<kDoc->numLines(); i++)
{
currline = kDoc->textLine(i);
currline = currline.stripWhiteSpace();
bool comment = false;
kdDebug(13000)<<currline<<endl;
if(currline.at(0) == '#') comment = true;
if(i > 0)
{
prevline = kDoc->textLine(i-1);
if(prevline.endsWith("\\") && prevComment) comment = true;
}
prevComment = comment;
if(!comment)
{
if(currline.startsWith(varStr) && block == 0)
{
if (macro_on == true) // not really a macro, but a variable
{
stripped = currline.right(currline.length() - 3);
stripped = stripped.simplifyWhiteSpace();
int fnd = stripped.tqfind(' ');
//fnd = stripped.tqfind(";");
if(fnd > 0) stripped = stripped.left(fnd);
if (treeMode)
{
node = new TQListViewItem(mcrNode, lastMcrNode, stripped);
lastMcrNode = node;
}
else
node = new TQListViewItem(symbols, symbols->lastItem(), stripped);
node->setPixmap(0, (const TQPixmap &)mcr);
node->setText(1, TQString::number( i, 10));
stripped = "";
}//macro
} // starts with "set"
else if(currline.startsWith(procStr)) { parse_func = 1; }
if (parse_func == 1)
{
for (j = 0; j < currline.length(); j++)
{
if (block == 1)
{
if(currline.at(j)=='{') graph++;
if(currline.at(j)=='}')
{
graph--;
if (graph == 0) { block = 0; parse_func = 0; continue; }
}
}
if (block == 0)
{
stripped += currline.at(j);
if(currline.at(j) == '{') args_par++;
if(currline.at(j) == '}')
{
args_par--;
if (args_par == 0)
{
//stripped = stripped.simplifyWhiteSpace();
if(func_on == true)
{
if (treeMode)
{
node = new TQListViewItem(clsNode, lastClsNode, stripped);
lastClsNode = node;
}
else
node = new TQListViewItem(symbols, symbols->lastItem(), stripped);
node->setPixmap(0, (const TQPixmap &)cls);
node->setText(1, TQString::number( i, 10));
}
stripped = "";
block = 1;
}
}
} // block = 0
} // for j loop
}//func_on
} // not a comment
} //for i loop
//positions.resize(symbols->itemIndex(node) + 1);
}