Skip to content

Commit

Permalink
Move impl to hpp as much as possible
Browse files Browse the repository at this point in the history
  • Loading branch information
@da-liii
da-liii committed Aug 10, 2024
1 parent 205dcae commit 900ad15
Show file tree
Hide file tree
Showing 2 changed files with 153 additions and 154 deletions.
153 changes: 1 addition & 152 deletions src/goldfish.cpp
View file
Original file line number Diff line number Diff line change
Expand Up @@ -16,158 +16,7 @@

#include "goldfish.hpp"

#include <iostream>
#include <sstream>
#include <stdlib.h>
#include <tbox/platform/path.h>
#include <vector>

using std::cerr;
using std::cout;
using std::endl;
using std::string;
using std::vector;

using goldfish::glue_goldfish;
using goldfish::glue_liii_os;
using goldfish::glue_liii_uuid;
using goldfish::glue_scheme_process_context;
using goldfish::glue_scheme_time;

void
display_help () {
cout << "Goldfish Scheme " << GOLDFISH_VERSION << " by LiiiLabs" << endl;
cout << "--version\t"
<< "display version" << endl;
cout << "-e \t"
<< "-e '(+ 1 2)'" << endl;
cout << "-l FILE \t"
<< "Load the scheme code on path" << endl;
cout << "FILE \t"
<< "Load the scheme code on path and print the evaluated result" << endl;
}

void
display_version () {
cout << "Goldfish Scheme " << GOLDFISH_VERSION << " by LiiiLabs" << endl;
cout << "based on S7 Scheme " << S7_VERSION << " (" << S7_DATE << ")" << endl;
}

void
display_for_invalid_options () {
cerr << "Invalid command line options!" << endl << endl;
display_help ();
}

void
goldfish_eval_file (s7_scheme* sc, string path, bool quiet) {
s7_pointer result= s7_load (sc, path.c_str ());
if (!result) {
cerr << "Failed to load " << path << endl;
exit (-1);
}
if (!quiet) {
cout << path << " => " << s7_object_to_c_string (sc, result) << endl;
}
}

void
goldfish_eval_code (s7_scheme* sc, string code) {
s7_pointer x= s7_eval_c_string (sc, code.c_str ());
cout << s7_object_to_c_string (sc, x) << endl;
}

