git.oblomov.eu Git - ohcount/blob - src/parsers/cs_aspx.rl

   1 /************************* Required for every parser *************************/
   2 #ifndef OHCOUNT_CS_ASPX_PARSER_H
   3 #define OHCOUNT_CS_ASPX_PARSER_H
   4
   5 #include "../parser_macros.h"
   6
   7 // the name of the language
   8 const char *CS_ASPX_LANG = LANG_HTML;
   9
  10 // the languages entities
  11 const char *cs_aspx_entities[] = {
  12   "space", "comment", "doctype",
  13   "tag", "entity", "any"
  14 };
  15
  16 // constants associated with the entities
  17 enum {
  18   CS_ASPX_SPACE = 0, CS_ASPX_COMMENT, CS_ASPX_DOCTYPE,
  19   CS_ASPX_TAG, CS_ASPX_ENTITY, CS_ASPX_ANY
  20 };
  21
  22 /*****************************************************************************/
  23
  24 #include "css.h"
  25 #include "javascript.h"
  26 #include "c.h"
  27
  28 %%{
  29   machine cs_aspx;
  30   write data;
  31   include common "common.rl";
  32   #EMBED(css)
  33   #EMBED(javascript)
  34   #EMBED(c)
  35
  36   # Line counting machine
  37
  38   action cs_aspx_ccallback {
  39     switch(entity) {
  40     case CS_ASPX_SPACE:
  41       ls
  42       break;
  43     case CS_ASPX_ANY:
  44       code
  45       break;
  46     case INTERNAL_NL:
  47       emb_internal_newline(CS_ASPX_LANG)
  48       break;
  49     case NEWLINE:
  50       emb_newline(CS_ASPX_LANG)
  51       break;
  52     case CHECK_BLANK_ENTRY:
  53       check_blank_entry(CS_ASPX_LANG)
  54     }
  55   }
  56
  57   cs_aspx_comment := (
  58     newline %{ entity = INTERNAL_NL; } %cs_aspx_ccallback
  59     |
  60     ws
  61     |
  62     ^(space | [\-<]) @comment
  63     |
  64     '<' '%' @{ saw(C_LANG); fcall cs_aspx_cs_line; }
  65     |
  66     '<' !'%'
  67   )* :>> '-->' @comment @{ fgoto cs_aspx_line; };
  68
  69   cs_aspx_sq_str := (
  70     newline %{ entity = INTERNAL_NL; } %cs_aspx_ccallback
  71     |
  72     ws
  73     |
  74     [^\r\n\f\t '\\<] @code
  75     |
  76     '\\' nonnewline @code
  77     |
  78     '<' '%' @{ saw(C_LANG); fcall cs_aspx_cs_line; }
  79     |
  80     '<' !'%'
  81   )* '\'' @{ fgoto cs_aspx_line; };
  82   cs_aspx_dq_str := (
  83     newline %{ entity = INTERNAL_NL; } %cs_aspx_ccallback
  84     |
  85     ws
  86     |
  87     [^\r\n\f\t "\\<] @code
  88     |
  89     '\\' nonnewline @code
  90     |
  91     '<' '%' @{ saw(C_LANG); fcall cs_aspx_cs_line; }
  92     |
  93     '<' !'%'
  94   )* '"' @{ fgoto cs_aspx_line; };
  95
  96   ws_or_inl = (ws | newline @{ entity = INTERNAL_NL; } %cs_aspx_ccallback);
  97
  98   cs_aspx_css_entry = '<' /style/i [^>]+ :>> 'text/css' [^>]+ '>' @code;
  99   cs_aspx_css_outry = '</' /style/i ws_or_inl* '>' @check_blank_outry @code;
 100   cs_aspx_css_line := |*
 101     cs_aspx_css_outry @{ p = ts; fret; };
 102     # unmodified CSS patterns
 103     spaces      ${ entity = CSS_SPACE; } => css_ccallback;
 104     css_comment;
 105     css_string;
 106     newline     ${ entity = NEWLINE;   } => css_ccallback;
 107     ^space      ${ entity = CSS_ANY;   } => css_ccallback;
 108   *|;
 109
 110   cs_aspx_js_entry = '<' /script/i [^>]+ :>> 'text/javascript' [^>]+ '>' @code;
 111   cs_aspx_js_outry = '</' /script/i ws_or_inl* '>' @check_blank_outry @code;
 112   cs_aspx_js_line := |*
 113     cs_aspx_js_outry @{ p = ts; fret; };
 114     # unmodified Javascript patterns
 115     spaces     ${ entity = JS_SPACE; } => js_ccallback;
 116     js_comment;
 117     js_string;
 118     newline    ${ entity = NEWLINE;  } => js_ccallback;
 119     ^space     ${ entity = JS_ANY;   } => js_ccallback;
 120   *|;
 121
 122   cs_aspx_cs_entry = ('<%' | '<' /script/i [^>]+ :>> 'server' [^>]+ '>') @code;
 123   cs_aspx_cs_outry = ('%>' | '</' /script/i ws_or_inl* '>' @check_blank_outry) @code;
 124   cs_aspx_cs_line := |*
 125     cs_aspx_cs_outry @{ p = ts; fret; };
 126     # unmodified C patterns
 127     spaces        ${ entity = C_SPACE; } => c_ccallback;
 128     c_comment;
 129     c_string;
 130     newline       ${ entity = NEWLINE;    } => c_ccallback;
 131     ^space        ${ entity = C_ANY;   } => c_ccallback;
 132   *|;
 133
 134   cs_aspx_line := |*
 135     cs_aspx_css_entry @{ entity = CHECK_BLANK_ENTRY; } @cs_aspx_ccallback
 136       @{ saw(CSS_LANG); } => { fcall cs_aspx_css_line; };
 137     cs_aspx_js_entry @{ entity = CHECK_BLANK_ENTRY; } @cs_aspx_ccallback
 138       @{ saw(JS_LANG); } => { fcall cs_aspx_js_line; };
 139     cs_aspx_cs_entry @{ entity = CHECK_BLANK_ENTRY; } @cs_aspx_ccallback
 140       @{ saw(C_LANG); } => { fcall cs_aspx_cs_line; };
 141     # standard CS_ASPX patterns
 142     spaces       ${ entity = CS_ASPX_SPACE; } => cs_aspx_ccallback;
 143     '<!--'       @comment                   => { fgoto cs_aspx_comment; };
 144     '\''         @code                      => { fgoto cs_aspx_sq_str;  };
 145     '"'          @code                      => { fgoto cs_aspx_dq_str;  };
 146     newline      ${ entity = NEWLINE;     } => cs_aspx_ccallback;
 147     ^space       ${ entity = CS_ASPX_ANY;   } => cs_aspx_ccallback;
 148   *|;
 149
 150   # Entity machine
 151
 152   action cs_aspx_ecallback {
 153     callback(CS_ASPX_LANG, cs_aspx_entities[entity], cint(ts), cint(te),
 154              userdata);
 155   }
 156
 157   cs_aspx_css_entry_entity = '<' /style/i [^>]+ :>> 'text/css' [^>]+ '>';
 158   cs_aspx_css_outry_entity = '</' /style/i ws_or_inl* '>';
 159   cs_aspx_css_entity := |*
 160     cs_aspx_css_outry_entity @{ fret; };
 161     # unmodified CSS patterns
 162     space+             ${ entity = CSS_SPACE;   } => css_ecallback;
 163     css_comment_entity ${ entity = CSS_COMMENT; } => css_ecallback;
 164     # TODO:
 165     ^space;
 166   *|;
 167
 168   cs_aspx_js_entry_entity = '<' /script/i [^>]+ :>> 'text/javascript' [^>]+ '>';
 169   cs_aspx_js_outry_entity = '</' /script/i ws_or_inl* '>';
 170   cs_aspx_js_entity := |*
 171     cs_aspx_js_outry_entity @{ fret; };
 172     # unmodified Javascript patterns
 173     space+            ${ entity = JS_SPACE;   } => js_ecallback;
 174     js_comment_entity ${ entity = JS_COMMENT; } => js_ecallback;
 175     # TODO:
 176     ^space;
 177   *|;
 178
 179   cs_aspx_cs_entry_entity = ('<%' | '<' /script/i [^>]+ :>> 'server' [^>]+ '>') @code;
 180   cs_aspx_cs_outry_entity = ('%>' | '</' /script/i ws_or_inl* '>' @check_blank_outry) @code;
 181   cs_aspx_cs_entity := |*
 182     cs_aspx_cs_outry_entity @{ fret; };
 183     # unmodified C patterns
 184     space+              ${ entity = C_SPACE;   } => c_ecallback;
 185     c_comment_entity ${ entity = C_COMMENT; } => c_ecallback;
 186     # TODO:
 187     ^space;
 188   *|;
 189
 190   cs_aspx_comment_entity = '<!--' any* :>> '-->';
 191
 192   cs_aspx_entity := |*
 193     # TODO: cs_aspx_ecallback for cs_aspx_*_{entry,outry}_entity
 194     cs_aspx_css_entry_entity  => { fcall cs_aspx_css_entity;  };
 195     cs_aspx_js_entry_entity   => { fcall cs_aspx_js_entity;   };
 196     cs_aspx_cs_entry_entity => { fcall cs_aspx_cs_entity; };
 197     # standard CS_ASPX patterns
 198     space+               ${ entity = CS_ASPX_SPACE;   } => cs_aspx_ecallback;
 199     cs_aspx_comment_entity ${ entity = CS_ASPX_COMMENT; } => cs_aspx_ecallback;
 200     # TODO:
 201     ^space;
 202   *|;
 203 }%%
 204
 205 /************************* Required for every parser *************************/
 206
 207 /* Parses a string buffer with CS_ASPX markup.
 208  *
 209  * @param *buffer The string to parse.
 210  * @param length The length of the string to parse.
 211  * @param count Integer flag specifying whether or not to count lines. If yes,
 212  *   uses the Ragel machine optimized for counting. Otherwise uses the Ragel
 213  *   machine optimized for returning entity positions.
 214  * @param *callback Callback function. If count is set, callback is called for
 215  *   every line of code, comment, or blank with 'lcode', 'lcomment', and
 216  *   'lblank' respectively. Otherwise callback is called for each entity found.
 217  */
 218 void parse_cs_aspx(char *buffer, int length, int count,
 219                    void (*callback) (const char *lang, const char *entity,
 220                                      int s, int e, void *udata),
 221                    void *userdata
 222   ) {
 223         C_LANG = LANG_CSHARP;
 224   init
 225
 226   const char *seen = 0;
 227
 228   %% write init;
 229   cs = (count) ? cs_aspx_en_cs_aspx_line : cs_aspx_en_cs_aspx_entity;
 230   %% write exec;
 231
 232   // if no newline at EOF; callback contents of last line
 233   if (count) { process_last_line(CS_ASPX_LANG) }
 234
 235         C_LANG = LANG_C;
 236 }
 237
 238 #endif
 239
 240 /*****************************************************************************/
 241