// Pretty-prints a lisp AST
std::string printAST(Node ast, bool printMetadata) {
if (ast.type == TOKEN) return ast.val;
std::string o = "(";
if (printMetadata) {
o += ast.metadata.file + " ";
o += unsignedToDecimal(ast.metadata.ln) + " ";
o += unsignedToDecimal(ast.metadata.ch) + ": ";
}
o += ast.val;
std::vector<std::string> subs;
for (unsigned i = 0; i < ast.args.size(); i++) {
subs.push_back(printAST(ast.args[i], printMetadata));
}
unsigned k = 0;
std::string out = " ";
// As many arguments as possible go on the same line as the function,
// except when seq is used
while (k < subs.size() && o != "(seq") {
if (subs[k].find("\n") != std::string::npos || (out + subs[k]).length() >= 80) break;
out += subs[k] + " ";
k += 1;
}
// All remaining arguments go on their own lines
if (k < subs.size()) {
o += out + "\n";
std::vector<std::string> subsSliceK;
for (unsigned i = k; i < subs.size(); i++) subsSliceK.push_back(subs[i]);
o += indentLines(joinLines(subsSliceK));
o += "\n)";
}
else {
o += out.substr(0, out.size() - 1) + ")";
}
return o;
}
QodeEditor::QodeEditor( QWidget* parent )
: CodeEditor( parent )
{
setCaretLineBackground( QColor( 150, 150, 150, 150 ) );
MarginStacker* margins = new MarginStacker( this );
margins->setVisible( QodeEdit::BookmarkMargin, true );
margins->setVisible( QodeEdit::NumberMargin, true );
margins->setVisible( QodeEdit::RevisionMargin, true );
margins->setVisible( QodeEdit::FoldMargin, true );
margins->setVisible( QodeEdit::SpaceMargin, true );
setCaretLineBackground(paper());
// fake save document shortcut
new QShortcut( QKeySequence::Save, this, SLOT( save() ) );
new QShortcut( QKeySequence("Ctrl+Shift+D"), this, SLOT(duplicateLine()) );
new QShortcut( QKeySequence("Ctrl+Shift+Up"), this, SLOT(swapLineUp()) );
new QShortcut( QKeySequence("Ctrl+Shift+Down"), this, SLOT(swapLineDown()) );
new QShortcut( QKeySequence("Ctrl+]"), this, SLOT(indent()) );
new QShortcut( QKeySequence("Ctrl+["), this, SLOT(unindent()) );
new QShortcut( QKeySequence("Ctrl+J"), this, SLOT(joinLines()) );
new QShortcut( QKeySequence("Ctrl+Shift+L"), this, SLOT(expandSelectionToLine()) );
new QShortcut( QKeySequence("Ctrl+Shift+W"), this, SLOT(expandSelectionToWord()) );
}
/// Log exception (with query info) into text log (not into system table).
static void logException(Context & context, QueryLogElement & elem)
{
LOG_ERROR(&Logger::get("executeQuery"), elem.exception
<< " (from " << context.getIPAddress().toString() << ")"
<< " (in query: " << joinLines(elem.query) << ")"
<< (!elem.stack_trace.empty() ? ", Stack trace:\n\n" + elem.stack_trace : ""));
}
/*
* This is for internal use, the idea is that you can get a stack
* trace anywhere in the code by calling this function. Maybe it
* should be moved to trace.c.
*/
char *
stackdump(void)
{
void *trace[16];
char **messages = 0, **msg = 0;
int i, trace_size = 0;
char *p, *q;
char *ret;
trace_size = backtrace(trace, 16);
messages = backtrace_symbols(trace, trace_size);
for (i = 0; i < trace_size; i++) {
p = strstr(messages[i], "0x");
p += 2;
while (!isspace(*p)) p++;
p++;
q = strchr(p, '+');
q--;
*q = 0;
msg = addLine(msg, p);
}
removeLineN(msg, 1, 0);
reverseLines(msg);
ret = joinLines(" -> ", msg);
freeLines(msg, 0);
free(messages);
return (ret);
}
bool TextOArchive::joinLinesIfPossible()
{
YASLI_ASSERT(!stack_.empty());
std::size_t startPosition = stack_.back().startPosition;
YASLI_ASSERT(startPosition < buffer_->size());
int indentCount = stack_.back().indentCount;
//YASLI_ASSERT(startPosition >= indentCount);
if(buffer_->position() - startPosition - indentCount < std::size_t(textWidth_)) {
char* buffer = buffer_->buffer();
char* start = buffer + startPosition;
char* end = buffer + buffer_->position();
end = joinLines(start, end);
std::size_t newPosition = end - buffer;
YASLI_ASSERT(newPosition <= buffer_->position());
buffer_->setPosition(newPosition);
return true;
}
return false;
}
// Indent all lines by 4 spaces
std::string indentLines(std::string inp) {
std::vector<std::string> lines = splitLines(inp);
for (unsigned i = 0; i < lines.size(); i++) lines[i] = " "+lines[i];
return joinLines(lines);
}
void LiteEditor::createActions()
{
LiteApi::IActionContext *actionContext = m_liteApp->actionManager()->getActionContext(this,"Editor");
m_undoAct = new QAction(QIcon("icon:liteeditor/images/undo.png"),tr("Undo"),this);
actionContext->regAction(m_undoAct,"Undo",QKeySequence::Undo);
m_redoAct = new QAction(QIcon("icon:liteeditor/images/redo.png"),tr("Redo"),this);
actionContext->regAction(m_redoAct,"Redo","Ctrl+Shift+Z; Ctrl+Y");
m_cutAct = new QAction(QIcon("icon:liteeditor/images/cut.png"),tr("Cut"),this);
actionContext->regAction(m_cutAct,"Cut",QKeySequence::Cut);
m_copyAct = new QAction(QIcon("icon:liteeditor/images/copy.png"),tr("Copy"),this);
actionContext->regAction(m_copyAct,"Copy",QKeySequence::Copy);
m_pasteAct = new QAction(QIcon("icon:liteeditor/images/paste.png"),tr("Paste"),this);
actionContext->regAction(m_pasteAct,"Paste",QKeySequence::Paste);
m_selectAllAct = new QAction(tr("Select All"),this);
actionContext->regAction(m_selectAllAct,"SelectAll",QKeySequence::SelectAll);
m_exportHtmlAct = new QAction(QIcon("icon:liteeditor/images/exporthtml.png"),tr("Export HTML..."),this);
#ifndef QT_NO_PRINTER
m_exportPdfAct = new QAction(QIcon("icon:liteeditor/images/exportpdf.png"),tr("Export PDF..."),this);
m_filePrintAct = new QAction(QIcon("icon:liteeditor/images/fileprint.png"),tr("Print..."),this);
m_filePrintPreviewAct = new QAction(QIcon("icon:liteeditor/images/fileprintpreview.png"),tr("Print Preview..."),this);
#endif
m_gotoPrevBlockAct = new QAction(tr("Go To Previous Block"),this);
actionContext->regAction(m_gotoPrevBlockAct,"GotoPreviousBlock","Ctrl+[");
m_gotoNextBlockAct = new QAction(tr("Go To Next Block"),this);
actionContext->regAction(m_gotoNextBlockAct,"GotoNextBlock","Ctrl+]");
m_selectBlockAct = new QAction(tr("Select Block"),this);
actionContext->regAction(m_selectBlockAct,"SelectBlock","Ctrl+U");
m_gotoMatchBraceAct = new QAction(tr("Go To Matching Brace"),this);
actionContext->regAction(m_gotoMatchBraceAct,"GotoMatchBrace","Ctrl+E");
m_foldAct = new QAction(tr("Fold"),this);
actionContext->regAction(m_foldAct,"Fold","Ctrl+<");
m_unfoldAct = new QAction(tr("Unfold"),this);
actionContext->regAction(m_unfoldAct,"Unfold","Ctrl+>");
m_foldAllAct = new QAction(tr("Fold All"),this);
actionContext->regAction(m_foldAllAct,"FoldAll","");
m_unfoldAllAct = new QAction(tr("Unfold All"),this);
actionContext->regAction(m_unfoldAllAct,"UnfoldAll","");
connect(m_foldAct,SIGNAL(triggered()),m_editorWidget,SLOT(fold()));
connect(m_unfoldAct,SIGNAL(triggered()),m_editorWidget,SLOT(unfold()));
connect(m_foldAllAct,SIGNAL(triggered()),m_editorWidget,SLOT(foldAll()));
connect(m_unfoldAllAct,SIGNAL(triggered()),m_editorWidget,SLOT(unfoldAll()));
m_gotoLineAct = new QAction(tr("Go To Line"),this);
actionContext->regAction(m_gotoLineAct,"GotoLine","Ctrl+L");
m_lockAct = new QAction(QIcon("icon:liteeditor/images/lock.png"),tr("Locked"),this);
m_lockAct->setEnabled(false);
m_duplicateAct = new QAction(tr("Duplicate"),this);
actionContext->regAction(m_duplicateAct,"Duplicate","Ctrl+Shift+D");
connect(m_duplicateAct,SIGNAL(triggered()),m_editorWidget,SLOT(duplicate()));
m_deleteLineAct = new QAction(tr("Delete Line"),this);
actionContext->regAction(m_deleteLineAct,"DeleteLine","Ctrl+Shift+K");
connect(m_deleteLineAct,SIGNAL(triggered()),m_editorWidget,SLOT(deleteLine()));
m_copyLineAct = new QAction(tr("Copy Line"),this);
actionContext->regAction(m_copyLineAct,"CopyLine","Ctrl+Ins");
connect(m_copyLineAct,SIGNAL(triggered()),m_editorWidget,SLOT(copyLine()));
m_cutLineAct = new QAction(tr("Cut Line"),this);
actionContext->regAction(m_cutLineAct,"CutLine","Shift+Del");
connect(m_cutLineAct,SIGNAL(triggered()),m_editorWidget,SLOT(cutLine()));
m_insertLineBeforeAct = new QAction(tr("Insert Line Before"),this);
actionContext->regAction(m_insertLineBeforeAct,"InsertLineBefore","Ctrl+Shift+Return");
connect(m_insertLineBeforeAct,SIGNAL(triggered()),m_editorWidget,SLOT(insertLineBefore()));
m_insertLineAfterAct = new QAction(tr("Insert Line After"),this);
actionContext->regAction(m_insertLineAfterAct,"InsertLineAfter","Ctrl+Return");
connect(m_insertLineAfterAct,SIGNAL(triggered()),m_editorWidget,SLOT(insertLineAfter()));
m_increaseFontSizeAct = new QAction(tr("Increase Font Size"),this);
actionContext->regAction(m_increaseFontSizeAct,"IncreaseFontSize","Ctrl++");
m_decreaseFontSizeAct = new QAction(tr("Decrease Font Size"),this);
actionContext->regAction(m_decreaseFontSizeAct,"DecreaseFontSize","Ctrl+-");
m_resetFontSizeAct = new QAction(tr("Reset Font Size"),this);
actionContext->regAction(m_resetFontSizeAct,"ResetFontSize","Ctrl+0");
m_cleanWhitespaceAct = new QAction(tr("Clean Whitespace"),this);
actionContext->regAction(m_cleanWhitespaceAct,"CleanWhitespace","");
m_wordWrapAct = new QAction(tr("Word Wrap (MimeType)"),this);
m_wordWrapAct->setCheckable(true);
actionContext->regAction(m_wordWrapAct,"WordWrap","");
m_codeCompleteAct = new QAction(tr("Code Complete"),this);
#ifdef Q_OS_MAC
actionContext->regAction(m_codeCompleteAct,"CodeComplete","Meta+Space");
#else
actionContext->regAction(m_codeCompleteAct,"CodeComplete","Ctrl+Space");
#endif
m_commentAct = new QAction(tr("Toggle Comment"),this);
actionContext->regAction(m_commentAct,"Comment","Ctrl+/");
m_blockCommentAct = new QAction(tr("Toggle Block Commnet"),this);
actionContext->regAction(m_blockCommentAct,"BlockComment","Ctrl+Shift+/");
m_autoIndentAct = new QAction(tr("Auto-indent Selection"),this);
actionContext->regAction(m_autoIndentAct,"AutoIndent","Ctrl+I");
m_autoIndentAct->setVisible(false);
m_tabToSpacesAct = new QAction(tr("Tab To Spaces (MimeType)"),this);
actionContext->regAction(m_tabToSpacesAct,"TabToSpaces","");
m_tabToSpacesAct->setCheckable(true);
m_lineEndingWindowAct = new QAction(tr("Line End Windows (\\r\\n)"),this);
actionContext->regAction(m_lineEndingWindowAct,"LineEndingWindow","");
m_lineEndingWindowAct->setCheckable(true);
m_lineEndingUnixAct = new QAction(tr("Line End Unix (\\n)"),this);
actionContext->regAction(m_lineEndingUnixAct,"LineEndingUnix","");
m_lineEndingUnixAct->setCheckable(true);
m_visualizeWhitespaceAct = new QAction(tr("Visualize Whitespace (Global)"),this);
actionContext->regAction(m_visualizeWhitespaceAct,"VisualizeWhitespace","");
m_visualizeWhitespaceAct->setCheckable(true);
m_commentAct->setVisible(false);
m_blockCommentAct->setVisible(false);
m_moveLineUpAction = new QAction(tr("Move Line Up"),this);
actionContext->regAction(m_moveLineUpAction,"MoveLineUp","Ctrl+Shift+Up");
m_moveLineDownAction = new QAction(tr("Move Line Down"),this);
actionContext->regAction(m_moveLineDownAction,"MoveLineDown","Ctrl+Shift+Down");
m_copyLineUpAction = new QAction(tr("Copy Line Up"),this);
actionContext->regAction(m_copyLineUpAction,"CopyLineUp","Ctrl+Alt+Up");
m_copyLineDownAction = new QAction(tr("Copy Line Down"),this);
actionContext->regAction(m_copyLineDownAction,"CopyLineDown","Ctrl+Alt+Down");
m_joinLinesAction = new QAction(tr("Join Lines"),this);
actionContext->regAction(m_joinLinesAction,"JoinLines","Ctrl+J");
connect(m_codeCompleteAct,SIGNAL(triggered()),m_editorWidget,SLOT(codeCompleter()));
// m_widget->addAction(m_foldAct);
// m_widget->addAction(m_unfoldAct);
// m_widget->addAction(m_gotoLineAct);
// m_widget->addAction(m_gotoPrevBlockAct);
// m_widget->addAction(m_gotoNextBlockAct);
// m_widget->addAction(m_selectBlockAct);
// m_widget->addAction(m_gotoMatchBraceAct);
connect(m_editorWidget,SIGNAL(undoAvailable(bool)),m_undoAct,SLOT(setEnabled(bool)));
connect(m_editorWidget,SIGNAL(redoAvailable(bool)),m_redoAct,SLOT(setEnabled(bool)));
connect(m_editorWidget,SIGNAL(copyAvailable(bool)),m_cutAct,SLOT(setEnabled(bool)));
connect(m_editorWidget,SIGNAL(copyAvailable(bool)),m_copyAct,SLOT(setEnabled(bool)));
connect(m_editorWidget,SIGNAL(wordWrapChanged(bool)),m_wordWrapAct,SLOT(setChecked(bool)));
connect(m_undoAct,SIGNAL(triggered()),m_editorWidget,SLOT(undo()));
connect(m_redoAct,SIGNAL(triggered()),m_editorWidget,SLOT(redo()));
connect(m_cutAct,SIGNAL(triggered()),m_editorWidget,SLOT(cut()));
connect(m_copyAct,SIGNAL(triggered()),m_editorWidget,SLOT(copy()));
connect(m_pasteAct,SIGNAL(triggered()),m_editorWidget,SLOT(paste()));
connect(m_selectAllAct,SIGNAL(triggered()),m_editorWidget,SLOT(selectAll()));
connect(m_selectBlockAct,SIGNAL(triggered()),m_editorWidget,SLOT(selectBlock()));
connect(m_exportHtmlAct,SIGNAL(triggered()),this,SLOT(exportHtml()));
#ifndef QT_NO_PRINTER
connect(m_exportPdfAct,SIGNAL(triggered()),this,SLOT(exportPdf()));
connect(m_filePrintAct,SIGNAL(triggered()),this,SLOT(filePrint()));
connect(m_filePrintPreviewAct,SIGNAL(triggered()),this,SLOT(filePrintPreview()));
#endif
connect(m_gotoPrevBlockAct,SIGNAL(triggered()),m_editorWidget,SLOT(gotoPrevBlock()));
connect(m_gotoNextBlockAct,SIGNAL(triggered()),m_editorWidget,SLOT(gotoNextBlock()));
connect(m_gotoMatchBraceAct,SIGNAL(triggered()),m_editorWidget,SLOT(gotoMatchBrace()));
connect(m_gotoLineAct,SIGNAL(triggered()),this,SLOT(gotoLine()));
connect(m_increaseFontSizeAct,SIGNAL(triggered()),this,SLOT(increaseFontSize()));
connect(m_decreaseFontSizeAct,SIGNAL(triggered()),this,SLOT(decreaseFontSize()));
connect(m_resetFontSizeAct,SIGNAL(triggered()),this,SLOT(resetFontSize()));
connect(m_cleanWhitespaceAct,SIGNAL(triggered()),m_editorWidget,SLOT(cleanWhitespace()));
connect(m_wordWrapAct,SIGNAL(triggered(bool)),m_editorWidget,SLOT(setWordWrapOverride(bool)));
connect(m_commentAct,SIGNAL(triggered()),this,SLOT(comment()));
connect(m_blockCommentAct,SIGNAL(triggered()),this,SLOT(blockComment()));
connect(m_autoIndentAct,SIGNAL(triggered()),this,SLOT(autoIndent()));
connect(m_tabToSpacesAct,SIGNAL(toggled(bool)),this,SLOT(tabToSpacesToggled(bool)));
connect(m_visualizeWhitespaceAct,SIGNAL(toggled(bool)),this,SLOT(toggledVisualizeWhitespace(bool)));
connect(m_moveLineUpAction,SIGNAL(triggered()),m_editorWidget,SLOT(moveLineUp()));
connect(m_moveLineDownAction,SIGNAL(triggered()),m_editorWidget,SLOT(moveLineDown()));
connect(m_copyLineUpAction,SIGNAL(triggered()),m_editorWidget,SLOT(copyLineUp()));
connect(m_copyLineDownAction,SIGNAL(triggered()),m_editorWidget,SLOT(copyLineDown()));
connect(m_joinLinesAction,SIGNAL(triggered()),m_editorWidget,SLOT(joinLines()));
//connect(m_lineEndingWindowAct,SIGNAL(triggered()),this,SLOT(lineEndingWindow()));
//connect(m_lineEndingUnixAct,SIGNAL(triggered()),this,SLOT(lineEndingUnixAct()));
QActionGroup *group = new QActionGroup(this);
group->addAction(m_lineEndingWindowAct);
group->addAction(m_lineEndingUnixAct);
connect(group,SIGNAL(triggered(QAction*)),this,SLOT(triggeredLineEnding(QAction*)));
#ifdef Q_OS_WIN
QClipboard *clipboard = QApplication::clipboard();
connect(clipboard,SIGNAL(dataChanged()),this,SLOT(clipbordDataChanged()));
clipbordDataChanged();
#endif
}
/// Log query into text log (not into system table).
static void logQuery(const String & query, const Context & context)
{
LOG_DEBUG(&Logger::get("executeQuery"), "(from " << context.getIPAddress().toString() << ") " << joinLines(query));
}