int
main (int argc, char** argv) {
// Check if the standard library and boot.scm exists
tb_char_t data_goldfish[TB_PATH_MAXN]= {0};
tb_char_t const* goldfish=
tb_path_absolute (argv[0], data_goldfish, sizeof (data_goldfish));

tb_char_t data_bin[TB_PATH_MAXN]= {0};
tb_char_t const* ret_bin=
tb_path_directory (goldfish, data_bin, sizeof (data_bin));

tb_char_t data_root[TB_PATH_MAXN]= {0};
tb_char_t const* gf_root=
tb_path_directory (ret_bin, data_root, sizeof (data_root));

tb_char_t data_lib[TB_PATH_MAXN]= {0};
tb_char_t const* gf_lib=
tb_path_absolute_to (gf_root, "goldfish", data_lib, sizeof (data_lib));

tb_char_t data_boot[TB_PATH_MAXN]= {0};
tb_char_t const* gf_boot= tb_path_absolute_to (gf_lib, "scheme/boot.scm",
data_boot, sizeof (data_boot));

if (!tb_file_access (gf_lib, TB_FILE_MODE_RO)) {
cerr << "The load path for Goldfish Scheme Standard Library does not exist"
<< endl;
exit (-1);
}
if (!tb_file_access (gf_boot, TB_FILE_MODE_RO)) {
cerr << "The boot.scm for Goldfish Scheme does not exist" << endl;
exit (-1);
}
vector<string> all_args (argv, argv + argc);
int all_args_N= all_args.size ();
for (int i= 0; i < all_args_N; i++) {
command_args.push_back (all_args[i]);
}

// Init the underlying S7 Scheme and add the load_path
s7_scheme* sc;
sc= s7_init ();
s7_load (sc, gf_boot);
s7_add_to_load_path (sc, gf_lib);
const char* errmsg= NULL;
s7_pointer old_port=
s7_set_current_error_port (sc, s7_open_output_string (sc));
int gc_loc= -1;
if (old_port != s7_nil (sc)) gc_loc= s7_gc_protect (sc, old_port);

// Init tbox
if (!tb_init (tb_null, tb_null)) exit (-1);

// Glues
glue_goldfish (sc);
glue_scheme_time (sc);
glue_scheme_process_context (sc);
glue_liii_os (sc);
glue_liii_uuid (sc);

// Command options
vector<string> args (argv + 1, argv + argc);
if (args.size () == 0) {
display_help ();
}
else if (args.size () == 1 && args[0].size () > 0 && args[0][0] == '-') {
if (args[0] == "--version") {
display_version ();
}
else {
display_for_invalid_options ();
}
}
else if (args.size () >= 2 && args[0] == "-e") {
goldfish_eval_code (sc, args[1]);
}
else if (args.size () >= 2 && args[0] == "-l") {
goldfish_eval_file (sc, args[1], true);
}
else if (args.size () >= 1 && args[0].size () > 0 && args[0][0] != '-') {
goldfish_eval_file (sc, args[0], false);
}
else {
display_for_invalid_options ();
}

errmsg= s7_get_output_string (sc, s7_current_error_port (sc));
if ((errmsg) && (*errmsg)) cout << errmsg;
s7_close_output_port (sc, s7_current_error_port (sc));
s7_set_current_error_port (sc, old_port);
if (gc_loc != -1) s7_gc_unprotect_at (sc, gc_loc);

if ((errmsg) && (*errmsg)) return -1;
else return 0;
return repl_for_community_edition (argc, argv);
}
154 changes: 152 additions & 2 deletions src/goldfish.hpp
View file
Original file line number Diff line number Diff line change
Expand Up @@ -18,9 +18,11 @@
#include <iostream>
#include <s7.h>
#include <string>
#include <vector>

#include <tbox/platform/file.h>
#include <tbox/platform/path.h>
#include <tbox/tbox.h>
#include <vector>

#ifdef TB_CONFIG_OS_WINDOWS
#include <io.h>
Expand All @@ -30,7 +32,7 @@
#include <unistd.h>
#endif

#if !defined(_MSC_VER)
#if !defined(TB_CONFIG_OS_WINDOWS)
#include <errno.h>
#include <wordexp.h>
#endif
Expand All @@ -41,6 +43,9 @@
static std::vector<std::string> command_args= std::vector<std::string> ();

namespace goldfish {
using std::cerr;
using std::cout;
using std::endl;
using std::string;
using std::vector;

Expand Down Expand Up @@ -382,4 +387,149 @@ glue_liii_uuid (s7_scheme* sc) {
NULL));
}

inline void
glue_for_community_edition (s7_scheme* sc) {
glue_goldfish (sc);
glue_scheme_time (sc);
glue_scheme_process_context (sc);
glue_liii_os (sc);
glue_liii_uuid (sc);
}

static void
display_help () {
cout << "Goldfish Scheme " << GOLDFISH_VERSION << " by LiiiLabs" << endl;
cout << "--version\t"
<< "display version" << endl;
cout << "-e \t"
<< "-e '(+ 1 2)'" << endl;
cout << "-l FILE \t"
<< "Load the scheme code on path" << endl;
cout << "FILE \t"
<< "Load the scheme code on path and print the evaluated result" << endl;
}

static void
display_version () {
cout << "Goldfish Scheme " << GOLDFISH_VERSION << " by LiiiLabs" << endl;
cout << "based on S7 Scheme " << S7_VERSION << " (" << S7_DATE << ")" << endl;
}

static void
display_for_invalid_options () {
cerr << "Invalid command line options!" << endl << endl;
display_help ();
}

