01_hello.c

Go to the documentation of this file.

/* -*- C -*-
 * Serene programming language
 * Copyright (C) 2019-2026 Sameer Rahmani <[email protected]>
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program 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 General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <https://www.gnu.org/licenses/>.
 */
 
// Example 01 -- hello fiber.
//
// The smallest complete fiber program. It shows the bootstrap every other
// example repeats. One macro brings up the memory manager and the engine and
// binds the scheduler the engine already created, then the program makes a
// context, spawns one fiber, and runs the scheduler until the work drains.
//
// A fiber's entry has the shape `srn_fiber_result_t (srn_context_t *, void *)`.
// The return value is type erased and lands on the fiber's `result` field. A
// null result is legal, the natural value for a fiber run for its effects.
 
#include <stdio.h>
 
#include <serene/runtime.h>
 
static srn_fiber_result_t say_hello(srn_context_t *ctx, void *arg) {
  (void)ctx;
  (void)arg;
  printf("hello from a fiber\n");
  return nullptr;
}
 
int main(void) {
  // The memory manager and the engine come up in one step; the engine
  // creates one scheduler at startup and `sched` is bound to it.
  SERENE_RUNTIME_INIT_WITH_SCHED(engine, sched, nullptr);
  srn_context_t *ctx = srn_context_make(engine);
 
  // Create the fiber. It is registered and made ready, but nothing runs until
  // the scheduler does.
  srn_fiber_t *fiber = srn_fiber_spawn(ctx, say_hello, nullptr);
 
  // Drive the scheduler on this one thread. It returns once the fiber has run
  // and the ready queue is empty.
  srn_sched_run(sched, 1);
 
  printf("fiber finished in state %d\n", (int)fiber->state);
 
  srn_context_release(ctx);
  SERENE_RUNTIME_SHUTDOWN(engine);
  return 0;
}