Merge pull request #181 from ptoscano/project-name

autogen: add project_name/PROJECT_NAME

Author: jeromemaloberti

obuild/configure.ml

@@ -20,6 +20,7 @@ let getDigestKV () =
 let generateMlFile project file flags =
     Utils.generateFile file (fun add ->
         add "(* autogenerated file by obuild. do not modify *)\n";
+        add (sprintf "let project_name = \"%s\"\n" project.Analyze.project_file.Project.name);
         add (sprintf "let project_version = \"%s\"\n" project.Analyze.project_file.Project.version);
         (* TODO escape name properly *)
         List.iter (fun (name, v) -> add (sprintf "let project_flag_%s = %b\n" name v)) flags;
@@ -28,6 +29,7 @@ let generateMlFile project file flags =
 let generateCFile project file flags =
     Utils.generateFile file (fun add ->
         add "/* autogenerated file by obuild. do not modify */\n";
+        add (sprintf "#define PROJECT_NAME \"%s\"\n" project.Analyze.project_file.Project.name);
         add (sprintf "#define PROJECT_VERSION \"%s\"\n" project.Analyze.project_file.Project.version);
         (* TODO escape name properly *)
         List.iter (fun (name, v) ->