4coder/meta/4ed_metagen.cpp

519 lines
13 KiB
C++
Raw Normal View History

2016-02-25 23:52:11 +00:00
/*
2016-08-30 19:30:41 +00:00
* Mr. 4th Dimention - Allen Webster
*
* 25.02.2016
*
* File editing view for 4coder
*
*/
2016-02-25 23:52:11 +00:00
// TOP
#define KEYCODES_FILE "4coder_API/keycodes.h"
#define STYLE_FILE "4coder_API/style.h"
2016-02-25 23:52:11 +00:00
#define API_H "4coder_API/app_functions.h"
#define OS_API_H "4ed_os_custom_api.h"
2017-07-10 17:05:30 +00:00
#include "../4ed_defines.h"
#include "4ed_meta_defines.h"
#include "../4coder_API/version.h"
#define FSTRING_IMPLEMENTATION
#include "../4coder_lib/4coder_string.h"
2016-06-24 19:33:37 +00:00
#include "../4cpp/4cpp_lexer.h"
2016-06-24 19:33:37 +00:00
2016-08-30 19:30:41 +00:00
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
2017-07-10 16:35:25 +00:00
#define FTECH_FILE_MOVING_IMPLEMENTATION
#include "4ed_file_moving.h"
2017-07-09 04:28:33 +00:00
#include "4ed_meta_parser.cpp"
2017-07-10 16:35:25 +00:00
#include "4ed_meta_keywords.h"
2016-03-04 23:10:00 +00:00
//////////////////////////////////////////////////////////////////////////////////////////////////
2016-02-25 23:52:11 +00:00
char *keys_that_need_codes[] = {
"back",
"up",
"down",
"left",
"right",
"del",
"insert",
"home",
"end",
"page_up",
"page_down",
"esc",
"mouse_left",
"mouse_right",
2016-09-09 17:14:38 +00:00
"mouse_left_release",
"mouse_right_release",
2016-02-25 23:52:11 +00:00
"f1",
"f2",
"f3",
"f4",
"f5",
"f6",
"f7",
"f8",
"f9",
"f10",
"f11",
"f12",
"f13",
"f14",
"f15",
"f16",
};
internal void
2016-08-30 19:30:41 +00:00
generate_keycode_enum(){
2017-07-10 17:05:30 +00:00
Temp temp = fm_begin_temp();
char *filename_keycodes = KEYCODES_FILE;
2017-07-10 17:05:30 +00:00
u16 code = 0xD800;
String out = str_alloc(10 << 20);
2016-02-25 23:52:11 +00:00
2017-07-10 17:05:30 +00:00
i32 count = ArrayCount(keys_that_need_codes);
2016-06-07 16:26:11 +00:00
2017-07-10 17:05:30 +00:00
append(&out, "enum{\n");
for (i32 i = 0; i < count;){
append(&out, "key_");
append(&out, keys_that_need_codes[i++]);
append(&out, " = ");
append_int_to_str(&out, code++);
append(&out, ",\n");
}
append(&out, "};\n");
append(&out,
"static char*\n"
"global_key_name(uint32_t key_code, int32_t *size){\n"
"char *result = 0;\n"
"switch(key_code){\n");
for (i32 i = 0; i < count; ++i){
append(&out, "case key_");
append(&out, keys_that_need_codes[i]);
append(&out, ": result = \"");
append(&out, keys_that_need_codes[i]);
append(&out, "\"; *size = sizeof(\"");
append(&out, keys_that_need_codes[i]);
append(&out, "\")-1; break;\n");
2016-06-07 16:26:11 +00:00
}
2017-07-10 17:05:30 +00:00
append(&out,
"}\n"
"return(result);\n"
"}\n");
2017-07-10 17:42:09 +00:00
fm_write_file(filename_keycodes, out.str, out.size);
out.size = 0;
2017-07-10 17:05:30 +00:00
fm_end_temp(temp);
2016-02-27 17:34:13 +00:00
}
2016-03-04 23:10:00 +00:00
//////////////////////////////////////////////////////////////////////////////////////////////////
2017-07-10 17:05:30 +00:00
internal void
struct_begin(String *str, char *name){
2017-07-10 16:35:25 +00:00
append(str, "struct ");
append(str, name);
append(str, "{\n"); //}
}
2017-07-10 17:05:30 +00:00
internal void
enum_begin(String *str, char *name){
2017-07-10 16:35:25 +00:00
append(str, "enum ");
append(str, name);
append(str, "{\n"); //}
}
2017-07-10 17:05:30 +00:00
internal void
struct_end(String *str){ //{
2017-07-10 16:35:25 +00:00
append(str, "};\n\n");
}
static char* bar_style_fields[] = {
2016-03-04 23:10:00 +00:00
"bar",
"bar_active",
"base",
"pop1",
"pop2",
};
static char* main_style_fields[] = {
2016-03-04 23:10:00 +00:00
"back",
"margin",
"margin_hover",
"margin_active",
2017-04-23 02:11:03 +00:00
"list_item",
"list_item_hover",
"list_item_active",
"cursor",
"at_cursor",
"highlight",
"at_highlight",
"mark",
"default",
"comment",
"keyword",
"str_constant",
"char_constant",
"int_constant",
"float_constant",
"bool_constant",
2016-03-04 23:10:00 +00:00
"preproc",
"include",
"special_character",
2016-10-14 21:21:17 +00:00
"ghost_character",
"highlight_junk",
"highlight_white",
2016-03-04 23:10:00 +00:00
"paste",
"undo",
"next_undo",
};
2017-07-10 17:05:30 +00:00
internal char*
2016-03-05 04:10:55 +00:00
make_style_tag(char *tag){
2017-07-10 17:05:30 +00:00
i32 len = (i32)strlen(tag);
char *str = fm_push_array(char, len + 1);
to_camel(tag, str);
2016-03-05 04:10:55 +00:00
str[len] = 0;
return(str);
2016-03-04 23:10:00 +00:00
}
2017-07-10 17:05:30 +00:00
internal void
2016-08-30 19:30:41 +00:00
generate_style(){
2017-07-10 17:05:30 +00:00
Temp temp = fm_begin_temp();
char filename_4coder[] = STYLE_FILE;
2016-03-04 23:10:00 +00:00
char filename_4ed[] = "4ed_style.h";
2017-07-10 17:05:30 +00:00
String out = str_alloc(10 << 20);;
2016-03-04 23:10:00 +00:00
2017-07-10 17:05:30 +00:00
enum_begin(&out, "Style_Tag");
{
i32 count = ArrayCount(bar_style_fields);
for (i32 i = 0; i < count; ++i){
char *tag = make_style_tag(bar_style_fields[i]);
append(&out, "Stag_");
append(&out, tag);
append(&out, ",\n");
2016-03-04 23:10:00 +00:00
}
2017-07-10 17:05:30 +00:00
count = ArrayCount(main_style_fields);
for (i32 i = 0; i < count; ++i){
char *tag = make_style_tag(main_style_fields[i]);
append(&out, "Stag_");
append(&out, tag);
append(&out, ",\n");
}
2017-07-10 17:05:30 +00:00
append(&out, "Stag_COUNT\n");
2016-03-04 23:10:00 +00:00
}
2017-07-10 17:05:30 +00:00
struct_end(&out);
2016-03-04 23:10:00 +00:00
2017-07-10 17:05:30 +00:00
append(&out, "static char *style_tag_names[] = {\n");
{
i32 count = ArrayCount(bar_style_fields);
for (i32 i = 0; i < count; ++i){
char *tag = make_style_tag(bar_style_fields[i]);
append(&out, "\"");
append(&out, tag);
append(&out, "\",\n");
2016-03-04 23:10:00 +00:00
}
2017-07-10 17:05:30 +00:00
count = ArrayCount(main_style_fields);
for (i32 i = 0; i < count; ++i){
char *tag = make_style_tag(main_style_fields[i]);
append(&out, "\"");
append(&out, tag);
append(&out, "\",\n");
}
}
append(&out, "};\n");
2017-07-10 17:42:09 +00:00
fm_write_file(filename_4coder, out.str, out.size);
out.size = 0;
2017-07-10 17:05:30 +00:00
struct_begin(&out, "Interactive_Style");
{
i32 count = ArrayCount(bar_style_fields);
for (i32 i = 0; i < count; ++i){
append(&out, "u32 ");
append(&out, bar_style_fields[i]);
append(&out, "_color;\n");
}
}
struct_end(&out);
struct_begin(&out, "Style_Main_Data");
{
i32 count = ArrayCount(main_style_fields);
for (i32 i = 0; i < count; ++i){
append(&out, "u32 ");
append(&out, main_style_fields[i]);
append(&out, "_color;\n");
}
append(&out, "Interactive_Style file_info_style;\n");
}
struct_end(&out);
{
append(&out,
"inline u32*\n"
"style_index_by_tag(Style_Main_Data *s, u32 tag){\n"
"u32 *result = 0;\n"
"switch (tag){\n");
i32 count = ArrayCount(bar_style_fields);
for (i32 i = 0; i < count; ++i){
char *tag = make_style_tag(bar_style_fields[i]);
append(&out, "case Stag_");
append(&out, tag);
append(&out, ": result = &s->file_info_style.");
append(&out, bar_style_fields[i]);
append(&out, "_color; break;\n");
2016-03-05 04:10:55 +00:00
}
2017-07-10 17:05:30 +00:00
count = ArrayCount(main_style_fields);
for (i32 i = 0; i < count; ++i){
char *tag = make_style_tag(main_style_fields[i]);
append(&out, "case Stag_");
append(&out, tag);
append(&out, ": result = &s->");
append(&out, main_style_fields[i]);
append(&out, "_color; break;\n");
}
2017-07-10 17:05:30 +00:00
append(&out,
"}\n"
"return(result);\n"
"}\n\n");
}
2017-07-10 17:42:09 +00:00
fm_write_file(filename_4ed, out.str, out.size);
out.size = 0;
2017-07-10 17:05:30 +00:00
fm_end_temp(temp);
}
//////////////////////////////////////////////////////////////////////////////////////////////////
//
// Meta Parse Rules
//
2017-07-10 17:05:30 +00:00
struct App_API_Name{
String macro;
String public_name;
2017-07-10 17:05:30 +00:00
};
2017-07-10 17:05:30 +00:00
struct App_API{
App_API_Name *names;
2017-07-10 17:05:30 +00:00
};
2017-07-10 17:05:30 +00:00
internal App_API
allocate_app_api(i32 count){
App_API app_api = {0};
2017-07-10 16:35:25 +00:00
app_api.names = fm_push_array(App_API_Name, count);
memset(app_api.names, 0, sizeof(App_API_Name)*count);
return(app_api);
}
2017-07-10 17:05:30 +00:00
internal void
2016-07-06 19:18:10 +00:00
generate_custom_headers(){
2017-07-10 17:05:30 +00:00
Temp temp = fm_begin_temp();
2016-07-06 19:18:10 +00:00
// NOTE(allen): Parse the customization API files
static char *functions_files[] = { "4ed_api_implementation.cpp", 0 };
2017-07-10 16:35:25 +00:00
Meta_Unit unit_custom = compile_meta_unit(".", functions_files, ExpandArray(meta_keywords));
if (unit_custom.parse == 0){
Assert(!"Missing one or more input files!");
}
// NOTE(allen): Compute and store variations of the function names
2017-07-10 16:35:25 +00:00
App_API func_4ed_names = allocate_app_api(unit_custom.set.count);
2016-07-06 19:18:10 +00:00
2017-07-10 17:05:30 +00:00
for (i32 i = 0; i < unit_custom.set.count; ++i){
String name_string = unit_custom.set.items[i].name;
String *macro = &func_4ed_names.names[i].macro;
String *public_name = &func_4ed_names.names[i].public_name;
2017-07-10 16:35:25 +00:00
*macro = str_alloc(name_string.size+4);
2017-07-10 17:42:09 +00:00
to_upper(macro, name_string);
2017-07-10 16:35:25 +00:00
append(macro, make_lit_string("_SIG"));
2016-06-24 19:33:37 +00:00
2017-07-10 16:35:25 +00:00
*public_name = str_alloc(name_string.size);
2017-07-10 17:42:09 +00:00
to_lower(public_name, name_string);
2016-06-24 19:33:37 +00:00
2017-07-10 16:35:25 +00:00
fm_align();
2016-06-24 19:33:37 +00:00
}
// NOTE(allen): Output
2017-07-10 16:35:25 +00:00
String out = str_alloc(10 << 20);
// NOTE(allen): Custom API headers
2017-07-10 17:05:30 +00:00
i32 main_api_count = unit_custom.parse[0].item_count;
i32 os_api_count = unit_custom.parse[1].item_count;
append(&out, "struct Application_Links;\n");
for (i32 i = main_api_count; i < os_api_count; ++i){
append(&out, "#define ");
append(&out, func_4ed_names.names[i].macro);
append(&out, "(n) ");
append(&out, unit_custom.set.items[i].ret);
append(&out, " n");
append(&out, unit_custom.set.items[i].args);
append_s_char(&out, '\n');
}
2017-07-10 17:05:30 +00:00
for (i32 i = main_api_count; i < os_api_count; ++i){
append(&out, "typedef ");
append(&out, func_4ed_names.names[i].macro);
append_s_char(&out, '(');
append(&out, unit_custom.set.items[i].name);
append(&out, "_Function);\n");
}
2017-07-10 17:42:09 +00:00
fm_write_file(OS_API_H, out.str, out.size);
out.size = 0;
2017-07-10 17:05:30 +00:00
append(&out, "struct Application_Links;\n");
for (i32 i = 0; i < unit_custom.set.count; ++i){
append(&out, "#define ");
append(&out, func_4ed_names.names[i].macro);
append(&out, "(n) ");
append(&out, unit_custom.set.items[i].ret);
append(&out, " n");
append(&out, unit_custom.set.items[i].args);
append_s_char(&out, '\n');
}
for (i32 i = 0; i < unit_custom.set.count; ++i){
append(&out, "typedef ");
append(&out, func_4ed_names.names[i].macro);
append_s_char(&out, '(');
append(&out, unit_custom.set.items[i].name);
append(&out, "_Function);\n");
}
append(&out, "struct Application_Links{\n");
append(&out, "#if defined(ALLOW_DEP_4CODER)\n");
for (i32 i = 0; i < unit_custom.set.count; ++i){
append(&out, unit_custom.set.items[i].name);
append(&out, "_Function *");
append(&out, func_4ed_names.names[i].public_name);
append(&out, ";\n");
}
append(&out, "#else\n");
for (i32 i = 0; i < unit_custom.set.count; ++i){
append(&out, unit_custom.set.items[i].name);
append(&out, "_Function *");
append(&out, func_4ed_names.names[i].public_name);
append(&out, "_;\n");
}
append(&out, "#endif\n");
append(&out,
"void *memory;\n"
"int32_t memory_size;\n"
"void *cmd_context;\n"
"void *system_links;\n"
"void *current_coroutine;\n"
"int32_t type_coroutine;\n"
"};\n");
append(&out, "#define FillAppLinksAPI(app_links) do{");
for (i32 i = 0; i < unit_custom.set.count; ++i){
append(&out, "\\\napp_links->");
append(&out, func_4ed_names.names[i].public_name);
append(&out, "_ = ");
append(&out, unit_custom.set.items[i].name);
append_s_char(&out, ';');
}
append(&out, "} while(false)\n");
append(&out, "#if defined(ALLOW_DEP_4CODER)\n");
for (i32 use_dep = 1; use_dep >= 0; --use_dep){
for (i32 i = 0; i < unit_custom.set.count; ++i){
Argument_Breakdown breakdown = unit_custom.set.items[i].breakdown;
String ret = unit_custom.set.items[i].ret;
String public_name = func_4ed_names.names[i].public_name;
append(&out, "static inline ");
append(&out, ret);
append(&out, " ");
append(&out, public_name);
append(&out, "(");
for (i32 j = 0; j < breakdown.count; ++j){
append(&out, breakdown.args[j].param_string);
if (j+1 != breakdown.count){
append(&out, ", ");
2016-09-17 00:03:09 +00:00
}
2017-07-10 17:05:30 +00:00
}
append(&out, "){");
2017-07-10 17:42:09 +00:00
if (match(ret, make_lit_string("void"))){
2017-07-10 16:35:25 +00:00
append(&out, "(");
2016-09-17 00:03:09 +00:00
}
2017-07-10 17:05:30 +00:00
else{
append(&out, "return(");
}
append(&out, "app->");
append(&out, public_name);
if (!use_dep){
append(&out, "_");
}
append(&out, "(");
for (i32 j = 0; j < breakdown.count; ++j){
append(&out, breakdown.args[j].param_name);
if (j+1 != breakdown.count){
append(&out, ", ");
}
2016-09-17 00:03:09 +00:00
}
2017-07-10 17:05:30 +00:00
append(&out, ")");
append(&out, ");}\n");
}
if (use_dep == 1){
append(&out, "#else\n");
2016-09-17 00:03:09 +00:00
}
}
2017-07-10 17:05:30 +00:00
append(&out, "#endif\n");
2017-07-10 17:42:09 +00:00
fm_write_file(API_H, out.str, out.size);
out.size = 0;
2017-07-10 17:05:30 +00:00
fm_end_temp(temp);
}
2016-07-02 14:15:15 +00:00
int main(int argc, char **argv){
2017-07-10 17:05:30 +00:00
META_BEGIN();
2017-07-10 16:35:25 +00:00
fm_init_system();
2016-08-30 19:30:41 +00:00
generate_keycode_enum();
generate_style();
generate_custom_headers();
2017-07-10 17:05:30 +00:00
META_FINISH();
2016-02-25 23:52:11 +00:00
}
// BOTTOM