123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459 |
- #include "sti/sti.h"
- #include <stdio.h>
- #include <errno.h>
- #include <sys/stat.h>
- #include <unistd.h>
- #include <fcntl.h>
- #define MAX(a,b) ((a) > (b) ? (a) : (b))
- #define MIN(a,b) ((a) < (b) ? (a) : (b))
- #define h(...) dprintf(ofh, __VA_ARGS__);
- #define d(...) dprintf(ofd, __VA_ARGS__);
- #define OPTION_TYPE_LIST \
- X(invalid, NULL, 0) \
- X(float, float, sizeof(float) ) \
- X(vec2, vec2, (sizeof(float)*2) ) \
- X(Color4, Color4, sizeof(char*) ) \
- X(string, char*, sizeof(char*) ) \
- X(bool, bool, sizeof(char) ) \
- X(int, int, sizeof(int) ) \
-
-
- enum {
- #define X(a, ...) OT_##a,
- OPTION_TYPE_LIST
- #undef X
- OT_MAX_VALUE,
- };
- const char* OT_name_list[] = {
- #define X(a, b, ...) [OT_##a] = #a,
- OPTION_TYPE_LIST
- #undef X
- };
- const char* OT_type_list[] = {
- #define X(a, b, ...) [OT_##a] = #b,
- OPTION_TYPE_LIST
- #undef X
- };
- const int OT_size_list[] = {
- #define X(a, b, c, ...) [OT_##a] = c,
- OPTION_TYPE_LIST
- #undef X
- };
- typedef struct Option {
- int type;
- char* name;
-
- char rescale;
-
- int value_cnt;
- void* values;
- } Option;
- typedef struct {
- char* name;
- int max_values;
- VEC(Option*) members;
- } OptsStruct;
- static int extract_type(sexp* x) {
-
- char* name = sexp_str(x, 0);
-
- for(int i = 0; i < OT_MAX_VALUE; i++) {
- if(!strcmp(OT_type_list[i], name)) {
- return i;
- }
- }
-
- return OT_invalid;
- }
- static char* extract_name(sexp* x) {
- return sexp_str(x, 1);
- }
- static void copy_invalid(sexp* x, void* dst) {}
- static void copy_float(sexp* x, void* dst) {
- float* f = (float*)dst;
- f[0] = sexp_float(x, 0);
- }
- static void copy_vec2(sexp* x, void* dst) {
- float* f = (float*)dst;
- f[0] = sexp_float(x, 0);
- f[1] = sexp_float(x, 1);
- }
- static void copy_Color4(sexp* x, void* dst) {
- *(char**)dst = x->str;
-
- }
- static void copy_string(sexp* x, void* dst) {
- *(char**)dst = x->str;
- }
- static void copy_bool(sexp* x, void* dst) {
- *(char*)dst = !!sexp_uint(x, 0);
- }
- static void copy_int(sexp* x, void* dst) {
- *(int*)dst = sexp_int(x, 0);
- }
- static void si_invalid(void* src, int ofd) {
- d("lol, fix your shit\n");
- }
- static void si_float(void* src, int ofd) {
- float* f = (float*)src;
- d("%f", *f)
- }
- static void si_vec2(void* src, int ofd) {
- float* f = (float*)src;
- d("((vec2){%f, %f})", f[0], f[1])
- }
- static void si_Color4(void* src, int ofd) {
- d("C4H(%s)", *(char**)src)
- }
- static void si_string(void* src, int ofd) {
- d("strdup(\"%s\")", *(char**)src)
- }
- static void si_bool(void* src, int ofd) {
- char* b = (char*)src;
- d("%d", !!*b)
- }
- static void si_int(void* src, int ofd) {
- int* b = (int*)src;
- d("%d", *b)
- }
- static void copyfn_invalid(char* srcptr, char* srcprop, int ofd) {
- d("lol, fix your shit\n");
- }
- static void copyfn_float(char* srcptr, char* srcprop, int ofd) {
- d("%s->%s", srcptr, srcprop);
- }
- static void copyfn_vec2(char* srcptr, char* srcprop, int ofd) {
- d("%s->%s", srcptr, srcprop);
- }
- static void copyfn_Color4(char* srcptr, char* srcprop, int ofd) {
- d("%s->%s", srcptr, srcprop);
- }
- static void copyfn_string(char* srcptr, char* srcprop, int ofd) {
- d("strdup(%s->%s)", srcptr, srcprop);
- }
- static void copyfn_bool(char* srcptr, char* srcprop, int ofd) {
- d("%s->%s", srcptr, srcprop);
- }
- static void copyfn_int(char* srcptr, char* srcprop, int ofd) {
- d("%s->%s", srcptr, srcprop);
- }
- static void freefn_invalid(char* ptr, char* prop, int ofd) {
- d("lol, fix your shit\n");
- }
- static void freefn_float(char* ptr, char* prop, int ofd) {}
- static void freefn_vec2(char* ptr, char* prop, int ofd) {}
- static void freefn_Color4(char* ptr, char* prop, int ofd) {}
- static void freefn_bool(char* ptr, char* prop, int ofd) {}
- static void freefn_int(char* ptr, char* prop, int ofd) {}
- static void freefn_string(char* ptr, char* prop, int ofd) {
- d("\tfree(%s->%s);\n", ptr, prop);
- }
- static void rescalefn_invalid(char* raw, char* prop, char* scale, char* out, int ofd) {
- d("lol, fix your shit\n");
- }
- static void rescalefn_float(char* raw, char* prop, char* scale, char* out, int ofd) {
- d("\t%s->%s = %s->%s * %s;\n", out, prop, raw, prop, scale);
- }
- static void rescalefn_vec2(char* raw, char* prop, char* scale, char* out, int ofd) {
- d("\t%s->%s.x = %s->%s.x * %s;\n", out, prop, raw, prop, scale);
- d("\t%s->%s.y = %s->%s.y * %s;\n", out, prop, raw, prop, scale);
- }
- static void rescalefn_Color4(char* raw, char* prop, char* scale, char* out, int ofd) {}
- static void rescalefn_bool(char* raw, char* prop, char* scale, char* out, int ofd) {}
- static void rescalefn_int(char* raw, char* prop, char* scale, char* out, int ofd) {}
- static void rescalefn_string(char* raw, char* prop, char* scale, char* out, int ofd) {}
- OptsStruct* parse_optstruct(sexp* xos) {
- OptsStruct* os = calloc(1, sizeof(*os));
-
- os->name = VEC_ITEM(&xos->args, 0)->str;
-
- os->max_values = 0;
-
- for(int oi = 1; oi < VEC_LEN(&xos->args); oi++) {
- sexp* xo = VEC_ITEM(&xos->args, oi);
-
- Option* o = calloc(1, sizeof(*o));
- VEC_PUSH(&os->members, o);
-
- o->type = extract_type(xo);
- o->name = extract_name(xo);
- o->rescale = xo->brace == '<';
-
- o->value_cnt = VEC_LEN(&xo->args) - 2;
- os->max_values = MAX(os->max_values, o->value_cnt);
-
- o->values = calloc(1, OT_size_list[o->type] * o->value_cnt);
- for(int a = 0; a < o->value_cnt; a++) {
- sexp* xa = VEC_ITEM(&xo->args, a + 2);
-
- switch(o->type) {
- #define X(n, t, sz, ...) case OT_##n: copy_##n(xa, o->values + a * sz); break;
- OPTION_TYPE_LIST
- #undef X
- }
- }
-
- }
-
- return os;
- }
- int main(int argc, char* argv[]) {
-
- if(argc < 4) {
- fprintf(stderr, "Usage: %s <cfg.sex> <output_header.h> <output_source.c>\n", argv[0]);
- return 2;
- }
-
- sexp* root = sexp_parse_file(argv[1]);
-
-
- VEC(OptsStruct*) structs;
- VEC_INIT(&structs);
-
- VEC_EACH(&root->args, i, a) {
- VEC_PUSH(&structs, parse_optstruct(a));
- }
-
-
- unlink(argv[3]);
- unlink(argv[2]);
-
- int ofd = open(argv[3], O_WRONLY | O_CREAT | O_EXCL, 0644);
- if(ofd == -1) {
- fprintf(stderr, "Could not create file '%s': %s\n", argv[3], strerror(errno));
- return 1;
- }
-
- int ofh = open(argv[2], O_WRONLY | O_CREAT | O_EXCL, 0644);
- if(ofh == -1) {
- fprintf(stderr, "Could not create file '%s': %s\n", argv[2], strerror(errno));
- return 1;
- }
-
- h("#ifndef __gputk__opts_structs_h__\n#define __gputk__opts_structs_h__\n")
- h("\n\n")
- h("/***********************************************\n")
- h("/ THIS FILE IS AUTOGENERATED. DO NOT EDIT. /\n")
- h("/ see '%s' for details\n", argv[1]);
- h("***********************************************/\n")
- h("\n\n")
-
-
- h("#define GUI_CONTROL_OPTS_STRUCT_LIST \\\n");
- VEC_EACH(&structs, i, st) {
- h("\tX(GUI%sOpts, %s) \\\n", st->name, st->name)
- }
- h("\n\n");
-
-
- VEC_EACH(&structs, i, st) {
- h("typedef struct GUI%sOpts {\n", st->name);
-
- VEC_EACH(&st->members, mi, m) {
- h("\t%s %s;\n", OT_type_list[m->type], m->name);
- }
-
- h("} GUI%sOpts;\n\n", st->name);
- }
-
- h("\n\n")
- VEC_EACH(&structs, i, st) {
- h("int GUI%sOpts_LoadDefaults(GUI%sOpts* o, int version);\n", st->name, st->name);
- h("int GUI%sOpts_LoadScaledDefaults(GUI%sOpts* o, int maxVersion, float scale);\n", st->name, st->name);
- h("void GUI%sOpts_Copy(GUI%sOpts* dst, GUI%sOpts* src);\n", st->name, st->name, st->name);
- h("void GUI%sOpts_Free(GUI%sOpts* o);\n", st->name, st->name);
- h("void GUI%sOpts_UIRescale(GUI%sOpts* raw, float scale, GUI%sOpts* out);\n", st->name, st->name, st->name);
- h("\n")
- }
-
-
- d("\n\n")
- d("/***********************************************\n")
- d("/ THIS FILE IS AUTOGENERATED. DO NOT EDIT. /\n")
- d("/ see '%s' for details\n", argv[1]);
- d("***********************************************/\n")
- d("\n\n")
- d("#include <stdlib.h>\n")
- d("\n\n")
- d("#include \"opts_structs.h\"\n")
- d("\n\n")
-
-
- VEC_EACH(&structs, i, st) {
- d("int GUI%sOpts_LoadDefaults(GUI%sOpts* o, int version) {\n", st->name, st->name);
- d("\n\tif(version < 0) return %d;\n\n", st->max_values);
- d("\tversion = version > %d ? %d : version;\n", st->max_values - 1, st->max_values - 1);
- d("\tswitch(version) {\n")
-
- for(int v = 0; v < st->max_values; v++) {
- d("\t\tcase %d:\n", v);
-
- VEC_EACH(&st->members, mi, m) {
- d("\t\t\to->%s = ", m->name);
-
- int mv = MIN(v, m->value_cnt - 1);
-
- switch(m->type) {
- #define X(n, t, sz, ...) case OT_##n: si_##n(m->values + sz * mv, ofd); break;
- OPTION_TYPE_LIST
- #undef X
- }
-
- d(";\n")
- }
-
- d("\t\t\tbreak;\n")
- }
-
- d("\t};\n");
- d("\treturn 0;\n};\n");
- }
-
- VEC_EACH(&structs, i, st) {
- d("int GUI%sOpts_LoadScaledDefaults(GUI%sOpts o[], int maxVersion, float scale) {\n", st->name, st->name);
- d("\tfor(int v = 0; v < maxVersion; v++) {\n")
- d("\t\tGUI%sOpts tmp;\n", st->name);
- d("\t\tGUI%sOpts_LoadDefaults(&tmp, v);\n", st->name);
- d("\t\tGUI%sOpts_UIRescale(&tmp, scale, &o[v]);\n", st->name);
- d("\t};\n");
- d("\treturn 0;\n};\n");
- }
-
- VEC_EACH(&structs, i, st) {
- d("void GUI%sOpts_Copy(GUI%sOpts* dst, GUI%sOpts* src) {\n", st->name, st->name, st->name);
-
-
- VEC_EACH(&st->members, mi, m) {
- d("\tdst->%s = ", m->name);
-
- switch(m->type) {
- #define X(n, t, sz, ...) case OT_##n: copyfn_##n("src", m->name, ofd); break;
- OPTION_TYPE_LIST
- #undef X
- }
-
- d(";\n")
- }
-
- d("};\n");
- }
-
- VEC_EACH(&structs, i, st) {
- d("void GUI%sOpts_Free(GUI%sOpts* o) {\n", st->name, st->name);
-
- VEC_EACH(&st->members, mi, m) {
- switch(m->type) {
- #define X(n, t, sz, ...) case OT_##n: freefn_##n("o", m->name, ofd); break;
- OPTION_TYPE_LIST
- #undef X
- }
- }
-
- d("};\n");
- }
-
- VEC_EACH(&structs, i, st) {
- d("void GUI%sOpts_UIRescale(GUI%sOpts* raw, float scale, GUI%sOpts* out) {\n", st->name, st->name, st->name);
-
- VEC_EACH(&st->members, mi, m) {
- if(!m->rescale) continue;
-
- switch(m->type) {
- #define X(n, t, sz, ...) case OT_##n: rescalefn_##n("raw", m->name, "scale", "out", ofd); break;
- OPTION_TYPE_LIST
- #undef X
- }
- }
-
- d("};\n");
- }
-
-
-
- h("\n\n\n")
- h("#endif // __gputk__opts_structs_h__")
-
-
- return 0;
- }
|