runtime.c

Go to the documentation of this file.

/* -*- C -*-
 * Serene programming language
 * Copyright (C) 2019-2026 Sameer Rahmani <[email protected]>
 *
 * This library is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Lesser General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public License
 * along with this library.  If not, see <https://www.gnu.org/licenses/>.
 */
 
#include "serene/runtime.h"
 
typedef struct srn_main_args_t {
  srn_main_t main_f;
  int out;
  int argc;
  char **argv;
} srn_main_args_t;
 
static srn_fiber_result_t main_fiber_wrapper(srn_context_t *ctx, void *args) {
 
  srn_main_args_t *main_args = args;
  main_args->out             = main_args->main_f(ctx, main_args->argc, main_args->argv);
  return nullptr;
}
 
int srn_run_fiber_main(srn_main_t m, int argc, char *argv[]) {
  SERENE_RUNTIME_INIT_WITH_SCHED(engine, sched, nullptr);
  srn_context_t *ctx = srn_context_make(engine);
 
  srn_main_args_t args = {
    .main_f = m,
    .out    = 0,
    .argc   = argc,
    .argv   = argv,
 
  };
 
  SRN_TRACEPOINT(serene_main_start);
  (void)srn_fiber_spawn(ctx, main_fiber_wrapper, &args);
  srn_sched_run(sched, 0);
  SRN_TRACEPOINT(serene_main_end);
 
  srn_context_release(ctx);
  SERENE_RUNTIME_SHUTDOWN(engine);
  return args.out;
}