syncing 2.3.0

src/inprec.c

+
+static uae_u8 *inprec_buffer, *inprec_p;
+static struct zfile *inprec_zf;
+static int inprec_size;
+int input_recording = 0;
+static uae_u8 *inprec_plast, *inprec_plastptr;
+static int inprec_div;
+
+static uae_u32 oldbuttons[4];
+static uae_u16 oldjoy[2];
+
+int inprec_open(char *fname, int record)
+{
+    uae_u32 t = (uae_u32)time(0);
+    int i;
+
+    inprec_close();
+    inprec_zf = zfile_fopen(fname, record > 0 ? "wb" : "rb");
+    if (inprec_zf == NULL)
+	return 0;
+    inprec_size = 10000;
+    inprec_div = 1;
+    if (record < 0) {
+	uae_u32 id;
+	zfile_fseek (inprec_zf, 0, SEEK_END);
+	inprec_size = zfile_ftell (inprec_zf);
+	zfile_fseek (inprec_zf, 0, SEEK_SET);
+	inprec_buffer = inprec_p = (uae_u8*)xmalloc (inprec_size);
+	zfile_fread (inprec_buffer, inprec_size, 1, inprec_zf);
+	inprec_plastptr = inprec_buffer;
+	id = inprec_pu32();
+	if (id != 'UAE\0') {
+	    inprec_close();
+	    return 0;
+	}
+	inprec_pu32();
+	t = inprec_pu32();
+	i = inprec_pu32();
+	while (i-- > 0)
+	    inprec_pu8();
+	inprec_p = inprec_plastptr;
+	oldbuttons[0] = oldbuttons[1] = oldbuttons[2] = oldbuttons[3] = 0;
+	oldjoy[0] = oldjoy[1] = 0;
+	if (record < -1)
+	    inprec_div = maxvpos;
+    } else if (record > 0) {
+	inprec_buffer = inprec_p = (uae_u8*)xmalloc (inprec_size);
+	inprec_ru32('UAE\0');
+	inprec_ru8(1);
+	inprec_ru8(UAEMAJOR);
+	inprec_ru8(UAEMINOR);
+	inprec_ru8(UAESUBREV);
+	inprec_ru32(t);
+	inprec_ru32(0); // extra header size
+    } else {
+	return 0;
+    }
+    input_recording = record;
+    srand(t);
+    CIA_inprec_prepare();
+    write_log ("inprec initialized '%s', mode=%d\n", fname, input_recording);
+    return 1;
+}
+
+void inprec_close(void)
+{
+    if (!inprec_zf)
+	return;
+    if (inprec_buffer && input_recording > 0) {
+	hsync_counter++;
+	inprec_rstart(INPREC_END);
+	inprec_rend();
+	hsync_counter--;
+	zfile_fwrite (inprec_buffer, inprec_p - inprec_buffer, 1, inprec_zf);
+	inprec_p = inprec_buffer;
+    }
+    zfile_fclose (inprec_zf);
+    inprec_zf = NULL;
+    xfree (inprec_buffer);
+    inprec_buffer = NULL;
+    input_recording = 0;
+    write_log ("inprec finished\n");
+}
+
+void inprec_ru8(uae_u8 v)
+{
+    *inprec_p++= v;
+}
+void inprec_ru16(uae_u16 v)
+{
+    inprec_ru8((uae_u8)(v >> 8));
+    inprec_ru8((uae_u8)v);
+}
+void inprec_ru32(uae_u32 v)
+{
+    inprec_ru16((uae_u16)(v >> 16));
+    inprec_ru16((uae_u16)v);
+}
+void inprec_rstr(const char *s)
+{
+    while(*s) {
+	inprec_ru8(*s);
+	s++;
+    }
+    inprec_ru8(0);
+}
+void inprec_rstart(uae_u8 type)
+{
+    write_log ("INPREC: %08X: %d\n", hsync_counter, type);
+    inprec_ru32(hsync_counter);
+    inprec_ru8(0);
+    inprec_plast = inprec_p;
+    inprec_ru8(0xff);
+    inprec_ru8(type);
+}
+void inprec_rend(void)
+{
+    *inprec_plast = inprec_p - (inprec_plast + 2);
+    if (inprec_p >= inprec_buffer + inprec_size - 256) {
+	zfile_fwrite (inprec_buffer, inprec_p - inprec_buffer, 1, inprec_zf);
+	inprec_p = inprec_buffer;
+    }
+}
+
+int inprec_pstart(uae_u8 type)
+{
+    uae_u8 *p = inprec_p;
+    uae_u32 hc = hsync_counter;
+    static uae_u8 *lastp;
+    uae_u32 hc_orig, hc2_orig;
+
+    if (savestate_state)
+	return 0;
+    if (p[5 + 1] == INPREC_END) {
+	inprec_close();
+	return 0;
+    }
+    hc_orig = hc;
+    hc /= inprec_div;
+    hc *= inprec_div;
+    for (;;) {
+	uae_u32 hc2 = (p[0] << 24) | (p[1] << 16) | (p[2] << 8) | p[3];
+	if (p > lastp) {
+	    write_log ("INPREC: Next %08x (%08x=%d): %d (%d)\n", hc2, hc, hc2 - hc, p[5 + 1], p[5]);
+	    lastp = p;
+	}
+	hc2_orig = hc2;
+	hc2 /= inprec_div;
+	hc2 *= inprec_div;
+	if (hc > hc2) {
+	    write_log ("INPREC: %08x > %08x: %d (%d) missed!\n", hc, hc2, p[5 + 1], p[5]);
+	    inprec_close();
+	    return 0;
+	}
+	if (hc2 != hc) {
+	    lastp = p;
+	    break;
+	}
+	if (p[5 + 1] == type) {
+	    write_log ("INPREC: %08x: %d (%d) (%+d)\n", hc, type, p[5], hc_orig - hc2_orig);
+	    inprec_plast = p;
+	    inprec_plastptr = p + 5 + 2;
+	    return 1;
+	}
+	p += 5 + 2 + p[5];
+    }
+    inprec_plast = NULL;
+    return 0;
+}
+void inprec_pend(void)
+{
+    uae_u8 *p = inprec_p;
+    uae_u32 hc = hsync_counter;
+
+    if (!inprec_plast)
+	return;
+    inprec_plast[5 + 1] = 0;
+    inprec_plast = NULL;
+    inprec_plastptr = NULL;
+    hc /= inprec_div;
+    hc *= inprec_div;
+    for (;;) {
+	uae_u32 hc2 = (p[0] << 24) | (p[1] << 16) | (p[2] << 8) | p[3];
+	hc2 /= inprec_div;
+	hc2 *= inprec_div;
+	if (hc2 != hc)
+	    break;
+	if (p[5 + 1] != 0)
+	    return;
+	p += 5 + 2 + p[5];
+    }
+    inprec_p = p;
+    if (p[5 + 1] == INPREC_END)
+	inprec_close();
+}
+
+uae_u8 inprec_pu8(void)
+{
+    return *inprec_plastptr++;
+}
+uae_u16 inprec_pu16(void)
+{
+    uae_u16 v = inprec_pu8() << 8;
+    v |= inprec_pu8();
+    return v;
+}
+uae_u32 inprec_pu32(void)
+{
+    uae_u32 v = inprec_pu16() << 16;
+    v |= inprec_pu16();
+    return v;
+}
+int inprec_pstr(char *s)
+{
+    int len = 0;
+    for(;;) {
+	uae_u8 v = inprec_pu8();
+	*s++ = v;
+	if (!v)
+	    break;
+	len++;
+    }
+    return len;
+}