usim

Check-in [a7a010e029]
Login
☰Home Timeline Branches Tags ForumTickets Wiki

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:sdl1.c: Fill in some of the keyboard mappings.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | ams/sdl1
Files: files | file ages | folders
SHA3-256: a7a010e029a6a237f28f45a11e41f623cb8ff95af3777720748f630bcf914ae8
User & Date: ams 2024-06-01 05:18:21
Context
2024-06-04
17:44
Add rudimentary SDL2 support. check-in: fd1498981c user: ams tags: ams/sdl1
2024-06-01
05:18
sdl1.c: Fill in some of the keyboard mappings. check-in: a7a010e029 user: ams tags: ams/sdl1
05:02
sdl1.c: Remove unused stuff. check-in: e4e225b7e8 user: ams tags: ams/sdl1
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to sdl1.c.

︙︙
161
162
163
164
165
166
167

168
169
170
171
172

173
174
175
176
177
178

179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214





215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230



























231
232
233
234
235
236
237
238
239
240
241
242
243
244
245






























































































246
247
248
249
250
251
252

			process_key(&ev->key, 0);
			break;
		case SDL_MOUSEMOTION:
		case SDL_MOUSEBUTTONDOWN:
		case SDL_MOUSEBUTTONUP: {
			int x;
			int y;

			int buttons;
			int state;
			
			state = SDL_GetMouseState(&x, &y);
			buttons = 0;

			if (state & SDL_BUTTON(SDL_BUTTON_LEFT))
				buttons = 1; 	/* Tail */
			if (state & SDL_BUTTON(SDL_BUTTON_MIDDLE))
				buttons = 2;	/* Middle */
			if (state & SDL_BUTTON(SDL_BUTTON_RIGHT))
				buttons = 3;	/* Head */

			mouse_event(x, y, buttons);
			break;
		}
		case SDL_QUIT:
			exit(0);
			break;
		}
	}
}

void
sdl1_default_kbd_map(void)
{
	for (int i = 0; i < (int) NELEM(sdl1_kbd_map); i++)
		sdl1_kbd_map[i] = LMCH_NoSymbol;
	for (int i = 0; i < (int) NELEM(sdl1_modifier_map); i++)
		sdl1_modifier_map[i] = KBD_NoSymbol;

	/* *INDENT-OFF* */
	/*
	 * Initialize keyboard modifiers
	 */
//SDL Modifier	Meaning
//KMOD_NONE	No modifiers applicable
//KMOD_NUM	Numlock is down
//KMOD_CAPS	Capslock is down
//KMOD_LCTRL	Left Control is down
//KMOD_RCTRL	Right Control is down
//KMOD_RSHIFT	Right Shift is down
//KMOD_LSHIFT	Left Shift is down
//KMOD_RALT	Right Alt is down
//KMOD_LALT	Left Alt is down
//KMOD_CTRL	A Control key is down
//KMOD_SHIFT	A Shift key is down
//KMOD_ALT	An Alt key is down
	





//	x11_modifier_map[ShiftMapIndex] = KBD_SHIFT;
//	x11_modifier_map[LockMapIndex] = KBD_SHIFT_LOCK;
//	x11_modifier_map[ControlMapIndex] = KBD_CONTROL;
//	x11_modifier_map[Mod1MapIndex] = KBD_META;
//	x11_modifier_map[Mod2MapIndex] = KBD_NoSymbol;
//	x11_modifier_map[Mod3MapIndex] = KBD_NoSymbol;
//	x11_modifier_map[Mod4MapIndex] = KBD_TOP;
//	x11_modifier_map[Mod5MapIndex] = KBD_NoSymbol;

	/*
	 * Initialize keyboard mapping.
	 *
	 * We cann't reuse lmch.defs here because the Lisp Machine
	 * charachter set has names and charachters that do not have a
	 * corresponding mapping in X11.
	 */




























	/* Unshifted */
	sdl1_kbd_map[SDLK_BACKQUOTE] = LMCH_grave;
	sdl1_kbd_map[SDLK_1] = LMCH_1;
	sdl1_kbd_map[SDLK_2] = LMCH_2;
	sdl1_kbd_map[SDLK_3] = LMCH_3;
	sdl1_kbd_map[SDLK_4] = LMCH_4;
	sdl1_kbd_map[SDLK_5] = LMCH_5;
	sdl1_kbd_map[SDLK_6] = LMCH_6;
	sdl1_kbd_map[SDLK_7] = LMCH_7;
	sdl1_kbd_map[SDLK_8] = LMCH_8;
	sdl1_kbd_map[SDLK_9] = LMCH_9;
	sdl1_kbd_map[SDLK_0] = LMCH_0;
	sdl1_kbd_map[SDLK_MINUS] = LMCH_minus;
	sdl1_kbd_map[SDLK_EQUALS] = LMCH_equal;






























































































	/* *INDENT-ON* */
}

