sharpetronics/geany
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

again it got some improvements

Browse Source 
git-svn-id: https://geany.svn.sourceforge.net/svnroot/geany/trunk@325 ea778897-0a13-0410-b9d1-a72fbfd435f5
This commit is contained in:
Enrico Tröger 2006-05-12 16:24:09 +00:00
parent 10e4754b27
commit cc0425c8fe
1 changed files with 81 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

125
tagmanager/perl.c
View File

@ -42,6 +42,26 @@ static kindOption PerlKinds [] = {
* FUNCTION DEFINITIONS * FUNCTION DEFINITIONS
*/ */
static const unsigned char *createTagString(const unsigned char *str, int type)
{
vString *n = vStringNew();
while (! isspace ((int) *str) && *str != '\0' && *str != '=' && *str != ';' &&
*str != ',' && *str != ')' && *str != '$')
{
vStringPut (n, (int) *str);
str++;
}
vStringTerminate (n);
if (vStringLength (n) > 0)
makeSimpleTag (n, PerlKinds, type);
vStringDelete (n);
/* if ((*(const char*)str) == ')')
return str-1;
else
*/ return str;
}
/* Algorithm adapted from from GNU etags. /* Algorithm adapted from from GNU etags.
* Perl support by Bart Robinson <lomew@cs.utah.edu> * Perl support by Bart Robinson <lomew@cs.utah.edu>
@ -85,70 +105,87 @@ static void findPerlTags (void)
cp += 2; cp += 2;
while (isspace (*cp)) cp++; while (isspace (*cp)) cp++;
// skip something like my($bla) // parse something like my($bla)
if (*(const char*) cp != '$' && ! isalpha(*(const char*) cp)) continue; if (*(const char*) cp == '(')
cp++; // to skip the $ sign
if (! isalpha(*(const char*) cp)) continue;
while (! isspace ((int) *cp) && *cp != '\0' && *cp != '=' && *cp != ';')
{ {
vStringPut (name, (int) *cp); cp++;
cp++; while (*(const char*) cp != ')')
{
while (isspace (*(const char*) cp)) cp++;
if (*(const char*) cp == ',') cp++; // to skip ','
while (isspace (*(const char*) cp)) cp++;
cp++; // to skip $ sign
cp = createTagString(cp, K_MY);
while (isspace (*(const char*) cp)) cp++;
}
} }
// parse my $bla
else
{
cp++; // to skip the $ sign
vStringTerminate (name); if (! isalpha (*(const char*) cp)) continue;
if (vStringLength (name) > 0)
makeSimpleTag (name, PerlKinds, K_MY);
vStringClear (name);
createTagString (cp, K_MY);
}
} }
else if (strncmp((const char*) cp, "our", (size_t) 3) == 0) else if (strncmp((const char*) cp, "our", (size_t) 3) == 0)
{ {
cp += 3; cp += 3;
while (isspace (*cp)) cp++; while (isspace (*cp)) cp++;
// parse something like my($bla)
// skip something like my ($bla) if (*(const char*) cp == '(')
if (*(const char*) cp != '$' && ! isalpha(*(const char*) cp)) continue;
cp++; // to skip the $ sign
if (! isalpha(*(const char*) cp)) continue;
while (! isspace ((int) *cp) && *cp != '\0' && *cp != '=' && *cp != ';')
{ {
vStringPut (name, (int) *cp); cp++;
cp++; while (*(const char*) cp != ')')
{
while (isspace (*(const char*) cp)) cp++;
if (*(const char*) cp == ',') cp++; // to skip ','
while (isspace (*(const char*) cp)) cp++;
cp++; // to skip $ sign
cp = createTagString(cp, K_OUR);
while (isspace (*(const char*) cp)) cp++;
}
} }
vStringTerminate (name); // parse my $bla
if (vStringLength (name) > 0) else
makeSimpleTag (name, PerlKinds, K_OUR); {
vStringClear (name); cp++; // to skip the $ sign
if (! isalpha (*(const char*) cp)) continue;
createTagString (cp, K_OUR);
}
} }
else if (strncmp((const char*) cp, "local", (size_t) 5) == 0) else if (strncmp((const char*) cp, "local", (size_t) 5) == 0)
{ {
cp += 5; cp += 5;
while (isspace (*cp)) cp++; while (isspace (*cp)) cp++;
// parse something like my($bla)
// skip something like my($bla) if (*(const char*) cp == '(')
if (*(const char*) cp != '$' && ! isalpha(*(const char*) cp)) continue;
cp++; // to skip the $ sign
if (! isalpha(*(const char*) cp)) continue;
while (! isspace ((int) *cp) && *cp != '\0' && *cp != '=' && *cp != ';')
{ {
vStringPut (name, (int) *cp); cp++;
cp++; while (*(const char*) cp != ')')
{
while (isspace (*(const char*) cp)) cp++;
if (*(const char*) cp == ',') cp++; // to skip ','
while (isspace (*(const char*) cp)) cp++;
cp++; // to skip $ sign
cp = createTagString(cp, K_LOCAL);
while (isspace (*(const char*) cp)) cp++;
}
} }
vStringTerminate (name); // parse my $bla
if (vStringLength (name) > 0) else
makeSimpleTag (name, PerlKinds, K_LOCAL); {
vStringClear (name); cp++; // to skip the $ sign
if (! isalpha (*(const char*) cp)) continue;
createTagString (cp, K_LOCAL);
}
} }
else if (strncmp((const char*) cp, "sub", (size_t) 3) == 0 || else if (strncmp((const char*) cp, "sub", (size_t) 3) == 0 ||
strncmp((const char*) cp, "package", (size_t) 7) == 0) strncmp((const char*) cp, "package", (size_t) 7) == 0)