/*
- * $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>
*
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"