diff --git a/Make.os9 b/Make.os9 new file mode 100644 index 0000000..c632847 --- /dev/null +++ b/Make.os9 @@ -0,0 +1,19 @@ +## $Revision: 1.2 $ +## +## OS-9 makefile for editline library. +## + +.SUFFIXES: + +RFILES = editline.r complete.r sysos9.r + +%.r: %.c + cc68 -r -Dstrchr=index -Dstrrchr=rindex -DNEED_STRDUP -DSYS_OS9 $*.c + +testit: testit.r editline.lib + cc68 -f=testit testit.r -l=editline.lib + +$(RFILES): $(RFILES:%.r=%.c) + +editline.lib: $(RFILES) + cat $(RFILES) >$@ diff --git a/TODO b/TODO index 155de1e..2fb6ed1 100644 --- a/TODO +++ b/TODO @@ -1,7 +1,8 @@ TODO * Port "fileman" example from BSD libedit, http://www.thrysoee.dk/editline/ -* Add support for rl_bind_key(), currently one needs to "hack" the Map[] +* Instead of supporting multiline input, try the Emacs approach, line scrolling. +* Add support for rl_bind_key(), currently only en editline specific el_bind_key() exists. * Add support for inhibiting completion: rl_inhibit_completion * Make "char *rl_prompt" globally visible. * Add support for rl_set_prompt(). diff --git a/config.h.in b/config.h.in index 5e4085b..9f67c31 100644 --- a/config.h.in +++ b/config.h.in @@ -18,7 +18,7 @@ /* Define to enable SIGSTOP (Ctrl-Z) key. */ #undef CONFIG_SIGSTOP -/* Don't save command if same as last one. */ +/* Define to skip duplicate lines in the scrollback history. */ #undef CONFIG_UNIQUE_HISTORY /* Define to use the termcap library for terminal size. */ @@ -112,12 +112,6 @@ /* Define to 1 if you have the header file. */ #undef HAVE_UNISTD_H -/* Enable static keyword, hides internal methods. */ -#undef HIDE - -/* Number of lines in history. */ -#undef HIST_SIZE - /* Define to 1 if `lstat' dereferences a symlink specified with a trailing slash. */ #undef LSTAT_FOLLOWS_SLASHED_SYMLINK diff --git a/configure b/configure index 7448e97..7ed4a1d 100755 --- a/configure +++ b/configure @@ -748,8 +748,6 @@ am__EXEEXT_TRUE LTLIBOBJS TERMLIBS AM_CFLAGS -CONFIG_DEFAULT_COMPLETE_FALSE -CONFIG_DEFAULT_COMPLETE_TRUE LIBOBJS CPP OTOOL64 @@ -869,13 +867,12 @@ with_pic enable_fast_install with_gnu_ld enable_libtool_lock +enable_unique_history enable_default_complete enable_arrow_keys enable_sigstop enable_terminal_bell enable_termcap -enable_history -enable_unique_history ' ac_precious_vars='build_alias host_alias @@ -1514,13 +1511,15 @@ Optional Features: --enable-fast-install[=PKGS] optimize for fast installation [default=yes] --disable-libtool-lock avoid locking (might break parallel builds) - --enable-default-complete Enable default completion handler. - --enable-arrow-keys Enable ANSI arrow keys. - --enable-sigstop Enable SIGSTOP key. - --enable-terminal-bell Enable terminal bell on completion. - --enable-termcap Use the termcap library for terminal size. - --enable-history=LINES Enable scrollback history, default off. - --enable-unique-history Uniqify scrollback history, i.e., don't save dupes. + --disable-unique-history + Disable uniqify of scrollback. Default: duplicate + entries are ignored. Use this to save dupes. + --disable-default-complete + Disable default (filename) completion handler. + --disable-arrow-keys Disable ANSI arrow keys. + --enable-sigstop Enable SIGSTOP key. + --enable-terminal-bell Enable terminal bell on completion. + --enable-termcap Use termcap library to query terminal size. Optional Packages: --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] @@ -4562,13 +4561,13 @@ if test "${lt_cv_nm_interface+set}" = set; then : else lt_cv_nm_interface="BSD nm" echo "int some_variable = 0;" > conftest.$ac_ext - (eval echo "\"\$as_me:4565: $ac_compile\"" >&5) + (eval echo "\"\$as_me:4564: $ac_compile\"" >&5) (eval "$ac_compile" 2>conftest.err) cat conftest.err >&5 - (eval echo "\"\$as_me:4568: $NM \\\"conftest.$ac_objext\\\"\"" >&5) + (eval echo "\"\$as_me:4567: $NM \\\"conftest.$ac_objext\\\"\"" >&5) (eval "$NM \"conftest.$ac_objext\"" 2>conftest.err > conftest.out) cat conftest.err >&5 - (eval echo "\"\$as_me:4571: output\"" >&5) + (eval echo "\"\$as_me:4570: output\"" >&5) cat conftest.out >&5 if $GREP 'External.*some_variable' conftest.out > /dev/null; then lt_cv_nm_interface="MS dumpbin" @@ -5774,7 +5773,7 @@ ia64-*-hpux*) ;; *-*-irix6*) # Find out which ABI we are using. - echo '#line 5777 "configure"' > conftest.$ac_ext + echo '#line 5776 "configure"' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? @@ -7304,11 +7303,11 @@ else -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` - (eval echo "\"\$as_me:7307: $lt_compile\"" >&5) + (eval echo "\"\$as_me:7306: $lt_compile\"" >&5) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&5 - echo "$as_me:7311: \$? = $ac_status" >&5 + echo "$as_me:7310: \$? = $ac_status" >&5 if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. @@ -7643,11 +7642,11 @@ else -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` - (eval echo "\"\$as_me:7646: $lt_compile\"" >&5) + (eval echo "\"\$as_me:7645: $lt_compile\"" >&5) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&5 - echo "$as_me:7650: \$? = $ac_status" >&5 + echo "$as_me:7649: \$? = $ac_status" >&5 if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. @@ -7748,11 +7747,11 @@ else -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` - (eval echo "\"\$as_me:7751: $lt_compile\"" >&5) + (eval echo "\"\$as_me:7750: $lt_compile\"" >&5) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&5 - echo "$as_me:7755: \$? = $ac_status" >&5 + echo "$as_me:7754: \$? = $ac_status" >&5 if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized @@ -7803,11 +7802,11 @@ else -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` - (eval echo "\"\$as_me:7806: $lt_compile\"" >&5) + (eval echo "\"\$as_me:7805: $lt_compile\"" >&5) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&5 - echo "$as_me:7810: \$? = $ac_status" >&5 + echo "$as_me:7809: \$? = $ac_status" >&5 if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized @@ -10187,7 +10186,7 @@ else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext <<_LT_EOF -#line 10190 "configure" +#line 10189 "configure" #include "confdefs.h" #if HAVE_DLFCN_H @@ -10283,7 +10282,7 @@ else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext <<_LT_EOF -#line 10286 "configure" +#line 10285 "configure" #include "confdefs.h" #if HAVE_DLFCN_H @@ -10908,9 +10907,6 @@ fi $as_echo "#define SYS_UNIX 1" >>confdefs.h - -$as_echo "#define HIDE 1" >>confdefs.h - ac_fn_c_check_type "$LINENO" "size_t" "ac_cv_type_size_t" "$ac_includes_default" if test "x$ac_cv_type_size_t" = x""yes; then : @@ -11130,26 +11126,32 @@ fi done -# Check whether --enable-default-complete was given. -if test "${enable_default_complete+set}" = set; then : - enableval=$enable_default_complete; complete=true; -$as_echo "#define CONFIG_DEFAULT_COMPLETE /**/" >>confdefs.h +# Check whether --enable-unique-history was given. +if test "${enable_unique_history+set}" = set; then : + enableval=$enable_unique_history; +else + +$as_echo "#define CONFIG_UNIQUE_HISTORY 1" >>confdefs.h fi - if test x$complete = xtrue; then - CONFIG_DEFAULT_COMPLETE_TRUE= - CONFIG_DEFAULT_COMPLETE_FALSE='#' + +# Check whether --enable-default-complete was given. +if test "${enable_default_complete+set}" = set; then : + enableval=$enable_default_complete; else - CONFIG_DEFAULT_COMPLETE_TRUE='#' - CONFIG_DEFAULT_COMPLETE_FALSE= + +$as_echo "#define CONFIG_DEFAULT_COMPLETE 1" >>confdefs.h + fi # Check whether --enable-arrow-keys was given. if test "${enable_arrow_keys+set}" = set; then : enableval=$enable_arrow_keys; -$as_echo "#define CONFIG_ANSI_ARROWS /**/" >>confdefs.h +else + +$as_echo "#define CONFIG_ANSI_ARROWS 1" >>confdefs.h fi @@ -11157,7 +11159,7 @@ fi # Check whether --enable-sigstop was given. if test "${enable_sigstop+set}" = set; then : enableval=$enable_sigstop; -$as_echo "#define CONFIG_SIGSTOP /**/" >>confdefs.h +$as_echo "#define CONFIG_SIGSTOP 1" >>confdefs.h fi @@ -11165,7 +11167,7 @@ fi # Check whether --enable-terminal-bell was given. if test "${enable_terminal_bell+set}" = set; then : enableval=$enable_terminal_bell; -$as_echo "#define CONFIG_ANNOYING_NOISE /**/" >>confdefs.h +$as_echo "#define CONFIG_ANNOYING_NOISE 1" >>confdefs.h fi @@ -11173,31 +11175,7 @@ fi # Check whether --enable-termcap was given. if test "${enable_termcap+set}" = set; then : enableval=$enable_termcap; -$as_echo "#define CONFIG_USE_TERMCAP /**/" >>confdefs.h - -fi - - -# Default history size 1, i.e. disabled. -let HIST_SIZE=1 -# Check whether --enable-history was given. -if test "${enable_history+set}" = set; then : - enableval=$enable_history; let HIST_SIZE=$enableval -fi - -if test $HIST_SIZE -lt 1; then - let HIST_SIZE=1 -fi - -cat >>confdefs.h <<_ACEOF -#define HIST_SIZE $HIST_SIZE -_ACEOF - - -# Check whether --enable-unique-history was given. -if test "${enable_unique_history+set}" = set; then : - enableval=$enable_unique_history; -$as_echo "#define CONFIG_UNIQUE_HISTORY /**/" >>confdefs.h +$as_echo "#define CONFIG_USE_TERMCAP 1" >>confdefs.h fi @@ -11534,10 +11512,6 @@ if test -z "${am__fastdepCC_TRUE}" && test -z "${am__fastdepCC_FALSE}"; then as_fn_error "conditional \"am__fastdepCC\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi -if test -z "${CONFIG_DEFAULT_COMPLETE_TRUE}" && test -z "${CONFIG_DEFAULT_COMPLETE_FALSE}"; then - as_fn_error "conditional \"CONFIG_DEFAULT_COMPLETE\" was never defined. -Usually this means the macro was only invoked conditionally." "$LINENO" 5 -fi : ${CONFIG_STATUS=./config.status} ac_write_fail=0 diff --git a/configure.ac b/configure.ac index 4b155cc..af6feec 100644 --- a/configure.ac +++ b/configure.ac @@ -43,7 +43,6 @@ AC_HEADER_TIOCGWINSZ # Overrides and types, should be a check. AC_DEFINE([SYS_UNIX], [1], [Default to UNIX backend, should be detected.]) -AC_DEFINE([HIDE], [1], [Enable static keyword, hides internal methods.]) AC_TYPE_SIZE_T # Checks for library functions. @@ -52,40 +51,30 @@ AC_PROG_GCC_TRADITIONAL AC_FUNC_STAT AC_CHECK_FUNCS([strchr strdup strrchr tcgetattr perror]) +AC_ARG_ENABLE(unique-history, + [AS_HELP_STRING([--disable-unique-history], + [Disable uniqify of scrollback. Default: duplicate entries are ignored. Use this to save dupes.])], + , AC_DEFINE(CONFIG_UNIQUE_HISTORY, 1, [Define to skip duplicate lines in the scrollback history.])) + AC_ARG_ENABLE(default-complete, - [ --enable-default-complete Enable default completion handler.], - complete=true; AC_DEFINE(CONFIG_DEFAULT_COMPLETE,, [Define to enable the default completion handler.])) -AM_CONDITIONAL([CONFIG_DEFAULT_COMPLETE], [test x$complete = xtrue]) + [AS_HELP_STRING([--disable-default-complete], [Disable default (filename) completion handler.])], + , AC_DEFINE(CONFIG_DEFAULT_COMPLETE, 1, [Define to enable the default completion handler.])) AC_ARG_ENABLE(arrow-keys, - [ --enable-arrow-keys Enable ANSI arrow keys.], - AC_DEFINE([CONFIG_ANSI_ARROWS],, [Define to include ANSI arrow keys support.])) + [AS_HELP_STRING([--disable-arrow-keys], [Disable ANSI arrow keys.])], + , AC_DEFINE(CONFIG_ANSI_ARROWS, 1, [Define to include ANSI arrow keys support.])) AC_ARG_ENABLE(sigstop, - [ --enable-sigstop Enable SIGSTOP key.], - AC_DEFINE([CONFIG_SIGSTOP],, [Define to enable SIGSTOP (Ctrl-Z) key.])) + [AS_HELP_STRING([--enable-sigstop], [Enable SIGSTOP key.])], + AC_DEFINE([CONFIG_SIGSTOP], 1, [Define to enable SIGSTOP (Ctrl-Z) key.])) AC_ARG_ENABLE(terminal-bell, - [ --enable-terminal-bell Enable terminal bell on completion.], - AC_DEFINE([CONFIG_ANNOYING_NOISE],, [Define to enable terminal bell on completion.])) + [AS_HELP_STRING([--enable-terminal-bell], [Enable terminal bell on completion.])], + AC_DEFINE([CONFIG_ANNOYING_NOISE], 1, [Define to enable terminal bell on completion.])) AC_ARG_ENABLE(termcap, - [ --enable-termcap Use the termcap library for terminal size.], - AC_DEFINE([CONFIG_USE_TERMCAP],, [Define to use the termcap library for terminal size.])) - -# Default history size 1, i.e. disabled. -let HIST_SIZE=1 -AC_ARG_ENABLE(history, - [ --enable-history=LINES Enable scrollback history, default off.], - let HIST_SIZE=$enableval) -if test $HIST_SIZE -lt 1; then - let HIST_SIZE=1 -fi -AC_DEFINE_UNQUOTED(HIST_SIZE, $HIST_SIZE, [Number of lines in history.]) - -AC_ARG_ENABLE(unique-history, - [ --enable-unique-history Uniqify scrollback history, i.e., don't save dupes.], - AC_DEFINE([CONFIG_UNIQUE_HISTORY],, [Don't save command if same as last one.])) + [AS_HELP_STRING([--enable-termcap], [Use termcap library to query terminal size.])], + AC_DEFINE([CONFIG_USE_TERMCAP], 1, [Define to use the termcap library for terminal size.])) # Restore gnu89 inline semantics on gcc 4.3 and newer saved_cflags="$CFLAGS" diff --git a/examples/Makefile.am b/examples/Makefile.am index 4c77bf9..76e9498 100644 --- a/examples/Makefile.am +++ b/examples/Makefile.am @@ -3,4 +3,4 @@ AUTOMAKE_OPTIONS = foreign noinst_PROGRAMS = testit cli fileman LDADD = $(top_builddir)/src/libeditline.la $(TERMLIBS) AM_CFLAGS = -I$(top_srcdir)/src -I$(top_srcdir)/include - +AM_LDFLAGS = -static diff --git a/examples/Makefile.in b/examples/Makefile.in index e35a690..c043bdc 100644 --- a/examples/Makefile.in +++ b/examples/Makefile.in @@ -215,6 +215,7 @@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ AUTOMAKE_OPTIONS = foreign LDADD = $(top_builddir)/src/libeditline.la $(TERMLIBS) +AM_LDFLAGS = -static all: all-am .SUFFIXES: diff --git a/examples/cli.c b/examples/cli.c index c1aa002..105fb79 100644 --- a/examples/cli.c +++ b/examples/cli.c @@ -22,6 +22,8 @@ #include "editline.h" #include +#define HISTORY "/tmp/.cli-history" + static char *list[] = { "foo ", "bar ", "bsd ", "cli ", "ls ", "cd ", "malloc ", "tee ", NULL }; @@ -78,6 +80,28 @@ static int my_rl_list_possib(char *token, char ***av) return total; } +el_status_t list_possible(void) +{ + char **av; + char *word; + int ac; + + word = el_find_word(); + ac = rl_list_possib(word, &av); + if (word) + free(word); + if (ac) { + el_print_columns(ac, av); + while (--ac >= 0) + free(av[ac]); + free(av); + + return CSmove; + } + + return el_ring_bell(); +} + int main(int ac __attribute__ ((unused)), char *av[] __attribute__ ((unused))) { char *line; @@ -86,11 +110,15 @@ int main(int ac __attribute__ ((unused)), char *av[] __attribute__ ((unused))) /* Setup callbacks */ rl_set_complete_func(&my_rl_complete); rl_set_list_possib_func(&my_rl_list_possib); + el_bind_key('?', list_possible); + read_history(HISTORY); while ((line = readline(prompt)) != NULL) { printf("\t\t\t|%s|\n", line); free(line); } + write_history(HISTORY); + return 0; } diff --git a/include/editline.h b/include/editline.h index 0f3f3dd..178a734 100644 --- a/include/editline.h +++ b/include/editline.h @@ -27,38 +27,60 @@ typedef enum { } el_status_t; /* Editline specific types, despite rl_ prefix. From Heimdal project. */ -typedef char* (*rl_complete_func_t)(char*, int*); -typedef int (*rl_list_possib_func_t)(char*, char***); -typedef el_status_t (*el_keymap_func_t)(void); +typedef char* rl_complete_func_t(char*, int*); +typedef int rl_list_possib_func_t(char*, char***); +typedef el_status_t el_keymap_func_t(void); +typedef int rl_hook_func_t(void); +typedef int rl_getc_func_t(void); +typedef void rl_voidfunc_t(void); +typedef void rl_vintfunc_t(int); /* Display 8-bit chars "as-is" or as `M-x'? Toggle with M-m. (Default:0 - "as-is") */ extern int rl_meta_chars; +/* Editline specific functions. */ +extern char * el_find_word(void); +extern void el_print_columns(int ac, char **av); +extern el_status_t el_ring_bell(void); + +extern void el_bind_key(int key, el_keymap_func_t function); +extern void el_bind_key_in_metamap(int key, el_keymap_func_t function); + +extern char *rl_complete(char *token, int *match); +extern int rl_list_possib(char *token, char ***av); + /* For compatibility with GNU Readline. */ +extern int rl_point; +extern int rl_mark; +extern int rl_end; +extern char *rl_line_buffer; +extern const char *rl_readline_name; +extern FILE *rl_instream; /* The stdio stream from which input is read. Defaults to stdin if NULL - Not supported yet! */ +extern FILE *rl_outstream; /* The stdio stream to which output is flushed. Defaults to stdout if NULL - Not supported yet! */ +extern int el_no_echo; /* e.g under emacs, don't echo except prompt */ +extern int el_hist_size; /* size of history scrollback buffer, default: 15 */ + +extern void rl_initialize(void); +extern void rl_reset_terminal(const char *terminal_name); + +extern void rl_prep_terminal(int meta_flag); +extern void rl_deprep_terminal(void); + +extern int rl_getc(void); + +extern char *readline(const char *prompt); +extern void add_history(const char *line); + +extern int read_history(const char *filename); +extern int write_history(const char *filename); + +extern rl_complete_func_t *rl_set_complete_func(rl_complete_func_t *func); +extern rl_list_possib_func_t *rl_set_list_possib_func(rl_list_possib_func_t *func); + extern char *(*rl_completion_entry_function)(const char *text, int state); extern char *rl_filename_completion_function(const char *text, int state); extern int rl_attempted_completion_over; extern char **(*rl_attempted_completion_function)(const char *text, int start, int end); -/* Use these functions to set custom command/file completion, see cli.c for example usage. */ -rl_complete_func_t rl_set_complete_func(rl_complete_func_t func); -rl_list_possib_func_t rl_set_list_possib_func(rl_list_possib_func_t func); - -/* Editline specific functions. */ -void el_bind_key_in_metamap(char c, el_keymap_func_t func); - -/* For compatibility with FSF readline. */ -extern int rl_point; -extern int rl_mark; -extern int rl_end; -extern char *rl_line_buffer; -extern const char *rl_readline_name; -extern int el_no_echo; /* e.g under emacs, don't echo except prompt */ -extern void rl_reset_terminal(char *p); -extern void rl_initialize(void); - -extern char *readline(const char *prompt); -extern void add_history(char *line); /* OBSOLETE: Made part of readline(). -- kjb */ - #endif /* __EDITLINE_H__ */ diff --git a/man/editline.3 b/man/editline.3 index fe5b8d3..9b71686 100644 --- a/man/editline.3 +++ b/man/editline.3 @@ -3,54 +3,43 @@ editline \- command-line editing library with history .SH SYNOPSIS .nf -.B "char *" -.B "readline(prompt)" -.B " char *prompt;" - -.B "void" -.B "add_history(line)" -.B " char *line;" +.B "char *readline(char *prompt);" .fi .SH DESCRIPTION .I Editline -is a library that provides an line-editing interface with text recall. -It is intended to be compatible with the +is a library that provides an line-editing interface with history. +It is intended to be functionally equivalent with the .I readline library provided by the Free Software Foundation, but much smaller. The bulk of this manual page describes the user interface. .PP The -.I readline -routine returns a line of text with the trailing newline removed. -The data is returned in a buffer allocated with +.I readline() +function displays the given +.I prompt +on stdout, waits for user input on stdin and then +returns a line of text with the trailing newline removed. The data is returned in a +buffer allocated with .IR malloc (3), so the space should be released with .IR free (3) when the calling program is done with it. -Before accepting input from the user, the specified -.I prompt -is displayed on the terminal. .PP Each line returned is copied to the internal history list, unless it happens -to be equal to the previous line. +to be equal to the previous line. This is configurable if you are building editline +from source. .SS "User Interface" -A program that uses this library provides a simple emacs-like editing -interface to its users. -A line may be edited before it is sent to the calling program by typing either -control characters or escape sequences. -A control character, shown as a caret followed by a letter, is typed by -holding down the ``control'' key while the letter is typed. -For example, ``^A'' is a control-A. -An escape sequence is entered by typing the ``escape'' key followed by one or -more characters. -The escape key is abbreviated as ``ESC''. -Note that unlike control keys, case matters in escape sequences; ``ESC\ F'' -is not the same as ``ESC\ f''. +A program that uses this library provides a simple emacs-like editing interface to +its users. A line may be edited before it is sent to the calling program by typing +either control characters or escape sequences. A control character, shown as a caret +followed by a letter, is typed by holding down the ``control'' key while the letter +is typed. For example, ``^A'' is a control-A. An escape sequence is entered by +typing the ``escape'' key followed by one or more characters. The escape key is +abbreviated as ``ESC''. Note that unlike control keys, case matters in escape +sequences; ``ESC\ F'' is not the same as ``ESC\ f''. .PP -An editing command may be typed anywhere on the line, not just at the -beginning. -In addition, a return may also be typed anywhere on the line, not just at -the end. +An editing command may be typed anywhere on the line, not just at the beginning. In +addition, a return may also be typed anywhere on the line, not just at the end. .PP Most editing commands may be given a repeat count, .IR n , @@ -81,8 +70,8 @@ The following control characters are accepted: ^M Done with line (alternate return key) ^N Get next line from history [n] ^P Get previous line from history [n] -^R Search backward (forward if [n]) through history for text; -\& must start line if text begins with an uparrow +^R Search backward (forward if [n]) through history for +\& text; must start line if text begins with an uparrow ^T Transpose characters ^V Insert next character, even if it is an edit command ^W Wipe to the mark @@ -109,7 +98,8 @@ ESC\ b Move backward a word [n] ESC\ d Delete word under cursor [n] ESC\ f Move forward a word [n] ESC\ l Make word lowercase [n] -ESC\ m Toggle if 8bit chars display normally or with ``M\-'' prefix +ESC\ m Toggle if 8bit chars display normally or with an +\& ``M\-'' prefix ESC\ u Make word uppercase [n] ESC\ y Yank back last killed text ESC\ v Show library version @@ -164,11 +154,41 @@ for you: .RE The tab key is shown by ``[TAB]'' and the automatically-entered text is shown in italics. -.SH "BUGS AND LIMITATIONS" -Doesn't know how to handle multiple lines. -.SH AUTHORS -Simmule R. Turner -and Rich $alz . -Original manual page by DaviD W. Sanderson . -.\" $PchId: editline.3,v 1.3 1996/02/22 21:18:51 philip Exp $ +.SH "USAGE" +To include +.I readline() +in your program, simply call it as you do any other function. Just make sure to link +your program with libeditline. + +.SS "Example" +The following brief example lets you enter a line and edit it, then displays it. + +.nf +.B "#include " +.B "" +.B "extern char *readline(char *prompt);" +.B "" +.B "int main (void)" +.B "{" +.B " char *p;" +.B "" +.B " while ((p = readline(``CLI> '')) != NULL) {" +.B " printf(\"%s\n\", p);" +.B " free(p);" +.B " }" +.B "" +.B " return 0;" +.B "}" +.fi + +.SH "BUGS AND LIMITATIONS" +Doesn't know how to handle multiple lines or unicode characters well. See the TODO +file in the distribution if you want to help out. + +.SH AUTHORS +The original editline library was created by Simmule R. Turner and Rich $alz. It is +now maintained in several forks: Heimdal, Festival speech tools, Mozilla, Google +Gadgets for Linux, and many other places. The original manual page was made by DaviD +W. Sanderson. This version was made by Joachim Nilsson . + diff --git a/src/Makefile.am b/src/Makefile.am index 4493edb..47cb2fd 100644 --- a/src/Makefile.am +++ b/src/Makefile.am @@ -1,7 +1,3 @@ AUTOMAKE_OPTIONS = foreign lib_LTLIBRARIES = libeditline.la -libeditline_la_SOURCES = editline.c editline.h sysunix.c unix.h -if CONFIG_DEFAULT_COMPLETE -# Built-in completion handler. -libeditline_la_SOURCES += complete.c -endif +libeditline_la_SOURCES = editline.c editline.h complete.c sysunix.c unix.h diff --git a/src/Makefile.in b/src/Makefile.in index ee5f05a..2036e8d 100644 --- a/src/Makefile.in +++ b/src/Makefile.in @@ -34,8 +34,6 @@ PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ -# Built-in completion handler. -@CONFIG_DEFAULT_COMPLETE_TRUE@am__append_1 = complete.c subdir = src DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 @@ -73,10 +71,7 @@ am__base_list = \ am__installdirs = "$(DESTDIR)$(libdir)" LTLIBRARIES = $(lib_LTLIBRARIES) libeditline_la_LIBADD = -am__libeditline_la_SOURCES_DIST = editline.c editline.h sysunix.c \ - unix.h complete.c -@CONFIG_DEFAULT_COMPLETE_TRUE@am__objects_1 = complete.lo -am_libeditline_la_OBJECTS = editline.lo sysunix.lo $(am__objects_1) +am_libeditline_la_OBJECTS = editline.lo complete.lo sysunix.lo libeditline_la_OBJECTS = $(am_libeditline_la_OBJECTS) AM_V_lt = $(am__v_lt_$(V)) am__v_lt_ = $(am__v_lt_$(AM_DEFAULT_VERBOSITY)) @@ -108,7 +103,7 @@ AM_V_GEN = $(am__v_GEN_$(V)) am__v_GEN_ = $(am__v_GEN_$(AM_DEFAULT_VERBOSITY)) am__v_GEN_0 = @echo " GEN " $@; SOURCES = $(libeditline_la_SOURCES) -DIST_SOURCES = $(am__libeditline_la_SOURCES_DIST) +DIST_SOURCES = $(libeditline_la_SOURCES) ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) @@ -228,8 +223,7 @@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ AUTOMAKE_OPTIONS = foreign lib_LTLIBRARIES = libeditline.la -libeditline_la_SOURCES = editline.c editline.h sysunix.c unix.h \ - $(am__append_1) +libeditline_la_SOURCES = editline.c editline.h complete.c sysunix.c unix.h all: all-am .SUFFIXES: diff --git a/src/complete.c b/src/complete.c index 7913082..96230e9 100644 --- a/src/complete.c +++ b/src/complete.c @@ -140,12 +140,12 @@ static int SplitPath(char *path, char **dirpart, char **filepart) return 0; } -static rl_complete_func_t el_complete_func = NULL; +static rl_complete_func_t *el_complete_func = NULL; /* For compatibility with the Heimdal project. */ -rl_complete_func_t rl_set_complete_func(rl_complete_func_t func) +rl_complete_func_t *rl_set_complete_func(rl_complete_func_t *func) { - rl_complete_func_t old = el_complete_func; + rl_complete_func_t *old = el_complete_func; el_complete_func = func; return old; } @@ -234,12 +234,12 @@ char *rl_complete(char *token, int *match) #endif } -static rl_list_possib_func_t el_list_possib_func = NULL; +static rl_list_possib_func_t *el_list_possib_func = NULL; /* For compatibility with the Heimdal project. */ -rl_list_possib_func_t rl_set_list_possib_func(rl_list_possib_func_t func) +rl_list_possib_func_t *rl_set_list_possib_func(rl_list_possib_func_t *func) { - rl_list_possib_func_t old = el_list_possib_func; + rl_list_possib_func_t *old = el_list_possib_func; el_list_possib_func = func; return old; } diff --git a/src/editline.c b/src/editline.c index 43bd7bc..c4c1fc7 100644 --- a/src/editline.c +++ b/src/editline.c @@ -30,6 +30,8 @@ */ #define SCREEN_COLS 80 #define SCREEN_ROWS 24 +#define EL_STDIN 0 +#define EL_STDOUT 1 #define NO_ARG (-1) #define DEL 127 #define CTL(x) ((x) & 0x1F) @@ -38,9 +40,6 @@ #define META(x) ((x) | 0x80) #define ISMETA(x) ((x) & 0x80) #define UNMETA(x) ((x) & 0x7F) -#ifndef HIST_SIZE /* Default to one line history, i.e. disabled. */ -#define HIST_SIZE 1 -#endif #define SEPS "\"#$&'()*:;<=>?[\\]^`{|}~\n\t " /* @@ -64,9 +63,14 @@ typedef struct { typedef struct { int Size; int Pos; - char *Lines[HIST_SIZE]; + char **Lines; } el_hist_t; +rl_getc_func_t *rl_getc_function = rl_getc; +rl_hook_func_t *rl_event_hook; +rl_vintfunc_t *rl_prep_term_function = rl_prep_terminal; +rl_voidfunc_t *rl_deprep_term_function = rl_deprep_terminal; + /* ** Globals. */ @@ -79,25 +83,34 @@ int rl_quit; int rl_susp; #endif +int el_hist_size = 15; +static el_hist_t H = { + .Size = 0, + .Pos = 0, + .Lines = NULL, +}; + static char NILSTR[] = ""; static const char *el_input = NILSTR; static char *Yanked; static char *Screen; static char NEWLINE[]= CRLF; -static el_hist_t H; +static const char *el_term = "dumb"; static int Repeat; static int old_point; static int el_push_back; static int el_pushed; static int el_intr_pending; +static int el_infd = EL_STDIN; +static int el_outfd = EL_STDOUT; static el_keymap_t Map[]; static el_keymap_t MetaMap[]; static size_t Length; static size_t ScreenCount; static size_t ScreenSize; -static char *backspace; -static int tty_cols; -static int tty_rows; +static char *backspace = "\b"; +static int tty_cols = SCREEN_COLS; +static int tty_rows = SCREEN_ROWS; int el_no_echo = 0; /* e.g., under Emacs */ int rl_point; @@ -106,7 +119,9 @@ int rl_end; int rl_meta_chars = 0; /* Display 8-bit chars as the actual char(0) or as `M-x'(1)? */ char *rl_line_buffer; const char *rl_prompt; -const char *rl_readline_name;/* Set by calling program, for conditional parsing of ~/.inputrc - Not supported yet! */ +const char *rl_readline_name; /* Set by calling program, for conditional parsing of ~/.inputrc - Not supported yet! */ +FILE *rl_instream = NULL; /* The stdio stream from which input is read. Defaults to stdin if NULL */ +FILE *rl_outstream = NULL; /* The stdio stream to which output is flushed. Defaults to stdout if NULL */ /* User definable callbacks. */ char **(*rl_attempted_completion_function)(const char *token, int start, int end); @@ -145,7 +160,7 @@ static void tty_flush(void) if (ScreenCount) { if (!el_no_echo) - res = write(1, Screen, ScreenCount); + res = write(el_outfd, Screen, ScreenCount); ScreenCount = 0; } } @@ -194,11 +209,20 @@ static void tty_push(int c) el_push_back = c; } +int rl_getc(void) +{ + int r; + char c; + + do { + r = read(el_infd, &c, 1); + } while (r == -1 && errno == EINTR); + + return r == 1 ? c : EOF; +} + static int tty_get(void) { - char c; - int r; - tty_flush(); if (el_pushed) { el_pushed = 0; @@ -206,15 +230,11 @@ static int tty_get(void) } if (*el_input) return *el_input++; - do - { - r = read(0, &c, 1); - } while (r == -1 && errno == EINTR); - return r == 1 ? c : EOF; + return rl_getc_function(); } -#define tty_back() (backspace ? tty_puts(backspace) : tty_put('\b')) +#define tty_back() tty_puts(backspace) static void tty_backn(int n) { @@ -224,21 +244,13 @@ static void tty_backn(int n) static void tty_info(void) { - static int init; -#ifdef CONFIG_USE_TERMCAP - char *term; - char buff[2048]; - char *bp; -#endif -#ifdef TIOCGWINSZ - struct winsize W; -#endif + static int init; if (init) { #ifdef TIOCGWINSZ - /* Perhaps we got resized. */ - if (ioctl(0, TIOCGWINSZ, &W) >= 0 - && W.ws_col > 0 && W.ws_row > 0) { + struct winsize W; + + if (ioctl(el_outfd, TIOCGWINSZ, &W) >= 0 && W.ws_col > 0 && W.ws_row > 0) { tty_cols = (int)W.ws_col; tty_rows = (int)W.ws_row; } @@ -249,39 +261,28 @@ static void tty_info(void) /* Initialize to faulty values to trigger fallback if nothing else works. */ tty_cols = tty_rows = -1; -#ifdef CONFIG_USE_TERMCAP - bp = buff; - if ((term = getenv("TERM")) == NULL) - term = "dumb"; - if (-1 != tgetent(buff, term)) { - if ((backspace = tgetstr("le", &bp)) != NULL) - backspace = strdup(backspace); - else - backspace = "\b"; - tty_cols = tgetnum("co"); - tty_rows = tgetnum("li"); - } - /* Make sure to check width & rows and fallback to TIOCGWINSZ if available. */ -#endif - - if (tty_cols <= 0 || tty_rows <= 0) { -#ifdef TIOCGWINSZ - if (-1 != ioctl(0, TIOCGWINSZ, &W)) { - tty_cols = (int)W.ws_col; - tty_rows = (int)W.ws_row; - return; - } -#endif - tty_cols = SCREEN_COLS; - tty_rows = SCREEN_ROWS; - } + rl_reset_terminal(NULL); } +/* +** Glue routines to rl_ttyset() +*/ +void rl_prep_terminal(int meta_flag) +{ + rl_meta_chars = !meta_flag; + rl_ttyset(0); +} + +void rl_deprep_terminal(void) +{ + rl_ttyset(1); +} + /* ** Print an array of words in columns. */ -static void columns(int ac, char **av) +void el_print_columns(int ac, char **av) { char *p; int i; @@ -346,7 +347,7 @@ static void right(el_status_t Change) rl_point++; } -static el_status_t ring_bell(void) +el_status_t el_ring_bell(void) { tty_put('\07'); tty_flush(); @@ -364,7 +365,7 @@ static el_status_t do_macro(int c) if ((el_input = (char *)getenv((char *)name)) == NULL) { el_input = NILSTR; - return ring_bell(); + return el_ring_bell(); } return CSstay; } @@ -535,7 +536,7 @@ static const char *prev_hist(void) static el_status_t do_insert_hist(const char *p) { if (p == NULL) - return ring_bell(); + return el_ring_bell(); rl_point = 0; reposition(); @@ -553,7 +554,7 @@ static el_status_t do_hist(const char *(*move)(void)) i = 0; do { if ((p = move()) == NULL) - return ring_bell(); + return el_ring_bell(); } while (++i < Repeat); return do_insert_hist(p); } @@ -640,7 +641,7 @@ static el_status_t h_search(void) const char *p; if (Searching) - return ring_bell(); + return el_ring_bell(); Searching = 1; clear_line(); @@ -660,7 +661,7 @@ static el_status_t h_search(void) p = search_hist(p, move); clear_line(); if (p == NULL) { - ring_bell(); + el_ring_bell(); return redisplay(); } return do_insert_hist(p); @@ -702,7 +703,7 @@ static el_status_t delete_string(int count) char *p; if (count <= 0 || rl_end == rl_point) - return ring_bell(); + return el_ring_bell(); if (count == 1 && rl_point == rl_end - 1) { /* Optimize common case of delete at end of line. */ @@ -866,7 +867,7 @@ static el_status_t meta(void) break; } - return ring_bell(); + return el_ring_bell(); } #endif /* CONFIG_ANSI_ARROWS */ @@ -884,7 +885,7 @@ static el_status_t meta(void) return kp->Function(); } - return ring_bell(); + return el_ring_bell(); } static el_status_t emacs(int c) @@ -1000,19 +1001,33 @@ static char *editinput(void) return NULL; } -static void hist_add(char *p) +static void hist_alloc(void) +{ + if (!H.Lines) + H.Lines = calloc(el_hist_size, sizeof(char *)); +} + +static void hist_add(const char *p) { int i; + char *s; - if ((p = (char *)strdup((char *)p)) == NULL) +#ifdef CONFIG_UNIQUE_HISTORY + if (H.Pos && strcmp(p, H.Lines[H.Pos - 1]) == 0) return; - if (H.Size < HIST_SIZE) { - H.Lines[H.Size++] = p; +#endif + if (H.Size && strcmp(p, H.Lines[H.Size - 1]) == 0) + return; + + if ((s = strdup(p)) == NULL) + return; + if (H.Size < el_hist_size) { + H.Lines[H.Size++] = s; } else { free(H.Lines[0]); - for (i = 0; i < HIST_SIZE - 1; i++) + for (i = 0; i < el_hist_size - 1; i++) H.Lines[i] = H.Lines[i + 1]; - H.Lines[i] = p; + H.Lines[i] = s; } H.Pos = H.Size - 1; } @@ -1041,7 +1056,7 @@ static char *read_redirected(void) p += oldpos; /* Continue where we left off... */ } - if (read(0, p, 1) <= 0) { + if (read(el_infd, p, 1) <= 0) { /* Ignore "incomplete" lines at EOF, just like we do for a tty. */ free(line); return NULL; @@ -1056,19 +1071,67 @@ static char *read_redirected(void) } /* For compatibility with FSF readline. */ -void rl_reset_terminal(char *p __attribute__((__unused__))) +void rl_reset_terminal(const char *terminal_name) { +#ifdef CONFIG_USE_TERMCAP + char buff[2048]; + char *bp; +#endif +#ifdef TIOCGWINSZ + struct winsize W; +#endif + + if (terminal_name) { + el_term = terminal_name; + return; + } + + if ((el_term = getenv("TERM")) == NULL) + el_term = "dumb"; + +#ifdef CONFIG_USE_TERMCAP + bp = buff; + if (-1 != tgetent(buff, el_term)) { + if ((backspace = tgetstr("le", &bp)) != NULL) + backspace = strdup(backspace); + tty_cols = tgetnum("co"); + tty_rows = tgetnum("li"); + } + /* Make sure to check width & rows and fallback to TIOCGWINSZ if available. */ +#endif + + if (tty_cols <= 0 || tty_rows <= 0) { +#ifdef TIOCGWINSZ + if (-1 != ioctl(el_outfd, TIOCGWINSZ, &W)) { + tty_cols = (int)W.ws_col; + tty_rows = (int)W.ws_row; + return; + } +#endif + tty_cols = SCREEN_COLS; + tty_rows = SCREEN_ROWS; + } } void rl_initialize(void) { if (!rl_prompt) rl_prompt = "? "; + + hist_alloc(); + + /* Setup I/O descriptors */ + if (!rl_instream) el_infd = EL_STDIN; + else el_infd = fileno(rl_instream); + if (el_infd < 0) el_infd = EL_STDIN; + if (!rl_outstream) el_outfd = EL_STDOUT; + else el_outfd = fileno(rl_outstream); + if (el_outfd < 0) el_outfd = EL_STDOUT; } char *readline(const char *prompt) { - char *line; + char *line; /* Unless called by the user already. */ rl_initialize(); @@ -1086,7 +1149,7 @@ char *readline(const char *prompt) } tty_info(); - rl_ttyset(0); + rl_prep_term_function(!rl_meta_chars); hist_add(NILSTR); ScreenSize = SCREEN_INC; Screen = malloc(sizeof(char) * ScreenSize); @@ -1111,18 +1174,13 @@ char *readline(const char *prompt) tty_flush(); } - rl_ttyset(1); + rl_deprep_term_function(); free(Screen); free(H.Lines[--H.Size]); - if (line != NULL && *line != '\0' -#ifdef CONFIG_UNIQUE_HISTORY - && !(H.Pos && strcmp(line, H.Lines[H.Pos - 1]) == 0) -#endif - && !(H.Size && strcmp(line, H.Lines[H.Size - 1]) == 0) - ) { + /* Always add history, if it's a sane line. */ + if (line != NULL && *line != '\0') hist_add(line); - } if (el_intr_pending > 0) { int s = el_intr_pending; @@ -1133,20 +1191,58 @@ char *readline(const char *prompt) return line; } -void add_history(char *p __attribute__ ((unused))) +/* Even though readline() itself adds history automatically, the user can also add + * lines. This is for compat with GNU Readline. */ +void add_history(const char *p) { -#ifdef obsolete /* Made part of readline(). -- kjb */ if (p == NULL || *p == '\0') return; -#ifdef CONFIG_UNIQUE_HISTORY - if (H.Pos && strcmp(p, (char *) H.Lines[H.Pos - 1]) == 0) - return; -#endif - if (H.Size && strcmp(p, (char *) H.Lines[H.Size - 1]) == 0) - return; - hist_add((char *)p); -#endif + hist_add(p); +} + + +int read_history(const char *filename) +{ + FILE *fp; + char buf[SCREEN_INC]; + + hist_alloc(); + fp = fopen(filename, "r"); + if (fp) { + H.Size = 0; + while (H.Size < el_hist_size) { + if (!fgets(buf, SCREEN_INC, fp)) + break; + buf[strlen(buf) - 1] = 0; /* Remove '\n' */ + add_history(buf); + } + fclose(fp); + + return 0; + } + + return errno; +} + +int write_history(const char *filename) +{ + FILE *fp; + + hist_alloc(); + fp = fopen(filename, "w"); + if (fp) { + int i = 0; + + while (i < H.Size) { + fprintf(fp, "%s\n", H.Lines[i++]); + } + fclose(fp); + + return 0; + } + + return errno; } @@ -1154,7 +1250,7 @@ void add_history(char *p __attribute__ ((unused))) ** Move back to the beginning of the current word and return an ** allocated copy of it. */ -static char *find_word(void) +char *el_find_word(void) { char *p, *q; char *new; @@ -1197,12 +1293,12 @@ static el_status_t c_possible(void) char *word; int ac; - word = find_word(); + word = el_find_word(); ac = rl_list_possib(word, &av); if (word) free(word); if (ac) { - columns(ac, av); + el_print_columns(ac, av); while (--ac >= 0) free(av[ac]); free(av); @@ -1210,7 +1306,7 @@ static el_status_t c_possible(void) return CSmove; } - return ring_bell(); + return el_ring_bell(); } static el_status_t c_complete(void) @@ -1221,7 +1317,7 @@ static el_status_t c_complete(void) int unique; el_status_t s = 0; - word = find_word(); + word = el_find_word(); p = (char *)rl_complete((char *)word, &unique); if (word) free(word); @@ -1244,7 +1340,7 @@ static el_status_t c_complete(void) s = insert_string(new); #ifdef CONFIG_ANNOYING_NOISE if (!unique) - ring_bell(); + el_ring_bell(); #endif } free(new); @@ -1303,7 +1399,7 @@ static el_status_t exchange(void) int c; if ((c = tty_get()) != CTL('X')) - return c == EOF ? CSeof : ring_bell(); + return c == EOF ? CSeof : el_ring_bell(); if ((c = rl_mark) <= rl_end) { rl_mark = rl_point; @@ -1323,7 +1419,7 @@ static el_status_t yank(void) static el_status_t copy_region(void) { if (rl_mark > rl_end) - return ring_bell(); + return el_ring_bell(); if (rl_point > rl_mark) save_yank(rl_mark, rl_point - rl_mark); @@ -1449,14 +1545,14 @@ static el_status_t last_argument(void) int ac; if (H.Size == 1 || (p = (char *)H.Lines[H.Size - 2]) == NULL) - return ring_bell(); + return el_ring_bell(); if ((p = strdup(p)) == NULL) return CSstay; ac = argify(p, &av); if (Repeat != NO_ARG) - s = Repeat < ac ? insert_string(av[Repeat]) : ring_bell(); + s = Repeat < ac ? insert_string(av[Repeat]) : el_ring_bell(); else s = ac ? insert_string(av[ac - 1]) : CSstay; @@ -1467,14 +1563,14 @@ static el_status_t last_argument(void) return s; } -static el_keymap_t Map[33] = { +static el_keymap_t Map[64] = { { CTL('@'), mk_set }, { CTL('A'), beg_line }, { CTL('B'), bk_char }, { CTL('D'), del_char }, { CTL('E'), end_line }, { CTL('F'), fd_char }, - { CTL('G'), ring_bell }, + { CTL('G'), el_ring_bell }, { CTL('H'), bk_del_char }, { CTL('I'), c_complete }, { CTL('J'), accept_line }, @@ -1482,13 +1578,13 @@ static el_keymap_t Map[33] = { { CTL('L'), redisplay }, { CTL('M'), accept_line }, { CTL('N'), h_next }, - { CTL('O'), ring_bell }, + { CTL('O'), el_ring_bell }, { CTL('P'), h_prev }, - { CTL('Q'), ring_bell }, + { CTL('Q'), el_ring_bell }, { CTL('R'), h_search }, - { CTL('S'), ring_bell }, + { CTL('S'), el_ring_bell }, { CTL('T'), transpose }, - { CTL('U'), ring_bell }, + { CTL('U'), el_ring_bell }, { CTL('V'), quote }, { CTL('W'), bk_kill_word }, { CTL('X'), exchange }, @@ -1496,12 +1592,12 @@ static el_keymap_t Map[33] = { #ifdef SYSTEM_IS_WIN32 { CTL('Z'), end_of_input }, #else - { CTL('Z'), ring_bell }, + { CTL('Z'), el_ring_bell }, #endif { CTL('['), meta }, { CTL(']'), move_to_char }, - { CTL('^'), ring_bell }, - { CTL('_'), ring_bell }, + { CTL('^'), el_ring_bell }, + { CTL('_'), el_ring_bell }, { 0, NULL } }; @@ -1525,31 +1621,40 @@ static el_keymap_t MetaMap[64]= { { 0, NULL } }; -void el_bind_key_in_metamap(char c, el_keymap_func_t func) +static void el_bind_key_in_map(int key, el_keymap_func_t function, el_keymap_t map[], size_t mapsz) { - /* Add given function to key map for META keys */ - int i; + size_t i; - for (i = 0; MetaMap[i].Key != 0; i++) + for (i = 0; Map[i].Function != NULL; i++) { - if (MetaMap[i].Key == c) + if (map[i].Key == key) { - MetaMap[i].Function = func; + map[i].Function = function; return; } } /* A new key so have to add it to end */ - if (i == 63) + if (i == mapsz) { - fprintf(stderr,"editline: MetaMap table full, requires increase\n"); + fprintf(stderr,"editline: failed binding key 0x%x, keymap full.\n", key); return; } - MetaMap[i].Function = func; - MetaMap[i].Key = c; - MetaMap[i + 1].Function = 0; /* Zero the last location */ - MetaMap[i + 1].Key = 0; /* Zero the last location */ + map[i].Key = key; + map[i].Function = function; + + map[i + 1].Function = NULL; /* Terminate list */ +} + +void el_bind_key(int key, el_keymap_func_t function) +{ + el_bind_key_in_map(key, function, Map, ARRAY_ELEMENTS(Map)); +} + +void el_bind_key_in_metamap(int key, el_keymap_func_t function) +{ + el_bind_key_in_map(key, function, MetaMap, ARRAY_ELEMENTS(MetaMap)); } /** diff --git a/src/editline.h b/src/editline.h index 61ecef6..e316a41 100644 --- a/src/editline.h +++ b/src/editline.h @@ -53,8 +53,11 @@ # include #endif -#define MEM_INC 64 -#define SCREEN_INC 256 +#define MEM_INC 64 +#define SCREEN_INC 256 + +/* http://stackoverflow.com/questions/1598773/is-there-a-standard-function-in-c-that-would-return-the-length-of-an-array/1598827#1598827 */ +#define ARRAY_ELEMENTS(arr) ((sizeof(arr)/sizeof(0[arr])) / ((size_t)(!(sizeof(arr) % sizeof(0[arr]))))) /* ** Variables and routines internal to this package. diff --git a/src/os9.h b/src/os9.h new file mode 100644 index 0000000..826e0e2 --- /dev/null +++ b/src/os9.h @@ -0,0 +1,25 @@ +/* Editline system header file for OS-9 (on 68k). + * + * Copyright (c) 1992, 1993 Simmule Turner and Rich Salz. All rights reserved. + * + * This software is not subject to any license of the American Telephone + * and Telegraph Company or of the Regents of the University of California. + * + * Permission is granted to anyone to use this software for any purpose on + * any computer system, and to alter it and redistribute it freely, subject + * to the following restrictions: + * 1. The authors are not responsible for the consequences of use of this + * software, no matter how awful, even if they arise from flaws in it. + * 2. The origin of this software must not be misrepresented, either by + * explicit claim or by omission. Since few users ever read sources, + * credits must appear in the documentation. + * 3. Altered versions must be plainly marked as such, and must not be + * misrepresented as being the original software. Since few users + * ever read sources, credits must appear in the documentation. + * 4. This notice may not be removed or altered. + */ + +#define CRLF "\r\l" + +#include +typedef struct direct DIRENTRY; diff --git a/src/sysos9.c b/src/sysos9.c new file mode 100644 index 0000000..b69ed07 --- /dev/null +++ b/src/sysos9.c @@ -0,0 +1,65 @@ +/* OS-9 (on 68k) system-dependant routines for editline library. + * + * Copyright (c) 1992, 1993 Simmule Turner and Rich Salz. All rights reserved. + * + * This software is not subject to any license of the American Telephone + * and Telegraph Company or of the Regents of the University of California. + * + * Permission is granted to anyone to use this software for any purpose on + * any computer system, and to alter it and redistribute it freely, subject + * to the following restrictions: + * 1. The authors are not responsible for the consequences of use of this + * software, no matter how awful, even if they arise from flaws in it. + * 2. The origin of this software must not be misrepresented, either by + * explicit claim or by omission. Since few users ever read sources, + * credits must appear in the documentation. + * 3. Altered versions must be plainly marked as such, and must not be + * misrepresented as being the original software. Since few users + * ever read sources, credits must appear in the documentation. + * 4. This notice may not be removed or altered. + */ +#include "editline.h" +#include +#include + +void rl_ttyset(int Reset) +{ + static struct sgbuf old; + struct sgbuf new; + + if (Reset == 0) { + _gs_opt(0, &old); + _gs_opt(0, &new); + new.sg_backsp = 0; new.sg_delete = 0; new.sg_echo = 0; + new.sg_alf = 0; new.sg_nulls = 0; new.sg_pause = 0; + new.sg_page = 0; new.sg_bspch = 0; new.sg_dlnch = 0; + new.sg_eorch = 0; new.sg_eofch = 0; new.sg_rlnch = 0; + new.sg_dulnch = 0; new.sg_psch = 0; new.sg_kbich = 0; + new.sg_kbach = 0; new.sg_bsech = 0; new.sg_bellch = 0; + new.sg_xon = 0; new.sg_xoff = 0; new.sg_tabcr = 0; + new.sg_tabsiz = 0; + _ss_opt(0, &new); + rl_erase = old.sg_bspch; + rl_kill = old.sg_dlnch; + rl_eof = old.sg_eofch; + rl_intr = old.sg_kbich; + rl_quit = -1; + } + else { + _ss_opt(0, &old); + } +} + +void rl_add_slash(char *path, char *p) +{ + strcat(p, access(path, S_IREAD | S_IFDIR) ? " " : "/"); +} + +/** + * Local Variables: + * version-control: t + * indent-tabs-mode: t + * c-file-style: "ellemtel" + * c-basic-offset: 4 + * End: + */ diff --git a/src/sysunix.c b/src/sysunix.c index 4827f33..7d38eb7 100644 --- a/src/sysunix.c +++ b/src/sysunix.c @@ -43,7 +43,11 @@ void rl_ttyset(int Reset) new = old; new.c_lflag &= ~(ECHO | ICANON | ISIG); - new.c_iflag &= ~(ISTRIP | INPCK); + new.c_iflag &= ~INPCK; + if (rl_meta_chars) + new.c_iflag |= ISTRIP; + else + new.c_iflag &= ~ISTRIP; new.c_cc[VMIN] = 1; new.c_cc[VTIME] = 0; if (-1 == tcsetattr(0, TCSADRAIN, &new)) @@ -76,7 +80,12 @@ void rl_ttyset(int Reset) new = old; new.c_lflag &= ~(ECHO | ICANON | ISIG); - new.c_iflag &= ~(ISTRIP | INPCK); + new.c_iflag &= ~INPCK; + if (rl_meta_chars) + new.c_iflag |= ISTRIP; + else + new.c_iflag &= ~ISTRIP; + new.c_cc[VMIN] = 1; new.c_cc[VTIME] = 0; if (-1 == ioctl(0, TCSETAW, &new)) @@ -121,9 +130,10 @@ void rl_ttyset(int Reset) new_sgttyb = old_sgttyb; new_sgttyb.sg_flags &= ~ECHO; new_sgttyb.sg_flags |= RAW; -#ifdef PASS8 - new_sgttyb.sg_flags |= PASS8; -#endif + if (rl_meta_chars) + new_sgttyb.sg_flags &= ~PASS8; + else + new_sgttyb.sg_flags |= PASS8; if (-1 == ioctl(0, TIOCSETP, &new_sgttyb)) perror("Failed TIOCSETP"); new_tchars = old_tchars;