home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-1.LHA / CLISP960530-sr.lha / src / noreadline.d < prev    next >
Encoding:
Text File  |  1996-04-15  |  1.3 KB  |  55 lines
  1. # Ein Ersatz für die GNU readline()-Library.
  2. # Bruno Haible 23.4.1995
  3.  
  4. #include "lispbibl.c"
  5.  
  6. #if defined(GNU_READLINE) && 0 # funktioniert nur mit readline, nicht newreadline
  7.   #define READLINE_LIBRARY # Hinweis, wo die Include-Files gesucht werden müssen
  8.   #include "readline.h"
  9.   #undef READLINE_LIBRARY
  10. #else
  11.   typedef int Function ();
  12.   typedef void VFunction ();
  13.   typedef char *CPFunction ();
  14.   typedef char **CPPFunction ();
  15. #endif
  16.  
  17. global int rl_present_p = 0; # readline()-Library nicht vorhanden
  18.  
  19. global char* rl_readline_name;
  20. global CPPFunction* rl_attempted_completion_function;
  21. global CPFunction* rl_completion_entry_function;
  22.  
  23. global char* rl_basic_word_break_characters;
  24. global char* rl_basic_quote_characters;
  25. global char* rl_completer_quote_characters;
  26.  
  27. global char* rl_line_buffer;
  28. global int rl_already_prompted;
  29.  
  30. global char* readline(prompt)
  31.   var reg1 char* prompt;
  32.   { return NULL; }
  33.  
  34. global void rl_deprep_terminal()
  35.   { ; }
  36.  
  37. global char* filename_completion_function(text,state)
  38.   var reg1 char* text;
  39.   var reg1 int state;
  40.   { return NULL; }
  41.  
  42. global void add_history(line)
  43.   var reg1 char* line;
  44.   { ; }
  45.  
  46. global VFunction* rl_named_function(string)
  47.   var reg1 char* string;
  48.   { return NULL; }
  49.  
  50. global int rl_bind_key(key,function)
  51.   var reg1 int key;
  52.   var reg1 VFunction* function;
  53.   { return 0; }
  54.  
  55.