Changeset 22930 for v6

Timestamp:

11/08/08 12:45:32 (2 months ago)

Author:

pmurias

Message:

[smop] hello wold works with m0ld --exec again
it is a problem with BValues
added BValue.DEBUG and smop_describe_object to help debugging

Location:

v6/smop

Files:

• m0ld/M0ld/Eval.hs (modified) (2 diffs)
• m0ld/m0ld.cabal (modified) (1 diff)
• src/haskell_ffi.c (modified) (1 diff)
• src/s1p_hash_bvalue.ri (modified) (1 diff)

v6/smop/m0ld/M0ld/Eval.hs

@@ -28 +28 @@
 foreign import ccall "smop_haskell_ffi.h smop_ri"
       c_smop_ri :: SMOP__Object -> SMOP__Object
+foreign import ccall "smop_haskell_ffi.h smop_describe_object"
+      c_smop_describe_object :: SMOP__Object -> IO ()
+
+describe_object obj = do 
+    ptr <- smopify obj
+    c_smop_describe_object ptr
 
 foreign import ccall "smop_native.h SMOP__NATIVE__idconst_createn"
@@ -128 +134 @@
     root <- rootnamespace
 
-    out_scalar <- call root "postcircumfix:{ }" ["$*OUT"] none
+    -- describe_object root
+
+    -- out_scalar <- call root "postcircumfix:{ }" ["$*OUT"] none
+    out_scalar <- call root "lookup_key" ["$*OUT"] none
+
+    -- describe_object out_scalar
+
+    --call out_scalar "DEBUG" none none
+
     out <- call out_scalar "FETCH" none none
 
-    mold_frame_scalar <- call root "postcircumfix:{ }" ["::MoldFrame"] none
+    -- describe_object out
+
+    mold_frame_scalar <- call root "lookup_key" ["::MoldFrame"] none
     mold_frame <- call mold_frame_scalar "FETCH" none none
 

v6/smop/m0ld/m0ld.cabal

@@ -12 +12 @@
     description: Enable SMOP Embedding
     default:     False
-library
+-- library
+--    build-Depends:       base,utf8-string >= 0.3.1.1,containers >= 0.1.0.1,parsec >= 2.0.0.0
+--
+--    exposed-modules:     M0ld,M0ld.Parser,M0ld.AST -}
+executable m0ld
     build-Depends:       base,utf8-string >= 0.3.1.1,containers >= 0.1.0.1,parsec >= 2.0.0.0
-
-    exposed-modules:     M0ld,M0ld.Parser,M0ld.AST
-executable m0ld
     main-is:            m0ld.hs
     if flag(SMOP)

v6/smop/src/haskell_ffi.c

@@ -25 +25 @@
   return SMOP__S1P__RootNamespace;
 }
+void smop_describe_object(SMOP__Object* obj) {
+  printf("RI: %s\n",SMOP_RI(obj)->id);
+}
 SMOP__Object* smop_get_cvar(char* var) {
   //printf("fetching \"%s\"\n",var);

v6/smop/src/s1p_hash_bvalue.ri

@@ -68 +68 @@
                   SMOP__ID__goto,
                   frame);
+%method DEBUG
+   int identifier_size;
+   SMOP__Object* key = ((smop_s1p_hash_bvalue_struct*)invocant)->key;
+   char* s = SMOP__NATIVE__idconst_fetch(key,&identifier_size);
+   printf("BValue.DEBUG key='%.*s'\n",identifier_size,s); 
 
 %mold bind_mold