tagmanager/matlab.c

   1 /*
   2 *
   3 *   Copyright (c) 2000-2001, Darren Hiebert
   4 *
   5 *   This source code is released for free distribution under the terms of the
   6 *   GNU General Public License.
   7 *
   8 *   This module contains functions for generating tags for Matlab scripts.
   9 *   The tags 'function' and 'struct' are parsed.
  10 *       Author Roland Baudin <roland65@free.fr>
  11 */
  12
  13 /*
  14 *   INCLUDE FILES
  15 */
  16 #include "general.h"    /* must always come first */
  17
  18 #include <string.h>
  19
  20 #include "parse.h"
  21 #include "read.h"
  22 #include "vstring.h"
  23
  24 /*
  25 *   DATA DEFINITIONS
  26 */
  27 typedef enum {
  28     K_FUNCTION,
  29         K_STRUCT
  30 } MatlabKind;
  31
  32 static kindOption MatlabKinds [] = {
  33     { TRUE, 'f', "function", "Functions" },
  34         { TRUE, 's', "struct", "Structures" },
  35 };
  36
  37 /*
  38 *   FUNCTION DEFINITIONS
  39 */
  40
  41 static void findMatlabTags (void)
  42 {
  43     vString *name = vStringNew ();
  44     const unsigned char *line;
  45         const unsigned char *p;
  46
  47     while ((line = fileReadLine ()) != NULL)
  48     {
  49                 int i, ic;
  50
  51                 if (line [0] == '\0'  ||  line [0] == '%')
  52                         continue;
  53
  54                 /* search if the line has a comment */
  55                 for (ic = 0  ;  line [ic] != '\0'  &&  line [ic]!='%'  ;  ++ic)
  56                         ;
  57
  58                 /* function tag */
  59
  60                 /* read first word */
  61                 for (i = 0  ;  line [i] != '\0'  &&  ! isspace (line [i])  ;  ++i)
  62                         ;
  63
  64                 if (strncmp ((const char *) line, "function", (size_t) 8) == 0)
  65                 {
  66                         const unsigned char *cp = line + i;
  67                         const unsigned char *ptr = cp;
  68                         boolean eq=FALSE;
  69
  70                         while (isspace ((int) *cp))
  71                                 ++cp;
  72
  73                         /* search for '=' character in the line */
  74                         while (*ptr != '\0')
  75                         {
  76                                 if (*ptr == '=')
  77                                 {
  78                                         eq=TRUE;
  79                                         break;
  80                                 }
  81                                 ptr++;
  82                         }
  83
  84                         /* '=' was found => get the right most part of the line after '=' and before '%' */
  85                         if (eq)
  86                         {
  87                                 ptr++;
  88                                 while (isspace ((int) *ptr))
  89                                         ++ptr;
  90
  91                                 while (*ptr != '\0' && *ptr != '%')
  92                                 {
  93                                         vStringPut (name, (int) *ptr);
  94                                         ++ptr;
  95                                 }
  96                         }
  97
  98                         /* '=' was not found => get the right most part of the line after
  99                          * 'function' and before '%' */
 100                         else
 101                         {
 102                                 while (*cp != '\0' && *cp != '%')
 103                                 {
 104                                         vStringPut (name, (int) *cp);
 105                                         ++cp;
 106                                 }
 107                         }
 108
 109                         vStringTerminate (name);
 110                         makeSimpleTag (name, MatlabKinds, K_FUNCTION);
 111                         vStringClear (name);
 112                 }
 113
 114                 /* struct tag */
 115
 116                 /* search if the line contains the keyword 'struct' */
 117                 p=(const unsigned char*) strstr ((const char*) line, "struct");
 118
 119                 /* and avoid the part after the '%' if any */
 120                 if ( p != NULL && ic>0 && p < line+ic)
 121                 {
 122                         const unsigned char *cp = line;
 123
 124                         /* get the left most part of the line before '=' */
 125                         while (*cp != '\0' && !isspace(*cp) && *cp != '=' )
 126                         {
 127                                 vStringPut (name, (int) *cp);
 128                                 ++cp;
 129                         }
 130
 131                         vStringTerminate (name);
 132                         makeSimpleTag (name, MatlabKinds, K_STRUCT);
 133                         vStringClear (name);
 134                 }
 135     }
 136     vStringDelete (name);
 137 }
 138
 139 extern parserDefinition* MatlabParser (void)
 140 {
 141     static const char *const extensions [] = { "m", NULL };
 142     parserDefinition* def = parserNew ("Matlab");
 143     def->kinds      = MatlabKinds;
 144     def->kindCount  = KIND_COUNT (MatlabKinds);
 145     def->extensions = extensions;
 146     def->parser     = findMatlabTags;
 147     return def;
 148 }
 149
 150 /* vi:set tabstop=8 shiftwidth=4: */