X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=misc.c;h=d49980cf5f851c21836b3965c28014579ba16b8f;hb=242907dcb6220a23b620f3314e96581b5b472a0d;hp=9ae0ff7a88db342b49ffc35b6f14f51086e296d6;hpb=c0b0c6c7a0971525558239e544212589fbbac58b;p=pkg%2Fabook.git

diff --git a/misc.c b/misc.c
index 9ae0ff7..d49980c 100644
--- a/misc.c
+++ b/misc.c
@@ -1,6 +1,6 @@
 
 /*
- * $Id: misc.c,v 1.22 2005/10/25 23:27:24 cduval Exp $
+ * $Id: misc.c,v 1.23 2006/09/04 18:29:25 cduval Exp $
  *
  * by JH <jheinonen@users.sourceforge.net>
  *
@@ -64,6 +64,19 @@ strtrim(char *s)
 	return s;
 }
 
+int
+is_number(char *p)
+{
+	if(!p || !*p || (*p == '-' && !*++p))
+		return 0;
+
+	for(; *p; p++)
+		if(!isdigit(*p))
+			return 0;
+
+	return 1;
+}
+
 
 #ifdef HAVE_CONFIG_H
 #	include "config.h"