Imported Upstream version 0.6.0~pre2

[pkg/abook.git] / misc.c

diff --git a/misc.c b/misc.c
index 9ae0ff7a88db342b49ffc35b6f14f51086e296d6..d49980cf5f851c21836b3965c28014579ba16b8f 100644 (file)
--- 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"