tagmanager/ctags/lua.c

   1 /*
   2 *   Copyright (c) 2000-2001, Max Ischenko <mfi@ukr.net>.
   3 *
   4 *   This source code is released for free distribution under the terms of the
   5 *   GNU General Public License.
   6 *
   7 *   This module contains functions for generating tags for Lua language.
   8 */
   9
  10 /*
  11 *   INCLUDE FILES
  12 */
  13 #include "general.h"  /* must always come first */
  14
  15 #include <string.h>
  16
  17 #include "parse.h"
  18 #include "read.h"
  19 #include "vstring.h"
  20
  21 /*
  22 *   DATA DEFINITIONS
  23 */
  24 typedef enum {
  25         K_FUNCTION
  26 } luaKind;
  27
  28 static kindOption LuaKinds [] = {
  29         { TRUE, 'f', "function", "functions" }
  30 };
  31
  32 /*
  33 *   FUNCTION DEFINITIONS
  34 */
  35
  36 /* for debugging purposes */
  37 static void UNUSED print_string (char *p, char *q)
  38 {
  39         for ( ; p != q; p++)
  40                 fprintf (errout, "%c", *p);
  41         fprintf (errout, "\n");
  42 }
  43
  44 /*
  45  * Helper function.
  46  * Returns 1 if line looks like a line of Lua code.
  47  *
  48  * TODO: Recognize UNIX bang notation.
  49  * (Lua treat first line as a comment if it starts with #!)
  50  *
  51  */
  52 static boolean is_a_code_line (const unsigned char *line)
  53 {
  54         boolean result;
  55         const unsigned char *p = line;
  56         while (isspace ((int) *p))
  57                 p++;
  58         if (p [0] == '\0')
  59                 result = FALSE;
  60         else if (p [0] == '-' && p [1] == '-')
  61                 result = FALSE;
  62         else
  63                 result = TRUE;
  64         return result;
  65 }
  66
  67 static void extract_name (const char *begin, const char *end, vString *name)
  68 {
  69         if (begin != NULL  &&  end != NULL  &&  begin < end)
  70         {
  71                 const char *cp;
  72
  73                 while (isspace ((int) *begin))
  74                         begin++;
  75                 while (isspace ((int) *end))
  76                         end--;
  77                 if (begin < end)
  78                 {
  79                         for (cp = begin ; cp != end; cp++)
  80                                 vStringPut (name, (int) *cp);
  81                         vStringTerminate (name);
  82
  83                         makeSimpleTag (name, LuaKinds, K_FUNCTION);
  84                         vStringClear (name);
  85                 }
  86         }
  87 }
  88
  89 static void findLuaTags (void)
  90 {
  91         vString *name = vStringNew ();
  92         const unsigned char *line;
  93
  94         while ((line = fileReadLine ()) != NULL)
  95         {
  96                 const char *p, *q;
  97
  98                 if (! is_a_code_line (line))
  99                         continue;
 100
 101                 p = (const char*) strstr ((const char*) line, "function");
 102                 if (p == NULL)
 103                         continue;
 104
 105                 q = strchr ((const char*) line, '=');
 106
 107                 if (q == NULL) {
 108                         p = p + 9;  /* skip the `function' word */
 109                         q = strchr ((const char*) p, '(');
 110                         extract_name (p, q, name);
 111                 } else if (*(q+1) != '=') { /* ignore `if type(v) == "function" then ...' */
 112                         p = (const char*) &line[0];
 113                         extract_name (p, q, name);
 114                 }
 115         }
 116         vStringDelete (name);
 117 }
 118
 119 extern parserDefinition* LuaParser (void)
 120 {
 121         static const char* const extensions [] = { "lua", NULL };
 122         parserDefinition* def = parserNew ("Lua");
 123         def->kinds      = LuaKinds;
 124         def->kindCount  = KIND_COUNT (LuaKinds);
 125         def->extensions = extensions;
 126         def->parser     = findLuaTags;
 127         return def;
 128 }
 129
 130 /* vi:set tabstop=4 shiftwidth=4: */