68 lines
1.9 KiB
Plaintext
68 lines
1.9 KiB
Plaintext
|
SUCCEED_RETURN(errctx);
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Set in HANDLE_DEFAULT and read after FINISH. Returning from inside a HANDLE
|
||
|
|
* block leaves before RELEASE_ERROR and leaks the context's pool slot; AGENTS.md
|
||
|
|
* spells that out, and a documentation example is a bad place to teach it wrong.
|
||
|
|
*/
|
||
|
|
static int docs_failed = 0;
|
||
|
|
|
||
|
|
int main(void)
|
||
|
|
{
|
||
|
|
PREPARE_ERROR(errctx);
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Set here as well as in the environment, so the program answers the same
|
||
|
|
* whether the harness ran it or a reader did.
|
||
|
|
*/
|
||
|
|
SDL_SetHint(SDL_HINT_VIDEO_DRIVER, "dummy");
|
||
|
|
SDL_SetHint(SDL_HINT_RENDER_DRIVER, "software");
|
||
|
|
SDL_SetHint(SDL_HINT_AUDIO_DRIVER, "dummy");
|
||
|
|
|
||
|
|
ATTEMPT {
|
||
|
|
CATCH(errctx, akgl_error_init());
|
||
|
|
akgl_renderer = &akgl_default_renderer;
|
||
|
|
|
||
|
|
FAIL_ZERO_BREAK(errctx, SDL_Init(SDL_INIT_VIDEO), AKGL_ERR_SDL,
|
||
|
|
"Couldn't initialize SDL: %s", SDL_GetError());
|
||
|
|
FAIL_ZERO_BREAK(
|
||
|
|
errctx,
|
||
|
|
SDL_CreateWindowAndRenderer(
|
||
|
|
"net/aklabs/libakgl/docs", 320, 240, 0,
|
||
|
|
&akgl_window, &akgl_renderer->sdl_renderer),
|
||
|
|
AKGL_ERR_SDL,
|
||
|
|
"Couldn't create window/renderer: %s", SDL_GetError());
|
||
|
|
|
||
|
|
CATCH(errctx, akgl_render_2d_bind(akgl_renderer));
|
||
|
|
CATCH(errctx, akgl_heap_init());
|
||
|
|
CATCH(errctx, akgl_registry_init());
|
||
|
|
|
||
|
|
akgl_camera = &akgl_default_camera;
|
||
|
|
akgl_camera->x = 0.0f;
|
||
|
|
akgl_camera->y = 0.0f;
|
||
|
|
akgl_camera->w = 320.0f;
|
||
|
|
akgl_camera->h = 240.0f;
|
||
|
|
|
||
|
|
CATCH(errctx, docs_example());
|
||
|
|
} CLEANUP {
|
||
|
|
if ( akgl_window != NULL ) {
|
||
|
|
SDL_DestroyWindow(akgl_window);
|
||
|
|
akgl_window = NULL;
|
||
|
|
}
|
||
|
|
SDL_Quit();
|
||
|
|
} PROCESS(errctx) {
|
||
|
|
} HANDLE_DEFAULT(errctx) {
|
||
|
|
LOG_ERROR_WITH_MESSAGE(errctx, "the documented example failed");
|
||
|
|
docs_failed = 1;
|
||
|
|
/*
|
||
|
|
* FINISH_NORETURN rather than FINISH: FINISH expands a
|
||
|
|
* `return __err_context` that an int-returning function cannot compile,
|
||
|
|
* even where the branch is unreachable. src/main.c in akbasic and
|
||
|
|
* tools/docs_screenshot.c do the same and say so.
|
||
|
|
*/
|
||
|
|
} FINISH_NORETURN(errctx);
|
||
|
|
|
||
|
|
return docs_failed;
|
||
|
|
}
|