static void findClojureTags (void)
{
vString *name = vStringNew ();
const char *p;
int scope_index = CORK_NIL;
while ((p = (char *)readLineFromInputFile ()) != NULL)
{
vStringClear (name);
while (isspace (*p))
p++;
if (*p == '(')
{
if (isNamespace (p))
{
skipToSymbol (&p);
scope_index = makeNamespaceTag (name, p);
}
else if (isFunction (p))
{
skipToSymbol (&p);
makeFunctionTag (name, p, scope_index);
}
}
}
vStringDelete (name);
}
static void findClojureTags (void)
{
vString *name = vStringNew ();
const unsigned char *p;
CurrentNamespace = vStringNew ();
while ((p = fileReadLine ()) != NULL)
{
vStringClear (name);
while (isspace (*p))
p++;
if (*p == '(')
{
if (isNamespace (p))
{
skipToSymbol (&p);
makeNamespaceTag (name, p);
}
else if (isFunction (p))
{
skipToSymbol (&p);
makeFunctionTag (name, p);
}
}
}
vStringDelete (name);
vStringDelete (CurrentNamespace);
}
