annotate lldb/source/Host/common/Editline.cpp @ 266:00f31e85ec16 default tip

Added tag current for changeset 31d058e83c98
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 14 Oct 2023 10:13:55 +0900
parents 1f2b6ac9f198
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
150
anatofuz
parents:
diff changeset
1 //===-- Editline.cpp ------------------------------------------------------===//
anatofuz
parents:
diff changeset
2 //
anatofuz
parents:
diff changeset
3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
anatofuz
parents:
diff changeset
4 // See https://llvm.org/LICENSE.txt for license information.
anatofuz
parents:
diff changeset
5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
anatofuz
parents:
diff changeset
6 //
anatofuz
parents:
diff changeset
7 //===----------------------------------------------------------------------===//
anatofuz
parents:
diff changeset
8
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
9 #include <climits>
150
anatofuz
parents:
diff changeset
10 #include <iomanip>
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
11 #include <optional>
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
12
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
13 #include "lldb/Host/Editline.h"
150
anatofuz
parents:
diff changeset
14
anatofuz
parents:
diff changeset
15 #include "lldb/Host/ConnectionFileDescriptor.h"
anatofuz
parents:
diff changeset
16 #include "lldb/Host/FileSystem.h"
anatofuz
parents:
diff changeset
17 #include "lldb/Host/Host.h"
anatofuz
parents:
diff changeset
18 #include "lldb/Utility/CompletionRequest.h"
anatofuz
parents:
diff changeset
19 #include "lldb/Utility/FileSpec.h"
anatofuz
parents:
diff changeset
20 #include "lldb/Utility/LLDBAssert.h"
anatofuz
parents:
diff changeset
21 #include "lldb/Utility/SelectHelper.h"
anatofuz
parents:
diff changeset
22 #include "lldb/Utility/Status.h"
anatofuz
parents:
diff changeset
23 #include "lldb/Utility/StreamString.h"
anatofuz
parents:
diff changeset
24 #include "lldb/Utility/StringList.h"
anatofuz
parents:
diff changeset
25 #include "lldb/Utility/Timeout.h"
anatofuz
parents:
diff changeset
26
anatofuz
parents:
diff changeset
27 #include "llvm/Support/FileSystem.h"
anatofuz
parents:
diff changeset
28 #include "llvm/Support/Threading.h"
anatofuz
parents:
diff changeset
29
anatofuz
parents:
diff changeset
30 using namespace lldb_private;
anatofuz
parents:
diff changeset
31 using namespace lldb_private::line_editor;
anatofuz
parents:
diff changeset
32
anatofuz
parents:
diff changeset
33 // Workaround for what looks like an OS X-specific issue, but other platforms
anatofuz
parents:
diff changeset
34 // may benefit from something similar if issues arise. The libedit library
anatofuz
parents:
diff changeset
35 // doesn't explicitly initialize the curses termcap library, which it gets away
anatofuz
parents:
diff changeset
36 // with until TERM is set to VT100 where it stumbles over an implementation
anatofuz
parents:
diff changeset
37 // assumption that may not exist on other platforms. The setupterm() function
anatofuz
parents:
diff changeset
38 // would normally require headers that don't work gracefully in this context,
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
39 // so the function declaration has been hoisted here.
150
anatofuz
parents:
diff changeset
40 #if defined(__APPLE__)
anatofuz
parents:
diff changeset
41 extern "C" {
anatofuz
parents:
diff changeset
42 int setupterm(char *term, int fildes, int *errret);
anatofuz
parents:
diff changeset
43 }
anatofuz
parents:
diff changeset
44 #define USE_SETUPTERM_WORKAROUND
anatofuz
parents:
diff changeset
45 #endif
anatofuz
parents:
diff changeset
46
anatofuz
parents:
diff changeset
47 // Editline uses careful cursor management to achieve the illusion of editing a
anatofuz
parents:
diff changeset
48 // multi-line block of text with a single line editor. Preserving this
anatofuz
parents:
diff changeset
49 // illusion requires fairly careful management of cursor state. Read and
anatofuz
parents:
diff changeset
50 // understand the relationship between DisplayInput(), MoveCursor(),
anatofuz
parents:
diff changeset
51 // SetCurrentLine(), and SaveEditedLine() before making changes.
anatofuz
parents:
diff changeset
52
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
53 /// https://www.ecma-international.org/publications/files/ECMA-ST/Ecma-048.pdf
150
anatofuz
parents:
diff changeset
54 #define ESCAPE "\x1b"
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
55 /// Faint, decreased intensity or second colour.
150
anatofuz
parents:
diff changeset
56 #define ANSI_FAINT ESCAPE "[2m"
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
57 /// Normal colour or normal intensity (neither bold nor faint).
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
58 #define ANSI_UNFAINT ESCAPE "[0m"
150
anatofuz
parents:
diff changeset
59 #define ANSI_CLEAR_BELOW ESCAPE "[J"
anatofuz
parents:
diff changeset
60 #define ANSI_CLEAR_RIGHT ESCAPE "[K"
anatofuz
parents:
diff changeset
61 #define ANSI_SET_COLUMN_N ESCAPE "[%dG"
anatofuz
parents:
diff changeset
62 #define ANSI_UP_N_ROWS ESCAPE "[%dA"
anatofuz
parents:
diff changeset
63 #define ANSI_DOWN_N_ROWS ESCAPE "[%dB"
anatofuz
parents:
diff changeset
64
anatofuz
parents:
diff changeset
65 #if LLDB_EDITLINE_USE_WCHAR
anatofuz
parents:
diff changeset
66
anatofuz
parents:
diff changeset
67 #define EditLineConstString(str) L##str
anatofuz
parents:
diff changeset
68 #define EditLineStringFormatSpec "%ls"
anatofuz
parents:
diff changeset
69
anatofuz
parents:
diff changeset
70 #else
anatofuz
parents:
diff changeset
71
anatofuz
parents:
diff changeset
72 #define EditLineConstString(str) str
anatofuz
parents:
diff changeset
73 #define EditLineStringFormatSpec "%s"
anatofuz
parents:
diff changeset
74
anatofuz
parents:
diff changeset
75 // use #defines so wide version functions and structs will resolve to old
anatofuz
parents:
diff changeset
76 // versions for case of libedit not built with wide char support
anatofuz
parents:
diff changeset
77 #define history_w history
anatofuz
parents:
diff changeset
78 #define history_winit history_init
anatofuz
parents:
diff changeset
79 #define history_wend history_end
anatofuz
parents:
diff changeset
80 #define HistoryW History
anatofuz
parents:
diff changeset
81 #define HistEventW HistEvent
anatofuz
parents:
diff changeset
82 #define LineInfoW LineInfo
anatofuz
parents:
diff changeset
83
anatofuz
parents:
diff changeset
84 #define el_wgets el_gets
anatofuz
parents:
diff changeset
85 #define el_wgetc el_getc
anatofuz
parents:
diff changeset
86 #define el_wpush el_push
anatofuz
parents:
diff changeset
87 #define el_wparse el_parse
anatofuz
parents:
diff changeset
88 #define el_wset el_set
anatofuz
parents:
diff changeset
89 #define el_wget el_get
anatofuz
parents:
diff changeset
90 #define el_wline el_line
anatofuz
parents:
diff changeset
91 #define el_winsertstr el_insertstr
anatofuz
parents:
diff changeset
92 #define el_wdeletestr el_deletestr
anatofuz
parents:
diff changeset
93
anatofuz
parents:
diff changeset
94 #endif // #if LLDB_EDITLINE_USE_WCHAR
anatofuz
parents:
diff changeset
95
anatofuz
parents:
diff changeset
96 bool IsOnlySpaces(const EditLineStringType &content) {
anatofuz
parents:
diff changeset
97 for (wchar_t ch : content) {
anatofuz
parents:
diff changeset
98 if (ch != EditLineCharType(' '))
anatofuz
parents:
diff changeset
99 return false;
anatofuz
parents:
diff changeset
100 }
anatofuz
parents:
diff changeset
101 return true;
anatofuz
parents:
diff changeset
102 }
anatofuz
parents:
diff changeset
103
anatofuz
parents:
diff changeset
104 static int GetOperation(HistoryOperation op) {
anatofuz
parents:
diff changeset
105 // The naming used by editline for the history operations is counter
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
106 // intuitive to how it's used in LLDB's editline implementation.
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
107 //
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
108 // - The H_LAST returns the oldest entry in the history.
150
anatofuz
parents:
diff changeset
109 //
anatofuz
parents:
diff changeset
110 // - The H_PREV operation returns the previous element in the history, which
anatofuz
parents:
diff changeset
111 // is newer than the current one.
anatofuz
parents:
diff changeset
112 //
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
113 // - The H_CURR returns the current entry in the history.
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
114 //
150
anatofuz
parents:
diff changeset
115 // - The H_NEXT operation returns the next element in the history, which is
anatofuz
parents:
diff changeset
116 // older than the current one.
anatofuz
parents:
diff changeset
117 //
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
118 // - The H_FIRST returns the most recent entry in the history.
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
119 //
150
anatofuz
parents:
diff changeset
120 // The naming of the enum entries match the semantic meaning.
anatofuz
parents:
diff changeset
121 switch(op) {
anatofuz
parents:
diff changeset
122 case HistoryOperation::Oldest:
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
123 return H_LAST;
150
anatofuz
parents:
diff changeset
124 case HistoryOperation::Older:
anatofuz
parents:
diff changeset
125 return H_NEXT;
anatofuz
parents:
diff changeset
126 case HistoryOperation::Current:
anatofuz
parents:
diff changeset
127 return H_CURR;
anatofuz
parents:
diff changeset
128 case HistoryOperation::Newer:
anatofuz
parents:
diff changeset
129 return H_PREV;
anatofuz
parents:
diff changeset
130 case HistoryOperation::Newest:
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
131 return H_FIRST;
150
anatofuz
parents:
diff changeset
132 }
anatofuz
parents:
diff changeset
133 llvm_unreachable("Fully covered switch!");
anatofuz
parents:
diff changeset
134 }
anatofuz
parents:
diff changeset
135
anatofuz
parents:
diff changeset
136
anatofuz
parents:
diff changeset
137 EditLineStringType CombineLines(const std::vector<EditLineStringType> &lines) {
anatofuz
parents:
diff changeset
138 EditLineStringStreamType combined_stream;
anatofuz
parents:
diff changeset
139 for (EditLineStringType line : lines) {
anatofuz
parents:
diff changeset
140 combined_stream << line.c_str() << "\n";
anatofuz
parents:
diff changeset
141 }
anatofuz
parents:
diff changeset
142 return combined_stream.str();
anatofuz
parents:
diff changeset
143 }
anatofuz
parents:
diff changeset
144
anatofuz
parents:
diff changeset
145 std::vector<EditLineStringType> SplitLines(const EditLineStringType &input) {
anatofuz
parents:
diff changeset
146 std::vector<EditLineStringType> result;
anatofuz
parents:
diff changeset
147 size_t start = 0;
anatofuz
parents:
diff changeset
148 while (start < input.length()) {
anatofuz
parents:
diff changeset
149 size_t end = input.find('\n', start);
anatofuz
parents:
diff changeset
150 if (end == std::string::npos) {
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
151 result.push_back(input.substr(start));
150
anatofuz
parents:
diff changeset
152 break;
anatofuz
parents:
diff changeset
153 }
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
154 result.push_back(input.substr(start, end - start));
150
anatofuz
parents:
diff changeset
155 start = end + 1;
anatofuz
parents:
diff changeset
156 }
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
157 // Treat an empty history session as a single command of zero-length instead
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
158 // of returning an empty vector.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
159 if (result.empty()) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
160 result.emplace_back();
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
161 }
150
anatofuz
parents:
diff changeset
162 return result;
anatofuz
parents:
diff changeset
163 }
anatofuz
parents:
diff changeset
164
anatofuz
parents:
diff changeset
165 EditLineStringType FixIndentation(const EditLineStringType &line,
anatofuz
parents:
diff changeset
166 int indent_correction) {
anatofuz
parents:
diff changeset
167 if (indent_correction == 0)
anatofuz
parents:
diff changeset
168 return line;
anatofuz
parents:
diff changeset
169 if (indent_correction < 0)
anatofuz
parents:
diff changeset
170 return line.substr(-indent_correction);
anatofuz
parents:
diff changeset
171 return EditLineStringType(indent_correction, EditLineCharType(' ')) + line;
anatofuz
parents:
diff changeset
172 }
anatofuz
parents:
diff changeset
173
anatofuz
parents:
diff changeset
174 int GetIndentation(const EditLineStringType &line) {
anatofuz
parents:
diff changeset
175 int space_count = 0;
anatofuz
parents:
diff changeset
176 for (EditLineCharType ch : line) {
anatofuz
parents:
diff changeset
177 if (ch != EditLineCharType(' '))
anatofuz
parents:
diff changeset
178 break;
anatofuz
parents:
diff changeset
179 ++space_count;
anatofuz
parents:
diff changeset
180 }
anatofuz
parents:
diff changeset
181 return space_count;
anatofuz
parents:
diff changeset
182 }
anatofuz
parents:
diff changeset
183
anatofuz
parents:
diff changeset
184 bool IsInputPending(FILE *file) {
anatofuz
parents:
diff changeset
185 // FIXME: This will be broken on Windows if we ever re-enable Editline. You
anatofuz
parents:
diff changeset
186 // can't use select
anatofuz
parents:
diff changeset
187 // on something that isn't a socket. This will have to be re-written to not
anatofuz
parents:
diff changeset
188 // use a FILE*, but instead use some kind of yet-to-be-created abstraction
anatofuz
parents:
diff changeset
189 // that select-like functionality on non-socket objects.
anatofuz
parents:
diff changeset
190 const int fd = fileno(file);
anatofuz
parents:
diff changeset
191 SelectHelper select_helper;
anatofuz
parents:
diff changeset
192 select_helper.SetTimeout(std::chrono::microseconds(0));
anatofuz
parents:
diff changeset
193 select_helper.FDSetRead(fd);
anatofuz
parents:
diff changeset
194 return select_helper.Select().Success();
anatofuz
parents:
diff changeset
195 }
anatofuz
parents:
diff changeset
196
anatofuz
parents:
diff changeset
197 namespace lldb_private {
anatofuz
parents:
diff changeset
198 namespace line_editor {
anatofuz
parents:
diff changeset
199 typedef std::weak_ptr<EditlineHistory> EditlineHistoryWP;
anatofuz
parents:
diff changeset
200
anatofuz
parents:
diff changeset
201 // EditlineHistory objects are sometimes shared between multiple Editline
anatofuz
parents:
diff changeset
202 // instances with the same program name.
anatofuz
parents:
diff changeset
203
anatofuz
parents:
diff changeset
204 class EditlineHistory {
anatofuz
parents:
diff changeset
205 private:
anatofuz
parents:
diff changeset
206 // Use static GetHistory() function to get a EditlineHistorySP to one of
anatofuz
parents:
diff changeset
207 // these objects
anatofuz
parents:
diff changeset
208 EditlineHistory(const std::string &prefix, uint32_t size, bool unique_entries)
236
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
209 : m_prefix(prefix) {
150
anatofuz
parents:
diff changeset
210 m_history = history_winit();
anatofuz
parents:
diff changeset
211 history_w(m_history, &m_event, H_SETSIZE, size);
anatofuz
parents:
diff changeset
212 if (unique_entries)
anatofuz
parents:
diff changeset
213 history_w(m_history, &m_event, H_SETUNIQUE, 1);
anatofuz
parents:
diff changeset
214 }
anatofuz
parents:
diff changeset
215
anatofuz
parents:
diff changeset
216 const char *GetHistoryFilePath() {
anatofuz
parents:
diff changeset
217 // Compute the history path lazily.
anatofuz
parents:
diff changeset
218 if (m_path.empty() && m_history && !m_prefix.empty()) {
anatofuz
parents:
diff changeset
219 llvm::SmallString<128> lldb_history_file;
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
220 FileSystem::Instance().GetHomeDirectory(lldb_history_file);
150
anatofuz
parents:
diff changeset
221 llvm::sys::path::append(lldb_history_file, ".lldb");
anatofuz
parents:
diff changeset
222
anatofuz
parents:
diff changeset
223 // LLDB stores its history in ~/.lldb/. If for some reason this directory
anatofuz
parents:
diff changeset
224 // isn't writable or cannot be created, history won't be available.
anatofuz
parents:
diff changeset
225 if (!llvm::sys::fs::create_directory(lldb_history_file)) {
anatofuz
parents:
diff changeset
226 #if LLDB_EDITLINE_USE_WCHAR
anatofuz
parents:
diff changeset
227 std::string filename = m_prefix + "-widehistory";
anatofuz
parents:
diff changeset
228 #else
anatofuz
parents:
diff changeset
229 std::string filename = m_prefix + "-history";
anatofuz
parents:
diff changeset
230 #endif
anatofuz
parents:
diff changeset
231 llvm::sys::path::append(lldb_history_file, filename);
anatofuz
parents:
diff changeset
232 m_path = std::string(lldb_history_file.str());
anatofuz
parents:
diff changeset
233 }
anatofuz
parents:
diff changeset
234 }
anatofuz
parents:
diff changeset
235
anatofuz
parents:
diff changeset
236 if (m_path.empty())
anatofuz
parents:
diff changeset
237 return nullptr;
anatofuz
parents:
diff changeset
238
anatofuz
parents:
diff changeset
239 return m_path.c_str();
anatofuz
parents:
diff changeset
240 }
anatofuz
parents:
diff changeset
241
anatofuz
parents:
diff changeset
242 public:
anatofuz
parents:
diff changeset
243 ~EditlineHistory() {
anatofuz
parents:
diff changeset
244 Save();
anatofuz
parents:
diff changeset
245
anatofuz
parents:
diff changeset
246 if (m_history) {
anatofuz
parents:
diff changeset
247 history_wend(m_history);
anatofuz
parents:
diff changeset
248 m_history = nullptr;
anatofuz
parents:
diff changeset
249 }
anatofuz
parents:
diff changeset
250 }
anatofuz
parents:
diff changeset
251
anatofuz
parents:
diff changeset
252 static EditlineHistorySP GetHistory(const std::string &prefix) {
anatofuz
parents:
diff changeset
253 typedef std::map<std::string, EditlineHistoryWP> WeakHistoryMap;
anatofuz
parents:
diff changeset
254 static std::recursive_mutex g_mutex;
anatofuz
parents:
diff changeset
255 static WeakHistoryMap g_weak_map;
anatofuz
parents:
diff changeset
256 std::lock_guard<std::recursive_mutex> guard(g_mutex);
anatofuz
parents:
diff changeset
257 WeakHistoryMap::const_iterator pos = g_weak_map.find(prefix);
anatofuz
parents:
diff changeset
258 EditlineHistorySP history_sp;
anatofuz
parents:
diff changeset
259 if (pos != g_weak_map.end()) {
anatofuz
parents:
diff changeset
260 history_sp = pos->second.lock();
anatofuz
parents:
diff changeset
261 if (history_sp)
anatofuz
parents:
diff changeset
262 return history_sp;
anatofuz
parents:
diff changeset
263 g_weak_map.erase(pos);
anatofuz
parents:
diff changeset
264 }
anatofuz
parents:
diff changeset
265 history_sp.reset(new EditlineHistory(prefix, 800, true));
anatofuz
parents:
diff changeset
266 g_weak_map[prefix] = history_sp;
anatofuz
parents:
diff changeset
267 return history_sp;
anatofuz
parents:
diff changeset
268 }
anatofuz
parents:
diff changeset
269
anatofuz
parents:
diff changeset
270 bool IsValid() const { return m_history != nullptr; }
anatofuz
parents:
diff changeset
271
anatofuz
parents:
diff changeset
272 HistoryW *GetHistoryPtr() { return m_history; }
anatofuz
parents:
diff changeset
273
anatofuz
parents:
diff changeset
274 void Enter(const EditLineCharType *line_cstr) {
anatofuz
parents:
diff changeset
275 if (m_history)
anatofuz
parents:
diff changeset
276 history_w(m_history, &m_event, H_ENTER, line_cstr);
anatofuz
parents:
diff changeset
277 }
anatofuz
parents:
diff changeset
278
anatofuz
parents:
diff changeset
279 bool Load() {
anatofuz
parents:
diff changeset
280 if (m_history) {
anatofuz
parents:
diff changeset
281 const char *path = GetHistoryFilePath();
anatofuz
parents:
diff changeset
282 if (path) {
anatofuz
parents:
diff changeset
283 history_w(m_history, &m_event, H_LOAD, path);
anatofuz
parents:
diff changeset
284 return true;
anatofuz
parents:
diff changeset
285 }
anatofuz
parents:
diff changeset
286 }
anatofuz
parents:
diff changeset
287 return false;
anatofuz
parents:
diff changeset
288 }
anatofuz
parents:
diff changeset
289
anatofuz
parents:
diff changeset
290 bool Save() {
anatofuz
parents:
diff changeset
291 if (m_history) {
anatofuz
parents:
diff changeset
292 const char *path = GetHistoryFilePath();
anatofuz
parents:
diff changeset
293 if (path) {
anatofuz
parents:
diff changeset
294 history_w(m_history, &m_event, H_SAVE, path);
anatofuz
parents:
diff changeset
295 return true;
anatofuz
parents:
diff changeset
296 }
anatofuz
parents:
diff changeset
297 }
anatofuz
parents:
diff changeset
298 return false;
anatofuz
parents:
diff changeset
299 }
anatofuz
parents:
diff changeset
300
anatofuz
parents:
diff changeset
301 protected:
236
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
302 /// The history object.
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
303 HistoryW *m_history = nullptr;
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
304 /// The history event needed to contain all history events.
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
305 HistEventW m_event;
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
306 /// The prefix name (usually the editline program name) to use when
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
307 /// loading/saving history.
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
308 std::string m_prefix;
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
309 /// Path to the history file.
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
310 std::string m_path;
150
anatofuz
parents:
diff changeset
311 };
anatofuz
parents:
diff changeset
312 }
anatofuz
parents:
diff changeset
313 }
anatofuz
parents:
diff changeset
314
anatofuz
parents:
diff changeset
315 // Editline private methods
anatofuz
parents:
diff changeset
316
anatofuz
parents:
diff changeset
317 void Editline::SetBaseLineNumber(int line_number) {
anatofuz
parents:
diff changeset
318 m_base_line_number = line_number;
anatofuz
parents:
diff changeset
319 m_line_number_digits =
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
320 std::max<int>(3, std::to_string(line_number).length() + 1);
150
anatofuz
parents:
diff changeset
321 }
anatofuz
parents:
diff changeset
322
anatofuz
parents:
diff changeset
323 std::string Editline::PromptForIndex(int line_index) {
anatofuz
parents:
diff changeset
324 bool use_line_numbers = m_multiline_enabled && m_base_line_number > 0;
anatofuz
parents:
diff changeset
325 std::string prompt = m_set_prompt;
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
326 if (use_line_numbers && prompt.length() == 0)
150
anatofuz
parents:
diff changeset
327 prompt = ": ";
anatofuz
parents:
diff changeset
328 std::string continuation_prompt = prompt;
anatofuz
parents:
diff changeset
329 if (m_set_continuation_prompt.length() > 0) {
anatofuz
parents:
diff changeset
330 continuation_prompt = m_set_continuation_prompt;
anatofuz
parents:
diff changeset
331
anatofuz
parents:
diff changeset
332 // Ensure that both prompts are the same length through space padding
anatofuz
parents:
diff changeset
333 while (continuation_prompt.length() < prompt.length()) {
anatofuz
parents:
diff changeset
334 continuation_prompt += ' ';
anatofuz
parents:
diff changeset
335 }
anatofuz
parents:
diff changeset
336 while (prompt.length() < continuation_prompt.length()) {
anatofuz
parents:
diff changeset
337 prompt += ' ';
anatofuz
parents:
diff changeset
338 }
anatofuz
parents:
diff changeset
339 }
anatofuz
parents:
diff changeset
340
anatofuz
parents:
diff changeset
341 if (use_line_numbers) {
anatofuz
parents:
diff changeset
342 StreamString prompt_stream;
anatofuz
parents:
diff changeset
343 prompt_stream.Printf(
anatofuz
parents:
diff changeset
344 "%*d%s", m_line_number_digits, m_base_line_number + line_index,
anatofuz
parents:
diff changeset
345 (line_index == 0) ? prompt.c_str() : continuation_prompt.c_str());
anatofuz
parents:
diff changeset
346 return std::string(std::move(prompt_stream.GetString()));
anatofuz
parents:
diff changeset
347 }
anatofuz
parents:
diff changeset
348 return (line_index == 0) ? prompt : continuation_prompt;
anatofuz
parents:
diff changeset
349 }
anatofuz
parents:
diff changeset
350
anatofuz
parents:
diff changeset
351 void Editline::SetCurrentLine(int line_index) {
anatofuz
parents:
diff changeset
352 m_current_line_index = line_index;
anatofuz
parents:
diff changeset
353 m_current_prompt = PromptForIndex(line_index);
anatofuz
parents:
diff changeset
354 }
anatofuz
parents:
diff changeset
355
anatofuz
parents:
diff changeset
356 int Editline::GetPromptWidth() { return (int)PromptForIndex(0).length(); }
anatofuz
parents:
diff changeset
357
anatofuz
parents:
diff changeset
358 bool Editline::IsEmacs() {
anatofuz
parents:
diff changeset
359 const char *editor;
anatofuz
parents:
diff changeset
360 el_get(m_editline, EL_EDITOR, &editor);
anatofuz
parents:
diff changeset
361 return editor[0] == 'e';
anatofuz
parents:
diff changeset
362 }
anatofuz
parents:
diff changeset
363
anatofuz
parents:
diff changeset
364 bool Editline::IsOnlySpaces() {
anatofuz
parents:
diff changeset
365 const LineInfoW *info = el_wline(m_editline);
anatofuz
parents:
diff changeset
366 for (const EditLineCharType *character = info->buffer;
anatofuz
parents:
diff changeset
367 character < info->lastchar; character++) {
anatofuz
parents:
diff changeset
368 if (*character != ' ')
anatofuz
parents:
diff changeset
369 return false;
anatofuz
parents:
diff changeset
370 }
anatofuz
parents:
diff changeset
371 return true;
anatofuz
parents:
diff changeset
372 }
anatofuz
parents:
diff changeset
373
anatofuz
parents:
diff changeset
374 int Editline::GetLineIndexForLocation(CursorLocation location, int cursor_row) {
anatofuz
parents:
diff changeset
375 int line = 0;
anatofuz
parents:
diff changeset
376 if (location == CursorLocation::EditingPrompt ||
anatofuz
parents:
diff changeset
377 location == CursorLocation::BlockEnd ||
anatofuz
parents:
diff changeset
378 location == CursorLocation::EditingCursor) {
anatofuz
parents:
diff changeset
379 for (unsigned index = 0; index < m_current_line_index; index++) {
anatofuz
parents:
diff changeset
380 line += CountRowsForLine(m_input_lines[index]);
anatofuz
parents:
diff changeset
381 }
anatofuz
parents:
diff changeset
382 if (location == CursorLocation::EditingCursor) {
anatofuz
parents:
diff changeset
383 line += cursor_row;
anatofuz
parents:
diff changeset
384 } else if (location == CursorLocation::BlockEnd) {
anatofuz
parents:
diff changeset
385 for (unsigned index = m_current_line_index; index < m_input_lines.size();
anatofuz
parents:
diff changeset
386 index++) {
anatofuz
parents:
diff changeset
387 line += CountRowsForLine(m_input_lines[index]);
anatofuz
parents:
diff changeset
388 }
anatofuz
parents:
diff changeset
389 --line;
anatofuz
parents:
diff changeset
390 }
anatofuz
parents:
diff changeset
391 }
anatofuz
parents:
diff changeset
392 return line;
anatofuz
parents:
diff changeset
393 }
anatofuz
parents:
diff changeset
394
anatofuz
parents:
diff changeset
395 void Editline::MoveCursor(CursorLocation from, CursorLocation to) {
anatofuz
parents:
diff changeset
396 const LineInfoW *info = el_wline(m_editline);
anatofuz
parents:
diff changeset
397 int editline_cursor_position =
anatofuz
parents:
diff changeset
398 (int)((info->cursor - info->buffer) + GetPromptWidth());
anatofuz
parents:
diff changeset
399 int editline_cursor_row = editline_cursor_position / m_terminal_width;
anatofuz
parents:
diff changeset
400
anatofuz
parents:
diff changeset
401 // Determine relative starting and ending lines
anatofuz
parents:
diff changeset
402 int fromLine = GetLineIndexForLocation(from, editline_cursor_row);
anatofuz
parents:
diff changeset
403 int toLine = GetLineIndexForLocation(to, editline_cursor_row);
anatofuz
parents:
diff changeset
404 if (toLine != fromLine) {
anatofuz
parents:
diff changeset
405 fprintf(m_output_file,
anatofuz
parents:
diff changeset
406 (toLine > fromLine) ? ANSI_DOWN_N_ROWS : ANSI_UP_N_ROWS,
anatofuz
parents:
diff changeset
407 std::abs(toLine - fromLine));
anatofuz
parents:
diff changeset
408 }
anatofuz
parents:
diff changeset
409
anatofuz
parents:
diff changeset
410 // Determine target column
anatofuz
parents:
diff changeset
411 int toColumn = 1;
anatofuz
parents:
diff changeset
412 if (to == CursorLocation::EditingCursor) {
anatofuz
parents:
diff changeset
413 toColumn =
anatofuz
parents:
diff changeset
414 editline_cursor_position - (editline_cursor_row * m_terminal_width) + 1;
anatofuz
parents:
diff changeset
415 } else if (to == CursorLocation::BlockEnd && !m_input_lines.empty()) {
anatofuz
parents:
diff changeset
416 toColumn =
anatofuz
parents:
diff changeset
417 ((m_input_lines[m_input_lines.size() - 1].length() + GetPromptWidth()) %
anatofuz
parents:
diff changeset
418 80) +
anatofuz
parents:
diff changeset
419 1;
anatofuz
parents:
diff changeset
420 }
anatofuz
parents:
diff changeset
421 fprintf(m_output_file, ANSI_SET_COLUMN_N, toColumn);
anatofuz
parents:
diff changeset
422 }
anatofuz
parents:
diff changeset
423
anatofuz
parents:
diff changeset
424 void Editline::DisplayInput(int firstIndex) {
anatofuz
parents:
diff changeset
425 fprintf(m_output_file, ANSI_SET_COLUMN_N ANSI_CLEAR_BELOW, 1);
anatofuz
parents:
diff changeset
426 int line_count = (int)m_input_lines.size();
anatofuz
parents:
diff changeset
427 const char *faint = m_color_prompts ? ANSI_FAINT : "";
anatofuz
parents:
diff changeset
428 const char *unfaint = m_color_prompts ? ANSI_UNFAINT : "";
anatofuz
parents:
diff changeset
429
anatofuz
parents:
diff changeset
430 for (int index = firstIndex; index < line_count; index++) {
anatofuz
parents:
diff changeset
431 fprintf(m_output_file, "%s"
anatofuz
parents:
diff changeset
432 "%s"
anatofuz
parents:
diff changeset
433 "%s" EditLineStringFormatSpec " ",
anatofuz
parents:
diff changeset
434 faint, PromptForIndex(index).c_str(), unfaint,
anatofuz
parents:
diff changeset
435 m_input_lines[index].c_str());
anatofuz
parents:
diff changeset
436 if (index < line_count - 1)
anatofuz
parents:
diff changeset
437 fprintf(m_output_file, "\n");
anatofuz
parents:
diff changeset
438 }
anatofuz
parents:
diff changeset
439 }
anatofuz
parents:
diff changeset
440
anatofuz
parents:
diff changeset
441 int Editline::CountRowsForLine(const EditLineStringType &content) {
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
442 std::string prompt =
150
anatofuz
parents:
diff changeset
443 PromptForIndex(0); // Prompt width is constant during an edit session
anatofuz
parents:
diff changeset
444 int line_length = (int)(content.length() + prompt.length());
anatofuz
parents:
diff changeset
445 return (line_length / m_terminal_width) + 1;
anatofuz
parents:
diff changeset
446 }
anatofuz
parents:
diff changeset
447
anatofuz
parents:
diff changeset
448 void Editline::SaveEditedLine() {
anatofuz
parents:
diff changeset
449 const LineInfoW *info = el_wline(m_editline);
anatofuz
parents:
diff changeset
450 m_input_lines[m_current_line_index] =
anatofuz
parents:
diff changeset
451 EditLineStringType(info->buffer, info->lastchar - info->buffer);
anatofuz
parents:
diff changeset
452 }
anatofuz
parents:
diff changeset
453
anatofuz
parents:
diff changeset
454 StringList Editline::GetInputAsStringList(int line_count) {
anatofuz
parents:
diff changeset
455 StringList lines;
anatofuz
parents:
diff changeset
456 for (EditLineStringType line : m_input_lines) {
anatofuz
parents:
diff changeset
457 if (line_count == 0)
anatofuz
parents:
diff changeset
458 break;
anatofuz
parents:
diff changeset
459 #if LLDB_EDITLINE_USE_WCHAR
anatofuz
parents:
diff changeset
460 lines.AppendString(m_utf8conv.to_bytes(line));
anatofuz
parents:
diff changeset
461 #else
anatofuz
parents:
diff changeset
462 lines.AppendString(line);
anatofuz
parents:
diff changeset
463 #endif
anatofuz
parents:
diff changeset
464 --line_count;
anatofuz
parents:
diff changeset
465 }
anatofuz
parents:
diff changeset
466 return lines;
anatofuz
parents:
diff changeset
467 }
anatofuz
parents:
diff changeset
468
anatofuz
parents:
diff changeset
469 unsigned char Editline::RecallHistory(HistoryOperation op) {
anatofuz
parents:
diff changeset
470 assert(op == HistoryOperation::Older || op == HistoryOperation::Newer);
anatofuz
parents:
diff changeset
471 if (!m_history_sp || !m_history_sp->IsValid())
anatofuz
parents:
diff changeset
472 return CC_ERROR;
anatofuz
parents:
diff changeset
473
anatofuz
parents:
diff changeset
474 HistoryW *pHistory = m_history_sp->GetHistoryPtr();
anatofuz
parents:
diff changeset
475 HistEventW history_event;
anatofuz
parents:
diff changeset
476 std::vector<EditLineStringType> new_input_lines;
anatofuz
parents:
diff changeset
477
anatofuz
parents:
diff changeset
478 // Treat moving from the "live" entry differently
anatofuz
parents:
diff changeset
479 if (!m_in_history) {
anatofuz
parents:
diff changeset
480 switch (op) {
anatofuz
parents:
diff changeset
481 case HistoryOperation::Newer:
anatofuz
parents:
diff changeset
482 return CC_ERROR; // Can't go newer than the "live" entry
anatofuz
parents:
diff changeset
483 case HistoryOperation::Older: {
anatofuz
parents:
diff changeset
484 if (history_w(pHistory, &history_event,
anatofuz
parents:
diff changeset
485 GetOperation(HistoryOperation::Newest)) == -1)
anatofuz
parents:
diff changeset
486 return CC_ERROR;
anatofuz
parents:
diff changeset
487 // Save any edits to the "live" entry in case we return by moving forward
anatofuz
parents:
diff changeset
488 // in history (it would be more bash-like to save over any current entry,
anatofuz
parents:
diff changeset
489 // but libedit doesn't offer the ability to add entries anywhere except
anatofuz
parents:
diff changeset
490 // the end.)
anatofuz
parents:
diff changeset
491 SaveEditedLine();
anatofuz
parents:
diff changeset
492 m_live_history_lines = m_input_lines;
anatofuz
parents:
diff changeset
493 m_in_history = true;
anatofuz
parents:
diff changeset
494 } break;
anatofuz
parents:
diff changeset
495 default:
anatofuz
parents:
diff changeset
496 llvm_unreachable("unsupported history direction");
anatofuz
parents:
diff changeset
497 }
anatofuz
parents:
diff changeset
498 } else {
anatofuz
parents:
diff changeset
499 if (history_w(pHistory, &history_event, GetOperation(op)) == -1) {
anatofuz
parents:
diff changeset
500 switch (op) {
anatofuz
parents:
diff changeset
501 case HistoryOperation::Older:
anatofuz
parents:
diff changeset
502 // Can't move earlier than the earliest entry.
anatofuz
parents:
diff changeset
503 return CC_ERROR;
anatofuz
parents:
diff changeset
504 case HistoryOperation::Newer:
anatofuz
parents:
diff changeset
505 // Moving to newer-than-the-newest entry yields the "live" entry.
anatofuz
parents:
diff changeset
506 new_input_lines = m_live_history_lines;
anatofuz
parents:
diff changeset
507 m_in_history = false;
anatofuz
parents:
diff changeset
508 break;
anatofuz
parents:
diff changeset
509 default:
anatofuz
parents:
diff changeset
510 llvm_unreachable("unsupported history direction");
anatofuz
parents:
diff changeset
511 }
anatofuz
parents:
diff changeset
512 }
anatofuz
parents:
diff changeset
513 }
anatofuz
parents:
diff changeset
514
anatofuz
parents:
diff changeset
515 // If we're pulling the lines from history, split them apart
anatofuz
parents:
diff changeset
516 if (m_in_history)
anatofuz
parents:
diff changeset
517 new_input_lines = SplitLines(history_event.str);
anatofuz
parents:
diff changeset
518
anatofuz
parents:
diff changeset
519 // Erase the current edit session and replace it with a new one
anatofuz
parents:
diff changeset
520 MoveCursor(CursorLocation::EditingCursor, CursorLocation::BlockStart);
anatofuz
parents:
diff changeset
521 m_input_lines = new_input_lines;
anatofuz
parents:
diff changeset
522 DisplayInput();
anatofuz
parents:
diff changeset
523
anatofuz
parents:
diff changeset
524 // Prepare to edit the last line when moving to previous entry, or the first
anatofuz
parents:
diff changeset
525 // line when moving to next entry
anatofuz
parents:
diff changeset
526 switch (op) {
anatofuz
parents:
diff changeset
527 case HistoryOperation::Older:
anatofuz
parents:
diff changeset
528 m_current_line_index = (int)m_input_lines.size() - 1;
anatofuz
parents:
diff changeset
529 break;
anatofuz
parents:
diff changeset
530 case HistoryOperation::Newer:
anatofuz
parents:
diff changeset
531 m_current_line_index = 0;
anatofuz
parents:
diff changeset
532 break;
anatofuz
parents:
diff changeset
533 default:
anatofuz
parents:
diff changeset
534 llvm_unreachable("unsupported history direction");
anatofuz
parents:
diff changeset
535 }
anatofuz
parents:
diff changeset
536 SetCurrentLine(m_current_line_index);
anatofuz
parents:
diff changeset
537 MoveCursor(CursorLocation::BlockEnd, CursorLocation::EditingPrompt);
anatofuz
parents:
diff changeset
538 return CC_NEWLINE;
anatofuz
parents:
diff changeset
539 }
anatofuz
parents:
diff changeset
540
anatofuz
parents:
diff changeset
541 int Editline::GetCharacter(EditLineGetCharType *c) {
anatofuz
parents:
diff changeset
542 const LineInfoW *info = el_wline(m_editline);
anatofuz
parents:
diff changeset
543
anatofuz
parents:
diff changeset
544 // Paint a faint version of the desired prompt over the version libedit draws
anatofuz
parents:
diff changeset
545 // (will only be requested if colors are supported)
anatofuz
parents:
diff changeset
546 if (m_needs_prompt_repaint) {
anatofuz
parents:
diff changeset
547 MoveCursor(CursorLocation::EditingCursor, CursorLocation::EditingPrompt);
anatofuz
parents:
diff changeset
548 fprintf(m_output_file, "%s"
anatofuz
parents:
diff changeset
549 "%s"
anatofuz
parents:
diff changeset
550 "%s",
anatofuz
parents:
diff changeset
551 ANSI_FAINT, Prompt(), ANSI_UNFAINT);
anatofuz
parents:
diff changeset
552 MoveCursor(CursorLocation::EditingPrompt, CursorLocation::EditingCursor);
anatofuz
parents:
diff changeset
553 m_needs_prompt_repaint = false;
anatofuz
parents:
diff changeset
554 }
anatofuz
parents:
diff changeset
555
anatofuz
parents:
diff changeset
556 if (m_multiline_enabled) {
anatofuz
parents:
diff changeset
557 // Detect when the number of rows used for this input line changes due to
anatofuz
parents:
diff changeset
558 // an edit
anatofuz
parents:
diff changeset
559 int lineLength = (int)((info->lastchar - info->buffer) + GetPromptWidth());
anatofuz
parents:
diff changeset
560 int new_line_rows = (lineLength / m_terminal_width) + 1;
anatofuz
parents:
diff changeset
561 if (m_current_line_rows != -1 && new_line_rows != m_current_line_rows) {
anatofuz
parents:
diff changeset
562 // Respond by repainting the current state from this line on
anatofuz
parents:
diff changeset
563 MoveCursor(CursorLocation::EditingCursor, CursorLocation::EditingPrompt);
anatofuz
parents:
diff changeset
564 SaveEditedLine();
anatofuz
parents:
diff changeset
565 DisplayInput(m_current_line_index);
anatofuz
parents:
diff changeset
566 MoveCursor(CursorLocation::BlockEnd, CursorLocation::EditingCursor);
anatofuz
parents:
diff changeset
567 }
anatofuz
parents:
diff changeset
568 m_current_line_rows = new_line_rows;
anatofuz
parents:
diff changeset
569 }
anatofuz
parents:
diff changeset
570
anatofuz
parents:
diff changeset
571 // Read an actual character
anatofuz
parents:
diff changeset
572 while (true) {
anatofuz
parents:
diff changeset
573 lldb::ConnectionStatus status = lldb::eConnectionStatusSuccess;
anatofuz
parents:
diff changeset
574 char ch = 0;
anatofuz
parents:
diff changeset
575
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
576 if (m_terminal_size_has_changed)
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
577 ApplyTerminalSizeChange();
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
578
150
anatofuz
parents:
diff changeset
579 // This mutex is locked by our caller (GetLine). Unlock it while we read a
anatofuz
parents:
diff changeset
580 // character (blocking operation), so we do not hold the mutex
anatofuz
parents:
diff changeset
581 // indefinitely. This gives a chance for someone to interrupt us. After
anatofuz
parents:
diff changeset
582 // Read returns, immediately lock the mutex again and check if we were
anatofuz
parents:
diff changeset
583 // interrupted.
anatofuz
parents:
diff changeset
584 m_output_mutex.unlock();
anatofuz
parents:
diff changeset
585 int read_count =
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
586 m_input_connection.Read(&ch, 1, std::nullopt, status, nullptr);
150
anatofuz
parents:
diff changeset
587 m_output_mutex.lock();
anatofuz
parents:
diff changeset
588 if (m_editor_status == EditorStatus::Interrupted) {
anatofuz
parents:
diff changeset
589 while (read_count > 0 && status == lldb::eConnectionStatusSuccess)
anatofuz
parents:
diff changeset
590 read_count =
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
591 m_input_connection.Read(&ch, 1, std::nullopt, status, nullptr);
150
anatofuz
parents:
diff changeset
592 lldbassert(status == lldb::eConnectionStatusInterrupted);
anatofuz
parents:
diff changeset
593 return 0;
anatofuz
parents:
diff changeset
594 }
anatofuz
parents:
diff changeset
595
anatofuz
parents:
diff changeset
596 if (read_count) {
anatofuz
parents:
diff changeset
597 if (CompleteCharacter(ch, *c))
anatofuz
parents:
diff changeset
598 return 1;
anatofuz
parents:
diff changeset
599 } else {
anatofuz
parents:
diff changeset
600 switch (status) {
anatofuz
parents:
diff changeset
601 case lldb::eConnectionStatusSuccess: // Success
anatofuz
parents:
diff changeset
602 break;
anatofuz
parents:
diff changeset
603
anatofuz
parents:
diff changeset
604 case lldb::eConnectionStatusInterrupted:
anatofuz
parents:
diff changeset
605 llvm_unreachable("Interrupts should have been handled above.");
anatofuz
parents:
diff changeset
606
anatofuz
parents:
diff changeset
607 case lldb::eConnectionStatusError: // Check GetError() for details
anatofuz
parents:
diff changeset
608 case lldb::eConnectionStatusTimedOut: // Request timed out
anatofuz
parents:
diff changeset
609 case lldb::eConnectionStatusEndOfFile: // End-of-file encountered
anatofuz
parents:
diff changeset
610 case lldb::eConnectionStatusNoConnection: // No connection
anatofuz
parents:
diff changeset
611 case lldb::eConnectionStatusLostConnection: // Lost connection while
anatofuz
parents:
diff changeset
612 // connected to a valid
anatofuz
parents:
diff changeset
613 // connection
anatofuz
parents:
diff changeset
614 m_editor_status = EditorStatus::EndOfInput;
anatofuz
parents:
diff changeset
615 return 0;
anatofuz
parents:
diff changeset
616 }
anatofuz
parents:
diff changeset
617 }
anatofuz
parents:
diff changeset
618 }
anatofuz
parents:
diff changeset
619 }
anatofuz
parents:
diff changeset
620
anatofuz
parents:
diff changeset
621 const char *Editline::Prompt() {
anatofuz
parents:
diff changeset
622 if (m_color_prompts)
anatofuz
parents:
diff changeset
623 m_needs_prompt_repaint = true;
anatofuz
parents:
diff changeset
624 return m_current_prompt.c_str();
anatofuz
parents:
diff changeset
625 }
anatofuz
parents:
diff changeset
626
anatofuz
parents:
diff changeset
627 unsigned char Editline::BreakLineCommand(int ch) {
anatofuz
parents:
diff changeset
628 // Preserve any content beyond the cursor, truncate and save the current line
anatofuz
parents:
diff changeset
629 const LineInfoW *info = el_wline(m_editline);
anatofuz
parents:
diff changeset
630 auto current_line =
anatofuz
parents:
diff changeset
631 EditLineStringType(info->buffer, info->cursor - info->buffer);
anatofuz
parents:
diff changeset
632 auto new_line_fragment =
anatofuz
parents:
diff changeset
633 EditLineStringType(info->cursor, info->lastchar - info->cursor);
anatofuz
parents:
diff changeset
634 m_input_lines[m_current_line_index] = current_line;
anatofuz
parents:
diff changeset
635
anatofuz
parents:
diff changeset
636 // Ignore whitespace-only extra fragments when breaking a line
anatofuz
parents:
diff changeset
637 if (::IsOnlySpaces(new_line_fragment))
anatofuz
parents:
diff changeset
638 new_line_fragment = EditLineConstString("");
anatofuz
parents:
diff changeset
639
anatofuz
parents:
diff changeset
640 // Establish the new cursor position at the start of a line when inserting a
anatofuz
parents:
diff changeset
641 // line break
anatofuz
parents:
diff changeset
642 m_revert_cursor_index = 0;
anatofuz
parents:
diff changeset
643
anatofuz
parents:
diff changeset
644 // Don't perform automatic formatting when pasting
anatofuz
parents:
diff changeset
645 if (!IsInputPending(m_input_file)) {
anatofuz
parents:
diff changeset
646 // Apply smart indentation
anatofuz
parents:
diff changeset
647 if (m_fix_indentation_callback) {
anatofuz
parents:
diff changeset
648 StringList lines = GetInputAsStringList(m_current_line_index + 1);
anatofuz
parents:
diff changeset
649 #if LLDB_EDITLINE_USE_WCHAR
anatofuz
parents:
diff changeset
650 lines.AppendString(m_utf8conv.to_bytes(new_line_fragment));
anatofuz
parents:
diff changeset
651 #else
anatofuz
parents:
diff changeset
652 lines.AppendString(new_line_fragment);
anatofuz
parents:
diff changeset
653 #endif
anatofuz
parents:
diff changeset
654
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
655 int indent_correction = m_fix_indentation_callback(this, lines, 0);
150
anatofuz
parents:
diff changeset
656 new_line_fragment = FixIndentation(new_line_fragment, indent_correction);
anatofuz
parents:
diff changeset
657 m_revert_cursor_index = GetIndentation(new_line_fragment);
anatofuz
parents:
diff changeset
658 }
anatofuz
parents:
diff changeset
659 }
anatofuz
parents:
diff changeset
660
anatofuz
parents:
diff changeset
661 // Insert the new line and repaint everything from the split line on down
anatofuz
parents:
diff changeset
662 m_input_lines.insert(m_input_lines.begin() + m_current_line_index + 1,
anatofuz
parents:
diff changeset
663 new_line_fragment);
anatofuz
parents:
diff changeset
664 MoveCursor(CursorLocation::EditingCursor, CursorLocation::EditingPrompt);
anatofuz
parents:
diff changeset
665 DisplayInput(m_current_line_index);
anatofuz
parents:
diff changeset
666
anatofuz
parents:
diff changeset
667 // Reposition the cursor to the right line and prepare to edit the new line
anatofuz
parents:
diff changeset
668 SetCurrentLine(m_current_line_index + 1);
anatofuz
parents:
diff changeset
669 MoveCursor(CursorLocation::BlockEnd, CursorLocation::EditingPrompt);
anatofuz
parents:
diff changeset
670 return CC_NEWLINE;
anatofuz
parents:
diff changeset
671 }
anatofuz
parents:
diff changeset
672
anatofuz
parents:
diff changeset
673 unsigned char Editline::EndOrAddLineCommand(int ch) {
anatofuz
parents:
diff changeset
674 // Don't perform end of input detection when pasting, always treat this as a
anatofuz
parents:
diff changeset
675 // line break
anatofuz
parents:
diff changeset
676 if (IsInputPending(m_input_file)) {
anatofuz
parents:
diff changeset
677 return BreakLineCommand(ch);
anatofuz
parents:
diff changeset
678 }
anatofuz
parents:
diff changeset
679
anatofuz
parents:
diff changeset
680 // Save any edits to this line
anatofuz
parents:
diff changeset
681 SaveEditedLine();
anatofuz
parents:
diff changeset
682
anatofuz
parents:
diff changeset
683 // If this is the end of the last line, consider whether to add a line
anatofuz
parents:
diff changeset
684 // instead
anatofuz
parents:
diff changeset
685 const LineInfoW *info = el_wline(m_editline);
anatofuz
parents:
diff changeset
686 if (m_current_line_index == m_input_lines.size() - 1 &&
anatofuz
parents:
diff changeset
687 info->cursor == info->lastchar) {
anatofuz
parents:
diff changeset
688 if (m_is_input_complete_callback) {
anatofuz
parents:
diff changeset
689 auto lines = GetInputAsStringList();
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
690 if (!m_is_input_complete_callback(this, lines)) {
150
anatofuz
parents:
diff changeset
691 return BreakLineCommand(ch);
anatofuz
parents:
diff changeset
692 }
anatofuz
parents:
diff changeset
693
anatofuz
parents:
diff changeset
694 // The completion test is allowed to change the input lines when complete
anatofuz
parents:
diff changeset
695 m_input_lines.clear();
anatofuz
parents:
diff changeset
696 for (unsigned index = 0; index < lines.GetSize(); index++) {
anatofuz
parents:
diff changeset
697 #if LLDB_EDITLINE_USE_WCHAR
anatofuz
parents:
diff changeset
698 m_input_lines.insert(m_input_lines.end(),
anatofuz
parents:
diff changeset
699 m_utf8conv.from_bytes(lines[index]));
anatofuz
parents:
diff changeset
700 #else
anatofuz
parents:
diff changeset
701 m_input_lines.insert(m_input_lines.end(), lines[index]);
anatofuz
parents:
diff changeset
702 #endif
anatofuz
parents:
diff changeset
703 }
anatofuz
parents:
diff changeset
704 }
anatofuz
parents:
diff changeset
705 }
anatofuz
parents:
diff changeset
706 MoveCursor(CursorLocation::EditingCursor, CursorLocation::BlockEnd);
anatofuz
parents:
diff changeset
707 fprintf(m_output_file, "\n");
anatofuz
parents:
diff changeset
708 m_editor_status = EditorStatus::Complete;
anatofuz
parents:
diff changeset
709 return CC_NEWLINE;
anatofuz
parents:
diff changeset
710 }
anatofuz
parents:
diff changeset
711
anatofuz
parents:
diff changeset
712 unsigned char Editline::DeleteNextCharCommand(int ch) {
anatofuz
parents:
diff changeset
713 LineInfoW *info = const_cast<LineInfoW *>(el_wline(m_editline));
anatofuz
parents:
diff changeset
714
anatofuz
parents:
diff changeset
715 // Just delete the next character normally if possible
anatofuz
parents:
diff changeset
716 if (info->cursor < info->lastchar) {
anatofuz
parents:
diff changeset
717 info->cursor++;
anatofuz
parents:
diff changeset
718 el_deletestr(m_editline, 1);
anatofuz
parents:
diff changeset
719 return CC_REFRESH;
anatofuz
parents:
diff changeset
720 }
anatofuz
parents:
diff changeset
721
anatofuz
parents:
diff changeset
722 // Fail when at the end of the last line, except when ^D is pressed on the
anatofuz
parents:
diff changeset
723 // line is empty, in which case it is treated as EOF
anatofuz
parents:
diff changeset
724 if (m_current_line_index == m_input_lines.size() - 1) {
anatofuz
parents:
diff changeset
725 if (ch == 4 && info->buffer == info->lastchar) {
anatofuz
parents:
diff changeset
726 fprintf(m_output_file, "^D\n");
anatofuz
parents:
diff changeset
727 m_editor_status = EditorStatus::EndOfInput;
anatofuz
parents:
diff changeset
728 return CC_EOF;
anatofuz
parents:
diff changeset
729 }
anatofuz
parents:
diff changeset
730 return CC_ERROR;
anatofuz
parents:
diff changeset
731 }
anatofuz
parents:
diff changeset
732
anatofuz
parents:
diff changeset
733 // Prepare to combine this line with the one below
anatofuz
parents:
diff changeset
734 MoveCursor(CursorLocation::EditingCursor, CursorLocation::EditingPrompt);
anatofuz
parents:
diff changeset
735
anatofuz
parents:
diff changeset
736 // Insert the next line of text at the cursor and restore the cursor position
anatofuz
parents:
diff changeset
737 const EditLineCharType *cursor = info->cursor;
anatofuz
parents:
diff changeset
738 el_winsertstr(m_editline, m_input_lines[m_current_line_index + 1].c_str());
anatofuz
parents:
diff changeset
739 info->cursor = cursor;
anatofuz
parents:
diff changeset
740 SaveEditedLine();
anatofuz
parents:
diff changeset
741
anatofuz
parents:
diff changeset
742 // Delete the extra line
anatofuz
parents:
diff changeset
743 m_input_lines.erase(m_input_lines.begin() + m_current_line_index + 1);
anatofuz
parents:
diff changeset
744
anatofuz
parents:
diff changeset
745 // Clear and repaint from this line on down
anatofuz
parents:
diff changeset
746 DisplayInput(m_current_line_index);
anatofuz
parents:
diff changeset
747 MoveCursor(CursorLocation::BlockEnd, CursorLocation::EditingCursor);
anatofuz
parents:
diff changeset
748 return CC_REFRESH;
anatofuz
parents:
diff changeset
749 }
anatofuz
parents:
diff changeset
750
anatofuz
parents:
diff changeset
751 unsigned char Editline::DeletePreviousCharCommand(int ch) {
anatofuz
parents:
diff changeset
752 LineInfoW *info = const_cast<LineInfoW *>(el_wline(m_editline));
anatofuz
parents:
diff changeset
753
anatofuz
parents:
diff changeset
754 // Just delete the previous character normally when not at the start of a
anatofuz
parents:
diff changeset
755 // line
anatofuz
parents:
diff changeset
756 if (info->cursor > info->buffer) {
anatofuz
parents:
diff changeset
757 el_deletestr(m_editline, 1);
anatofuz
parents:
diff changeset
758 return CC_REFRESH;
anatofuz
parents:
diff changeset
759 }
anatofuz
parents:
diff changeset
760
anatofuz
parents:
diff changeset
761 // No prior line and no prior character? Let the user know
anatofuz
parents:
diff changeset
762 if (m_current_line_index == 0)
anatofuz
parents:
diff changeset
763 return CC_ERROR;
anatofuz
parents:
diff changeset
764
anatofuz
parents:
diff changeset
765 // No prior character, but prior line? Combine with the line above
anatofuz
parents:
diff changeset
766 SaveEditedLine();
anatofuz
parents:
diff changeset
767 SetCurrentLine(m_current_line_index - 1);
anatofuz
parents:
diff changeset
768 auto priorLine = m_input_lines[m_current_line_index];
anatofuz
parents:
diff changeset
769 m_input_lines.erase(m_input_lines.begin() + m_current_line_index);
anatofuz
parents:
diff changeset
770 m_input_lines[m_current_line_index] =
anatofuz
parents:
diff changeset
771 priorLine + m_input_lines[m_current_line_index];
anatofuz
parents:
diff changeset
772
anatofuz
parents:
diff changeset
773 // Repaint from the new line down
anatofuz
parents:
diff changeset
774 fprintf(m_output_file, ANSI_UP_N_ROWS ANSI_SET_COLUMN_N,
anatofuz
parents:
diff changeset
775 CountRowsForLine(priorLine), 1);
anatofuz
parents:
diff changeset
776 DisplayInput(m_current_line_index);
anatofuz
parents:
diff changeset
777
anatofuz
parents:
diff changeset
778 // Put the cursor back where libedit expects it to be before returning to
anatofuz
parents:
diff changeset
779 // editing by telling libedit about the newly inserted text
anatofuz
parents:
diff changeset
780 MoveCursor(CursorLocation::BlockEnd, CursorLocation::EditingPrompt);
anatofuz
parents:
diff changeset
781 el_winsertstr(m_editline, priorLine.c_str());
anatofuz
parents:
diff changeset
782 return CC_REDISPLAY;
anatofuz
parents:
diff changeset
783 }
anatofuz
parents:
diff changeset
784
anatofuz
parents:
diff changeset
785 unsigned char Editline::PreviousLineCommand(int ch) {
anatofuz
parents:
diff changeset
786 SaveEditedLine();
anatofuz
parents:
diff changeset
787
anatofuz
parents:
diff changeset
788 if (m_current_line_index == 0) {
anatofuz
parents:
diff changeset
789 return RecallHistory(HistoryOperation::Older);
anatofuz
parents:
diff changeset
790 }
anatofuz
parents:
diff changeset
791
anatofuz
parents:
diff changeset
792 // Start from a known location
anatofuz
parents:
diff changeset
793 MoveCursor(CursorLocation::EditingCursor, CursorLocation::EditingPrompt);
anatofuz
parents:
diff changeset
794
anatofuz
parents:
diff changeset
795 // Treat moving up from a blank last line as a deletion of that line
anatofuz
parents:
diff changeset
796 if (m_current_line_index == m_input_lines.size() - 1 && IsOnlySpaces()) {
anatofuz
parents:
diff changeset
797 m_input_lines.erase(m_input_lines.begin() + m_current_line_index);
anatofuz
parents:
diff changeset
798 fprintf(m_output_file, ANSI_CLEAR_BELOW);
anatofuz
parents:
diff changeset
799 }
anatofuz
parents:
diff changeset
800
anatofuz
parents:
diff changeset
801 SetCurrentLine(m_current_line_index - 1);
anatofuz
parents:
diff changeset
802 fprintf(m_output_file, ANSI_UP_N_ROWS ANSI_SET_COLUMN_N,
anatofuz
parents:
diff changeset
803 CountRowsForLine(m_input_lines[m_current_line_index]), 1);
anatofuz
parents:
diff changeset
804 return CC_NEWLINE;
anatofuz
parents:
diff changeset
805 }
anatofuz
parents:
diff changeset
806
anatofuz
parents:
diff changeset
807 unsigned char Editline::NextLineCommand(int ch) {
anatofuz
parents:
diff changeset
808 SaveEditedLine();
anatofuz
parents:
diff changeset
809
anatofuz
parents:
diff changeset
810 // Handle attempts to move down from the last line
anatofuz
parents:
diff changeset
811 if (m_current_line_index == m_input_lines.size() - 1) {
anatofuz
parents:
diff changeset
812 // Don't add an extra line if the existing last line is blank, move through
anatofuz
parents:
diff changeset
813 // history instead
anatofuz
parents:
diff changeset
814 if (IsOnlySpaces()) {
anatofuz
parents:
diff changeset
815 return RecallHistory(HistoryOperation::Newer);
anatofuz
parents:
diff changeset
816 }
anatofuz
parents:
diff changeset
817
anatofuz
parents:
diff changeset
818 // Determine indentation for the new line
anatofuz
parents:
diff changeset
819 int indentation = 0;
anatofuz
parents:
diff changeset
820 if (m_fix_indentation_callback) {
anatofuz
parents:
diff changeset
821 StringList lines = GetInputAsStringList();
anatofuz
parents:
diff changeset
822 lines.AppendString("");
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
823 indentation = m_fix_indentation_callback(this, lines, 0);
150
anatofuz
parents:
diff changeset
824 }
anatofuz
parents:
diff changeset
825 m_input_lines.insert(
anatofuz
parents:
diff changeset
826 m_input_lines.end(),
anatofuz
parents:
diff changeset
827 EditLineStringType(indentation, EditLineCharType(' ')));
anatofuz
parents:
diff changeset
828 }
anatofuz
parents:
diff changeset
829
anatofuz
parents:
diff changeset
830 // Move down past the current line using newlines to force scrolling if
anatofuz
parents:
diff changeset
831 // needed
anatofuz
parents:
diff changeset
832 SetCurrentLine(m_current_line_index + 1);
anatofuz
parents:
diff changeset
833 const LineInfoW *info = el_wline(m_editline);
anatofuz
parents:
diff changeset
834 int cursor_position = (int)((info->cursor - info->buffer) + GetPromptWidth());
anatofuz
parents:
diff changeset
835 int cursor_row = cursor_position / m_terminal_width;
anatofuz
parents:
diff changeset
836 for (int line_count = 0; line_count < m_current_line_rows - cursor_row;
anatofuz
parents:
diff changeset
837 line_count++) {
anatofuz
parents:
diff changeset
838 fprintf(m_output_file, "\n");
anatofuz
parents:
diff changeset
839 }
anatofuz
parents:
diff changeset
840 return CC_NEWLINE;
anatofuz
parents:
diff changeset
841 }
anatofuz
parents:
diff changeset
842
anatofuz
parents:
diff changeset
843 unsigned char Editline::PreviousHistoryCommand(int ch) {
anatofuz
parents:
diff changeset
844 SaveEditedLine();
anatofuz
parents:
diff changeset
845
anatofuz
parents:
diff changeset
846 return RecallHistory(HistoryOperation::Older);
anatofuz
parents:
diff changeset
847 }
anatofuz
parents:
diff changeset
848
anatofuz
parents:
diff changeset
849 unsigned char Editline::NextHistoryCommand(int ch) {
anatofuz
parents:
diff changeset
850 SaveEditedLine();
anatofuz
parents:
diff changeset
851
anatofuz
parents:
diff changeset
852 return RecallHistory(HistoryOperation::Newer);
anatofuz
parents:
diff changeset
853 }
anatofuz
parents:
diff changeset
854
anatofuz
parents:
diff changeset
855 unsigned char Editline::FixIndentationCommand(int ch) {
anatofuz
parents:
diff changeset
856 if (!m_fix_indentation_callback)
anatofuz
parents:
diff changeset
857 return CC_NORM;
anatofuz
parents:
diff changeset
858
anatofuz
parents:
diff changeset
859 // Insert the character typed before proceeding
anatofuz
parents:
diff changeset
860 EditLineCharType inserted[] = {(EditLineCharType)ch, 0};
anatofuz
parents:
diff changeset
861 el_winsertstr(m_editline, inserted);
anatofuz
parents:
diff changeset
862 LineInfoW *info = const_cast<LineInfoW *>(el_wline(m_editline));
anatofuz
parents:
diff changeset
863 int cursor_position = info->cursor - info->buffer;
anatofuz
parents:
diff changeset
864
anatofuz
parents:
diff changeset
865 // Save the edits and determine the correct indentation level
anatofuz
parents:
diff changeset
866 SaveEditedLine();
anatofuz
parents:
diff changeset
867 StringList lines = GetInputAsStringList(m_current_line_index + 1);
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
868 int indent_correction =
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
869 m_fix_indentation_callback(this, lines, cursor_position);
150
anatofuz
parents:
diff changeset
870
anatofuz
parents:
diff changeset
871 // If it is already correct no special work is needed
anatofuz
parents:
diff changeset
872 if (indent_correction == 0)
anatofuz
parents:
diff changeset
873 return CC_REFRESH;
anatofuz
parents:
diff changeset
874
anatofuz
parents:
diff changeset
875 // Change the indentation level of the line
anatofuz
parents:
diff changeset
876 std::string currentLine = lines.GetStringAtIndex(m_current_line_index);
anatofuz
parents:
diff changeset
877 if (indent_correction > 0) {
anatofuz
parents:
diff changeset
878 currentLine = currentLine.insert(0, indent_correction, ' ');
anatofuz
parents:
diff changeset
879 } else {
anatofuz
parents:
diff changeset
880 currentLine = currentLine.erase(0, -indent_correction);
anatofuz
parents:
diff changeset
881 }
anatofuz
parents:
diff changeset
882 #if LLDB_EDITLINE_USE_WCHAR
anatofuz
parents:
diff changeset
883 m_input_lines[m_current_line_index] = m_utf8conv.from_bytes(currentLine);
anatofuz
parents:
diff changeset
884 #else
anatofuz
parents:
diff changeset
885 m_input_lines[m_current_line_index] = currentLine;
anatofuz
parents:
diff changeset
886 #endif
anatofuz
parents:
diff changeset
887
anatofuz
parents:
diff changeset
888 // Update the display to reflect the change
anatofuz
parents:
diff changeset
889 MoveCursor(CursorLocation::EditingCursor, CursorLocation::EditingPrompt);
anatofuz
parents:
diff changeset
890 DisplayInput(m_current_line_index);
anatofuz
parents:
diff changeset
891
anatofuz
parents:
diff changeset
892 // Reposition the cursor back on the original line and prepare to restart
anatofuz
parents:
diff changeset
893 // editing with a new cursor position
anatofuz
parents:
diff changeset
894 SetCurrentLine(m_current_line_index);
anatofuz
parents:
diff changeset
895 MoveCursor(CursorLocation::BlockEnd, CursorLocation::EditingPrompt);
anatofuz
parents:
diff changeset
896 m_revert_cursor_index = cursor_position + indent_correction;
anatofuz
parents:
diff changeset
897 return CC_NEWLINE;
anatofuz
parents:
diff changeset
898 }
anatofuz
parents:
diff changeset
899
anatofuz
parents:
diff changeset
900 unsigned char Editline::RevertLineCommand(int ch) {
anatofuz
parents:
diff changeset
901 el_winsertstr(m_editline, m_input_lines[m_current_line_index].c_str());
anatofuz
parents:
diff changeset
902 if (m_revert_cursor_index >= 0) {
anatofuz
parents:
diff changeset
903 LineInfoW *info = const_cast<LineInfoW *>(el_wline(m_editline));
anatofuz
parents:
diff changeset
904 info->cursor = info->buffer + m_revert_cursor_index;
anatofuz
parents:
diff changeset
905 if (info->cursor > info->lastchar) {
anatofuz
parents:
diff changeset
906 info->cursor = info->lastchar;
anatofuz
parents:
diff changeset
907 }
anatofuz
parents:
diff changeset
908 m_revert_cursor_index = -1;
anatofuz
parents:
diff changeset
909 }
anatofuz
parents:
diff changeset
910 return CC_REFRESH;
anatofuz
parents:
diff changeset
911 }
anatofuz
parents:
diff changeset
912
anatofuz
parents:
diff changeset
913 unsigned char Editline::BufferStartCommand(int ch) {
anatofuz
parents:
diff changeset
914 SaveEditedLine();
anatofuz
parents:
diff changeset
915 MoveCursor(CursorLocation::EditingCursor, CursorLocation::BlockStart);
anatofuz
parents:
diff changeset
916 SetCurrentLine(0);
anatofuz
parents:
diff changeset
917 m_revert_cursor_index = 0;
anatofuz
parents:
diff changeset
918 return CC_NEWLINE;
anatofuz
parents:
diff changeset
919 }
anatofuz
parents:
diff changeset
920
anatofuz
parents:
diff changeset
921 unsigned char Editline::BufferEndCommand(int ch) {
anatofuz
parents:
diff changeset
922 SaveEditedLine();
anatofuz
parents:
diff changeset
923 MoveCursor(CursorLocation::EditingCursor, CursorLocation::BlockEnd);
anatofuz
parents:
diff changeset
924 SetCurrentLine((int)m_input_lines.size() - 1);
anatofuz
parents:
diff changeset
925 MoveCursor(CursorLocation::BlockEnd, CursorLocation::EditingPrompt);
anatofuz
parents:
diff changeset
926 return CC_NEWLINE;
anatofuz
parents:
diff changeset
927 }
anatofuz
parents:
diff changeset
928
anatofuz
parents:
diff changeset
929 /// Prints completions and their descriptions to the given file. Only the
anatofuz
parents:
diff changeset
930 /// completions in the interval [start, end) are printed.
anatofuz
parents:
diff changeset
931 static void
anatofuz
parents:
diff changeset
932 PrintCompletion(FILE *output_file,
anatofuz
parents:
diff changeset
933 llvm::ArrayRef<CompletionResult::Completion> results,
anatofuz
parents:
diff changeset
934 size_t max_len) {
anatofuz
parents:
diff changeset
935 for (const CompletionResult::Completion &c : results) {
anatofuz
parents:
diff changeset
936 fprintf(output_file, "\t%-*s", (int)max_len, c.GetCompletion().c_str());
anatofuz
parents:
diff changeset
937 if (!c.GetDescription().empty())
anatofuz
parents:
diff changeset
938 fprintf(output_file, " -- %s", c.GetDescription().c_str());
anatofuz
parents:
diff changeset
939 fprintf(output_file, "\n");
anatofuz
parents:
diff changeset
940 }
anatofuz
parents:
diff changeset
941 }
anatofuz
parents:
diff changeset
942
anatofuz
parents:
diff changeset
943 static void
anatofuz
parents:
diff changeset
944 DisplayCompletions(::EditLine *editline, FILE *output_file,
anatofuz
parents:
diff changeset
945 llvm::ArrayRef<CompletionResult::Completion> results) {
anatofuz
parents:
diff changeset
946 assert(!results.empty());
anatofuz
parents:
diff changeset
947
anatofuz
parents:
diff changeset
948 fprintf(output_file, "\n" ANSI_CLEAR_BELOW "Available completions:\n");
anatofuz
parents:
diff changeset
949 const size_t page_size = 40;
anatofuz
parents:
diff changeset
950 bool all = false;
anatofuz
parents:
diff changeset
951
anatofuz
parents:
diff changeset
952 auto longest =
anatofuz
parents:
diff changeset
953 std::max_element(results.begin(), results.end(), [](auto &c1, auto &c2) {
anatofuz
parents:
diff changeset
954 return c1.GetCompletion().size() < c2.GetCompletion().size();
anatofuz
parents:
diff changeset
955 });
anatofuz
parents:
diff changeset
956
anatofuz
parents:
diff changeset
957 const size_t max_len = longest->GetCompletion().size();
anatofuz
parents:
diff changeset
958
anatofuz
parents:
diff changeset
959 if (results.size() < page_size) {
anatofuz
parents:
diff changeset
960 PrintCompletion(output_file, results, max_len);
anatofuz
parents:
diff changeset
961 return;
anatofuz
parents:
diff changeset
962 }
anatofuz
parents:
diff changeset
963
anatofuz
parents:
diff changeset
964 size_t cur_pos = 0;
anatofuz
parents:
diff changeset
965 while (cur_pos < results.size()) {
anatofuz
parents:
diff changeset
966 size_t remaining = results.size() - cur_pos;
anatofuz
parents:
diff changeset
967 size_t next_size = all ? remaining : std::min(page_size, remaining);
anatofuz
parents:
diff changeset
968
anatofuz
parents:
diff changeset
969 PrintCompletion(output_file, results.slice(cur_pos, next_size), max_len);
anatofuz
parents:
diff changeset
970
anatofuz
parents:
diff changeset
971 cur_pos += next_size;
anatofuz
parents:
diff changeset
972
anatofuz
parents:
diff changeset
973 if (cur_pos >= results.size())
anatofuz
parents:
diff changeset
974 break;
anatofuz
parents:
diff changeset
975
anatofuz
parents:
diff changeset
976 fprintf(output_file, "More (Y/n/a): ");
anatofuz
parents:
diff changeset
977 char reply = 'n';
anatofuz
parents:
diff changeset
978 int got_char = el_getc(editline, &reply);
anatofuz
parents:
diff changeset
979 fprintf(output_file, "\n");
anatofuz
parents:
diff changeset
980 if (got_char == -1 || reply == 'n')
anatofuz
parents:
diff changeset
981 break;
anatofuz
parents:
diff changeset
982 if (reply == 'a')
anatofuz
parents:
diff changeset
983 all = true;
anatofuz
parents:
diff changeset
984 }
anatofuz
parents:
diff changeset
985 }
anatofuz
parents:
diff changeset
986
anatofuz
parents:
diff changeset
987 unsigned char Editline::TabCommand(int ch) {
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
988 if (!m_completion_callback)
150
anatofuz
parents:
diff changeset
989 return CC_ERROR;
anatofuz
parents:
diff changeset
990
anatofuz
parents:
diff changeset
991 const LineInfo *line_info = el_line(m_editline);
anatofuz
parents:
diff changeset
992
anatofuz
parents:
diff changeset
993 llvm::StringRef line(line_info->buffer,
anatofuz
parents:
diff changeset
994 line_info->lastchar - line_info->buffer);
anatofuz
parents:
diff changeset
995 unsigned cursor_index = line_info->cursor - line_info->buffer;
anatofuz
parents:
diff changeset
996 CompletionResult result;
anatofuz
parents:
diff changeset
997 CompletionRequest request(line, cursor_index, result);
anatofuz
parents:
diff changeset
998
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
999 m_completion_callback(request);
150
anatofuz
parents:
diff changeset
1000
anatofuz
parents:
diff changeset
1001 llvm::ArrayRef<CompletionResult::Completion> results = result.GetResults();
anatofuz
parents:
diff changeset
1002
anatofuz
parents:
diff changeset
1003 StringList completions;
anatofuz
parents:
diff changeset
1004 result.GetMatches(completions);
anatofuz
parents:
diff changeset
1005
anatofuz
parents:
diff changeset
1006 if (results.size() == 0)
anatofuz
parents:
diff changeset
1007 return CC_ERROR;
anatofuz
parents:
diff changeset
1008
anatofuz
parents:
diff changeset
1009 if (results.size() == 1) {
anatofuz
parents:
diff changeset
1010 CompletionResult::Completion completion = results.front();
anatofuz
parents:
diff changeset
1011 switch (completion.GetMode()) {
anatofuz
parents:
diff changeset
1012 case CompletionMode::Normal: {
anatofuz
parents:
diff changeset
1013 std::string to_add = completion.GetCompletion();
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1014 // Terminate the current argument with a quote if it started with a quote.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1015 if (!request.GetParsedLine().empty() && request.GetParsedArg().IsQuoted())
150
anatofuz
parents:
diff changeset
1016 to_add.push_back(request.GetParsedArg().GetQuoteChar());
anatofuz
parents:
diff changeset
1017 to_add.push_back(' ');
236
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1018 el_deletestr(m_editline, request.GetCursorArgumentPrefix().size());
150
anatofuz
parents:
diff changeset
1019 el_insertstr(m_editline, to_add.c_str());
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1020 // Clear all the autosuggestion parts if the only single space can be completed.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1021 if (to_add == " ")
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1022 return CC_REDISPLAY;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1023 return CC_REFRESH;
150
anatofuz
parents:
diff changeset
1024 }
anatofuz
parents:
diff changeset
1025 case CompletionMode::Partial: {
anatofuz
parents:
diff changeset
1026 std::string to_add = completion.GetCompletion();
anatofuz
parents:
diff changeset
1027 to_add = to_add.substr(request.GetCursorArgumentPrefix().size());
anatofuz
parents:
diff changeset
1028 el_insertstr(m_editline, to_add.c_str());
anatofuz
parents:
diff changeset
1029 break;
anatofuz
parents:
diff changeset
1030 }
anatofuz
parents:
diff changeset
1031 case CompletionMode::RewriteLine: {
anatofuz
parents:
diff changeset
1032 el_deletestr(m_editline, line_info->cursor - line_info->buffer);
anatofuz
parents:
diff changeset
1033 el_insertstr(m_editline, completion.GetCompletion().c_str());
anatofuz
parents:
diff changeset
1034 break;
anatofuz
parents:
diff changeset
1035 }
anatofuz
parents:
diff changeset
1036 }
anatofuz
parents:
diff changeset
1037 return CC_REDISPLAY;
anatofuz
parents:
diff changeset
1038 }
anatofuz
parents:
diff changeset
1039
anatofuz
parents:
diff changeset
1040 // If we get a longer match display that first.
anatofuz
parents:
diff changeset
1041 std::string longest_prefix = completions.LongestCommonPrefix();
anatofuz
parents:
diff changeset
1042 if (!longest_prefix.empty())
anatofuz
parents:
diff changeset
1043 longest_prefix =
anatofuz
parents:
diff changeset
1044 longest_prefix.substr(request.GetCursorArgumentPrefix().size());
anatofuz
parents:
diff changeset
1045 if (!longest_prefix.empty()) {
anatofuz
parents:
diff changeset
1046 el_insertstr(m_editline, longest_prefix.c_str());
anatofuz
parents:
diff changeset
1047 return CC_REDISPLAY;
anatofuz
parents:
diff changeset
1048 }
anatofuz
parents:
diff changeset
1049
anatofuz
parents:
diff changeset
1050 DisplayCompletions(m_editline, m_output_file, results);
anatofuz
parents:
diff changeset
1051
anatofuz
parents:
diff changeset
1052 DisplayInput();
anatofuz
parents:
diff changeset
1053 MoveCursor(CursorLocation::BlockEnd, CursorLocation::EditingCursor);
anatofuz
parents:
diff changeset
1054 return CC_REDISPLAY;
anatofuz
parents:
diff changeset
1055 }
anatofuz
parents:
diff changeset
1056
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1057 unsigned char Editline::ApplyAutosuggestCommand(int ch) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1058 if (!m_suggestion_callback) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1059 return CC_REDISPLAY;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1060 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1061
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1062 const LineInfo *line_info = el_line(m_editline);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1063 llvm::StringRef line(line_info->buffer,
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1064 line_info->lastchar - line_info->buffer);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1065
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1066 if (std::optional<std::string> to_add = m_suggestion_callback(line))
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1067 el_insertstr(m_editline, to_add->c_str());
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1068
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1069 return CC_REDISPLAY;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1070 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1071
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1072 unsigned char Editline::TypedCharacter(int ch) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1073 std::string typed = std::string(1, ch);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1074 el_insertstr(m_editline, typed.c_str());
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1075
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1076 if (!m_suggestion_callback) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1077 return CC_REDISPLAY;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1078 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1079
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1080 const LineInfo *line_info = el_line(m_editline);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1081 llvm::StringRef line(line_info->buffer,
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1082 line_info->lastchar - line_info->buffer);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1083
236
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1084 const char *ansi_prefix =
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1085 m_color_prompts ? m_suggestion_ansi_prefix.c_str() : "";
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1086 const char *ansi_suffix =
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1087 m_color_prompts ? m_suggestion_ansi_suffix.c_str() : "";
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1088
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1089 if (std::optional<std::string> to_add = m_suggestion_callback(line)) {
236
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1090 std::string to_add_color = ansi_prefix + to_add.value() + ansi_suffix;
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1091 fputs(typed.c_str(), m_output_file);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1092 fputs(to_add_color.c_str(), m_output_file);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1093 size_t new_autosuggestion_size = line.size() + to_add->length();
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1094 // Print spaces to hide any remains of a previous longer autosuggestion.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1095 if (new_autosuggestion_size < m_previous_autosuggestion_size) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1096 size_t spaces_to_print =
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1097 m_previous_autosuggestion_size - new_autosuggestion_size;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1098 std::string spaces = std::string(spaces_to_print, ' ');
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1099 fputs(spaces.c_str(), m_output_file);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1100 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1101 m_previous_autosuggestion_size = new_autosuggestion_size;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1102
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1103 int editline_cursor_position =
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1104 (int)((line_info->cursor - line_info->buffer) + GetPromptWidth());
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1105 int editline_cursor_row = editline_cursor_position / m_terminal_width;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1106 int toColumn =
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1107 editline_cursor_position - (editline_cursor_row * m_terminal_width);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1108 fprintf(m_output_file, ANSI_SET_COLUMN_N, toColumn);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1109 return CC_REFRESH;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1110 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1111
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1112 return CC_REDISPLAY;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1113 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1114
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1115 void Editline::AddFunctionToEditLine(const EditLineCharType *command,
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1116 const EditLineCharType *helptext,
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1117 EditlineCommandCallbackType callbackFn) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1118 el_wset(m_editline, EL_ADDFN, command, helptext, callbackFn);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1119 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1120
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1121 void Editline::SetEditLinePromptCallback(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1122 EditlinePromptCallbackType callbackFn) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1123 el_set(m_editline, EL_PROMPT, callbackFn);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1124 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1125
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1126 void Editline::SetGetCharacterFunction(EditlineGetCharCallbackType callbackFn) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1127 el_wset(m_editline, EL_GETCFN, callbackFn);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1128 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1129
150
anatofuz
parents:
diff changeset
1130 void Editline::ConfigureEditor(bool multiline) {
anatofuz
parents:
diff changeset
1131 if (m_editline && m_multiline_enabled == multiline)
anatofuz
parents:
diff changeset
1132 return;
anatofuz
parents:
diff changeset
1133 m_multiline_enabled = multiline;
anatofuz
parents:
diff changeset
1134
anatofuz
parents:
diff changeset
1135 if (m_editline) {
anatofuz
parents:
diff changeset
1136 // Disable edit mode to stop the terminal from flushing all input during
anatofuz
parents:
diff changeset
1137 // the call to el_end() since we expect to have multiple editline instances
anatofuz
parents:
diff changeset
1138 // in this program.
anatofuz
parents:
diff changeset
1139 el_set(m_editline, EL_EDITMODE, 0);
anatofuz
parents:
diff changeset
1140 el_end(m_editline);
anatofuz
parents:
diff changeset
1141 }
anatofuz
parents:
diff changeset
1142
anatofuz
parents:
diff changeset
1143 m_editline =
anatofuz
parents:
diff changeset
1144 el_init(m_editor_name.c_str(), m_input_file, m_output_file, m_error_file);
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1145 ApplyTerminalSizeChange();
150
anatofuz
parents:
diff changeset
1146
anatofuz
parents:
diff changeset
1147 if (m_history_sp && m_history_sp->IsValid()) {
anatofuz
parents:
diff changeset
1148 if (!m_history_sp->Load()) {
anatofuz
parents:
diff changeset
1149 fputs("Could not load history file\n.", m_output_file);
anatofuz
parents:
diff changeset
1150 }
anatofuz
parents:
diff changeset
1151 el_wset(m_editline, EL_HIST, history, m_history_sp->GetHistoryPtr());
anatofuz
parents:
diff changeset
1152 }
anatofuz
parents:
diff changeset
1153 el_set(m_editline, EL_CLIENTDATA, this);
anatofuz
parents:
diff changeset
1154 el_set(m_editline, EL_SIGNAL, 0);
anatofuz
parents:
diff changeset
1155 el_set(m_editline, EL_EDITOR, "emacs");
anatofuz
parents:
diff changeset
1156
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1157 SetGetCharacterFunction([](EditLine *editline, EditLineGetCharType *c) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1158 return Editline::InstanceFor(editline)->GetCharacter(c);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1159 });
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1160
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1161 SetEditLinePromptCallback([](EditLine *editline) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1162 return Editline::InstanceFor(editline)->Prompt();
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1163 });
150
anatofuz
parents:
diff changeset
1164
anatofuz
parents:
diff changeset
1165 // Commands used for multiline support, registered whether or not they're
anatofuz
parents:
diff changeset
1166 // used
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1167 AddFunctionToEditLine(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1168 EditLineConstString("lldb-break-line"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1169 EditLineConstString("Insert a line break"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1170 [](EditLine *editline, int ch) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1171 return Editline::InstanceFor(editline)->BreakLineCommand(ch);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1172 });
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1173
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1174 AddFunctionToEditLine(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1175 EditLineConstString("lldb-end-or-add-line"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1176 EditLineConstString("End editing or continue when incomplete"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1177 [](EditLine *editline, int ch) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1178 return Editline::InstanceFor(editline)->EndOrAddLineCommand(ch);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1179 });
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1180 AddFunctionToEditLine(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1181 EditLineConstString("lldb-delete-next-char"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1182 EditLineConstString("Delete next character"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1183 [](EditLine *editline, int ch) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1184 return Editline::InstanceFor(editline)->DeleteNextCharCommand(ch);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1185 });
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1186 AddFunctionToEditLine(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1187 EditLineConstString("lldb-delete-previous-char"),
150
anatofuz
parents:
diff changeset
1188 EditLineConstString("Delete previous character"),
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1189 [](EditLine *editline, int ch) {
150
anatofuz
parents:
diff changeset
1190 return Editline::InstanceFor(editline)->DeletePreviousCharCommand(ch);
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1191 });
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1192 AddFunctionToEditLine(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1193 EditLineConstString("lldb-previous-line"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1194 EditLineConstString("Move to previous line"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1195 [](EditLine *editline, int ch) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1196 return Editline::InstanceFor(editline)->PreviousLineCommand(ch);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1197 });
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1198 AddFunctionToEditLine(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1199 EditLineConstString("lldb-next-line"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1200 EditLineConstString("Move to next line"), [](EditLine *editline, int ch) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1201 return Editline::InstanceFor(editline)->NextLineCommand(ch);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1202 });
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1203 AddFunctionToEditLine(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1204 EditLineConstString("lldb-previous-history"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1205 EditLineConstString("Move to previous history"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1206 [](EditLine *editline, int ch) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1207 return Editline::InstanceFor(editline)->PreviousHistoryCommand(ch);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1208 });
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1209 AddFunctionToEditLine(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1210 EditLineConstString("lldb-next-history"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1211 EditLineConstString("Move to next history"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1212 [](EditLine *editline, int ch) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1213 return Editline::InstanceFor(editline)->NextHistoryCommand(ch);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1214 });
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1215 AddFunctionToEditLine(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1216 EditLineConstString("lldb-buffer-start"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1217 EditLineConstString("Move to start of buffer"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1218 [](EditLine *editline, int ch) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1219 return Editline::InstanceFor(editline)->BufferStartCommand(ch);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1220 });
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1221 AddFunctionToEditLine(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1222 EditLineConstString("lldb-buffer-end"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1223 EditLineConstString("Move to end of buffer"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1224 [](EditLine *editline, int ch) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1225 return Editline::InstanceFor(editline)->BufferEndCommand(ch);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1226 });
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1227 AddFunctionToEditLine(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1228 EditLineConstString("lldb-fix-indentation"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1229 EditLineConstString("Fix line indentation"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1230 [](EditLine *editline, int ch) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1231 return Editline::InstanceFor(editline)->FixIndentationCommand(ch);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1232 });
150
anatofuz
parents:
diff changeset
1233
anatofuz
parents:
diff changeset
1234 // Register the complete callback under two names for compatibility with
anatofuz
parents:
diff changeset
1235 // older clients using custom .editrc files (largely because libedit has a
anatofuz
parents:
diff changeset
1236 // bad bug where if you have a bind command that tries to bind to a function
anatofuz
parents:
diff changeset
1237 // name that doesn't exist, it can corrupt the heap and crash your process
anatofuz
parents:
diff changeset
1238 // later.)
anatofuz
parents:
diff changeset
1239 EditlineCommandCallbackType complete_callback = [](EditLine *editline,
anatofuz
parents:
diff changeset
1240 int ch) {
anatofuz
parents:
diff changeset
1241 return Editline::InstanceFor(editline)->TabCommand(ch);
anatofuz
parents:
diff changeset
1242 };
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1243 AddFunctionToEditLine(EditLineConstString("lldb-complete"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1244 EditLineConstString("Invoke completion"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1245 complete_callback);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1246 AddFunctionToEditLine(EditLineConstString("lldb_complete"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1247 EditLineConstString("Invoke completion"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1248 complete_callback);
150
anatofuz
parents:
diff changeset
1249
anatofuz
parents:
diff changeset
1250 // General bindings we don't mind being overridden
anatofuz
parents:
diff changeset
1251 if (!multiline) {
anatofuz
parents:
diff changeset
1252 el_set(m_editline, EL_BIND, "^r", "em-inc-search-prev",
anatofuz
parents:
diff changeset
1253 NULL); // Cycle through backwards search, entering string
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1254
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1255 if (m_suggestion_callback) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1256 AddFunctionToEditLine(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1257 EditLineConstString("lldb-apply-complete"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1258 EditLineConstString("Adopt autocompletion"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1259 [](EditLine *editline, int ch) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1260 return Editline::InstanceFor(editline)->ApplyAutosuggestCommand(ch);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1261 });
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1262
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1263 el_set(m_editline, EL_BIND, "^f", "lldb-apply-complete",
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1264 NULL); // Apply a part that is suggested automatically
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1265
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1266 AddFunctionToEditLine(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1267 EditLineConstString("lldb-typed-character"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1268 EditLineConstString("Typed character"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1269 [](EditLine *editline, int ch) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1270 return Editline::InstanceFor(editline)->TypedCharacter(ch);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1271 });
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1272
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1273 char bind_key[2] = {0, 0};
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1274 llvm::StringRef ascii_chars =
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1275 "abcdefghijklmnopqrstuvwxzyABCDEFGHIJKLMNOPQRSTUVWXZY1234567890!\"#$%"
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1276 "&'()*+,./:;<=>?@[]_`{|}~ ";
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1277 for (char c : ascii_chars) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1278 bind_key[0] = c;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1279 el_set(m_editline, EL_BIND, bind_key, "lldb-typed-character", NULL);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1280 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1281 el_set(m_editline, EL_BIND, "\\-", "lldb-typed-character", NULL);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1282 el_set(m_editline, EL_BIND, "\\^", "lldb-typed-character", NULL);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1283 el_set(m_editline, EL_BIND, "\\\\", "lldb-typed-character", NULL);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1284 }
150
anatofuz
parents:
diff changeset
1285 }
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1286
150
anatofuz
parents:
diff changeset
1287 el_set(m_editline, EL_BIND, "^w", "ed-delete-prev-word",
anatofuz
parents:
diff changeset
1288 NULL); // Delete previous word, behave like bash in emacs mode
anatofuz
parents:
diff changeset
1289 el_set(m_editline, EL_BIND, "\t", "lldb-complete",
anatofuz
parents:
diff changeset
1290 NULL); // Bind TAB to auto complete
anatofuz
parents:
diff changeset
1291
anatofuz
parents:
diff changeset
1292 // Allow ctrl-left-arrow and ctrl-right-arrow for navigation, behave like
anatofuz
parents:
diff changeset
1293 // bash in emacs mode.
anatofuz
parents:
diff changeset
1294 el_set(m_editline, EL_BIND, ESCAPE "[1;5C", "em-next-word", NULL);
anatofuz
parents:
diff changeset
1295 el_set(m_editline, EL_BIND, ESCAPE "[1;5D", "ed-prev-word", NULL);
anatofuz
parents:
diff changeset
1296 el_set(m_editline, EL_BIND, ESCAPE "[5C", "em-next-word", NULL);
anatofuz
parents:
diff changeset
1297 el_set(m_editline, EL_BIND, ESCAPE "[5D", "ed-prev-word", NULL);
anatofuz
parents:
diff changeset
1298 el_set(m_editline, EL_BIND, ESCAPE ESCAPE "[C", "em-next-word", NULL);
anatofuz
parents:
diff changeset
1299 el_set(m_editline, EL_BIND, ESCAPE ESCAPE "[D", "ed-prev-word", NULL);
anatofuz
parents:
diff changeset
1300
anatofuz
parents:
diff changeset
1301 // Allow user-specific customization prior to registering bindings we
anatofuz
parents:
diff changeset
1302 // absolutely require
anatofuz
parents:
diff changeset
1303 el_source(m_editline, nullptr);
anatofuz
parents:
diff changeset
1304
anatofuz
parents:
diff changeset
1305 // Register an internal binding that external developers shouldn't use
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1306 AddFunctionToEditLine(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1307 EditLineConstString("lldb-revert-line"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1308 EditLineConstString("Revert line to saved state"),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1309 [](EditLine *editline, int ch) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1310 return Editline::InstanceFor(editline)->RevertLineCommand(ch);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1311 });
150
anatofuz
parents:
diff changeset
1312
anatofuz
parents:
diff changeset
1313 // Register keys that perform auto-indent correction
anatofuz
parents:
diff changeset
1314 if (m_fix_indentation_callback && m_fix_indentation_callback_chars) {
anatofuz
parents:
diff changeset
1315 char bind_key[2] = {0, 0};
anatofuz
parents:
diff changeset
1316 const char *indent_chars = m_fix_indentation_callback_chars;
anatofuz
parents:
diff changeset
1317 while (*indent_chars) {
anatofuz
parents:
diff changeset
1318 bind_key[0] = *indent_chars;
anatofuz
parents:
diff changeset
1319 el_set(m_editline, EL_BIND, bind_key, "lldb-fix-indentation", NULL);
anatofuz
parents:
diff changeset
1320 ++indent_chars;
anatofuz
parents:
diff changeset
1321 }
anatofuz
parents:
diff changeset
1322 }
anatofuz
parents:
diff changeset
1323
anatofuz
parents:
diff changeset
1324 // Multi-line editor bindings
anatofuz
parents:
diff changeset
1325 if (multiline) {
anatofuz
parents:
diff changeset
1326 el_set(m_editline, EL_BIND, "\n", "lldb-end-or-add-line", NULL);
anatofuz
parents:
diff changeset
1327 el_set(m_editline, EL_BIND, "\r", "lldb-end-or-add-line", NULL);
anatofuz
parents:
diff changeset
1328 el_set(m_editline, EL_BIND, ESCAPE "\n", "lldb-break-line", NULL);
anatofuz
parents:
diff changeset
1329 el_set(m_editline, EL_BIND, ESCAPE "\r", "lldb-break-line", NULL);
anatofuz
parents:
diff changeset
1330 el_set(m_editline, EL_BIND, "^p", "lldb-previous-line", NULL);
anatofuz
parents:
diff changeset
1331 el_set(m_editline, EL_BIND, "^n", "lldb-next-line", NULL);
anatofuz
parents:
diff changeset
1332 el_set(m_editline, EL_BIND, "^?", "lldb-delete-previous-char", NULL);
anatofuz
parents:
diff changeset
1333 el_set(m_editline, EL_BIND, "^d", "lldb-delete-next-char", NULL);
anatofuz
parents:
diff changeset
1334 el_set(m_editline, EL_BIND, ESCAPE "[3~", "lldb-delete-next-char", NULL);
anatofuz
parents:
diff changeset
1335 el_set(m_editline, EL_BIND, ESCAPE "[\\^", "lldb-revert-line", NULL);
anatofuz
parents:
diff changeset
1336
anatofuz
parents:
diff changeset
1337 // Editor-specific bindings
anatofuz
parents:
diff changeset
1338 if (IsEmacs()) {
anatofuz
parents:
diff changeset
1339 el_set(m_editline, EL_BIND, ESCAPE "<", "lldb-buffer-start", NULL);
anatofuz
parents:
diff changeset
1340 el_set(m_editline, EL_BIND, ESCAPE ">", "lldb-buffer-end", NULL);
anatofuz
parents:
diff changeset
1341 el_set(m_editline, EL_BIND, ESCAPE "[A", "lldb-previous-line", NULL);
anatofuz
parents:
diff changeset
1342 el_set(m_editline, EL_BIND, ESCAPE "[B", "lldb-next-line", NULL);
anatofuz
parents:
diff changeset
1343 el_set(m_editline, EL_BIND, ESCAPE ESCAPE "[A", "lldb-previous-history",
anatofuz
parents:
diff changeset
1344 NULL);
anatofuz
parents:
diff changeset
1345 el_set(m_editline, EL_BIND, ESCAPE ESCAPE "[B", "lldb-next-history",
anatofuz
parents:
diff changeset
1346 NULL);
anatofuz
parents:
diff changeset
1347 el_set(m_editline, EL_BIND, ESCAPE "[1;3A", "lldb-previous-history",
anatofuz
parents:
diff changeset
1348 NULL);
anatofuz
parents:
diff changeset
1349 el_set(m_editline, EL_BIND, ESCAPE "[1;3B", "lldb-next-history", NULL);
anatofuz
parents:
diff changeset
1350 } else {
anatofuz
parents:
diff changeset
1351 el_set(m_editline, EL_BIND, "^H", "lldb-delete-previous-char", NULL);
anatofuz
parents:
diff changeset
1352
anatofuz
parents:
diff changeset
1353 el_set(m_editline, EL_BIND, "-a", ESCAPE "[A", "lldb-previous-line",
anatofuz
parents:
diff changeset
1354 NULL);
anatofuz
parents:
diff changeset
1355 el_set(m_editline, EL_BIND, "-a", ESCAPE "[B", "lldb-next-line", NULL);
anatofuz
parents:
diff changeset
1356 el_set(m_editline, EL_BIND, "-a", "x", "lldb-delete-next-char", NULL);
anatofuz
parents:
diff changeset
1357 el_set(m_editline, EL_BIND, "-a", "^H", "lldb-delete-previous-char",
anatofuz
parents:
diff changeset
1358 NULL);
anatofuz
parents:
diff changeset
1359 el_set(m_editline, EL_BIND, "-a", "^?", "lldb-delete-previous-char",
anatofuz
parents:
diff changeset
1360 NULL);
anatofuz
parents:
diff changeset
1361
anatofuz
parents:
diff changeset
1362 // Escape is absorbed exiting edit mode, so re-register important
anatofuz
parents:
diff changeset
1363 // sequences without the prefix
anatofuz
parents:
diff changeset
1364 el_set(m_editline, EL_BIND, "-a", "[A", "lldb-previous-line", NULL);
anatofuz
parents:
diff changeset
1365 el_set(m_editline, EL_BIND, "-a", "[B", "lldb-next-line", NULL);
anatofuz
parents:
diff changeset
1366 el_set(m_editline, EL_BIND, "-a", "[\\^", "lldb-revert-line", NULL);
anatofuz
parents:
diff changeset
1367 }
anatofuz
parents:
diff changeset
1368 }
anatofuz
parents:
diff changeset
1369 }
anatofuz
parents:
diff changeset
1370
anatofuz
parents:
diff changeset
1371 // Editline public methods
anatofuz
parents:
diff changeset
1372
anatofuz
parents:
diff changeset
1373 Editline *Editline::InstanceFor(EditLine *editline) {
anatofuz
parents:
diff changeset
1374 Editline *editor;
anatofuz
parents:
diff changeset
1375 el_get(editline, EL_CLIENTDATA, &editor);
anatofuz
parents:
diff changeset
1376 return editor;
anatofuz
parents:
diff changeset
1377 }
anatofuz
parents:
diff changeset
1378
anatofuz
parents:
diff changeset
1379 Editline::Editline(const char *editline_name, FILE *input_file,
236
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1380 FILE *output_file, FILE *error_file,
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1381 std::recursive_mutex &output_mutex, bool color_prompts)
150
anatofuz
parents:
diff changeset
1382 : m_editor_status(EditorStatus::Complete), m_color_prompts(color_prompts),
anatofuz
parents:
diff changeset
1383 m_input_file(input_file), m_output_file(output_file),
236
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1384 m_error_file(error_file), m_input_connection(fileno(input_file), false),
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1385 m_output_mutex(output_mutex) {
150
anatofuz
parents:
diff changeset
1386 // Get a shared history instance
anatofuz
parents:
diff changeset
1387 m_editor_name = (editline_name == nullptr) ? "lldb-tmp" : editline_name;
anatofuz
parents:
diff changeset
1388 m_history_sp = EditlineHistory::GetHistory(m_editor_name);
anatofuz
parents:
diff changeset
1389
anatofuz
parents:
diff changeset
1390 #ifdef USE_SETUPTERM_WORKAROUND
anatofuz
parents:
diff changeset
1391 if (m_output_file) {
anatofuz
parents:
diff changeset
1392 const int term_fd = fileno(m_output_file);
anatofuz
parents:
diff changeset
1393 if (term_fd != -1) {
236
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1394 static std::recursive_mutex *g_init_terminal_fds_mutex_ptr = nullptr;
150
anatofuz
parents:
diff changeset
1395 static std::set<int> *g_init_terminal_fds_ptr = nullptr;
anatofuz
parents:
diff changeset
1396 static llvm::once_flag g_once_flag;
anatofuz
parents:
diff changeset
1397 llvm::call_once(g_once_flag, [&]() {
anatofuz
parents:
diff changeset
1398 g_init_terminal_fds_mutex_ptr =
236
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1399 new std::recursive_mutex(); // NOTE: Leak to avoid C++ destructor
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1400 // chain issues
150
anatofuz
parents:
diff changeset
1401 g_init_terminal_fds_ptr = new std::set<int>(); // NOTE: Leak to avoid
anatofuz
parents:
diff changeset
1402 // C++ destructor chain
anatofuz
parents:
diff changeset
1403 // issues
anatofuz
parents:
diff changeset
1404 });
anatofuz
parents:
diff changeset
1405
anatofuz
parents:
diff changeset
1406 // We must make sure to initialize the terminal a given file descriptor
anatofuz
parents:
diff changeset
1407 // only once. If we do this multiple times, we start leaking memory.
236
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1408 std::lock_guard<std::recursive_mutex> guard(
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1409 *g_init_terminal_fds_mutex_ptr);
150
anatofuz
parents:
diff changeset
1410 if (g_init_terminal_fds_ptr->find(term_fd) ==
anatofuz
parents:
diff changeset
1411 g_init_terminal_fds_ptr->end()) {
anatofuz
parents:
diff changeset
1412 g_init_terminal_fds_ptr->insert(term_fd);
anatofuz
parents:
diff changeset
1413 setupterm((char *)0, term_fd, (int *)0);
anatofuz
parents:
diff changeset
1414 }
anatofuz
parents:
diff changeset
1415 }
anatofuz
parents:
diff changeset
1416 }
anatofuz
parents:
diff changeset
1417 #endif
anatofuz
parents:
diff changeset
1418 }
anatofuz
parents:
diff changeset
1419
anatofuz
parents:
diff changeset
1420 Editline::~Editline() {
anatofuz
parents:
diff changeset
1421 if (m_editline) {
anatofuz
parents:
diff changeset
1422 // Disable edit mode to stop the terminal from flushing all input during
anatofuz
parents:
diff changeset
1423 // the call to el_end() since we expect to have multiple editline instances
anatofuz
parents:
diff changeset
1424 // in this program.
anatofuz
parents:
diff changeset
1425 el_set(m_editline, EL_EDITMODE, 0);
anatofuz
parents:
diff changeset
1426 el_end(m_editline);
anatofuz
parents:
diff changeset
1427 m_editline = nullptr;
anatofuz
parents:
diff changeset
1428 }
anatofuz
parents:
diff changeset
1429
anatofuz
parents:
diff changeset
1430 // EditlineHistory objects are sometimes shared between multiple Editline
anatofuz
parents:
diff changeset
1431 // instances with the same program name. So just release our shared pointer
anatofuz
parents:
diff changeset
1432 // and if we are the last owner, it will save the history to the history save
anatofuz
parents:
diff changeset
1433 // file automatically.
anatofuz
parents:
diff changeset
1434 m_history_sp.reset();
anatofuz
parents:
diff changeset
1435 }
anatofuz
parents:
diff changeset
1436
anatofuz
parents:
diff changeset
1437 void Editline::SetPrompt(const char *prompt) {
anatofuz
parents:
diff changeset
1438 m_set_prompt = prompt == nullptr ? "" : prompt;
anatofuz
parents:
diff changeset
1439 }
anatofuz
parents:
diff changeset
1440
anatofuz
parents:
diff changeset
1441 void Editline::SetContinuationPrompt(const char *continuation_prompt) {
anatofuz
parents:
diff changeset
1442 m_set_continuation_prompt =
anatofuz
parents:
diff changeset
1443 continuation_prompt == nullptr ? "" : continuation_prompt;
anatofuz
parents:
diff changeset
1444 }
anatofuz
parents:
diff changeset
1445
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1446 void Editline::TerminalSizeChanged() { m_terminal_size_has_changed = 1; }
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1447
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1448 void Editline::ApplyTerminalSizeChange() {
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1449 if (!m_editline)
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1450 return;
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1451
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1452 m_terminal_size_has_changed = 0;
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1453 el_resize(m_editline);
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1454 int columns;
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1455 // This function is documenting as taking (const char *, void *) for the
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1456 // vararg part, but in reality in was consuming arguments until the first
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1457 // null pointer. This was fixed in libedit in April 2019
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1458 // <http://mail-index.netbsd.org/source-changes/2019/04/26/msg105454.html>,
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1459 // but we're keeping the workaround until a version with that fix is more
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1460 // widely available.
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1461 if (el_get(m_editline, EL_GETTC, "co", &columns, nullptr) == 0) {
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1462 m_terminal_width = columns;
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1463 if (m_current_line_rows != -1) {
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1464 const LineInfoW *info = el_wline(m_editline);
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1465 int lineLength =
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1466 (int)((info->lastchar - info->buffer) + GetPromptWidth());
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1467 m_current_line_rows = (lineLength / columns) + 1;
150
anatofuz
parents:
diff changeset
1468 }
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1469 } else {
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1470 m_terminal_width = INT_MAX;
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
1471 m_current_line_rows = 1;
150
anatofuz
parents:
diff changeset
1472 }
anatofuz
parents:
diff changeset
1473 }
anatofuz
parents:
diff changeset
1474
anatofuz
parents:
diff changeset
1475 const char *Editline::GetPrompt() { return m_set_prompt.c_str(); }
anatofuz
parents:
diff changeset
1476
anatofuz
parents:
diff changeset
1477 uint32_t Editline::GetCurrentLine() { return m_current_line_index; }
anatofuz
parents:
diff changeset
1478
anatofuz
parents:
diff changeset
1479 bool Editline::Interrupt() {
anatofuz
parents:
diff changeset
1480 bool result = true;
236
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1481 std::lock_guard<std::recursive_mutex> guard(m_output_mutex);
150
anatofuz
parents:
diff changeset
1482 if (m_editor_status == EditorStatus::Editing) {
anatofuz
parents:
diff changeset
1483 fprintf(m_output_file, "^C\n");
anatofuz
parents:
diff changeset
1484 result = m_input_connection.InterruptRead();
anatofuz
parents:
diff changeset
1485 }
anatofuz
parents:
diff changeset
1486 m_editor_status = EditorStatus::Interrupted;
anatofuz
parents:
diff changeset
1487 return result;
anatofuz
parents:
diff changeset
1488 }
anatofuz
parents:
diff changeset
1489
anatofuz
parents:
diff changeset
1490 bool Editline::Cancel() {
anatofuz
parents:
diff changeset
1491 bool result = true;
236
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1492 std::lock_guard<std::recursive_mutex> guard(m_output_mutex);
150
anatofuz
parents:
diff changeset
1493 if (m_editor_status == EditorStatus::Editing) {
anatofuz
parents:
diff changeset
1494 MoveCursor(CursorLocation::EditingCursor, CursorLocation::BlockStart);
anatofuz
parents:
diff changeset
1495 fprintf(m_output_file, ANSI_CLEAR_BELOW);
anatofuz
parents:
diff changeset
1496 result = m_input_connection.InterruptRead();
anatofuz
parents:
diff changeset
1497 }
anatofuz
parents:
diff changeset
1498 m_editor_status = EditorStatus::Interrupted;
anatofuz
parents:
diff changeset
1499 return result;
anatofuz
parents:
diff changeset
1500 }
anatofuz
parents:
diff changeset
1501
anatofuz
parents:
diff changeset
1502 bool Editline::GetLine(std::string &line, bool &interrupted) {
anatofuz
parents:
diff changeset
1503 ConfigureEditor(false);
anatofuz
parents:
diff changeset
1504 m_input_lines = std::vector<EditLineStringType>();
anatofuz
parents:
diff changeset
1505 m_input_lines.insert(m_input_lines.begin(), EditLineConstString(""));
anatofuz
parents:
diff changeset
1506
236
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1507 std::lock_guard<std::recursive_mutex> guard(m_output_mutex);
150
anatofuz
parents:
diff changeset
1508
anatofuz
parents:
diff changeset
1509 lldbassert(m_editor_status != EditorStatus::Editing);
anatofuz
parents:
diff changeset
1510 if (m_editor_status == EditorStatus::Interrupted) {
anatofuz
parents:
diff changeset
1511 m_editor_status = EditorStatus::Complete;
anatofuz
parents:
diff changeset
1512 interrupted = true;
anatofuz
parents:
diff changeset
1513 return true;
anatofuz
parents:
diff changeset
1514 }
anatofuz
parents:
diff changeset
1515
anatofuz
parents:
diff changeset
1516 SetCurrentLine(0);
anatofuz
parents:
diff changeset
1517 m_in_history = false;
anatofuz
parents:
diff changeset
1518 m_editor_status = EditorStatus::Editing;
anatofuz
parents:
diff changeset
1519 m_revert_cursor_index = -1;
anatofuz
parents:
diff changeset
1520
anatofuz
parents:
diff changeset
1521 int count;
anatofuz
parents:
diff changeset
1522 auto input = el_wgets(m_editline, &count);
anatofuz
parents:
diff changeset
1523
anatofuz
parents:
diff changeset
1524 interrupted = m_editor_status == EditorStatus::Interrupted;
anatofuz
parents:
diff changeset
1525 if (!interrupted) {
anatofuz
parents:
diff changeset
1526 if (input == nullptr) {
anatofuz
parents:
diff changeset
1527 fprintf(m_output_file, "\n");
anatofuz
parents:
diff changeset
1528 m_editor_status = EditorStatus::EndOfInput;
anatofuz
parents:
diff changeset
1529 } else {
anatofuz
parents:
diff changeset
1530 m_history_sp->Enter(input);
anatofuz
parents:
diff changeset
1531 #if LLDB_EDITLINE_USE_WCHAR
anatofuz
parents:
diff changeset
1532 line = m_utf8conv.to_bytes(SplitLines(input)[0]);
anatofuz
parents:
diff changeset
1533 #else
anatofuz
parents:
diff changeset
1534 line = SplitLines(input)[0];
anatofuz
parents:
diff changeset
1535 #endif
anatofuz
parents:
diff changeset
1536 m_editor_status = EditorStatus::Complete;
anatofuz
parents:
diff changeset
1537 }
anatofuz
parents:
diff changeset
1538 }
anatofuz
parents:
diff changeset
1539 return m_editor_status != EditorStatus::EndOfInput;
anatofuz
parents:
diff changeset
1540 }
anatofuz
parents:
diff changeset
1541
anatofuz
parents:
diff changeset
1542 bool Editline::GetLines(int first_line_number, StringList &lines,
anatofuz
parents:
diff changeset
1543 bool &interrupted) {
anatofuz
parents:
diff changeset
1544 ConfigureEditor(true);
anatofuz
parents:
diff changeset
1545
anatofuz
parents:
diff changeset
1546 // Print the initial input lines, then move the cursor back up to the start
anatofuz
parents:
diff changeset
1547 // of input
anatofuz
parents:
diff changeset
1548 SetBaseLineNumber(first_line_number);
anatofuz
parents:
diff changeset
1549 m_input_lines = std::vector<EditLineStringType>();
anatofuz
parents:
diff changeset
1550 m_input_lines.insert(m_input_lines.begin(), EditLineConstString(""));
anatofuz
parents:
diff changeset
1551
236
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1552 std::lock_guard<std::recursive_mutex> guard(m_output_mutex);
150
anatofuz
parents:
diff changeset
1553 // Begin the line editing loop
anatofuz
parents:
diff changeset
1554 DisplayInput();
anatofuz
parents:
diff changeset
1555 SetCurrentLine(0);
anatofuz
parents:
diff changeset
1556 MoveCursor(CursorLocation::BlockEnd, CursorLocation::BlockStart);
anatofuz
parents:
diff changeset
1557 m_editor_status = EditorStatus::Editing;
anatofuz
parents:
diff changeset
1558 m_in_history = false;
anatofuz
parents:
diff changeset
1559
anatofuz
parents:
diff changeset
1560 m_revert_cursor_index = -1;
anatofuz
parents:
diff changeset
1561 while (m_editor_status == EditorStatus::Editing) {
anatofuz
parents:
diff changeset
1562 int count;
anatofuz
parents:
diff changeset
1563 m_current_line_rows = -1;
anatofuz
parents:
diff changeset
1564 el_wpush(m_editline, EditLineConstString(
anatofuz
parents:
diff changeset
1565 "\x1b[^")); // Revert to the existing line content
anatofuz
parents:
diff changeset
1566 el_wgets(m_editline, &count);
anatofuz
parents:
diff changeset
1567 }
anatofuz
parents:
diff changeset
1568
anatofuz
parents:
diff changeset
1569 interrupted = m_editor_status == EditorStatus::Interrupted;
anatofuz
parents:
diff changeset
1570 if (!interrupted) {
236
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1571 // Save the completed entry in history before returning. Don't save empty
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1572 // input as that just clutters the command history.
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1573 if (!m_input_lines.empty())
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1574 m_history_sp->Enter(CombineLines(m_input_lines).c_str());
150
anatofuz
parents:
diff changeset
1575
anatofuz
parents:
diff changeset
1576 lines = GetInputAsStringList();
anatofuz
parents:
diff changeset
1577 }
anatofuz
parents:
diff changeset
1578 return m_editor_status != EditorStatus::EndOfInput;
anatofuz
parents:
diff changeset
1579 }
anatofuz
parents:
diff changeset
1580
anatofuz
parents:
diff changeset
1581 void Editline::PrintAsync(Stream *stream, const char *s, size_t len) {
236
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1582 std::lock_guard<std::recursive_mutex> guard(m_output_mutex);
150
anatofuz
parents:
diff changeset
1583 if (m_editor_status == EditorStatus::Editing) {
anatofuz
parents:
diff changeset
1584 MoveCursor(CursorLocation::EditingCursor, CursorLocation::BlockStart);
anatofuz
parents:
diff changeset
1585 fprintf(m_output_file, ANSI_CLEAR_BELOW);
anatofuz
parents:
diff changeset
1586 }
anatofuz
parents:
diff changeset
1587 stream->Write(s, len);
anatofuz
parents:
diff changeset
1588 stream->Flush();
anatofuz
parents:
diff changeset
1589 if (m_editor_status == EditorStatus::Editing) {
anatofuz
parents:
diff changeset
1590 DisplayInput();
anatofuz
parents:
diff changeset
1591 MoveCursor(CursorLocation::BlockEnd, CursorLocation::EditingCursor);
anatofuz
parents:
diff changeset
1592 }
anatofuz
parents:
diff changeset
1593 }
anatofuz
parents:
diff changeset
1594
anatofuz
parents:
diff changeset
1595 bool Editline::CompleteCharacter(char ch, EditLineGetCharType &out) {
anatofuz
parents:
diff changeset
1596 #if !LLDB_EDITLINE_USE_WCHAR
anatofuz
parents:
diff changeset
1597 if (ch == (char)EOF)
anatofuz
parents:
diff changeset
1598 return false;
anatofuz
parents:
diff changeset
1599
anatofuz
parents:
diff changeset
1600 out = (unsigned char)ch;
anatofuz
parents:
diff changeset
1601 return true;
anatofuz
parents:
diff changeset
1602 #else
anatofuz
parents:
diff changeset
1603 std::codecvt_utf8<wchar_t> cvt;
anatofuz
parents:
diff changeset
1604 llvm::SmallString<4> input;
anatofuz
parents:
diff changeset
1605 for (;;) {
anatofuz
parents:
diff changeset
1606 const char *from_next;
anatofuz
parents:
diff changeset
1607 wchar_t *to_next;
anatofuz
parents:
diff changeset
1608 std::mbstate_t state = std::mbstate_t();
anatofuz
parents:
diff changeset
1609 input.push_back(ch);
anatofuz
parents:
diff changeset
1610 switch (cvt.in(state, input.begin(), input.end(), from_next, &out, &out + 1,
anatofuz
parents:
diff changeset
1611 to_next)) {
anatofuz
parents:
diff changeset
1612 case std::codecvt_base::ok:
236
c4bab56944e8 LLVM 16
kono
parents: 221
diff changeset
1613 return out != (EditLineGetCharType)WEOF;
150
anatofuz
parents:
diff changeset
1614
anatofuz
parents:
diff changeset
1615 case std::codecvt_base::error:
anatofuz
parents:
diff changeset
1616 case std::codecvt_base::noconv:
anatofuz
parents:
diff changeset
1617 return false;
anatofuz
parents:
diff changeset
1618
anatofuz
parents:
diff changeset
1619 case std::codecvt_base::partial:
anatofuz
parents:
diff changeset
1620 lldb::ConnectionStatus status;
anatofuz
parents:
diff changeset
1621 size_t read_count = m_input_connection.Read(
anatofuz
parents:
diff changeset
1622 &ch, 1, std::chrono::seconds(0), status, nullptr);
anatofuz
parents:
diff changeset
1623 if (read_count == 0)
anatofuz
parents:
diff changeset
1624 return false;
anatofuz
parents:
diff changeset
1625 break;
anatofuz
parents:
diff changeset
1626 }
anatofuz
parents:
diff changeset
1627 }
anatofuz
parents:
diff changeset
1628 #endif
anatofuz
parents:
diff changeset
1629 }