Merge pull request #181 from ptoscano/project-name

autogen: add project_name/PROJECT_NAME
ocaml-obuild · Mar 21, 2019 · 28252e8 · 28252e8
2 parents b40c693 + 055b067
commit 28252e8
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/obuild/configure.ml b/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) ->