-- update the import list of every language
-- although possibly some extra definitions at the end
-- the new files are produced in ./tmp/
-- usage: runghc MkApp.hs

langs = words "Bul Chi Dut Eng Fin Fre Ger Hin Ita Spa Swe"
appCnc lang = "App" ++ lang ++ ".gf"

appAbs = "App.gf"

main = do
  imports <- readFile appAbs >>= return . getImports
  mapM_ (\f -> readFile f >>= writeFile ("tmp/" ++ f) . (putImports imports)) (map appCnc langs)

getImports = takeWhile (/= ']') . tail . dropWhile (/='[')

putImports i s = 
  let
    (s1,_:s2) = span (/='[') s
    (_,   s3) = span (/=']') s2
  in s1 ++ "[" ++ i ++ extra s3

extra s = unlines (init (lines s) ++ extraLines ++ ["}"])

extraLines = -- [] -- default: no extra

  [
  "",
  "ComplV2V v np vp = mkVP v np vp ;",
  "ComplV2A v np vp = mkVP v np vp ;",
  "ComplV2Q v np vp = mkVP v np vp ;",
  "ComplV2S v np vp = mkVP v np vp ;",
  "ComplV3  v np vp = mkVP v np vp ;",
  ""
  ]