Page MenuHomeSoftware Heritage
Files F9749743

cobol.c
No OneTemporary
Actions

cobol.c
View Options

/*
* $Id$
*
* Copyright (c) 2000-2002, 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 FILES
*/
#include "general.h" /* must always come first */
#include "parse.h"
#include "read.h"
#include "vstring.h"
/*
* DATA DEFINITIONS
*/
typedef enum eCobolKinds {
K_PARAGRAPH
} cobolKind;
static kindOption CobolKinds [] = {
{ TRUE, 'p', "paragraph", "paragraphs" }
};
/*
* FUNCTION DEFINITIONS
*/
/* Algorithm adapted from from GNU etags.
* Idea by Corny de Souza
* Cobol tag functions
* We could look for anything that could be a paragraph name.
* i.e. anything that starts in column 8 is one word and ends in a full stop.
*/
static void findCobolTags (void)
{
vString *name = vStringNew ();
const unsigned char *line;
while ((line = fileReadLine ()) != NULL)
{
const unsigned char *cp = line;
const unsigned char *dbp = cp + 7;
/* If eoln, compiler option or comment ignore whole line. */
if (dbp [-1] == ' ' && isalnum ((int) dbp [0]))
{
for (cp = dbp ; isalnum ((int) *cp) || *cp == '-' ; cp++)
vStringPut (name, (int) *cp);
if (*cp++ == '.')
{
vStringPut (name, (int) *cp);
makeSimpleTag (name, CobolKinds, K_PARAGRAPH);
}
vStringTerminate (name);
vStringClear (name);
}
}
vStringDelete (name);
}
extern parserDefinition* CobolParser ()
{
static const char *const extensions [] = { "cob", "COB", NULL };
parserDefinition* def = parserNew ("Cobol");
def->kinds = CobolKinds;
def->kindCount = KIND_COUNT (CobolKinds);
def->extensions = extensions;
def->parser = findCobolTags;
return def;
}
/* vi:set tabstop=8 shiftwidth=4: */

File Metadata

Mime Type
text/x-c
Expires
Mon, Aug 25, 6:11 PM (12 h, 22 m ago)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
3465515

Event Timeline

About · Developer information · Legal