X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=lib%2Fargmatch.h;h=d3f25cc3331c41f0623d10a6e733258f153cd0b7;hb=dede3f1b726fb2499335b15597e318a535fe203b;hp=669a0e30e1254ff7f05bb5c1ec91fabd3b403399;hpb=0bee47ab78560188f8133514186476cd26224f84;p=gnulib.git

diff --git a/lib/argmatch.h b/lib/argmatch.h
index 669a0e30e..d3f25cc33 100644
--- a/lib/argmatch.h
+++ b/lib/argmatch.h
@@ -35,6 +35,17 @@
 #  endif  /* GCC.  */
 # endif  /* Not PARAMS.  */
 
+/* Assert there are as many real arguments as there are values
+   (argument list ends with a NULL guard).  There is no execution
+   cost, since it will be statically evalauted to `assert (0)' or
+   `assert (1)'.  Unfortunately there is no -Wassert-0. */
+
+# undef ARRAY_CARDINALITY
+# define ARRAY_CARDINALITY(Array) (sizeof ((Array)) / sizeof (*(Array)))
+
+# define ARGMATCH_ASSERT(Arglist, Vallist)      \
+  assert (ARRAY_CARDINALITY ((Arglist)) == ARRAY_CARDINALITY ((Vallist)) + 1)
+
 /* Return the index of the element of ARGLIST (NULL terminated) that
    matches with ARG.  If VALLIST is not NULL, then use it to resolve
    false ambiguities (i.e., different matches of ARG but corresponding
@@ -53,9 +64,9 @@ int argcasematch
 # define ARGCASEMATCH(Arg, Arglist, Vallist) \
   argcasematch ((Arg), (Arglist), (const char *) (Vallist), sizeof (*(Vallist)))
 
-/* Function called when xargmatch failed.  Should not return.  By
-   default, set to a function calling the macro ARGMATCH_EXIT_FAILURE
-   which, by default is `exit (2)'.*/
+/* xargmatch calls this function when it fails.  This function should not
+   return.  By default, this is a function that calls ARGMATCH_DIE which
+   in turn defaults to `exit (EXIT_FAILURE)'.  */
 typedef void (*argmatch_exit_fn) PARAMS ((void));
 extern argmatch_exit_fn argmatch_die;