| Elliott Hughes | fc0307d | 2016-02-02 15:26:47 -0800 | [diff] [blame] | 1 | /*- |
| Elliott Hughes | 77740fc | 2016-08-12 15:06:53 -0700 | [diff] [blame] | 2 | * Copyright (c) 2009, 2010, 2015, 2016 |
| Elliott Hughes | fc0307d | 2016-02-02 15:26:47 -0800 | [diff] [blame] | 3 | * mirabilos <m@mirbsd.org> |
| 4 | * |
| 5 | * Provided that these terms and disclaimer and all copyright notices |
| 6 | * are retained or reproduced in an accompanying document, permission |
| 7 | * is granted to deal in this work without restriction, including un- |
| 8 | * limited rights to use, publicly perform, distribute, sell, modify, |
| 9 | * merge, give away, or sublicence. |
| 10 | * |
| 11 | * This work is provided "AS IS" and WITHOUT WARRANTY of any kind, to |
| 12 | * the utmost extent permitted by applicable law, neither express nor |
| 13 | * implied; without malicious intent or gross negligence. In no event |
| 14 | * may a licensor, author or contributor be held liable for indirect, |
| 15 | * direct, other damage, loss, or other issues arising in any way out |
| 16 | * of dealing in the work, even if advised of the possibility of such |
| 17 | * damage or existence of a defect, except proven that it results out |
| 18 | * of said person's immediate fault when using the work as intended. |
| 19 | */ |
| 20 | |
| Jean-Baptiste Queru | 5155f1c | 2011-06-16 10:05:28 -0700 | [diff] [blame] | 21 | #if defined(EMACSFN_DEFNS) |
| Elliott Hughes | 966dd55 | 2016-12-08 15:56:04 -0800 | [diff] [blame] | 22 | __RCSID("$MirOS: src/bin/mksh/emacsfn.h,v 1.10 2016/09/01 12:59:09 tg Exp $"); |
| Jean-Baptiste Queru | 5155f1c | 2011-06-16 10:05:28 -0700 | [diff] [blame] | 23 | #define FN(cname,sname,flags) static int x_##cname(int); |
| 24 | #elif defined(EMACSFN_ENUMS) |
| 25 | #define FN(cname,sname,flags) XFUNC_##cname, |
| 26 | #define F0(cname,sname,flags) XFUNC_##cname = 0, |
| 27 | #elif defined(EMACSFN_ITEMS) |
| 28 | #define FN(cname,sname,flags) { x_##cname, sname, flags }, |
| 29 | #endif |
| 30 | |
| 31 | #ifndef F0 |
| 32 | #define F0 FN |
| 33 | #endif |
| 34 | |
| 35 | F0(abort, "abort", 0) |
| 36 | FN(beg_hist, "beginning-of-history", 0) |
| 37 | FN(cls, "clear-screen", 0) |
| 38 | FN(comment, "comment", 0) |
| 39 | FN(comp_comm, "complete-command", 0) |
| 40 | FN(comp_file, "complete-file", 0) |
| 41 | FN(comp_list, "complete-list", 0) |
| 42 | FN(complete, "complete", 0) |
| 43 | FN(del_back, "delete-char-backward", XF_ARG) |
| 44 | FN(del_bword, "delete-word-backward", XF_ARG) |
| 45 | FN(del_char, "delete-char-forward", XF_ARG) |
| 46 | FN(del_fword, "delete-word-forward", XF_ARG) |
| 47 | FN(del_line, "kill-line", 0) |
| 48 | FN(draw_line, "redraw", 0) |
| 49 | #ifndef MKSH_SMALL |
| 50 | FN(edit_line, "edit-line", XF_ARG) |
| 51 | #endif |
| 52 | FN(end_hist, "end-of-history", 0) |
| 53 | FN(end_of_text, "eot", 0) |
| 54 | FN(enumerate, "list", 0) |
| 55 | FN(eot_del, "eot-or-delete", XF_ARG) |
| 56 | FN(error, "error", 0) |
| Elliott Hughes | 77740fc | 2016-08-12 15:06:53 -0700 | [diff] [blame] | 57 | #ifndef MKSH_SMALL |
| 58 | FN(eval_region, "evaluate-region", 0) |
| 59 | #endif |
| Jean-Baptiste Queru | 5155f1c | 2011-06-16 10:05:28 -0700 | [diff] [blame] | 60 | FN(expand, "expand-file", 0) |
| 61 | #ifndef MKSH_SMALL |
| 62 | FN(fold_capitalise, "capitalize-word", XF_ARG) |
| 63 | FN(fold_lower, "downcase-word", XF_ARG) |
| 64 | FN(fold_upper, "upcase-word", XF_ARG) |
| 65 | #endif |
| 66 | FN(goto_hist, "goto-history", XF_ARG) |
| 67 | #ifndef MKSH_SMALL |
| 68 | FN(ins_string, "macro-string", XF_NOBIND) |
| 69 | #endif |
| 70 | FN(insert, "auto-insert", XF_ARG) |
| 71 | FN(kill, "kill-to-eol", XF_ARG) |
| 72 | FN(kill_region, "kill-region", 0) |
| 73 | FN(list_comm, "list-command", 0) |
| 74 | FN(list_file, "list-file", 0) |
| 75 | FN(literal, "quote", 0) |
| 76 | FN(meta1, "prefix-1", XF_PREFIX) |
| 77 | FN(meta2, "prefix-2", XF_PREFIX) |
| Elliott Hughes | 96b4363 | 2015-07-17 11:39:41 -0700 | [diff] [blame] | 78 | FN(meta3, "prefix-3", XF_PREFIX) |
| Jean-Baptiste Queru | 5155f1c | 2011-06-16 10:05:28 -0700 | [diff] [blame] | 79 | FN(meta_yank, "yank-pop", 0) |
| 80 | FN(mv_back, "backward-char", XF_ARG) |
| Elliott Hughes | 966dd55 | 2016-12-08 15:56:04 -0800 | [diff] [blame] | 81 | FN(mv_beg, "beginning-of-line", 0) |
| Jean-Baptiste Queru | 5155f1c | 2011-06-16 10:05:28 -0700 | [diff] [blame] | 82 | FN(mv_bword, "backward-word", XF_ARG) |
| 83 | FN(mv_end, "end-of-line", 0) |
| 84 | FN(mv_forw, "forward-char", XF_ARG) |
| 85 | FN(mv_fword, "forward-word", XF_ARG) |
| 86 | FN(newline, "newline", 0) |
| 87 | FN(next_com, "down-history", XF_ARG) |
| 88 | FN(nl_next_com, "newline-and-next", 0) |
| 89 | FN(noop, "no-op", 0) |
| 90 | FN(prev_com, "up-history", XF_ARG) |
| 91 | FN(prev_histword, "prev-hist-word", XF_ARG) |
| 92 | FN(search_char_back, "search-character-backward", XF_ARG) |
| 93 | FN(search_char_forw, "search-character-forward", XF_ARG) |
| 94 | FN(search_hist, "search-history", 0) |
| 95 | #ifndef MKSH_SMALL |
| 96 | FN(search_hist_dn, "search-history-down", 0) |
| 97 | FN(search_hist_up, "search-history-up", 0) |
| 98 | #endif |
| 99 | FN(set_arg, "set-arg", XF_NOBIND) |
| 100 | FN(set_mark, "set-mark-command", 0) |
| 101 | FN(transpose, "transpose-chars", 0) |
| 102 | FN(version, "version", 0) |
| 103 | #ifndef MKSH_SMALL |
| 104 | FN(vt_hack, "vt100-hack", XF_ARG) |
| 105 | #endif |
| 106 | FN(xchg_point_mark, "exchange-point-and-mark", 0) |
| 107 | FN(yank, "yank", 0) |
| 108 | |
| 109 | #undef FN |
| 110 | #undef F0 |
| 111 | #undef EMACSFN_DEFNS |
| 112 | #undef EMACSFN_ENUMS |
| 113 | #undef EMACSFN_ITEMS |