/* 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 2, or (at your option) any   later version.   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, 59 Temple Place, Suite 330, Boston, MA 02111 USA. */#define READLINE_LIBRARY#if defined (HAVE_CONFIG_H)#  include <config.h>#endif#if defined (HAVE_STDLIB_H)#  include <stdlib.h>#else#  include "ansi_stdlib.h"#endif /* HAVE_STDLIB_H */#include <stdio.h>	/* for FILE * definition for readline.h */#include "readline.h"#include "rlconf.h"#include "emacs_keymap.c"#if defined (VI_MODE)#include "vi_keymap.c"#endif#include "xmalloc.h"/* **************************************************************** *//*								    *//*		      Functions for manipulating Keymaps.	    *//*								    *//* **************************************************************** *//* Return a new, empty keymap.   Free it with free() when you are done. */Keymaprl_make_bare_keymap (){  register int i;  Keymap keymap = (Keymap)xmalloc (KEYMAP_SIZE * sizeof (KEYMAP_ENTRY));  for (i = 0; i < KEYMAP_SIZE; i++)    {      keymap[i].type = ISFUNC;      keymap[i].function = (rl_command_func_t *)NULL;    }  for (i = 'A'; i < ('Z' + 1); i++)    {      keymap[i].type = ISFUNC;      keymap[i].function = rl_do_lowercase_version;    }  return (keymap);}/* Return a new keymap which is a copy of MAP. */Keymaprl_copy_keymap (map)     Keymap map;{  register int i;  Keymap temp = rl_make_bare_keymap ();  for (i = 0; i < KEYMAP_SIZE; i++)    {      temp[i].type = map[i].type;      temp[i].function = map[i].function;    }  return (temp);}/* 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. */Keymaprl_make_keymap (){  register int i;  Keymap newmap;  newmap = rl_make_bare_keymap ();  /* All ASCII printing characters are self-inserting. */  for (i = ' '; i < 127; i++)    newmap[i].function = rl_insert;  newmap[TAB].function = rl_insert;  newmap[RUBOUT].function = rl_rubout;	/* RUBOUT == 127 */  newmap[CTRL('H')].function = rl_rubout;#if KEYMAP_SIZE > 128  /* Printing characters in some 8-bit character sets. */  for (i = 128; i < 160; i++)    newmap[i].function = rl_insert;  /* ISO Latin-1 printing characters should self-insert. */  for (i = 160; i < 256; i++)    newmap[i].function = rl_insert;#endif /* KEYMAP_SIZE > 128 */  return (newmap);}/* Free the storage associated with MAP. */voidrl_discard_keymap (map)     Keymap map;{  int i;  if (!map)    return;  for (i = 0; i < KEYMAP_SIZE; i++)    {      switch (map[i].type)	{	case ISFUNC:	  break;	case ISKMAP:	  rl_discard_keymap ((Keymap)map[i].function);	  break;	case ISMACR:	  free ((char *)map[i].function);	  break;	}    }}