Import hs-plugins cvs

examples/hier/hier2/A/B/C/Module.hs

@@ -0,0 +1,8 @@
+--
+-- A simple module
+--
+
+module A.B.C.Module where
+
+symbol = "You found me"
+

examples/hier/hier2/A/Makefile

@@ -0,0 +1,7 @@
+
+all:
+	ghc -c B/C/Module.hs
+
+
+clean:
+	rm -f B/C/*.hi B/C/*.o

examples/hier/hier2/Makefile

@@ -0,0 +1,7 @@
+TEST=   hier/hier2
+
+PRIOR_OBJS=A/B/C/Module.o
+EXTRAFLAGS=
+
+TOP=../../..
+include ../../build.mk

examples/hier/hier2/api/API.hs

@@ -0,0 +1,4 @@
+module API where
+
+-- just a dummy for the build system
+

examples/hier/hier2/prog/Main.hs

@@ -0,0 +1,15 @@
+--
+-- Test if we can load a module with a hierarchical name from some weird
+-- path. Tests our the module name handling in the .hi file parser.
+--
+
+
+module Main where
+
+import Plugins
+
+main = do
+        status <- load "../A/B/C/Module.o" [".."] [] "symbol"
+        case status of
+                LoadFailure ers -> mapM_ putStrLn ers
+                LoadSuccess _ v -> print (v :: String)

examples/hier/hier2/prog/expected

@@ -0,0 +1 @@
+"You found me"