Permalink
Browse files

Library

  • Loading branch information...
1 parent 3699a26 commit 68b43a79b0e228f5af2bc7adc3cd62571095e2dd @norm2782 norm2782 committed Nov 1, 2011
@@ -23,9 +23,9 @@ some_function(5, 15, function(num) {
foreign import jscript "some_function(%*)"
someFun :: Int -> Int -> FunPtr (Int -> IO ()) -> IO ()
-foreign import jscript "wrapper"
- wrap :: (Int -> IO ()) -> IO (FunPtr (Int -> IO ()))
-
+{- foreign import jscript "wrapper"-}
+ {- wrap :: (Int -> IO ()) -> IO (FunPtr (Int -> IO ()))-}
+wrap = undefined
myCB :: Int -> IO ()
myCB = putStrLn . show
@@ -0,0 +1,37 @@
+<!DOCTYPE html><html><head><title>data_export_wrapper</title>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/jscript/libEH-RTS.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/UHC_Base.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/UHC_Char.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/UHC_Enum.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/UHC_Float.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/UHC_MutVar.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/UHC_Read.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/UHC_ST.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/UHC_STRef.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/UHC_Show.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/UHC_StackTrace.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/UHC_Types.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/UHC_Ptr.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/UHC_ByteArray.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/UHC_IOBase.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/UHC_OldException.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/UHC_OldIO.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/UHC_Run.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/Generics/UHC_Generics_Tuple.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/UHC_Generics.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/UHC_Bounded.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/UHC_Eq.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/UHC/UHC_Ord.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/Data/Data_Maybe.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/uhcbase-1.1.2/99/jscript/plain/Control/Control_Monad.mjs"></script>
+<script type="text/javascript" src="/Users/norm2782/Documents/UU/XP/EHC/install/99/lib/pkg/base-3.0.0.0/99/jscript/plain/Prelude.mjs"></script>
+<script type="text/javascript" src="../../../uhc-jscript/src/Language/UHC/JScript/Language_UHC_JScript_Types.mjs"></script>
+<script type="text/javascript" src="../../../uhc-jscript/src/Language/UHC/JScript/ECMA/Language_UHC_JScript_ECMA_String.mjs"></script>
+<script type="text/javascript" src="../../../uhc-jscript/src/Language/UHC/JScript/Language_UHC_JScript_Primitives.mjs"></script>
+<script type="text/javascript" src="../../../uhc-jscript/src/Language/UHC/JScript/JQuery/Language_UHC_JScript_JQuery_JQuery.mjs"></script>
+<script type="text/javascript" src="data_export_wrapper_perm.js"></script>
+<script type="text/javascript" src="data_export_wrapper.js"></script>
+</head>
+<body>
+</body>
+</html>
@@ -0,0 +1,4 @@
+function some_function(arg1, arg2, callback) {
+ var my_number = Math.ceil(Math.random() * (arg1 - arg2) + arg2);
+ callback(my_number);
+}

0 comments on commit 68b43a7

Please sign in to comment.