1 /* src/client/control.c
3 * This file is part of PlomRogue. PlomRogue is licensed under the GPL version 3
4 * or any later version. For details on its copyright, license, and warranties,
5 * see the file NOTICE in the root directory of the PlomRogue source package.
9 #include <stdint.h> /* uint8_t, uint16_t, uint32_t, UINT32_MAX */
10 #include <stdlib.h> /* free() */
11 #include <stdio.h> /* sprintf() */
12 #include <string.h> /* strlen(), strcmp(), strncmp() */
13 #include "../common/rexit.h" /* exit_err(), exit_trouble() */
14 #include "../common/try_malloc.h" /* try_malloc() */
15 #include "interface_conf.h" /* reload_interface_conf(), save_interface_conf() */
16 #include "io.h" /* send() */
17 #include "keybindings.h" /* get_command_to_keycode(), get_keycode_to_command(),
18 * mod_selected_keyb(), move_keyb_selection()
20 #include "map.h" /* toggle_lookmode(), lookmode_nav()*/
21 #include "wincontrol.h" /* shift_active_win(), resize_active_win(),
22 * toggle_win_size_type(), toggle_window(),
23 * cycle_active_win(), scroll_v_screen(),
24 * toggle_linebreak_type(), toggle_winconfig()
26 #include "windows.h" /* get_win_by_id() */
27 #include "world.h" /* world */
31 /* Move world.inventory_sel up ("dir"="u") or down (else) as far as possible. */
32 static void nav_inventory(char dir);
34 /* If "command"'s .dsc_short fits "match", apply "f" with provided char
35 * arguments and return 1; else, return 0.
37 static uint8_t try_0args(struct Command * command, char * match, void (* f) ());
38 static uint8_t try_1args(struct Command * command, char * match,
39 void (* f) (char), char c);
41 /* If "command" fits pattern "keyb_XY" with Y a proper keybinding list ID char
42 * and X one of "u" (for "up"), "d" (for "down") or "m" (for "modify"), move up
43 * or down or modify entry in the selected keybinding list.
45 static uint8_t try_kb_manip(char * command);
47 /* Try if "command" matches a hard-coded list of client-only commands and, if
48 * successful, execute the match and return 1. Else, return 0.
50 static uint8_t try_client_commands(struct Command * command);
52 /* If c == c_to_match, set "string" to "string_to_set". */
53 static uint8_t set_string_if_char_match(char c, char c_to_match,
54 char ** string, char * string_to_set);
56 /* Transform "command" to server command + argument string (free externally). */
57 static char * build_server_message_with_argument(struct Command * command);
59 /* Try out "command" as one for server messaging; sending is .server_msg,
60 * followed by either a string representing "command"'s .arg, or, if .arg is
61 * 'i', world.player_inventory_select, or, if .arg is '0', nothing. Return 1 on
62 * success, 0 on failure.
64 static uint8_t try_server_commands(struct Command * command);
68 static void nav_inventory(char dir)
72 world.player_inventory_select = world.player_inventory_select
73 - (world.player_inventory_select > 0);
78 char * err = "Inventory string is too large.";
79 exit_err(UINT32_MAX <= strlen(world.player_inventory), err);
80 for (i = 0; '\0' != world.player_inventory[i]; i++)
82 n_elems = n_elems + ('\n' == world.player_inventory[i]);
84 world.player_inventory_select = world.player_inventory_select
85 + (world.player_inventory_select < n_elems);
90 static void nav_stack(char dir) //
92 FILE * file = fopen("test", "a");
93 fprintf(file, "called %d\n", world.things_here_scroll);
94 if ('u' == dir && world.things_here_scroll > 0)
96 world.things_here_scroll--;
99 else if ('d' == dir && world.things_here)
102 uint32_t n_lines = 1;
103 for (i = 0; '\0' != world.things_here[i]; i++)
105 n_lines = n_lines + (world.things_here[i] == '\n');
107 uint16_t f_h = get_win_by_id('s')->frame_size.y;
108 fprintf(file, "%d %d\n", n_lines, f_h);
109 if (n_lines > f_h && world.things_here_scroll < n_lines - f_h)
111 world.things_here_scroll++;
113 fprintf(file, "d %d\n", world.things_here_scroll);
120 static uint8_t try_0args(struct Command * command, char * match, void (* f) ())
122 if (!strcmp(command->dsc_short, match))
132 static uint8_t try_1args(struct Command * command, char * match,
133 void (* f) (char), char c)
135 if (!strcmp(command->dsc_short, match))
145 static uint8_t try_kb_manip(char * command)
147 char * cmp = "keyb_";
148 if (strlen(command) == strlen(cmp)+2 && !strncmp(command, cmp, strlen(cmp)))
150 if ('m' == command[strlen(cmp)])
152 mod_selected_keyb(command[strlen(cmp) + 1]);
154 else if ('u' == command[strlen(cmp)] || 'd' == command[strlen(cmp)])
156 move_keyb_selection(command[strlen(cmp) + 1], command[strlen(cmp)]);
165 static uint8_t try_client_commands(struct Command * command)
167 return ( try_1args(command, "inv_u", nav_inventory, 'u')
168 || try_1args(command, "inv_d", nav_inventory, 'd')
169 || try_1args(command, "stack_u", nav_stack, 'u') //
170 || try_1args(command, "stack_d", nav_stack, 'd') //
171 || try_1args(command, "cyc_win_f", cycle_active_win, 'f')
172 || try_1args(command, "cyc_win_b", cycle_active_win, 'b')
173 || try_1args(command, "scrl_r", scroll_v_screen, '+')
174 || try_1args(command, "scrl_l", scroll_v_screen, '-')
175 || try_1args(command, "to_g_keywin", toggle_window, '0')
176 || try_1args(command, "to_wg_keywin", toggle_window, '1')
177 || try_1args(command, "to_wk_keywin", toggle_window, '2')
178 || try_1args(command, "to_mapwin", toggle_window, 'm')
179 || try_1args(command, "to_infowin", toggle_window, 'i')
180 || try_1args(command, "to_inv", toggle_window, 'c')
181 || try_1args(command, "to_logwin", toggle_window, 'l')
182 || try_1args(command, "to_terrain", toggle_window, 's')
183 || try_0args(command, "winconf", toggle_winconfig)
184 || try_1args(command, "grow_h", resize_active_win, '*')
185 || try_1args(command, "shri_h", resize_active_win, '_')
186 || try_1args(command, "grow_v", resize_active_win, '+')
187 || try_1args(command, "shri_v", resize_active_win, '-')
188 || try_0args(command, "to_break", toggle_linebreak_type)
189 || try_1args(command, "to_height_t", toggle_win_size_type, 'y')
190 || try_1args(command, "to_width_t", toggle_win_size_type, 'x')
191 || try_1args(command, "shift_f", shift_active_win, 'f')
192 || try_1args(command, "shift_b", shift_active_win, 'b')
193 || try_0args(command, "reload_conf", reload_interface_conf)
194 || try_0args(command, "save_conf", save_interface_conf)
195 || try_0args(command, "to_look", toggle_lookmode)
196 || try_kb_manip(command->dsc_short));
201 static uint8_t set_string_if_char_match(char c, char c_to_match,
202 char ** string, char * string_to_set)
206 *string = string_to_set;
214 static char * build_server_message_with_argument(struct Command * cmd)
216 uint8_t command_size = strlen(cmd->server_msg);
218 uint8_t arg_size = 0;
222 arg_str = try_malloc(arg_size + 1, __func__);
223 int test = sprintf(arg_str, "%d",world.player_inventory_select);
224 exit_trouble(test < 0, __func__, "sprintf");
226 else if ( set_string_if_char_match(cmd->arg, 'd', &arg_str, "east")
227 || set_string_if_char_match(cmd->arg, 'c', &arg_str, "south-east")
228 || set_string_if_char_match(cmd->arg, 'x', &arg_str, "south-west")
229 || set_string_if_char_match(cmd->arg, 's', &arg_str, "west")
230 || set_string_if_char_match(cmd->arg, 'w', &arg_str, "north-west")
231 || set_string_if_char_match(cmd->arg, 'e', &arg_str, "north-east"))
233 arg_size = strlen(arg_str);
237 exit_err(1, "Illegal server command argument.");
239 char * msg = try_malloc(command_size + 1 + arg_size + 1, __func__);
240 int test = sprintf(msg, "%s %s", cmd->server_msg, arg_str);
241 exit_trouble(test < 0, __func__, "sprintf");
251 static uint8_t try_server_commands(struct Command * command)
253 if (command->server_msg)
255 if ('0' == command->arg)
257 send(command->server_msg);
261 char * msg = build_server_message_with_argument(command);
272 extern uint8_t try_key(uint16_t key)
274 struct Command * command = get_command_to_keycode(&world.kb_global, key);
275 if (!command && world.winDB.active)
277 struct Win * w = get_win_by_id(world.winDB.active);
280 command = get_command_to_keycode(&w->kb, key);
282 else if (1 == w->view)
284 command = get_command_to_keycode(&world.kb_wingeom, key);
286 else if (2 == w->view)
288 command = get_command_to_keycode(&world.kb_winkeys, key);
293 if (world.look && lookmode_nav(command->dsc_short))
297 else if (try_client_commands(command))
301 else if (try_server_commands(command))
305 else if (!strcmp("quit", command->dsc_short))