static void
goldfish_eval_file (s7_scheme* sc, string path, bool quiet) {
s7_pointer result= s7_load (sc, path.c_str ());
if (!result) {
cerr << "Failed to load " << path << endl;
exit (-1);
}
if (!quiet) {
cout << path << " => " << s7_object_to_c_string (sc, result) << endl;
}
}

static void
goldfish_eval_code (s7_scheme* sc, string code) {
s7_pointer x= s7_eval_c_string (sc, code.c_str ());
cout << s7_object_to_c_string (sc, x) << endl;
}

int
repl_for_community_edition (int argc, char** argv) {
// Check if the standard library and boot.scm exists
tb_char_t data_goldfish[TB_PATH_MAXN]= {0};
tb_char_t const* goldfish=
tb_path_absolute (argv[0], data_goldfish, sizeof (data_goldfish));

tb_char_t data_bin[TB_PATH_MAXN]= {0};
tb_char_t const* ret_bin=
tb_path_directory (goldfish, data_bin, sizeof (data_bin));

tb_char_t data_root[TB_PATH_MAXN]= {0};
tb_char_t const* gf_root=
tb_path_directory (ret_bin, data_root, sizeof (data_root));

tb_char_t data_lib[TB_PATH_MAXN]= {0};
tb_char_t const* gf_lib=
tb_path_absolute_to (gf_root, "goldfish", data_lib, sizeof (data_lib));

tb_char_t data_boot[TB_PATH_MAXN]= {0};
tb_char_t const* gf_boot= tb_path_absolute_to (gf_lib, "scheme/boot.scm",
data_boot, sizeof (data_boot));

if (!tb_file_access (gf_lib, TB_FILE_MODE_RO)) {
cerr << "The load path for Goldfish Scheme Standard Library does not exist"
<< endl;
exit (-1);
}
if (!tb_file_access (gf_boot, TB_FILE_MODE_RO)) {
cerr << "The boot.scm for Goldfish Scheme does not exist" << endl;
exit (-1);
}
vector<string> all_args (argv, argv + argc);
int all_args_N= all_args.size ();
for (int i= 0; i < all_args_N; i++) {
command_args.push_back (all_args[i]);
}

// Init the underlying S7 Scheme and add the load_path
s7_scheme* sc;
sc= s7_init ();
s7_load (sc, gf_boot);
s7_add_to_load_path (sc, gf_lib);
const char* errmsg= NULL;
s7_pointer old_port=
s7_set_current_error_port (sc, s7_open_output_string (sc));
int gc_loc= -1;
if (old_port != s7_nil (sc)) gc_loc= s7_gc_protect (sc, old_port);

// Init tbox
if (!tb_init (tb_null, tb_null)) exit (-1);

// Glues
glue_for_community_edition (sc);

// Command options
vector<string> args (argv + 1, argv + argc);
if (args.size () == 0) {
display_help ();
}
else if (args.size () == 1 && args[0].size () > 0 && args[0][0] == '-') {
if (args[0] == "--version") {
display_version ();
}
else {
display_for_invalid_options ();
}
}
else if (args.size () >= 2 && args[0] == "-e") {
goldfish_eval_code (sc, args[1]);
}
else if (args.size () >= 2 && args[0] == "-l") {
goldfish_eval_file (sc, args[1], true);
}
else if (args.size () >= 1 && args[0].size () > 0 && args[0][0] != '-') {
goldfish_eval_file (sc, args[0], false);
}
else {
display_for_invalid_options ();
}

errmsg= s7_get_output_string (sc, s7_current_error_port (sc));
if ((errmsg) && (*errmsg)) cout << errmsg;
s7_close_output_port (sc, s7_current_error_port (sc));
s7_set_current_error_port (sc, old_port);
if (gc_loc != -1) s7_gc_unprotect_at (sc, gc_loc);

if ((errmsg) && (*errmsg)) return -1;
else return 0;
}

}

} // namespace goldfish

0 comments on commit 900ad15

Please sign in to comment.