preliminary support for readutil library (SWI compatible).

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1678 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

C/adtdefs.c

@@ -862,6 +862,17 @@ Yap_StringToList(char *s)
   return (t);
 }
 
+Term
+Yap_StringToDiffList(char *s, Term t)
+{
+  register unsigned char *cp = (unsigned char *)s + strlen(s);
+
+  while (cp > (unsigned char *)s) {
+    t = MkPairTerm(MkIntTerm(*--cp), t);
+  }
+  return t;
+}
+
 Term
 Yap_StringToListOfAtoms(char *s)
 {