Import hs-plugins cvs

examples/pdynload/numclass/Makefile

@@ -0,0 +1,4 @@
+
+TEST=   pdynload/numclass
+TOP=../../..
+include ../../build.mk

examples/pdynload/numclass/Plugin.hs

@@ -0,0 +1,5 @@
+module Plugin where
+
+-- import API
+
+resource = "error"

examples/pdynload/numclass/api/API.hs

@@ -0,0 +1,5 @@
+
+module API where
+
+data Num t => Interface t = D t
+

examples/pdynload/numclass/prog/Main.hs

@@ -0,0 +1,19 @@
+
+import Plugins
+import API
+
+src     = "../Plugin.hs"
+wrap    = "../Wrapper.hs"
+apipath = "../api"
+
+main = do status <- make src ["-i"++apipath]
+          case status of
+                MakeFailure _   -> putStrLn "make failed"
+                MakeSuccess _ _ -> do {
+
+       ;v <- pdynload "../Plugin.o" ["../api"] [] "API.Interface Integer" "resource"
+       ;case v of
+          LoadSuccess _ a -> let D i = snd a in putStrLn $ show i
+          _               -> putStrLn "wrong types"
+
+       }

examples/pdynload/numclass/prog/expected

@@ -0,0 +1 @@
+wrong types