started Make.hs in resource-1.4; api files for all langs

lib/resource-1.4/Make.hs

@@ -0,0 +1,39 @@
+module Main where
+
+import System
+
+langs = [
+--  ("arabic",   "Ara"),
+--  ("bulgarian","Bul"),
+--  ("catalan",  "Cat"),
+  ("danish",   "Dan"),
+  ("english",  "Eng"),
+  ("finnish",  "Fin"),
+  ("french",   "Fre"),
+  ("german",   "Ger"),
+--  ("interlingua","Ina"),
+  ("italian",  "Ita"),
+  ("norwegian","Nor"),
+--  ("russian",  "Rus"),
+  ("spanish",  "Spa"),
+  ("swedish",  "Swe")
+  ]
+
+
+main = do
+  xx <- getArgs
+  make xx
+
+make xx = case xx of
+  _ -> do
+--    mapM_ (gfc . lang) langs
+--    system $ "cp */*.gfo ../alltenses"
+    mapM_ (gfc . try) langs
+    system $ "cp */*.gfo ../alltenses"
+
+gfc file = do
+  putStrLn $ "compiling " ++ file
+  system $ "gfc -s " ++ file
+
+lang (lla,la) = lla ++ "/Lang" ++ la ++ ".gf"
+try  (lla,la) = "api/Try"  ++ la ++ ".gf"