module for charsio

H/dhstruct.h

@@ -1,4 +1,4 @@
-
+
   /* This file, dhstruct.h, was generated automatically by "yap -L misc/buildheap"
      please do not update, update misc/HEAPFIELDS instead */
 
@@ -91,6 +91,7 @@
 #define IDB_MODULE Yap_heap_regs->idb_module
 #define ATTRIBUTES_MODULE Yap_heap_regs->attributes_module
 #define CHARSIO_MODULE Yap_heap_regs->charsio_module
+#define CHTYPE_MODULE Yap_heap_regs->chtype_module
 #define TERMS_MODULE Yap_heap_regs->terms_module
 #define SYSTEM_MODULE Yap_heap_regs->system_module
 #define OPERATING_SYSTEM_MODULE Yap_heap_regs->operating_system_module

H/hstruct.h

@@ -1,4 +1,4 @@
-
+
   /* This file, hstruct.h, was generated automatically by "yap -L misc/buildheap"
      please do not update, update misc/HEAPFIELDS instead */
 
@@ -91,6 +91,7 @@
   Term  idb_module;
   Term  attributes_module;
   Term  charsio_module;
+  Term  chtype_module;
   Term  terms_module;
   Term  system_module;
   Term  operating_system_module;

H/iatoms.h

@@ -1,4 +1,4 @@
-
+
   /* This file, iatoms.h, was generated automatically by "yap -L misc/buildatoms"
      please do not update, update misc/ATOMS instead */
 
@@ -55,6 +55,7 @@
   AtomCharacterCode = Yap_LookupAtom("character_code");
   AtomChars = Yap_LookupAtom("chars");
   AtomCharset = Yap_LookupAtom("charset");
+  AtomChType = Yap_FullLookupAtom("$char_type");
   AtomCleanCall = Yap_FullLookupAtom("$clean_call");
   AtomColomn = Yap_LookupAtom(":");
   AtomCodeSpace = Yap_LookupAtom("code_space");

H/ihstruct.h

@@ -1,4 +1,4 @@
-
+
   /* This file, ihstruct.h, was generated automatically by "yap -L misc/buildheap"
      please do not update, update misc/HEAPFIELDS instead */
 
@@ -91,6 +91,7 @@
   IDB_MODULE = MkAtomTerm(AtomIDB);
   ATTRIBUTES_MODULE = MkAtomTerm(AtomAttributes);
   CHARSIO_MODULE = MkAtomTerm(AtomCharsio);
+  CHTYPE_MODULE = MkAtomTerm(AtomChType);
   TERMS_MODULE = MkAtomTerm(AtomTerms);
   SYSTEM_MODULE = MkAtomTerm(AtomSystem);
   OPERATING_SYSTEM_MODULE = MkAtomTerm(AtomOperatingSystemSupport);

H/ratoms.h

@@ -1,4 +1,4 @@
-
+
   /* This file, ratoms.h, was generated automatically by "yap -L misc/buildatoms"
      please do not update, update misc/ATOMS instead */
 
@@ -55,6 +55,7 @@
   AtomCharacterCode = AtomAdjust(AtomCharacterCode);
   AtomChars = AtomAdjust(AtomChars);
   AtomCharset = AtomAdjust(AtomCharset);
+  AtomChType = AtomAdjust(AtomChType);
   AtomCleanCall = AtomAdjust(AtomCleanCall);
   AtomColomn = AtomAdjust(AtomColomn);
   AtomCodeSpace = AtomAdjust(AtomCodeSpace);

H/rhstruct.h

@@ -1,4 +1,4 @@
-
+
   /* This file, rhstruct.h, was generated automatically by "yap -L misc/buildheap"
      please do not update, update misc/HEAPFIELDS instead */
 
@@ -91,6 +91,7 @@
   IDB_MODULE = AtomTermAdjust(IDB_MODULE);
   ATTRIBUTES_MODULE = AtomTermAdjust(ATTRIBUTES_MODULE);
   CHARSIO_MODULE = AtomTermAdjust(CHARSIO_MODULE);
+  CHTYPE_MODULE = AtomTermAdjust(CHTYPE_MODULE);
   TERMS_MODULE = AtomTermAdjust(TERMS_MODULE);
   SYSTEM_MODULE = AtomTermAdjust(SYSTEM_MODULE);
   OPERATING_SYSTEM_MODULE = AtomTermAdjust(OPERATING_SYSTEM_MODULE);

H/tatoms.h

@@ -1,4 +1,4 @@
-
+
   /* This file, tatoms.h, was generated automatically by "yap -L misc/buildatoms"
      please do not update, update misc/ATOMS instead */
 
@@ -161,6 +161,9 @@
   Atom AtomCharset_;
 #define AtomCharset Yap_heap_regs->AtomCharset_
 #define TermCharset MkAtomTerm( Yap_heap_regs->AtomCharset_ )
+  Atom AtomChType_;
+#define AtomChType Yap_heap_regs->AtomChType_
+#define TermChType MkAtomTerm( Yap_heap_regs->AtomChType_ )
   Atom AtomCleanCall_;
 #define AtomCleanCall Yap_heap_regs->AtomCleanCall_
 #define TermCleanCall MkAtomTerm( Yap_heap_regs->AtomCleanCall_ )

H/udi_private.h

@@ -59,16 +59,3 @@ static inline int si_callback(void *key, void *data, void *arg)
   return Yap_ClauseListExtend(c->cl, *cl, c->pred);
 }
 
-#ifdef USE_JUDY
-#include <Judy.h>
-/* Judy1 integer sparse set intersection */
-static inline int j1_callback(void *key, void *data, void *arg)
-{
-  int r;
-  Pvoid_t *arrayP = (Pvoid_t *) arg;
-  J1S(r, *arrayP, (Word_t) data);
-  if (r == JERR)
-    return FALSE;
-  return TRUE;
-}
-#endif

misc/ATOMS

@@ -60,6 +60,7 @@ A	Character		N	"character"
 A	CharacterCode		N	"character_code"
 A	Chars			N	"chars"
 A	Charset			N	"charset"
+A	ChType			F	"$char_type"
 A	CleanCall		F	"$clean_call"
 A	Colomn			N	":"
 A	CodeSpace		N	"code_space"

misc/HEAPFIELDS

@@ -94,6 +94,7 @@ Term		user_module		USER_MODULE		MkAT AtomUser
 Term		idb_module		IDB_MODULE		MkAT AtomIDB
 Term		attributes_module	ATTRIBUTES_MODULE	MkAT AtomAttributes
 Term		charsio_module		CHARSIO_MODULE		MkAT AtomCharsio
+Term		chtype_module		CHTYPE_MODULE		MkAT AtomChType
 Term		terms_module		TERMS_MODULE		MkAT AtomTerms
 Term		system_module		SYSTEM_MODULE		MkAT AtomSystem
 Term		operating_system_module	OPERATING_SYSTEM_MODULE	MkAT AtomOperatingSystemSupport