procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make the argument list output look more like the Lisp docstrings do.

Browse source 
(write_c_args): Take new arg FUNC.  Make output look like lisp call
prototypes: (function ARG1 ARG2), upcasing arg names.
(scan_c_file): Pass BUF to write_c_args for FUNC arg.
This commit is contained in:
Roland McGrath 1994-01-16 08:35:01 +00:00
parent a1d528953c
commit 069ad9ead4
1 changed files with 20 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
lib-src/make-docfile.c
View file

@ -1,5 +1,5 @@
/* Generate doc-string file for GNU Emacs from source files.
Copyright (C) 1985, 1986, 1992, 1993 Free Software Foundation, Inc.
Copyright (C) 1985, 1986, 1992, 1993, 1994 Free Software Foundation, Inc.
This file is part of GNU Emacs.
@ -153,19 +153,23 @@ read_c_string (infile, printflag)
return c;
}
/* Write to file OUT the argument names of the function whose text is in BUF.
/* Write to file OUT the argument names of function FUNC, whose text is in BUF.
MINARGS and MAXARGS are the minimum and maximum number of arguments. */
write_c_args (out, buf, minargs, maxargs)
write_c_args (out, func, buf, minargs, maxargs)
FILE *out;
char *buf;
char *func, *buf;
int minargs, maxargs;
{
register char *p;
int in_ident = 0;
int just_spaced = 0;
int need_space = 1;
fprintf (out, "arguments: ");
fprintf (out, "(%s", func);
if (*buf == '(')
++buf;
for (p = buf; *p; p++)
{
@ -184,6 +188,9 @@ write_c_args (out, buf, minargs, maxargs)
in_ident = 1;
ident_start = 1;
if (need_space)
putc (' ', out);
if (minargs == 0 && maxargs > 0)
fprintf (out, "&optional ");
just_spaced = 1;
@ -216,9 +223,15 @@ write_c_args (out, buf, minargs, maxargs)
just_spaced = 0;
}
else if (c != ' ' || ! just_spaced)
putc (c, out);
{
if (c >= 'a' && c <= 'z')
/* Upcase the letter. */
c += 'A' - 'a';
putc (c, out);
}
just_spaced = (c == ' ');
need_space = 0;
}
}
@ -398,7 +411,7 @@ scan_c_file (filename, mode)
*p = '\0';
/* Output them. */
fprintf (outfile, "\n\n");
write_c_args (outfile, argbuf, minargs, maxargs);
write_c_args (outfile, buf, argbuf, minargs, maxargs);
}
}
}