[embed some useful info in the generated executable
John Meacham <john@repetae.net>**20060212083239] hunk ./Main.hs 533
-        writeFile cf $ "char jhc_command[] = \"" ++ argstring ++ "\";\n" ++  cg
-        let boehmOpts | fopts FO.Boehm = ["-DUSE_BOEHM_GC", "-lgc"]
+            boehmOpts | fopts FO.Boehm = ["-DUSE_BOEHM_GC", "-lgc"]
hunk ./Main.hs 535
-        let profileOpts | fopts FO.Profile = ["-D_JHC_PROFILE"]
+            profileOpts | fopts FO.Profile = ["-D_JHC_PROFILE"]
hunk ./Main.hs 537
-        let comm = shellQuote $ [optCC options, "-std=gnu99", "-foptimize-sibling-calls", "-O", {- "-funit-at-a-time", -} "-g", "-Wall", "-o", fn, cf ] ++ rls ++ optCCargs options  ++ boehmOpts ++ profileOpts
+            comm = shellQuote $ [optCC options, "-std=gnu99", "-foptimize-sibling-calls", "-O", {- "-funit-at-a-time", -} "-g", "-Wall", "-o", fn, cf ] ++ rls ++ optCCargs options  ++ boehmOpts ++ profileOpts
+            globalvar n c = "char " ++ n ++ "[] = \"" ++ c ++ "\";"
+        writeFile cf $ unlines [globalvar "jhc_c_compile" comm, globalvar "jhc_jhc_command" argstring,globalvar "jhc_version" (head $ lines versionString),"",cg]