/* Copyright (C) 2001-2008, The Perl Foundation. */
/* $Id: readline.in 26801 2008-04-06 09:06:39Z fperrad $ */

#include <stdio.h>
#include <stdlib.h>
/* #include <readline/readline.h>
  #include <readline/history.h>
*/

/* Since we are not #include:ing <readline/readline.h> we cannot know
 * the typedefs or prototypes of readline.  Let's boldly make stuff up
 * and even lie for the sake of this test. */

extern char* readline(const char*);
extern void* rl_get_keymap(void); 

int main(int argc, char *argv[])
{
    /* Cannot use readline() since we will actually run this
     * and readline() would hang waiting for input.
     * Instead, we use rl_get_keymap(). */
#if 0
    char * r = readline ("hello polly>");
#endif
    void* keymap = rl_get_keymap();
    puts("1");
    return EXIT_SUCCESS;
}
