/* Scalar timing projection, not scheduler or renderer qualification. */
#include "source_gpu_command_projection.h"
#include <assert.h>
#include <stdio.h>
#include <stdlib.h>

static void setup(SourceGPUCommandProjection *s) {
    source_gpu_command_cold(s);
    assert(source_gpu_command_write(s,0xe3000000));
    assert(source_gpu_command_write(s,0xe407ffff));
    assert(source_gpu_command_update(s,128));
}
static void quad(SourceGPUCommandProjection *s,unsigned n) {
    assert(source_gpu_command_write(s,0x280000ff));
    assert(source_gpu_command_write(s,0));
    assert(source_gpu_command_write(s,n));
    assert(source_gpu_command_write(s,n<<16));
    assert(source_gpu_command_write(s,n|(n<<16)));
}
static void report(const SourceGPUCommandProjection *s,const char *label) {
    printf("%s %d %u %u %d %llu %u %u\n",label,s->budget,s->phase,
        s->count,source_gpu_command_ready(s),(unsigned long long)s->last_update,
        s->command,s->count?s->queue[0]:0);
}
int main(int argc,char **argv) {
    SourceGPUCommandProjection s;
    if(argc==3) {
        unsigned n=(unsigned)atoi(argv[1]),chain=(unsigned)atoi(argv[2]);
        setup(&s); report(&s,"before_start");
        assert(source_gpu_command_update(&s,146)); quad(&s,n);
        if(chain && source_gpu_command_ready(&s))
            for(unsigned i=0;i<6;++i) assert(source_gpu_command_write(&s,0));
        report(&s,"after_start"); report(&s,"immediate_state");
        assert(source_gpu_command_update(&s,256));
        assert(source_gpu_command_update(&s,384));
        if(chain && n==32) {
            assert(source_gpu_command_ready(&s));
            for(unsigned i=0;i<6;++i) assert(source_gpu_command_write(&s,0));
        }
        report(&s,"before_release");
        for(unsigned cycle=512;cycle<=768;cycle+=128) assert(source_gpu_command_update(&s,cycle));
        report(&s,"final_state");
        /* Empty queue: final explicit service reproduces the retained scalar
         * state, without claiming the intervening raster deadline sequence. */
        assert(source_gpu_command_update(&s,13056)); report(&s,"settled_state");
        assert(s.first_triangles==1 && s.second_triangles==1); return 0;
    }
    setup(&s); assert(source_gpu_command_update(&s,146)); quad(&s,32);
    assert(s.budget==-356 && s.phase==2 && s.count==1);
    assert(source_gpu_command_update(&s,146)); /* Same-time call cannot drain. */
    assert(s.second_triangles==0);
    assert(source_gpu_command_update(&s,323)); assert(s.budget==-2 && s.phase==2);
    assert(source_gpu_command_update(&s,324)); /* Exact zero-credit boundary. */
    assert(s.budget==-542 && s.phase==0 && source_gpu_command_ready(&s)==1);
    assert(source_gpu_command_write(&s,0)); assert(s.budget==-542);
    quad(&s,1); /* Negative budget queues a complete next quad. */
    assert(s.count==5 && s.phase==0 && source_gpu_command_ready(&s)==0);
    assert(source_gpu_command_update(&s,595));
    assert(s.first_triangles==2 && s.second_triangles==1 && s.count==1 && s.budget==-85);
    assert(source_gpu_command_update(&s,595)); assert(s.second_triangles==1);
    assert(source_gpu_command_update(&s,638)); assert(s.second_triangles==2 && s.budget==-45);
    assert(!source_gpu_command_update(&s,637)); assert(s.error==SOURCE_GPU_COMMAND_REVERSE_TIME);
    setup(&s); assert(!source_gpu_command_write(&s,0x48000000));
    assert(s.error==SOURCE_GPU_COMMAND_UNSUPPORTED);
    setup(&s); assert(source_gpu_command_update(&s,146)); quad(&s,32);
    for(unsigned i=1;i<16;++i) assert(source_gpu_command_write(&s,0));
    assert(!source_gpu_command_write(&s,0)); assert(s.error==SOURCE_GPU_COMMAND_OVERFLOW);
    setup(&s); assert(source_gpu_command_write(&s,0x28000000));
    assert(source_gpu_command_write(&s,0)); assert(source_gpu_command_write(&s,0x10001));
    assert(source_gpu_command_write(&s,0x10000)); /* General flat first triangle. */
    setup(&s); assert(source_gpu_command_write(&s,0x28000000));
    assert(source_gpu_command_write(&s,0)); assert(source_gpu_command_write(&s,1));
    assert(source_gpu_command_write(&s,0x10000));
    assert(source_gpu_command_write(&s,0x10002)); /* Independent fourth vertex. */
    setup(&s); assert(source_gpu_command_write(&s,0xe4000000));
    assert(source_gpu_command_write(&s,0x28000000));
    assert(source_gpu_command_write(&s,0)); assert(source_gpu_command_write(&s,1));
    assert(source_gpu_command_write(&s,0x10000)); /* Inclusive clip admits one pixel. */
    assert(source_gpu_command_write(&s,0x10001)); assert(s.budget==125);
    setup(&s); assert(source_gpu_command_write(&s,0xe4080000)); /* Clip Y512 is not admitted. */
    assert(source_gpu_command_write(&s,0x28000000));
    assert(source_gpu_command_write(&s,0)); assert(source_gpu_command_write(&s,1));
    assert(!source_gpu_command_write(&s,0x10000));
    setup(&s); assert(source_gpu_command_write(&s,0xe5000001)); /* Offset X1. */
    assert(source_gpu_command_write(&s,0x28000000));
    assert(source_gpu_command_write(&s,0x000003ff)); /* Offset makes X1024: qualified source clipping. */
    assert(source_gpu_command_write(&s,0x000003fe));
    assert(source_gpu_command_write(&s,0x000103ff));
    assert(s.phase==2 && s.budget==171); /* One clipped pixel at X1023. */
    const uint32_t ordinary[]={0x01000000,0xe1000200,0xe2007fff,0xe6000001};
    for(unsigned c=0;c<sizeof(ordinary)/sizeof(ordinary[0]);++c) {
        setup(&s);s.budget=-100;
        assert(source_gpu_command_write(&s,ordinary[c]));assert(source_gpu_command_ready(&s)==1);
        assert(source_gpu_command_write(&s,ordinary[c]));assert(source_gpu_command_ready(&s)==0);
        assert(s.draw_mode==0 && s.texture_window==0 && s.mask_bits==0);
        for(unsigned i=2;i<18;i++)assert(source_gpu_command_write(&s,ordinary[c]));
        assert(s.count==18 && s.budget==-100);
        assert(!source_gpu_command_write(&s,ordinary[c]));assert(s.error==SOURCE_GPU_COMMAND_OVERFLOW);
        setup(&s);s.budget=-2;
        assert(source_gpu_command_write(&s,ordinary[c]));
        assert(s.count==1 && s.budget==-2);
        assert(source_gpu_command_update(&s,129)); /* Exactly zero admits one word. */
        assert(s.count==0 && s.budget==-2);
        if(c==1)assert(s.draw_mode==0x200);
        if(c==2)assert(s.texture_window==0x7fff);
        if(c==3)assert(s.mask_bits==1);
        assert(source_gpu_command_write(&s,ordinary[c]));
        assert(s.count==1);
        assert(source_gpu_command_gp1(&s,0x01000000));
        assert(s.count==0 && s.budget==0 && s.last_update==129);
    }
    const uint32_t immediate[]={0,0xe3000000,0xe407ffff,0xe5000000};
    for(unsigned c=0;c<sizeof(immediate)/sizeof(immediate[0]);++c) {
        setup(&s);s.budget=-2;
        assert(source_gpu_command_write(&s,immediate[c]));
        assert(s.count==0 && s.budget==-2);
    }
    /* Rendering consumers get one original packet phase, including the
     * prefix before the last vertex arrives. Reset cannot publish a suffix. */
    setup(&s);
    const uint32_t packet[]={0x280000ff,0,32,32u<<16,32u|(32u<<16)};
    for(unsigned i=0;i<4;i++)assert(source_gpu_command_write(&s,packet[i]));
    assert(s.dispatch.kind==SOURCE_GPU_DISPATCH_QUAD_FIRST && s.dispatch.count==4);
    assert(memcmp(s.dispatch.words,packet,4*sizeof(uint32_t))==0);
    assert(source_gpu_command_write(&s,packet[4]));
    assert(s.dispatch.kind==SOURCE_GPU_DISPATCH_NONE);
    assert(source_gpu_command_gp1(&s,0x01000000));
    assert(source_gpu_command_update(&s,1024));
    assert(!s.dispatch.kind && s.first_triangles==1 && s.second_triangles==0);
    setup(&s);
    const uint32_t empty[]={0x280000ff,0,0,0,0};
    for(unsigned i=0;i<4;i++)assert(source_gpu_command_write(&s,empty[i]));
    assert(s.dispatch.kind==SOURCE_GPU_DISPATCH_QUAD_FIRST);
    assert(source_gpu_command_write(&s,empty[4]));
    assert(s.dispatch.kind==SOURCE_GPU_DISPATCH_QUAD_SECOND && s.dispatch.count==5);
    assert(memcmp(s.dispatch.words,empty,sizeof(empty))==0);
    assert(source_gpu_command_update(&s,128));
    assert(!s.dispatch.kind && s.first_triangles==1 && s.second_triangles==1);
    puts("PASS exact-zero/negative credit, split dispatch, reset cancellation, queue and scoped rejection");
    return 0;
}