version 1.26, 2025/05/19 02:03:31
|
version 1.27, 2025/05/19 21:29:29
|
Line 24
|
Line 24
|
* along with FreeM. If not, see <https://www.gnu.org/licenses/>. |
* along with FreeM. If not, see <https://www.gnu.org/licenses/>. |
* |
* |
* $Log$ |
* $Log$ |
|
* Revision 1.27 2025/05/19 21:29:29 snw |
|
* Add basic tab completion to direct mode |
|
* |
* Revision 1.26 2025/05/19 02:03:31 snw |
* Revision 1.26 2025/05/19 02:03:31 snw |
* Reverse-engineer and document argumented ZPRINT (thanks to D. Wicksell) |
* Reverse-engineer and document argumented ZPRINT (thanks to D. Wicksell) |
* |
* |
Line 183 void rbuf_dump(void);
|
Line 186 void rbuf_dump(void);
|
short rbuf_slot_from_name(char *); |
short rbuf_slot_from_name(char *); |
short is_standard(void); |
short is_standard(void); |
|
|
|
#ifdef HAVE_LIBREADLINE |
|
char *m_commands[] = { |
|
"@", |
|
"!", |
|
"!!", |
|
"ablock", |
|
"astart", |
|
"astop", |
|
"aunblock", |
|
"break", |
|
"close", |
|
"do", |
|
"else", |
|
"for", |
|
"goto", |
|
"halt", |
|
"hang", |
|
"if", |
|
"job", |
|
"kill", |
|
"ksubscripts", |
|
"kvalue", |
|
"lock", |
|
"merge", |
|
"new", |
|
"open", |
|
"quit", |
|
"read", |
|
"set", |
|
"tcommit", |
|
"then", |
|
"trollback", |
|
"tstart", |
|
"use", |
|
"view", |
|
"write", |
|
"xecute", |
|
"zassert", |
|
"zbreak", |
|
"zconst", |
|
"zedit", |
|
"zgoto", |
|
"zhalt", |
|
"zinsert", |
|
"zjob", |
|
"zload", |
|
"zmap", |
|
"znew", |
|
"zprint", |
|
"zquit", |
|
"zremove", |
|
"zsave", |
|
"zthrow", |
|
"ztrap", |
|
"zunmap", |
|
"zwatch", |
|
"zwith", |
|
"zwrite", |
|
"ABLOCK", |
|
"ASTART", |
|
"ASTOP", |
|
"AUNBLOCK", |
|
"BREAK", |
|
"CLOSE", |
|
"DO", |
|
"ELSE", |
|
"FOR", |
|
"GOTO", |
|
"HALT", |
|
"HANG", |
|
"IF", |
|
"JOB", |
|
"KILL", |
|
"KSUBSCRIPTS", |
|
"KVALUE", |
|
"LOCK", |
|
"MERGE", |
|
"NEW", |
|
"OPEN", |
|
"QUIT", |
|
"READ", |
|
"SET", |
|
"TCOMMIT", |
|
"THEN", |
|
"TROLLBACK", |
|
"TSTART", |
|
"USE", |
|
"VIEW", |
|
"WRITE", |
|
"XECUTE", |
|
"ZASSERT", |
|
"ZBREAK", |
|
"ZCONST", |
|
"ZEDIT", |
|
"ZGOTO", |
|
"ZHALT", |
|
"ZINSERT", |
|
"ZJOB", |
|
"ZLOAD", |
|
"ZMAP", |
|
"ZNEW", |
|
"ZPRINT", |
|
"ZQUIT", |
|
"ZREMOVE", |
|
"ZSAVE", |
|
"ZTHROW", |
|
"ZTRAP", |
|
"ZUNMAP", |
|
"ZWATCH", |
|
"ZWITH", |
|
"ZWRITE", |
|
NULL |
|
}; |
|
|
|
char **command_completion(const char *, int, int); |
|
char *command_generator(const char *, int); |
|
|
|
char **command_completion(const char *text, int start, int end) |
|
{ |
|
if (start > 0) return NULL; |
|
rl_attempted_completion_over = 1; |
|
return rl_completion_matches(text, command_generator); |
|
} |
|
|
|
char *command_generator(const char *text, int state) |
|
{ |
|
static int list_index, len; |
|
char *name; |
|
|
|
if (!state) { |
|
list_index = 0; |
|
len = strlen(text); |
|
} |
|
|
|
while ((name = m_commands[list_index++])) { |
|
if (strncmp(name, text, len) == 0) { |
|
return strdup(name); |
|
} |
|
} |
|
|
|
return NULL; |
|
} |
|
#endif |
|
|
/* |
/* |
* xecline(): |
* xecline(): |
* typ (where to go on function entry): 1 = restart |
* typ (where to go on function entry): 1 = restart |
Line 7293 direct_mode:
|
Line 7440 direct_mode:
|
int hist_idx; |
int hist_idx; |
HIST_ENTRY *hist_ent; |
HIST_ENTRY *hist_ent; |
|
|
|
rl_attempted_completion_function = command_completion; |
|
|
if (quiet_mode == FALSE) { |
if (quiet_mode == FALSE) { |
if (tp_level == 0) { |
if (tp_level == 0) { |
snprintf (fmrl_prompt, sizeof (fmrl_prompt) - 1, "\r\n%s.%s> ", shm_env, nsname); |
snprintf (fmrl_prompt, sizeof (fmrl_prompt) - 1, "\r\n%s.%s> ", shm_env, nsname); |