/* Copyright (C) 2001-2008, The Perl Foundation. */
/* $Id: /mirror/trunk/config/auto/readline/readline.in 28187 2008-06-08T07:04:34.275256Z chromatic  $ */

#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. */

#ifdef __cplusplus
extern "C" {
#endif
char * readline(const char *);
void * rl_get_keymap(void);
#ifdef __cplusplus
}
#endif

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;
}
