| … | |
… | |
| 153 | else if (strncmp (str, "string:", 7) == 0) |
153 | else if (strncmp (str, "string:", 7) == 0) |
| 154 | term->tt_write_user_input (colon + 1, strlen (colon + 1)); |
154 | term->tt_write_user_input (colon + 1, strlen (colon + 1)); |
| 155 | else if (strncmp (str, "perl:", 5) == 0) |
155 | else if (strncmp (str, "perl:", 5) == 0) |
| 156 | HOOK_INVOKE ((term, HOOK_USER_COMMAND, DT_STR, colon + 1, DT_END)); |
156 | HOOK_INVOKE ((term, HOOK_USER_COMMAND, DT_STR, colon + 1, DT_END)); |
| 157 | else |
157 | else |
| 158 | HOOK_INVOKE ((term, HOOK_KEYBOARD_DISPATCH, DT_STR_LEN, str, colon - str, DT_STR, colon + 1, DT_END)); |
158 | HOOK_INVOKE ((term, HOOK_ACTION, DT_STR_LEN, str, colon - str, DT_STR, colon + 1, DT_INT, 0, DT_STR_LEN, kbuf, len, DT_END)); |
| 159 | } |
159 | } |
| 160 | else |
160 | else |
| 161 | term->tt_write_user_input (str, strlen (str)); |
161 | term->tt_write_user_input (str, strlen (str)); |
| 162 | |
162 | |
| 163 | free (str); |
163 | free (str); |
