import core.stdc.stdlib;

@nogc nothrow:

alias CoroToken     = long;

alias CoroHandle    = void*;

alias CoroFrame     = void*;

​

/* Coroutine Manipulation Intrinsics */ 

​

​

pragma(LDC_intrinsic, "llvm.coro.resume")

  void coro_resume(CoroHandle hdl);

​

pragma(LDC_intrinsic, "llvm.coro.destroy")

    void coro_destroy(CoroHandle hdl);

​

pragma(LDC_intrinsic, "llvm.coro.done")

    bool coro_done(CoroHandle hdl);

​

// The first argument is a handle to a coroutine if from is false. Otherwise, it is a pointer to a coroutine promise.

pragma(LDC_intrinsic, "llvm.coro.promise")

    void* coro_promise(CoroHandle hdl_or_promise, int alignment, bool from); 

​

/* Coroutine Structure Intrinsics */ 

​

pragma(LDC_intrinsic, "llvm.coro.id")

    CoroToken coro_id(int alignment, void* promise, void* coroaddr, void* fnaddrs);

​

pragma(LDC_intrinsic, "llvm.coro.free")

    void coro_free(CoroToken id, CoroHandle hdl);

​

pragma(LDC_intrinsic, "llvm.coro.end")

    bool coro_end(CoroHandle hdl, bool);

​

pragma(LDC_intrinsic, "llvm.coro.size.i32")

    int coro_size_32();

​

pragma(LDC_intrinsic, "llvm.coro.size.i64")

    long coro_size_64();

​

pragma(LDC_intrinsic, "llvm.coro.begin")

  CoroFrame coro_begin(CoroToken id, void* mem);

​

pragma(LDC_intrinsic, "llvm.coro.suspend")

  bool coro_suspend(CoroToken id, bool is_final);

​

pragma(LDC_intrinsic, "llvm.coro.frame")

  CoroFrame coro_frame();

​

pragma(LDC_intrinsic, "llvm.coro.alloc")

  bool coro_alloc(CoroToken id);

​

pragma(LDC_intrinsic, "llvm.coro.noop")

  CoroFrame coro_noop();

​

extern(C) int main(int argc, char** argv){

    auto h = coro_new();

    //printf("h=%p\n", h);

    return 0;

}

​

CoroHandle coro_new(){

    auto id = coro_id(0, null, null, null);

    const size = coro_size_32();

    auto alloc = malloc(size);

    auto hdl = coro_begin(id, alloc);

    return hdl;

}