48 lines
1.6 KiB
C
48 lines
1.6 KiB
C
/*
|
|
* $Id: cobol.c 443 2006-05-30 04:37:13Z darren $
|
|
*
|
|
* Copyright (c) 2000-2003, Darren Hiebert
|
|
*
|
|
* This source code is released for free distribution under the terms of the
|
|
* GNU General Public License.
|
|
*
|
|
* This module contains functions for generating tags for COBOL language
|
|
* files.
|
|
*/
|
|
#include "third_party/ctags/general.h"
|
|
/* must always come first */
|
|
#include "third_party/ctags/parse.h"
|
|
|
|
/*
|
|
* FUNCTION DEFINITIONS
|
|
*/
|
|
|
|
static void installCobolRegex(const langType language) {
|
|
addTagRegex(
|
|
language,
|
|
"^[ \t]*[0-9]+[ \t]+([A-Z0-9][A-Z0-9-]*)[ "
|
|
"\t]+(BLANK|OCCURS|IS|JUST|PIC|REDEFINES|RENAMES|SIGN|SYNC|USAGE|VALUE)",
|
|
"\\1", "d,data,data items", "i");
|
|
addTagRegex(language, "^[ \t]*[FSR]D[ \t]+([A-Z0-9][A-Z0-9-]*)\\.", "\\1",
|
|
"f,file,file descriptions (FD, SD, RD)", "i");
|
|
addTagRegex(language, "^[ \t]*[0-9]+[ \t]+([A-Z0-9][A-Z0-9-]*)\\.", "\\1",
|
|
"g,group,group items", "i");
|
|
addTagRegex(language, "^[ \t]*([A-Z0-9][A-Z0-9-]*)\\.", "\\1",
|
|
"p,paragraph,paragraphs", "i");
|
|
addTagRegex(language, "^[ \t]*PROGRAM-ID\\.[ \t]+([A-Z0-9][A-Z0-9-]*)\\.",
|
|
"\\1", "P,program,program ids", "i");
|
|
addTagRegex(language, "^[ \t]*([A-Z0-9][A-Z0-9-]*)[ \t]+SECTION\\.", "\\1",
|
|
"s,section,sections", "i");
|
|
}
|
|
|
|
extern parserDefinition* CobolParser() {
|
|
static const char* const extensions[] = {"cbl", "cob", "CBL", "COB", NULL};
|
|
parserDefinition* def = parserNew("Cobol");
|
|
def->extensions = extensions;
|
|
def->initialize = installCobolRegex;
|
|
def->regex = TRUE;
|
|
return def;
|
|
}
|
|
|
|
/* vi:set tabstop=4 shiftwidth=4: */
|