/* 4coder_project_commands.cpp - commands for loading and using a project. */ // TOP global Project current_project = {}; global Arena current_project_arena = {}; /////////////////////////////// function Project_File_Pattern_Array get_pattern_array_from_string_array(Arena *arena, String_Const_u8_Array list){ Project_File_Pattern_Array array = {}; array.count = list.count; array.patterns = push_array(arena, Project_File_Pattern, list.count); for (i32 i = 0; i < list.count; ++i){ String_Const_u8 str = push_u8_stringf(arena, "*.%.*s", string_expand(list.strings[i])); array.patterns[i].absolutes = string_split_wildcards(arena, str); } return(array); } /////////////////////////////// function void close_all_files_with_extension(Application_Links *app, String_Const_u8_Array extension_array){ Scratch_Block scratch(app); i32 buffers_to_close_max = Thousand(100); Buffer_ID *buffers_to_close = push_array(scratch, Buffer_ID, buffers_to_close_max); b32 do_repeat = false; do{ i32 buffers_to_close_count = 0; do_repeat = false; for (Buffer_ID buffer = get_buffer_next(app, 0, Access_Always); buffer != 0; buffer = get_buffer_next(app, buffer, Access_Always)){ b32 is_match = true; if (extension_array.count > 0){ Temp_Memory name_temp = begin_temp(scratch); String_Const_u8 file_name = push_buffer_file_name(app, scratch, buffer); is_match = false; if (file_name.size > 0){ String_Const_u8 extension = string_file_extension(file_name); for (i32 i = 0; i < extension_array.count; ++i){ if (string_match(extension, extension_array.strings[i])){ is_match = true; break; } } } end_temp(name_temp); } if (is_match){ if (buffers_to_close_count >= buffers_to_close_max){ do_repeat = true; break; } buffers_to_close[buffers_to_close_count++] = buffer; } } for (i32 i = 0; i < buffers_to_close_count; ++i){ buffer_kill(app, buffers_to_close[i], BufferKill_AlwaysKill); } }while(do_repeat); } function b32 match_in_pattern_array(String_Const_u8 string, Project_File_Pattern_Array array){ b32 found_match = false; Project_File_Pattern *pattern = array.patterns; for (i32 i = 0; i < array.count; ++i, ++pattern){ if (string_wildcard_match(pattern->absolutes, string, StringMatch_Exact)){ found_match = true; break; } } return(found_match); } function void open_files_pattern_match__recursive(Application_Links *app, String_Const_u8 path, Project_File_Pattern_Array whitelist, Project_File_Pattern_Array blacklist, u32 flags){ Scratch_Block scratch(app); ProfileScopeNamed(app, "get file list", profile_get_file_list); File_List list = system_get_file_list(scratch, path); ProfileCloseNow(profile_get_file_list); File_Info **info = list.infos; for (u32 i = 0; i < list.count; ++i, ++info){ String_Const_u8 file_name = (**info).file_name; if (HasFlag((**info).attributes.flags, FileAttribute_IsDirectory)){ if ((flags & OpenAllFilesFlag_Recursive) == 0) continue; if (match_in_pattern_array(file_name, blacklist)) continue; String_Const_u8 new_path = push_u8_stringf(scratch, "%.*s%.*s/", string_expand(path), string_expand(file_name)); open_files_pattern_match__recursive(app, new_path, whitelist, blacklist, flags); } else{ if (!match_in_pattern_array(file_name, whitelist)){ continue; } if (match_in_pattern_array(file_name, blacklist)){ continue; } String_Const_u8 full_path = push_u8_stringf(scratch, "%.*s%.*s", string_expand(path), string_expand(file_name)); create_buffer(app, full_path, 0); } } } function Project_File_Pattern_Array get_standard_blacklist(Arena *arena){ String_Const_u8 dot = string_u8_litexpr(".*"); String_Const_u8_Array black_array = {}; black_array.strings = ˙ black_array.count = 1; return(get_pattern_array_from_string_array(arena, black_array)); } function void open_files_pattern_match(Application_Links *app, String_Const_u8 dir, Project_File_Pattern_Array whitelist, Project_File_Pattern_Array blacklist, u32 flags){ ProfileScope(app, "open all files in directory pattern"); Scratch_Block scratch(app); String_Const_u8 directory = dir; if (!character_is_slash(string_get_character(directory, directory.size - 1))){ directory = push_u8_stringf(scratch, "%.*s/", string_expand(dir)); } open_files_pattern_match__recursive(app, directory, whitelist, blacklist, flags); } function void open_files_with_extension(Application_Links *app, String_Const_u8 dir, String_Const_u8_Array array, u32 flags){ Scratch_Block scratch(app); Project_File_Pattern_Array whitelist = get_pattern_array_from_string_array(scratch, array); Project_File_Pattern_Array blacklist = get_standard_blacklist(scratch); open_files_pattern_match(app, dir, whitelist, blacklist, flags); } function void open_all_files_in_hot_with_extension(Application_Links *app, String_Const_u8_Array array, u32 flags){ Scratch_Block scratch(app); String_Const_u8 hot = push_hot_directory(app, scratch); String_Const_u8 directory = hot; if (!character_is_slash(string_get_character(hot, hot.size - 1))){ directory = push_u8_stringf(scratch, "%.*s/", string_expand(hot)); } open_files_with_extension(app, hot, array, flags); } /////////////////////////////// #if OS_WINDOWS #define PlatformName "win" #elif OS_LINUX #define PlatformName "linux" #elif OS_MAC #define PlatformName "mac" #else # error no project configuration names for this platform #endif function void parse_project__extract_pattern_array(Arena *arena, Config *parsed, char *root_variable_name, Project_File_Pattern_Array *array_out){ Config_Compound *compound = 0; if (config_compound_var(parsed, root_variable_name, 0, &compound)){ Config_Get_Result_List list = typed_string_array_reference_list(arena, parsed, compound); array_out->patterns = push_array(arena, Project_File_Pattern, list.count); array_out->count = list.count; i32 i = 0; for (Config_Get_Result_Node *node = list.first; node != 0; node = node->next, i += 1){ String_Const_u8 str = push_string_copy(arena, node->result.string); array_out->patterns[i].absolutes = string_split_wildcards(arena, str); } } } function Project_OS_Match_Level parse_project__version_1__os_match(String_Const_u8 str, String_Const_u8 this_os_str){ if (string_match(str, this_os_str)){ return(ProjectOSMatchLevel_ActiveMatch); } else if (string_match(str, string_u8_litexpr("all"))){ return(ProjectOSMatchLevel_ActiveMatch); } else if (string_match(str, string_u8_litexpr("default"))){ return(ProjectOSMatchLevel_PassiveMatch); } return(ProjectOSMatchLevel_NoMatch); } function Project* parse_project__config_data__version_1(Application_Links *app, Arena *arena, String_Const_u8 root_dir, Config *parsed){ Project *project = push_array_zero(arena, Project, 1); // Set new project directory project->dir = push_string_copy(arena, root_dir); // project_name { String_Const_u8 str = {}; if (config_string_var(parsed, "project_name", 0, &str)){ project->name = push_string_copy(arena, str); } else{ project->name = SCu8(""); } } // patterns parse_project__extract_pattern_array(arena, parsed, "patterns", &project->pattern_array); // blacklist_patterns parse_project__extract_pattern_array(arena, parsed, "blacklist_patterns", &project->blacklist_pattern_array); // load_paths { Config_Compound *compound = 0; if (config_compound_var(parsed, "load_paths", 0, &compound)){ b32 found_match = false; Config_Compound *best_paths = 0; for (i32 i = 0;; ++i){ Config_Iteration_Step_Result result = typed_array_iteration_step(parsed, compound, ConfigRValueType_Compound, i); if (result.step == Iteration_Skip){ continue; } else if (result.step == Iteration_Quit){ break; } Config_Compound *paths_option = result.get.compound; Config_Compound *paths = 0; if (config_compound_compound_member(parsed, paths_option, "paths", 0, &paths)){ String_Const_u8 str = {}; if (config_compound_string_member(parsed, paths_option, "os", 1, &str)){ Project_OS_Match_Level r = parse_project__version_1__os_match(str, string_u8_litexpr(PlatformName)); if (r == ProjectOSMatchLevel_ActiveMatch){ found_match = true; best_paths = paths; break; } else if (r == ProjectOSMatchLevel_PassiveMatch){ if (!found_match){ found_match = true; best_paths = paths; } } } } } if (found_match){ Config_Get_Result_List list = typed_compound_array_reference_list(arena, parsed, best_paths); project->load_path_array.paths = push_array(arena, Project_File_Load_Path, list.count); project->load_path_array.count = list.count; Project_File_Load_Path *dst = project->load_path_array.paths; for (Config_Get_Result_Node *node = list.first; node != 0; node = node->next, ++dst){ Config_Compound *src = node->result.compound; block_zero_struct(dst); dst->recursive = true; dst->relative = true; String_Const_u8 str = {}; if (config_compound_string_member(parsed, src, "path", 0, &str)){ dst->path = push_string_copy(arena, str); } config_compound_bool_member(parsed, src, "recursive", 1, &dst->recursive); config_compound_bool_member(parsed, src, "relative", 2, &dst->relative); } } } } // command_list { Config_Compound *compound = 0; if (config_compound_var(parsed, "command_list", 0, &compound)){ Config_Get_Result_List list = typed_compound_array_reference_list(arena, parsed, compound); project->command_array.commands = push_array(arena, Project_Command, list.count); project->command_array.count = list.count; Project_Command *dst = project->command_array.commands; for (Config_Get_Result_Node *node = list.first; node != 0; node = node->next, ++dst){ u8 *pos = node->result.pos; Config_Compound *src = node->result.compound; block_zero_struct(dst); b32 can_emit_command = true; Config_Get_Result cmd_result = {}; Config_Compound *cmd_set = 0; u8 *cmd_pos = 0; String_Const_u8 cmd_str = {}; String_Const_u8 out = {}; b32 footer_panel = false; b32 save_dirty_files = true; b32 cursor_at_end = false; String_Const_u8 name = {}; if (!config_compound_string_member(parsed, src, "name", 0, &name)){ can_emit_command = false; def_config_push_error(arena, parsed, pos, "a command must have a string type name member"); goto finish_command; } cmd_result = config_compound_member(parsed, src, string_u8_litexpr("cmd"), 1); if (cmd_result.success && cmd_result.type == ConfigRValueType_Compound){ cmd_set = cmd_result.compound; cmd_pos = cmd_result.pos; } else{ can_emit_command = false; def_config_push_error(arena, parsed, pos, "a command must have an array type cmd member"); goto finish_command; } can_emit_command = false; for (i32 j = 0;; ++j){ Config_Iteration_Step_Result result = typed_array_iteration_step(parsed, cmd_set, ConfigRValueType_Compound, j); if (result.step == Iteration_Skip){ continue; } else if (result.step == Iteration_Quit){ break; } Config_Compound *cmd_option = result.get.compound; String_Const_u8 cmd = {}; if (config_compound_string_member(parsed, cmd_option, "cmd", 0, &cmd)){ String_Const_u8 str = {}; if (config_compound_string_member(parsed, cmd_option, "os", 1, &str)){ Project_OS_Match_Level r = parse_project__version_1__os_match(str, string_u8_litexpr(PlatformName)); if (r == ProjectOSMatchLevel_ActiveMatch){ can_emit_command = true; cmd_str = cmd; break; } else if (r == ProjectOSMatchLevel_PassiveMatch){ if (!can_emit_command){ can_emit_command = true; cmd_str = cmd; } } } } } if (!can_emit_command){ def_config_push_error(arena, parsed, cmd_pos, "no usable command strings found in cmd"); goto finish_command; } config_compound_string_member(parsed, src, "out", 2, &out); config_compound_bool_member(parsed, src, "footer_panel", 3, &footer_panel); config_compound_bool_member(parsed, src, "save_dirty_files", 4, &save_dirty_files); config_compound_bool_member(parsed, src, "cursor_at_end", 5, &cursor_at_end); dst->name = push_string_copy(arena, name); dst->cmd = push_string_copy(arena, cmd_str); dst->out = push_string_copy(arena, out); dst->footer_panel = footer_panel; dst->save_dirty_files = save_dirty_files; dst->cursor_at_end = cursor_at_end; finish_command:; } } } // fkey_command { for (i32 i = 1; i <= 16; ++i){ String_Const_u8 name = {}; i32 index = -1; if (config_string_var(parsed, "fkey_command", i, &name)){ i32 count = project->command_array.count; Project_Command *command_ptr = project->command_array.commands; for (i32 j = 0; j < count; ++j, ++command_ptr){ if (string_match(command_ptr->name, name)){ index = j; break; } } } project->fkey_commands[i - 1] = index; } } project->loaded = true; return(project); } function Project* parse_project__config_data(Application_Links *app, Arena *arena, String_Const_u8 file_dir, Config *parsed){ i32 version = 0; if (parsed->version != 0){ version = *parsed->version; } Project *result = 0; switch (version){ case 1: { result = parse_project__config_data__version_1(app, arena, file_dir, parsed); }break; } return(result); } function Project_Parse_Result parse_project__data(Application_Links *app, Arena *arena, String_Const_u8 file_name, Data raw_data, String_Const_u8 file_dir){ String_Const_u8 data = SCu8(raw_data); Project_Parse_Result result = {}; Token_Array array = token_array_from_text(app, arena, data); if (array.tokens != 0){ result.parsed = def_config_parse(app, arena, file_name, data, array); if (result.parsed != 0){ result.project = parse_project__config_data(app, arena, file_dir, result.parsed); } } return(result); } function Project_Parse_Result parse_project__nearest_file(Application_Links *app, Arena *arena){ Project_Parse_Result result = {}; Temp_Memory restore_point = begin_temp(arena); String_Const_u8 project_path = push_hot_directory(app, arena); if (project_path.size == 0){ print_message(app, string_u8_litexpr("The hot directory is empty, cannot search for a project.\n")); } else{ File_Name_Data dump = dump_file_search_up_path(app, arena, project_path, string_u8_litexpr("project.4coder")); if (dump.data.data != 0){ String_Const_u8 project_root = string_remove_last_folder(dump.file_name); result = parse_project__data(app, arena, dump.file_name, dump.data, project_root); } else{ List_String_Const_u8 list = {}; string_list_push(arena, &list, string_u8_litexpr("Did not find project.4coder. ")); if (current_project.loaded){ string_list_push(arena, &list, string_u8_litexpr("Continuing with: ")); if (current_project.name.size > 0){ string_list_push(arena, &list, current_project.name); } else{ string_list_push(arena, &list, current_project.dir); } } else{ string_list_push(arena, &list, string_u8_litexpr("Continuing without a project.")); } string_list_push(arena, &list, string_u8_litexpr("\n")); String_Const_u8 message = string_list_flatten(arena, list); print_message(app, message); end_temp(restore_point); } } return(result); } function void project_deep_copy__pattern_array(Arena *arena, Project_File_Pattern_Array *src_array, Project_File_Pattern_Array *dst_array){ i32 pattern_count = src_array->count; dst_array->patterns = push_array(arena, Project_File_Pattern, pattern_count); dst_array->count = pattern_count; Project_File_Pattern *dst = dst_array->patterns; Project_File_Pattern *src = src_array->patterns; for (i32 i = 0; i < pattern_count; ++i, ++dst, ++src){ for (Node_String_Const_u8 *node = src->absolutes.first; node != 0; node = node->next){ String_Const_u8 string = push_string_copy(arena, node->string); string_list_push(arena, &dst->absolutes, string); } } } function Project project_deep_copy__inner(Arena *arena, Project *project){ Project result = {}; result.dir = push_string_copy(arena, project->dir); result.name = push_string_copy(arena, project->name); project_deep_copy__pattern_array(arena, &project->pattern_array, &result.pattern_array); project_deep_copy__pattern_array(arena, &project->blacklist_pattern_array, &result.blacklist_pattern_array); { i32 path_count = project->load_path_array.count; result.load_path_array.paths = push_array(arena, Project_File_Load_Path, path_count); result.load_path_array.count = path_count; Project_File_Load_Path *dst = result.load_path_array.paths; Project_File_Load_Path *src = project->load_path_array.paths; for (i32 i = 0; i < path_count; ++i, ++dst, ++src){ dst->path = push_string_copy(arena, src->path); dst->recursive = src->recursive; dst->relative = src->relative; } } { i32 command_count = project->command_array.count; result.command_array.commands = push_array_zero(arena, Project_Command, command_count); result.command_array.count = command_count; Project_Command *dst = result.command_array.commands; Project_Command *src = project->command_array.commands; for (i32 i = 0; i < command_count; ++i, ++dst, ++src){ if (src->name.str != 0){ dst->name = push_string_copy(arena, src->name); } if (src->cmd.str != 0){ dst->cmd = push_string_copy(arena, src->cmd); } if (src->out.str != 0){ dst->out = push_string_copy(arena, src->out); } dst->footer_panel = src->footer_panel; dst->save_dirty_files = src->save_dirty_files; dst->cursor_at_end = src->cursor_at_end; } } block_copy_array(result.fkey_commands, project->fkey_commands); result.loaded = true; return(result); } function Project project_deep_copy(Arena *arena, Project *project){ Temp_Memory restore_point = begin_temp(arena); Project result = project_deep_copy__inner(arena, project); if (!result.loaded){ end_temp(restore_point); block_zero_struct(&result); } return(result); } function void config_feedback_file_pattern_array(Arena *arena, List_String_Const_u8 *list, char *name, Project_File_Pattern_Array *array){ string_list_pushf(arena, list, "%s = {\n", name); Project_File_Pattern *pattern = array->patterns; for (i32 i = 0; i < array->count; ++i, ++pattern){ string_list_push_u8_lit(arena, list, "\""); b32 is_first = true; for (Node_String_Const_u8 *node = pattern->absolutes.first; node != 0; node = node->next){ if (is_first){ string_list_push(arena, list, node->string); is_first = false; } else{ string_list_pushf(arena, list, "*%.*s", string_expand(node->string)); } } string_list_push_u8_lit(arena, list, "\",\n"); } string_list_push_u8_lit(arena, list, "};\n"); } function void config_feedback_file_load_path_array(Arena *arena, List_String_Const_u8 *list, char *name, Project_File_Load_Path_Array *array){ string_list_pushf(arena, list, "%s = {\n", name); Project_File_Load_Path *path = array->paths; for (i32 i = 0; i < array->count; ++i, ++path){ string_list_pushf(arena, list, "{ .path = \"%.*s\", .recursive = %s, .relative = %s, },\n", string_expand(path->path), (char*)(path->recursive?"true":"false"), (char*)(path->relative?"true":"false")); } string_list_push_u8_lit(arena, list, "};\n"); } function void config_feedback_command_array(Arena *arena, List_String_Const_u8 *list, char *name, Project_Command_Array *array){ string_list_pushf(arena, list, "%s = {\n", name); Project_Command *command = array->commands; for (i32 i = 0; i < array->count; ++i, ++command){ string_list_pushf(arena, list, "{ .name = \"%.*s\", .cmd = \"%.*s\", .out = \"%.*s\", " ".footer_panel = %s, .save_dirty_files = %s, .cursor_at_end = %s, },\n", string_expand(command->name), string_expand(command->cmd), string_expand(command->out), (char*)(command->footer_panel?"true":"false"), (char*)(command->save_dirty_files?"true":"false"), (char*)(command->cursor_at_end?"true":"false")); } string_list_push_u8_lit(arena, list, "};\n"); } // NOTE(allen): string list join ("flatten") doesn't really work... :( function String_Const_u8 prj_join_pattern_string(Arena *arena, List_String_Const_u8 list){ String_Const_u8 pattern_string = {}; pattern_string.size = list.total_size + list.node_count - 1; pattern_string.str = push_array(arena, u8, pattern_string.size + 1); u8 *ptr = pattern_string.str; Node_String_Const_u8 *node = list.first; if (node != 0){ for (;;){ block_copy(ptr, node->string.str, node->string.size); ptr += node->string.size; node = node->next; if (node == 0){ break; } *ptr = '*'; ptr += 1; } } pattern_string.str[pattern_string.size] = 0; return(pattern_string); } function void set_current_project(Application_Links *app, Project *project, Config *parsed){ b32 print_feedback = false; Scratch_Block scratch(app); if (parsed != 0 && project != 0){ if (current_project_arena.base_allocator == 0){ current_project_arena = make_arena_system(); } // Copy project to current_project linalloc_clear(¤t_project_arena); Project new_project = project_deep_copy(¤t_project_arena, project); if (new_project.loaded){ current_project = new_project; print_feedback = true; // NOTE(allen): Set the normal search list's project slot def_search_project_path = current_project.dir; // Open all project files for (i32 i = 0; i < current_project.load_path_array.count; ++i){ Project_File_Load_Path *load_path = ¤t_project.load_path_array.paths[i]; u32 flags = 0; if (load_path->recursive){ flags |= OpenAllFilesFlag_Recursive; } Temp_Memory temp = begin_temp(scratch); String_Const_u8 path_str = load_path->path; String_Const_u8 file_dir = path_str; if (load_path->relative){ String_Const_u8 project_dir = current_project.dir; List_String_Const_u8 file_dir_list = {}; string_list_push(scratch, &file_dir_list, project_dir); string_list_push_overlap(scratch, &file_dir_list, '/', path_str); string_list_push_overlap(scratch, &file_dir_list, '/', SCu8()); file_dir = string_list_flatten(scratch, file_dir_list, StringFill_NullTerminate); } Project_File_Pattern_Array whitelist = current_project.pattern_array; Project_File_Pattern_Array blacklist = current_project.blacklist_pattern_array; open_files_pattern_match(app, file_dir, whitelist, blacklist, flags); end_temp(temp); } // Set window title if (project->name.size > 0){ Temp_Memory temp = begin_temp(scratch); String_Const_u8 builder = push_u8_stringf(scratch, "4coder project: %.*s", string_expand(project->name)); set_window_title(app, builder); end_temp(temp); } } else{ #define M "Failed to initialize new project; need more memory dedicated to the project system.\n" print_message(app, string_u8_litexpr(M)); #undef M } } else if (parsed != 0){ print_feedback = true; } if (project != 0){ Variable_Handle proj_var = {}; if (parsed->version == 0 || *parsed->version < 2){ print_message(app, string_u8_litexpr("Project variables converted from version 1 to version 2\n")); String_ID project_id = vars_save_string_lit("prj_config"); String_ID version_id = vars_save_string(string_litinit("version")); String_ID project_name_id = vars_save_string(string_litinit("project_name")); String_ID patterns_id = vars_save_string(string_litinit("patterns")); String_ID blacklist_patterns_id = vars_save_string(string_litinit("blacklist_patterns")); String_ID load_paths_id = vars_save_string(string_litinit("load_paths")); String_ID path_id = vars_save_string(string_litinit("path")); String_ID recursive_id = vars_save_string(string_litinit("recursive")); String_ID relative_id = vars_save_string(string_litinit("relative")); String_ID true_id = vars_save_string(string_litinit("true")); String_ID false_id = vars_save_string(string_litinit("false")); String_ID command_list_id = vars_save_string(string_litinit("command_list")); String_ID out_id = vars_save_string(string_litinit("out")); String_ID footer_panel_id = vars_save_string(string_litinit("footer_panel")); String_ID save_dirty_files_id = vars_save_string(string_litinit("save_dirty_files")); String_ID cursor_at_end_id = vars_save_string(string_litinit("cursor_at_end")); String_ID fkey_command_id = vars_save_string(string_litinit("fkey_command")); // TODO(allen): linux, mac String_ID os_id = vars_save_string(string_litinit("win"));; proj_var = vars_new_variable(vars_get_root(), project_id, vars_save_string(parsed->file_name)); if (parsed->version != 0){ String_Const_u8 version_str = push_stringf(scratch, "%d", *parsed->version); vars_new_variable(proj_var, version_id, vars_save_string(version_str)); } vars_new_variable(proj_var, project_name_id, vars_save_string(project->name)); // load paterns struct PatternVars{ String_ID id; Project_File_Pattern_Array array; }; PatternVars pattern_vars[] = { { patterns_id, project-> pattern_array}, {blacklist_patterns_id, project->blacklist_pattern_array}, }; PatternVars *pattern_var = pattern_vars; PatternVars *opl = pattern_vars + ArrayCount(pattern_vars); for (; pattern_var < opl; pattern_var += 1){ Variable_Handle patterns = vars_new_variable(proj_var, pattern_var->id); i32 count = pattern_var->array.count; Project_File_Pattern *pattern = pattern_var->array.patterns; for (i32 i = 0; i < count; i += 1, pattern += 1){ String_Const_u8 pattern_string = prj_join_pattern_string(scratch, pattern->absolutes); String_ID key = vars_save_string(push_stringf(scratch, "%d", i)); String_ID pattern_id = vars_save_string(pattern_string); vars_new_variable(patterns, key, pattern_id); } } // load paths { Variable_Handle load_paths = vars_new_variable(proj_var, load_paths_id); Variable_Handle os_var = vars_new_variable(load_paths, os_id); i32 count = project->load_path_array.count; Project_File_Load_Path *load_path = project->load_path_array.paths; for (i32 i = 0; i < count; i += 1, load_path += 1){ String_ID key = vars_save_string(push_stringf(scratch, "%d", i)); Variable_Handle path_var = vars_new_variable(os_var, key); vars_new_variable(path_var, path_id, vars_save_string(load_path->path)); vars_new_variable(path_var, recursive_id, load_path->recursive?true_id:false_id); vars_new_variable(path_var, relative_id, load_path->recursive?true_id:false_id); } } // commands { Variable_Handle cmds_var = vars_new_variable(proj_var, command_list_id); i32 count = project->command_array.count; Project_Command *cmd = project->command_array.commands; for (i32 i = 0; i < count; i += 1, cmd += 1){ Variable_Handle cmd_var = vars_new_variable(cmds_var, vars_save_string(cmd->name)); vars_new_variable(cmd_var, os_id, vars_save_string(cmd->cmd)); vars_new_variable(cmd_var, out_id, vars_save_string(cmd->out)); vars_new_variable(cmd_var, footer_panel_id, cmd->footer_panel?true_id:false_id); vars_new_variable(cmd_var, save_dirty_files_id, cmd->save_dirty_files?true_id:false_id); vars_new_variable(cmd_var, cursor_at_end_id, cmd->cursor_at_end?true_id:false_id); } } // fkey_commands { Variable_Handle fkeys_var = vars_new_variable(proj_var, fkey_command_id); for (i32 i = 0; i < 16; i += 1){ i32 cmd_index = project->fkey_commands[i]; if (0 <= cmd_index && cmd_index < project->command_array.count){ Project_Command *cmd = project->command_array.commands + cmd_index; if (cmd->name.size > 0){ String_ID key = vars_save_string(push_stringf(scratch, "%d", i)); String_ID val = vars_save_string(cmd->name); vars_new_variable(fkeys_var, key, val); } } } } } else{ proj_var = def_fill_var_from_config(app, vars_get_root(), vars_save_string_lit("prj_config"), parsed); } vars_print(app, proj_var); } if (print_feedback){ Temp_Memory temp = begin_temp(scratch); // NOTE(allen): errors String_Const_u8 error_text = config_stringize_errors(app, scratch, parsed); if (project == 0){ print_message(app, string_u8_litexpr("Could not instantiate project\n")); } if (error_text.size > 0){ print_message(app, string_u8_litexpr("Project errors:\n")); print_message(app, error_text); print_message(app, string_u8_litexpr("\n")); } end_temp(temp); } } function void set_current_project_from_data(Application_Links *app, String_Const_u8 file_name, Data data, String_Const_u8 file_dir){ Scratch_Block scratch(app); Project_Parse_Result project_parse = parse_project__data(app, scratch, file_name, data, file_dir); set_current_project(app, project_parse.project, project_parse.parsed); } function void set_current_project_from_nearest_project_file(Application_Links *app){ Scratch_Block scratch(app); Project_Parse_Result project_parse = parse_project__nearest_file(app, scratch); set_current_project(app, project_parse.project, project_parse.parsed); } function void exec_project_command(Application_Links *app, Project_Command *command){ if (command->cmd.size > 0){ b32 footer_panel = command->footer_panel; b32 save_dirty_files = command->save_dirty_files; b32 cursor_at_end = command->cursor_at_end; if (save_dirty_files){ save_all_dirty_buffers(app); } View_ID view = 0; Buffer_Identifier buffer_id = {}; u32 flags = CLI_OverlapWithConflict|CLI_SendEndSignal; if (cursor_at_end){ flags |= CLI_CursorAtEnd; } b32 set_fancy_font = false; if (command->out.size > 0){ buffer_id = buffer_identifier(command->out); if (footer_panel){ view = get_or_open_build_panel(app); if (string_match(command->out, string_u8_litexpr("*compilation*"))){ set_fancy_font = true; } } else{ Buffer_ID buffer = buffer_identifier_to_id(app, buffer_id); view = get_first_view_with_buffer(app, buffer); if (view == 0){ view = get_active_view(app, Access_Always); } } block_zero_struct(&prev_location); lock_jump_buffer(app, command->out); } else{ // TODO(allen): fix the exec_system_command call so it can take a null buffer_id. buffer_id = buffer_identifier(string_u8_litexpr("*dump*")); } String_Const_u8 dir = current_project.dir; String_Const_u8 cmd = command->cmd; exec_system_command(app, view, buffer_id, dir, cmd, flags); if (set_fancy_font){ set_fancy_compilation_buffer_font(app); } } } function void exec_project_command_by_index(Application_Links *app, i32 command_index){ if (!current_project.loaded){ return; } if (command_index < 0 || command_index >= current_project.command_array.count){ return; } Project_Command *command = ¤t_project.command_array.commands[command_index]; exec_project_command(app, command); } function void exec_project_fkey_command(Application_Links *app, i32 fkey_index){ if (!current_project.loaded){ return; } i32 command_index = current_project.fkey_commands[fkey_index]; if (command_index < 0 || command_index >= current_project.command_array.count){ return; } Project_Command *command = ¤t_project.command_array.commands[command_index]; exec_project_command(app, command); } function void exec_project_command_by_name(Application_Links *app, String_Const_u8 name){ if (!current_project.loaded){ return; } Project_Command *command = current_project.command_array.commands; for (i32 i = 0; i < current_project.command_array.count; ++i, ++command){ if (string_match(command->name, name)){ exec_project_command(app, command); break; } } } function void exec_project_command_by_name(Application_Links *app, char *name){ exec_project_command_by_name(app, SCu8(name)); } //////////////////////////////// CUSTOM_COMMAND_SIG(close_all_code) CUSTOM_DOC("Closes any buffer with a filename ending with an extension configured to be recognized as a code file type.") { Scratch_Block scratch(app); String_Const_u8 treat_as_code = def_get_config_string(scratch, vars_save_string_lit("treat_as_code")); String_Const_u8_Array extensions = parse_extension_line_to_extension_list(app, scratch, treat_as_code); close_all_files_with_extension(app, extensions); } CUSTOM_COMMAND_SIG(open_all_code) CUSTOM_DOC("Open all code in the current directory. File types are determined by extensions. An extension is considered code based on the extensions specified in 4coder.config.") { Scratch_Block scratch(app); String_Const_u8 treat_as_code = def_get_config_string(scratch, vars_save_string_lit("treat_as_code")); String_Const_u8_Array extensions = parse_extension_line_to_extension_list(app, scratch, treat_as_code); open_all_files_in_hot_with_extension(app, extensions, 0); } CUSTOM_COMMAND_SIG(open_all_code_recursive) CUSTOM_DOC("Works as open_all_code but also runs in all subdirectories.") { Scratch_Block scratch(app); String_Const_u8 treat_as_code = def_get_config_string(scratch, vars_save_string_lit("treat_as_code")); String_Const_u8_Array extensions = parse_extension_line_to_extension_list(app, scratch, treat_as_code); open_all_files_in_hot_with_extension(app, extensions, OpenAllFilesFlag_Recursive); } /////////////////////////////// CUSTOM_COMMAND_SIG(load_project) CUSTOM_DOC("Looks for a project.4coder file in the current directory and tries to load it. Looks in parent directories until a project file is found or there are no more parents.") { ProfileScope(app, "load project"); save_all_dirty_buffers(app); set_current_project_from_nearest_project_file(app); } CUSTOM_COMMAND_SIG(project_fkey_command) CUSTOM_DOC("Run an 'fkey command' configured in a project.4coder file. Determines the index of the 'fkey command' by which function key or numeric key was pressed to trigger the command.") { ProfileScope(app, "project fkey command"); User_Input input = get_current_input(app); b32 got_ind = false; i32 ind = 0; if (input.event.kind == InputEventKind_KeyStroke){ if (KeyCode_F1 <= input.event.key.code && input.event.key.code <= KeyCode_F16){ ind = (input.event.key.code - KeyCode_F1); got_ind = true; } else if (KeyCode_1 <= input.event.key.code && input.event.key.code <= KeyCode_9){ ind = (input.event.key.code - '1'); got_ind = true; } else if (input.event.key.code == KeyCode_0){ ind = 9; got_ind = true; } if (got_ind){ exec_project_fkey_command(app, ind); } } } CUSTOM_COMMAND_SIG(project_go_to_root_directory) CUSTOM_DOC("Changes 4coder's hot directory to the root directory of the currently loaded project. With no loaded project nothing hapepns.") { if (current_project.loaded){ set_hot_directory(app, current_project.dir); } } /////////////////////////////// function Project_Setup_Status project_is_setup(Application_Links *app, String_Const_u8 script_path, String_Const_u8 script_file){ Project_Setup_Status result = {}; { Scratch_Block scratch(app); String_Const_u8 bat_path = push_u8_stringf(scratch, "%.*s/%.*s.bat", string_expand(script_path), string_expand(script_file)); result.bat_exists = file_exists(app, bat_path); } { Scratch_Block scratch(app); String_Const_u8 sh_path = push_u8_stringf(scratch, "%.*s/%.*s.sh", string_expand(script_path), string_expand(script_file)); result.sh_exists = file_exists(app, sh_path); } { Scratch_Block scratch(app); String_Const_u8 project_path = push_u8_stringf(scratch, "%.*s/project.4coder", string_expand(script_path)); result.sh_exists = file_exists(app, project_path); } result.everything_exists = (result.bat_exists && result.sh_exists && result.project_exists); return(result); } function Project_Key_Strings project_key_strings_query_user(Application_Links *app, b32 get_script_file, b32 get_code_file, u8 *script_file_space, i32 script_file_cap, u8 *code_file_space, i32 code_file_cap, u8 *output_dir_space, i32 output_dir_cap, u8 *binary_file_space, i32 binary_file_cap){ Project_Key_Strings keys = {}; Query_Bar_Group bar_group(app); Query_Bar script_file_bar = {}; Query_Bar code_file_bar = {}; Query_Bar output_dir_bar = {}; Query_Bar binary_file_bar = {}; if (get_script_file){ script_file_bar.prompt = string_u8_litexpr("Script Name: "); script_file_bar.string = SCu8(script_file_space, (u64)0); script_file_bar.string_capacity = script_file_cap; if (!query_user_string(app, &script_file_bar)) return(keys); if (script_file_bar.string.size == 0) return(keys); } if (get_code_file){ code_file_bar.prompt = string_u8_litexpr("Build Target: "); code_file_bar.string = SCu8(code_file_space, (u64)0); code_file_bar.string_capacity = code_file_cap; if (!query_user_string(app, &code_file_bar)) return(keys); if (code_file_bar.string.size == 0) return(keys); } output_dir_bar.prompt = string_u8_litexpr("Output Directory: "); output_dir_bar.string = SCu8(output_dir_space, (u64)0); output_dir_bar.string_capacity = output_dir_cap; if (!query_user_string(app, &output_dir_bar)) return(keys); if (output_dir_bar.string.size == 0 && output_dir_cap > 0){ output_dir_bar.string.str[0] = '.'; output_dir_bar.string.size = 1; } binary_file_bar.prompt = string_u8_litexpr("Binary Output: "); binary_file_bar.string = SCu8(binary_file_space, (u64)0); binary_file_bar.string_capacity = binary_file_cap; if (!query_user_string(app, &binary_file_bar)) return(keys); if (binary_file_bar.string.size == 0) return(keys); keys.success = true; keys.script_file = script_file_bar.string; keys.code_file = code_file_bar.string; keys.output_dir = output_dir_bar.string; keys.binary_file = binary_file_bar.string; return(keys); } function b32 project_generate_bat_script(Arena *scratch, String_Const_u8 opts, String_Const_u8 compiler, String_Const_u8 script_path, String_Const_u8 script_file, String_Const_u8 code_file, String_Const_u8 output_dir, String_Const_u8 binary_file){ b32 success = false; Temp_Memory temp = begin_temp(scratch); String_Const_u8 cf = push_string_copy(scratch, code_file); String_Const_u8 od = push_string_copy(scratch, output_dir); String_Const_u8 bf = push_string_copy(scratch, binary_file); cf = string_mod_replace_character(cf, '/', '\\'); od = string_mod_replace_character(od, '/', '\\'); bf = string_mod_replace_character(bf, '/', '\\'); String_Const_u8 file_name = push_u8_stringf(scratch, "%.*s/%.*s.bat", string_expand(script_path), string_expand(script_file)); FILE *bat_script = fopen((char*)file_name.str, "wb"); if (bat_script != 0){ fprintf(bat_script, "@echo off\n\n"); fprintf(bat_script, "set opts=%.*s\n", (i32)opts.size, opts.str); fprintf(bat_script, "set code=%%cd%%\n"); fprintf(bat_script, "pushd %.*s\n", (i32)od.size, od.str); fprintf(bat_script, "%.*s %%opts%% %%code%%\\%.*s -Fe%.*s\n", (i32)compiler.size, compiler.str, (i32)cf.size, cf.str, (i32)bf.size, bf.str); fprintf(bat_script, "popd\n"); fclose(bat_script); success = true; } end_temp(temp); return(success); } function b32 project_generate_sh_script(Arena *scratch, String_Const_u8 opts, String_Const_u8 compiler, String_Const_u8 script_path, String_Const_u8 script_file, String_Const_u8 code_file, String_Const_u8 output_dir, String_Const_u8 binary_file){ b32 success = false; Temp_Memory temp = begin_temp(scratch); String_Const_u8 cf = code_file; String_Const_u8 od = output_dir; String_Const_u8 bf = binary_file; String_Const_u8 file_name = push_u8_stringf(scratch, "%.*s/%.*s.sh", string_expand(script_path), string_expand(script_file)); FILE *sh_script = fopen((char*)file_name.str, "wb"); if (sh_script != 0){ fprintf(sh_script, "#!/bin/bash\n\n"); fprintf(sh_script, "code=\"$PWD\"\n"); fprintf(sh_script, "opts=%.*s\n", string_expand(opts)); fprintf(sh_script, "cd %.*s > /dev/null\n", string_expand(od)); fprintf(sh_script, "%.*s $opts $code/%.*s -o %.*s\n", string_expand(compiler), string_expand(cf), string_expand(bf)); fprintf(sh_script, "cd $code > /dev/null\n"); fclose(sh_script); success = true; } end_temp(temp); return(success); } function b32 project_generate_project_4coder_file(Arena *scratch, String_Const_u8 script_path, String_Const_u8 script_file, String_Const_u8 output_dir, String_Const_u8 binary_file){ b32 success = false; Temp_Memory temp = begin_temp(scratch); String_Const_u8 od = output_dir; String_Const_u8 bf = binary_file; String_Const_u8 od_win = string_replace(scratch, od, string_u8_litexpr("/"), string_u8_litexpr("\\")); String_Const_u8 bf_win = string_replace(scratch, bf, string_u8_litexpr("/"), string_u8_litexpr("\\")); String_Const_u8 file_name = push_u8_stringf(scratch, "%.*s/project.4coder", string_expand(script_path)); FILE *out = fopen((char*)file_name.str, "wb"); if (out != 0){ fprintf(out, "version(1);\n"); fprintf(out, "project_name = \"%.*s\";\n", string_expand(binary_file)); fprintf(out, "patterns = {\n"); fprintf(out, "\"*.c\",\n"); fprintf(out, "\"*.cpp\",\n"); fprintf(out, "\"*.h\",\n"); fprintf(out, "\"*.m\",\n"); fprintf(out, "\"*.bat\",\n"); fprintf(out, "\"*.sh\",\n"); fprintf(out, "\"*.4coder\",\n"); fprintf(out, "};\n"); fprintf(out, "blacklist_patterns = {\n"); fprintf(out, "\".*\",\n"); fprintf(out, "};\n"); fprintf(out, "load_paths_base = {\n"); fprintf(out, " { \".\", .relative = true, .recursive = true, },\n"); fprintf(out, "};\n"); fprintf(out, "load_paths = {\n"); fprintf(out, " { load_paths_base, .os = \"win\", },\n"); fprintf(out, " { load_paths_base, .os = \"linux\", },\n"); fprintf(out, " { load_paths_base, .os = \"mac\", },\n"); fprintf(out, "};\n"); fprintf(out, "\n"); fprintf(out, "command_list = {\n"); fprintf(out, " { .name = \"build\",\n"); fprintf(out, " .out = \"*compilation*\", .footer_panel = true, .save_dirty_files = true,\n"); fprintf(out, " .cmd = { { \"%.*s.bat\" , .os = \"win\" },\n", string_expand(script_file)); fprintf(out, " { \"./%.*s.sh\", .os = \"linux\" },\n", string_expand(script_file)); fprintf(out, " { \"./%.*s.sh\", .os = \"mac\" }, }, },\n", string_expand(script_file)); fprintf(out, " { .name = \"run\",\n"); fprintf(out, " .out = \"*run*\", .footer_panel = false, .save_dirty_files = false,\n"); fprintf(out, " .cmd = { { \"%.*s\\\\%.*s\", .os = \"win\" },\n", string_expand(od_win), string_expand(bf_win)); fprintf(out, " { \"%.*s/%.*s\" , .os = \"linux\" },\n", string_expand(od), string_expand(bf)); fprintf(out, " { \"%.*s/%.*s\" , .os = \"mac\" }, }, },\n", string_expand(od), string_expand(bf)); fprintf(out, "};\n"); fprintf(out, "fkey_command[1] = \"build\";\n"); fprintf(out, "fkey_command[2] = \"run\";\n"); fclose(out); success = true; } end_temp(temp); return(success); } function void project_setup_scripts__generic(Application_Links *app, b32 do_project_file, b32 do_bat_script, b32 do_sh_script){ Scratch_Block scratch(app); String_Const_u8 script_path = push_hot_directory(app, scratch); b32 needs_to_do_work = false; Project_Setup_Status status = {}; if (do_project_file){ status = project_is_setup(app, script_path, string_u8_litexpr("build")); needs_to_do_work = !status.project_exists || (do_bat_script && !status.bat_exists) || (do_sh_script && !status.sh_exists); } else{ needs_to_do_work = true; } if (needs_to_do_work){ // Query the User for Key File Names u8 script_file_space[1024]; u8 code_file_space [1024]; u8 output_dir_space [1024]; u8 binary_file_space[1024]; b32 get_script_file = !do_project_file; b32 get_code_file = (do_bat_script && !status.bat_exists) || (do_sh_script && !status.sh_exists); Project_Key_Strings keys = {}; keys = project_key_strings_query_user(app, get_script_file, get_code_file, script_file_space, sizeof(script_file_space), code_file_space, sizeof(code_file_space), output_dir_space, sizeof(output_dir_space), binary_file_space, sizeof(binary_file_space)); if (!keys.success){ return; } if (do_project_file){ keys.script_file = string_u8_litexpr("build"); } if (!do_project_file){ status = project_is_setup(app, script_path, keys.script_file); } // Generate Scripts if (do_bat_script){ if (!status.bat_exists){ String_Const_u8 default_flags_bat = def_get_config_string(scratch, vars_save_string_lit("default_flags_bat")); String_Const_u8 default_compiler_bat = def_get_config_string(scratch, vars_save_string_lit("default_compiler_bat")); if (!project_generate_bat_script(scratch, default_flags_bat, default_compiler_bat, script_path, keys.script_file, keys.code_file, keys.output_dir, keys.binary_file)){ print_message(app, string_u8_litexpr("could not create build.bat for new project\n")); } } else{ print_message(app, string_u8_litexpr("the batch script already exists, no changes made to it\n")); } } if (do_sh_script){ if (!status.bat_exists){ String_Const_u8 default_flags_sh = def_get_config_string(scratch, vars_save_string_lit("default_flags_sh")); String_Const_u8 default_compiler_sh = def_get_config_string(scratch, vars_save_string_lit("default_compiler_sh")); if (!project_generate_sh_script(scratch, default_flags_sh, default_compiler_sh, script_path, keys.script_file, keys.code_file, keys.output_dir, keys.binary_file)){ print_message(app, string_u8_litexpr("could not create build.sh for new project\n")); } } else{ print_message(app, string_u8_litexpr("the shell script already exists, no changes made to it\n")); } } if (do_project_file){ if (!status.project_exists){ if (!project_generate_project_4coder_file(scratch, script_path, keys.script_file, keys.output_dir, keys.binary_file)){ print_message(app, string_u8_litexpr("could not create project.4coder for new project\n")); } } else{ print_message(app, string_u8_litexpr("project.4coder already exists, no changes made to it\n")); } } } else{ if (do_project_file){ print_message(app, string_u8_litexpr("project already setup, no changes made\n")); } } } CUSTOM_COMMAND_SIG(setup_new_project) CUSTOM_DOC("Queries the user for several configuration options and initializes a new 4coder project with build scripts for every OS.") { project_setup_scripts__generic(app, true, true, true); load_project(app); } CUSTOM_COMMAND_SIG(setup_build_bat) CUSTOM_DOC("Queries the user for several configuration options and initializes a new build batch script.") { project_setup_scripts__generic(app, false, true, false); } CUSTOM_COMMAND_SIG(setup_build_sh) CUSTOM_DOC("Queries the user for several configuration options and initializes a new build shell script.") { project_setup_scripts__generic(app, false, false, true); } CUSTOM_COMMAND_SIG(setup_build_bat_and_sh) CUSTOM_DOC("Queries the user for several configuration options and initializes a new build batch script.") { project_setup_scripts__generic(app, false, true, true); } /////////////////////////////// function Project_Command_Lister_Result get_project_command_from_user(Application_Links *app, Project *project, String_Const_u8 query){ Project_Command_Lister_Result result = {}; if (project != 0){ Scratch_Block scratch(app); Lister_Block lister(app, scratch); lister_set_query(lister, query); lister_set_default_handlers(lister); Project_Command *proj_cmd = project->command_array.commands; i32 count = project->command_array.count; for (i32 i = 0; i < count; i += 1, proj_cmd += 1){ lister_add_item(lister, proj_cmd->name, proj_cmd->cmd, IntAsPtr(i), 0); } Lister_Result l_result = run_lister(app, lister); if (!l_result.canceled){ result.success = true; result.index = (i32)PtrAsInt(l_result.user_data); } } return(result); } function Project_Command_Lister_Result get_project_command_from_user(Application_Links *app, Project *project, char *query){ return(get_project_command_from_user(app, project, SCu8(query))); } CUSTOM_COMMAND_SIG(project_command_lister) CUSTOM_DOC("Open a lister of all commands in the currently loaded project.") { if (current_project.loaded){ Project_Command_Lister_Result proj_cmd = get_project_command_from_user(app, ¤t_project, "Command:"); if (proj_cmd.success){ exec_project_command_by_index(app, proj_cmd.index); } } } // BOTTOM