New JIt system, developed by George Oliveira and Anderson Faustino.

JIT/HPP/jit_predicates.hh

@@ -0,0 +1,45 @@
+#include "Yap.h"
+#include "clause.h"
+#include "eval.h"
+#if HRAVE_ERRNO_H
+#include <errno.h>
+#else
+extern int errno;
+#endif
+#include <string.h>
+#include <ctype.h>
+
+#define UPPER_ENTRY(S) \
+    tmp = (char*)malloc((strlen(S)+1)*sizeof(char)); \
+    while (S[i]) { \
+      if (S[i] != '-' && S[i] != '_' && S[i] != ' ') { \
+	    if ((S[i] >= '0' && S[i] <= '9') || (S[i] == '.')) \
+		  tmp[j] = S[i]; \
+		else \
+	      tmp[j] = toupper(S[i]); \
+		j++; \
+	  } \
+      i++; \
+    } \
+    tmp[j] = 0; \
+    strcpy(S, tmp); \
+    free(tmp);
+
+#if YAP_JIT
+void Yap_InitJitAnalysisPreds( void );
+void Yap_InitJitCodegenPreds( void );
+void Yap_InitJitConfigPreds( void );
+void Yap_InitJitTransformPreds( void );
+#if YAP_STAT_PREDS
+void Yap_InitJitStatisticPreds( void );
+#endif
+#endif /* YAP_JIT */
+#if YAP_DBG_PREDS
+void Yap_InitJitDebugPreds( void );
+#endif
+
+Environment ExpEnv;
+#if YAP_JIT
+extern NativeContext *NativeArea;
+extern IntermediatecodeContext *IntermediatecodeArea;
+#endif