Initial commit: ReclassX structured binary editor

third_party/qscintilla/src/qscilexerlua.cpp

@@ -0,0 +1,368 @@
+// This module implements the QsciLexerLua class.
+//
+// Copyright (c) 2023 Riverbank Computing Limited <info@riverbankcomputing.com>
+// 
+// This file is part of QScintilla.
+// 
+// This file may be used under the terms of the GNU General Public License
+// version 3.0 as published by the Free Software Foundation and appearing in
+// the file LICENSE included in the packaging of this file.  Please review the
+// following information to ensure the GNU General Public License version 3.0
+// requirements will be met: http://www.gnu.org/copyleft/gpl.html.
+// 
+// If you do not wish to use this file under the terms of the GPL version 3.0
+// then you may purchase a commercial license.  For more information contact
+// info@riverbankcomputing.com.
+// 
+// This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
+// WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+
+
+#include "Qsci/qscilexerlua.h"
+
+#include <qcolor.h>
+#include <qfont.h>
+#include <qsettings.h>
+
+
+// The ctor.
+QsciLexerLua::QsciLexerLua(QObject *parent)
+    : QsciLexer(parent), fold_compact(true)
+{
+}
+
+
+// The dtor.
+QsciLexerLua::~QsciLexerLua()
+{
+}
+
+
+// Returns the language name.
+const char *QsciLexerLua::language() const
+{
+    return "Lua";
+}
+
+
+// Returns the lexer name.
+const char *QsciLexerLua::lexer() const
+{
+    return "lua";
+}
+
+
+// Return the set of character sequences that can separate auto-completion
+// words.
+QStringList QsciLexerLua::autoCompletionWordSeparators() const
+{
+    QStringList wl;
+
+    wl << ":" << ".";
+
+    return wl;
+}
+
+
+// Return the list of characters that can start a block.
+const char *QsciLexerLua::blockStart(int *style) const
+{
+    if (style)
+        *style = Operator;
+
+    return "";
+}
+
+
+// Return the style used for braces.
+int QsciLexerLua::braceStyle() const
+{
+    return Operator;
+}
+
+
+// Returns the foreground colour of the text for a style.
+QColor QsciLexerLua::defaultColor(int style) const
+{
+    switch (style)
+    {
+    case Default:
+        return QColor(0x00,0x00,0x00);
+
+    case Comment:
+    case LineComment:
+        return QColor(0x00,0x7f,0x00);
+
+    case Number:
+        return QColor(0x00,0x7f,0x7f);
+
+    case Keyword:
+    case BasicFunctions:
+    case StringTableMathsFunctions:
+    case CoroutinesIOSystemFacilities:
+        return QColor(0x00,0x00,0x7f);
+
+    case String:
+    case Character:
+    case LiteralString:
+        return QColor(0x7f,0x00,0x7f);
+
+    case Preprocessor:
+    case Label:
+        return QColor(0x7f,0x7f,0x00);
+
+    case Operator:
+    case Identifier:
+        break;
+    }
+
+    return QsciLexer::defaultColor(style);
+}
+
+
+// Returns the end-of-line fill for a style.
+bool QsciLexerLua::defaultEolFill(int style) const
+{
+    if (style == Comment || style == UnclosedString)
+        return true;
+
+    return QsciLexer::defaultEolFill(style);
+}
+
+
+// Returns the font of the text for a style.
+QFont QsciLexerLua::defaultFont(int style) const
+{
+    QFont f;
+
+    switch (style)
+    {
+    case Comment:
+    case LineComment:
+    case LiteralString:
+#if defined(Q_OS_WIN)
+        f = QFont("Comic Sans MS",9);
+#elif defined(Q_OS_MAC)
+        f = QFont("Comic Sans MS", 12);
+#else
+        f = QFont("Bitstream Vera Serif",9);
+#endif
+        break;
+
+    default:
+        f = QsciLexer::defaultFont(style);
+    }
+
+    return f;
+}
+
+
+// Returns the set of keywords.
+const char *QsciLexerLua::keywords(int set) const
+{
+    if (set == 1)
+        // Keywords.
+        return
+            "and break do else elseif end false for function if "
+            "in local nil not or repeat return then true until "
+            "while";
+
+    if (set == 2)
+        // Basic functions.
+        return
+            "_ALERT _ERRORMESSAGE _INPUT _PROMPT _OUTPUT _STDERR "
+            "_STDIN _STDOUT call dostring foreach foreachi getn "
+            "globals newtype rawget rawset require sort tinsert "
+            "tremove "
+
+            "G getfenv getmetatable ipairs loadlib next pairs "
+            "pcall rawegal rawget rawset require setfenv "
+            "setmetatable xpcall string table math coroutine io "
+            "os debug";
+
+    if (set == 3)
+        // String, table and maths functions.
+        return
+            "abs acos asin atan atan2 ceil cos deg exp floor "
+            "format frexp gsub ldexp log log10 max min mod rad "
+            "random randomseed sin sqrt strbyte strchar strfind "
+            "strlen strlower strrep strsub strupper tan "
+
+            "string.byte string.char string.dump string.find "
+            "string.len string.lower string.rep string.sub "
+            "string.upper string.format string.gfind string.gsub "
+            "table.concat table.foreach table.foreachi table.getn "
+            "table.sort table.insert table.remove table.setn "
+            "math.abs math.acos math.asin math.atan math.atan2 "
+            "math.ceil math.cos math.deg math.exp math.floor "
+            "math.frexp math.ldexp math.log math.log10 math.max "
+            "math.min math.mod math.pi math.rad math.random "
+            "math.randomseed math.sin math.sqrt math.tan";
+
+    if (set == 4)
+        // Coroutine, I/O and system facilities.
+        return
+            "openfile closefile readfrom writeto appendto remove "
+            "rename flush seek tmpfile tmpname read write clock "
+            "date difftime execute exit getenv setlocale time "
+
+            "coroutine.create coroutine.resume coroutine.status "
+            "coroutine.wrap coroutine.yield io.close io.flush "
+            "io.input io.lines io.open io.output io.read "
+            "io.tmpfile io.type io.write io.stdin io.stdout "
+            "io.stderr os.clock os.date os.difftime os.execute "
+            "os.exit os.getenv os.remove os.rename os.setlocale "
+            "os.time os.tmpname";
+
+    return 0;
+}
+
+
+// Returns the user name of a style.
+QString QsciLexerLua::description(int style) const
+{
+    switch (style)
+    {
+    case Default:
+        return tr("Default");
+
+    case Comment:
+        return tr("Comment");
+
+    case LineComment:
+        return tr("Line comment");
+
+    case Number:
+        return tr("Number");
+
+    case Keyword:
+        return tr("Keyword");
+
+    case String:
+        return tr("String");
+
+    case Character:
+        return tr("Character");
+
+    case LiteralString:
+        return tr("Literal string");
+
+    case Preprocessor:
+        return tr("Preprocessor");
+
+    case Operator:
+        return tr("Operator");
+
+    case Identifier:
+        return tr("Identifier");
+
+    case UnclosedString:
+        return tr("Unclosed string");
+
+    case BasicFunctions:
+        return tr("Basic functions");
+
+    case StringTableMathsFunctions:
+        return tr("String, table and maths functions");
+
+    case CoroutinesIOSystemFacilities:
+        return tr("Coroutines, i/o and system facilities");
+
+    case KeywordSet5:
+        return tr("User defined 1");
+
+    case KeywordSet6:
+        return tr("User defined 2");
+
+    case KeywordSet7:
+        return tr("User defined 3");
+
+    case KeywordSet8:
+        return tr("User defined 4");
+
+    case Label:
+        return tr("Label");
+    }
+
+    return QString();
+}
+
+
+// Returns the background colour of the text for a style.
+QColor QsciLexerLua::defaultPaper(int style) const
+{
+    switch (style)
+    {
+    case Comment:
+        return QColor(0xd0,0xf0,0xf0);
+
+    case LiteralString:
+        return QColor(0xe0,0xff,0xff);
+
+    case UnclosedString:
+        return QColor(0xe0,0xc0,0xe0);
+
+    case BasicFunctions:
+        return QColor(0xd0,0xff,0xd0);
+
+    case StringTableMathsFunctions:
+        return QColor(0xd0,0xd0,0xff);
+
+    case CoroutinesIOSystemFacilities:
+        return QColor(0xff,0xd0,0xd0);
+    }
+
+    return QsciLexer::defaultPaper(style);
+}
+
+
+// Refresh all properties.
+void QsciLexerLua::refreshProperties()
+{
+    setCompactProp();
+}
+
+
+// Read properties from the settings.
+bool QsciLexerLua::readProperties(QSettings &qs,const QString &prefix)
+{
+    int rc = true;
+
+    fold_compact = qs.value(prefix + "foldcompact", true).toBool();
+
+    return rc;
+}
+
+
+// Write properties to the settings.
+bool QsciLexerLua::writeProperties(QSettings &qs,const QString &prefix) const
+{
+    int rc = true;
+
+    qs.setValue(prefix + "foldcompact", fold_compact);
+
+    return rc;
+}
+
+
+// Return true if folds are compact.
+bool QsciLexerLua::foldCompact() const
+{
+    return fold_compact;
+}
+
+
+// Set if folds are compact.
+void QsciLexerLua::setFoldCompact(bool fold)
+{
+    fold_compact = fold;
+
+    setCompactProp();
+}
+
+
+// Set the "fold.compact" property.
+void QsciLexerLua::setCompactProp()
+{
+    emit propertyChanged("fold.compact",(fold_compact ? "1" : "0"));
+}