Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Sunday, September 22, 2019

File: [Platon] / vimdoc / doctags.c (download)

Revision 1.1.1.1 (vendor branch), Wed Apr 3 17:17:50 2002 UTC (17 years, 5 months ago) by host8


Changes since 1.1: +0 -0 lines

Imported project vimdoc -- transform vim help files to man, html or
LaTeX format.

/* vim:set ts=4 sw=4:
 * this program makes a tags file for vim_ref.txt
 *
 * Usage: doctags vim_ref.txt vim_win.txt ... >tags
 *
 * A tag in this context is an identifier between stars, e.g. *c_files*
 */

#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <stdlib.h>

#define LINELEN 200

    int
main(argc, argv)
    int        argc;
    char    **argv;
{
    char    line[LINELEN];
    char    *p1, *p2;
    char    *p;
    FILE    *fd;

    if (argc <= 1)
    {
        fprintf(stderr, "Usage: doctags docfile ... >tags\n");
        exit(1);
    }
    printf("help-tags\ttags\t1\n");
    while (--argc > 0)
    {
        ++argv;
        fd = fopen(argv[0], "r");
        if (fd == NULL)
        {
            fprintf(stderr, "Unable to open %s for reading\n", argv[0]);
            continue;
        }
        while (fgets(line, LINELEN, fd) != NULL)
        {
            p1 = strchr(line, '*');                /* find first '*' */
            while (p1 != NULL)
            {
                p2 = strchr(p1 + 1, '*');        /* find second '*' */
                if (p2 != NULL && p2 > p1 + 1)    /* skip "*" and "**" */
                {
                    for (p = p1 + 1; p < p2; ++p)
                        if (*p == ' ' || *p == '\t' || *p == '|')
                            break;
                    /*
                     * Only accept a *tag* when it consists of valid
                     * characters and is followed by a white character or
                     * end-of-line.
                     */
                    if (p == p2 && (p1 == line || p1[-1] != '-') &&
                            (strchr(" \t\n\r", p[1]) != NULL || p[1] == '\0'))
                    {
                        *p2 = '\0';
                        ++p1;
                        printf("%s\t%s\t/*", p1, argv[0]);
                        while (*p1)
                        {
                            /* insert backslash before '\\' and '/' */
                            if (*p1 == '\\' || *p1 == '/')
                                putchar('\\');
                            putchar(*p1);
                            ++p1;
                        }
                        printf("*\n");
                        p2 = strchr(p2 + 1, '*');        /* find next '*' */
                    }
                }
                p1 = p2;
            }
        }
        fclose(fd);
    }
    return 0;
}

Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS
Go to Top