rexx.c

   1 /*
   2 *   $Id: rexx.c 443 2006-05-30 04:37:13Z darren $
   3 *
   4 *   Copyright (c) 2001-2003, Darren Hiebert
   5 *
   6 *   This source code is released for free distribution under the terms of the
   7 *   GNU General Public License.
   8 *
   9 *   This module contains functions for generating tags for the REXX language
  10 *   (http://www.rexxla.org, http://www2.hursley.ibm.com/rexx).
  11 */
  12
  13 /*
  14 *   INCLUDE FILES
  15 */
  16 #include "general.h"  /* always include first */
  17 #include "parse.h"    /* always include */
  18
  19 /*
  20 *   FUNCTION DEFINITIONS
  21 */
  22
  23 static void installRexxRegex (const langType language)
  24 {
  25         addTagRegex (language, "^([A-Za-z0-9@#$\\.!?_]+)[ \t]*:",
  26                 "\\1", "s,subroutine,subroutines", NULL);
  27 }
  28
  29 extern parserDefinition* RexxParser (void)
  30 {
  31         static const char *const extensions [] = { "cmd", "rexx", "rx", NULL };
  32         parserDefinition* const def = parserNew ("REXX");
  33         def->extensions = extensions;
  34         def->initialize = installRexxRegex;
  35         def->regex      = TRUE;
  36         return def;
  37 }
  38
  39 /* vi:set tabstop=4 shiftwidth=4: */