Make make-docfile understand DEFUN arguments written in standard C.

* lib-src/make-docfile.c (write_c_args): Deal with type names in DEFUN
arguments.

diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog
index aa9fab0badb254e6a6361817f0ffd4287dbb751d..4cbf5dd50f18cda0844e55d40479d4dc1ed77d25 100644 (file)
--- a/lib-src/ChangeLog
+++ b/lib-src/ChangeLog
@@ -1,3 +1,8 @@
+2010-07-09  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * make-docfile.c (write_c_args): Deal with type names in DEFUN
+       arguments.
+
 2010-07-08  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * update-game-score.c (P_): Remove macro.

diff --git a/lib-src/make-docfile.c b/lib-src/make-docfile.c
index b3b6b190e484daf4a767c3bf86c83fd94e692b8a..3df7ec607d93296e2d238a3d17fa1392148fd27d 100644 (file)
--- a/lib-src/make-docfile.c
+++ b/lib-src/make-docfile.c
@@ -450,9 +450,24 @@ write_c_args (FILE *out, char *func, char *buf, int minargs, int maxargs)
 
   for (p = buf; *p; p++)
     {
-      char c = *p;
+      char c;
       int ident_start = 0;
 
+      /* FIXME: this must be made a bit more robust*/
+      
+      /* Skip "register Lisp_Object", this can be removed when we get
+        rid of "register" for DEFUNs. */
+      if (strncmp ("register Lisp_Object", p, 20) == 0)
+       p += 20;
+
+      if (strncmp ("Lisp_Object", p, 11) == 0)
+       p += 11;
+
+      if (strncmp ("void", p, 4) == 0)
+       p += 4;
+
+      c  = *p;
+      
       /* Notice when we start printing a new identifier.  */
       if ((('A' <= c && c <= 'Z')
           || ('a' <= c && c <= 'z')