max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

feat(library/compiler/emit_cpp): take module name and (direct) dependencies as arguments

Browse source
This commit is contained in:
Leonardo de Moura 2019-01-23 16:34:04 -08:00
parent 02849a3cf6
commit f5f6a7f85e
3 changed files with 16 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/library/compiler/emit_cpp.cpp
View file

@ -6,6 +6,7 @@ Author: Leonardo de Moura
*/
#include <fstream>
#include "runtime/utf8.h"
#include "library/module.h"
#include "library/compiler/emit_cpp.h"
namespace lean {
@ -68,8 +69,10 @@ environment emit_cpp(environment const & env, comp_decls const & /* ds */) {
return env;
}
void print_cpp_code(std::ofstream & out, environment const & /* env */) {
void print_cpp_code(std::ofstream & out, environment const & /* env */, module_name const & m, list<module_name> const & deps) {
out << "// Lean compiler output\n";
out << "// Module: " << m << "\n";
out << "// Imports:"; for (module_name const & d : deps) out << " " << d; out << "\n";
// TODO(Leo)
}
}

3
src/library/compiler/emit_cpp.h
View file

@ -5,10 +5,11 @@ Released under Apache 2.0 license as described in the file LICENSE.
Author: Leonardo de Moura
*/
#pragma once
#include "util/lean_path.h"
#include "kernel/environment.h"
#include "library/compiler/util.h"
namespace lean {
environment emit_cpp(environment const & env, comp_decls const & ds);
void print_cpp_code(std::ofstream & out, environment const & env);
void print_cpp_code(std::ofstream & out, environment const & env, module_name const & m, list<module_name> const & deps);
}

11
src/shell/lean.cpp
View file

@ -577,8 +577,17 @@ int main(int argc, char ** argv) {
display_cumulative_profiling_times(std::cerr);
if (cpp_output) {
if (mods.size() != 1) {
std::cerr << "Error, option `--cpp=<file>` expects one and only one input module\n";
return 1;
}
module_name mod_name = mods[0].m_mod_info->m_name;
buffer<name> dep_names;
for (auto d : mods[0].m_mod_info->m_deps) {
dep_names.push_back(d.m_mod_info->m_name);
}
std::ofstream out(*cpp_output);
print_cpp_code(out, env);
print_cpp_code(out, env, mod_name, to_list(dep_names));
}
if (!test_suite) {