From abd13b931ae4a187bc5df27de3e52419a65d1ee9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Adri=C3=A1n=20Arroyo=20Calle?= Date: Tue, 29 Oct 2024 22:52:22 +0100 Subject: [PATCH] Warp everything in catch/3 to prevent going back to the REPL --- main.pl | 39 ++++++++++++++++++--------------------- 1 file changed, 18 insertions(+), 21 deletions(-) diff --git a/main.pl b/main.pl index 66830d5..3604724 100644 --- a/main.pl +++ b/main.pl @@ -18,27 +18,24 @@ :- dynamic(source_folder/1). run(SourceFolder, OutputFolder) :- - portray_clause(doclog(2, 0, 0)), - assertz(output_folder(OutputFolder)), - assertz(source_folder(SourceFolder)), - path_segments(SourceFolder, S1), - append(S1, ["doclog.config.pl"], C1), - path_segments(ConfigFile, C1), - atom_chars(ConfigFileA, ConfigFile), - consult(ConfigFileA), - generate_nav_lib(NavLib), - generate_nav_learn(NavLearn), - generate_footer(Footer), - Sections = ["nav_lib"-NavLib, "nav_learn"-NavLearn, "footer"-Footer], - generate_page_learn(Sections), - do_copy_files, - generate_page_docs(Sections), - generate_readme(Sections), - halt. - -run(_) :- - portray_clause(error_running_doclog), - halt(1). + catch(( + portray_clause(doclog(2, 0, 0)), + assertz(output_folder(OutputFolder)), + assertz(source_folder(SourceFolder)), + path_segments(SourceFolder, S1), + append(S1, ["doclog.config.pl"], C1), + path_segments(ConfigFile, C1), + atom_chars(ConfigFileA, ConfigFile), + consult(ConfigFileA), + generate_nav_lib(NavLib), + generate_nav_learn(NavLearn), + generate_footer(Footer), + Sections = ["nav_lib"-NavLib, "nav_learn"-NavLearn, "footer"-Footer], + generate_page_learn(Sections), + do_copy_files, + generate_page_docs(Sections), + generate_readme(Sections), + halt), _, halt(1)). do_copy_files :- source_folder(S1),