diff options
Diffstat (limited to 'system')
-rw-r--r-- | system/ksh-openbsd/README (renamed from system/ksh/README) | 0 | ||||
-rw-r--r-- | system/ksh-openbsd/doinst.sh (renamed from system/ksh/doinst.sh) | 0 | ||||
-rw-r--r-- | system/ksh-openbsd/ksh-openbsd.SlackBuild (renamed from system/ksh/ksh.SlackBuild) | 15 | ||||
-rw-r--r-- | system/ksh-openbsd/ksh-openbsd.info | 10 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/01-ksh-vi-mode-complete-as-command-on-Ctrl-f.diff (renamed from system/ksh/patches/0001-ksh-vi-mode-complete-as-command-on-Ctrl-f.diff) | 18 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/02-remove_fp.diff | 217 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/03-ksh-vi-Ctrl-l-in-insert-mode-to-clear-the-screen.diff (renamed from system/ksh/patches/0003-ksh-vi-Ctrl-l-in-insert-mode-to-clear-the-screen.diff) | 12 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/04-ksh-vi-make-Ctrl-f-in-command-mode-behave-the-same-a.diff (renamed from system/ksh/patches/0004-ksh-vi-make-Ctrl-f-in-command-mode-behave-the-same-a.diff) | 6 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/05-ksh-print-expansions-like-a-menu-with-numbers-in-vi-.diff (renamed from system/ksh/patches/0005-ksh-print-expansions-like-a-menu-with-numbers-in-vi-.diff) | 24 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/06-ksh-remove-backslashes-in-filenames-using-lex.diff (renamed from system/ksh/patches/0006-ksh-remove-backslashes-in-filenames-using-lex.diff) | 23 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/07-ksh-vi-compensate-for-cursor-move-on-command-mode.diff (renamed from system/ksh/patches/0007-ksh-vi-compensate-for-cursor-move-on-command-mode.diff) | 6 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/08-Remove-from-the-list-of-characters-blocking-addition.diff (renamed from system/ksh/patches/0008-Remove-from-the-list-of-characters-blocking-addition.diff) | 6 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/09a-new_history_implementation.diff | 584 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/09b-linux-new_history_implementation.diff | 36 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/10-ksh_mb_binds.diff | 1115 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/linux/Makefile.diff (renamed from system/ksh/patches/linux/Makefile.diff) | 0 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/linux/c_sh_c.diff (renamed from system/ksh/patches/linux/c_sh_c.diff) | 0 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/linux/charclass_h.diff (renamed from system/ksh/patches/linux/charclass_h.diff) | 0 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/linux/emacs_c.diff (renamed from system/ksh/patches/linux/emacs_c.diff) | 0 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/linux/eval_c.diff (renamed from system/ksh/patches/linux/eval_c.diff) | 0 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/linux/history_c.diff (renamed from system/ksh/patches/linux/history_c.diff) | 0 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/linux/jobs_c.diff (renamed from system/ksh/patches/linux/jobs_c.diff) | 0 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/linux/lex_c.diff (renamed from system/ksh/patches/linux/lex_c.diff) | 0 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/linux/main_c.diff (renamed from system/ksh/patches/linux/main_c.diff) | 0 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/linux/misc_c.diff (renamed from system/ksh/patches/linux/misc_c.diff) | 0 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/linux/posix_signals_h.diff (renamed from system/ksh/patches/linux/posix_signals_h.diff) | 0 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/linux/sh_h.diff (renamed from system/ksh/patches/linux/sh_h.diff) | 0 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/linux/strlcat_c.diff (renamed from system/ksh/patches/linux/strlcat_c.diff) | 0 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/linux/strlcat_h.diff (renamed from system/ksh/patches/linux/strlcat_h.diff) | 0 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/linux/strlcpy_c.diff (renamed from system/ksh/patches/linux/strlcpy_c.diff) | 0 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/linux/strlcpy_h.diff (renamed from system/ksh/patches/linux/strlcpy_h.diff) | 0 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/linux/trap_c.diff (renamed from system/ksh/patches/linux/trap_c.diff) | 0 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/linux/var_c.diff (renamed from system/ksh/patches/linux/var_c.diff) | 0 | ||||
-rw-r--r-- | system/ksh-openbsd/patches/linux/vi_c.diff (renamed from system/ksh/patches/linux/vi_c.diff) | 0 | ||||
-rw-r--r-- | system/ksh-openbsd/slack-desc | 18 | ||||
-rw-r--r-- | system/ksh/ksh.info | 10 | ||||
-rw-r--r-- | system/ksh/slack-desc | 19 |
37 files changed, 2037 insertions, 82 deletions
diff --git a/system/ksh/README b/system/ksh-openbsd/README index 56d8252f8e1d6..56d8252f8e1d6 100644 --- a/system/ksh/README +++ b/system/ksh-openbsd/README diff --git a/system/ksh/doinst.sh b/system/ksh-openbsd/doinst.sh index 63941d1bac0d1..63941d1bac0d1 100644 --- a/system/ksh/doinst.sh +++ b/system/ksh-openbsd/doinst.sh diff --git a/system/ksh/ksh.SlackBuild b/system/ksh-openbsd/ksh-openbsd.SlackBuild index 041e44db1eb43..d9b1830856068 100644 --- a/system/ksh/ksh.SlackBuild +++ b/system/ksh-openbsd/ksh-openbsd.SlackBuild @@ -27,9 +27,9 @@ # Build script for the Linux port of OpenBSD's ksh -PRGNAM=ksh -VERSION=openbsd49 -BUILD=${BUILD:-3} +PRGNAM=ksh-openbsd +VERSION=20110911 +BUILD=${BUILD:-1} TAG=${TAG:-_SBo} if [ -z "$ARCH" ]; then @@ -64,9 +64,9 @@ set -e rm -Rf $PKG mkdir -p $TMP $PKG $OUTPUT cd $TMP -rm -Rf $PRGNAM-$VERSION -tar xvf $CWD/$PRGNAM-$VERSION.tar.gz -cd $PRGNAM-$VERSION +rm -Rf $PRGNAM +tar xvf $CWD/$PRGNAM.tar.gz +cd $PRGNAM chown -R root:root . find . \ \( -perm 777 -o -perm 775 -o -perm 711 -o -perm 555 -o -perm 511 \) \ @@ -78,7 +78,7 @@ for patch in "${CWD}"/patches/linux/*.diff;do patch -p1 < "${patch}" done for patch in "${CWD}"/patches/*.diff;do - patch -p1 < "${patch}" + patch -p0 < "${patch}" done CFLAGS="$SLKCFLAGS $(getconf LFS_CFLAGS)" make @@ -91,6 +91,7 @@ mkdir -p $PKG/usr/doc/$PRGNAM-$VERSION cp -a \ INSTALL LEGAL NOTES PROJECTS README \ $PKG/usr/doc/$PRGNAM-$VERSION +cat $CWD/$PRGNAM.SlackBuild > $PKG/usr/doc/$PRGNAM-$VERSION/$PRGNAM.SlackBuild mkdir -p $PKG/install cat $CWD/slack-desc > $PKG/install/slack-desc diff --git a/system/ksh-openbsd/ksh-openbsd.info b/system/ksh-openbsd/ksh-openbsd.info new file mode 100644 index 0000000000000..9b7616b254dc2 --- /dev/null +++ b/system/ksh-openbsd/ksh-openbsd.info @@ -0,0 +1,10 @@ +PRGNAM="ksh-openbsd" +VERSION="20110909" +HOMEPAGE="http://leva.ecentrum.hu/slackbuilds/ksh-openbsd.tar.gz" +DOWNLOAD="http://leva.ecentrum.hu/slackbuilds/ksh-openbsd.tar.gz" +MD5SUM="636c07775c9d8cd049f670fc916501e7" +DOWNLOAD_x86_64="" +MD5SUM_x86_64="" +MAINTAINER="Daniel LEVAI" +EMAIL="leva@ecentrum.hu" +APPROVED="rworkman" diff --git a/system/ksh/patches/0001-ksh-vi-mode-complete-as-command-on-Ctrl-f.diff b/system/ksh-openbsd/patches/01-ksh-vi-mode-complete-as-command-on-Ctrl-f.diff index 4888d25860d32..86a7a56c77220 100644 --- a/system/ksh/patches/0001-ksh-vi-mode-complete-as-command-on-Ctrl-f.diff +++ b/system/ksh-openbsd/patches/01-ksh-vi-mode-complete-as-command-on-Ctrl-f.diff @@ -15,10 +15,10 @@ Subject: [PATCH 1/8] ksh/vi mode: complete as command on Ctrl-f. vi.c | 22 +++++++++++----------- 3 files changed, 17 insertions(+), 14 deletions(-) -diff --git a/edit.c b/edit.c +diff --git edit.c edit.c index 6c357a7..0b1ff7d 100644 ---- a/edit.c -+++ b/edit.c +--- edit.c ++++ edit.c @@ -599,6 +599,8 @@ x_cf_glob(int flags, const char *buf, int buflen, int pos, int *startp, len = x_locate_word(buf, buflen, pos, startp, &is_command); if (!(flags & XCF_COMMAND)) @@ -28,10 +28,10 @@ index 6c357a7..0b1ff7d 100644 /* Don't do command globing on zero length strings - it takes too * long and isn't very useful. File globs are more likely to be * useful, so allow these. -diff --git a/edit.h b/edit.h +diff --git edit.h edit.h index f966fe4..9c75ffc 100644 ---- a/edit.h -+++ b/edit.h +--- edit.h ++++ edit.h @@ -38,9 +38,10 @@ typedef struct { EXTERN X_chars edchars; @@ -46,10 +46,10 @@ index f966fe4..9c75ffc 100644 #define XCF_COMMAND_FILE (XCF_COMMAND|XCF_FILE) /* edit.c */ -diff --git a/vi.c b/vi.c +diff --git vi.c vi.c index 889b35a..e4173c7 100644 ---- a/vi.c -+++ b/vi.c +--- vi.c ++++ vi.c @@ -58,7 +58,7 @@ static int newcol(int, int); static void display(char *, char *, int); static void ed_mov_opt(int, char *); diff --git a/system/ksh-openbsd/patches/02-remove_fp.diff b/system/ksh-openbsd/patches/02-remove_fp.diff new file mode 100644 index 0000000000000..25817d0a56a1e --- /dev/null +++ b/system/ksh-openbsd/patches/02-remove_fp.diff @@ -0,0 +1,217 @@ +Remove disabled FP support. +From Okan Demirmen. +Index: ksh_limval.h +=================================================================== +RCS file: /home/okan/hack/open/cvs/src/bin/ksh/ksh_limval.h,v +retrieving revision 1.2 +diff -u -p -r1.2 ksh_limval.h +--- ksh_limval.h 18 Dec 2004 20:55:52 -0000 1.2 ++++ ksh_limval.h 14 Mar 2011 10:03:41 -0000 +@@ -4,10 +4,6 @@ + + /* limits.h is included in sh.h */ + +-#ifndef DMAXEXP +-# define DMAXEXP 128 /* should be big enough */ +-#endif +- + #ifndef BITS + # define BITS(t) (CHAR_BIT * sizeof(t)) + #endif +Index: shf.c +=================================================================== +RCS file: /home/okan/hack/open/cvs/src/bin/ksh/shf.c,v +retrieving revision 1.15 +diff -u -p -r1.15 shf.c +--- shf.c 2 Apr 2006 00:48:33 -0000 1.15 ++++ shf.c 14 Mar 2011 10:03:19 -0000 +@@ -705,15 +705,7 @@ shf_smprintf(const char *fmt, ...) + return shf_sclose(&shf); /* null terminates */ + } + +-#undef FP /* if you want floating point stuff */ +- + #define BUF_SIZE 128 +-#define FPBUF_SIZE (DMAXEXP+16)/* this must be > +- * MAX(DMAXEXP, log10(pow(2, DSIGNIF))) +- * + ceil(log10(DMAXEXP)) + 8 (I think). +- * Since this is hard to express as a +- * constant, just use a large buffer. +- */ + + /* + * What kinda of machine we on? Hopefully the C compiler will optimize +@@ -744,18 +736,6 @@ shf_smprintf(const char *fmt, ...) + #define FL_NUMBER 0x200 /* a number was formated %[douxefg] */ + + +-#ifdef FP +-#include <math.h> +- +-static double +-my_ceil(double d) +-{ +- double i; +- +- return d - modf(d, &i) + (d < 0 ? -1 : 1); +-} +-#endif /* FP */ +- + int + shf_vfprintf(struct shf *shf, const char *fmt, va_list args) + { +@@ -769,17 +749,6 @@ shf_vfprintf(struct shf *shf, const char + char numbuf[(BITS(long) + 2) / 3 + 1]; + /* this stuff for dealing with the buffer */ + int nwritten = 0; +-#ifdef FP +- /* should be in <math.h> +- * extern double frexp(); +- */ +- extern char *ecvt(); +- +- double fpnum; +- int expo, decpt; +- char style; +- char fpbuf[FPBUF_SIZE]; +-#endif /* FP */ + + if (!fmt) + return 0; +@@ -946,134 +915,6 @@ shf_vfprintf(struct shf *shf, const char + precision = len; /* no loss */ + } + break; +- +-#ifdef FP +- case 'e': +- case 'g': +- case 'f': +- { +- char *p; +- +- /* +- * This could probably be done better, +- * but it seems to work. Note that gcvt() +- * is not used, as you cannot tell it to +- * not strip the zeros. +- */ +- flags |= FL_NUMBER; +- if (!(flags & FL_DOT)) +- precision = 6; /* default */ +- /* +- * Assumes doubles are pushed on +- * the stack. If this is not so, then +- * FL_LONG/FL_SHORT should be checked. +- */ +- fpnum = va_arg(args, double); +- s = fpbuf; +- style = c; +- /* +- * This is the same as +- * expo = ceil(log10(fpnum)) +- * but doesn't need -lm. This is an +- * approximation as expo is rounded up. +- */ +- (void) frexp(fpnum, &expo); +- expo = my_ceil(expo / LOG2_10); +- +- if (expo < 0) +- expo = 0; +- +- p = ecvt(fpnum, precision + 1 + expo, +- &decpt, &tmp); +- if (c == 'g') { +- if (decpt < -4 || decpt > precision) +- style = 'e'; +- else +- style = 'f'; +- if (decpt > 0 && (precision -= decpt) < 0) +- precision = 0; +- } +- if (tmp) +- *s++ = '-'; +- else if (flags & FL_PLUS) +- *s++ = '+'; +- else if (flags & FL_BLANK) +- *s++ = ' '; +- +- if (style == 'e') +- *s++ = *p++; +- else { +- if (decpt > 0) { +- /* Overflow check - should +- * never have this problem. +- */ +- if (decpt > &fpbuf[sizeof(fpbuf)] - s - 8) +- decpt = &fpbuf[sizeof(fpbuf)] - s - 8; +- (void) memcpy(s, p, decpt); +- s += decpt; +- p += decpt; +- } else +- *s++ = '0'; +- } +- +- /* print the fraction? */ +- if (precision > 0) { +- *s++ = '.'; +- /* Overflow check - should +- * never have this problem. +- */ +- if (precision > &fpbuf[sizeof(fpbuf)] - s - 7) +- precision = &fpbuf[sizeof(fpbuf)] - s - 7; +- for (tmp = decpt; tmp++ < 0 && +- precision > 0 ; precision--) +- *s++ = '0'; +- tmp = strlen(p); +- if (precision > tmp) +- precision = tmp; +- /* Overflow check - should +- * never have this problem. +- */ +- if (precision > &fpbuf[sizeof(fpbuf)] - s - 7) +- precision = &fpbuf[sizeof(fpbuf)] - s - 7; +- (void) memcpy(s, p, precision); +- s += precision; +- /* +- * `g' format strips trailing +- * zeros after the decimal. +- */ +- if (c == 'g' && !(flags & FL_HASH)) { +- while (*--s == '0') +- ; +- if (*s != '.') +- s++; +- } +- } else if (flags & FL_HASH) +- *s++ = '.'; +- +- if (style == 'e') { +- *s++ = (flags & FL_UPPER) ? 'E' : 'e'; +- if (--decpt >= 0) +- *s++ = '+'; +- else { +- *s++ = '-'; +- decpt = -decpt; +- } +- p = &numbuf[sizeof(numbuf)]; +- for (tmp = 0; tmp < 2 || decpt ; tmp++) { +- *--p = '0' + decpt % 10; +- decpt /= 10; +- } +- tmp = &numbuf[sizeof(numbuf)] - p; +- (void) memcpy(s, p, tmp); +- s += tmp; +- } +- +- len = s - fpbuf; +- s = fpbuf; +- precision = len; +- break; +- } +-#endif /* FP */ + + case 's': + if (!(s = va_arg(args, char *))) + + diff --git a/system/ksh/patches/0003-ksh-vi-Ctrl-l-in-insert-mode-to-clear-the-screen.diff b/system/ksh-openbsd/patches/03-ksh-vi-Ctrl-l-in-insert-mode-to-clear-the-screen.diff index 7f94b8bc6c2ce..21a57ffb424e4 100644 --- a/system/ksh/patches/0003-ksh-vi-Ctrl-l-in-insert-mode-to-clear-the-screen.diff +++ b/system/ksh-openbsd/patches/03-ksh-vi-Ctrl-l-in-insert-mode-to-clear-the-screen.diff @@ -9,10 +9,10 @@ Subject: [PATCH 3/8] ksh/vi: Ctrl-l in insert mode to clear the screen. vi.c | 6 ++++++ 2 files changed, 9 insertions(+), 0 deletions(-) -diff --git a/ksh.1 b/ksh.1 +diff --git ksh.1 ksh.1 index f4b5815..01130ea 100644 ---- a/ksh.1 -+++ b/ksh.1 +--- ksh.1 ++++ ksh.1 @@ -5215,6 +5215,9 @@ List all the commands or files that match the current big-word. Macro expansion. Execute the commands found in the alias @@ -23,10 +23,10 @@ index f4b5815..01130ea 100644 .El .Pp Intra-line movement commands: -diff --git a/vi.c b/vi.c +diff --git vi.c vi.c index e4173c7..d0de478 100644 ---- a/vi.c -+++ b/vi.c +--- vi.c ++++ vi.c @@ -646,6 +646,12 @@ vi_insert(int ch) return redo_insert(lastac - 1); diff --git a/system/ksh/patches/0004-ksh-vi-make-Ctrl-f-in-command-mode-behave-the-same-a.diff b/system/ksh-openbsd/patches/04-ksh-vi-make-Ctrl-f-in-command-mode-behave-the-same-a.diff index ec86efd52af1b..6978789ec949a 100644 --- a/system/ksh/patches/0004-ksh-vi-make-Ctrl-f-in-command-mode-behave-the-same-a.diff +++ b/system/ksh-openbsd/patches/04-ksh-vi-make-Ctrl-f-in-command-mode-behave-the-same-a.diff @@ -8,10 +8,10 @@ Subject: [PATCH 4/8] ksh/vi: make Ctrl-f in command mode behave the same as vi.c | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) -diff --git a/vi.c b/vi.c +diff --git vi.c vi.c index d0de478..6eb5d8c 100644 ---- a/vi.c -+++ b/vi.c +--- vi.c ++++ vi.c @@ -1132,7 +1132,7 @@ vi_cmd(int argcnt, const char *cmd) return -1; case '\\': /* at&t ksh */ diff --git a/system/ksh/patches/0005-ksh-print-expansions-like-a-menu-with-numbers-in-vi-.diff b/system/ksh-openbsd/patches/05-ksh-print-expansions-like-a-menu-with-numbers-in-vi-.diff index aeb5413863f33..135f5054c3353 100644 --- a/system/ksh/patches/0005-ksh-print-expansions-like-a-menu-with-numbers-in-vi-.diff +++ b/system/ksh-openbsd/patches/05-ksh-print-expansions-like-a-menu-with-numbers-in-vi-.diff @@ -18,10 +18,10 @@ Subject: [PATCH 5/8] ksh: print expansions like a "menu" (with numbers) in vi vi.c | 4 ++-- 4 files changed, 10 insertions(+), 7 deletions(-) -diff --git a/edit.c b/edit.c +diff --git edit.c edit.c index 0b1ff7d..9cdcc6d 100644 ---- a/edit.c -+++ b/edit.c +--- edit.c ++++ edit.c @@ -292,7 +292,7 @@ static void glob_path(int flags, const char *pat, XPtrV *wp, const char *path); @@ -43,10 +43,10 @@ index 0b1ff7d..9cdcc6d 100644 if (use_copy) XPfree(l); /* not x_free_words() */ -diff --git a/edit.h b/edit.h +diff --git edit.h edit.h index 37ccf28..258affe 100644 ---- a/edit.h -+++ b/edit.h +--- edit.h ++++ edit.h @@ -52,7 +52,7 @@ void x_puts(const char *); bool x_mode(bool); int promptlen(const char *, const char **); @@ -56,10 +56,10 @@ index 37ccf28..258affe 100644 int x_cf_glob(int, const char *, int, int, int *, int *, char ***, int *); int x_longest_prefix(int , char *const *); int x_basename(const char *, const char *); -diff --git a/emacs.c b/emacs.c +diff --git emacs.c emacs.c index 0bfda96..3b2d083 100644 ---- a/emacs.c -+++ b/emacs.c +--- emacs.c ++++ emacs.c @@ -1684,7 +1684,7 @@ do_complete(int flags, /* XCF_{COMMAND,FILE,COMMAND_FILE} */ } @@ -78,10 +78,10 @@ index 0bfda96..3b2d083 100644 completed = 1; } -diff --git a/vi.c b/vi.c +diff --git vi.c vi.c index 6eb5d8c..95d192c 100644 ---- a/vi.c -+++ b/vi.c +--- vi.c ++++ vi.c @@ -1990,7 +1990,7 @@ complete_word(int command, int count, int flags) count--; if (count >= nwords) { diff --git a/system/ksh/patches/0006-ksh-remove-backslashes-in-filenames-using-lex.diff b/system/ksh-openbsd/patches/06-ksh-remove-backslashes-in-filenames-using-lex.diff index 4ce48a81041bc..04ca29f6f10ca 100644 --- a/system/ksh/patches/0006-ksh-remove-backslashes-in-filenames-using-lex.diff +++ b/system/ksh-openbsd/patches/06-ksh-remove-backslashes-in-filenames-using-lex.diff @@ -8,6 +8,9 @@ Subject: [PATCH 6/8] ksh: remove backslashes in filenames using lex. be the filename of an existing file, right? i think so. + * change stat() to lstat() to complete broken links + (from LEVAI Daniel). + Why: * less ugly code @@ -19,10 +22,10 @@ Subject: [PATCH 6/8] ksh: remove backslashes in filenames using lex. lex.h | 1 + 3 files changed, 12 insertions(+), 24 deletions(-) -diff --git a/edit.c b/edit.c +diff --git edit.c edit.c index 9cdcc6d..01c2fe6 100644 ---- a/edit.c -+++ b/edit.c +--- edit.c ++++ edit.c @@ -351,7 +351,7 @@ x_file_glob(int flags, const char *str, int slen, char ***wordsp) { char *toglob; @@ -79,14 +82,14 @@ index 9cdcc6d..01c2fe6 100644 */ - if ((strcmp(words[0], toglob) == 0 && - stat(words[0], &statb) < 0) || -+ if((stat(words[0], &statb) < 0) || ++ if((lstat(words[0], &statb) < 0) || words[0][0] == '\0') { x_free_words(nwords, words); words = NULL; -diff --git a/lex.c b/lex.c +diff --git lex.c lex.c index ef741c6..fe3d91d 100644 ---- a/lex.c -+++ b/lex.c +--- lex.c ++++ lex.c @@ -299,6 +299,10 @@ yylex(int cf) } /* FALLTHROUGH */ @@ -98,10 +101,10 @@ index ef741c6..fe3d91d 100644 Xcheck(ws, wp); if (c) { /* trailing \ is lost */ *wp++ = CHAR, *wp++ = '\\'; -diff --git a/lex.h b/lex.h +diff --git lex.h lex.h index 0904fbd..6a0dbf9 100644 ---- a/lex.h -+++ b/lex.h +--- lex.h ++++ lex.h @@ -113,6 +113,7 @@ typedef union { #define CMDWORD BIT(8) /* parsing simple command (alias related) */ #define HEREDELIM BIT(9) /* parsing <<,<<- delimiter */ diff --git a/system/ksh/patches/0007-ksh-vi-compensate-for-cursor-move-on-command-mode.diff b/system/ksh-openbsd/patches/07-ksh-vi-compensate-for-cursor-move-on-command-mode.diff index 8db9a55c558ad..ce51064a01929 100644 --- a/system/ksh/patches/0007-ksh-vi-compensate-for-cursor-move-on-command-mode.diff +++ b/system/ksh-openbsd/patches/07-ksh-vi-compensate-for-cursor-move-on-command-mode.diff @@ -13,10 +13,10 @@ Subject: [PATCH 7/8] ksh/vi: compensate for cursor move on command mode vi.c | 15 ++++++++++++++- 1 files changed, 14 insertions(+), 1 deletions(-) -diff --git a/vi.c b/vi.c +diff --git vi.c vi.c index 95d192c..0bac6be 100644 ---- a/vi.c -+++ b/vi.c +--- vi.c ++++ vi.c @@ -1956,6 +1956,7 @@ complete_word(int command, int count, int flags) int match_len; int is_unique; diff --git a/system/ksh/patches/0008-Remove-from-the-list-of-characters-blocking-addition.diff b/system/ksh-openbsd/patches/08-Remove-from-the-list-of-characters-blocking-addition.diff index 1a767a4f8c25e..9326e8072dcf1 100644 --- a/system/ksh/patches/0008-Remove-from-the-list-of-characters-blocking-addition.diff +++ b/system/ksh-openbsd/patches/08-Remove-from-the-list-of-characters-blocking-addition.diff @@ -9,10 +9,10 @@ This allows things like $HOME/bi<tab> complete to /home/username/bin. edit.c | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) -diff --git a/edit.c b/edit.c +diff --git edit.c edit.c index 01c2fe6..2702dab 100644 ---- a/edit.c -+++ b/edit.c +--- edit.c ++++ edit.c @@ -627,14 +627,14 @@ add_glob(const char *str, int slen) /* diff --git a/system/ksh-openbsd/patches/09a-new_history_implementation.diff b/system/ksh-openbsd/patches/09a-new_history_implementation.diff new file mode 100644 index 0000000000000..d083b42554b43 --- /dev/null +++ b/system/ksh-openbsd/patches/09a-new_history_implementation.diff @@ -0,0 +1,584 @@ +From: Marco Peereboom +To: tech@openbsd.org +Subject: ksh history corruption + +I have had enough of corrupt ksh history so I had a look at the code to +try to fix it. The magical code was very magical so I basically deleted +most of it and made ksh history into a flat text file. It handles +multiple ksh instances writing to the same text file with locks just +like the current ksh does. I haven't noticed any differences in +behavior running this. + +Code is much simpler and it shaves ~4k of the binary too. + +Index: alloc.c +=================================================================== +RCS file: /cvs/src/bin/ksh/alloc.c,v +retrieving revision 1.8 +diff -u -p -r1.8 alloc.c +--- alloc.c 21 Jul 2008 17:30:08 -0000 1.8 ++++ alloc.c 30 Aug 2011 18:05:47 -0000 +@@ -62,7 +62,7 @@ alloc(size_t size, Area *ap) + { + struct link *l; + +- l = malloc(sizeof(struct link) + size); ++ l = calloc(1, sizeof(struct link) + size); + if (l == NULL) + internal_errorf(1, "unable to allocate memory"); + l->next = ap->freelist; +Index: history.c +=================================================================== +RCS file: /cvs/src/bin/ksh/history.c,v +retrieving revision 1.39 +diff -u -p -r1.39 history.c +--- history.c 19 May 2010 17:36:08 -0000 1.39 ++++ history.c 31 Aug 2011 19:33:24 -0000 +@@ -11,8 +11,7 @@ + * a) the original in-memory history mechanism + * b) a more complicated mechanism done by pc@hillside.co.uk + * that more closely follows the real ksh way of doing +- * things. You need to have the mmap system call for this +- * to work on your system ++ * things. + */ + + #include "sh.h" +@@ -22,19 +21,10 @@ + # include <sys/file.h> + # include <sys/mman.h> + +-/* +- * variables for handling the data file +- */ +-static int histfd; +-static int hsize; +- +-static int hist_count_lines(unsigned char *, int); +-static int hist_shrink(unsigned char *, int); +-static unsigned char *hist_skip_back(unsigned char *,int *,int); +-static void histload(Source *, unsigned char *, int); +-static void histinsert(Source *, int, unsigned char *); +-static void writehistfile(int, char *); +-static int sprinkle(int); ++static void writehistfile(FILE *); ++static FILE *history_open(int *); ++static int history_load(FILE *, Source *); ++static void history_close(FILE *); + + static int hist_execute(char *); + static int hist_replace(char **, const char *, const char *, int); +@@ -45,8 +35,8 @@ static void histbackup(void); + static char **current; /* current position in history[] */ + static char *hname; /* current name of history file */ + static int hstarted; /* set after hist_init() called */ +-static Source *hist_source; +- ++static Source *hist_source; ++static struct stat last_sb; + + int + c_fc(char **wp) +@@ -529,15 +519,10 @@ sethistfile(const char *name) + /* if the name is the same as the name we have */ + if (hname && strcmp(hname, name) == 0) + return; +- + /* + * its a new name - possibly + */ +- if (histfd) { +- /* yes the file is open */ +- (void) close(histfd); +- histfd = 0; +- hsize = 0; ++ if (hname) { + afree(hname, APERM); + hname = NULL; + /* let's reset the history */ +@@ -577,18 +562,26 @@ init_histvec(void) + void + histsave(int lno, const char *cmd, int dowrite) + { +- char **hp; +- char *c, *cp; ++ char **hp; ++ char *c, *cp; ++ int changed; ++ FILE *f = NULL; ++ ++ if (dowrite) { ++ f = history_open(&changed); ++ if (f && changed) { ++ /* reset history */ ++ histptr = history - 1; ++ hist_source->line = 0; ++ history_load(f, hist_source); ++ } ++ } + + c = str_save(cmd, APERM); + if ((cp = strchr(c, '\n')) != NULL) + *cp = '\0'; + +- if (histfd && dowrite) +- writehistfile(lno, c); +- + hp = histptr; +- + if (++hp >= history + histsize) { /* remove oldest command */ + afree((void*)*history, APERM); + for (hp = history; hp < history + histsize - 1; hp++) +@@ -596,371 +589,125 @@ histsave(int lno, const char *cmd, int d + } + *hp = c; + histptr = hp; +-} +- +-/* +- * Write history data to a file nominated by HISTFILE +- * if HISTFILE is unset then history still happens, but +- * the data is not written to a file +- * All copies of ksh looking at the file will maintain the +- * same history. This is ksh behaviour. +- * +- * This stuff uses mmap() +- * if your system ain't got it - then you'll have to undef HISTORYFILE +- */ + +-/* +- * Open a history file +- * Format is: +- * Bytes 1, 2: HMAGIC - just to check that we are dealing with +- * the correct object +- * Then follows a number of stored commands +- * Each command is +- * <command byte><command number(4 bytes)><bytes><null> +- */ +-#define HMAGIC1 0xab +-#define HMAGIC2 0xcd +-#define COMMAND 0xff ++ if (dowrite && f) { ++ writehistfile(f); ++ history_close(f); ++ } ++} + +-void +-hist_init(Source *s) ++static FILE * ++history_open(int *changed) + { +- unsigned char *base; +- int lines; +- int fd; +- +- if (Flag(FTALKING) == 0) +- return; +- +- hstarted = 1; +- +- hist_source = s; +- +- hname = str_val(global("HISTFILE")); +- if (hname == NULL) +- return; +- hname = str_save(hname, APERM); ++ int fd; ++ FILE *f = NULL; ++ struct stat sb; + +- retry: +- /* we have a file and are interactive */ +- if ((fd = open(hname, O_RDWR|O_CREAT|O_APPEND, 0600)) < 0) +- return; +- +- histfd = savefd(fd); +- if (histfd != fd) ++ if ((fd = open(hname, O_RDWR | O_CREAT | O_EXLOCK, 0600)) == -1) ++ return (NULL); ++ f = fdopen(fd, "r+"); ++ if (f == NULL) { + close(fd); ++ goto bad; ++ } + +- (void) flock(histfd, LOCK_EX); ++ if (fstat(fileno(f), &sb) == -1) ++ goto bad; ++ if (timespeccmp(&sb.st_mtim, &last_sb.st_mtim, ==)) ++ *changed = 0; ++ else ++ *changed = 1; + +- hsize = lseek(histfd, 0L, SEEK_END); ++ return (f); ++bad: ++ if (f) ++ fclose(f); + +- if (hsize == 0) { +- /* add magic */ +- if (sprinkle(histfd)) { +- hist_finish(); +- return; +- } +- } +- else if (hsize > 0) { +- /* +- * we have some data +- */ +- base = (unsigned char *)mmap(0, hsize, PROT_READ, +- MAP_FILE|MAP_PRIVATE, histfd, 0); +- /* +- * check on its validity +- */ +- if (base == MAP_FAILED || *base != HMAGIC1 || base[1] != HMAGIC2) { +- if (base != MAP_FAILED) +- munmap((caddr_t)base, hsize); +- hist_finish(); +- if (unlink(hname) != 0) +- return; +- goto retry; +- } +- if (hsize > 2) { +- lines = hist_count_lines(base+2, hsize-2); +- if (lines > histsize) { +- /* we need to make the file smaller */ +- if (hist_shrink(base, hsize)) +- if (unlink(hname) != 0) +- return; +- munmap((caddr_t)base, hsize); +- hist_finish(); +- goto retry; +- } +- } +- histload(hist_source, base+2, hsize-2); +- munmap((caddr_t)base, hsize); +- } +- (void) flock(histfd, LOCK_UN); +- hsize = lseek(histfd, 0L, SEEK_END); ++ return (NULL); + } + +-typedef enum state { +- shdr, /* expecting a header */ +- sline, /* looking for a null byte to end the line */ +- sn1, /* bytes 1 to 4 of a line no */ +- sn2, sn3, sn4 +-} State; ++static void ++history_close(FILE *f) ++{ ++ fflush(f); ++ fstat(fileno(f), &last_sb); ++ fclose(f); ++} + + static int +-hist_count_lines(unsigned char *base, int bytes) ++history_load(FILE *f, Source *s) + { +- State state = shdr; +- int lines = 0; ++ char *p, line[LINE + 1]; ++ uint32_t i; + +- while (bytes--) { +- switch (state) { +- case shdr: +- if (*base == COMMAND) +- state = sn1; ++ /* just read it all; will auto resize history upon next command */ ++ for (i = 1; ; i++) { ++ p = fgets(line, sizeof line, f); ++ if (p == NULL || feof(f) || ferror(f)) + break; +- case sn1: +- state = sn2; break; +- case sn2: +- state = sn3; break; +- case sn3: +- state = sn4; break; +- case sn4: +- state = sline; break; +- case sline: +- if (*base == '\0') +- lines++, state = shdr; ++ if ((p = strchr(line, '\n')) == NULL) { ++ bi_errorf("history file is corrupt"); ++ return (1); + } +- base++; ++ *p = '\0'; ++ ++ s->line = i; ++ s->cmd_offset = i; ++ histsave(i, (char *)line, 0); + } +- return lines; ++ ++ return (0); + } + +-/* +- * Shrink the history file to histsize lines +- */ +-static int +-hist_shrink(unsigned char *oldbase, int oldbytes) ++void ++hist_init(Source *s) + { +- int fd; +- char nfile[1024]; +- struct stat statb; +- unsigned char *nbase = oldbase; +- int nbytes = oldbytes; +- +- nbase = hist_skip_back(nbase, &nbytes, histsize); +- if (nbase == NULL) +- return 1; +- if (nbase == oldbase) +- return 0; +- +- /* +- * create temp file +- */ +- (void) shf_snprintf(nfile, sizeof(nfile), "%s.%d", hname, procpid); +- if ((fd = open(nfile, O_CREAT | O_TRUNC | O_WRONLY, 0600)) < 0) +- return 1; ++ FILE *f = NULL; ++ int changed; + +- if (sprinkle(fd)) { +- close(fd); +- unlink(nfile); +- return 1; +- } +- if (write(fd, nbase, nbytes) != nbytes) { +- close(fd); +- unlink(nfile); +- return 1; +- } +- /* +- * worry about who owns this file +- */ +- if (fstat(histfd, &statb) >= 0) +- fchown(fd, statb.st_uid, statb.st_gid); +- close(fd); ++ if (Flag(FTALKING) == 0) ++ return; + +- /* +- * rename +- */ +- if (rename(nfile, hname) < 0) +- return 1; +- return 0; +-} ++ hstarted = 1; + ++ hist_source = s; + +-/* +- * find a pointer to the data `no' back from the end of the file +- * return the pointer and the number of bytes left +- */ +-static unsigned char * +-hist_skip_back(unsigned char *base, int *bytes, int no) +-{ +- int lines = 0; +- unsigned char *ep; ++ hname = str_val(global("HISTFILE")); ++ if (hname == NULL) ++ return; ++ hname = str_save(hname, APERM); + +- for (ep = base + *bytes; --ep > base; ) { +- /* this doesn't really work: the 4 byte line number that is +- * encoded after the COMMAND byte can itself contain the +- * COMMAND byte.... +- */ +- for (; ep > base && *ep != COMMAND; ep--) +- ; +- if (ep == base) +- break; +- if (++lines == no) { +- *bytes = *bytes - ((char *)ep - (char *)base); +- return ep; +- } +- } +- return NULL; +-} ++ f = history_open(&changed); ++ if (f == NULL) ++ return; + +-/* +- * load the history structure from the stored data +- */ +-static void +-histload(Source *s, unsigned char *base, int bytes) +-{ +- State state; +- int lno = 0; +- unsigned char *line = NULL; +- +- for (state = shdr; bytes-- > 0; base++) { +- switch (state) { +- case shdr: +- if (*base == COMMAND) +- state = sn1; +- break; +- case sn1: +- lno = (((*base)&0xff)<<24); +- state = sn2; +- break; +- case sn2: +- lno |= (((*base)&0xff)<<16); +- state = sn3; +- break; +- case sn3: +- lno |= (((*base)&0xff)<<8); +- state = sn4; +- break; +- case sn4: +- lno |= (*base)&0xff; +- line = base+1; +- state = sline; +- break; +- case sline: +- if (*base == '\0') { +- /* worry about line numbers */ +- if (histptr >= history && lno-1 != s->line) { +- /* a replacement ? */ +- histinsert(s, lno, line); +- } +- else { +- s->line = lno; +- s->cmd_offset = lno; +- histsave(lno, (char *)line, 0); +- } +- state = shdr; +- } +- } +- } ++ history_load(f, s); ++ history_close(f); + } + +-/* +- * Insert a line into the history at a specified number +- */ + static void +-histinsert(Source *s, int lno, unsigned char *line) ++writehistfile(FILE *f) + { +- char **hp; ++ int i; ++ char *cmd; + +- if (lno >= s->line-(histptr-history) && lno <= s->line) { +- hp = &histptr[lno-s->line]; +- if (*hp) +- afree((void*)*hp, APERM); +- *hp = str_save((char *)line, APERM); +- } +-} ++ if (ftruncate(fileno(f), 0) == -1) ++ return; ++ rewind(f); + +-/* +- * write a command to the end of the history file +- * This *MAY* seem easy but it's also necessary to check +- * that the history file has not changed in size. +- * If it has - then some other shell has written to it +- * and we should read those commands to update our history +- */ +-static void +-writehistfile(int lno, char *cmd) +-{ +- int sizenow; +- unsigned char *base; +- unsigned char *new; +- int bytes; +- unsigned char hdr[5]; +- +- (void) flock(histfd, LOCK_EX); +- sizenow = lseek(histfd, 0L, SEEK_END); +- if (sizenow != hsize) { +- /* +- * Things have changed +- */ +- if (sizenow > hsize) { +- /* someone has added some lines */ +- bytes = sizenow - hsize; +- base = (unsigned char *)mmap(0, sizenow, +- PROT_READ, MAP_FILE|MAP_PRIVATE, histfd, 0); +- if (base == MAP_FAILED) +- goto bad; +- new = base + hsize; +- if (*new != COMMAND) { +- munmap((caddr_t)base, sizenow); +- goto bad; +- } +- hist_source->line--; +- histload(hist_source, new, bytes); +- hist_source->line++; +- lno = hist_source->line; +- munmap((caddr_t)base, sizenow); +- hsize = sizenow; +- } else { +- /* it has shrunk */ +- /* but to what? */ +- /* we'll give up for now */ +- goto bad; +- } ++ for (i = 0; i < histsize; i++) { ++ cmd = history[i]; ++ if (cmd == NULL) ++ break; ++ if (fprintf(f, "%s\n", cmd) == -1) ++ return; + } +- /* +- * we can write our bit now +- */ +- hdr[0] = COMMAND; +- hdr[1] = (lno>>24)&0xff; +- hdr[2] = (lno>>16)&0xff; +- hdr[3] = (lno>>8)&0xff; +- hdr[4] = lno&0xff; +- (void) write(histfd, hdr, 5); +- (void) write(histfd, cmd, strlen(cmd)+1); +- hsize = lseek(histfd, 0L, SEEK_END); +- (void) flock(histfd, LOCK_UN); +- return; +-bad: +- hist_finish(); + } + + void + hist_finish(void) + { +- (void) flock(histfd, LOCK_UN); +- (void) close(histfd); +- histfd = 0; + } +- +-/* +- * add magic to the history file +- */ +-static int +-sprinkle(int fd) +-{ +- static unsigned char mag[] = { HMAGIC1, HMAGIC2 }; +- +- return(write(fd, mag, 2) != 2); +-} +- + #else /* HISTORY */ + + /* No history to be compiled in: dummy routines to avoid lots more ifdefs */ + diff --git a/system/ksh-openbsd/patches/09b-linux-new_history_implementation.diff b/system/ksh-openbsd/patches/09b-linux-new_history_implementation.diff new file mode 100644 index 0000000000000..06b0b03980bfd --- /dev/null +++ b/system/ksh-openbsd/patches/09b-linux-new_history_implementation.diff @@ -0,0 +1,36 @@ +Linux specific modifications: + - #include stdint.h for uint32_t + - #define timespeccmp() which is sys/time.h in OpenBSD + - Linux doesn't have any LOCK flags for open(2), so use flock(2) instead + +--- ../ksh-openbsd49/history.c 2011-09-01 08:09:51.486181269 +0200 ++++ history.c 2011-09-01 08:08:59.657181265 +0200 +@@ -17,11 +17,17 @@ + #include "sh.h" + #include <sys/stat.h> + #include "strlcat.h" ++#include "stdint.h" + + #ifdef HISTORY + # include <sys/file.h> + # include <sys/mman.h> + ++#define timespeccmp(tsp, usp, cmp) \ ++ (((tsp)->tv_sec == (usp)->tv_sec) ? \ ++ ((tsp)->tv_nsec cmp (usp)->tv_nsec) : \ ++ ((tsp)->tv_sec cmp (usp)->tv_sec)) ++ + static void writehistfile(FILE *); + static FILE *history_open(int *); + static int history_load(FILE *, Source *); +@@ -604,7 +610,9 @@ + FILE *f = NULL; + struct stat sb; + +- if ((fd = open(hname, O_RDWR | O_CREAT | O_EXLOCK, 0600)) == -1) ++ if ((fd = open(hname, O_RDWR | O_CREAT, 0600)) == -1) ++ return (NULL); ++ if (flock(fd, LOCK_EX) == -1) + return (NULL); + f = fdopen(fd, "r+"); + if (f == NULL) { diff --git a/system/ksh-openbsd/patches/10-ksh_mb_binds.diff b/system/ksh-openbsd/patches/10-ksh_mb_binds.diff new file mode 100644 index 0000000000000..7af3fd3ee6f46 --- /dev/null +++ b/system/ksh-openbsd/patches/10-ksh_mb_binds.diff @@ -0,0 +1,1115 @@ +From: Marco Peereboom +Cc: OpenBSD tech +On Fri, Sep 02, 2011 at 10:41:51AM +1000, Damien Miller wrote: +> Hi, +> +> While people are excited about hacking on ksh(1) - let me add my wish: +> unrestricted multibyte character binding so I can have ctrl-left_arrow +> (^[[1;5D on my terminal) bound to backward-word and so forth. +> +> Last time I checked the code for bind could only handle a couple of +> characters after ^[ +> +> -d + +Here you go... + +---------------- 8< ---------------- + + +Index: Makefile +=================================================================== +RCS file: /cvs/src/bin/ksh/Makefile,v +retrieving revision 1.27 +diff -u -p -r1.27 Makefile +--- Makefile.orig 2011-09-07 09:26:01.000000000 +0200 ++++ Makefile 2011-09-07 09:32:19.217691920 +0200 +@@ -16,8 +16,6 @@ + misc.o path.o shf.o syn.o table.o trap.o tree.o tty.o var.o \ + version.o vi.o strlcpy.o strlcat.o + +-CLEANFILES+= emacs.out +- + all: $(PROG) + + CFLAGS+=-Wall +@@ -31,12 +29,7 @@ + install -m644 --no-target-directory ksh.1 $(MANDIR)/man1/pdksh.1 + + clean: +- rm -f $(OBJS) $(PROG) emacs.out +- +-.depend emacs.o: emacs.out +- +-emacs.out: emacs.c +- /bin/sh emacs-gen.sh emacs.c > emacs.out ++ rm -f $(OBJS) $(PROG) + + check test: + /usr/bin/perl ${.CURDIR}/tests/th -s ${.CURDIR}/tests -p ./ksh -C \ +Index: emacs.c +=================================================================== +RCS file: /cvs/src/bin/ksh/emacs.c,v +retrieving revision 1.44 +diff -u -p -r1.44 emacs.c +--- emacs.c 5 Sep 2011 04:50:33 -0000 1.44 ++++ emacs.c 6 Sep 2011 22:36:35 -0000 +@@ -6,6 +6,9 @@ + * created by Ron Natalie at BRL + * modified by Doug Kingston, Doug Gwyn, and Lou Salkind + * adapted to PD ksh by Eric Gisin ++ * ++ * partial rewrite by Marco Peereboom <marco@openbsd.org> ++ * under the same license + */ + + #include "config.h" +@@ -13,6 +16,7 @@ + + #include "sh.h" + #include <sys/stat.h> ++#include <sys/queue.h> + #include <ctype.h> + #include <locale.h> + #include "edit.h" +@@ -37,12 +41,6 @@ struct x_ftab { + short xf_flags; + }; + +-struct x_defbindings { +- u_char xdb_func; /* XFUNC_* */ +- unsigned char xdb_tab; +- unsigned char xdb_char; +-}; +- + #define XF_ARG 1 /* command takes number prefix */ + #define XF_NOBIND 2 /* not allowed to bind to function */ + #define XF_PREFIX 4 /* function sets prefix */ +@@ -51,10 +49,6 @@ struct x_defbindings { + #define is_cfs(c) (c == ' ' || c == '\t' || c == '"' || c == '\'') + #define is_mfs(c) (!(isalnum(c) || c == '_' || c == '$')) /* Separator for motion */ + +-# define CHARMASK 0xFF /* 8-bit character mask */ +-# define X_NTABS 3 /* normal, meta1, meta2 */ +-#define X_TABSZ (CHARMASK+1) /* size of keydef tables etc */ +- + /* Arguments for do_complete() + * 0 = enumerate M-= complete as much as possible and then list + * 1 = complete M-Esc +@@ -66,6 +60,17 @@ typedef enum { + CT_COMPLIST /* complete and then list (if non-exact) */ + } Comp_type; + ++/* keybindings */ ++struct kb_entry { ++ TAILQ_ENTRY(kb_entry) entry; ++ unsigned char *seq; ++ int len; ++ struct x_ftab *ftab; ++ void *args; ++}; ++TAILQ_HEAD(kb_list, kb_entry); ++struct kb_list kblist = TAILQ_HEAD_INITIALIZER(kblist); ++ + /* { from 4.9 edit.h */ + /* + * The following are used for my horizontal scrolling stuff +@@ -91,20 +96,18 @@ static int x_arg_defaulted;/* x_arg not + + static int xlp_valid; + /* end from 4.9 edit.h } */ ++static int x_tty; /* are we on a tty? */ ++static int x_bind_quiet; /* be quiet when binding keys */ ++static int (*x_last_command)(int); + +-static int x_prefix1 = CTRL('['), x_prefix2 = CTRL('X'); + static char **x_histp; /* history position */ + static int x_nextcmd; /* for newline-and-next */ + static char *xmp; /* mark pointer */ +-static u_char x_last_command; +-static u_char (*x_tab)[X_TABSZ]; /* key definition */ +-static char *(*x_atab)[X_TABSZ]; /* macro definitions */ +-static unsigned char x_bound[(X_TABSZ * X_NTABS + 7) / 8]; + #define KILLSIZE 20 + static char *killstack[KILLSIZE]; + static int killsp, killtp; +-static int x_curprefix; +-static char *macroptr; ++static int x_literal_set; ++static int x_arg_set; + static int prompt_skip; + static int prompt_redraw; + +@@ -123,9 +126,6 @@ static int x_search(char *, int, in + static int x_match(char *, char *); + static void x_redraw(int); + static void x_push(int); +-static char * x_mapin(const char *, Area *); +-static char * x_mapout(int); +-static void x_print(int, int); + static void x_adjust(void); + static void x_e_ungetc(int); + static int x_e_getc(void); +@@ -137,18 +137,66 @@ static char *x_lastcp(void); + static void do_complete(int, Comp_type); + static int x_emacs_putbuf(const char *, size_t); + ++/* proto's for keybindings */ ++static int x_abort(int); ++static int x_beg_hist(int); ++static int x_comp_comm(int); ++static int x_comp_file(int); ++static int x_complete(int); ++static int x_del_back(int); ++static int x_del_bword(int); ++static int x_del_char(int); ++static int x_del_fword(int); ++static int x_del_line(int); ++static int x_draw_line(int); ++static int x_end_hist(int); ++static int x_end_of_text(int); ++static int x_enumerate(int); ++static int x_eot_del(int); ++static int x_error(int); ++static int x_goto_hist(int); ++static int x_ins_string(int); ++static int x_insert(int); ++static int x_kill(int); ++static int x_kill_region(int); ++static int x_list_comm(int); ++static int x_list_file(int); ++static int x_literal(int); ++static int x_meta_yank(int); ++static int x_mv_back(int); ++static int x_mv_begin(int); ++static int x_mv_bword(int); ++static int x_mv_end(int); ++static int x_mv_forw(int); ++static int x_mv_fword(int); ++static int x_newline(int); ++static int x_next_com(int); ++static int x_nl_next_com(int); ++static int x_noop(int); ++static int x_prev_com(int); ++static int x_prev_histword(int); ++static int x_search_char_forw(int); ++static int x_search_char_back(int); ++static int x_search_hist(int); ++static int x_set_mark(int); ++static int x_stuff(int); ++static int x_stuffreset(int); ++static int x_transpose(int); ++static int x_version(int); ++static int x_xchg_point_mark(int); ++static int x_yank(int); ++static int x_comp_list(int); ++static int x_expand(int); ++static int x_fold_capitalize(int); ++static int x_fold_lower(int); ++static int x_fold_upper(int); ++static int x_set_arg(int); ++static int x_comment(int); ++#ifdef DEBUG ++static int x_debug_info(int); ++#endif + +-/* The lines between START-FUNC-TAB .. END-FUNC-TAB are run through a +- * script (emacs-gen.sh) that generates emacs.out which contains: +- * - function declarations for x_* functions +- * - defines of the form XFUNC_<name> where <name> is function +- * name, sans leading x_. +- * Note that the script treats #ifdef and { 0, 0, 0} specially - use with +- * caution. +- */ +-#include "emacs.out" + static const struct x_ftab x_ftab[] = { +-/* @START-FUNC-TAB@ */ + { x_abort, "abort", 0 }, + { x_beg_hist, "beginning-of-history", 0 }, + { x_comp_comm, "complete-command", 0 }, +@@ -173,8 +221,6 @@ static const struct x_ftab x_ftab[] = { + { x_list_comm, "list-command", 0 }, + { x_list_file, "list-file", 0 }, + { x_literal, "quote", 0 }, +- { x_meta1, "prefix-1", XF_PREFIX }, +- { x_meta2, "prefix-2", XF_PREFIX }, + { x_meta_yank, "yank-pop", 0 }, + { x_mv_back, "backward-char", XF_ARG }, + { x_mv_begin, "beginning-of-line", 0 }, +@@ -212,111 +258,22 @@ static const struct x_ftab x_ftab[] = { + { 0, 0, 0 }, + #endif + { 0, 0, 0 }, +-/* @END-FUNC-TAB@ */ +-}; +- +-static struct x_defbindings const x_defbindings[] = { +- { XFUNC_del_back, 0, CTRL('?') }, +- { XFUNC_del_bword, 1, CTRL('?') }, +- { XFUNC_eot_del, 0, CTRL('D') }, +- { XFUNC_del_back, 0, CTRL('H') }, +- { XFUNC_del_bword, 1, CTRL('H') }, +- { XFUNC_del_bword, 1, 'h' }, +- { XFUNC_mv_bword, 1, 'b' }, +- { XFUNC_mv_fword, 1, 'f' }, +- { XFUNC_del_fword, 1, 'd' }, +- { XFUNC_mv_back, 0, CTRL('B') }, +- { XFUNC_mv_forw, 0, CTRL('F') }, +- { XFUNC_search_char_forw, 0, CTRL(']') }, +- { XFUNC_search_char_back, 1, CTRL(']') }, +- { XFUNC_newline, 0, CTRL('M') }, +- { XFUNC_newline, 0, CTRL('J') }, +- { XFUNC_end_of_text, 0, CTRL('_') }, +- { XFUNC_abort, 0, CTRL('G') }, +- { XFUNC_prev_com, 0, CTRL('P') }, +- { XFUNC_next_com, 0, CTRL('N') }, +- { XFUNC_nl_next_com, 0, CTRL('O') }, +- { XFUNC_search_hist, 0, CTRL('R') }, +- { XFUNC_beg_hist, 1, '<' }, +- { XFUNC_end_hist, 1, '>' }, +- { XFUNC_goto_hist, 1, 'g' }, +- { XFUNC_mv_end, 0, CTRL('E') }, +- { XFUNC_mv_begin, 0, CTRL('A') }, +- { XFUNC_draw_line, 0, CTRL('L') }, +- { XFUNC_meta1, 0, CTRL('[') }, +- { XFUNC_meta2, 0, CTRL('X') }, +- { XFUNC_kill, 0, CTRL('K') }, +- { XFUNC_yank, 0, CTRL('Y') }, +- { XFUNC_meta_yank, 1, 'y' }, +- { XFUNC_literal, 0, CTRL('^') }, +- { XFUNC_comment, 1, '#' }, +-#if defined(TIOCSTI) +- { XFUNC_stuff, 0, CTRL('T') }, +-#else +- { XFUNC_transpose, 0, CTRL('T') }, +-#endif +- { XFUNC_complete, 1, CTRL('[') }, +- { XFUNC_comp_list, 0, CTRL('I') }, +- { XFUNC_comp_list, 1, '=' }, +- { XFUNC_enumerate, 1, '?' }, +- { XFUNC_expand, 1, '*' }, +- { XFUNC_comp_file, 1, CTRL('X') }, +- { XFUNC_comp_comm, 2, CTRL('[') }, +- { XFUNC_list_comm, 2, '?' }, +- { XFUNC_list_file, 2, CTRL('Y') }, +- { XFUNC_set_mark, 1, ' ' }, +- { XFUNC_kill_region, 0, CTRL('W') }, +- { XFUNC_xchg_point_mark, 2, CTRL('X') }, +- { XFUNC_literal, 0, CTRL('V') }, +-#ifdef DEBUG +- { XFUNC_debug_info, 1, CTRL('H') }, +-#endif +- { XFUNC_prev_histword, 1, '.' }, +- { XFUNC_prev_histword, 1, '_' }, +- { XFUNC_set_arg, 1, '0' }, +- { XFUNC_set_arg, 1, '1' }, +- { XFUNC_set_arg, 1, '2' }, +- { XFUNC_set_arg, 1, '3' }, +- { XFUNC_set_arg, 1, '4' }, +- { XFUNC_set_arg, 1, '5' }, +- { XFUNC_set_arg, 1, '6' }, +- { XFUNC_set_arg, 1, '7' }, +- { XFUNC_set_arg, 1, '8' }, +- { XFUNC_set_arg, 1, '9' }, +- { XFUNC_fold_upper, 1, 'U' }, +- { XFUNC_fold_upper, 1, 'u' }, +- { XFUNC_fold_lower, 1, 'L' }, +- { XFUNC_fold_lower, 1, 'l' }, +- { XFUNC_fold_capitalize, 1, 'C' }, +- { XFUNC_fold_capitalize, 1, 'c' }, +- /* These for ansi arrow keys: arguablely shouldn't be here by +- * default, but its simpler/faster/smaller than using termcap +- * entries. +- */ +- { XFUNC_meta2, 1, '[' }, +- { XFUNC_meta2, 1, 'O' }, +- { XFUNC_prev_com, 2, 'A' }, +- { XFUNC_next_com, 2, 'B' }, +- { XFUNC_mv_forw, 2, 'C' }, +- { XFUNC_mv_back, 2, 'D' }, + }; + + int + x_emacs(char *buf, size_t len) + { +- int c; +- const char *p; +- int i; +- u_char f; ++ struct kb_entry *k, *kmatch = NULL; ++ char line[LINE + 1]; ++ int at = 0, submatch, ret, c; ++ const char *p; + + xbp = xbuf = buf; xend = buf + len; + xlp = xcp = xep = buf; + *xcp = 0; + xlp_valid = true; + xmp = NULL; +- x_curprefix = 0; + x_histp = histptr + 1; +- x_last_command = XFUNC_error; + + xx_cols = x_cols; + x_col = promptlen(prompt, &p); +@@ -343,42 +300,91 @@ x_emacs(char *buf, size_t len) + x_nextcmd = -1; + } + ++ line[0] = '\0'; ++ x_literal_set = 0; ++ x_arg = -1; ++ x_last_command = NULL; + while (1) { + x_flush(); + if ((c = x_e_getc()) < 0) + return 0; + +- if (ISMETA(c)) { +- c = META(c); +- x_curprefix = 1; ++ line[at++] = c; ++ line[at] = '\0'; ++ ++ if (x_arg == -1) { ++ x_arg = 1; ++ x_arg_defaulted = 1; + } + +- f = x_curprefix == -1 ? XFUNC_insert : +- x_tab[x_curprefix][c&CHARMASK]; ++ if (x_literal_set) { ++ /* literal, so insert it */ ++ x_literal_set = 0; ++ submatch = 0; ++ } else { ++ submatch = 0; ++ kmatch = NULL; ++ TAILQ_FOREACH(k, &kblist, entry) { ++ if (at > k->len) ++ continue; + +- if (macroptr && f == XFUNC_ins_string) +- f = XFUNC_insert; ++ if (!bcmp(k->seq, line, at)) { ++ /* sub match */ ++ submatch++; ++ if (k->len == at) ++ kmatch = k; ++ } + +- if (!(x_ftab[f].xf_flags & XF_PREFIX) && +- x_last_command != XFUNC_set_arg) { +- x_arg = 1; +- x_arg_defaulted = 1; ++ /* see if we can abort search early */ ++ if (submatch > 1) ++ break; ++ } ++ } ++ ++ if (submatch == 1 && kmatch) { ++ if (kmatch->ftab->xf_func == x_ins_string && ++ kmatch->args) { ++ /* insert macro string */ ++ x_ins(kmatch->args); ++ } ++ ret = kmatch->ftab->xf_func(c); ++ } else { ++ if (submatch) ++ continue; ++ if (at == 1) ++ ret = x_insert(c); ++ else ++ ret = x_error(c); /* not matched meta sequence */ + } +- i = c | (x_curprefix << 8); +- x_curprefix = 0; +- switch (i = (*x_ftab[f].xf_func)(i)) { ++ ++ switch (ret) { + case KSTD: +- if (!(x_ftab[f].xf_flags & XF_PREFIX)) +- x_last_command = f; ++ if (kmatch) ++ x_last_command = kmatch->ftab->xf_func; ++ else ++ x_last_command = NULL; + break; + case KEOL: +- i = xep - xbuf; +- return i; +- case KINTR: /* special case for interrupt */ ++ ret = xep - xbuf; ++ return (ret); ++ break; ++ case KINTR: + trapsig(SIGINT); + x_mode(false); + unwind(LSHELL); ++ x_arg = -1; ++ break; ++ default: ++ bi_errorf("invalid return code"); /* can't happen */ + } ++ ++ /* reset meta sequence */ ++ at = 0; ++ line[0] = '\0'; ++ if (x_arg_set) ++ x_arg_set = 0; /* reset args next time around */ ++ else ++ x_arg = -1; + } + } + +@@ -404,15 +410,6 @@ x_insert(int c) + static int + x_ins_string(int c) + { +- if (macroptr) { +- x_e_putc(BEL); +- return KSTD; +- } +- macroptr = x_atab[c>>8][c & CHARMASK]; +- if (macroptr && !*macroptr) { +- /* XXX bell? */ +- macroptr = (char *) 0; +- } + return KSTD; + } + +@@ -849,6 +846,21 @@ x_eot_del(int c) + return (x_del_char(c)); + } + ++static void * ++kb_find_hist_func(char c) ++{ ++ struct kb_entry *k; ++ char line[LINE + 1]; ++ ++ line[0] = c; ++ line[1] = '\0'; ++ TAILQ_FOREACH(k, &kblist, entry) ++ if (!strcmp(k->seq, line)) ++ return (k->ftab->xf_func); ++ ++ return (x_insert); ++} ++ + /* reverse incremental history search */ + static int + x_search_hist(int c) +@@ -856,7 +868,7 @@ x_search_hist(int c) + int offset = -1; /* offset of match in xbuf, else -1 */ + char pat [256+1]; /* pattern buffer */ + char *p = pat; +- u_char f; ++ int (*f)(int); + + *p = '\0'; + while (1) { +@@ -867,12 +879,12 @@ x_search_hist(int c) + x_flush(); + if ((c = x_e_getc()) < 0) + return KSTD; +- f = x_tab[0][c&CHARMASK]; ++ f = kb_find_hist_func(c); + if (c == CTRL('[')) + break; +- else if (f == XFUNC_search_hist) ++ else if (f == x_search_hist) + offset = x_search(pat, 0, offset); +- else if (f == XFUNC_del_back) { ++ else if (f == x_del_back) { + if (p == pat) { + offset = -1; + break; +@@ -884,7 +896,7 @@ x_search_hist(int c) + else + offset = x_search(pat, 1, offset); + continue; +- } else if (f == XFUNC_insert) { ++ } else if (f == x_insert) { + /* add char to pattern */ + /* overflow check... */ + if (p >= &pat[sizeof(pat) - 1]) { +@@ -1104,21 +1116,7 @@ x_transpose(int c) + static int + x_literal(int c) + { +- x_curprefix = -1; +- return KSTD; +-} +- +-static int +-x_meta1(int c) +-{ +- x_curprefix = 1; +- return KSTD; +-} +- +-static int +-x_meta2(int c) +-{ +- x_curprefix = 2; ++ x_literal_set = 1; + return KSTD; + } + +@@ -1174,7 +1172,7 @@ static int + x_meta_yank(int c) + { + int len; +- if ((x_last_command != XFUNC_yank && x_last_command != XFUNC_meta_yank) || ++ if ((x_last_command != x_yank && x_last_command != x_meta_yank) || + killstack[killtp] == 0) { + killtp = killsp; + x_e_puts("\nyank something first"); +@@ -1242,175 +1240,231 @@ x_stuff(int c) + } + + static char * +-x_mapin(const char *cp, Area *area) ++kb_encode(const char *s) + { +- char *new, *op; ++ static char l[LINE + 1]; ++ int at = 0; + +- op = new = str_save(cp, area); +- while (*cp) { +- /* XXX -- should handle \^ escape? */ +- if (*cp == '^') { +- cp++; +- if (*cp >= '?') /* includes '?'; ASCII */ +- *op++ = CTRL(*cp); ++ l[at] = '\0'; ++ while (*s) { ++ if (*s == '^') { ++ s++; ++ if (*s >= '?') ++ l[at++] = CTRL(*s); + else { +- *op++ = '^'; +- cp--; ++ l[at++] = '^'; ++ s--; + } + } else +- *op++ = *cp; +- cp++; ++ l[at++] = *s; ++ l[at] = '\0'; ++ s++; + } +- *op = '\0'; +- +- return new; ++ return (l); + } + + static char * +-x_mapout(int c) ++kb_decode(const char *s) + { +- static char buf[8]; +- char *p = buf; ++ static char l[LINE + 1]; ++ int i, at = 0; + +- if (iscntrl(c)) { +- *p++ = '^'; +- *p++ = UNCTRL(c); +- } else +- *p++ = c; +- *p = 0; +- return buf; ++ l[0] = '\0'; ++ for (i = 0; i < strlen(s); i++) { ++ if (iscntrl(s[i])) { ++ l[at++] = '^'; ++ l[at++] = UNCTRL(s[i]); ++ } else ++ l[at++] = s[i]; ++ l[at] = '\0'; ++ } ++ ++ return (l); ++} ++ ++static int ++kb_match(char *s) ++{ ++ int len = strlen(s); ++ struct kb_entry *k; ++ ++ TAILQ_FOREACH(k, &kblist, entry) { ++ if (len > k->len) ++ continue; ++ ++ if (!bcmp(k->seq, s, len)) ++ return (1); ++ } ++ ++ return (0); + } + + static void +-x_print(int prefix, int key) ++kb_del(struct kb_entry *k) + { +- if (prefix == 1) +- shprintf("%s", x_mapout(x_prefix1)); +- if (prefix == 2) +- shprintf("%s", x_mapout(x_prefix2)); +- shprintf("%s = ", x_mapout(key)); +- if (x_tab[prefix][key] != XFUNC_ins_string) +- shprintf("%s\n", x_ftab[x_tab[prefix][key]].xf_name); +- else +- shprintf("'%s'\n", x_atab[prefix][key]); ++ TAILQ_REMOVE(&kblist, k, entry); ++ if (k->args) ++ free(k->args); ++ afree(k, AEDIT); ++} ++ ++static struct kb_entry * ++kb_add_string(void *func, void *args, char *str) ++{ ++ int i, count; ++ struct kb_entry *k; ++ struct x_ftab *xf = NULL; ++ ++ for (i = 0; i < NELEM(x_ftab); i++) ++ if (x_ftab[i].xf_func == func) { ++ xf = (struct x_ftab *)&x_ftab[i]; ++ break; ++ } ++ if (xf == NULL) ++ return (NULL); ++ ++ if (kb_match(str)) { ++ if (x_bind_quiet == 0) ++ bi_errorf("duplicate binding for %s", kb_decode(str)); ++ return (NULL); ++ } ++ count = strlen(str); ++ ++ k = alloc(sizeof *k + count + 1, AEDIT); ++ k->seq = (unsigned char *)(k + 1); ++ k->len = count; ++ k->ftab = xf; ++ k->args = args ? strdup(args) : NULL; ++ ++ strlcpy(k->seq, str, count + 1); ++ ++ TAILQ_INSERT_TAIL(&kblist, k, entry); ++ ++ return (k); ++} ++ ++static struct kb_entry * ++kb_add(void *func, void *args, ...) ++{ ++ va_list ap; ++ int i, count; ++ char l[LINE + 1]; ++ ++ va_start(ap, args); ++ count = 0; ++ while (va_arg(ap, unsigned int) != 0) ++ count++; ++ va_end(ap); ++ ++ va_start(ap, args); ++ for (i = 0; i <= count /* <= is correct */; i++) ++ l[i] = (unsigned char)va_arg(ap, unsigned int); ++ va_end(ap); ++ ++ return (kb_add_string(func, args, l)); ++} ++ ++static void ++kb_print(struct kb_entry *k) ++{ ++ if (!(k->ftab->xf_flags & XF_NOBIND)) ++ shprintf("%s = %s\n", ++ kb_decode(k->seq), k->ftab->xf_name); ++ else if (k->args) { ++ shprintf("%s = ", kb_decode(k->seq)); ++ shprintf("'%s'\n", kb_decode(k->args)); ++ } + } + + int +-x_bind( const char *a1, const char *a2, ++x_bind(const char *a1, const char *a2, + int macro, /* bind -m */ + int list) /* bind -l */ + { +- u_char f; +- int prefix, key; +- char *sp = NULL; +- char *m1, *m2; ++ int i; ++ struct kb_entry *k; ++ char in[LINE + 1]; + +- if (x_tab == NULL) { ++ if (x_tty == 0) { + bi_errorf("cannot bind, not a tty"); +- return 1; ++ return (1); + } + +- /* List function names */ + if (list) { +- for (f = 0; f < NELEM(x_ftab); f++) +- if (x_ftab[f].xf_name && +- !(x_ftab[f].xf_flags & XF_NOBIND)) +- shprintf("%s\n", x_ftab[f].xf_name); +- return 0; ++ /* show all function names */ ++ for (i = 0; i < NELEM(x_ftab); i++) { ++ if (x_ftab[i].xf_name == NULL) ++ continue; ++ if (x_ftab[i].xf_name && ++ !(x_ftab[i].xf_flags & XF_NOBIND)) ++ shprintf("%s\n", x_ftab[i].xf_name); ++ } ++ return (0); + } + + if (a1 == NULL) { +- for (prefix = 0; prefix < X_NTABS; prefix++) +- for (key = 0; key < X_TABSZ; key++) { +- f = x_tab[prefix][key]; +- if (f == XFUNC_insert || f == XFUNC_error || +- (macro && f != XFUNC_ins_string)) +- continue; +- x_print(prefix, key); +- } +- return 0; +- } +- +- m2 = m1 = x_mapin(a1, ATEMP); +- prefix = key = 0; +- for (;; m1++) { +- key = *m1 & CHARMASK; +- if (x_tab[prefix][key] == XFUNC_meta1) +- prefix = 1; +- else if (x_tab[prefix][key] == XFUNC_meta2) +- prefix = 2; +- else +- break; ++ /* show all bindings */ ++ TAILQ_FOREACH(k, &kblist, entry) ++ kb_print(k); ++ return (0); + } +- afree(m2, ATEMP); + ++ snprintf(in, sizeof in, "%s", kb_encode(a1)); + if (a2 == NULL) { +- x_print(prefix, key); +- return 0; ++ /* print binding */ ++ TAILQ_FOREACH(k, &kblist, entry) ++ if (!strcmp(k->seq, in)) { ++ kb_print(k); ++ return (0); ++ } ++ shprintf("%s = %s\n", kb_decode(a1), "auto-insert"); ++ return (0); + } + +- if (*a2 == 0) +- f = XFUNC_insert; +- else if (!macro) { +- for (f = 0; f < NELEM(x_ftab); f++) +- if (x_ftab[f].xf_name && +- strcmp(x_ftab[f].xf_name, a2) == 0) +- break; +- if (f == NELEM(x_ftab) || x_ftab[f].xf_flags & XF_NOBIND) { +- bi_errorf("%s: no such function", a2); +- return 1; ++ if (strlen(a2) == 0) { ++ /* clear binding */ ++ TAILQ_FOREACH(k, &kblist, entry) ++ if (!strcmp(k->seq, in)) ++ kb_del(k); ++ return (0); ++ } ++ ++ /* set binding */ ++ if (macro) { ++ /* delete old mapping */ ++ TAILQ_FOREACH(k, &kblist, entry) ++ if (!strcmp(k->seq, in)) ++ kb_del(k); ++ kb_add_string(x_ins_string, kb_encode(a2), in); ++ return (0); ++ } ++ ++ /* set non macro binding */ ++ for (i = 0; i < NELEM(x_ftab); i++) { ++ if (x_ftab[i].xf_name == NULL) ++ continue; ++ if (!strcmp(x_ftab[i].xf_name, a2)) { ++ /* delete old mapping */ ++ TAILQ_FOREACH(k, &kblist, entry) ++ if (!strcmp(k->seq, in)) ++ kb_del(k); ++ kb_add_string(x_ftab[i].xf_func, NULL, in); ++ return (0); + } +-#if 0 /* This breaks the bind commands that map arrow keys */ +- if (f == XFUNC_meta1) +- x_prefix1 = key; +- if (f == XFUNC_meta2) +- x_prefix2 = key; +-#endif /* 0 */ +- } else { +- f = XFUNC_ins_string; +- sp = x_mapin(a2, AEDIT); + } +- +- if (x_tab[prefix][key] == XFUNC_ins_string && x_atab[prefix][key]) +- afree((void *)x_atab[prefix][key], AEDIT); +- x_tab[prefix][key] = f; +- x_atab[prefix][key] = sp; +- +- /* Track what the user has bound so x_emacs_keys() won't toast things */ +- if (f == XFUNC_insert) +- x_bound[(prefix * X_TABSZ + key) / 8] &= +- ~(1 << ((prefix * X_TABSZ + key) % 8)); +- else +- x_bound[(prefix * X_TABSZ + key) / 8] |= +- (1 << ((prefix * X_TABSZ + key) % 8)); +- +- return 0; ++ bi_errorf("%s: no such function", a2); ++ return (1); + } + + void + x_init_emacs(void) + { +- int i, j; + char *locale; + ++ x_tty = 1; + ainit(AEDIT); + x_nextcmd = -1; + +- x_tab = (u_char (*)[X_TABSZ]) alloc(sizeofN(*x_tab, X_NTABS), AEDIT); +- for (j = 0; j < X_TABSZ; j++) +- x_tab[0][j] = XFUNC_insert; +- for (i = 1; i < X_NTABS; i++) +- for (j = 0; j < X_TABSZ; j++) +- x_tab[i][j] = XFUNC_error; +- for (i = 0; i < NELEM(x_defbindings); i++) +- x_tab[(unsigned char)x_defbindings[i].xdb_tab][x_defbindings[i].xdb_char] +- = x_defbindings[i].xdb_func; +- +- x_atab = (char *(*)[X_TABSZ]) alloc(sizeofN(*x_atab, X_NTABS), AEDIT); +- for (i = 1; i < X_NTABS; i++) +- for (j = 0; j < X_TABSZ; j++) +- x_atab[i][j] = NULL; +- + /* Determine if we can translate meta key or use 8-bit AscII + * XXX - It would be nice if there was a locale attribute to + * determine if the locale is 7-bit or not. +@@ -1418,36 +1472,134 @@ x_init_emacs(void) + locale = setlocale(LC_CTYPE, NULL); + if (locale == NULL || !strcmp(locale, "C") || !strcmp(locale, "POSIX")) + Flag(FEMACSUSEMETA) = 1; +-} + +-static void bind_if_not_bound(int p, int k, int func); +- +-static void +-bind_if_not_bound(int p, int k, int func) +-{ +- /* Has user already bound this key? If so, don't override it */ +- if (x_bound[((p) * X_TABSZ + (k)) / 8] & +- (1 << (((p) * X_TABSZ + (k)) % 8))) +- return; ++ /* new keybinding stuff */ ++ TAILQ_INIT(&kblist); + +- x_tab[p][k] = func; ++ /* man page order */ ++ kb_add(x_abort, NULL, CTRL('G'), 0); ++ kb_add(x_mv_back, NULL, CTRL('B'), 0); ++ kb_add(x_mv_back, NULL, CTRL('X'), CTRL('D'), 0); ++ kb_add(x_mv_bword, NULL, CTRL('['), 'b', 0); ++ kb_add(x_beg_hist, NULL, CTRL('['), '<', 0); ++ kb_add(x_mv_begin, NULL, CTRL('A'), 0); ++ kb_add(x_fold_capitalize, NULL, CTRL('['), 'C', 0); ++ kb_add(x_fold_capitalize, NULL, CTRL('['), 'c', 0); ++ kb_add(x_comment, NULL, CTRL('['), '#', 0); ++ kb_add(x_complete, NULL, CTRL('['), CTRL('['), 0); ++ kb_add(x_comp_comm, NULL, CTRL('X'), CTRL('['), 0); ++ kb_add(x_comp_file, NULL, CTRL('['), CTRL('X'), 0); ++ kb_add(x_comp_list, NULL, CTRL('I'), 0); ++ kb_add(x_comp_list, NULL, CTRL('['), '=', 0); ++ kb_add(x_del_back, NULL, CTRL('?'), 0); ++ kb_add(x_del_back, NULL, CTRL('H'), 0); ++ /* x_del_char not assigned by default */ ++ kb_add(x_del_bword, NULL, CTRL('['), CTRL('?'), 0); ++ kb_add(x_del_bword, NULL, CTRL('['), CTRL('H'), 0); ++ kb_add(x_del_bword, NULL, CTRL('['), 'h', 0); ++ kb_add(x_del_fword, NULL, CTRL('['), 'd', 0); ++ kb_add(x_next_com, NULL, CTRL('N'), 0); ++ kb_add(x_next_com, NULL, CTRL('X'), 'B', 0); ++ kb_add(x_fold_lower, NULL, CTRL('['), 'L', 0); ++ kb_add(x_fold_lower, NULL, CTRL('['), 'l', 0); ++ kb_add(x_end_hist, NULL, CTRL('['), '>', 0); ++ kb_add(x_mv_end, NULL, CTRL('E'), 0); ++ /* how to handle: eot: ^_, underneath copied from original keybindings */ ++ kb_add(x_end_of_text, NULL, CTRL('_'), 0); ++ kb_add(x_eot_del, NULL, CTRL('D'), 0); ++ /* error */ ++ kb_add(x_xchg_point_mark, NULL, CTRL('X'), CTRL('X'), 0); ++ kb_add(x_expand, NULL, CTRL('['), '*', 0); ++ kb_add(x_mv_forw, NULL, CTRL('F'), 0); ++ kb_add(x_mv_forw, NULL, CTRL('X'), 'C', 0); ++ kb_add(x_mv_fword, NULL, CTRL('['), 'f', 0); ++ kb_add(x_goto_hist, NULL, CTRL('['), 'g', 0); ++ /* kill-line */ ++ kb_add(x_del_bword, NULL, CTRL('W'), 0); /* not what man says */ ++ kb_add(x_kill, NULL, CTRL('K'), 0); ++ kb_add(x_enumerate, NULL, CTRL('['), '?', 0); ++ kb_add(x_list_comm, NULL, CTRL('X'), '?', 0); ++ kb_add(x_list_file, NULL, CTRL('X'), CTRL('Y'), 0); ++ kb_add(x_newline, NULL, CTRL('J'), 0); ++ kb_add(x_newline, NULL, CTRL('M'), 0); ++ kb_add(x_nl_next_com, NULL, CTRL('O'), 0); ++ /* no-op */ ++ kb_add(x_prev_histword, NULL, CTRL('['), '.', 0); ++ kb_add(x_prev_histword, NULL, CTRL('['), '_', 0); ++ /* how to handle: quote: ^^ */ ++ kb_add(x_draw_line, NULL, CTRL('L'), 0); ++ kb_add(x_search_char_back, NULL, CTRL('['), CTRL(']'), 0); ++ kb_add(x_search_char_forw, NULL, CTRL(']'), 0); ++ kb_add(x_search_hist, NULL, CTRL('R'), 0); ++ kb_add(x_set_mark, NULL, CTRL('['), ' ', 0); ++#if defined(TIOCSTI) ++ kb_add(x_stuff, NULL, CTRL('T'), 0); ++ /* stuff-reset */ ++#else ++ kb_add(x_transpose, NULL, CTRL('T'), 0); ++#endif ++ kb_add(x_prev_com, NULL, CTRL('P'), 0); ++ kb_add(x_prev_com, NULL, CTRL('X'), 'A', 0); ++ kb_add(x_fold_upper, NULL, CTRL('['), 'U', 0); ++ kb_add(x_fold_upper, NULL, CTRL('['), 'u', 0); ++ kb_add(x_literal, NULL, CTRL('V'), 0); ++ kb_add(x_literal, NULL, CTRL('^'), 0); ++ kb_add(x_yank, NULL, CTRL('Y'), 0); ++ kb_add(x_meta_yank, NULL, CTRL('['), 'y', 0); ++ /* man page ends here */ ++ ++ /* arrow keys */ ++ kb_add(x_prev_com, NULL, CTRL('['), '[', 'A', 0); /* up */ ++ kb_add(x_next_com, NULL, CTRL('['), '[', 'B', 0); /* down */ ++ kb_add(x_mv_forw, NULL, CTRL('['), '[', 'C', 0); /* right */ ++ kb_add(x_mv_back, NULL, CTRL('['), '[', 'D', 0); /* left */ ++ kb_add(x_prev_com, NULL, CTRL('['), 'O', 'A', 0); /* up */ ++ kb_add(x_next_com, NULL, CTRL('['), 'O', 'B', 0); /* down */ ++ kb_add(x_mv_forw, NULL, CTRL('['), 'O', 'C', 0); /* right */ ++ kb_add(x_mv_back, NULL, CTRL('['), 'O', 'D', 0); /* left */ ++ ++ /* more navigation keys */ ++ kb_add(x_mv_begin, NULL, CTRL('['), '[', 'H', 0); /* home */ ++ kb_add(x_mv_end, NULL, CTRL('['), '[', 'F', 0); /* end */ ++ kb_add(x_mv_begin, NULL, CTRL('['), 'O', 'H', 0); /* home */ ++ kb_add(x_mv_end, NULL, CTRL('['), 'O', 'F', 0); /* end */ ++ ++ /* can't be bound */ ++ kb_add(x_set_arg, NULL, CTRL('['), '0', 0); ++ kb_add(x_set_arg, NULL, CTRL('['), '1', 0); ++ kb_add(x_set_arg, NULL, CTRL('['), '2', 0); ++ kb_add(x_set_arg, NULL, CTRL('['), '3', 0); ++ kb_add(x_set_arg, NULL, CTRL('['), '4', 0); ++ kb_add(x_set_arg, NULL, CTRL('['), '5', 0); ++ kb_add(x_set_arg, NULL, CTRL('['), '6', 0); ++ kb_add(x_set_arg, NULL, CTRL('['), '7', 0); ++ kb_add(x_set_arg, NULL, CTRL('['), '8', 0); ++ kb_add(x_set_arg, NULL, CTRL('['), '9', 0); ++ ++ /* ctrl arrow keys */ ++ kb_add(x_mv_end, NULL, CTRL('['), '[', '1', ';', '5', 'A', 0); /* ctrl up */ ++ kb_add(x_mv_begin, NULL, CTRL('['), '[', '1', ';', '5', 'B', 0); /* ctrl down */ ++ kb_add(x_mv_fword, NULL, CTRL('['), '[', '1', ';', '5', 'C', 0); /* ctrl right */ ++ kb_add(x_mv_bword, NULL, CTRL('['), '[', '1', ';', '5', 'D', 0); /* ctrl left */ + } + + void + x_emacs_keys(X_chars *ec) + { ++ x_bind_quiet = 1; + if (ec->erase >= 0) { +- bind_if_not_bound(0, ec->erase, XFUNC_del_back); +- bind_if_not_bound(1, ec->erase, XFUNC_del_bword); ++ kb_add(x_del_back, NULL, ec->erase, 0); ++ kb_add(x_del_bword, NULL, CTRL('['), ec->erase, 0); + } + if (ec->kill >= 0) +- bind_if_not_bound(0, ec->kill, XFUNC_del_line); ++ kb_add(x_del_line, NULL, ec->kill, 0); + if (ec->werase >= 0) +- bind_if_not_bound(0, ec->werase, XFUNC_del_bword); ++ kb_add(x_del_bword, NULL, ec->werase, 0); + if (ec->intr >= 0) +- bind_if_not_bound(0, ec->intr, XFUNC_abort); ++ kb_add(x_abort, NULL, ec->intr, 0); + if (ec->quit >= 0) +- bind_if_not_bound(0, ec->quit, XFUNC_noop); ++ kb_add(x_noop, NULL, ec->quit, 0); ++ x_bind_quiet = 0; + } + + static int +@@ -1704,18 +1856,10 @@ x_e_getc(void) + if (unget_char >= 0) { + c = unget_char; + unget_char = -1; +- } else { +- if (macroptr) { +- c = *macroptr++; +- if (!c) { +- macroptr = NULL; +- c = x_getc(); +- } +- } else +- c = x_getc(); +- } ++ } else ++ c = x_getc(); + +- return c <= CHARMASK ? c : (c & CHARMASK); ++ return c; + } + + static void +@@ -1787,7 +1931,6 @@ + int n = 0; + int first = 1; + +- c &= CHARMASK; /* strip command prefix */ + for (; c >= 0 && isdigit(c); c = x_e_getc(), first = 0) { + n = n * 10 + (c - '0'); + if (n < 0 || n > LINE) { +@@ -1802,6 +1945,7 @@ x_set_arg(int c) + x_e_ungetc(c); + x_arg = n; + x_arg_defaulted = 0; ++ x_arg_set = 1; + } + return KSTD; + } + diff --git a/system/ksh/patches/linux/Makefile.diff b/system/ksh-openbsd/patches/linux/Makefile.diff index 7c9ca8f8cae9a..7c9ca8f8cae9a 100644 --- a/system/ksh/patches/linux/Makefile.diff +++ b/system/ksh-openbsd/patches/linux/Makefile.diff diff --git a/system/ksh/patches/linux/c_sh_c.diff b/system/ksh-openbsd/patches/linux/c_sh_c.diff index 09b74c7a0b311..09b74c7a0b311 100644 --- a/system/ksh/patches/linux/c_sh_c.diff +++ b/system/ksh-openbsd/patches/linux/c_sh_c.diff diff --git a/system/ksh/patches/linux/charclass_h.diff b/system/ksh-openbsd/patches/linux/charclass_h.diff index 05e79570755e4..05e79570755e4 100644 --- a/system/ksh/patches/linux/charclass_h.diff +++ b/system/ksh-openbsd/patches/linux/charclass_h.diff diff --git a/system/ksh/patches/linux/emacs_c.diff b/system/ksh-openbsd/patches/linux/emacs_c.diff index 4bf6c2a6bc531..4bf6c2a6bc531 100644 --- a/system/ksh/patches/linux/emacs_c.diff +++ b/system/ksh-openbsd/patches/linux/emacs_c.diff diff --git a/system/ksh/patches/linux/eval_c.diff b/system/ksh-openbsd/patches/linux/eval_c.diff index 9d580d8a633ec..9d580d8a633ec 100644 --- a/system/ksh/patches/linux/eval_c.diff +++ b/system/ksh-openbsd/patches/linux/eval_c.diff diff --git a/system/ksh/patches/linux/history_c.diff b/system/ksh-openbsd/patches/linux/history_c.diff index 674e33781e371..674e33781e371 100644 --- a/system/ksh/patches/linux/history_c.diff +++ b/system/ksh-openbsd/patches/linux/history_c.diff diff --git a/system/ksh/patches/linux/jobs_c.diff b/system/ksh-openbsd/patches/linux/jobs_c.diff index e50ffd3a940c1..e50ffd3a940c1 100644 --- a/system/ksh/patches/linux/jobs_c.diff +++ b/system/ksh-openbsd/patches/linux/jobs_c.diff diff --git a/system/ksh/patches/linux/lex_c.diff b/system/ksh-openbsd/patches/linux/lex_c.diff index 40fd4234f1452..40fd4234f1452 100644 --- a/system/ksh/patches/linux/lex_c.diff +++ b/system/ksh-openbsd/patches/linux/lex_c.diff diff --git a/system/ksh/patches/linux/main_c.diff b/system/ksh-openbsd/patches/linux/main_c.diff index a5d90620c11bd..a5d90620c11bd 100644 --- a/system/ksh/patches/linux/main_c.diff +++ b/system/ksh-openbsd/patches/linux/main_c.diff diff --git a/system/ksh/patches/linux/misc_c.diff b/system/ksh-openbsd/patches/linux/misc_c.diff index 9b09fba62c618..9b09fba62c618 100644 --- a/system/ksh/patches/linux/misc_c.diff +++ b/system/ksh-openbsd/patches/linux/misc_c.diff diff --git a/system/ksh/patches/linux/posix_signals_h.diff b/system/ksh-openbsd/patches/linux/posix_signals_h.diff index 2d6b8cec4df9c..2d6b8cec4df9c 100644 --- a/system/ksh/patches/linux/posix_signals_h.diff +++ b/system/ksh-openbsd/patches/linux/posix_signals_h.diff diff --git a/system/ksh/patches/linux/sh_h.diff b/system/ksh-openbsd/patches/linux/sh_h.diff index df6de9c4c983f..df6de9c4c983f 100644 --- a/system/ksh/patches/linux/sh_h.diff +++ b/system/ksh-openbsd/patches/linux/sh_h.diff diff --git a/system/ksh/patches/linux/strlcat_c.diff b/system/ksh-openbsd/patches/linux/strlcat_c.diff index 1137522fcb59d..1137522fcb59d 100644 --- a/system/ksh/patches/linux/strlcat_c.diff +++ b/system/ksh-openbsd/patches/linux/strlcat_c.diff diff --git a/system/ksh/patches/linux/strlcat_h.diff b/system/ksh-openbsd/patches/linux/strlcat_h.diff index 60eb6361f7b50..60eb6361f7b50 100644 --- a/system/ksh/patches/linux/strlcat_h.diff +++ b/system/ksh-openbsd/patches/linux/strlcat_h.diff diff --git a/system/ksh/patches/linux/strlcpy_c.diff b/system/ksh-openbsd/patches/linux/strlcpy_c.diff index a08f2614bf535..a08f2614bf535 100644 --- a/system/ksh/patches/linux/strlcpy_c.diff +++ b/system/ksh-openbsd/patches/linux/strlcpy_c.diff diff --git a/system/ksh/patches/linux/strlcpy_h.diff b/system/ksh-openbsd/patches/linux/strlcpy_h.diff index d9f75cd41e473..d9f75cd41e473 100644 --- a/system/ksh/patches/linux/strlcpy_h.diff +++ b/system/ksh-openbsd/patches/linux/strlcpy_h.diff diff --git a/system/ksh/patches/linux/trap_c.diff b/system/ksh-openbsd/patches/linux/trap_c.diff index 10f067ff068c0..10f067ff068c0 100644 --- a/system/ksh/patches/linux/trap_c.diff +++ b/system/ksh-openbsd/patches/linux/trap_c.diff diff --git a/system/ksh/patches/linux/var_c.diff b/system/ksh-openbsd/patches/linux/var_c.diff index 9483a3b4cedaf..9483a3b4cedaf 100644 --- a/system/ksh/patches/linux/var_c.diff +++ b/system/ksh-openbsd/patches/linux/var_c.diff diff --git a/system/ksh/patches/linux/vi_c.diff b/system/ksh-openbsd/patches/linux/vi_c.diff index 9372933d8e2ed..9372933d8e2ed 100644 --- a/system/ksh/patches/linux/vi_c.diff +++ b/system/ksh-openbsd/patches/linux/vi_c.diff diff --git a/system/ksh-openbsd/slack-desc b/system/ksh-openbsd/slack-desc new file mode 100644 index 0000000000000..784fb59009ab5 --- /dev/null +++ b/system/ksh-openbsd/slack-desc @@ -0,0 +1,18 @@ +# HOW TO EDIT THIS FILE: +# The "handy ruler" below makes it easier to edit a package description. Line +# up the first '|' above the ':' following the base package name, and the '|' +# on the right side marks the last column you can put a character in. You must +# make exactly 11 lines for the formatting to be correct. It's also +# customary to leave one space after the ':'. + + |-----handy-ruler------------------------------------------------------| +ksh-openbsd: ksh-openbsd (OpenBSD ksh ported to Linux) +ksh-openbsd: +ksh-openbsd: This package is a patched and ported version of the OpenBSD ksh, +ksh-openbsd: which is based on the original PD-ksh, but heavily modified and +ksh-openbsd: maintained by OpenBSD developers. +ksh-openbsd: "Ported" means ported to Linux. "Patched" means it includes patches +ksh-openbsd: (improvements, bug fixes) separate from the OpenBSD tree. +ksh-openbsd: +ksh-openbsd: +ksh-openbsd: diff --git a/system/ksh/ksh.info b/system/ksh/ksh.info deleted file mode 100644 index d0f4688dc06a7..0000000000000 --- a/system/ksh/ksh.info +++ /dev/null @@ -1,10 +0,0 @@ -PRGNAM="ksh" -VERSION="openbsd49" -HOMEPAGE="http://leva.ecentrum.hu/slackbuilds/ksh-openbsd49.tar.gz" -DOWNLOAD="http://leva.ecentrum.hu/slackbuilds/ksh-openbsd49.tar.gz" -MD5SUM="a625102e5961f76bc9918484b2f05940" -DOWNLOAD_x86_64="" -MD5SUM_x86_64="" -MAINTAINER="Daniel LEVAI" -EMAIL="leva@ecentrum.hu" -APPROVED="dsomero" diff --git a/system/ksh/slack-desc b/system/ksh/slack-desc deleted file mode 100644 index 9977de06f3d5e..0000000000000 --- a/system/ksh/slack-desc +++ /dev/null @@ -1,19 +0,0 @@ -# HOW TO EDIT THIS FILE: -# The "handy ruler" below makes it easier to edit a package description. Line -# up the first '|' above the ':' following the base package name, and the '|' -# on the right side marks the last column you can put a character in. You must -# make exactly 11 lines for the formatting to be correct. It's also -# customary to leave one space after the ':'. - - |-----handy-ruler------------------------------------------------------| -ksh: ksh (OpenBSD ksh ported to Linux) -ksh: -ksh: This package is a patched version of the OpenBSD ksh, which is based -ksh: on the original PD-ksh, but heavily modified and maintained by -ksh: OpenBSD developers. "Patched" means ported to Linux. -ksh: -ksh: -ksh: -ksh: -ksh: -ksh: |