VRac/M6502/perl.c

#include <EXTERN.h>
#include <perl.h>
#include "M6502.h"
#include "config.h"

static PerlInterpreter *my_perl;

static M6502 *R;

void Reset6502(M6502 *R) {
        R->PC.W = atoi( SvPV_nolen( get_sv("M6502::PC", TRUE) ) );
        printf("PC: %04x\n", R->PC.W);
}

int main(int argc, char **argv) {
        char *command_line[] = {"", "-e",
                "use M6502; print \"Loaded M6502 module\n\";"};
        my_perl = perl_alloc();
        perl_construct(my_perl);
        if (perl_parse(my_perl, NULL, 3, command_line, (char **)NULL)) {
                printf("Failed to parse\n");
                return 0;
        }
        perl_run(my_perl);
        if (SvTRUE(ERRSV)) {
                printf("Failed to execute\n");
                return 0;
        } else {
                R = malloc(sizeof(M6502));
                if (!R) {
                        printf("can't alloc %d bytes for M6502", sizeof(M6502));
                        exit(1);
                }
                printf("reset CPU\n");
                Reset6502(R);

        }
        free(R);
        perl_destruct(my_perl);
        perl_free(my_perl);
        return 0;
}
1	#include <EXTERN.h>
2	#include <perl.h>
3	#include "M6502.h"
4	#include "config.h"
5
6	static PerlInterpreter *my_perl;
7
8	static M6502 *R;
9
10	void Reset6502(M6502 *R) {
11	R->PC.W = atoi( SvPV_nolen( get_sv("M6502::PC", TRUE) ) );
12	printf("PC: %04x\n", R->PC.W);
13	}
14
15	int main(int argc, char **argv) {
16	char *command_line[] = {"", "-e",
17	"use M6502; print \"Loaded M6502 module\n\";"};
18	my_perl = perl_alloc();
19	perl_construct(my_perl);
20	if (perl_parse(my_perl, NULL, 3, command_line, (char **)NULL)) {
21	printf("Failed to parse\n");
22	return 0;
23	}
24	perl_run(my_perl);
25	if (SvTRUE(ERRSV)) {
26	printf("Failed to execute\n");
27	return 0;
28	} else {
29	R = malloc(sizeof(M6502));
30	if (!R) {
31	printf("can't alloc %d bytes for M6502", sizeof(M6502));
32	exit(1);
33	}
34	printf("reset CPU\n");
35	Reset6502(R);
36
37	}
38	free(R);
39	perl_destruct(my_perl);
40	perl_free(my_perl);
41	return 0;
42	}