void SmartIndentPascal::OnEditorHook(cbEditor* ed, wxScintillaEvent& event) const
{
if (!ed) return;
// check the event type and the currently set language
// if it is not a CharAdded event or the language is not Pascal return
wxEventType type = event.GetEventType();
if ( type != wxEVT_SCI_CHARADDED ) return;
cbStyledTextCtrl* stc = ed->GetControl();
if ( !stc ) return;
// check if smart indent is enabled
const bool smartIndent = Manager::Get()->GetConfigManager(_T("editor"))->ReadBool(_T("/smart_indent"), true);
if ( !smartIndent ) return;
wxString langname = Manager::Get()->GetEditorManager()->GetColourSet()->GetLanguageName(ed->GetLanguage());
if ( langname != wxT("Pascal") ) return;
ed->AutoIndentDone(); // we are responsible.
wxChar ch = event.GetKey();
if ( (ch == wxT('\n')) || ( (stc->GetEOLMode() == wxSCI_EOL_CR) && (ch == wxT('\r')) ) )
DoIndent(ed, langname); // indent because \n added
else if ( ch != wxT(' ') )
DoUnIndent(ed, langname); // un-indent because not a newline added
bool braceCompleted = false;
if ( SelectionBraceCompletionEnabled() || stc->IsBraceShortcutActive() )
braceCompleted = stc->DoSelectionBraceCompletion(ch);
if (!braceCompleted && BraceCompletionEnabled())
stc->DoBraceCompletion(ch);
}
void SmartIndentCpp::OnEditorHook(cbEditor* ed, wxScintillaEvent& event) const
{
// check if smart indent is enabled
// check the event type and the currently set language
// if it is not a CharAdded event or the language is not C/C++, D, or Java return
if (!ed)
return;
if ( !SmartIndentEnabled() )
return;
wxEventType type = event.GetEventType();
if ( type != wxEVT_SCI_CHARADDED )
return;
cbStyledTextCtrl* stc = ed->GetControl();
if (!stc)
return;
wxString langname = Manager::Get()->GetEditorManager()->GetColourSet()->GetLanguageName(ed->GetLanguage());
if ( langname != wxT("D") && (stc->GetLexer() != wxSCI_LEX_CPP || langname == wxT("Hitachi asm"))) return;
ed->AutoIndentDone(); // we are responsible.
const int pos = stc->GetCurrentPos();
int currLine = stc->LineFromPosition(pos);
if (currLine == 0)
return;
const wxChar ch = event.GetKey();
if ( SelectionBraceCompletionEnabled() || stc->IsBraceShortcutActive() )
DoSelectionBraceCompletion(stc, ch);
DoSmartIndent(ed, ch);
if ( BraceCompletionEnabled() )
DoBraceCompletion(stc, ch);
}
void SmartIndentFortran::OnEditorHook(cbEditor* ed, wxScintillaEvent& event) const
{
// check if smart indent is enabled
// check the event type and the currently set language
// if it is not a CharAdded event or the language is not Fortran return
if (!ed)
return;
if ( !SmartIndentEnabled() )
return;
wxEventType type = event.GetEventType();
if ( type != wxEVT_SCI_CHARADDED )
return;
cbStyledTextCtrl* stc = ed->GetControl();
if (!stc)
return;
wxString langname = Manager::Get()->GetEditorManager()->GetColourSet()->GetLanguageName(ed->GetLanguage());
if ( langname != wxT("Fortran") && langname != wxT("Fortran77") ) return;
ed->AutoIndentDone(); // we are responsible.
const int pos = stc->GetCurrentPos();
wxChar ch = event.GetKey();
if ( (ch == _T('\n')) || ( (stc->GetEOLMode() == wxSCI_EOL_CR) && (ch == _T('\r')) ) )
{
const bool autoIndent = AutoIndentEnabled();
stc->BeginUndoAction();
int currLine = stc->LineFromPosition(pos);
// auto indent
if (autoIndent && currLine > 0)
{
wxString indent = ed->GetLineIndentString(currLine - 1);
stc->InsertText(pos, indent);
stc->GotoPos(pos + indent.Length());
stc->ChooseCaretX();
}
// smart indent
bool smartIndent = SmartIndentEnabled();
if (smartIndent && currLine > 0)
{
int start = stc->GetLineIndentPosition(currLine - 1);
int endt = stc->WordEndPosition(start, true);
wxString text = stc->GetTextRange(start, endt).Lower();
wxString lineText = stc->GetLine(currLine - 1).BeforeFirst('!').Lower();
wxString lastText = lineText.AfterLast(')').Trim().Trim(false);
wxString secText = lineText.Trim(false).Mid(text.Length()).Trim(false);
if ( (text == _T("if") && lastText == _T("then"))
|| text == _T("else")
|| text == _T("elseif")
|| text == _T("enum")
||(text == _T("where") && lastText.IsEmpty())
|| text == _T("elsewhere")
|| text == _T("block")
|| text == _T("blockdata")
||(text == _T("forall") && lastText.IsEmpty())
|| text == _T("while")
|| text == _T("case")
|| text == _T("associate")
|| text == _T("block")
|| text == _T("critical")
|| text == _T("do")
||(text == _T("type") && !secText.StartsWith(_T("(")))
|| text == _T("program")
|| text == _T("function")
|| text == _T("subroutine")
|| text == _T("interface")
||( text == _T("module")
&& !secText.StartsWith(_T("procedure "))
&& !secText.StartsWith(_T("procedure:")) ) )
{
stc->Tab();
}
}
stc->EndUndoAction();
}
bool braceCompleted = false;
if ( SelectionBraceCompletionEnabled() || stc->IsBraceShortcutActive() )
braceCompleted = stc->DoSelectionBraceCompletion(ch);
if (!braceCompleted && BraceCompletionEnabled())
stc->DoBraceCompletion(ch);
}
