texinfo/makeinfo float.c,1.14,1.15

[dirt]

Update of /cvsroot/texinfo/texinfo/makeinfo
In directory sheep:/tmp/cvs-serv5266/makeinfo

Modified Files:
        float.c 
Log Message:
2004-01-13  Alper Ersoy  <address@hidden>

        * makeinfo/float.c (float_type_exists): new function that checks if a
        specific type of @float is previously used.
        (cm_listoffloats): warn if requested float_type is unknown.



Index: float.c
===================================================================
RCS file: /cvsroot/texinfo/texinfo/makeinfo/float.c,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** float.c     8 Jan 2004 21:05:47 -0000       1.14
--- float.c     12 Jan 2004 22:30:10 -0000      1.15
***************
*** 154,157 ****
--- 154,171 ----
  }
  
+ int
+ float_type_exists (check_type)
+      char *check_type;
+ {
+   /* Check if the requested float_type exists in the floats stack.  */
+   FLOAT_ELT *temp;
+ 
+   for (temp = float_stack; temp; temp = temp->next)
+     if (STREQ (temp->type, check_type))
+       return 1;
+ 
+   return 0;
+ }
+ 
  void
  cm_listoffloats ()
***************
*** 161,164 ****
--- 175,181 ----
    get_rest_of_line (1, &float_type);
  
+   if (handling_delayed_writes && !float_type_exists (float_type))
+     warning (_("Requested float type %s is not previously used"), float_type);
+ 
    if (xml && !docbook)
      {