Tachikoma
dd10dc143a
Some checks failed
akbasic CI Build / cmake_build (push) Failing after 5m32s
akbasic CI Build / sanitizers (push) Failing after 15m58s
akbasic CI Build / coverage (push) Failing after 20m7s
akbasic CI Build / mutation_test (push) Failing after 4m29s
akbasic CI Build / akgl_build (push) Failing after 12m28s
Three more Haiku-class cold reads of the chapters, each against the amended text. What each surfaced is now shown rather than described: the akbasic_host_register_type()/akbasic_host_bind() boot calls, the declare_play() label listing, the akgl_UiMenu static and its handle_event signature, one control-handler pair, and main()'s ATTEMPT/HANDLE_DEFAULT/FINISH_NORETURN shape with the CATCH-inside- ATTEMPT rule stated. By the fourth read the generated player.c and enemies.c compiled untouched and every remaining guess was a tuning value the chapters deliberately leave open. Co-authored-by: andrew <andrew@aklabs.net> Co-Authored-By: Claude Fable 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01XiGgpHuXUm2mR4Wzndw3dc
85 lines
2.3 KiB
Plaintext
85 lines
2.3 KiB
Plaintext
/*
|
|
* Prelude for the interpreter-facing fragments in docs/20: the boot sequence,
|
|
* the ADDEM proof and the rebind-call-reset protocol, shown as runs of CATCH
|
|
* calls. The statics are the ones examples/galaga/script.c keeps; the locals
|
|
* are the superset every fragment draws from, void-cast in the postlude so an
|
|
* unused one is not a warning.
|
|
*/
|
|
#include <stdbool.h>
|
|
#include <stddef.h>
|
|
#include <stdint.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
|
|
#include <SDL3/SDL.h>
|
|
|
|
#include <akerror.h>
|
|
#include <akstdlib.h>
|
|
|
|
#include <akgl/actor.h>
|
|
|
|
#include <akbasic/environment.h>
|
|
#include <akbasic/error.h>
|
|
#include <akbasic/host.h>
|
|
#include <akbasic/runtime.h>
|
|
#include <akbasic/sink.h>
|
|
|
|
typedef struct galaga_docs_Enemy
|
|
{
|
|
int32_t kind;
|
|
int32_t state;
|
|
float homex;
|
|
float homey;
|
|
float t;
|
|
int32_t hp;
|
|
int32_t fire;
|
|
float rnd;
|
|
} galaga_docs_Enemy;
|
|
|
|
typedef struct galaga_docs_Shared
|
|
{
|
|
float playerx;
|
|
float playery;
|
|
int32_t wave;
|
|
float rnd;
|
|
} galaga_docs_Shared;
|
|
|
|
static akbasic_Runtime SCRIPT;
|
|
static akbasic_TextSink SINK;
|
|
static akbasic_StdioSink SINKSTATE;
|
|
static char SOURCE[16384];
|
|
|
|
static galaga_docs_Enemy SCRATCH_ENEMY;
|
|
static akgl_Actor SCRATCH_ACTOR;
|
|
static galaga_docs_Shared galaga_shared;
|
|
|
|
static const akbasic_HostField ENEMY_FIELDS[] = {
|
|
AKBASIC_HOST_FIELD( galaga_docs_Enemy, kind, "KIND#", AKBASIC_HOSTFIELD_INT32 )
|
|
};
|
|
static const akbasic_HostType ENEMY_TYPE = {
|
|
"ENEMY", sizeof(galaga_docs_Enemy), ENEMY_FIELDS, 1
|
|
};
|
|
static const akbasic_HostField ACTOR_FIELDS[] = {
|
|
AKBASIC_HOST_FIELD( akgl_Actor, x, "X%", AKBASIC_HOSTFIELD_FLOAT )
|
|
};
|
|
static const akbasic_HostType ACTOR_TYPE = {
|
|
"ACTOR", sizeof(akgl_Actor), ACTOR_FIELDS, 1
|
|
};
|
|
static const akbasic_HostField GAME_FIELDS[] = {
|
|
AKBASIC_HOST_FIELD( galaga_docs_Shared, wave, "WAVE#", AKBASIC_HOSTFIELD_INT32 )
|
|
};
|
|
static const akbasic_HostType GAME_TYPE = {
|
|
"GAME", sizeof(galaga_docs_Shared), GAME_FIELDS, 1
|
|
};
|
|
|
|
akerr_ErrorContext AKERR_NOIGNORE *galaga_docs_fragment(galaga_docs_Enemy *enemy, akgl_Actor *actor, float dt);
|
|
akerr_ErrorContext AKERR_NOIGNORE *galaga_docs_fragment(galaga_docs_Enemy *enemy, akgl_Actor *actor, float dt)
|
|
{
|
|
PREPARE_ERROR(errctx);
|
|
akbasic_Value args[2];
|
|
akbasic_Value *argp[2];
|
|
akbasic_Value dtval;
|
|
akbasic_Value *result = NULL;
|
|
|
|
ATTEMPT {
|