/* keymaps.c -- Functions and keymaps for the GNU Readline library. */
/* Copyright (C) 1988,1989 Free Software Foundation, Inc.
This file is part of GNU Readline, a library for reading lines
of text with interactive input and history editing.
Readline is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the
Free Software Foundation; either version 1, or (at your option) any
Readline is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with Readline; see the file COPYING. If not, write to the Free
Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#include "emacs_keymap.c"
/* Remove these declarations when we have a complete libgnu.a. */
extern char *xmalloc (), *xrealloc ();
static char *xmalloc (), *xrealloc ();
/* **************************************************************** */
/* Functions for manipulating Keymaps. */
/* **************************************************************** */
/* Return a new, empty keymap.
Free it with free() when you are done. */
Keymap keymap
= (Keymap
)xmalloc (128 * sizeof (KEYMAP_ENTRY
));
for (i
= 0; i
< 128; i
++)
keymap
[i
].function
= (Function
*)NULL
;
for (i
= 'A'; i
< ('Z' + 1); i
++)
keymap
[i
].function
= rl_do_lowercase_version
;
/* Return a new keymap which is a copy of MAP. */
Keymap temp
= rl_make_bare_keymap ();
for (i
= 0; i
< 128; i
++)
temp
[i
].type
= map
[i
].type
;
temp
[i
].function
= map
[i
].function
;
/* Return a new keymap with the printing characters bound to rl_insert,
the uppercase Meta characters bound to run their lowercase equivalents,
and the Meta digits bound to produce numeric arguments. */
extern rl_insert (), rl_rubout (), rl_do_lowercase_version ();
extern rl_digit_argument ();
newmap
= rl_make_bare_keymap ();
/* All printing characters are self-inserting. */
for (i
= ' '; i
< 126; i
++)
newmap
[i
].function
= rl_insert
;
newmap
[TAB
].function
= rl_insert
;
newmap
[RUBOUT
].function
= rl_rubout
;
/* Free the storage associated with MAP. */
for (i
= 0; i
< 128; i
++)
rl_discard_keymap ((Keymap
)map
[i
].function
);
free ((char *)map
[i
].function
);
/* **************************************************************** */
/* xmalloc and xrealloc () */
/* **************************************************************** */
static memory_error_and_abort ();
char *temp
= (char *)malloc (bytes
);
memory_error_and_abort ();
xrealloc (pointer
, bytes
)
static memory_error_and_abort ();
char *temp
= (char *)realloc (pointer
, bytes
);
memory_error_and_abort ();
memory_error_and_abort ()
fprintf (stderr
, "readline: Out of virtual memory!\n");
#endif /* STATIC_MALLOC */