Changeset 3934 for src/Pugs/Run/Perl5.hs
- Timestamp:
- 05/27/05 01:30:01 (4 years ago)
- svk:copy_cache_prev:
- 5515
- Files:
-
- 1 modified
-
src/Pugs/Run/Perl5.hs (modified) (7 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Run/Perl5.hs
r3928 r3934 62 62 pugs_apply subPtr invPtr argsPtr = do 63 63 env <- askPerl5Env 64 -- print "DEREF #1" 64 65 sub <- deVal subPtr 66 -- print "DEREF #2" 65 67 inv <- deValMaybe invPtr 68 -- print "DEREF #3" 66 69 args <- mapM deVal =<< peekArray0 nullPtr argsPtr 67 70 let subExp = case sub of … … 75 78 76 79 deVal :: PugsVal -> IO Val 77 deVal ptr = deRefStablePtr (castPtrToStablePtr ptr) 80 deVal ptr = do 81 -- print ("DEVAL", ptr) 82 x <- deRefStablePtr (castPtrToStablePtr ptr) 83 -- print ("INTO", x) 84 return x 78 85 79 86 deValMaybe :: PugsVal -> IO (Maybe Val) … … 83 90 valToSv :: PugsVal -> IO PerlSV 84 91 valToSv ptr = do 92 -- print "1" 85 93 val <- deVal ptr 86 94 case val of … … 90 98 valToIv :: PugsVal -> IO CInt 91 99 valToIv ptr = do 100 -- print "2" 92 101 val <- deVal ptr 93 102 env <- askPerl5Env … … 97 106 valToNv :: PugsVal -> IO CDouble 98 107 valToNv ptr = do 108 -- print "3" 99 109 val <- deVal ptr 100 110 env <- askPerl5Env … … 104 114 valToPv :: PugsVal -> IO CString 105 115 valToPv ptr = do 116 -- print "4" 106 117 val <- deVal ptr 107 118 env <- askPerl5Env … … 119 130 120 131 pvToVal :: CString -> IO PugsVal 121 pvToVal = (mkVal . VStr =<<) . peekCString 132 pvToVal cstr = do 133 str <- peekCString cstr 134 ptr <- mkVal $ VStr str 135 -- print ("PVTOVAL", str, ptr) 136 return ptr 122 137 123 138 #endif