void
sdl1_init(void)
{
	NOTICE(TRACE_USIM, "tv: using SDL backend for monitor and keyboard\n"); 








>


|
<
|
>






>


















<
<
<
<














>
>
>
>
>
|
|
|
|
|
|
|
|






|

>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>















>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>








161
162
163
164
165
166
167
168
169
170
171

172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198




199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376

			process_key(&ev->key, 0);
			break;
		case SDL_MOUSEMOTION:
		case SDL_MOUSEBUTTONDOWN:
		case SDL_MOUSEBUTTONUP: {
			int x;
			int y;
			int dx, dy;
			int buttons;
			int state;


			buttons = 0;			
			state = SDL_GetRelativeMouseState(&dx, &dy);
			if (state & SDL_BUTTON(SDL_BUTTON_LEFT))
				buttons = 1; 	/* Tail */
			if (state & SDL_BUTTON(SDL_BUTTON_MIDDLE))
				buttons = 2;	/* Middle */
			if (state & SDL_BUTTON(SDL_BUTTON_RIGHT))
				buttons = 3;	/* Head */
			state = SDL_GetMouseState(&x, &y);
			mouse_event(x, y, buttons);
			break;
		}
		case SDL_QUIT:
			exit(0);
			break;
		}
	}
}

void
sdl1_default_kbd_map(void)
{
	for (int i = 0; i < (int) NELEM(sdl1_kbd_map); i++)
		sdl1_kbd_map[i] = LMCH_NoSymbol;
	for (int i = 0; i < (int) NELEM(sdl1_modifier_map); i++)
		sdl1_modifier_map[i] = KBD_NoSymbol;





//SDL Modifier	Meaning
//KMOD_NONE	No modifiers applicable
//KMOD_NUM	Numlock is down
//KMOD_CAPS	Capslock is down
//KMOD_LCTRL	Left Control is down
//KMOD_RCTRL	Right Control is down
//KMOD_RSHIFT	Right Shift is down
//KMOD_LSHIFT	Left Shift is down
//KMOD_RALT	Right Alt is down
//KMOD_LALT	Left Alt is down
//KMOD_CTRL	A Control key is down
//KMOD_SHIFT	A Shift key is down
//KMOD_ALT	An Alt key is down
	
	/* *INDENT-OFF* */
	/*
	 * Initialize keyboard modifiers
	 */

//	sdl1_modifier_map[ShiftMapIndex] = KBD_SHIFT;
//	sdl1_modifier_map[LockMapIndex] = KBD_SHIFT_LOCK;
//	sdl1_modifier_map[ControlMapIndex] = KBD_CONTROL;
//	sdl1_modifier_map[Mod1MapIndex] = KBD_META;
//	sdl1_modifier_map[Mod2MapIndex] = KBD_NoSymbol;
//	sdl1_modifier_map[Mod3MapIndex] = KBD_NoSymbol;
//	sdl1_modifier_map[Mod4MapIndex] = KBD_TOP;
//	sdl1_modifier_map[Mod5MapIndex] = KBD_NoSymbol;

	/*
	 * Initialize keyboard mapping.
	 *
	 * We cann't reuse lmch.defs here because the Lisp Machine
	 * charachter set has names and charachters that do not have a
	 * corresponding mapping in SDL1.
	 */

	/* Function keys */

	/*
	 * LispM "Escape" is actually Terminal, but in Zmacs this is more
	 * useful.
	 */
	sdl1_kbd_map[SDLK_ESCAPE] = LMCH_altmode;

	sdl1_kbd_map[SDLK_F1] = LMCH_system;
	sdl1_kbd_map[SDLK_F2] = LMCH_network;
	sdl1_kbd_map[SDLK_F3] = LMCH_status;
	sdl1_kbd_map[SDLK_F4] = LMCH_terminal;
	sdl1_kbd_map[SDLK_F5] = LMCH_help;
	sdl1_kbd_map[SDLK_F6] = LMCH_clear;
	sdl1_kbd_map[SDLK_F7] = LMCH_break;

	sdl1_kbd_map[SDLK_PAGEUP] = LMCH_abort;
	sdl1_kbd_map[SDLK_PAGEDOWN] = LMCH_resume;
	sdl1_kbd_map[SDLK_HOME] = LMCH_break;	/* This is really handy next to the others */
	sdl1_kbd_map[SDLK_END] = LMCH_end;

	/* This is natural */
	sdl1_kbd_map[SDLK_LEFT] = LMCH_hand_left;
	sdl1_kbd_map[SDLK_RIGHT] = LMCH_hand_right;
	sdl1_kbd_map[SDLK_UP] = LMCH_hand_up;
	sdl1_kbd_map[SDLK_DOWN] = LMCH_hand_down;

	/* Unshifted */
	sdl1_kbd_map[SDLK_BACKQUOTE] = LMCH_grave;
	sdl1_kbd_map[SDLK_1] = LMCH_1;
	sdl1_kbd_map[SDLK_2] = LMCH_2;
	sdl1_kbd_map[SDLK_3] = LMCH_3;
	sdl1_kbd_map[SDLK_4] = LMCH_4;
	sdl1_kbd_map[SDLK_5] = LMCH_5;
	sdl1_kbd_map[SDLK_6] = LMCH_6;
	sdl1_kbd_map[SDLK_7] = LMCH_7;
	sdl1_kbd_map[SDLK_8] = LMCH_8;
	sdl1_kbd_map[SDLK_9] = LMCH_9;
	sdl1_kbd_map[SDLK_0] = LMCH_0;
	sdl1_kbd_map[SDLK_MINUS] = LMCH_minus;
	sdl1_kbd_map[SDLK_EQUALS] = LMCH_equal;

	sdl1_kbd_map[SDLK_TAB] = LMCH_tab;
	sdl1_kbd_map[SDLK_q] = LMCH_q;
	sdl1_kbd_map[SDLK_w] = LMCH_w;
	sdl1_kbd_map[SDLK_e] = LMCH_e;
	sdl1_kbd_map[SDLK_r] = LMCH_r;
	sdl1_kbd_map[SDLK_t] = LMCH_t;
	sdl1_kbd_map[SDLK_y] = LMCH_y;
	sdl1_kbd_map[SDLK_u] = LMCH_u;
	sdl1_kbd_map[SDLK_i] = LMCH_i;
	sdl1_kbd_map[SDLK_o] = LMCH_o;
	sdl1_kbd_map[SDLK_p] = LMCH_p;
	sdl1_kbd_map[SDLK_LEFTBRACKET] = LMCH_bracketleft;
	sdl1_kbd_map[SDLK_RIGHTBRACKET] = LMCH_bracketright;
	sdl1_kbd_map[SDLK_BACKSLASH] = LMCH_backslash;
	sdl1_kbd_map[SDLK_BACKSPACE] = LMCH_rubout;

	sdl1_kbd_map[SDLK_a] = LMCH_a;
	sdl1_kbd_map[SDLK_s] = LMCH_s;
	sdl1_kbd_map[SDLK_d] = LMCH_d;
	sdl1_kbd_map[SDLK_f] = LMCH_f;
	sdl1_kbd_map[SDLK_g] = LMCH_g;
	sdl1_kbd_map[SDLK_h] = LMCH_h;
	sdl1_kbd_map[SDLK_j] = LMCH_j;
	sdl1_kbd_map[SDLK_k] = LMCH_k;
	sdl1_kbd_map[SDLK_l] = LMCH_l;
	sdl1_kbd_map[SDLK_SEMICOLON] = LMCH_semicolon;
	sdl1_kbd_map[SDLK_QUOTE] = LMCH_apostrophe;
	sdl1_kbd_map[SDLK_RETURN] = LMCH_cr;

	sdl1_kbd_map[SDLK_z] = LMCH_z;
	sdl1_kbd_map[SDLK_x] = LMCH_x;
	sdl1_kbd_map[SDLK_c] = LMCH_c;
	sdl1_kbd_map[SDLK_v] = LMCH_v;
	sdl1_kbd_map[SDLK_b] = LMCH_b;
	sdl1_kbd_map[SDLK_n] = LMCH_n;
	sdl1_kbd_map[SDLK_m] = LMCH_m;
	sdl1_kbd_map[SDLK_COMMA] = LMCH_comma;
	sdl1_kbd_map[SDLK_PERIOD] = LMCH_period;
	sdl1_kbd_map[SDLK_SLASH] = LMCH_slash;

	/* Shifted */
//	sdl1_kbd_map[SDLK_asciitilde] = LMCH_asciitilde;
	sdl1_kbd_map[SDLK_EXCLAIM] = LMCH_exclam;
	sdl1_kbd_map[SDLK_AT] = LMCH_at;
//	sdl1_kbd_map[SDLK_numbersign] = LMCH_numbersign;
//	sdl1_kbd_map[SDLK_dollar] = LMCH_dollar;
//	sdl1_kbd_map[SDLK_percent] = LMCH_percent;
//	sdl1_kbd_map[SDLK_asciicircum] = LMCH_asciicircum;
//	sdl1_kbd_map[SDLK_ampersand] = LMCH_ampersand;
//	sdl1_kbd_map[SDLK_asterisk] = LMCH_asterisk;
	sdl1_kbd_map[SDLK_LEFTPAREN] = LMCH_parenleft;
	sdl1_kbd_map[SDLK_RIGHTPAREN] = LMCH_parenright;
	sdl1_kbd_map[SDLK_UNDERSCORE] = LMCH_underscore;
	sdl1_kbd_map[SDLK_PLUS] = LMCH_plus;

//	sdl1_kbd_map[SDLK_Q] = LMCH_Q;
//	sdl1_kbd_map[SDLK_W] = LMCH_W;
//	sdl1_kbd_map[SDLK_E] = LMCH_E;
//	sdl1_kbd_map[SDLK_R] = LMCH_R;
//	sdl1_kbd_map[SDLK_T] = LMCH_T;
//	sdl1_kbd_map[SDLK_Y] = LMCH_Y;
//	sdl1_kbd_map[SDLK_U] = LMCH_U;
//	sdl1_kbd_map[SDLK_I] = LMCH_I;
//	sdl1_kbd_map[SDLK_O] = LMCH_O;
//	sdl1_kbd_map[SDLK_P] = LMCH_P;
//	sdl1_kbd_map[SDLK_braceleft] = LMCH_braceleft;
//	sdl1_kbd_map[SDLK_braceright] = LMCH_braceright;
//	sdl1_kbd_map[SDLK_bar] = LMCH_bar;

//	sdl1_kbd_map[SDLK_A] = LMCH_A;
//	sdl1_kbd_map[SDLK_S] = LMCH_S;
//	sdl1_kbd_map[SDLK_D] = LMCH_D;
//	sdl1_kbd_map[SDLK_F] = LMCH_F;
//	sdl1_kbd_map[SDLK_G] = LMCH_G;
//	sdl1_kbd_map[SDLK_H] = LMCH_H;
//	sdl1_kbd_map[SDLK_J] = LMCH_J;
//	sdl1_kbd_map[SDLK_K] = LMCH_K;
//	sdl1_kbd_map[SDLK_L] = LMCH_L;
//	sdl1_kbd_map[SDLK_colon] = LMCH_colon;
//	sdl1_kbd_map[SDLK_quotedbl] = LMCH_quotedbl;

//	sdl1_kbd_map[SDLK_Z] = LMCH_Z;
//	sdl1_kbd_map[SDLK_X] = LMCH_X;
//	sdl1_kbd_map[SDLK_C] = LMCH_C;
//	sdl1_kbd_map[SDLK_V] = LMCH_V;
//	sdl1_kbd_map[SDLK_B] = LMCH_B;
//	sdl1_kbd_map[SDLK_N] = LMCH_N;
//	sdl1_kbd_map[SDLK_M] = LMCH_M;
//	sdl1_kbd_map[SDLK_less] = LMCH_less;
//	sdl1_kbd_map[SDLK_greater] = LMCH_greater;
//	sdl1_kbd_map[SDLK_question] = LMCH_question;

	sdl1_kbd_map[SDLK_SPACE] = LMCH_space;
	/* *INDENT-ON* */
}

void
sdl1_init(void)
{
	NOTICE(TRACE_USIM, "tv: using SDL backend for monitor and keyboard\n");
︙︙

This page was generated in about 0.001s by Fossil 2.22 [66ee0beb9b] 2023-05-31 15:26:08