* Hugs version 1.4, December 1997
*
* $RCSfile: options.h,v $
- * $Revision: 1.20 $
- * $Date: 2000/03/10 14:53:00 $
+ * $Revision: 1.21 $
+ * $Date: 2000/03/10 17:30:36 $
* ------------------------------------------------------------------------*/
/* --------------------------------------------------------------------------
+ * Language extensions
+ * ------------------------------------------------------------------------*/
+
+/* Define if T-REX; Typed Rows and EXtension should be enabled */
+/* Doesn't work in current system - I don't know what the primops do */
+#define TREX 0
+
+/* Implicit Parameters */
+#define IPARAM 1
+
+/* Multi-instance resolution */
+#define MULTI_INST 0
+
+
+/* --------------------------------------------------------------------------
* Various table sizes
* ------------------------------------------------------------------------*/
* Fancy features
* ------------------------------------------------------------------------*/
-/* Define if T-REX; Typed Rows and EXtension should be enabled */
-/* Doesn't work in current system - I don't know what the primops do */
-#define TREX 0
-
/* Define if :xplain should be enabled */
#define EXPLAIN_INSTANCE_RESOLUTION 0
* included in the distribution.
*
* $RCSfile: backend.h,v $
- * $Revision: 1.7 $
- * $Date: 2000/03/10 14:53:00 $
+ * $Revision: 1.8 $
+ * $Date: 2000/03/10 17:30:36 $
* ------------------------------------------------------------------------*/
/* --------------------------------------------------------------------------
extern Void implementPrim Args((Name));
extern Void implementTuple Args((Int));
#if TREX
-extern Name implementRecShw Args((Text));
-extern Name implementRecEq Args((Text));
+extern Name implementRecShw Args((Text,Cell));
+extern Name implementRecEq Args((Text,Cell));
#endif
/* Association list storing globals assigned to dictionaries, tuples, etc */
* included in the distribution.
*
* $RCSfile: connect.h,v $
- * $Revision: 1.25 $
- * $Date: 2000/03/10 14:53:00 $
+ * $Revision: 1.26 $
+ * $Date: 2000/03/10 17:30:36 $
* ------------------------------------------------------------------------*/
/* --------------------------------------------------------------------------
extern Addr codeGen Args((Name,Int,Cell));
extern Void implementCfun Args((Name,List));
-#if TREX
-extern Name implementRecShw Args((Text,Cell));
-extern Name implementRecEq Args((Text,Cell));
-#endif
extern Void addCfunTable Args((Tycon));
extern Name succCfun Args((Name));
extern Name nextCfun Args((Name,Name));
* included in the distribution.
*
* $RCSfile: prelude.h,v $
- * $Revision: 1.6 $
- * $Date: 1999/10/20 02:16:04 $
+ * $Revision: 1.7 $
+ * $Date: 2000/03/10 17:30:36 $
* ------------------------------------------------------------------------*/
#define NON_POSIX_SOURCE
#define Putc putc
#endif
-
-/*-------------------------------------------------------------------------*/
-/* AJG: This needs moved to a more appropreate location
- *
- * TREX to include support for Typed Rows and EXtensions.
- * IPARAM to include support for Implicit Parameters.
- * MULTI_INST to include support for Multi-Instance Resolution.
- */
-#define TREX 0
-#define IPARAM 0
-#define MULTI_INST 0
-
-/*-------------------------------------------------------------------------*/
* included in the distribution.
*
* $RCSfile: storage.c,v $
- * $Revision: 1.48 $
- * $Date: 2000/03/10 14:53:00 $
+ * $Revision: 1.49 $
+ * $Date: 2000/03/10 17:30:36 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
|| whatIs(c)==CONOPCELL
|| whatIs(c)==STRCELL
|| whatIs(c)==DICTVAR
+ || whatIs(c)==IPCELL
+ || whatIs(c)==IPVAR
);
if (!ok) {
fprintf(stderr, "\ntextOf: bad tag %d\n",whatIs(c) );