e628032176
An Experimental constraint logic programming language. PR: 12536 Submitted by: Issei Suzuki <issei@jp.FreeBSD.ORG>
29 lines
814 B
Plaintext
29 lines
814 B
Plaintext
--- include.h.orig Fri Jan 27 16:38:48 1995
|
|
+++ include.h Wed Jul 7 02:25:14 1999
|
|
@@ -28,7 +28,11 @@
|
|
* else #define CPUTIME 0
|
|
*/
|
|
|
|
+#ifdef __FreeBSD__
|
|
+#define CPUTIME 60
|
|
+#else
|
|
#define SUN4 1
|
|
+#endif
|
|
#define KANJI 1 /* 1: allow EUC Kanji for str functions */
|
|
|
|
/* Tee print macro */
|
|
@@ -135,8 +139,13 @@
|
|
#define head_of_list(Term) (((struct clause *)Term)->c_form)
|
|
#define tail_of_list(Term) ((struct term *)((struct clause *)Term)->c_link)
|
|
|
|
+#ifdef __FreeBSD__
|
|
+#define is_readable(FP) (FP->_flags & __SRD)
|
|
+#define is_writable(FP) (FP->_flags & __SWR)
|
|
+#else
|
|
#define is_readable(FP) (FP->_flag & _IOREAD)
|
|
#define is_writable(FP) (FP->_flag & _IOWRT)
|
|
+#endif
|
|
|
|
#define is_functor(Term) ((Term)->type.ident > CONST_LIST_TYPE)
|
|
#define isconst_functor(Term) ((Term)->t_arity <= 0)
|