2016-02-25 23:52:11 +00:00
/*
2016-08-30 19:30:41 +00:00
* Mr . 4 th Dimention - Allen Webster
*
* 25.02 .2016
*
* File editing view for 4 coder
*
*/
2016-02-25 23:52:11 +00:00
// TOP
2017-11-18 22:40:10 +00:00
# define KEYCODES_FILE "4coder_generated / keycodes.h"
# define STYLE_FILE "4coder_generated / style.h"
# define API_H "4coder_generated / app_functions.h"
# define REMAPPING_FILE "4coder_generated / remapping.h"
2016-02-25 23:52:11 +00:00
2017-01-23 06:19:43 +00:00
# define OS_API_H "4ed_os_custom_api.h"
2017-07-10 17:05:30 +00:00
# include "../4ed_defines.h"
2017-07-07 23:54:50 +00:00
# include "4ed_meta_defines.h"
2017-01-23 06:19:43 +00:00
# include "../4coder_API/version.h"
# define FSTRING_IMPLEMENTATION
# include "../4coder_lib/4coder_string.h"
2016-06-24 19:33:37 +00:00
2017-11-21 00:35:35 +00:00
# include "../4coder_lib/4cpp_lexer.h"
2017-11-18 22:40:10 +00:00
# include "../4ed_linked_node_macros.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>
2016-11-03 04:57:26 +00:00
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-09-02 19:39:38 +00:00
//////////////////////////////////////////////////////////////////////////////////////////////////
2017-11-18 22:40:10 +00:00
# define KEY_LIST(M)\
M ( back ) \
M ( up ) \
M ( down ) \
M ( left ) \
M ( right ) \
M ( del ) \
M ( insert ) \
M ( home ) \
M ( end ) \
M ( page_up ) \
M ( page_down ) \
M ( esc ) \
M ( mouse_left ) \
M ( mouse_right ) \
M ( mouse_left_release ) \
M ( mouse_right_release ) \
M ( f1 ) \
M ( f2 ) \
M ( f3 ) \
M ( f4 ) \
M ( f5 ) \
M ( f6 ) \
M ( f7 ) \
M ( f8 ) \
M ( f9 ) \
M ( f10 ) \
M ( f11 ) \
M ( f12 ) \
M ( f13 ) \
M ( f14 ) \
M ( f15 ) \
M ( f16 )
enum {
key_enum_kicker_offer = 0xD800 - 1 ,
# define DefKeyEnum(n) key_##n,
KEY_LIST ( DefKeyEnum )
# undef DefKeyEnum
2016-02-25 23:52:11 +00:00
} ;
2017-02-12 06:01:01 +00:00
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 ( ) ;
2017-01-23 06:19:43 +00:00
char * filename_keycodes = KEYCODES_FILE ;
2017-02-12 06:01:01 +00:00
2017-07-10 17:05:30 +00:00
String out = str_alloc ( 10 < < 20 ) ;
2016-02-25 23:52:11 +00:00
2017-07-10 17:05:30 +00:00
append ( & out , " enum{ \n " ) ;
2017-11-18 22:40:10 +00:00
# define DefKeyEnum(n) append(&out, "key_" #n " = "); append_int_to_str(&out, key_##n); append(&out, ",\n");
KEY_LIST ( DefKeyEnum )
# undef DefKeyEnum
2017-07-10 17:05:30 +00:00
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 " ) ;
2017-11-18 22:40:10 +00:00
# define KeyCase(n) append(&out, "case key_" #n ": result = \"key_" #n "\"; *size = sizeof(\"key_" #n "\")-1; break;\n");
KEY_LIST ( KeyCase )
# undef KeyCase
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
2016-09-02 19:39:38 +00:00
struct_begin ( String * str , char * name ) {
2017-07-10 16:35:25 +00:00
append ( str , " struct " ) ;
append ( str , name ) ;
append ( str , " { \n " ) ; //}
2016-09-02 19:39:38 +00:00
}
2017-07-10 17:05:30 +00:00
internal void
2016-09-02 19:39:38 +00:00
enum_begin ( String * str , char * name ) {
2017-07-10 16:35:25 +00:00
append ( str , " enum " ) ;
append ( str , name ) ;
append ( str , " { \n " ) ; //}
2016-09-02 19:39:38 +00:00
}
2017-07-10 17:05:30 +00:00
internal void
2016-11-02 03:27:51 +00:00
struct_end ( String * str ) { //{
2017-07-10 16:35:25 +00:00
append ( str , " }; \n \n " ) ;
2016-09-02 19:39:38 +00:00
}
static char * bar_style_fields [ ] = {
2016-03-04 23:10:00 +00:00
" bar " ,
" bar_active " ,
" base " ,
" pop1 " ,
" pop2 " ,
} ;
2016-09-02 19:39:38 +00:00
static char * main_style_fields [ ] = {
2016-03-04 23:10:00 +00:00
" back " ,
2016-06-07 18:52:40 +00:00
" margin " ,
" margin_hover " ,
" margin_active " ,
2017-04-23 02:11:03 +00:00
" list_item " ,
" list_item_hover " ,
" list_item_active " ,
2016-06-07 18:52:40 +00:00
" 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 " ,
2016-06-07 18:52:40 +00:00
" include " ,
" special_character " ,
2016-10-14 21:21:17 +00:00
" ghost_character " ,
2016-06-07 18:52:40 +00:00
" 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 ( ) ;
2017-01-23 06:19:43 +00:00
char filename_4coder [ ] = STYLE_FILE ;
2016-03-04 23:10:00 +00:00
char filename_4ed [ ] = " 4ed_style.h " ;
2016-06-07 18:52:40 +00:00
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
}
2016-09-02 19:39:38 +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-06-05 21:48:49 +00:00
}
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
}
2016-09-02 19:39:38 +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 " ) ;
2016-09-04 16:39:21 +00:00
}
2017-07-10 17:05:30 +00:00
append ( & out ,
" } \n "
" return(result); \n "
" } \n \n " ) ;
2016-09-03 02:27:09 +00:00
}
2016-11-02 03:27:51 +00:00
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 ) ;
2016-09-03 02:27:09 +00:00
}
2016-11-02 03:27:51 +00:00
//////////////////////////////////////////////////////////////////////////////////////////////////
//
// Meta Parse Rules
//
2017-07-10 17:05:30 +00:00
struct App_API_Name {
2016-09-02 19:39:38 +00:00
String macro ;
String public_name ;
2017-07-10 17:05:30 +00:00
} ;
2016-09-02 19:39:38 +00:00
2017-07-10 17:05:30 +00:00
struct App_API {
2016-09-02 19:39:38 +00:00
App_API_Name * names ;
2017-07-10 17:05:30 +00:00
} ;
2016-09-02 19:39:38 +00:00
2017-07-10 17:05:30 +00:00
internal App_API
allocate_app_api ( i32 count ) {
2016-09-02 19:39:38 +00:00
App_API app_api = { 0 } ;
2017-07-10 16:35:25 +00:00
app_api . names = fm_push_array ( App_API_Name , count ) ;
2016-09-03 05:03:03 +00:00
memset ( app_api . names , 0 , sizeof ( App_API_Name ) * count ) ;
2016-09-02 19:39:38 +00:00
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
2016-09-04 01:44:12 +00:00
// NOTE(allen): Parse the customization API files
2017-01-23 06:19:43 +00:00
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 ) ) ;
2017-01-23 06:19:43 +00:00
if ( unit_custom . parse = = 0 ) {
Assert ( ! " Missing one or more input files! " ) ;
}
2016-09-04 01:44:12 +00:00
// 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 ) {
2016-09-03 22:43:37 +00:00
String name_string = unit_custom . set . items [ i ] . name ;
2016-09-02 19:39:38 +00:00
String * macro = & func_4ed_names . names [ i ] . macro ;
String * public_name = & func_4ed_names . names [ i ] . public_name ;
2016-05-25 22:43:58 +00:00
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
}
2016-09-04 01:44:12 +00:00
// NOTE(allen): Output
2017-07-10 16:35:25 +00:00
String out = str_alloc ( 10 < < 20 ) ;
2016-05-25 22:43:58 +00:00
2016-09-04 01:44:12 +00:00
// 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 ' ) ;
2016-09-04 01:44:12 +00:00
}
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 " ) ;
2016-05-25 22:43:58 +00:00
}
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 , " \\ \n app_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
}
2016-09-04 05:08:36 +00:00
}
2017-07-10 17:05:30 +00:00
append ( & out , " #endif \n " ) ;
2016-05-25 22:43:58 +00:00
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-05-25 22:43:58 +00:00
}
2017-11-18 22:40:10 +00:00
//////////////////////////////////////////////////////////////////////////////////////////////////
struct Key_Bind {
Key_Bind * next ;
b32 vanilla ;
u32 keycode ;
u32 modifiers ;
char * command ;
i32 command_len ;
} ;
struct Sub_Map {
Sub_Map * next ;
char * name ;
i32 name_len ;
char * description ;
i32 description_len ;
char * parent ;
i32 parent_len ;
b32 has_vanilla ;
Key_Bind * first_key_bind ;
Key_Bind * last_key_bind ;
i32 key_bind_count ;
} ;
struct Mapping {
Mapping * next ;
char * name ;
i32 name_len ;
char * description ;
i32 description_len ;
Sub_Map * first_sub_map ;
Sub_Map * last_sub_map ;
i32 sub_map_count ;
} ;
struct Mapping_Array {
Mapping * first_mapping ;
Mapping * last_mapping ;
i32 mapping_count ;
Mapping * current_mapping ;
Sub_Map * current_sub_map ;
} ;
enum {
MDFR_NONE = 0x0 ,
MDFR_CTRL = 0x1 ,
MDFR_ALT = 0x2 ,
MDFR_CMND = 0x4 ,
MDFR_SHIFT = 0x8 ,
} ;
//////////////////////////////////////////////////////////////////////////////////////////////////
internal void
emit_begin_mapping ( Mapping_Array * array , char * name , char * description ) {
Assert ( array - > current_mapping = = 0 ) ;
Mapping * mapping = fm_push_array ( Mapping , 1 ) ;
mapping - > name = fm_basic_str ( name ) ;
mapping - > name_len = str_size ( name ) ;
mapping - > description = fm_basic_str ( description ) ;
mapping - > description_len = str_size ( description ) ;
mapping - > first_sub_map = 0 ;
mapping - > last_sub_map = 0 ;
mapping - > sub_map_count = 0 ;
sll_push ( array - > first_mapping , array - > last_mapping , mapping ) ;
+ + array - > mapping_count ;
array - > current_mapping = mapping ;
}
internal void
emit_end_mapping ( Mapping_Array * array ) {
Assert ( array - > current_mapping ! = 0 ) ;
array - > current_mapping = 0 ;
}
internal void
emit_begin_map ( Mapping_Array * array , char * mapid , char * description ) {
Assert ( array - > current_mapping ! = 0 ) ;
Assert ( array - > current_sub_map = = 0 ) ;
Sub_Map * sub_map = fm_push_array ( Sub_Map , 1 ) ;
sub_map - > name = fm_basic_str ( mapid ) ;
sub_map - > name_len = str_size ( mapid ) ;
sub_map - > description = fm_basic_str ( description ) ;
sub_map - > description_len = str_size ( description ) ;
sub_map - > parent = 0 ;
sub_map - > parent_len = 0 ;
sub_map - > first_key_bind = 0 ;
sub_map - > last_key_bind = 0 ;
sub_map - > key_bind_count = 0 ;
Mapping * mapping = array - > current_mapping ;
sll_push ( mapping - > first_sub_map , mapping - > last_sub_map , sub_map ) ;
+ + mapping - > sub_map_count ;
array - > current_sub_map = sub_map ;
}
internal void
emit_end_map ( Mapping_Array * array ) {
Assert ( array - > current_mapping ! = 0 ) ;
Assert ( array - > current_sub_map ! = 0 ) ;
array - > current_sub_map = 0 ;
}
internal void
emit_inherit_map ( Mapping_Array * array , char * mapid ) {
Assert ( array - > current_mapping ! = 0 ) ;
Assert ( array - > current_sub_map ! = 0 ) ;
Sub_Map * sub_map = array - > current_sub_map ;
Assert ( sub_map - > parent = = 0 ) ;
sub_map - > parent = fm_basic_str ( mapid ) ;
sub_map - > parent_len = str_size ( mapid ) ;
}
internal void
emit_bind ( Mapping_Array * array , u32 keycode , u32 modifiers , char * command ) {
Assert ( array - > current_mapping ! = 0 ) ;
Assert ( array - > current_sub_map ! = 0 ) ;
b32 is_duplicate = false ;
Sub_Map * sub_map = array - > current_sub_map ;
for ( Key_Bind * bind = sub_map - > first_key_bind ;
bind ! = 0 ;
bind = bind - > next ) {
if ( ! bind - > vanilla & & keycode = = bind - > keycode & & modifiers = = bind - > modifiers ) {
fprintf ( stdout , " duplicate binding for %u %u \n " , keycode , modifiers ) ;
is_duplicate = true ;
break ;
}
}
if ( ! is_duplicate ) {
Key_Bind * bind = fm_push_array ( Key_Bind , 1 ) ;
bind - > vanilla = false ;
bind - > keycode = keycode ;
bind - > modifiers = modifiers ;
bind - > command = fm_basic_str ( command ) ;
bind - > command_len = str_size ( command ) ;
sll_push ( sub_map - > first_key_bind , sub_map - > last_key_bind , bind ) ;
+ + sub_map - > key_bind_count ;
}
}
internal void
emit_bind_vanilla_keys ( Mapping_Array * array , u32 modifiers , char * command ) {
Assert ( array - > current_mapping ! = 0 ) ;
Assert ( array - > current_sub_map ! = 0 ) ;
b32 is_duplicate = false ;
Sub_Map * sub_map = array - > current_sub_map ;
for ( Key_Bind * bind = sub_map - > first_key_bind ;
bind ! = 0 ;
bind = bind - > next ) {
if ( bind - > vanilla & & modifiers = = bind - > modifiers ) {
fprintf ( stdout , " duplicate vanilla binding %u \n " , modifiers ) ;
is_duplicate = true ;
break ;
}
}
if ( ! is_duplicate ) {
Key_Bind * bind = fm_push_array ( Key_Bind , 1 ) ;
bind - > vanilla = true ;
bind - > keycode = 0 ;
bind - > modifiers = modifiers ;
bind - > command = fm_basic_str ( command ) ;
bind - > command_len = str_size ( command ) ;
sll_push ( sub_map - > first_key_bind , sub_map - > last_key_bind , bind ) ;
+ + sub_map - > key_bind_count ;
}
}
# define begin_mapping(mp,n,d) emit_begin_mapping(mp, #n, d)
# define end_mapping(mp) emit_end_mapping(mp)
# define begin_map(mp,mapid,d) emit_begin_map(mp, #mapid, d)
# define end_map(mp) emit_end_map(mp)
# define inherit_map(mp,mapid) emit_inherit_map(mp, #mapid)
# define bind(mp,k,md,c) emit_bind(mp, k, md, #c)
# define bind_vanilla_keys(mp,md,c) emit_bind_vanilla_keys(mp, md, #c)
//////////////////////////////////////////////////////////////////////////////////////////////////
internal void
generate_remapping_code_and_data ( ) {
Temp temp = fm_begin_temp ( ) ;
// Generate mapping array data structure
Mapping_Array mappings_ = { 0 } ;
Mapping_Array * mappings = & mappings_ ;
2017-11-22 20:05:58 +00:00
begin_mapping ( mappings , default , " The default 4coder bindings - typically good for Windows and Linux " ) ;
2017-11-18 22:40:10 +00:00
{
// NOTE(allen): GLOBAL
2017-11-22 20:05:58 +00:00
begin_map ( mappings , mapid_global , " The following bindings apply in all situations. " ) ;
2017-11-18 22:40:10 +00:00
bind ( mappings , ' p ' , MDFR_CTRL , open_panel_vsplit ) ;
bind ( mappings , ' _ ' , MDFR_CTRL , open_panel_hsplit ) ;
bind ( mappings , ' P ' , MDFR_CTRL , close_panel ) ;
bind ( mappings , ' , ' , MDFR_CTRL , change_active_panel ) ;
bind ( mappings , ' < ' , MDFR_CTRL , change_active_panel_backwards ) ;
bind ( mappings , ' n ' , MDFR_CTRL , interactive_new ) ;
bind ( mappings , ' o ' , MDFR_CTRL , interactive_open_or_new ) ;
bind ( mappings , ' o ' , MDFR_ALT , open_in_other ) ;
bind ( mappings , ' k ' , MDFR_CTRL , interactive_kill_buffer ) ;
bind ( mappings , ' i ' , MDFR_CTRL , interactive_switch_buffer ) ;
bind ( mappings , ' h ' , MDFR_CTRL , project_go_to_root_directory ) ;
2017-11-21 18:25:19 +00:00
bind ( mappings , ' H ' , MDFR_CTRL , reload_current_project ) ;
2017-11-18 22:40:10 +00:00
bind ( mappings , ' S ' , MDFR_CTRL , save_all_dirty_buffers ) ;
bind ( mappings , ' c ' , MDFR_ALT , open_color_tweaker ) ;
bind ( mappings , ' d ' , MDFR_ALT , open_debug ) ;
bind ( mappings , ' . ' , MDFR_ALT , change_to_build_panel ) ;
bind ( mappings , ' , ' , MDFR_ALT , close_build_panel ) ;
2017-11-27 22:16:23 +00:00
bind ( mappings , ' n ' , MDFR_ALT , goto_next_jump_no_skips_sticky ) ;
bind ( mappings , ' N ' , MDFR_ALT , goto_prev_jump_no_skips_sticky ) ;
2017-11-22 20:05:58 +00:00
bind ( mappings , ' M ' , MDFR_ALT , goto_first_jump_sticky ) ;
2017-11-18 22:40:10 +00:00
bind ( mappings , ' m ' , MDFR_ALT , build_in_build_panel ) ;
bind ( mappings , ' z ' , MDFR_ALT , execute_any_cli ) ;
bind ( mappings , ' Z ' , MDFR_ALT , execute_previous_cli ) ;
bind ( mappings , ' x ' , MDFR_ALT , execute_arbitrary_command ) ;
bind ( mappings , ' s ' , MDFR_ALT , show_scrollbar ) ;
bind ( mappings , ' w ' , MDFR_ALT , hide_scrollbar ) ;
bind ( mappings , ' b ' , MDFR_ALT , toggle_filebar ) ;
bind ( mappings , ' @ ' , MDFR_ALT , toggle_mouse ) ;
bind ( mappings , key_page_up , MDFR_CTRL , toggle_fullscreen ) ;
bind ( mappings , ' E ' , MDFR_ALT , exit_4coder ) ;
2017-11-21 18:25:19 +00:00
bind ( mappings , ' + ' , MDFR_CTRL , increase_face_size ) ;
bind ( mappings , ' - ' , MDFR_CTRL , decrease_face_size ) ;
2017-11-18 22:40:10 +00:00
bind ( mappings , key_f1 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f2 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f3 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f4 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f5 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f6 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f7 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f8 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f9 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f10 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f11 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f12 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f13 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f14 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f15 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f16 , MDFR_NONE , project_fkey_command ) ;
end_map ( mappings ) ;
// NOTE(allen): FILE
2017-11-22 20:05:58 +00:00
begin_map ( mappings , mapid_file , " The following bindings apply in general text files and most apply in code files, but some are overriden by other commands specific to code files. " ) ;
2017-11-18 22:40:10 +00:00
bind_vanilla_keys ( mappings , MDFR_NONE , write_character ) ;
bind ( mappings , key_mouse_left , MDFR_NONE , click_set_cursor ) ;
bind ( mappings , key_mouse_left_release , MDFR_NONE , click_set_mark ) ;
bind ( mappings , key_mouse_right , MDFR_NONE , click_set_mark ) ;
bind ( mappings , key_left , MDFR_NONE , move_left ) ;
bind ( mappings , key_right , MDFR_NONE , move_right ) ;
bind ( mappings , key_del , MDFR_NONE , delete_char ) ;
bind ( mappings , key_del , MDFR_SHIFT , delete_char ) ;
bind ( mappings , key_back , MDFR_NONE , backspace_char ) ;
bind ( mappings , key_back , MDFR_SHIFT , backspace_char ) ;
bind ( mappings , key_up , MDFR_NONE , move_up ) ;
bind ( mappings , key_down , MDFR_NONE , move_down ) ;
bind ( mappings , key_end , MDFR_NONE , seek_end_of_line ) ;
bind ( mappings , key_home , MDFR_NONE , seek_beginning_of_line ) ;
bind ( mappings , key_page_up , MDFR_NONE , page_up ) ;
bind ( mappings , key_page_down , MDFR_NONE , page_down ) ;
bind ( mappings , key_right , MDFR_CTRL , seek_whitespace_right ) ;
bind ( mappings , key_left , MDFR_CTRL , seek_whitespace_left ) ;
bind ( mappings , key_up , MDFR_CTRL , seek_whitespace_up_end_line ) ;
bind ( mappings , key_down , MDFR_CTRL , seek_whitespace_down_end_line ) ;
2017-11-21 18:25:19 +00:00
bind ( mappings , key_up , MDFR_ALT , move_line_up ) ;
bind ( mappings , key_down , MDFR_ALT , move_line_down ) ;
2017-11-18 22:40:10 +00:00
bind ( mappings , key_back , MDFR_CTRL , backspace_word ) ;
bind ( mappings , key_del , MDFR_CTRL , delete_word ) ;
bind ( mappings , key_back , MDFR_ALT , snipe_token_or_word ) ;
bind ( mappings , key_del , MDFR_ALT , snipe_token_or_word_right ) ;
bind ( mappings , ' ' , MDFR_CTRL , set_mark ) ;
bind ( mappings , ' a ' , MDFR_CTRL , replace_in_range ) ;
bind ( mappings , ' c ' , MDFR_CTRL , copy ) ;
bind ( mappings , ' d ' , MDFR_CTRL , delete_range ) ;
2017-11-21 18:25:19 +00:00
bind ( mappings , ' D ' , MDFR_CTRL , delete_line ) ;
2017-11-18 22:40:10 +00:00
bind ( mappings , ' e ' , MDFR_CTRL , center_view ) ;
bind ( mappings , ' E ' , MDFR_CTRL , left_adjust_view ) ;
bind ( mappings , ' f ' , MDFR_CTRL , search ) ;
bind ( mappings , ' F ' , MDFR_CTRL , list_all_locations ) ;
bind ( mappings , ' F ' , MDFR_ALT , list_all_substring_locations_case_insensitive ) ;
bind ( mappings , ' g ' , MDFR_CTRL , goto_line ) ;
2017-11-21 18:25:19 +00:00
bind ( mappings , ' G ' , MDFR_CTRL , list_all_locations_of_selection ) ;
2017-11-18 22:40:10 +00:00
bind ( mappings , ' j ' , MDFR_CTRL , to_lowercase ) ;
bind ( mappings , ' K ' , MDFR_CTRL , kill_buffer ) ;
bind ( mappings , ' l ' , MDFR_CTRL , toggle_line_wrap ) ;
2017-11-21 18:25:19 +00:00
bind ( mappings , ' L ' , MDFR_CTRL , duplicate_line ) ;
2017-11-18 22:40:10 +00:00
bind ( mappings , ' m ' , MDFR_CTRL , cursor_mark_swap ) ;
bind ( mappings , ' O ' , MDFR_CTRL , reopen ) ;
bind ( mappings , ' q ' , MDFR_CTRL , query_replace ) ;
bind ( mappings , ' Q ' , MDFR_CTRL , query_replace_identifier ) ;
2017-11-21 18:25:19 +00:00
bind ( mappings , ' q ' , MDFR_ALT , query_replace_selection ) ;
2017-11-18 22:40:10 +00:00
bind ( mappings , ' r ' , MDFR_CTRL , reverse_search ) ;
bind ( mappings , ' s ' , MDFR_CTRL , save ) ;
bind ( mappings , ' t ' , MDFR_CTRL , search_identifier ) ;
bind ( mappings , ' T ' , MDFR_CTRL , list_all_locations_of_identifier ) ;
bind ( mappings , ' u ' , MDFR_CTRL , to_uppercase ) ;
bind ( mappings , ' v ' , MDFR_CTRL , paste_and_indent ) ;
bind ( mappings , ' v ' , MDFR_ALT , toggle_virtual_whitespace ) ;
bind ( mappings , ' V ' , MDFR_CTRL , paste_next_and_indent ) ;
bind ( mappings , ' x ' , MDFR_CTRL , cut ) ;
bind ( mappings , ' y ' , MDFR_CTRL , redo ) ;
bind ( mappings , ' z ' , MDFR_CTRL , undo ) ;
bind ( mappings , ' 2 ' , MDFR_CTRL , decrease_line_wrap ) ;
bind ( mappings , ' 3 ' , MDFR_CTRL , increase_line_wrap ) ;
bind ( mappings , ' ? ' , MDFR_CTRL , toggle_show_whitespace ) ;
bind ( mappings , ' ~ ' , MDFR_CTRL , clean_all_lines ) ;
2017-11-22 20:05:58 +00:00
bind ( mappings , ' \n ' , MDFR_NONE , newline_or_goto_position_sticky ) ;
bind ( mappings , ' \n ' , MDFR_SHIFT , newline_or_goto_position_same_panel_sticky ) ;
2017-11-21 20:07:05 +00:00
bind ( mappings , ' ' , MDFR_SHIFT , write_character ) ;
2017-11-18 22:40:10 +00:00
end_map ( mappings ) ;
// NOTE(allen): CODE
2017-11-22 20:05:58 +00:00
begin_map ( mappings , default_code_map , " The following commands only apply in files where the lexer (syntax highlighting) is turned on. " ) ;
2017-11-18 22:40:10 +00:00
inherit_map ( mappings , mapid_file ) ;
bind ( mappings , key_right , MDFR_CTRL , seek_alphanumeric_or_camel_right ) ;
bind ( mappings , key_left , MDFR_CTRL , seek_alphanumeric_or_camel_left ) ;
bind ( mappings , ' \n ' , MDFR_NONE , write_and_auto_tab ) ;
bind ( mappings , ' \n ' , MDFR_SHIFT , write_and_auto_tab ) ;
bind ( mappings , ' } ' , MDFR_NONE , write_and_auto_tab ) ;
bind ( mappings , ' ) ' , MDFR_NONE , write_and_auto_tab ) ;
bind ( mappings , ' ] ' , MDFR_NONE , write_and_auto_tab ) ;
bind ( mappings , ' ; ' , MDFR_NONE , write_and_auto_tab ) ;
bind ( mappings , ' # ' , MDFR_NONE , write_and_auto_tab ) ;
bind ( mappings , ' \t ' , MDFR_NONE , word_complete ) ;
bind ( mappings , ' \t ' , MDFR_CTRL , auto_tab_range ) ;
bind ( mappings , ' \t ' , MDFR_SHIFT , auto_tab_line_at_cursor ) ;
bind ( mappings , ' h ' , MDFR_ALT , write_hack ) ;
bind ( mappings , ' r ' , MDFR_ALT , write_block ) ;
bind ( mappings , ' t ' , MDFR_ALT , write_todo ) ;
bind ( mappings , ' y ' , MDFR_ALT , write_note ) ;
2017-11-21 18:25:19 +00:00
2017-11-18 22:40:10 +00:00
bind ( mappings , ' [ ' , MDFR_CTRL , open_long_braces ) ;
bind ( mappings , ' { ' , MDFR_CTRL , open_long_braces_semicolon ) ;
bind ( mappings , ' } ' , MDFR_CTRL , open_long_braces_break ) ;
2017-11-21 18:25:19 +00:00
bind ( mappings , ' [ ' , MDFR_ALT , highlight_surrounding_scope ) ;
bind ( mappings , ' ] ' , MDFR_ALT , highlight_prev_scope_absolute ) ;
bind ( mappings , ' \' ' , MDFR_ALT , highlight_next_scope_absolute ) ;
bind ( mappings , ' / ' , MDFR_ALT , place_in_scope ) ;
bind ( mappings , ' - ' , MDFR_ALT , delete_current_scope ) ;
bind ( mappings , ' j ' , MDFR_ALT , scope_absorb_down ) ;
2017-11-18 22:40:10 +00:00
bind ( mappings , ' i ' , MDFR_ALT , if0_off ) ;
2017-11-21 18:25:19 +00:00
2017-11-18 22:40:10 +00:00
bind ( mappings , ' 1 ' , MDFR_ALT , open_file_in_quotes ) ;
bind ( mappings , ' 2 ' , MDFR_ALT , open_matching_file_cpp ) ;
bind ( mappings , ' 0 ' , MDFR_CTRL , write_zero_struct ) ;
bind ( mappings , ' I ' , MDFR_CTRL , list_all_functions_current_buffer ) ;
end_map ( mappings ) ;
}
end_mapping ( mappings ) ;
2017-11-22 20:05:58 +00:00
begin_mapping ( mappings , mac_default , " Default 4coder bindings on a Mac keyboard " ) ;
2017-11-18 22:40:10 +00:00
{
// NOTE(allen): GLOBAL
2017-11-22 20:05:58 +00:00
begin_map ( mappings , mapid_global , " The following bindings apply in all situations. " ) ;
2017-11-18 22:40:10 +00:00
bind ( mappings , ' p ' , MDFR_CMND , open_panel_vsplit ) ;
bind ( mappings , ' _ ' , MDFR_CMND , open_panel_hsplit ) ;
bind ( mappings , ' P ' , MDFR_CMND , close_panel ) ;
bind ( mappings , ' , ' , MDFR_CMND , change_active_panel ) ;
bind ( mappings , ' < ' , MDFR_CMND , change_active_panel_backwards ) ;
bind ( mappings , ' n ' , MDFR_CMND , interactive_new ) ;
bind ( mappings , ' o ' , MDFR_CMND , interactive_open_or_new ) ;
bind ( mappings , ' o ' , MDFR_CTRL , open_in_other ) ;
bind ( mappings , ' k ' , MDFR_CMND , interactive_kill_buffer ) ;
bind ( mappings , ' i ' , MDFR_CMND , interactive_switch_buffer ) ;
bind ( mappings , ' h ' , MDFR_CMND , project_go_to_root_directory ) ;
2017-11-21 18:25:19 +00:00
bind ( mappings , ' H ' , MDFR_CMND , reload_current_project ) ;
2017-11-18 22:40:10 +00:00
bind ( mappings , ' S ' , MDFR_CMND , save_all_dirty_buffers ) ;
bind ( mappings , ' c ' , MDFR_CTRL , open_color_tweaker ) ;
bind ( mappings , ' d ' , MDFR_CTRL , open_debug ) ;
bind ( mappings , ' . ' , MDFR_CTRL , change_to_build_panel ) ;
bind ( mappings , ' , ' , MDFR_CTRL , close_build_panel ) ;
2017-11-22 20:05:58 +00:00
bind ( mappings , ' n ' , MDFR_CTRL , goto_next_jump_sticky ) ;
bind ( mappings , ' N ' , MDFR_CTRL , goto_prev_jump_sticky ) ;
bind ( mappings , ' M ' , MDFR_CTRL , goto_first_jump_sticky ) ;
2017-11-18 22:40:10 +00:00
bind ( mappings , ' m ' , MDFR_CTRL , build_in_build_panel ) ;
bind ( mappings , ' z ' , MDFR_CTRL , execute_any_cli ) ;
bind ( mappings , ' Z ' , MDFR_CTRL , execute_previous_cli ) ;
bind ( mappings , ' x ' , MDFR_CTRL , execute_arbitrary_command ) ;
bind ( mappings , ' s ' , MDFR_CTRL , show_scrollbar ) ;
bind ( mappings , ' w ' , MDFR_CTRL , hide_scrollbar ) ;
bind ( mappings , ' b ' , MDFR_CTRL , toggle_filebar ) ;
bind ( mappings , ' @ ' , MDFR_CTRL , toggle_mouse ) ;
bind ( mappings , key_page_up , MDFR_CMND , toggle_fullscreen ) ;
bind ( mappings , ' E ' , MDFR_CTRL , exit_4coder ) ;
2017-11-21 20:07:05 +00:00
bind ( mappings , ' + ' , MDFR_CTRL , increase_face_size ) ;
bind ( mappings , ' - ' , MDFR_CTRL , decrease_face_size ) ;
2017-11-18 22:40:10 +00:00
bind ( mappings , key_f1 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f2 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f3 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f4 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f5 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f6 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f7 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f8 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f9 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f10 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f11 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f12 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f13 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f14 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f15 , MDFR_NONE , project_fkey_command ) ;
bind ( mappings , key_f16 , MDFR_NONE , project_fkey_command ) ;
end_map ( mappings ) ;
// NOTE(allen): FILE
2017-11-22 20:05:58 +00:00
begin_map ( mappings , mapid_file , " The following bindings apply in general text files and most apply in code files, but some are overriden by other commands specific to code files. " ) ;
2017-11-18 22:40:10 +00:00
bind_vanilla_keys ( mappings , MDFR_NONE , write_character ) ;
bind_vanilla_keys ( mappings , MDFR_ALT , write_character ) ;
bind ( mappings , key_mouse_left , MDFR_NONE , click_set_cursor ) ;
bind ( mappings , key_mouse_left_release , MDFR_NONE , click_set_mark ) ;
bind ( mappings , key_mouse_right , MDFR_NONE , click_set_mark ) ;
bind ( mappings , key_left , MDFR_NONE , move_left ) ;
bind ( mappings , key_right , MDFR_NONE , move_right ) ;
bind ( mappings , key_del , MDFR_NONE , delete_char ) ;
bind ( mappings , key_del , MDFR_SHIFT , delete_char ) ;
bind ( mappings , key_back , MDFR_NONE , backspace_char ) ;
bind ( mappings , key_back , MDFR_SHIFT , backspace_char ) ;
bind ( mappings , key_up , MDFR_NONE , move_up ) ;
bind ( mappings , key_down , MDFR_NONE , move_down ) ;
bind ( mappings , key_end , MDFR_NONE , seek_end_of_line ) ;
bind ( mappings , key_home , MDFR_NONE , seek_beginning_of_line ) ;
bind ( mappings , key_page_up , MDFR_NONE , page_up ) ;
bind ( mappings , key_page_down , MDFR_NONE , page_down ) ;
bind ( mappings , key_right , MDFR_CMND , seek_whitespace_right ) ;
bind ( mappings , key_left , MDFR_CMND , seek_whitespace_left ) ;
bind ( mappings , key_up , MDFR_CMND , seek_whitespace_up_end_line ) ;
bind ( mappings , key_down , MDFR_CMND , seek_whitespace_down_end_line ) ;
bind ( mappings , key_back , MDFR_CMND , backspace_word ) ;
bind ( mappings , key_del , MDFR_CMND , delete_word ) ;
bind ( mappings , key_back , MDFR_CTRL , snipe_token_or_word ) ;
bind ( mappings , key_del , MDFR_CTRL , snipe_token_or_word_right ) ;
bind ( mappings , ' / ' , MDFR_CMND , set_mark ) ;
bind ( mappings , ' a ' , MDFR_CMND , replace_in_range ) ;
bind ( mappings , ' c ' , MDFR_CMND , copy ) ;
bind ( mappings , ' d ' , MDFR_CMND , delete_range ) ;
2017-11-21 18:25:19 +00:00
bind ( mappings , ' D ' , MDFR_CMND , delete_line ) ;
2017-11-18 22:40:10 +00:00
bind ( mappings , ' e ' , MDFR_CMND , center_view ) ;
bind ( mappings , ' E ' , MDFR_CMND , left_adjust_view ) ;
bind ( mappings , ' f ' , MDFR_CMND , search ) ;
bind ( mappings , ' F ' , MDFR_CMND , list_all_locations ) ;
bind ( mappings , ' F ' , MDFR_CTRL , list_all_substring_locations_case_insensitive ) ;
bind ( mappings , ' g ' , MDFR_CMND , goto_line ) ;
2017-11-21 18:25:19 +00:00
bind ( mappings , ' G ' , MDFR_CMND , list_all_locations_of_selection ) ;
2017-11-18 22:40:10 +00:00
bind ( mappings , ' j ' , MDFR_CMND , to_lowercase ) ;
bind ( mappings , ' K ' , MDFR_CMND , kill_buffer ) ;
bind ( mappings , ' l ' , MDFR_CMND , toggle_line_wrap ) ;
2017-11-21 18:25:19 +00:00
bind ( mappings , ' L ' , MDFR_CMND , duplicate_line ) ;
2017-11-18 22:40:10 +00:00
bind ( mappings , ' m ' , MDFR_CMND , cursor_mark_swap ) ;
bind ( mappings , ' O ' , MDFR_CMND , reopen ) ;
bind ( mappings , ' q ' , MDFR_CMND , query_replace ) ;
bind ( mappings , ' Q ' , MDFR_CMND , query_replace_identifier ) ;
bind ( mappings , ' r ' , MDFR_CMND , reverse_search ) ;
bind ( mappings , ' s ' , MDFR_CMND , save ) ;
bind ( mappings , ' t ' , MDFR_CMND , search_identifier ) ;
bind ( mappings , ' T ' , MDFR_CMND , list_all_locations_of_identifier ) ;
bind ( mappings , ' u ' , MDFR_CMND , to_uppercase ) ;
bind ( mappings , ' v ' , MDFR_CMND , paste_and_indent ) ;
bind ( mappings , ' v ' , MDFR_CTRL , toggle_virtual_whitespace ) ;
bind ( mappings , ' V ' , MDFR_CMND , paste_next_and_indent ) ;
bind ( mappings , ' x ' , MDFR_CMND , cut ) ;
bind ( mappings , ' y ' , MDFR_CMND , redo ) ;
bind ( mappings , ' z ' , MDFR_CMND , undo ) ;
bind ( mappings , ' 2 ' , MDFR_CMND , decrease_line_wrap ) ;
bind ( mappings , ' 3 ' , MDFR_CMND , increase_line_wrap ) ;
bind ( mappings , ' ? ' , MDFR_CMND , toggle_show_whitespace ) ;
bind ( mappings , ' ~ ' , MDFR_CMND , clean_all_lines ) ;
2017-11-22 20:05:58 +00:00
bind ( mappings , ' \n ' , MDFR_NONE , newline_or_goto_position_sticky ) ;
bind ( mappings , ' \n ' , MDFR_SHIFT , newline_or_goto_position_same_panel_sticky ) ;
2017-11-21 20:07:05 +00:00
bind ( mappings , ' ' , MDFR_SHIFT , write_character ) ;
2017-11-18 22:40:10 +00:00
end_map ( mappings ) ;
// NOTE(allen): CODE
2017-11-22 20:05:58 +00:00
begin_map ( mappings , default_code_map , " The following commands only apply in files where the lexer (syntax highlighting) is turned on. " ) ;
2017-11-18 22:40:10 +00:00
inherit_map ( mappings , mapid_file ) ;
bind ( mappings , key_right , MDFR_CMND , seek_alphanumeric_or_camel_right ) ;
bind ( mappings , key_left , MDFR_CMND , seek_alphanumeric_or_camel_left ) ;
bind ( mappings , ' \n ' , MDFR_NONE , write_and_auto_tab ) ;
bind ( mappings , ' \n ' , MDFR_SHIFT , write_and_auto_tab ) ;
bind ( mappings , ' } ' , MDFR_NONE , write_and_auto_tab ) ;
bind ( mappings , ' ) ' , MDFR_NONE , write_and_auto_tab ) ;
bind ( mappings , ' ] ' , MDFR_NONE , write_and_auto_tab ) ;
bind ( mappings , ' ; ' , MDFR_NONE , write_and_auto_tab ) ;
bind ( mappings , ' # ' , MDFR_NONE , write_and_auto_tab ) ;
bind ( mappings , ' \t ' , MDFR_NONE , word_complete ) ;
bind ( mappings , ' \t ' , MDFR_CMND , auto_tab_range ) ;
bind ( mappings , ' \t ' , MDFR_SHIFT , auto_tab_line_at_cursor ) ;
bind ( mappings , ' h ' , MDFR_CTRL , write_hack ) ;
bind ( mappings , ' r ' , MDFR_CTRL , write_block ) ;
bind ( mappings , ' t ' , MDFR_CTRL , write_todo ) ;
bind ( mappings , ' y ' , MDFR_CTRL , write_note ) ;
2017-11-21 18:25:19 +00:00
2017-11-18 22:40:10 +00:00
bind ( mappings , ' [ ' , MDFR_CMND , open_long_braces ) ;
bind ( mappings , ' { ' , MDFR_CMND , open_long_braces_semicolon ) ;
bind ( mappings , ' } ' , MDFR_CMND , open_long_braces_break ) ;
2017-11-21 18:25:19 +00:00
bind ( mappings , ' [ ' , MDFR_CTRL , highlight_surrounding_scope ) ;
bind ( mappings , ' ] ' , MDFR_CTRL , highlight_prev_scope_absolute ) ;
bind ( mappings , ' \' ' , MDFR_CTRL , highlight_next_scope_absolute ) ;
bind ( mappings , ' / ' , MDFR_CTRL , place_in_scope ) ;
bind ( mappings , ' - ' , MDFR_CTRL , delete_current_scope ) ;
bind ( mappings , ' j ' , MDFR_CTRL , scope_absorb_down ) ;
2017-11-18 22:40:10 +00:00
bind ( mappings , ' i ' , MDFR_CTRL , if0_off ) ;
2017-11-21 18:25:19 +00:00
2017-11-18 22:40:10 +00:00
bind ( mappings , ' 1 ' , MDFR_CTRL , open_file_in_quotes ) ;
bind ( mappings , ' 2 ' , MDFR_CTRL , open_matching_file_cpp ) ;
bind ( mappings , ' 0 ' , MDFR_CMND , write_zero_struct ) ;
bind ( mappings , ' I ' , MDFR_CMND , list_all_functions_current_buffer ) ;
end_map ( mappings ) ;
}
end_mapping ( mappings ) ;
// Generate remapping from mapping array
FILE * out = fopen ( REMAPPING_FILE , " wb " ) ;
if ( out ! = 0 ) {
fprintf ( out , " #if defined(CUSTOM_COMMAND_SIG) \n " ) ;
for ( Mapping * mapping = mappings - > first_mapping ;
mapping ! = 0 ;
mapping = mapping - > next ) {
fprintf ( out , " void fill_keys_%s(Bind_Helper *context){ \n " , mapping - > name ) ;
for ( Sub_Map * sub_map = mapping - > first_sub_map ;
sub_map ! = 0 ;
sub_map = sub_map - > next ) {
fprintf ( out , " begin_map(context, %s); \n " , sub_map - > name ) ;
if ( sub_map - > parent ! = 0 ) {
fprintf ( out , " inherit_map(context, %s); \n " , sub_map - > parent ) ;
}
for ( Key_Bind * bind = sub_map - > first_key_bind ;
bind ! = 0 ;
bind = bind - > next ) {
char mdfr_str [ 256 ] ;
String m = make_fixed_width_string ( mdfr_str ) ;
b32 has_base = false ;
if ( bind - > modifiers & MDFR_CTRL ) {
if ( has_base ) {
append ( & m , " | " ) ;
}
append ( & m , " MDFR_CTRL " ) ;
}
if ( bind - > modifiers & MDFR_ALT ) {
if ( has_base ) {
append ( & m , " | " ) ;
}
append ( & m , " MDFR_ALT " ) ;
}
if ( bind - > modifiers & MDFR_CMND ) {
if ( has_base ) {
append ( & m , " | " ) ;
}
append ( & m , " MDFR_CMND " ) ;
}
if ( bind - > modifiers & MDFR_SHIFT ) {
if ( has_base ) {
append ( & m , " | " ) ;
}
append ( & m , " MDFR_SHIFT " ) ;
}
if ( bind - > modifiers = = 0 ) {
append ( & m , " MDFR_NONE " ) ;
}
terminate_with_null ( & m ) ;
if ( bind - > vanilla ) {
if ( bind - > modifiers = = 0 ) {
fprintf ( out , " bind_vanilla_keys(context, %s); \n " , bind - > command ) ;
}
else {
fprintf ( out , " bind_vanilla_keys(context, %s, %s); \n " , mdfr_str , bind - > command ) ;
}
}
else {
char key_str_space [ 16 ] ;
char * key_str = 0 ;
switch ( bind - > keycode ) {
# define KeyCase(n) case key_##n: key_str = "key_" #n; break;
KEY_LIST ( KeyCase )
# undef KeyCase
}
if ( key_str = = 0 ) {
key_str = key_str_space ;
if ( bind - > keycode = = ' \n ' ) {
memcpy ( key_str_space , " ' \\ n' " , 5 ) ;
}
else if ( bind - > keycode = = ' \t ' ) {
memcpy ( key_str_space , " ' \\ t' " , 5 ) ;
}
else if ( bind - > keycode = = ' \' ' ) {
memcpy ( key_str_space , " ' \\ '' " , 5 ) ;
}
else if ( bind - > keycode = = ' \\ ' ) {
memcpy ( key_str_space , " ' \\ \\ ' " , 5 ) ;
}
else {
Assert ( bind - > keycode < = 127 ) ;
key_str_space [ 0 ] = ' \' ' ;
key_str_space [ 1 ] = ( char ) bind - > keycode ;
key_str_space [ 2 ] = ' \' ' ;
key_str_space [ 3 ] = 0 ;
}
}
fprintf ( out , " bind(context, %s, %s, %s); \n " ,
key_str ,
mdfr_str ,
bind - > command ) ;
}
}
fprintf ( out , " end_map(context); \n " ) ;
}
fprintf ( out , " } \n " ) ;
}
fprintf ( out , " #endif \n " ) ;
fprintf ( out ,
" #if defined(CUSTOM_COMMAND_SIG) \n "
" #define LINK_PROCS(x) x \n "
" #else \n "
" #define LINK_PROCS(x) \n "
" #endif \n " ) ;
fprintf ( out ,
" struct Meta_Key_Bind{ \n "
" int32_t vanilla; \n "
" uint32_t keycode; \n "
" uint32_t modifiers; \n "
" char *command; \n "
" int32_t command_len; \n "
" LINK_PROCS(Custom_Command_Function *proc;) \n "
" }; \n "
" struct Meta_Sub_Map{ \n "
" char *name; \n "
" int32_t name_len; \n "
" char *description; \n "
" int32_t description_len; \n "
" char *parent; \n "
" int32_t parent_len; \n "
" Meta_Key_Bind *binds; \n "
" int32_t bind_count; \n "
" }; \n "
" struct Meta_Mapping{ \n "
" char *name; \n "
" int32_t name_len; \n "
" char *description; \n "
" int32_t description_len; \n "
" Meta_Sub_Map *sub_maps; \n "
" int32_t sub_map_count; \n "
" LINK_PROCS(void (*fill_keys_proc)(Bind_Helper *context);) \n "
" }; \n " ) ;
for ( Mapping * mapping = mappings - > first_mapping ;
mapping ! = 0 ;
mapping = mapping - > next ) {
for ( Sub_Map * sub_map = mapping - > first_sub_map ;
sub_map ! = 0 ;
sub_map = sub_map - > next ) {
if ( sub_map - > key_bind_count > 0 ) {
fprintf ( out , " static Meta_Key_Bind fcoder_binds_for_%s_%s[%d] = { \n " ,
mapping - > name , sub_map - > name , sub_map - > key_bind_count ) ;
for ( Key_Bind * bind = sub_map - > first_key_bind ;
bind ! = 0 ;
bind = bind - > next ) {
fprintf ( out ,
" {%d, %u, %u, \" %s \" , %d, LINK_PROCS(%s)}, \n " ,
bind - > vanilla , bind - > keycode , bind - > modifiers ,
bind - > command , bind - > command_len ,
bind - > command ) ;
}
fprintf ( out , " }; \n " ) ;
}
}
fprintf ( out , " static Meta_Sub_Map fcoder_submaps_for_%s[%d] = { \n " ,
mapping - > name , mapping - > sub_map_count ) ;
for ( Sub_Map * sub_map = mapping - > first_sub_map ;
sub_map ! = 0 ;
sub_map = sub_map - > next ) {
if ( sub_map - > parent ! = 0 ) {
fprintf ( out , " { \" %s \" , %d, \" %s \" , %d, \" %s \" , %d, fcoder_binds_for_%s_%s, %d}, \n " ,
sub_map - > name , sub_map - > name_len ,
sub_map - > description , sub_map - > description_len ,
sub_map - > parent , sub_map - > parent_len ,
mapping - > name , sub_map - > name ,
sub_map - > key_bind_count ) ;
}
else {
fprintf ( out , " { \" %s \" , %d, \" %s \" , %d, 0, 0, fcoder_binds_for_%s_%s, %d}, \n " ,
sub_map - > name , sub_map - > name_len ,
sub_map - > description , sub_map - > description_len ,
mapping - > name , sub_map - > name ,
sub_map - > key_bind_count ) ;
}
}
fprintf ( out , " }; \n " ) ;
}
fprintf ( out , " static Meta_Mapping fcoder_meta_maps[%d] = { \n " ,
mappings - > mapping_count ) ;
for ( Mapping * mapping = mappings - > first_mapping ;
mapping ! = 0 ;
mapping = mapping - > next ) {
fprintf ( out , " { \" %s \" , %d, \" %s \" , %d, fcoder_submaps_for_%s, %d, LINK_PROCS(fill_keys_%s)}, \n " ,
mapping - > name , mapping - > name_len ,
mapping - > description , mapping - > description_len ,
mapping - > name ,
mapping - > sub_map_count ,
mapping - > name ) ;
}
fprintf ( out , " }; \n " ) ;
fclose ( out ) ;
}
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-11-18 22:40:10 +00:00
generate_remapping_code_and_data ( ) ;
2017-07-10 17:05:30 +00:00
META_FINISH ( ) ;
2016-02-25 23:52:11 +00:00
}
// BOTTOM