use scm_c_primitive_load instead of ifstream->string->eval-string

gnucash/gnucash-cli.cpp

@@ -162,25 +162,15 @@ scm_run_cli (void *data, [[maybe_unused]] int argc, [[maybe_unused]] char **argv
  scm_c_eval_string ("(activate-readline)");
  if (args->filename_str)
  {
- std::cout << "Loading script from " << *args->filename_str << "...";
- std::ifstream fs (*args->filename_str, std::ifstream::in);
- if (!fs.is_open())
- {
- std::cout << "failed!" << std::endl;
- return;
- }
- std::cout << "success!" << std::endl;
- std::string str;
- std::ostringstream ss;
- ss << fs.rdbuf();
- fs.close();
- str = ss.str();
- std::cout << "Running script... " << std::endl;
- scm_c_eval_string (ss.str().c_str());
+ std::cout << "Running script from " << *args->filename_str << "...";
+ scm_c_primitive_load (args->filename_str->c_str());
  std::cout << "success!" << std::endl;
  }
- std::cout << "Starting CLI... " << std::endl;
- scm_c_eval_string ("(start-repl)");
+ else
+ {
+ std::cout << "Starting CLI... " << std::endl;
+ scm_c_eval_string ("(start-repl)");
+ }
 }
 
 static void load_file (std::string m_file_to_load,