ctags/parsers/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 version 2 or (at your option) any later version.
   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 "routines.h"
  20 #include "vstring.h"
  21
  22 /*
  23 *   DATA DEFINITIONS
  24 */
  25 typedef enum {
  26         K_FUNCTION
  27 } luaKind;
  28
  29 static kindOption LuaKinds [] = {
  30         { true, 'f', "function", "functions" }
  31 };
  32
  33 /*
  34 *   FUNCTION DEFINITIONS
  35 */
  36
  37 /* for debugging purposes */
  38 static void CTAGS_ATTR_UNUSED print_string (char *p, char *q)
  39 {
  40         for ( ; p != q; p++)
  41                 fprintf (errout, "%c", *p);
  42         fprintf (errout, "\n");
  43 }
  44
  45 /*
  46  * Helper function.
  47  * Returns 1 if line looks like a line of Lua code.
  48  *
  49  * TODO: Recognize UNIX bang notation.
  50  * (Lua treat first line as a comment if it starts with #!)
  51  *
  52  */
  53 static bool is_a_code_line (const unsigned char *line)
  54 {
  55         bool result;
  56         const unsigned char *p = line;
  57         while (isspace ((int) *p))
  58                 p++;
  59         if (p [0] == '\0')
  60                 result = false;
  61         else if (p [0] == '-' && p [1] == '-')
  62                 result = false;
  63         else
  64                 result = true;
  65         return result;
  66 }
  67
  68 static void extract_name (const char *begin, const char *end, vString *name)
  69 {
  70         if (begin != NULL  &&  end != NULL  &&  begin < end)
  71         {
  72                 const char *cp;
  73
  74                 while (isspace ((int) *begin))
  75                         begin++;
  76                 while (isspace ((int) *end))
  77                         end--;
  78                 if (begin < end)
  79                 {
  80                         for (cp = begin ; cp != end; cp++)
  81                                 vStringPut (name, (int) *cp);
  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 = readLineFromInputFile ()) != 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  = ARRAY_SIZE (LuaKinds);
 125         def->extensions = extensions;
 126         def->parser     = findLuaTags;
 127         return def;
 128 }