silentbob/silent_bob-1.2/src/sblib/wit.cpp

   1 /*
   2  * (c) Oleg Puchinin 2006.
   3  * graycardinalster@gmail.com
   4  *
   5  */
   6
   7 #include "../head.h"
   8 #include "wit.h"
   9
  10 int what_is_this (char * d_op, char ch)
  11 {
  12         bool b_local_ftest;
  13         int d_words_count;
  14         char d_last_ch;
  15         char * S;
  16         int Ret = 0;
  17
  18         if (*d_op == '#' || ch == '\n') {
  19                 if (def_test (d_op))
  20                         return OP_TYPE_DEFINE;
  21                 return OP_TYPE_MACRO;
  22         }
  23
  24         d_words_count = words_count (d_op);
  25
  26         if (words_count <= 0)
  27                 return OP_TYPE_OTHER;
  28
  29         if (d_words_count == 1) {
  30                 if (ww_call_cmp (d_op, "if", 2) ||
  31                                 ww_call_cmp (d_op, "else", 4) ||
  32                                 ww_call_cmp (d_op, "do", 2) ||
  33                                 ww_call_cmp (d_op, "while", 5) ||
  34                                 ww_call_cmp (d_op, "switch", 6) ||
  35                                 ww_case_cmp (d_op, "case", 4))
  36                         return OP_TYPE_OP;
  37
  38                 if (ww_after_word (d_op) == '(')
  39                         return OP_TYPE_CALL;
  40
  41                 return OP_TYPE_OTHER; // Macro or operations (e.g. "+-=*/%^" etc...)
  42         }
  43
  44         d_last_ch = last_ch (d_op);
  45
  46         if (d_last_ch == '=')
  47                 return OP_TYPE_VARIABLE;
  48
  49         b_local_ftest = local_ftest (d_op);
  50         if ((ch == '{' && d_last_ch == ')')) {
  51                 if (b_local_ftest) // Paranoid.
  52                         return OP_TYPE_FUNCTION;
  53         }
  54
  55         if (!strncmp (d_op, "extern ", 7))
  56                 return OP_TYPE_EXTERN;
  57
  58         if (ch == '{') {
  59                 Ret = 0;
  60                 if (!strncmp (d_op, "typedef ", 8)) {
  61                         Ret |= OP_TYPE_TYPEDEF;
  62                         d_op += 8;
  63                 }
  64
  65                 if (!strncmp (d_op, "static ", 7))
  66                         d_op += 7;
  67
  68                 if (!strncmp (d_op, "const ", 6)) // "static const struct"
  69                         d_op += 6;
  70
  71                 if (!strncmp (d_op, "union ", 6))
  72                         return Ret | OP_TYPE_OTHER;
  73
  74                 if (! strncmp (d_op, "enum ", 5))
  75                         return Ret | OP_TYPE_OTHER;
  76
  77                 if (!strncmp (d_op, "struct ", 7)) {
  78                         return Ret | OP_TYPE_STRUCT;
  79                 }
  80
  81                 if (!strncmp (d_op, "class ", 6))
  82                         return OP_TYPE_CLASS;
  83
  84                 if (!strncmp (d_op, "namespace ", 10))
  85                         return OP_TYPE_NAMESPACE;
  86
  87                 if ((words_count (d_op) > 1) && !b_local_ftest)
  88                         return OP_TYPE_VARIABLE;
  89
  90                 if (Ret)
  91                         return Ret;
  92                 return OP_TYPE_OTHER;
  93         }
  94
  95         if (ch == ';') {
  96                 if (!strncmp (d_op, "typedef ", 8))
  97                         return OP_TYPE_TYPEDEF;
  98
  99                 if (b_local_ftest) {
 100                         S = strchr (d_op, '(');
 101                         if (! S)
 102                                 return OP_TYPE_OTHER;
 103
 104                         S++;
 105                         if (words_count (S) <= 1) {
 106                                 S = strchr_r (S, ')', 0);
 107                                 S++;
 108                                 if (words_count (S) > 1)
 109                                         return OP_TYPE_FUNCTION; // declaration... or not ?
 110                         }
 111                 } else {
 112                         if (d_words_count <= 1)
 113                                 return OP_TYPE_OTHER;
 114
 115                         if (!strncmp (d_op, "struct ", 7) && d_words_count == 2)
 116                                 return OP_TYPE_OTHER;
 117
 118                         if (!strncmp (d_op, "return ", 7))
 119                                 return OP_TYPE_OTHER;
 120
 121                         if (!strncmp (d_op, "delete ", 7))
 122                                 return OP_TYPE_OTHER;
 123
 124                         return OP_TYPE_VARIABLE;
 125                 }
 126                 // Function defenition, callback defenition... it's all ?
 127         }
 128
 129         return OP_TYPE_OTHER;
 130 }
 131