Changeset 1066

Timestamp:

Jul 30, 2003, 12:29:01 PM (17 years ago)

Author:

pooh

Message:

• Func term type implemented (requires some compiler support). Apply module

implemented.

Location:

to-imperative/trunk

Files:

• library/Apply (added)
• library/Apply/Makefile (added)
• library/Apply/apply.cc (added)
• library/Makefile (modified) (1 diff)
• library/include/refal/Apply.hh (added)
• runtime/Makefile (modified) (1 diff)
• runtime/rf_core.cc (modified) (1 diff)
• runtime/rf_core.hh (modified) (1 diff)
• runtime/rf_func.cc (added)
• runtime/rf_func.hh (added)
• runtime/rf_func.ih (added)
• runtime/rf_term.hh (modified) (1 diff)
• runtime/rf_types.hh (modified) (1 diff)
• samples/Apply (added)
• samples/Apply/Makefile (added)
• samples/Apply/apply.out (added)
• samples/Apply/apply.rf (added)

to-imperative/trunk/library/Makefile

@@ -1 +1 @@
 SUBDIRS = \
-  Access Arithm Box Class Convert StdIO String Table Compare Dos Vector
+  Access \
+  Apply \
+  Arithm \
+  Box \
+  Class \
+  Convert \
+  StdIO \
+  String \
+  Table \
+  Compare \
+  Dos \
+  Vector
 
 TOPDIR = ..

to-imperative/trunk/runtime/Makefile

@@ -19 +19 @@
   rf_short_int \
   rf_integer \
+  rf_func \
   rf_object \
   rf_object_ref \

to-imperative/trunk/runtime/rf_core.cc

@@ -102 +102 @@
 TypeRegister rftype::Integer::reg(&Integer::funcs, type_int) ;
 TypeRegister rftype::Word::reg(&Word::funcs, type_word) ;
+TypeRegister rftype::Func::reg(&Func::funcs, type_func) ;
 
 ObjectRegister rftype::Box::reg(type_box) ;

to-imperative/trunk/runtime/rf_core.hh

@@ -39 +39 @@
 #include "rf_vector.ih"
 #include "rf_channel.ih"
+#include "rf_func.ih"
 #include "rf_table.ih"
 #include "rf_string.ih"

to-imperative/trunk/runtime/rf_term.hh

@@ -104 +104 @@
     intptr_t int_data2 ;
     void* ptr_data2 ;
+    void (*fptr_data2) () ;
   };
 

to-imperative/trunk/runtime/rf_types.hh

@@ -29 +29 @@
   type_table,
   type_channel,
+  type_func,
   type_user_object,
   type_expr = max_type