gcc/texinfo/util/deref.c

239 lines
4.5 KiB
C
Raw Normal View History

1997-08-22 00:57:35 +02:00
/*
* deref.c
* compile command: gcc -g -o deref deref.c
* execute command: deref filename.texi > newfile.texi
* To: bob@gnu.ai.mit.edu
* Subject: another tool
* Date: 18 Dec 91 16:03:13 EST (Wed)
* From: gatech!skeeve!arnold@eddie.mit.edu (Arnold D. Robbins)
*
* Here is deref.c. It turns texinfo cross references back into the
* one argument form. It has the same limitations as fixref; one xref per
* line and can't cross lines. You can use it to find references that do
* cross a line boundary this way:
*
* deref < manual > /dev/null 2>errs
*
* (This assumes bash or /bin/sh.) The file errs will have list of lines
* where deref could not find matching braces.
*
* A gawk manual processed by deref goes through makeinfo without complaint.
* Compile with gcc and you should be set.
*
* Enjoy,
*
* Arnold
* -----------
*/
/*
* deref.c
*
* Make all texinfo references into the one argument form.
*
* Arnold Robbins
* arnold@skeeve.atl.ga.us
* December, 1991
*
* Copyright, 1991, Arnold Robbins
*/
/*
* LIMITATIONS:
* One texinfo cross reference per line.
* Cross references may not cross newlines.
* Use of fgets for input (to be fixed).
*/
#include <stdio.h>
#include <ctype.h>
#include <errno.h>
/* for gcc on the 3B1, delete if this gives you grief */
extern int fclose (FILE * fp);
extern int fprintf (FILE * fp, const char *str,...);
extern char *strerror (int errno);
extern char *strchr (char *cp, int ch);
extern int strncmp (const char *s1, const char *s2, int count);
extern int errno;
void process (FILE * fp);
void repair (char *line, char *ref, int toffset);
int Errs = 0;
char *Name = "stdin";
int Line = 0;
char *Me;
/* main --- handle arguments, global vars for errors */
int
main (int argc, char **argv)
{
FILE *fp;
Me = argv[0];
if (argc == 1)
process (stdin);
else
for (argc--, argv++; *argv != NULL; argc--, argv++)
{
if (argv[0][0] == '-' && argv[0][1] == '\0')
{
Name = "stdin";
Line = 0;
process (stdin);
}
else if ((fp = fopen (*argv, "r")) != NULL)
{
Name = *argv;
Line = 0;
process (fp);
fclose (fp);
}
else
{
fprintf (stderr, "%s: can not open: %s\n",
*argv, strerror (errno));
Errs++;
}
}
return Errs != 0;
}
/* isref --- decide if we've seen a texinfo cross reference */
int
isref (char *cp)
{
if (strncmp (cp, "@ref{", 5) == 0)
return 5;
if (strncmp (cp, "@xref{", 6) == 0)
return 6;
if (strncmp (cp, "@pxref{", 7) == 0)
return 7;
return 0;
}
/* process --- read files, look for references, fix them up */
void
process (FILE * fp)
{
char buf[BUFSIZ];
char *cp;
int count;
while (fgets (buf, sizeof buf, fp) != NULL)
{
Line++;
cp = strchr (buf, '@');
if (cp == NULL)
{
fputs (buf, stdout);
continue;
}
do
{
count = isref (cp);
if (count == 0)
{
cp++;
cp = strchr (cp, '@');
if (cp == NULL)
{
fputs (buf, stdout);
goto next;
}
continue;
}
/* got one */
repair (buf, cp, count);
break;
}
while (cp != NULL);
next:;
}
}
/* repair --- turn all texinfo cross references into the one argument form */
void
repair (char *line, char *ref, int toffset)
{
int braces = 1; /* have seen first left brace */
char *cp;
ref += toffset;
/* output line up to and including left brace in reference */
for (cp = line; cp <= ref; cp++)
putchar (*cp);
/* output node name */
for (; *cp && *cp != '}' && *cp != ',' && *cp != '\n'; cp++)
putchar (*cp);
if (*cp != '}')
{ /* could have been one arg xref */
/* skip to matching right brace */
for (; braces > 0; cp++)
{
switch (*cp)
{
case '@':
cp++; /* blindly skip next character */
break;
case '{':
braces++;
break;
case '}':
braces--;
break;
case '\n':
case '\0':
Errs++;
fprintf (stderr,
"%s: %s: %d: mismatched braces\n",
Me, Name, Line);
goto out;
default:
break;
}
}
out:
;
}
putchar ('}');
if (*cp == '}')
cp++;
/* now the rest of the line */
for (; *cp; cp++)
putchar (*cp);
return;
}
/* strerror --- return error string, delete if in your library */
char *
strerror (int errno)
{
static char buf[100];
extern int sys_nerr;
extern char *sys_errlist[];
if (errno < sys_nerr && errno >= 0)
return sys_errlist[errno];
sprintf (buf, "unknown error %d", errno);
return buf;
}