lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Convert slashes to dots in SRFI 176 output

This commit is contained in:
Lassi Kortela 2020-02-14 17:55:10 +02:00
parent 9e76fdb005
commit 4e88a2c1eb
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
c/env.c
View File

@ -231,34 +231,34 @@ value_t get_version_alist(void)
accum_init(&acc); accum_init(&acc);
accum_name_value1(&acc, "command", string_from_cstr("upscheme")); accum_name_value1(&acc, "command", string_from_cstr("upscheme"));
accum_name_value1(&acc, "release", string_from_cstr(env_release)); accum_name_value1(&acc, "release", string_from_cstr(env_release));
accum_name_value1(&acc, "release/date", accum_name_value1(&acc, "release.date",
string_from_cstr(env_release_date)); string_from_cstr(env_release_date));
accum_name_value( accum_name_value(
&acc, "languages", &acc, "languages",
fl_cons(symbol("scheme"), fl_cons(symbol("r7rs"), FL_NIL))); fl_cons(symbol("scheme"), fl_cons(symbol("r7rs"), FL_NIL)));
accum_name_value1(&acc, "scheme/id", symbol("upscheme")); accum_name_value1(&acc, "scheme.id", symbol("upscheme"));
accum_name_value(&acc, "scheme/srfi", build_srfi_list()); accum_name_value(&acc, "scheme.srfi", build_srfi_list());
accum_name_value(&acc, "scheme/features", get_features_list()); accum_name_value(&acc, "scheme.features", get_features_list());
accum_name_value1(&acc, "build/platform", accum_name_value1(&acc, "build.platform",
string_from_cstr(get_build_platform())); string_from_cstr(get_build_platform()));
accum_name_value1(&acc, "build/date", accum_name_value1(&acc, "build.date",
string_from_cstr(env_build_date)); string_from_cstr(env_build_date));
accum_name_value1(&acc, "build/git/branch", accum_name_value1(&acc, "build.git.branch",
string_from_cstr(env_build_git_branch)); string_from_cstr(env_build_git_branch));
accum_name_value1(&acc, "build/git/commit", accum_name_value1(&acc, "build.git.commit",
string_from_cstr(env_build_git_commit)); string_from_cstr(env_build_git_commit));
accum_name_value(&acc, "build/git/modified", accum_name_value(&acc, "build.git.modified",
list_from_cstrv(env_build_git_modified)); list_from_cstrv(env_build_git_modified));
accum_name_value(&acc, "c/type-bits", build_c_type_bits_list()); accum_name_value(&acc, "c.type-bits", build_c_type_bits_list());
accum_name_value1(&acc, "c/version", accum_name_value1(&acc, "c.version",
string_from_cstr(SCHEME_C_COMPILER_NAME string_from_cstr(SCHEME_C_COMPILER_NAME
" " SCHEME_C_COMPILER_VERSION)); " " SCHEME_C_COMPILER_VERSION));
accum_name_value(&acc, "c/compile", accum_name_value(&acc, "c.compile",
list_from_cstrv(env_build_c_compile)); list_from_cstrv(env_build_c_compile));
accum_name_value(&acc, "c/link", list_from_cstrv(env_build_c_link)); accum_name_value(&acc, "c.link", list_from_cstrv(env_build_c_link));
accum_name_value(&acc, "upscheme/stable-specs", accum_name_value(&acc, "upscheme.stable-specs",
build_stable_specs_list()); build_stable_specs_list());
accum_name_value1(&acc, "upscheme/unstable-spec", accum_name_value1(&acc, "upscheme.unstable-spec",
fixnum(upscheme_unstable_spec)); fixnum(upscheme_unstable_spec));
} }
return acc.list; return acc.list;