add hasADot()

2 files changed, 9 insertions, 0 deletions

diff --git a/liblali.c b/liblali.c
index a6426af..651ead6 100644
--- a/liblali.c
+++ b/liblali.c
@@ -1034,6 +1034,13 @@ DEFINE_PRIMITIVE_RELATIONAL(primitiveLess,         < , true)
 DEFINE_PRIMITIVE_RELATIONAL(primitiveGreater,      > , true)
 /* DEFINE_PRIMITIVE_RELATIONAL(primitiveGreaterEqual, >=, true) */
 
+bool hasADot(char *string) {
+  for (int i = 0; string[i] != '\0'; i++)
+    if (string[i] == '.')
+      return true;
+  return false;
+}
+
 Object *primitiveJoin(Object **args, GC_PARAM) {
   if ((*args)->car == nil)
     exception("cannot join an empty list");
diff --git a/liblali.h b/liblali.h
index d1d7c24..e50cb24 100644
--- a/liblali.h
+++ b/liblali.h
@@ -331,6 +331,8 @@ Object *primitiveLess(Object **args, GC_PARAM);
 
 Object *primitiveGreater(Object **args, GC_PARAM);
 
+bool hasADot(char *string);
+
 Object *primitiveJoin(Object **args, GC_PARAM);
 
 Object *primitiveSplit(Object **args, GC_PARAM);