From 90a15fde1aa68970a397407d75ba74cb08593ffc Mon Sep 17 00:00:00 2001 From: Martin Kleusberg Date: Sat, 18 Feb 2023 16:16:58 +0100 Subject: [PATCH] Revert "libs: Update bundled QScintilla to version 2.13.3" This reverts commit 6ddd4f019f2d3b4d2aaadc0cf9d2b62adbfd241f since it breaks AppImage builds. The newer version of QScintilla depends on Qt 5.11 which is not available in the Ubuntu 18.04 the AppImages use. We also cannot just use the version of QScintilla available in the OS instead of the bundled one for the AppImages as that is too old for our purposes. It is probably best to just update to Ubuntu 20.04 for the AppImage builds in April 2023 when 18.04 reaches its end of life. --- CMakeLists.txt | 2 +- libs/DB4S_PATCH_05 | 363 ++++ libs/DB4S_PATCH_06 | 131 ++ libs/DB4S_QScintilla.patch | 353 ---- libs/qscintilla/ChangeLog | 483 ----- libs/qscintilla/NEWS | 50 - libs/qscintilla/Qt4Qt5/CMakeLists.txt | 183 ++ .../{src => Qt4Qt5}/InputMethod.cpp | 28 +- libs/qscintilla/{src => Qt4Qt5}/ListBoxQt.cpp | 26 +- libs/qscintilla/{src => Qt4Qt5}/ListBoxQt.h | 2 +- .../{src => Qt4Qt5}/MacPasteboardMime.cpp | 6 +- libs/qscintilla/{src => Qt4Qt5}/PlatQt.cpp | 109 +- .../{src => Qt4Qt5}/Qsci/qsciabstractapis.h | 2 +- .../{src => Qt4Qt5}/Qsci/qsciapis.h | 2 +- .../{src => Qt4Qt5}/Qsci/qscicommand.h | 2 +- .../{src => Qt4Qt5}/Qsci/qscicommandset.h | 2 +- .../{src => Qt4Qt5}/Qsci/qscidocument.h | 2 +- .../{src => Qt4Qt5}/Qsci/qsciglobal.h | 12 +- .../{src => Qt4Qt5}/Qsci/qscilexer.h | 2 +- .../{src => Qt4Qt5}/Qsci/qscilexercpp.h | 2 +- .../{src => Qt4Qt5}/Qsci/qscilexercustom.h | 2 +- .../{src => Qt4Qt5}/Qsci/qscilexerhtml.h | 2 +- .../Qsci/qscilexerjavascript.h | 2 +- .../{src => Qt4Qt5}/Qsci/qscilexerjson.h | 2 +- .../{src => Qt4Qt5}/Qsci/qscilexerpython.h | 2 +- .../{src => Qt4Qt5}/Qsci/qscilexersql.h | 2 +- .../{src => Qt4Qt5}/Qsci/qscilexerxml.h | 2 +- .../{src => Qt4Qt5}/Qsci/qscimacro.h | 2 +- .../{src => Qt4Qt5}/Qsci/qsciprinter.h | 22 +- .../{src => Qt4Qt5}/Qsci/qsciscintilla.h | 10 +- .../{src => Qt4Qt5}/Qsci/qsciscintillabase.h | 5 +- .../{src => Qt4Qt5}/Qsci/qscistyle.h | 2 +- .../{src => Qt4Qt5}/Qsci/qscistyledtext.h | 2 +- .../{src => Qt4Qt5}/SciAccessibility.cpp | 5 +- .../{src => Qt4Qt5}/SciAccessibility.h | 2 +- .../qscintilla/{src => Qt4Qt5}/SciClasses.cpp | 6 +- libs/qscintilla/{src => Qt4Qt5}/SciClasses.h | 2 +- libs/qscintilla/Qt4Qt5/SciNamespace.h | 35 + .../{src => Qt4Qt5}/ScintillaQt.cpp | 40 +- libs/qscintilla/{src => Qt4Qt5}/ScintillaQt.h | 3 +- .../{src => Qt4Qt5}/features/qscintilla2.prf | 10 +- .../{src => Qt4Qt5}/qsciabstractapis.cpp | 2 +- libs/qscintilla/{src => Qt4Qt5}/qsciapis.cpp | 14 +- .../{src => Qt4Qt5}/qscicommand.cpp | 2 +- .../{src => Qt4Qt5}/qscicommandset.cpp | 10 +- .../{src => Qt4Qt5}/qscidocument.cpp | 2 +- libs/qscintilla/{src => Qt4Qt5}/qscilexer.cpp | 14 +- .../{src => Qt4Qt5}/qscilexercpp.cpp | 2 +- .../{src => Qt4Qt5}/qscilexercustom.cpp | 2 +- .../{src => Qt4Qt5}/qscilexerhtml.cpp | 2 +- .../{src => Qt4Qt5}/qscilexerjavascript.cpp | 2 +- .../{src => Qt4Qt5}/qscilexerjson.cpp | 2 +- .../{src => Qt4Qt5}/qscilexerpython.cpp | 2 +- .../{src => Qt4Qt5}/qscilexersql.cpp | 2 +- .../{src => Qt4Qt5}/qscilexerxml.cpp | 2 +- libs/qscintilla/{src => Qt4Qt5}/qscimacro.cpp | 14 +- .../{src => Qt4Qt5}/qscintilla_cs.qm | Bin .../{src => Qt4Qt5}/qscintilla_cs.ts | 0 .../{src => Qt4Qt5}/qscintilla_de.qm | Bin .../{src => Qt4Qt5}/qscintilla_de.ts | 0 .../{src => Qt4Qt5}/qscintilla_es.qm | Bin .../{src => Qt4Qt5}/qscintilla_es.ts | 0 .../{src => Qt4Qt5}/qscintilla_fr.qm | Bin .../{src => Qt4Qt5}/qscintilla_fr.ts | 0 .../{src => Qt4Qt5}/qscintilla_pt_br.qm | Bin .../{src => Qt4Qt5}/qscintilla_pt_br.ts | 0 .../{src => Qt4Qt5}/qsciprinter.cpp | 20 +- .../{src => Qt4Qt5}/qsciscintilla.cpp | 15 +- .../{src => Qt4Qt5}/qsciscintillabase.cpp | 38 +- libs/qscintilla/{src => Qt4Qt5}/qscistyle.cpp | 2 +- .../{src => Qt4Qt5}/qscistyledtext.cpp | 2 +- libs/qscintilla/README | 2 + .../{scintilla => }/include/ILexer.h | 0 .../{scintilla => }/include/ILoader.h | 0 .../{scintilla => }/include/License.txt | 0 .../{scintilla => }/include/Platform.h | 0 .../{scintilla => }/include/SciLexer.h | 0 .../{scintilla => }/include/Sci_Position.h | 0 .../{scintilla => }/include/Scintilla.h | 0 .../{scintilla => }/include/Scintilla.iface | 0 .../{scintilla => }/include/ScintillaWidget.h | 0 .../{scintilla => }/lexers/LexHTML.cpp | 0 .../{scintilla => }/lexers/LexJSON.cpp | 0 .../{scintilla => }/lexers/LexSQL.cpp | 0 .../{scintilla => }/lexers/License.txt | 0 .../{scintilla => }/lexlib/Accessor.cpp | 0 .../{scintilla => }/lexlib/Accessor.h | 0 .../lexlib/CharacterCategory.cpp | 0 .../lexlib/CharacterCategory.h | 0 .../{scintilla => }/lexlib/CharacterSet.cpp | 0 .../{scintilla => }/lexlib/CharacterSet.h | 0 .../{scintilla => }/lexlib/DefaultLexer.cpp | 0 .../{scintilla => }/lexlib/DefaultLexer.h | 0 .../{scintilla => }/lexlib/LexAccessor.h | 0 .../{scintilla => }/lexlib/LexerBase.cpp | 0 .../{scintilla => }/lexlib/LexerBase.h | 0 .../{scintilla => }/lexlib/LexerModule.cpp | 0 .../{scintilla => }/lexlib/LexerModule.h | 0 .../lexlib/LexerNoExceptions.cpp | 0 .../lexlib/LexerNoExceptions.h | 0 .../{scintilla => }/lexlib/LexerSimple.cpp | 0 .../{scintilla => }/lexlib/LexerSimple.h | 0 .../{scintilla => }/lexlib/License.txt | 0 .../{scintilla => }/lexlib/OptionSet.h | 0 .../{scintilla => }/lexlib/PropSetSimple.cpp | 0 .../{scintilla => }/lexlib/PropSetSimple.h | 0 .../{scintilla => }/lexlib/SparseState.h | 0 .../{scintilla => }/lexlib/StringCopy.h | 0 .../{scintilla => }/lexlib/StyleContext.cpp | 0 .../{scintilla => }/lexlib/StyleContext.h | 0 .../{scintilla => }/lexlib/SubStyles.h | 0 .../{scintilla => }/lexlib/WordList.cpp | 0 .../{scintilla => }/lexlib/WordList.h | 0 libs/qscintilla/scintilla/lexers/LexA68k.cpp | 345 --- libs/qscintilla/scintilla/lexers/LexAPDL.cpp | 257 --- libs/qscintilla/scintilla/lexers/LexASY.cpp | 269 --- libs/qscintilla/scintilla/lexers/LexAU3.cpp | 908 -------- libs/qscintilla/scintilla/lexers/LexAVE.cpp | 229 -- libs/qscintilla/scintilla/lexers/LexAVS.cpp | 291 --- .../qscintilla/scintilla/lexers/LexAbaqus.cpp | 603 ------ libs/qscintilla/scintilla/lexers/LexAda.cpp | 513 ----- libs/qscintilla/scintilla/lexers/LexAsm.cpp | 466 ---- libs/qscintilla/scintilla/lexers/LexAsn1.cpp | 186 -- libs/qscintilla/scintilla/lexers/LexBaan.cpp | 988 --------- libs/qscintilla/scintilla/lexers/LexBash.cpp | 907 -------- libs/qscintilla/scintilla/lexers/LexBasic.cpp | 565 ----- libs/qscintilla/scintilla/lexers/LexBatch.cpp | 498 ----- .../qscintilla/scintilla/lexers/LexBibTeX.cpp | 308 --- .../scintilla/lexers/LexBullant.cpp | 231 -- libs/qscintilla/scintilla/lexers/LexCLW.cpp | 680 ------ libs/qscintilla/scintilla/lexers/LexCOBOL.cpp | 379 ---- libs/qscintilla/scintilla/lexers/LexCPP.cpp | 1725 --------------- libs/qscintilla/scintilla/lexers/LexCSS.cpp | 567 ----- libs/qscintilla/scintilla/lexers/LexCaml.cpp | 460 ---- libs/qscintilla/scintilla/lexers/LexCmake.cpp | 455 ---- .../scintilla/lexers/LexCoffeeScript.cpp | 483 ----- libs/qscintilla/scintilla/lexers/LexConf.cpp | 190 -- .../scintilla/lexers/LexCrontab.cpp | 224 -- .../qscintilla/scintilla/lexers/LexCsound.cpp | 212 -- libs/qscintilla/scintilla/lexers/LexD.cpp | 567 ----- libs/qscintilla/scintilla/lexers/LexDMAP.cpp | 226 -- libs/qscintilla/scintilla/lexers/LexDMIS.cpp | 354 ---- libs/qscintilla/scintilla/lexers/LexDiff.cpp | 161 -- libs/qscintilla/scintilla/lexers/LexECL.cpp | 519 ----- .../scintilla/lexers/LexEDIFACT.cpp | 336 --- .../scintilla/lexers/LexEScript.cpp | 274 --- .../qscintilla/scintilla/lexers/LexEiffel.cpp | 239 --- .../qscintilla/scintilla/lexers/LexErlang.cpp | 624 ------ .../scintilla/lexers/LexErrorList.cpp | 393 ---- .../scintilla/lexers/LexFlagship.cpp | 352 --- libs/qscintilla/scintilla/lexers/LexForth.cpp | 168 -- .../scintilla/lexers/LexFortran.cpp | 721 ------- libs/qscintilla/scintilla/lexers/LexGAP.cpp | 264 --- .../scintilla/lexers/LexGui4Cli.cpp | 311 --- .../scintilla/lexers/LexHaskell.cpp | 1110 ---------- libs/qscintilla/scintilla/lexers/LexHex.cpp | 1045 --------- .../qscintilla/scintilla/lexers/LexIndent.cpp | 71 - libs/qscintilla/scintilla/lexers/LexInno.cpp | 288 --- libs/qscintilla/scintilla/lexers/LexKVIrc.cpp | 471 ----- libs/qscintilla/scintilla/lexers/LexKix.cpp | 134 -- libs/qscintilla/scintilla/lexers/LexLPeg.cpp | 799 ------- libs/qscintilla/scintilla/lexers/LexLaTeX.cpp | 538 ----- libs/qscintilla/scintilla/lexers/LexLisp.cpp | 283 --- libs/qscintilla/scintilla/lexers/LexLout.cpp | 213 -- libs/qscintilla/scintilla/lexers/LexLua.cpp | 502 ----- .../qscintilla/scintilla/lexers/LexMMIXAL.cpp | 188 -- libs/qscintilla/scintilla/lexers/LexMPT.cpp | 191 -- libs/qscintilla/scintilla/lexers/LexMSSQL.cpp | 352 --- libs/qscintilla/scintilla/lexers/LexMagik.cpp | 446 ---- libs/qscintilla/scintilla/lexers/LexMake.cpp | 142 -- .../scintilla/lexers/LexMarkdown.cpp | 419 ---- .../qscintilla/scintilla/lexers/LexMatlab.cpp | 389 ---- .../qscintilla/scintilla/lexers/LexMaxima.cpp | 222 -- .../scintilla/lexers/LexMetapost.cpp | 400 ---- .../qscintilla/scintilla/lexers/LexModula.cpp | 741 ------- libs/qscintilla/scintilla/lexers/LexMySQL.cpp | 574 ----- .../qscintilla/scintilla/lexers/LexNimrod.cpp | 431 ---- libs/qscintilla/scintilla/lexers/LexNsis.cpp | 660 ------ libs/qscintilla/scintilla/lexers/LexNull.cpp | 38 - .../scintilla/lexers/LexOScript.cpp | 546 ----- libs/qscintilla/scintilla/lexers/LexOpal.cpp | 523 ----- libs/qscintilla/scintilla/lexers/LexPB.cpp | 363 ---- libs/qscintilla/scintilla/lexers/LexPLM.cpp | 199 -- libs/qscintilla/scintilla/lexers/LexPO.cpp | 211 -- libs/qscintilla/scintilla/lexers/LexPOV.cpp | 317 --- libs/qscintilla/scintilla/lexers/LexPS.cpp | 331 --- .../qscintilla/scintilla/lexers/LexPascal.cpp | 613 ------ libs/qscintilla/scintilla/lexers/LexPerl.cpp | 1811 ---------------- .../scintilla/lexers/LexPowerPro.cpp | 628 ------ .../scintilla/lexers/LexPowerShell.cpp | 252 --- .../scintilla/lexers/LexProgress.cpp | 564 ----- libs/qscintilla/scintilla/lexers/LexProps.cpp | 187 -- .../qscintilla/scintilla/lexers/LexPython.cpp | 984 --------- libs/qscintilla/scintilla/lexers/LexR.cpp | 214 -- libs/qscintilla/scintilla/lexers/LexRebol.cpp | 323 --- .../scintilla/lexers/LexRegistry.cpp | 415 ---- libs/qscintilla/scintilla/lexers/LexRuby.cpp | 1879 ----------------- libs/qscintilla/scintilla/lexers/LexRust.cpp | 839 -------- libs/qscintilla/scintilla/lexers/LexSAS.cpp | 220 -- libs/qscintilla/scintilla/lexers/LexSML.cpp | 226 -- libs/qscintilla/scintilla/lexers/LexSTTXT.cpp | 404 ---- .../scintilla/lexers/LexScriptol.cpp | 379 ---- .../scintilla/lexers/LexSmalltalk.cpp | 324 --- .../qscintilla/scintilla/lexers/LexSorcus.cpp | 206 -- .../scintilla/lexers/LexSpecman.cpp | 290 --- libs/qscintilla/scintilla/lexers/LexSpice.cpp | 204 -- libs/qscintilla/scintilla/lexers/LexStata.cpp | 203 -- libs/qscintilla/scintilla/lexers/LexTACL.cpp | 398 ---- libs/qscintilla/scintilla/lexers/LexTADS3.cpp | 901 -------- libs/qscintilla/scintilla/lexers/LexTAL.cpp | 397 ---- libs/qscintilla/scintilla/lexers/LexTCL.cpp | 368 ---- libs/qscintilla/scintilla/lexers/LexTCMD.cpp | 504 ----- libs/qscintilla/scintilla/lexers/LexTeX.cpp | 495 ----- .../scintilla/lexers/LexTxt2tags.cpp | 478 ----- libs/qscintilla/scintilla/lexers/LexVB.cpp | 317 --- libs/qscintilla/scintilla/lexers/LexVHDL.cpp | 585 ----- .../scintilla/lexers/LexVerilog.cpp | 1077 ---------- .../scintilla/lexers/LexVisualProlog.cpp | 510 ----- libs/qscintilla/scintilla/lexers/LexYAML.cpp | 351 --- .../{scintilla => }/src/AutoComplete.cpp | 0 .../{scintilla => }/src/AutoComplete.h | 0 libs/qscintilla/src/CMakeLists.txt | 207 -- .../{scintilla => }/src/CallTip.cpp | 0 libs/qscintilla/{scintilla => }/src/CallTip.h | 0 .../{scintilla => }/src/CaseConvert.cpp | 0 .../{scintilla => }/src/CaseConvert.h | 0 .../{scintilla => }/src/CaseFolder.cpp | 0 .../{scintilla => }/src/CaseFolder.h | 0 .../{scintilla => }/src/Catalogue.cpp | 0 .../{scintilla => }/src/Catalogue.h | 0 .../{scintilla => }/src/CellBuffer.cpp | 0 .../{scintilla => }/src/CellBuffer.h | 0 .../{scintilla => }/src/CharClassify.cpp | 0 .../{scintilla => }/src/CharClassify.h | 0 .../{scintilla => }/src/ContractionState.cpp | 0 .../{scintilla => }/src/ContractionState.h | 0 libs/qscintilla/{scintilla => }/src/DBCS.cpp | 0 libs/qscintilla/{scintilla => }/src/DBCS.h | 0 .../{scintilla => }/src/Decoration.cpp | 0 .../{scintilla => }/src/Decoration.h | 0 .../{scintilla => }/src/Document.cpp | 0 .../qscintilla/{scintilla => }/src/Document.h | 0 .../{scintilla => }/src/EditModel.cpp | 0 .../{scintilla => }/src/EditModel.h | 0 .../{scintilla => }/src/EditView.cpp | 0 .../qscintilla/{scintilla => }/src/EditView.h | 0 .../qscintilla/{scintilla => }/src/Editor.cpp | 0 libs/qscintilla/{scintilla => }/src/Editor.h | 0 .../{scintilla => }/src/ElapsedPeriod.h | 0 .../{scintilla => }/src/ExternalLexer.cpp | 0 .../{scintilla => }/src/ExternalLexer.h | 0 .../{scintilla => }/src/FontQuality.h | 0 .../{scintilla => }/src/Indicator.cpp | 0 .../{scintilla => }/src/Indicator.h | 0 .../{scintilla => }/src/IntegerRectangle.h | 0 .../qscintilla/{scintilla => }/src/KeyMap.cpp | 0 libs/qscintilla/{scintilla => }/src/KeyMap.h | 0 .../{scintilla => }/src/License.txt | 0 .../{scintilla => }/src/LineMarker.cpp | 0 .../{scintilla => }/src/LineMarker.h | 0 .../{scintilla => }/src/MarginView.cpp | 0 .../{scintilla => }/src/MarginView.h | 0 .../{scintilla => }/src/Partitioning.h | 0 .../{scintilla => }/src/PerLine.cpp | 0 libs/qscintilla/{scintilla => }/src/PerLine.h | 0 .../qscintilla/{scintilla => }/src/Position.h | 0 .../{scintilla => }/src/PositionCache.cpp | 0 .../{scintilla => }/src/PositionCache.h | 0 libs/qscintilla/src/Qsci/qscilexeravs.h | 174 -- libs/qscintilla/src/Qsci/qscilexerbash.h | 178 -- libs/qscintilla/src/Qsci/qscilexerbatch.h | 115 - libs/qscintilla/src/Qsci/qscilexercmake.h | 160 -- .../src/Qsci/qscilexercoffeescript.h | 264 --- libs/qscintilla/src/Qsci/qscilexercsharp.h | 77 - libs/qscintilla/src/Qsci/qscilexercss.h | 252 --- libs/qscintilla/src/Qsci/qscilexerd.h | 242 --- libs/qscintilla/src/Qsci/qscilexerdiff.h | 107 - libs/qscintilla/src/Qsci/qscilexeredifact.h | 96 - libs/qscintilla/src/Qsci/qscilexerfortran.h | 59 - libs/qscintilla/src/Qsci/qscilexerfortran77.h | 168 -- libs/qscintilla/src/Qsci/qscilexeridl.h | 64 - libs/qscintilla/src/Qsci/qscilexerjava.h | 55 - libs/qscintilla/src/Qsci/qscilexerlua.h | 194 -- libs/qscintilla/src/Qsci/qscilexermakefile.h | 105 - libs/qscintilla/src/Qsci/qscilexermarkdown.h | 148 -- libs/qscintilla/src/Qsci/qscilexermatlab.h | 104 - libs/qscintilla/src/Qsci/qscilexeroctave.h | 60 - libs/qscintilla/src/Qsci/qscilexerpascal.h | 227 -- libs/qscintilla/src/Qsci/qscilexerperl.h | 312 --- libs/qscintilla/src/Qsci/qscilexerpo.h | 163 -- .../qscintilla/src/Qsci/qscilexerpostscript.h | 204 -- libs/qscintilla/src/Qsci/qscilexerpov.h | 203 -- .../qscintilla/src/Qsci/qscilexerproperties.h | 150 -- libs/qscintilla/src/Qsci/qscilexerruby.h | 240 --- libs/qscintilla/src/Qsci/qscilexerspice.h | 106 - libs/qscintilla/src/Qsci/qscilexertcl.h | 189 -- libs/qscintilla/src/Qsci/qscilexertex.h | 163 -- libs/qscintilla/src/Qsci/qscilexerverilog.h | 257 --- libs/qscintilla/src/Qsci/qscilexervhdl.h | 221 -- libs/qscintilla/src/Qsci/qscilexeryaml.h | 147 -- .../{scintilla => }/src/RESearch.cpp | 0 .../qscintilla/{scintilla => }/src/RESearch.h | 0 .../{scintilla => }/src/RunStyles.cpp | 0 .../{scintilla => }/src/RunStyles.h | 0 .../{scintilla => }/src/SciTE.properties | 0 .../{scintilla => }/src/ScintillaBase.cpp | 0 .../{scintilla => }/src/ScintillaBase.h | 0 .../{scintilla => }/src/Selection.cpp | 0 .../{scintilla => }/src/Selection.h | 0 .../{scintilla => }/src/SparseVector.h | 0 .../{scintilla => }/src/SplitVector.h | 0 libs/qscintilla/{scintilla => }/src/Style.cpp | 0 libs/qscintilla/{scintilla => }/src/Style.h | 0 .../{scintilla => }/src/UniConversion.cpp | 0 .../{scintilla => }/src/UniConversion.h | 0 libs/qscintilla/src/UnicodeFromUTF8.h | 32 + .../{scintilla => }/src/UniqueString.h | 0 .../{scintilla => }/src/ViewStyle.cpp | 0 .../{scintilla => }/src/ViewStyle.h | 0 libs/qscintilla/{scintilla => }/src/XPM.cpp | 0 libs/qscintilla/{scintilla => }/src/XPM.h | 0 .../src/features_staticlib/qscintilla2.prf | 23 - libs/qscintilla/src/qscilexeravs.cpp | 414 ---- libs/qscintilla/src/qscilexerbash.cpp | 350 --- libs/qscintilla/src/qscilexerbatch.cpp | 212 -- libs/qscintilla/src/qscilexercmake.cpp | 304 --- libs/qscintilla/src/qscilexercoffeescript.cpp | 454 ---- libs/qscintilla/src/qscilexercsharp.cpp | 118 -- libs/qscintilla/src/qscilexercss.cpp | 440 ---- libs/qscintilla/src/qscilexerd.cpp | 450 ---- libs/qscintilla/src/qscilexerdiff.cpp | 143 -- libs/qscintilla/src/qscilexeredifact.cpp | 122 -- libs/qscintilla/src/qscilexerfortran.cpp | 109 - libs/qscintilla/src/qscilexerfortran77.cpp | 296 --- libs/qscintilla/src/qscilexeridl.cpp | 100 - libs/qscintilla/src/qscilexerjava.cpp | 57 - libs/qscintilla/src/qscilexerlua.cpp | 368 ---- libs/qscintilla/src/qscilexermakefile.cpp | 158 -- libs/qscintilla/src/qscilexermarkdown.cpp | 289 --- libs/qscintilla/src/qscilexermatlab.cpp | 161 -- libs/qscintilla/src/qscilexeroctave.cpp | 68 - libs/qscintilla/src/qscilexerpascal.cpp | 432 ---- libs/qscintilla/src/qscilexerperl.cpp | 658 ------ libs/qscintilla/src/qscilexerpo.cpp | 223 -- libs/qscintilla/src/qscilexerpostscript.cpp | 448 ---- libs/qscintilla/src/qscilexerpov.cpp | 464 ---- libs/qscintilla/src/qscilexerproperties.cpp | 213 -- libs/qscintilla/src/qscilexerruby.cpp | 445 ---- libs/qscintilla/src/qscilexerspice.cpp | 194 -- libs/qscintilla/src/qscilexertcl.cpp | 438 ---- libs/qscintilla/src/qscilexertex.cpp | 308 --- libs/qscintilla/src/qscilexerverilog.cpp | 572 ----- libs/qscintilla/src/qscilexervhdl.cpp | 418 ---- libs/qscintilla/src/qscilexeryaml.cpp | 269 --- libs/qscintilla/src/qscintilla.pro | 431 ---- 355 files changed, 988 insertions(+), 65810 deletions(-) create mode 100644 libs/DB4S_PATCH_05 create mode 100644 libs/DB4S_PATCH_06 delete mode 100644 libs/DB4S_QScintilla.patch create mode 100644 libs/qscintilla/Qt4Qt5/CMakeLists.txt rename libs/qscintilla/{src => Qt4Qt5}/InputMethod.cpp (92%) rename libs/qscintilla/{src => Qt4Qt5}/ListBoxQt.cpp (91%) rename libs/qscintilla/{src => Qt4Qt5}/ListBoxQt.h (97%) rename libs/qscintilla/{src => Qt4Qt5}/MacPasteboardMime.cpp (91%) rename libs/qscintilla/{src => Qt4Qt5}/PlatQt.cpp (92%) rename libs/qscintilla/{src => Qt4Qt5}/Qsci/qsciabstractapis.h (98%) rename libs/qscintilla/{src => Qt4Qt5}/Qsci/qsciapis.h (99%) rename libs/qscintilla/{src => Qt4Qt5}/Qsci/qscicommand.h (99%) rename libs/qscintilla/{src => Qt4Qt5}/Qsci/qscicommandset.h (97%) rename libs/qscintilla/{src => Qt4Qt5}/Qsci/qscidocument.h (96%) rename libs/qscintilla/{src => Qt4Qt5}/Qsci/qsciglobal.h (84%) rename libs/qscintilla/{src => Qt4Qt5}/Qsci/qscilexer.h (99%) rename libs/qscintilla/{src => Qt4Qt5}/Qsci/qscilexercpp.h (99%) rename libs/qscintilla/{src => Qt4Qt5}/Qsci/qscilexercustom.h (98%) rename libs/qscintilla/{src => Qt4Qt5}/Qsci/qscilexerhtml.h (99%) rename libs/qscintilla/{src => Qt4Qt5}/Qsci/qscilexerjavascript.h (97%) rename libs/qscintilla/{src => Qt4Qt5}/Qsci/qscilexerjson.h (98%) rename libs/qscintilla/{src => Qt4Qt5}/Qsci/qscilexerpython.h (99%) rename libs/qscintilla/{src => Qt4Qt5}/Qsci/qscilexersql.h (99%) rename libs/qscintilla/{src => Qt4Qt5}/Qsci/qscilexerxml.h (98%) rename libs/qscintilla/{src => Qt4Qt5}/Qsci/qscimacro.h (97%) rename libs/qscintilla/{src => Qt4Qt5}/Qsci/qsciprinter.h (79%) rename libs/qscintilla/{src => Qt4Qt5}/Qsci/qsciscintilla.h (99%) rename libs/qscintilla/{src => Qt4Qt5}/Qsci/qsciscintillabase.h (99%) rename libs/qscintilla/{src => Qt4Qt5}/Qsci/qscistyle.h (98%) rename libs/qscintilla/{src => Qt4Qt5}/Qsci/qscistyledtext.h (96%) rename libs/qscintilla/{src => Qt4Qt5}/SciAccessibility.cpp (99%) rename libs/qscintilla/{src => Qt4Qt5}/SciAccessibility.h (98%) rename libs/qscintilla/{src => Qt4Qt5}/SciClasses.cpp (96%) rename libs/qscintilla/{src => Qt4Qt5}/SciClasses.h (97%) create mode 100644 libs/qscintilla/Qt4Qt5/SciNamespace.h rename libs/qscintilla/{src => Qt4Qt5}/ScintillaQt.cpp (96%) rename libs/qscintilla/{src => Qt4Qt5}/ScintillaQt.h (97%) rename libs/qscintilla/{src => Qt4Qt5}/features/qscintilla2.prf (75%) rename libs/qscintilla/{src => Qt4Qt5}/qsciabstractapis.cpp (95%) rename libs/qscintilla/{src => Qt4Qt5}/qsciapis.cpp (98%) rename libs/qscintilla/{src => Qt4Qt5}/qscicommand.cpp (98%) rename libs/qscintilla/{src => Qt4Qt5}/qscicommandset.cpp (98%) rename libs/qscintilla/{src => Qt4Qt5}/qscidocument.cpp (98%) rename libs/qscintilla/{src => Qt4Qt5}/qscilexer.cpp (97%) rename libs/qscintilla/{src => Qt4Qt5}/qscilexercpp.cpp (99%) rename libs/qscintilla/{src => Qt4Qt5}/qscilexercustom.cpp (97%) rename libs/qscintilla/{src => Qt4Qt5}/qscilexerhtml.cpp (99%) rename libs/qscintilla/{src => Qt4Qt5}/qscilexerjavascript.cpp (98%) rename libs/qscintilla/{src => Qt4Qt5}/qscilexerjson.cpp (98%) rename libs/qscintilla/{src => Qt4Qt5}/qscilexerpython.cpp (99%) rename libs/qscintilla/{src => Qt4Qt5}/qscilexersql.cpp (99%) rename libs/qscintilla/{src => Qt4Qt5}/qscilexerxml.cpp (98%) rename libs/qscintilla/{src => Qt4Qt5}/qscimacro.cpp (95%) rename libs/qscintilla/{src => Qt4Qt5}/qscintilla_cs.qm (100%) rename libs/qscintilla/{src => Qt4Qt5}/qscintilla_cs.ts (100%) rename libs/qscintilla/{src => Qt4Qt5}/qscintilla_de.qm (100%) rename libs/qscintilla/{src => Qt4Qt5}/qscintilla_de.ts (100%) rename libs/qscintilla/{src => Qt4Qt5}/qscintilla_es.qm (100%) rename libs/qscintilla/{src => Qt4Qt5}/qscintilla_es.ts (100%) rename libs/qscintilla/{src => Qt4Qt5}/qscintilla_fr.qm (100%) rename libs/qscintilla/{src => Qt4Qt5}/qscintilla_fr.ts (100%) rename libs/qscintilla/{src => Qt4Qt5}/qscintilla_pt_br.qm (100%) rename libs/qscintilla/{src => Qt4Qt5}/qscintilla_pt_br.ts (100%) rename libs/qscintilla/{src => Qt4Qt5}/qsciprinter.cpp (91%) rename libs/qscintilla/{src => Qt4Qt5}/qsciscintilla.cpp (99%) rename libs/qscintilla/{src => Qt4Qt5}/qsciscintillabase.cpp (95%) rename libs/qscintilla/{src => Qt4Qt5}/qscistyle.cpp (98%) rename libs/qscintilla/{src => Qt4Qt5}/qscistyledtext.cpp (96%) create mode 100644 libs/qscintilla/README rename libs/qscintilla/{scintilla => }/include/ILexer.h (100%) rename libs/qscintilla/{scintilla => }/include/ILoader.h (100%) rename libs/qscintilla/{scintilla => }/include/License.txt (100%) rename libs/qscintilla/{scintilla => }/include/Platform.h (100%) rename libs/qscintilla/{scintilla => }/include/SciLexer.h (100%) rename libs/qscintilla/{scintilla => }/include/Sci_Position.h (100%) rename libs/qscintilla/{scintilla => }/include/Scintilla.h (100%) rename libs/qscintilla/{scintilla => }/include/Scintilla.iface (100%) rename libs/qscintilla/{scintilla => }/include/ScintillaWidget.h (100%) rename libs/qscintilla/{scintilla => }/lexers/LexHTML.cpp (100%) rename libs/qscintilla/{scintilla => }/lexers/LexJSON.cpp (100%) rename libs/qscintilla/{scintilla => }/lexers/LexSQL.cpp (100%) rename libs/qscintilla/{scintilla => }/lexers/License.txt (100%) rename libs/qscintilla/{scintilla => }/lexlib/Accessor.cpp (100%) rename libs/qscintilla/{scintilla => }/lexlib/Accessor.h (100%) rename libs/qscintilla/{scintilla => }/lexlib/CharacterCategory.cpp (100%) rename libs/qscintilla/{scintilla => }/lexlib/CharacterCategory.h (100%) rename libs/qscintilla/{scintilla => }/lexlib/CharacterSet.cpp (100%) rename libs/qscintilla/{scintilla => }/lexlib/CharacterSet.h (100%) rename libs/qscintilla/{scintilla => }/lexlib/DefaultLexer.cpp (100%) rename libs/qscintilla/{scintilla => }/lexlib/DefaultLexer.h (100%) rename libs/qscintilla/{scintilla => }/lexlib/LexAccessor.h (100%) rename libs/qscintilla/{scintilla => }/lexlib/LexerBase.cpp (100%) rename libs/qscintilla/{scintilla => }/lexlib/LexerBase.h (100%) rename libs/qscintilla/{scintilla => }/lexlib/LexerModule.cpp (100%) rename libs/qscintilla/{scintilla => }/lexlib/LexerModule.h (100%) rename libs/qscintilla/{scintilla => }/lexlib/LexerNoExceptions.cpp (100%) rename libs/qscintilla/{scintilla => }/lexlib/LexerNoExceptions.h (100%) rename libs/qscintilla/{scintilla => }/lexlib/LexerSimple.cpp (100%) rename libs/qscintilla/{scintilla => }/lexlib/LexerSimple.h (100%) rename libs/qscintilla/{scintilla => }/lexlib/License.txt (100%) rename libs/qscintilla/{scintilla => }/lexlib/OptionSet.h (100%) rename libs/qscintilla/{scintilla => }/lexlib/PropSetSimple.cpp (100%) rename libs/qscintilla/{scintilla => }/lexlib/PropSetSimple.h (100%) rename libs/qscintilla/{scintilla => }/lexlib/SparseState.h (100%) rename libs/qscintilla/{scintilla => }/lexlib/StringCopy.h (100%) rename libs/qscintilla/{scintilla => }/lexlib/StyleContext.cpp (100%) rename libs/qscintilla/{scintilla => }/lexlib/StyleContext.h (100%) rename libs/qscintilla/{scintilla => }/lexlib/SubStyles.h (100%) rename libs/qscintilla/{scintilla => }/lexlib/WordList.cpp (100%) rename libs/qscintilla/{scintilla => }/lexlib/WordList.h (100%) delete mode 100644 libs/qscintilla/scintilla/lexers/LexA68k.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexAPDL.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexASY.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexAU3.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexAVE.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexAVS.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexAbaqus.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexAda.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexAsm.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexAsn1.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexBaan.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexBash.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexBasic.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexBatch.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexBibTeX.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexBullant.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexCLW.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexCOBOL.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexCPP.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexCSS.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexCaml.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexCmake.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexCoffeeScript.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexConf.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexCrontab.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexCsound.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexD.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexDMAP.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexDMIS.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexDiff.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexECL.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexEDIFACT.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexEScript.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexEiffel.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexErlang.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexErrorList.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexFlagship.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexForth.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexFortran.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexGAP.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexGui4Cli.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexHaskell.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexHex.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexIndent.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexInno.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexKVIrc.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexKix.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexLPeg.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexLaTeX.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexLisp.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexLout.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexLua.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexMMIXAL.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexMPT.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexMSSQL.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexMagik.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexMake.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexMarkdown.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexMatlab.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexMaxima.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexMetapost.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexModula.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexMySQL.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexNimrod.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexNsis.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexNull.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexOScript.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexOpal.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexPB.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexPLM.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexPO.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexPOV.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexPS.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexPascal.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexPerl.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexPowerPro.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexPowerShell.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexProgress.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexProps.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexPython.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexR.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexRebol.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexRegistry.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexRuby.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexRust.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexSAS.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexSML.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexSTTXT.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexScriptol.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexSmalltalk.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexSorcus.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexSpecman.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexSpice.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexStata.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexTACL.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexTADS3.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexTAL.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexTCL.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexTCMD.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexTeX.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexTxt2tags.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexVB.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexVHDL.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexVerilog.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexVisualProlog.cpp delete mode 100644 libs/qscintilla/scintilla/lexers/LexYAML.cpp rename libs/qscintilla/{scintilla => }/src/AutoComplete.cpp (100%) rename libs/qscintilla/{scintilla => }/src/AutoComplete.h (100%) delete mode 100644 libs/qscintilla/src/CMakeLists.txt rename libs/qscintilla/{scintilla => }/src/CallTip.cpp (100%) rename libs/qscintilla/{scintilla => }/src/CallTip.h (100%) rename libs/qscintilla/{scintilla => }/src/CaseConvert.cpp (100%) rename libs/qscintilla/{scintilla => }/src/CaseConvert.h (100%) rename libs/qscintilla/{scintilla => }/src/CaseFolder.cpp (100%) rename libs/qscintilla/{scintilla => }/src/CaseFolder.h (100%) rename libs/qscintilla/{scintilla => }/src/Catalogue.cpp (100%) rename libs/qscintilla/{scintilla => }/src/Catalogue.h (100%) rename libs/qscintilla/{scintilla => }/src/CellBuffer.cpp (100%) rename libs/qscintilla/{scintilla => }/src/CellBuffer.h (100%) rename libs/qscintilla/{scintilla => }/src/CharClassify.cpp (100%) rename libs/qscintilla/{scintilla => }/src/CharClassify.h (100%) rename libs/qscintilla/{scintilla => }/src/ContractionState.cpp (100%) rename libs/qscintilla/{scintilla => }/src/ContractionState.h (100%) rename libs/qscintilla/{scintilla => }/src/DBCS.cpp (100%) rename libs/qscintilla/{scintilla => }/src/DBCS.h (100%) rename libs/qscintilla/{scintilla => }/src/Decoration.cpp (100%) rename libs/qscintilla/{scintilla => }/src/Decoration.h (100%) rename libs/qscintilla/{scintilla => }/src/Document.cpp (100%) rename libs/qscintilla/{scintilla => }/src/Document.h (100%) rename libs/qscintilla/{scintilla => }/src/EditModel.cpp (100%) rename libs/qscintilla/{scintilla => }/src/EditModel.h (100%) rename libs/qscintilla/{scintilla => }/src/EditView.cpp (100%) rename libs/qscintilla/{scintilla => }/src/EditView.h (100%) rename libs/qscintilla/{scintilla => }/src/Editor.cpp (100%) rename libs/qscintilla/{scintilla => }/src/Editor.h (100%) rename libs/qscintilla/{scintilla => }/src/ElapsedPeriod.h (100%) rename libs/qscintilla/{scintilla => }/src/ExternalLexer.cpp (100%) rename libs/qscintilla/{scintilla => }/src/ExternalLexer.h (100%) rename libs/qscintilla/{scintilla => }/src/FontQuality.h (100%) rename libs/qscintilla/{scintilla => }/src/Indicator.cpp (100%) rename libs/qscintilla/{scintilla => }/src/Indicator.h (100%) rename libs/qscintilla/{scintilla => }/src/IntegerRectangle.h (100%) rename libs/qscintilla/{scintilla => }/src/KeyMap.cpp (100%) rename libs/qscintilla/{scintilla => }/src/KeyMap.h (100%) rename libs/qscintilla/{scintilla => }/src/License.txt (100%) rename libs/qscintilla/{scintilla => }/src/LineMarker.cpp (100%) rename libs/qscintilla/{scintilla => }/src/LineMarker.h (100%) rename libs/qscintilla/{scintilla => }/src/MarginView.cpp (100%) rename libs/qscintilla/{scintilla => }/src/MarginView.h (100%) rename libs/qscintilla/{scintilla => }/src/Partitioning.h (100%) rename libs/qscintilla/{scintilla => }/src/PerLine.cpp (100%) rename libs/qscintilla/{scintilla => }/src/PerLine.h (100%) rename libs/qscintilla/{scintilla => }/src/Position.h (100%) rename libs/qscintilla/{scintilla => }/src/PositionCache.cpp (100%) rename libs/qscintilla/{scintilla => }/src/PositionCache.h (100%) delete mode 100644 libs/qscintilla/src/Qsci/qscilexeravs.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexerbash.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexerbatch.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexercmake.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexercoffeescript.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexercsharp.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexercss.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexerd.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexerdiff.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexeredifact.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexerfortran.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexerfortran77.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexeridl.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexerjava.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexerlua.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexermakefile.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexermarkdown.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexermatlab.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexeroctave.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexerpascal.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexerperl.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexerpo.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexerpostscript.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexerpov.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexerproperties.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexerruby.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexerspice.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexertcl.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexertex.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexerverilog.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexervhdl.h delete mode 100644 libs/qscintilla/src/Qsci/qscilexeryaml.h rename libs/qscintilla/{scintilla => }/src/RESearch.cpp (100%) rename libs/qscintilla/{scintilla => }/src/RESearch.h (100%) rename libs/qscintilla/{scintilla => }/src/RunStyles.cpp (100%) rename libs/qscintilla/{scintilla => }/src/RunStyles.h (100%) rename libs/qscintilla/{scintilla => }/src/SciTE.properties (100%) rename libs/qscintilla/{scintilla => }/src/ScintillaBase.cpp (100%) rename libs/qscintilla/{scintilla => }/src/ScintillaBase.h (100%) rename libs/qscintilla/{scintilla => }/src/Selection.cpp (100%) rename libs/qscintilla/{scintilla => }/src/Selection.h (100%) rename libs/qscintilla/{scintilla => }/src/SparseVector.h (100%) rename libs/qscintilla/{scintilla => }/src/SplitVector.h (100%) rename libs/qscintilla/{scintilla => }/src/Style.cpp (100%) rename libs/qscintilla/{scintilla => }/src/Style.h (100%) rename libs/qscintilla/{scintilla => }/src/UniConversion.cpp (100%) rename libs/qscintilla/{scintilla => }/src/UniConversion.h (100%) create mode 100644 libs/qscintilla/src/UnicodeFromUTF8.h rename libs/qscintilla/{scintilla => }/src/UniqueString.h (100%) rename libs/qscintilla/{scintilla => }/src/ViewStyle.cpp (100%) rename libs/qscintilla/{scintilla => }/src/ViewStyle.h (100%) rename libs/qscintilla/{scintilla => }/src/XPM.cpp (100%) rename libs/qscintilla/{scintilla => }/src/XPM.h (100%) delete mode 100644 libs/qscintilla/src/features_staticlib/qscintilla2.prf delete mode 100644 libs/qscintilla/src/qscilexeravs.cpp delete mode 100644 libs/qscintilla/src/qscilexerbash.cpp delete mode 100644 libs/qscintilla/src/qscilexerbatch.cpp delete mode 100644 libs/qscintilla/src/qscilexercmake.cpp delete mode 100644 libs/qscintilla/src/qscilexercoffeescript.cpp delete mode 100644 libs/qscintilla/src/qscilexercsharp.cpp delete mode 100644 libs/qscintilla/src/qscilexercss.cpp delete mode 100644 libs/qscintilla/src/qscilexerd.cpp delete mode 100644 libs/qscintilla/src/qscilexerdiff.cpp delete mode 100644 libs/qscintilla/src/qscilexeredifact.cpp delete mode 100644 libs/qscintilla/src/qscilexerfortran.cpp delete mode 100644 libs/qscintilla/src/qscilexerfortran77.cpp delete mode 100644 libs/qscintilla/src/qscilexeridl.cpp delete mode 100644 libs/qscintilla/src/qscilexerjava.cpp delete mode 100644 libs/qscintilla/src/qscilexerlua.cpp delete mode 100644 libs/qscintilla/src/qscilexermakefile.cpp delete mode 100644 libs/qscintilla/src/qscilexermarkdown.cpp delete mode 100644 libs/qscintilla/src/qscilexermatlab.cpp delete mode 100644 libs/qscintilla/src/qscilexeroctave.cpp delete mode 100644 libs/qscintilla/src/qscilexerpascal.cpp delete mode 100644 libs/qscintilla/src/qscilexerperl.cpp delete mode 100644 libs/qscintilla/src/qscilexerpo.cpp delete mode 100644 libs/qscintilla/src/qscilexerpostscript.cpp delete mode 100644 libs/qscintilla/src/qscilexerpov.cpp delete mode 100644 libs/qscintilla/src/qscilexerproperties.cpp delete mode 100644 libs/qscintilla/src/qscilexerruby.cpp delete mode 100644 libs/qscintilla/src/qscilexerspice.cpp delete mode 100644 libs/qscintilla/src/qscilexertcl.cpp delete mode 100644 libs/qscintilla/src/qscilexertex.cpp delete mode 100644 libs/qscintilla/src/qscilexerverilog.cpp delete mode 100644 libs/qscintilla/src/qscilexervhdl.cpp delete mode 100644 libs/qscintilla/src/qscilexeryaml.cpp delete mode 100644 libs/qscintilla/src/qscintilla.pro diff --git a/CMakeLists.txt b/CMakeLists.txt index 64fc7b34..731f138f 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -116,7 +116,7 @@ endif() target_include_directories(${PROJECT_NAME} PRIVATE ${CMAKE_CURRENT_LIST_DIR}/libs/json) if(NOT QSCINTILLA_FOUND) - add_subdirectory(libs/qscintilla/src) + add_subdirectory(libs/qscintilla/Qt4Qt5) endif() if(NOT QHexEdit_FOUND) add_subdirectory(libs/qhexedit) diff --git a/libs/DB4S_PATCH_05 b/libs/DB4S_PATCH_05 new file mode 100644 index 00000000..0b956432 --- /dev/null +++ b/libs/DB4S_PATCH_05 @@ -0,0 +1,363 @@ +--- QScintilla_gpl-2.10.8/Qt4Qt5/qscintilla.pro 2018-10-01 15:46:06.000000000 +0200 ++++ qscintilla/Qt4Qt5/qscintilla.pro 2018-11-21 19:51:25.870248673 +0100 +@@ -23,24 +23,12 @@ + !win32:VERSION = 13.2.1 + + TEMPLATE = lib +-CONFIG += qt warn_off thread exceptions hide_symbols +- +-CONFIG(debug, debug|release) { +- mac: { +- TARGET = qscintilla2_qt$${QT_MAJOR_VERSION}_debug +- } else { +- win32: { +- TARGET = qscintilla2_qt$${QT_MAJOR_VERSION}d +- } else { +- TARGET = qscintilla2_qt$${QT_MAJOR_VERSION} +- } +- } +-} else { +- TARGET = qscintilla2_qt$${QT_MAJOR_VERSION} +-} +- ++TARGET = qscintilla2 ++CONFIG += qt warn_off thread exceptions hide_symbols staticlib debug_and_release + INCLUDEPATH += . ../include ../lexlib ../src + ++QMAKE_CXXFLAGS += -std=c++11 ++ + !CONFIG(staticlib) { + DEFINES += QSCINTILLA_MAKE_DLL + } +@@ -59,11 +47,6 @@ + DEFINES += QT_NO_ACCESSIBILITY + } + +-# For old versions of GCC. +-unix:!macx { +- CONFIG += c++11 +-} +- + # Comment this in if you want the internal Scintilla classes to be placed in a + # Scintilla namespace rather than pollute the global namespace. + #DEFINES += SCI_NAMESPACE +@@ -97,69 +80,20 @@ + + HEADERS = \ + ./Qsci/qsciglobal.h \ +- ./Qsci/qsciscintilla.h \ +- ./Qsci/qsciscintillabase.h \ +- ./Qsci/qsciabstractapis.h \ +- ./Qsci/qsciapis.h \ + ./Qsci/qscicommand.h \ + ./Qsci/qscicommandset.h \ + ./Qsci/qscidocument.h \ +- ./Qsci/qscilexer.h \ +- ./Qsci/qscilexeravs.h \ +- ./Qsci/qscilexerbash.h \ +- ./Qsci/qscilexerbatch.h \ +- ./Qsci/qscilexercmake.h \ +- ./Qsci/qscilexercoffeescript.h \ +- ./Qsci/qscilexercpp.h \ +- ./Qsci/qscilexercsharp.h \ +- ./Qsci/qscilexercss.h \ +- ./Qsci/qscilexercustom.h \ +- ./Qsci/qscilexerd.h \ +- ./Qsci/qscilexerdiff.h \ +- ./Qsci/qscilexeredifact.h \ +- ./Qsci/qscilexerfortran.h \ +- ./Qsci/qscilexerfortran77.h \ +- ./Qsci/qscilexerhtml.h \ +- ./Qsci/qscilexeridl.h \ +- ./Qsci/qscilexerjava.h \ +- ./Qsci/qscilexerjavascript.h \ +- ./Qsci/qscilexerjson.h \ +- ./Qsci/qscilexerlua.h \ +- ./Qsci/qscilexermakefile.h \ +- ./Qsci/qscilexermarkdown.h \ +- ./Qsci/qscilexermatlab.h \ +- ./Qsci/qscilexeroctave.h \ +- ./Qsci/qscilexerpascal.h \ +- ./Qsci/qscilexerperl.h \ +- ./Qsci/qscilexerpostscript.h \ +- ./Qsci/qscilexerpo.h \ +- ./Qsci/qscilexerpov.h \ +- ./Qsci/qscilexerproperties.h \ +- ./Qsci/qscilexerpython.h \ +- ./Qsci/qscilexerruby.h \ +- ./Qsci/qscilexerspice.h \ +- ./Qsci/qscilexersql.h \ +- ./Qsci/qscilexertcl.h \ +- ./Qsci/qscilexertex.h \ +- ./Qsci/qscilexerverilog.h \ +- ./Qsci/qscilexervhdl.h \ +- ./Qsci/qscilexerxml.h \ +- ./Qsci/qscilexeryaml.h \ +- ./Qsci/qscimacro.h \ + ./Qsci/qsciprinter.h \ + ./Qsci/qscistyle.h \ + ./Qsci/qscistyledtext.h \ + ListBoxQt.h \ +- SciAccessibility.h \ +- SciClasses.h \ + SciNamespace.h \ +- ScintillaQt.h \ + ../include/ILexer.h \ + ../include/Platform.h \ +- ../include/Sci_Position.h \ + ../include/SciLexer.h \ + ../include/Scintilla.h \ + ../include/ScintillaWidget.h \ ++ ../include/Sci_Position.h \ + ../lexlib/Accessor.h \ + ../lexlib/CharacterCategory.h \ + ../lexlib/CharacterSet.h \ +@@ -170,7 +104,6 @@ + ../lexlib/LexerSimple.h \ + ../lexlib/OptionSet.h \ + ../lexlib/PropSetSimple.h \ +- ../lexlib/StringCopy.h \ + ../lexlib/StyleContext.h \ + ../lexlib/SubStyles.h \ + ../lexlib/WordList.h \ +@@ -184,15 +117,12 @@ + ../src/ContractionState.h \ + ../src/Decoration.h \ + ../src/Document.h \ +- ../src/EditModel.h \ + ../src/Editor.h \ +- ../src/EditView.h \ + ../src/ExternalLexer.h \ + ../src/FontQuality.h \ + ../src/Indicator.h \ + ../src/KeyMap.h \ + ../src/LineMarker.h \ +- ../src/MarginView.h \ + ../src/Partitioning.h \ + ../src/PerLine.h \ + ../src/PositionCache.h \ +@@ -205,7 +135,26 @@ + ../src/UnicodeFromUTF8.h \ + ../src/UniConversion.h \ + ../src/ViewStyle.h \ +- ../src/XPM.h ++ ../src/XPM.h \ ++ ../src/Position.h \ ++ ../src/SparseVector.h \ ++ ./Qsci/qsciscintilla.h \ ++ ./Qsci/qsciscintillabase.h \ ++ ./Qsci/qsciabstractapis.h \ ++ ./Qsci/qsciapis.h \ ++ ./Qsci/qscilexer.h \ ++ ./Qsci/qscilexercustom.h \ ++ ./Qsci/qscilexersql.h \ ++ ./Qsci/qscilexerjson.h \ ++ ./Qsci/qscilexerhtml.h \ ++ ./Qsci/qscilexerxml.h \ ++ ./Qsci/qscilexerjavascript.h \ ++ ./Qsci/qscilexercpp.h \ ++ ./Qsci/qscilexerpython.h \ ++ ./Qsci/qscimacro.h \ ++ SciClasses.h \ ++ ScintillaQt.h \ ++ SciAccessibility.h + + SOURCES = \ + qsciscintilla.cpp \ +@@ -216,161 +165,28 @@ + qscicommandset.cpp \ + qscidocument.cpp \ + qscilexer.cpp \ +- qscilexeravs.cpp \ +- qscilexerbash.cpp \ +- qscilexerbatch.cpp \ +- qscilexercmake.cpp \ +- qscilexercoffeescript.cpp \ +- qscilexercpp.cpp \ +- qscilexercsharp.cpp \ +- qscilexercss.cpp \ + qscilexercustom.cpp \ +- qscilexerd.cpp \ +- qscilexerdiff.cpp \ +- qscilexeredifact.cpp \ +- qscilexerfortran.cpp \ +- qscilexerfortran77.cpp \ ++ qscilexersql.cpp \ ++ qscilexerjson.cpp \ + qscilexerhtml.cpp \ +- qscilexeridl.cpp \ +- qscilexerjava.cpp \ ++ qscilexerxml.cpp \ + qscilexerjavascript.cpp \ +- qscilexerjson.cpp \ +- qscilexerlua.cpp \ +- qscilexermakefile.cpp \ +- qscilexermarkdown.cpp \ +- qscilexermatlab.cpp \ +- qscilexeroctave.cpp \ +- qscilexerpascal.cpp \ +- qscilexerperl.cpp \ +- qscilexerpostscript.cpp \ +- qscilexerpo.cpp \ +- qscilexerpov.cpp \ +- qscilexerproperties.cpp \ ++ qscilexercpp.cpp \ + qscilexerpython.cpp \ +- qscilexerruby.cpp \ +- qscilexerspice.cpp \ +- qscilexersql.cpp \ +- qscilexertcl.cpp \ +- qscilexertex.cpp \ +- qscilexerverilog.cpp \ +- qscilexervhdl.cpp \ +- qscilexerxml.cpp \ +- qscilexeryaml.cpp \ + qscimacro.cpp \ + qsciprinter.cpp \ + qscistyle.cpp \ + qscistyledtext.cpp \ +- MacPasteboardMime.cpp \ +- InputMethod.cpp \ +- SciAccessibility.cpp \ ++ MacPasteboardMime.cpp \ ++ InputMethod.cpp \ + SciClasses.cpp \ + ListBoxQt.cpp \ + PlatQt.cpp \ + ScintillaQt.cpp \ +- ../lexers/LexA68k.cpp \ +- ../lexers/LexAbaqus.cpp \ +- ../lexers/LexAda.cpp \ +- ../lexers/LexAPDL.cpp \ +- ../lexers/LexAsm.cpp \ +- ../lexers/LexAsn1.cpp \ +- ../lexers/LexASY.cpp \ +- ../lexers/LexAU3.cpp \ +- ../lexers/LexAVE.cpp \ +- ../lexers/LexAVS.cpp \ +- ../lexers/LexBaan.cpp \ +- ../lexers/LexBash.cpp \ +- ../lexers/LexBasic.cpp \ +- ../lexers/LexBatch.cpp \ +- ../lexers/LexBibTeX.cpp \ +- ../lexers/LexBullant.cpp \ +- ../lexers/LexCaml.cpp \ +- ../lexers/LexCLW.cpp \ +- ../lexers/LexCmake.cpp \ +- ../lexers/LexCOBOL.cpp \ +- ../lexers/LexCoffeeScript.cpp \ +- ../lexers/LexConf.cpp \ +- ../lexers/LexCPP.cpp \ +- ../lexers/LexCrontab.cpp \ +- ../lexers/LexCsound.cpp \ +- ../lexers/LexCSS.cpp \ +- ../lexers/LexD.cpp \ +- ../lexers/LexDiff.cpp \ +- ../lexers/LexDMAP.cpp \ +- ../lexers/LexDMIS.cpp \ +- ../lexers/LexECL.cpp \ +- ../lexers/LexEDIFACT.cpp \ +- ../lexers/LexEiffel.cpp \ +- ../lexers/LexErlang.cpp \ +- ../lexers/LexErrorList.cpp \ +- ../lexers/LexEScript.cpp \ +- ../lexers/LexFlagship.cpp \ +- ../lexers/LexForth.cpp \ +- ../lexers/LexFortran.cpp \ +- ../lexers/LexGAP.cpp \ +- ../lexers/LexGui4Cli.cpp \ +- ../lexers/LexHaskell.cpp \ +- ../lexers/LexHex.cpp \ +- ../lexers/LexHTML.cpp \ +- ../lexers/LexInno.cpp \ +- ../lexers/LexJSON.cpp \ +- ../lexers/LexKix.cpp \ +- ../lexers/LexKVIrc.cpp \ +- ../lexers/LexLaTeX.cpp \ +- ../lexers/LexLisp.cpp \ +- ../lexers/LexLout.cpp \ +- ../lexers/LexLua.cpp \ +- ../lexers/LexMagik.cpp \ +- ../lexers/LexMake.cpp \ +- ../lexers/LexMarkdown.cpp \ +- ../lexers/LexMatlab.cpp \ +- ../lexers/LexMetapost.cpp \ +- ../lexers/LexMMIXAL.cpp \ +- ../lexers/LexModula.cpp \ +- ../lexers/LexMPT.cpp \ +- ../lexers/LexMSSQL.cpp \ +- ../lexers/LexMySQL.cpp \ +- ../lexers/LexNimrod.cpp \ +- ../lexers/LexNsis.cpp \ +- ../lexers/LexNull.cpp \ +- ../lexers/LexOpal.cpp \ +- ../lexers/LexOScript.cpp \ +- ../lexers/LexPascal.cpp \ +- ../lexers/LexPB.cpp \ +- ../lexers/LexPerl.cpp \ +- ../lexers/LexPLM.cpp \ +- ../lexers/LexPO.cpp \ +- ../lexers/LexPOV.cpp \ +- ../lexers/LexPowerPro.cpp \ +- ../lexers/LexPowerShell.cpp \ +- ../lexers/LexProgress.cpp \ +- ../lexers/LexProps.cpp \ +- ../lexers/LexPS.cpp \ +- ../lexers/LexPython.cpp \ +- ../lexers/LexR.cpp \ +- ../lexers/LexRebol.cpp \ +- ../lexers/LexRegistry.cpp \ +- ../lexers/LexRuby.cpp \ +- ../lexers/LexRust.cpp \ +- ../lexers/LexScriptol.cpp \ +- ../lexers/LexSmalltalk.cpp \ +- ../lexers/LexSML.cpp \ +- ../lexers/LexSorcus.cpp \ +- ../lexers/LexSpecman.cpp \ +- ../lexers/LexSpice.cpp \ ++ SciAccessibility.cpp \ + ../lexers/LexSQL.cpp \ +- ../lexers/LexSTTXT.cpp \ +- ../lexers/LexTACL.cpp \ +- ../lexers/LexTADS3.cpp \ +- ../lexers/LexTAL.cpp \ +- ../lexers/LexTCL.cpp \ +- ../lexers/LexTCMD.cpp \ +- ../lexers/LexTeX.cpp \ +- ../lexers/LexTxt2tags.cpp \ +- ../lexers/LexVB.cpp \ +- ../lexers/LexVerilog.cpp \ +- ../lexers/LexVHDL.cpp \ +- ../lexers/LexVisualProlog.cpp \ +- ../lexers/LexYAML.cpp \ ++ ../lexers/LexJSON.cpp \ ++ ../lexers/LexHTML.cpp \ + ../lexlib/Accessor.cpp \ + ../lexlib/CharacterCategory.cpp \ + ../lexlib/CharacterSet.cpp \ +@@ -391,20 +207,20 @@ + ../src/ContractionState.cpp \ + ../src/Decoration.cpp \ + ../src/Document.cpp \ +- ../src/EditModel.cpp \ + ../src/Editor.cpp \ ++ ../src/EditModel.cpp \ + ../src/EditView.cpp \ + ../src/ExternalLexer.cpp \ + ../src/Indicator.cpp \ +- ../src/KeyMap.cpp \ ++ ../src/KeyMap.cpp \ + ../src/LineMarker.cpp \ + ../src/MarginView.cpp \ + ../src/PerLine.cpp \ + ../src/PositionCache.cpp \ +- ../src/RESearch.cpp \ ++ ../src/RESearch.cpp \ + ../src/RunStyles.cpp \ +- ../src/ScintillaBase.cpp \ +- ../src/Selection.cpp \ ++ ../src/ScintillaBase.cpp \ ++ ../src/Selection.cpp \ + ../src/Style.cpp \ + ../src/UniConversion.cpp \ + ../src/ViewStyle.cpp \ diff --git a/libs/DB4S_PATCH_06 b/libs/DB4S_PATCH_06 new file mode 100644 index 00000000..eff21c8b --- /dev/null +++ b/libs/DB4S_PATCH_06 @@ -0,0 +1,131 @@ +--- QScintilla_gpl-2.10.8/src/Catalogue.cpp 2018-10-01 15:41:57.000000000 +0200 ++++ qscintilla/src/Catalogue.cpp 2018-11-18 16:09:52.796704316 +0100 +@@ -77,124 +77,10 @@ + + //++Autogenerated -- run scripts/LexGen.py to regenerate + //**\(\tLINK_LEXER(\*);\n\) +- LINK_LEXER(lmA68k); +- LINK_LEXER(lmAbaqus); +- LINK_LEXER(lmAda); +- LINK_LEXER(lmAPDL); +- LINK_LEXER(lmAs); +- LINK_LEXER(lmAsm); +- LINK_LEXER(lmAsn1); +- LINK_LEXER(lmASY); +- LINK_LEXER(lmAU3); +- LINK_LEXER(lmAVE); +- LINK_LEXER(lmAVS); +- LINK_LEXER(lmBaan); +- LINK_LEXER(lmBash); +- LINK_LEXER(lmBatch); +- LINK_LEXER(lmBibTeX); +- LINK_LEXER(lmBlitzBasic); +- LINK_LEXER(lmBullant); +- LINK_LEXER(lmCaml); +- LINK_LEXER(lmClw); +- LINK_LEXER(lmClwNoCase); +- LINK_LEXER(lmCmake); +- LINK_LEXER(lmCOBOL); +- LINK_LEXER(lmCoffeeScript); +- LINK_LEXER(lmConf); +- LINK_LEXER(lmCPP); +- LINK_LEXER(lmCPPNoCase); +- LINK_LEXER(lmCsound); +- LINK_LEXER(lmCss); +- LINK_LEXER(lmD); +- LINK_LEXER(lmDiff); +- LINK_LEXER(lmDMAP); +- LINK_LEXER(lmDMIS); +- LINK_LEXER(lmECL); +- LINK_LEXER(lmEDIFACT); +- LINK_LEXER(lmEiffel); +- LINK_LEXER(lmEiffelkw); +- LINK_LEXER(lmErlang); +- LINK_LEXER(lmErrorList); +- LINK_LEXER(lmESCRIPT); +- LINK_LEXER(lmF77); +- LINK_LEXER(lmFlagShip); +- LINK_LEXER(lmForth); +- LINK_LEXER(lmFortran); +- LINK_LEXER(lmFreeBasic); +- LINK_LEXER(lmGAP); +- LINK_LEXER(lmGui4Cli); +- LINK_LEXER(lmHaskell); +- LINK_LEXER(lmHTML); +- LINK_LEXER(lmIHex); +- LINK_LEXER(lmInno); +- LINK_LEXER(lmJSON); +- LINK_LEXER(lmKix); +- LINK_LEXER(lmKVIrc); +- LINK_LEXER(lmLatex); +- LINK_LEXER(lmLISP); +- LINK_LEXER(lmLiterateHaskell); +- LINK_LEXER(lmLot); +- LINK_LEXER(lmLout); +- LINK_LEXER(lmLua); +- LINK_LEXER(lmMagikSF); +- LINK_LEXER(lmMake); +- LINK_LEXER(lmMarkdown); +- LINK_LEXER(lmMatlab); +- LINK_LEXER(lmMETAPOST); +- LINK_LEXER(lmMMIXAL); +- LINK_LEXER(lmModula); +- LINK_LEXER(lmMSSQL); +- LINK_LEXER(lmMySQL); +- LINK_LEXER(lmNimrod); +- LINK_LEXER(lmNncrontab); +- LINK_LEXER(lmNsis); +- LINK_LEXER(lmNull); +- LINK_LEXER(lmOctave); +- LINK_LEXER(lmOpal); +- LINK_LEXER(lmOScript); +- LINK_LEXER(lmPascal); +- LINK_LEXER(lmPB); +- LINK_LEXER(lmPerl); +- LINK_LEXER(lmPHPSCRIPT); +- LINK_LEXER(lmPLM); +- LINK_LEXER(lmPO); +- LINK_LEXER(lmPOV); +- LINK_LEXER(lmPowerPro); +- LINK_LEXER(lmPowerShell); +- LINK_LEXER(lmProgress); +- LINK_LEXER(lmProps); +- LINK_LEXER(lmPS); +- LINK_LEXER(lmPureBasic); +- LINK_LEXER(lmPython); +- LINK_LEXER(lmR); +- LINK_LEXER(lmREBOL); +- LINK_LEXER(lmRegistry); +- LINK_LEXER(lmRuby); +- LINK_LEXER(lmRust); +- LINK_LEXER(lmScriptol); +- LINK_LEXER(lmSmalltalk); +- LINK_LEXER(lmSML); +- LINK_LEXER(lmSorc); +- LINK_LEXER(lmSpecman); +- LINK_LEXER(lmSpice); +- LINK_LEXER(lmSQL); +- LINK_LEXER(lmSrec); +- LINK_LEXER(lmSTTXT); +- LINK_LEXER(lmTACL); +- LINK_LEXER(lmTADS3); +- LINK_LEXER(lmTAL); +- LINK_LEXER(lmTCL); +- LINK_LEXER(lmTCMD); +- LINK_LEXER(lmTEHex); +- LINK_LEXER(lmTeX); +- LINK_LEXER(lmTxt2tags); +- LINK_LEXER(lmVB); +- LINK_LEXER(lmVBScript); +- LINK_LEXER(lmVerilog); +- LINK_LEXER(lmVHDL); +- LINK_LEXER(lmVisualProlog); +- LINK_LEXER(lmXML); +- LINK_LEXER(lmYAML); ++ LINK_LEXER(lmSQL); ++ LINK_LEXER(lmJSON); ++ LINK_LEXER(lmHTML); ++ LINK_LEXER(lmXML); + + //--Autogenerated -- end of automatically generated section + diff --git a/libs/DB4S_QScintilla.patch b/libs/DB4S_QScintilla.patch deleted file mode 100644 index 5aa8772a..00000000 --- a/libs/DB4S_QScintilla.patch +++ /dev/null @@ -1,353 +0,0 @@ -diff --git a/QScintilla_src-2.13.3/scintilla/src/Catalogue.cpp b/qscintilla/scintilla/src/Catalogue.cpp -index 1a5c3bc..a05c26e 100644 ---- a/QScintilla_src-2.13.3/scintilla/src/Catalogue.cpp -+++ b/qscintilla/scintilla/src/Catalogue.cpp -@@ -72,131 +72,10 @@ int Scintilla_LinkLexers() { - - //++Autogenerated -- run scripts/LexGen.py to regenerate - //**\(\tLINK_LEXER(\*);\n\) -- LINK_LEXER(lmA68k); -- LINK_LEXER(lmAbaqus); -- LINK_LEXER(lmAda); -- LINK_LEXER(lmAPDL); -- LINK_LEXER(lmAs); -- LINK_LEXER(lmAsm); -- LINK_LEXER(lmAsn1); -- LINK_LEXER(lmASY); -- LINK_LEXER(lmAU3); -- LINK_LEXER(lmAVE); -- LINK_LEXER(lmAVS); -- LINK_LEXER(lmBaan); -- LINK_LEXER(lmBash); -- LINK_LEXER(lmBatch); -- LINK_LEXER(lmBibTeX); -- LINK_LEXER(lmBlitzBasic); -- LINK_LEXER(lmBullant); -- LINK_LEXER(lmCaml); -- LINK_LEXER(lmClw); -- LINK_LEXER(lmClwNoCase); -- LINK_LEXER(lmCmake); -- LINK_LEXER(lmCOBOL); -- LINK_LEXER(lmCoffeeScript); -- LINK_LEXER(lmConf); -- LINK_LEXER(lmCPP); -- LINK_LEXER(lmCPPNoCase); -- LINK_LEXER(lmCsound); -- LINK_LEXER(lmCss); -- LINK_LEXER(lmD); -- LINK_LEXER(lmDiff); -- LINK_LEXER(lmDMAP); -- LINK_LEXER(lmDMIS); -- LINK_LEXER(lmECL); -- LINK_LEXER(lmEDIFACT); -- LINK_LEXER(lmEiffel); -- LINK_LEXER(lmEiffelkw); -- LINK_LEXER(lmErlang); -- LINK_LEXER(lmErrorList); -- LINK_LEXER(lmESCRIPT); -- LINK_LEXER(lmF77); -- LINK_LEXER(lmFlagShip); -- LINK_LEXER(lmForth); -- LINK_LEXER(lmFortran); -- LINK_LEXER(lmFreeBasic); -- LINK_LEXER(lmGAP); -- LINK_LEXER(lmGui4Cli); -- LINK_LEXER(lmHaskell); -- LINK_LEXER(lmHTML); -- LINK_LEXER(lmIHex); -- LINK_LEXER(lmIndent); -- LINK_LEXER(lmInno); -- LINK_LEXER(lmJSON); -- LINK_LEXER(lmKix); -- LINK_LEXER(lmKVIrc); -- LINK_LEXER(lmLatex); -- LINK_LEXER(lmLISP); -- LINK_LEXER(lmLiterateHaskell); -- LINK_LEXER(lmLot); -- LINK_LEXER(lmLout); --#if !defined(SCINTILLA_QT) -- LINK_LEXER(lmLPeg); --#endif -- LINK_LEXER(lmLua); -- LINK_LEXER(lmMagikSF); -- LINK_LEXER(lmMake); -- LINK_LEXER(lmMarkdown); -- LINK_LEXER(lmMatlab); -- LINK_LEXER(lmMaxima); -- LINK_LEXER(lmMETAPOST); -- LINK_LEXER(lmMMIXAL); -- LINK_LEXER(lmModula); -- LINK_LEXER(lmMSSQL); -- LINK_LEXER(lmMySQL); -- LINK_LEXER(lmNimrod); -- LINK_LEXER(lmNncrontab); -- LINK_LEXER(lmNsis); -- LINK_LEXER(lmNull); -- LINK_LEXER(lmOctave); -- LINK_LEXER(lmOpal); -- LINK_LEXER(lmOScript); -- LINK_LEXER(lmPascal); -- LINK_LEXER(lmPB); -- LINK_LEXER(lmPerl); -- LINK_LEXER(lmPHPSCRIPT); -- LINK_LEXER(lmPLM); -- LINK_LEXER(lmPO); -- LINK_LEXER(lmPOV); -- LINK_LEXER(lmPowerPro); -- LINK_LEXER(lmPowerShell); -- LINK_LEXER(lmProgress); -- LINK_LEXER(lmProps); -- LINK_LEXER(lmPS); -- LINK_LEXER(lmPureBasic); -- LINK_LEXER(lmPython); -- LINK_LEXER(lmR); -- LINK_LEXER(lmREBOL); -- LINK_LEXER(lmRegistry); -- LINK_LEXER(lmRuby); -- LINK_LEXER(lmRust); -- LINK_LEXER(lmSAS); -- LINK_LEXER(lmScriptol); -- LINK_LEXER(lmSmalltalk); -- LINK_LEXER(lmSML); -- LINK_LEXER(lmSorc); -- LINK_LEXER(lmSpecman); -- LINK_LEXER(lmSpice); -- LINK_LEXER(lmSQL); -- LINK_LEXER(lmSrec); -- LINK_LEXER(lmStata); -- LINK_LEXER(lmSTTXT); -- LINK_LEXER(lmTACL); -- LINK_LEXER(lmTADS3); -- LINK_LEXER(lmTAL); -- LINK_LEXER(lmTCL); -- LINK_LEXER(lmTCMD); -- LINK_LEXER(lmTEHex); -- LINK_LEXER(lmTeX); -- LINK_LEXER(lmTxt2tags); -- LINK_LEXER(lmVB); -- LINK_LEXER(lmVBScript); -- LINK_LEXER(lmVerilog); -- LINK_LEXER(lmVHDL); -- LINK_LEXER(lmVisualProlog); -- LINK_LEXER(lmXML); -- LINK_LEXER(lmYAML); -+ LINK_LEXER(lmSQL); -+ LINK_LEXER(lmJSON); -+ LINK_LEXER(lmHTML); -+ LINK_LEXER(lmXML); - - //--Autogenerated -- end of automatically generated section - -diff --git a/qscintilla/src/CMakeLists.txt b/qscintilla/src/CMakeLists.txt -new file mode 100644 -index 0000000..267500d ---- /dev/null -+++ b/qscintilla/src/CMakeLists.txt -@@ -0,0 +1,207 @@ -+cmake_minimum_required(VERSION 2.8.12.2) -+ -+# Disable AUTOMOC because it cannot be made to work with QScintilla -+set(CMAKE_AUTOMOC OFF) -+set(CMAKE_INCLUDE_CURRENT_DIR ON) -+ -+find_package(Qt5 REQUIRED COMPONENTS PrintSupport Widgets) -+ -+if(APPLE) -+ find_package(Qt5 REQUIRED COMPONENTS MacExtras) -+endif() -+ -+add_definitions(-DSCINTILLA_QT) -+add_definitions(-DSCI_LEXER) -+ -+set(QSCINTILLA_SRC -+ qsciscintilla.cpp -+ qsciscintillabase.cpp -+ qsciabstractapis.cpp -+ qsciapis.cpp -+ qscicommand.cpp -+ qscicommandset.cpp -+ qscidocument.cpp -+ qscilexer.cpp -+ qscilexercpp.cpp -+ qscilexerhtml.cpp -+ qscilexerjavascript.cpp -+ qscilexerjson.cpp -+ qscilexerpython.cpp -+ qscilexersql.cpp -+ qscilexerxml.cpp -+ qscimacro.cpp -+ qscistyle.cpp -+ qscistyledtext.cpp -+ InputMethod.cpp -+ ListBoxQt.cpp -+ MacPasteboardMime.cpp -+ PlatQt.cpp -+ SciAccessibility.cpp -+ SciClasses.cpp -+ ScintillaQt.cpp -+ ../scintilla/lexers/LexHTML.cpp -+ ../scintilla/lexers/LexJSON.cpp -+ ../scintilla/lexers/LexSQL.cpp -+ ../scintilla/lexlib/Accessor.cpp -+ ../scintilla/lexlib/CharacterCategory.cpp -+ ../scintilla/lexlib/CharacterSet.cpp -+ ../scintilla/lexlib/DefaultLexer.cpp -+ ../scintilla/lexlib/LexerBase.cpp -+ ../scintilla/lexlib/LexerModule.cpp -+ ../scintilla/lexlib/LexerNoExceptions.cpp -+ ../scintilla/lexlib/LexerSimple.cpp -+ ../scintilla/lexlib/PropSetSimple.cpp -+ ../scintilla/lexlib/StyleContext.cpp -+ ../scintilla/lexlib/WordList.cpp -+ ../scintilla/src/AutoComplete.cpp -+ ../scintilla/src/CallTip.cpp -+ ../scintilla/src/CaseConvert.cpp -+ ../scintilla/src/CaseFolder.cpp -+ ../scintilla/src/Catalogue.cpp -+ ../scintilla/src/CellBuffer.cpp -+ ../scintilla/src/CharClassify.cpp -+ ../scintilla/src/ContractionState.cpp -+ ../scintilla/src/DBCS.cpp -+ ../scintilla/src/Decoration.cpp -+ ../scintilla/src/Document.cpp -+ ../scintilla/src/EditModel.cpp -+ ../scintilla/src/Editor.cpp -+ ../scintilla/src/EditView.cpp -+ ../scintilla/src/ExternalLexer.cpp -+ ../scintilla/src/Indicator.cpp -+ ../scintilla/src/KeyMap.cpp -+ ../scintilla/src/LineMarker.cpp -+ ../scintilla/src/MarginView.cpp -+ ../scintilla/src/PerLine.cpp -+ ../scintilla/src/PositionCache.cpp -+ ../scintilla/src/RESearch.cpp -+ ../scintilla/src/RunStyles.cpp -+ ../scintilla/src/ScintillaBase.cpp -+ ../scintilla/src/Selection.cpp -+ ../scintilla/src/Style.cpp -+ ../scintilla/src/UniConversion.cpp -+ ../scintilla/src/ViewStyle.cpp -+ ../scintilla/src/XPM.cpp -+ qsciprinter.cpp -+) -+ -+set(QSCINTILLA_HDR -+ ./Qsci/qsciglobal.h -+ ./Qsci/qsciscintilla.h -+ ./Qsci/qsciscintillabase.h -+ ./Qsci/qsciabstractapis.h -+ ./Qsci/qsciapis.h -+ ./Qsci/qscicommand.h -+ ./Qsci/qscicommandset.h -+ ./Qsci/qscidocument.h -+ ./Qsci/qscilexer.h -+ ./Qsci/qscilexercpp.h -+ ./Qsci/qscilexercustom.h -+ ./Qsci/qscilexerhtml.h -+ ./Qsci/qscilexerjavascript.h -+ ./Qsci/qscilexerjson.h -+ ./Qsci/qscilexerpython.h -+ ./Qsci/qscilexersql.h -+ ./Qsci/qscilexerxml.h -+ ./Qsci/qscimacro.h -+ ./Qsci/qscistyle.h -+ ./Qsci/qscistyledtext.h -+ ListBoxQt.h -+ SciAccessibility.h -+ SciClasses.h -+ ScintillaQt.h -+ ../scintilla/include/ILexer.h -+ ../scintilla/include/ILoader.h -+ ../scintilla/include/Platform.h -+ ../scintilla/include/Sci_Position.h -+ ../scintilla/include/SciLexer.h -+ ../scintilla/include/Scintilla.h -+ ../scintilla/include/ScintillaWidget.h -+ ../scintilla/lexlib/Accessor.h -+ ../scintilla/lexlib/CharacterCategory.h -+ ../scintilla/lexlib/CharacterSet.h -+ ../scintilla/lexlib/DefaultLexer.h -+ ../scintilla/lexlib/LexAccessor.h -+ ../scintilla/lexlib/LexerBase.h -+ ../scintilla/lexlib/LexerModule.h -+ ../scintilla/lexlib/LexerNoExceptions.h -+ ../scintilla/lexlib/LexerSimple.h -+ ../scintilla/lexlib/OptionSet.h -+ ../scintilla/lexlib/PropSetSimple.h -+ ../scintilla/lexlib/SparseState.h -+ ../scintilla/lexlib/StringCopy.h -+ ../scintilla/lexlib/StyleContext.h -+ ../scintilla/lexlib/SubStyles.h -+ ../scintilla/lexlib/WordList.h -+ ../scintilla/src/AutoComplete.h -+ ../scintilla/src/CallTip.h -+ ../scintilla/src/CaseConvert.h -+ ../scintilla/src/CaseFolder.h -+ ../scintilla/src/Catalogue.h -+ ../scintilla/src/CellBuffer.h -+ ../scintilla/src/CharClassify.h -+ ../scintilla/src/ContractionState.h -+ ../scintilla/src/DBCS.h -+ ../scintilla/src/Decoration.h -+ ../scintilla/src/Document.h -+ ../scintilla/src/EditModel.h -+ ../scintilla/src/Editor.h -+ ../scintilla/src/EditView.h -+ ../scintilla/src/ElapsedPeriod.h -+ ../scintilla/src/ExternalLexer.h -+ ../scintilla/src/FontQuality.h -+ ../scintilla/src/Indicator.h -+ ../scintilla/src/IntegerRectangle.h -+ ../scintilla/src/KeyMap.h -+ ../scintilla/src/LineMarker.h -+ ../scintilla/src/MarginView.h -+ ../scintilla/src/Partitioning.h -+ ../scintilla/src/PerLine.h -+ ../scintilla/src/Position.h -+ ../scintilla/src/PositionCache.h -+ ../scintilla/src/RESearch.h -+ ../scintilla/src/RunStyles.h -+ ../scintilla/src/ScintillaBase.h -+ ../scintilla/src/Selection.h -+ ../scintilla/src/SparseVector.h -+ ../scintilla/src/SplitVector.h -+ ../scintilla/src/Style.h -+ ../scintilla/src/UniConversion.h -+ ../scintilla/src/UniqueString.h -+ ../scintilla/src/ViewStyle.h -+ ../scintilla/src/XPM.h -+ ./Qsci/qsciprinter.h -+) -+ -+set(QSCINTILLA_MOC_HDR -+ ./Qsci/qsciscintilla.h -+ ./Qsci/qsciscintillabase.h -+ ./Qsci/qsciabstractapis.h -+ ./Qsci/qsciapis.h -+ ./Qsci/qscilexer.h -+ ./Qsci/qscilexercustom.h -+ ./Qsci/qscilexersql.h -+ ./Qsci/qscilexerjson.h -+ ./Qsci/qscilexerhtml.h -+ ./Qsci/qscilexerxml.h -+ ./Qsci/qscilexerjavascript.h -+ ./Qsci/qscilexercpp.h -+ ./Qsci/qscilexerpython.h -+ ./Qsci/qscimacro.h -+ SciClasses.h -+ ScintillaQt.h -+) -+ -+QT5_WRAP_CPP(QSCINTILLA_WRAP_MOC_HDR ${QSCINTILLA_MOC_HDR}) -+ -+add_library(qscintilla2 ${QSCINTILLA_SRC} ${QSCINTILLA_HDR} ${QSCINTILLA_MOC_HDR} ${QSCINTILLA_MOC} ${QSCINTILLA_WRAP_MOC_HDR}) -+target_include_directories(qscintilla2 PRIVATE ../scintilla/include ../scintilla/lexlib ../scintilla/src) -+target_include_directories(qscintilla2 INTERFACE .) -+ -+target_link_libraries(qscintilla2 Qt5::Widgets Qt5::PrintSupport) -+ -+if (APPLE) -+ target_link_libraries(qscintilla2 Qt5::MacExtras) -+endif() -+ -+add_library(QScintilla::QScintilla ALIAS qscintilla2) diff --git a/libs/qscintilla/ChangeLog b/libs/qscintilla/ChangeLog index 79bbdebe..944189c6 100644 --- a/libs/qscintilla/ChangeLog +++ b/libs/qscintilla/ChangeLog @@ -1,488 +1,5 @@ -2022-04-25 Phil Thompson - - * NEWS, qt/InputMethod.cpp: - Updates to the input method code to fix a problem with KDE on - Wayland. - [5b8465ba3664] [2.13.3] <2.13-maint> - -2022-03-15 Phil Thompson - - * .hgtags: - Added tag 2.13.2 for changeset bb61ba6bf385 - [6cdbcd2c2dad] <2.13-maint> - - * NEWS, Python/project.py: - Fixed building from an sdist for iOS. - [bb61ba6bf385] [2.13.2] <2.13-maint> - -2021-10-14 Phil Thompson - - * .hgtags: - Added tag 2.13.1 for changeset 0763a2d7a8c2 - [90c834cc462d] <2.13-maint> - -2021-10-12 Phil Thompson - - * NEWS, designer/designer.pro, example/application.pro, - lib/README.doc, qt/qscintilla.pro: - Updated the .pro files and docs to cover multiple architecture - builds on macOS. - [0763a2d7a8c2] [2.13.1] <2.13-maint> - -2021-09-08 Phil Thompson - - * NEWS, qt/qscintilla.pro, qt/qsciscintilla.cpp: - Fixed the target used by findNext() after a call to replace(). - [6d59f97850d7] <2.13-maint> - -2021-06-26 Phil Thompson - - * .hgtags: - Added tag 2.13.0 for changeset 84da33178802 - [95ec8d681eae] - -2021-06-13 Phil Thompson - - * NEWS, Python/sip/qsciscintillabase.sip: - Fixed the Python bindings of SendScintilla() so that a negative - value can be passed as the wParam argument (specifically - SC_CURSORNORMAL). - [84da33178802] [2.13.0] - -2021-06-03 Phil Thompson - - * NEWS, Python/sip/qsciprinter.sip, qt/qscintilla.pro, - qt/qsciprinter.cpp, qt/qsciprinter.h: - Added the new QsciPrinter::printRange() overload. The library - version number is now v15.1.0. - [4b18dcfe67c4] - - * Merged the 2.12-maint branch. - [a33fcd321f79] - -2021-05-20 Phil Thompson - - * qt/PlatQt.cpp: - Fixed the handling of explicit Qt font weights for Qt6. - [1dbb97147333] <2.12-maint> - -2021-05-06 Phil Thompson - - * qt/qscintilla.pro: - Bumped the version number of the shared library. - [7b3f97fa852f] <2.12-maint> - - * NEWS, qt/ListBoxQt.cpp: - Improved the appearence of the auto-completion popup. - [6d05cdc2c9c9] <2.12-maint> - -2021-03-04 Phil Thompson - - * .hgtags: - Added tag 2.12.1 for changeset c1e9b5f091d6 - [0e8a95ee3197] <2.12-maint> - - * NEWS: - Released as v2.12.1. - [c1e9b5f091d6] [2.12.1] <2.12-maint> - - * rb-product.toml: - Fixed the PyQt dependencies. - [c7af7dfff891] <2.12-maint> - -2021-03-02 Phil Thompson - - * NEWS: - Updated the NEWS file. - [811ff4c9ffb2] <2.12-maint> - -2021-02-27 Phil Thompson - - * Python/pyproject-qt5.toml, Python/pyproject-qt6.toml: - Fixed the project dependencies. - [f84410807305] <2.12-maint> - - * rb-product, rb-product.toml: - Updated the product file. - [266fa5c4525a] <2.12-maint> - -2021-02-22 Phil Thompson - - * .hgtags: - Added tag 2.12.0 for changeset 1cfa1f74a2a6 - [a3df8b831652] - - * NEWS: - Released as v2.12.0. - [1cfa1f74a2a6] [2.12.0] - - * NEWS: - Updated the NEWS file. - [15c838b76bbb] - -2021-02-21 Phil Thompson - - * Python/project.py: - Fixed project.py so that it will use an embedded QScintilla library - when being built from an sdist. - [71cc17f4adb2] - - * qt/qscintilla.pro: - Added missing .h files from qscintilla.pro. - [c932fdd83a5e] - -2021-02-19 Phil Thompson - - * Python/pyproject-qt5.toml: - Reverted the name of the Qt5 Python bindings PyPI project because a - new name would cause significant problems. - [c318f3bd3474] - -2021-02-18 Phil Thompson - - * Python/pyproject-qt5.toml, Python/pyproject-qt6.toml, - Python/sip/qsciscintillabase.sip: - Fixed the Python bindings for PyQt6. - [e48e4f400215] - - * lib/README.doc: - Re-ordered the section in the main page of the docs. - [35fd189ea5da] - -2021-02-17 Phil Thompson - - * Python/project.py, Python/pyproject-qt5.toml, Python/pyproject- - qt6.toml, Python/pyproject.toml, Python/sip/qscimod5.sip, - Python/sip/qscimod6.sip, Python/sip/qscimodcommon.sip, - lib/README.doc, qt/features/qscintilla2.prf, - qt/features_staticlib/qscintilla2.prf: - Update the building of the Python bindings from a full source - package. - [124c17880e06] - -2021-02-15 Phil Thompson - - * lib/README.doc, lib/qscintilla.dxy: - Some documentation fixes. - [81cc3ac8a8df] - - * qt/PlatQt.cpp: - Fixed a regression in building against Qt5. - [4e87186ec216] - - * qt/InputMethod.cpp, qt/MacPasteboardMime.cpp, qt/PlatQt.cpp, - qt/SciAccessibility.cpp, qt/qsciapis.cpp, qt/qscicommandset.cpp, - qt/qsciglobal.h, qt/qscilexer.cpp, qt/qscimacro.cpp, - qt/qscintilla.pro, qt/qsciprinter.cpp, qt/qsciprinter.h, - qt/qsciscintilla.cpp, qt/qsciscintillabase.cpp: - Initial port to Qt6. - [b88e78ec2ca3] - -2021-02-14 Phil Thompson - - * Python/configure-old.py, Python/configure.py, Python/pyproject.toml, - Python/sip/qscimod4.sip, designer-Qt4Qt5/designer.pro, designer- - Qt4Qt5/qscintillaplugin.cpp, designer-Qt4Qt5/qscintillaplugin.h, - designer/designer.pro, designer/qscintillaplugin.cpp, - designer/qscintillaplugin.h, example-Qt4Qt5/application.pro, - example-Qt4Qt5/application.qrc, example-Qt4Qt5/images/copy.png, - example-Qt4Qt5/images/cut.png, example-Qt4Qt5/images/new.png, - example-Qt4Qt5/images/open.png, example-Qt4Qt5/images/paste.png, - example-Qt4Qt5/images/save.png, example-Qt4Qt5/main.cpp, example- - Qt4Qt5/mainwindow.cpp, example-Qt4Qt5/mainwindow.h, - example/application.pro, example/application.qrc, - example/images/copy.png, example/images/cut.png, - example/images/new.png, example/images/open.png, - example/images/paste.png, example/images/save.png, example/main.cpp, - example/mainwindow.cpp, example/mainwindow.h, lib/README.doc, - lib/ed.py, lib/pyproject.toml, qt/InputMethod.cpp, qt/ListBoxQt.cpp, - qt/MacPasteboardMime.cpp, qt/PlatQt.cpp, qt/SciClasses.cpp, - qt/ScintillaQt.cpp, qt/qsciglobal.h, qt/qscintilla.pro, - qt/qsciscintillabase.cpp, qt/qsciscintillabase.h: - Removed support for Qt4. - [dad7e9b4d62e] - - * Merged the 2.11-maint branch. - [8c1814ec889a] - -2020-11-23 Phil Thompson - - * .hgtags: - Added tag 2.11.6 for changeset c262a7a02f6d - [a12ce93c13bf] <2.11-maint> - - * NEWS: - Released as v2.11.6. - [c262a7a02f6d] [2.11.6] <2.11-maint> - - * NEWS: - Updated the NEWS file. - [0f32bcb43dd3] <2.11-maint> - -2020-10-22 Phil Thompson - - * qt/features/qscintilla2.prf, qt/features_staticlib/qscintilla2.prf, - qt/qscintilla.pro: - Fixes for building for iOS with recent versions of Qt. - [aea84882d372] <2.11-maint> - -2020-10-20 Phil Thompson - - * Python/project.py: - Added the --qsci-translations-dir option to sip-wheel. - [df77754750b3] <2.11-maint> - -2020-10-19 Phil Thompson - - * qsci/api/python/Python-3.9.api: - Added the .api file for Python v3.9. - [bff51b8043e2] <2.11-maint> - - * .hgignore: - Updated .hgignore for the current build naming convention. - [b659680b3f24] <2.11-maint> - -2020-10-11 Phil Thompson - - * qt/qsciscintilla.cpp: - Fixed the display of non-latin1 call tips. - [f9fa57df2fbb] <2.11-maint> - -2020-09-17 Phil Thompson - - * Python/project.py, lib/pyproject.toml: - Require PyQt-builder v1.6 as we no longer specify the sip module and - ABI. - [0e989cce12ea] <2.11-maint> - -2020-08-22 Phil Thompson - - * Python/project.py: - Set the name of the sip module explicitly. - [a6b6fd548cf3] <2.11-maint> - -2020-06-30 Phil Thompson - - * example-Qt4Qt5/main.cpp, example-Qt4Qt5/mainwindow.cpp, example- - Qt4Qt5/mainwindow.h: - Updated the copyright notices on the example. - [8937c1d51479] <2.11-maint> - -2020-06-09 Phil Thompson - - * .hgtags: - Added tag 2.11.5 for changeset 36bf61975fe2 - [7e336947e75e] <2.11-maint> - - * NEWS: - Released as v2.11.5. - [36bf61975fe2] [2.11.5] <2.11-maint> - - * NEWS, Python/sip/qsciabstractapis.sip, Python/sip/qsciapis.sip: - Fixed the Python signatures of the QsciAbstractAPIs and QsciAPIs - ctors. - [80aeec9058bf] <2.11-maint> - -2020-05-09 Phil Thompson - - * Python/project.py, lib/pyproject.toml: - The minimum ABI version is 12.8 which requires SIP v5.3. - [c0e8e2e7e485] <2.11-maint> - -2020-04-11 Phil Thompson - - * lib/pyproject.toml: - We know that The Python binding swill be able to use SIP v6. - [4f1f5381fb69] <2.11-maint> - -2020-04-10 Phil Thompson - - * NEWS: - Updated the NEWS file. - [2ef898e42a1e] <2.11-maint> - - * Python/project.py, lib/pyproject.toml: - Include the bundled .api files in wheels. - [ded23cd63255] <2.11-maint> - -2020-02-08 Phil Thompson - - * lib/pyproject.toml: - Fixed METADATA for commercial wheels. - [efc053939949] <2.11-maint> - -2019-12-18 Phil Thompson - - * .hgtags: - Added tag 2.11.4 for changeset b9eb589b0dab - [3f3722aac2ad] <2.11-maint> - - * NEWS: - Released as v2.11.4. - [b9eb589b0dab] [2.11.4] <2.11-maint> - - * lib/pyproject.toml: - Fixed requires-dist for commercial wheels. - [53c08faf43ff] <2.11-maint> - -2019-11-02 Phil Thompson - - * .hgtags: - Added tag 2.11.3 for changeset 989462577f67 - [3f6d7cf0fc4b] <2.11-maint> - - * NEWS: - Released as v2.11.3. - [989462577f67] [2.11.3] <2.11-maint> - - * NEWS: - Updated the NEWS file. - [2075344b2124] <2.11-maint> - -2019-10-03 Phil Thompson - - * lib/pyproject.toml: - Fixed the name of PEP 566. - [e435d3af1587] <2.11-maint> - - * lib/pyproject.toml: - Requires PyQt-builder v1. - [9502a2b46a2b] <2.11-maint> - -2019-10-01 Phil Thompson - - * lib/pyproject.toml: - Fixed the name of the PyQt-builder project. - [efe96da72b1f] <2.11-maint> - -2019-09-23 Phil Thompson - - * Python/project.py: - Fixes for changes in the sip v5 API. - [a79acd2cdd94] <2.11-maint> - -2019-09-14 Phil Thompson - - * lib/pyproject.toml: - Added the requires-dist meta-data. - [941784a50fad] <2.11-maint> - -2019-09-07 Phil Thompson - - * NEWS: - Updated the NEWS file. - [6c83ad469a4e] <2.11-maint> - - * lib/pyproject.toml: - Temporarily set the version of PyQt-builder required to be v0.1. - [734461946ff0] <2.11-maint> - -2019-09-06 Phil Thompson - - * Python/project.py: - Fixes for relative path options. - [e7bc21d4cb25] <2.11-maint> - -2019-09-05 Phil Thompson - - * Python/project.py: - Added the options to build the bindings from a locally installed - copy of the library. - [54094e26d201] <2.11-maint> - -2019-09-04 Phil Thompson - - * Python/configure-old.py, Python/configure.py, Python/project.py, - designer-Qt4Qt5/designer.pro, example-Qt4Qt5/application.pro, - qt/qscintilla.pro: - Removed the code to change the install_name on macOS. - [c88922cb4dee] <2.11-maint> - - * Python/configure.py, qt/qscintilla.pro: - Fixed the install_name of the .dylib on macOS so that it is relative - to @rpath. - [010c78f5da88] <2.11-maint> - - * Python/config-tests/cfgtest_Qsci.cpp: - Fixed the configuration test. - [c00c4195e8fc] <2.11-maint> - - * METADATA.in, Python/README, Python/config-tests/cfgtest_Qsci.cpp, - Python/configure-old.py, Python/configure.py, Python/project.py, - lib/README, lib/pyproject.toml, qt/qscintilla.pro: - Added support for sip-build. - [20e39552153c] <2.11-maint> - -2019-08-30 Phil Thompson - - * METADATA.in, lib/README: - Updated the meta-data description. - [7681c13103f2] <2.11-maint> - -2019-08-21 Phil Thompson - - * METADATA.in: - Updated the link to the docs for PyPI. - [ab14aecc07de] <2.11-maint> - -2019-07-04 Phil Thompson - - * qt/qscilexercss.cpp: - Fixed the styling of CSS comments. - [9b2dd132b868] <2.11-maint> - -2019-06-25 Phil Thompson - - * .hgtags: - Added tag 2.11.2 for changeset 9a9bab556970 - [e39e215312b4] <2.11-maint> - - * NEWS: - Released as v2.11.2. - [9a9bab556970] [2.11.2] <2.11-maint> - - * qsci/api/python/Python-3.8.api: - Added the .api file for Python v3.8. - [4bc9c6baa011] <2.11-maint> - - * NEWS: - Updated the NEWS file. - [38685401d592] <2.11-maint> - -2019-05-31 Phil Thompson - - * qt/PlatQt.cpp: - Fixes to allow compilation with WASM. - [71be3fd818c8] <2.11-maint> - -2019-05-15 Phil Thompson - - * qt/ScintillaQt.cpp, qt/ScintillaQt.h, qt/qsciscintillabase.cpp, - qt/qsciscintillabase.h: - Fixed selection-related issues on macOS (and probably Windows) - triggered by the use of additional selections. - [47aaec2fa37c] <2.11-maint> - -2019-05-09 Phil Thompson - - * NEWS, Python/sip/qsciscintilla.sip, qt/qsciscintilla.cpp, - qt/qsciscintilla.h: - QsciScintilla::findMatchingBrace() is now part of the public API. - [b1973ad12f82] <2.11-maint> - -2019-03-13 Phil Thompson - - * NEWS, qt/qsciscintilla.cpp: - QsciScintilla::clear() now clears the undo history to be consistent - with Qt and setText(). - [b013bbaed4a5] <2.11-maint> - 2019-02-12 Phil Thompson - * .hgtags: - Added tag 2.11.1 for changeset bebf741baff8 - [c09e91f304b8] <2.11-maint> - * NEWS: Released as v2.11.1. [bebf741baff8] [2.11.1] <2.11-maint> diff --git a/libs/qscintilla/NEWS b/libs/qscintilla/NEWS index a2059b26..28f8f1f2 100644 --- a/libs/qscintilla/NEWS +++ b/libs/qscintilla/NEWS @@ -1,53 +1,3 @@ -v2.13.3 25th April 2022 - - Bug fixes. - -v2.13.2 15th March 2022 - - Bug fixes that only affect iOS. - -v2.13.1 12th October 2021 - - Documented how to build for multiple architectures on macOS. - - Bug fixes. - -v2.13.0 13th June 2021 - - Added the QsciPrinter::printRange() overload that uses a supplied QPainter - to render the pages. - - Improved the appearence of the auto-completion popup. - - Bug fixes. - -v2.12.1 4th March 2021 - - Packaging bug fixes. - -v2.12.0 23rd February 2021 - - Added support for Qt6. - - Removed support for Qt4 and Qt5 earlier than v5.11.0. - - sdists are now provided. - -v2.11.6 23rd November 2020 - - Added the --qsci-translations-dir option to sip-wheel. - - Added the .api file for Python v3.9. - - Build system changes. - - Bug fixes. - -v2.11.5 10th June 2020 - - The bundled .api files are now included in Python wheels if the - QScintilla.api file is enabled. - - Bug fixes. - -v2.11.4 19th December 2019 - - An administrative release with no code changes. - -v2.11.3 3rd November 2019 - - Added support for SIP v5. - - On macOS the install name of the C++ library is now relative to @rpath. - -v2.11.2 26th June 2019 - - Added QsciScintilla::findMatchingBrace(). - - QsciScintiila::clear() is no longer undoable and instead clears the undo - history. - - Added support for building with WASM. - - Added the .api file for Python v3.8. - - Bug fixes. - v2.11.1 14th February 2019 - There is a small (but potentially incompatible) change to the signature of a QsciScintillaBase::SendScintilla() overload which may require an explicit diff --git a/libs/qscintilla/Qt4Qt5/CMakeLists.txt b/libs/qscintilla/Qt4Qt5/CMakeLists.txt new file mode 100644 index 00000000..2309795a --- /dev/null +++ b/libs/qscintilla/Qt4Qt5/CMakeLists.txt @@ -0,0 +1,183 @@ +cmake_minimum_required(VERSION 2.8.12.2) + +# Disable AUTOMOC because it cannot be made to work with QScintilla +set(CMAKE_AUTOMOC OFF) +set(CMAKE_INCLUDE_CURRENT_DIR ON) + +find_package(Qt5 REQUIRED COMPONENTS PrintSupport Widgets) + +if(APPLE) + find_package(Qt5 REQUIRED COMPONENTS MacExtras) +endif() + +add_definitions(-DSCINTILLA_QT) +add_definitions(-DSCI_LEXER) + +set(QSCINTILLA_SRC + qsciscintilla.cpp + qsciscintillabase.cpp + qsciabstractapis.cpp + qsciapis.cpp + qscicommand.cpp + qscicommandset.cpp + qscidocument.cpp + qscilexer.cpp + qscilexercustom.cpp + qscilexersql.cpp + qscilexerjson.cpp + qscilexerhtml.cpp + qscilexerxml.cpp + qscilexerjavascript.cpp + qscilexercpp.cpp + qscilexerpython.cpp + qscimacro.cpp + qsciprinter.cpp + qscistyle.cpp + qscistyledtext.cpp + MacPasteboardMime.cpp + InputMethod.cpp + SciClasses.cpp + ListBoxQt.cpp + PlatQt.cpp + ScintillaQt.cpp + SciAccessibility.cpp + ../lexers/LexSQL.cpp + ../lexers/LexJSON.cpp + ../lexers/LexHTML.cpp + ../lexlib/Accessor.cpp + ../lexlib/CharacterCategory.cpp + ../lexlib/CharacterSet.cpp + ../lexlib/DefaultLexer.cpp + ../lexlib/LexerBase.cpp + ../lexlib/LexerModule.cpp + ../lexlib/LexerNoExceptions.cpp + ../lexlib/LexerSimple.cpp + ../lexlib/PropSetSimple.cpp + ../lexlib/StyleContext.cpp + ../lexlib/WordList.cpp + ../src/AutoComplete.cpp + ../src/CallTip.cpp + ../src/CaseConvert.cpp + ../src/CaseFolder.cpp + ../src/Catalogue.cpp + ../src/CellBuffer.cpp + ../src/CharClassify.cpp + ../src/ContractionState.cpp + ../src/Decoration.cpp + ../src/Document.cpp + ../src/Editor.cpp + ../src/EditModel.cpp + ../src/EditView.cpp + ../src/ExternalLexer.cpp + ../src/Indicator.cpp + ../src/KeyMap.cpp + ../src/LineMarker.cpp + ../src/MarginView.cpp + ../src/PerLine.cpp + ../src/PositionCache.cpp + ../src/RESearch.cpp + ../src/RunStyles.cpp + ../src/ScintillaBase.cpp + ../src/Selection.cpp + ../src/Style.cpp + ../src/UniConversion.cpp + ../src/ViewStyle.cpp + ../src/XPM.cpp +) + +set(QSCINTILLA_HDR + ./Qsci/qsciglobal.h + ./Qsci/qscicommand.h + ./Qsci/qscicommandset.h + ./Qsci/qscidocument.h + ./Qsci/qsciprinter.h + ./Qsci/qscistyle.h + ./Qsci/qscistyledtext.h + ListBoxQt.h + SciNamespace.h + ../include/ILexer.h + ../include/Platform.h + ../include/SciLexer.h + ../include/Scintilla.h + ../include/ScintillaWidget.h + ../include/Sci_Position.h + ../lexlib/Accessor.h + ../lexlib/CharacterCategory.h + ../lexlib/CharacterSet.h + ../lexlib/DefaultLexer.h + ../lexlib/LexAccessor.h + ../lexlib/LexerBase.h + ../lexlib/LexerModule.h + ../lexlib/LexerNoExceptions.h + ../lexlib/LexerSimple.h + ../lexlib/OptionSet.h + ../lexlib/PropSetSimple.h + ../lexlib/StyleContext.h + ../lexlib/SubStyles.h + ../lexlib/WordList.h + ../src/AutoComplete.h + ../src/CallTip.h + ../src/CaseConvert.h + ../src/CaseFolder.h + ../src/Catalogue.h + ../src/CellBuffer.h + ../src/CharClassify.h + ../src/ContractionState.h + ../src/Decoration.h + ../src/Document.h + ../src/Editor.h + ../src/ExternalLexer.h + ../src/FontQuality.h + ../src/Indicator.h + ../src/KeyMap.h + ../src/LineMarker.h + ../src/Partitioning.h + ../src/PerLine.h + ../src/PositionCache.h + ../src/RESearch.h + ../src/RunStyles.h + ../src/ScintillaBase.h + ../src/Selection.h + ../src/SplitVector.h + ../src/Style.h + ../src/UnicodeFromUTF8.h + ../src/UniConversion.h + ../src/ViewStyle.h + ../src/XPM.h + ../src/Position.h + ../src/SparseVector.h +) + +set(QSCINTILLA_MOC_HDR + ./Qsci/qsciscintilla.h + ./Qsci/qsciscintillabase.h + ./Qsci/qsciabstractapis.h + ./Qsci/qsciapis.h + ./Qsci/qscilexer.h + ./Qsci/qscilexercustom.h + ./Qsci/qscilexersql.h + ./Qsci/qscilexerjson.h + ./Qsci/qscilexerhtml.h + ./Qsci/qscilexerxml.h + ./Qsci/qscilexerjavascript.h + ./Qsci/qscilexercpp.h + ./Qsci/qscilexerpython.h + ./Qsci/qscimacro.h + SciClasses.h + ScintillaQt.h + SciAccessibility.h +) + +QT5_WRAP_CPP(QSCINTILLA_WRAP_MOC_HDR ${QSCINTILLA_MOC_HDR}) + +add_library(qscintilla2 ${QSCINTILLA_SRC} ${QSCINTILLA_HDR} ${QSCINTILLA_MOC_HDR} ${QSCINTILLA_MOC} ${QSCINTILLA_WRAP_MOC_HDR}) +target_include_directories(qscintilla2 PRIVATE ../include ../lexlib ../src) +target_include_directories(qscintilla2 INTERFACE .) + +target_link_libraries(qscintilla2 Qt5::Widgets Qt5::PrintSupport) + +if (APPLE) + target_link_libraries(qscintilla2 Qt5::MacExtras) +endif() + +add_library(QScintilla::QScintilla ALIAS qscintilla2) diff --git a/libs/qscintilla/src/InputMethod.cpp b/libs/qscintilla/Qt4Qt5/InputMethod.cpp similarity index 92% rename from libs/qscintilla/src/InputMethod.cpp rename to libs/qscintilla/Qt4Qt5/InputMethod.cpp index 7e2e2e35..f4ba7fc4 100644 --- a/libs/qscintilla/src/InputMethod.cpp +++ b/libs/qscintilla/Qt4Qt5/InputMethod.cpp @@ -1,4 +1,4 @@ -// Copyright (c) 2021 Riverbank Computing Limited +// Copyright (c) 2017 Riverbank Computing Limited // Copyright (c) 2011 Archaeopteryx Software, Inc. // Copyright (c) 1990-2011, Scientific Toolworks, Inc. // @@ -137,45 +137,44 @@ void QsciScintillaBase::inputMethodEvent(QInputMethodEvent *event) return; } - bool initialCompose = false; if (sci->pdoc->TentativeActive()) { sci->pdoc->TentativeUndo(); } else { // No tentative undo means start of this composition so // Fill in any virtual spaces. - initialCompose = true; + sci->ClearBeforeTentativeStart(); } sci->view.imeCaretBlockOverride = false; if (!event->commitString().isEmpty()) { const QString commitStr = event->commitString(); - const int commitStrLen = commitStr.length(); + const unsigned int commitStrLen = commitStr.length(); - for (int i = 0; i < commitStrLen;) { - const int ucWidth = commitStr.at(i).isHighSurrogate() ? 2 : 1; + for (unsigned int i = 0; i < commitStrLen;) { + const unsigned int ucWidth = commitStr.at(i).isHighSurrogate() ? 2 : 1; const QString oneCharUTF16 = commitStr.mid(i, ucWidth); const QByteArray oneChar = textAsBytes(oneCharUTF16); const int oneCharLen = oneChar.length(); - sci->AddCharUTF(oneChar.data(), oneChar.length()); + sci->AddCharUTF(oneChar.data(), oneCharLen); i += ucWidth; } } else if (!event->preeditString().isEmpty()) { const QString preeditStr = event->preeditString(); - const int preeditStrLen = preeditStr.length(); - if (preeditStrLen == 0) { + const unsigned int preeditStrLen = preeditStr.length(); + if ((preeditStrLen == 0) || (preeditStrLen > MAXLENINPUTIME)) { sci->ShowCaretAtCurrentPosition(); return; } - if (initialCompose) - sci->ClearBeforeTentativeStart(); sci->pdoc->TentativeStart(); // TentativeActive() from now on. std::vector imeIndicator = MapImeIndicators(event); + const bool recording = sci->recordingMacro; + sci->recordingMacro = false; for (unsigned int i = 0; i < preeditStrLen;) { const unsigned int ucWidth = preeditStr.at(i).isHighSurrogate() ? 2 : 1; const QString oneCharUTF16 = preeditStr.mid(i, ucWidth); @@ -187,6 +186,7 @@ void QsciScintillaBase::inputMethodEvent(QInputMethodEvent *event) DrawImeIndicator(sci, imeIndicator[i], oneCharLen); i += ucWidth; } + sci->recordingMacro = recording; // Move IME carets. int imeCaretPos = GetImeCaretPos(event); @@ -205,7 +205,7 @@ void QsciScintillaBase::inputMethodEvent(QInputMethodEvent *event) sci->view.imeCaretBlockOverride = true; } - // Set candidate box position for Qt::ImCursorRectangle. + // Set candidate box position for Qt::ImMicroFocus. preeditPos = sci->CurrentPosition(); sci->EnsureCaretVisible(); updateMicroFocus(); @@ -219,10 +219,12 @@ QVariant QsciScintillaBase::inputMethodQuery(Qt::InputMethodQuery query) const int line = SendScintilla(SCI_LINEFROMPOSITION, pos); switch (query) { +#if QT_VERSION >= 0x050000 case Qt::ImHints: return QWidget::inputMethodQuery(query); +#endif - case Qt::ImCursorRectangle: + case Qt::ImMicroFocus: { int startPos = (preeditPos >= 0) ? preeditPos : pos; Scintilla::Point pt = sci->LocationFromPosition(startPos); diff --git a/libs/qscintilla/src/ListBoxQt.cpp b/libs/qscintilla/Qt4Qt5/ListBoxQt.cpp similarity index 91% rename from libs/qscintilla/src/ListBoxQt.cpp rename to libs/qscintilla/Qt4Qt5/ListBoxQt.cpp index a0b4a996..c4db45ce 100644 --- a/libs/qscintilla/src/ListBoxQt.cpp +++ b/libs/qscintilla/Qt4Qt5/ListBoxQt.cpp @@ -1,7 +1,7 @@ // This module implements the specialisation of QListBox that handles the // Scintilla double-click callback. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -23,8 +23,6 @@ #include -#include - #include "SciClasses.h" #include "Qsci/qsciscintilla.h" @@ -81,22 +79,10 @@ Scintilla::PRectangle QsciListBoxQt::GetDesiredRect() if (slb) { - int rows = slb->count(); + QSize sh = slb->sizeHint(); - if (rows == 0 || rows > visible_rows) - rows = visible_rows; - - int row_height = slb->sizeHintForRow(0); - int height = (rows * row_height) + (2 * slb->frameWidth()); - - int width = slb->sizeHintForColumn(0) + (2 * slb->frameWidth()); - - if (slb->count() > rows) - width += QApplication::style()->pixelMetric( - QStyle::PM_ScrollBarExtent); - - rc.right = width; - rc.bottom = height; + rc.right = sh.width(); + rc.bottom = sh.height(); } return rc; @@ -257,7 +243,11 @@ void QsciListBoxQt::RegisterRGBAImage(int type, int, int, { QPixmap pm; +#if QT_VERSION >= 0x040700 pm.convertFromImage(*reinterpret_cast(pixelsImage)); +#else + pm = QPixmap::fromImage(*reinterpret_cast(pixelsImage)); +#endif xset.insert(type, pm); } diff --git a/libs/qscintilla/src/ListBoxQt.h b/libs/qscintilla/Qt4Qt5/ListBoxQt.h similarity index 97% rename from libs/qscintilla/src/ListBoxQt.h rename to libs/qscintilla/Qt4Qt5/ListBoxQt.h index 06d1d441..e4bc7711 100644 --- a/libs/qscintilla/src/ListBoxQt.h +++ b/libs/qscintilla/Qt4Qt5/ListBoxQt.h @@ -1,7 +1,7 @@ // This defines the specialisation of QListBox that handles the Scintilla // double-click callback. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/MacPasteboardMime.cpp b/libs/qscintilla/Qt4Qt5/MacPasteboardMime.cpp similarity index 91% rename from libs/qscintilla/src/MacPasteboardMime.cpp rename to libs/qscintilla/Qt4Qt5/MacPasteboardMime.cpp index af6bc41f..d1cfca97 100644 --- a/libs/qscintilla/src/MacPasteboardMime.cpp +++ b/libs/qscintilla/Qt4Qt5/MacPasteboardMime.cpp @@ -1,8 +1,8 @@ // This module implements part of the support for rectangular selections on -// macOS. It is a separate file to avoid clashes between macOS and Scintilla +// OS/X. It is a separate file to avoid clashes between OS/X and Scintilla // data types. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -22,7 +22,7 @@ #include -#if QT_VERSION < 0x060000 && defined(Q_OS_OSX) +#if (QT_VERSION >= 0x040200 && QT_VERSION < 0x050000 && defined(Q_OS_MAC)) || (QT_VERSION >= 0x050200 && defined(Q_OS_OSX)) #include #include diff --git a/libs/qscintilla/src/PlatQt.cpp b/libs/qscintilla/Qt4Qt5/PlatQt.cpp similarity index 92% rename from libs/qscintilla/src/PlatQt.cpp rename to libs/qscintilla/Qt4Qt5/PlatQt.cpp index 7a958f95..6c3127b5 100644 --- a/libs/qscintilla/src/PlatQt.cpp +++ b/libs/qscintilla/Qt4Qt5/PlatQt.cpp @@ -1,6 +1,6 @@ // This module implements the portability layer for the Qt port of Scintilla. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -25,20 +25,17 @@ #include #include #include +#include #include #include +#include #include #include #include -#include #include #include #include -#if !defined(Q_OS_WASM) -#include -#endif - #include "Platform.h" #include "XPM.h" @@ -98,34 +95,48 @@ void Font::Create(const FontParameters &fp) strategy = QFont::PreferDefault; } - f->setStyleStrategy(strategy); - f->setFamily(fp.faceName); - f->setPointSizeF(fp.size); - f->setItalic(fp.italic); - - // Scintilla weights are between 1 and 100, Qt5 weights are between 0 and - // 99, and Qt6 weights match Scintilla. A negative weight is interpreted - // as an explicit Qt weight (ie. the back door). -#if QT_VERSION >= 0x060000 - QFont::Weight qt_weight = static_cast(abs(fp.weight)); +#if defined(Q_OS_MAC) && QT_VERSION < 0x050000 +#if QT_VERSION >= 0x040700 + strategy = static_cast(strategy | QFont::ForceIntegerMetrics); #else - int qt_weight; - - if (fp.weight < 0) - qt_weight = -fp.weight; - else if (fp.weight <= 200) - qt_weight = QFont::Light; - else if (fp.weight <= QsciScintillaBase::SC_WEIGHT_NORMAL) - qt_weight = QFont::Normal; - else if (fp.weight <= 600) - qt_weight = QFont::DemiBold; - else if (fp.weight <= 850) - qt_weight = QFont::Bold; - else - qt_weight = QFont::Black; +#warning "Correct handling of QFont metrics requires Qt v4.7.0 or later" +#endif #endif - f->setWeight(qt_weight); + f->setStyleStrategy(strategy); + + // If name of the font begins with a '-', assume, that it is an XLFD. + if (fp.faceName[0] == '-') + { + f->setRawName(fp.faceName); + } + else + { + f->setFamily(fp.faceName); + f->setPointSizeF(fp.size); + + // See if the Qt weight has been passed via the back door. Otherwise + // map Scintilla weights to Qt weights ensuring that the SC_WEIGHT_* + // values get mapped to the correct QFont::Weight values. + int qt_weight; + + if (fp.weight < 0) + qt_weight = -fp.weight; + else if (fp.weight <= 200) + qt_weight = QFont::Light; + else if (fp.weight <= QsciScintillaBase::SC_WEIGHT_NORMAL) + qt_weight = QFont::Normal; + else if (fp.weight <= 600) + qt_weight = QFont::DemiBold; + else if (fp.weight <= 850) + qt_weight = QFont::Bold; + else + qt_weight = QFont::Black; + + f->setWeight(qt_weight); + + f->setItalic(fp.italic); + } fid = f; } @@ -264,9 +275,14 @@ void SurfaceImpl::InitPixMap(int width, int height, Surface *sid, WindowID wid) { Release(); +#if QT_VERSION >= 0x050100 int dpr = PWindow(wid)->devicePixelRatio(); QPixmap *pixmap = new QPixmap(width * dpr, height * dpr); pixmap->setDevicePixelRatio(dpr); +#else + QPixmap *pixmap = new QPixmap(width, height); + Q_UNUSED(wid); +#endif pd = pixmap; @@ -380,9 +396,8 @@ void SurfaceImpl::RoundedRectangle(PRectangle rc, ColourDesired fore, painter->setPen(convertQColor(fore)); painter->setBrush(convertQColor(back)); - painter->drawRoundedRect( - QRectF(rc.left, rc.top, rc.right - rc.left, rc.bottom - rc.top), - 25, 25, Qt::RelativeSize); + painter->drawRoundRect( + QRectF(rc.left, rc.top, rc.right - rc.left, rc.bottom - rc.top)); } void SurfaceImpl::AlphaRectangle(PRectangle rc, int cornerSize, @@ -405,9 +420,9 @@ void SurfaceImpl::AlphaRectangle(PRectangle rc, int cornerSize, const int radius = (cornerSize ? 25 : 0); - painter->drawRoundedRect( + painter->drawRoundRect( QRectF(rc.left, rc.top, rc.right - rc.left, rc.bottom - rc.top), - radius, radius, Qt::RelativeSize); + radius, radius); } void SurfaceImpl::GradientRectangle(PRectangle rc, @@ -470,12 +485,14 @@ void SurfaceImpl::Copy(PRectangle rc, Point from, Surface &surfaceSource) qreal width = rc.right - rc.left; qreal height = rc.bottom - rc.top; +#if QT_VERSION >= 0x050100 qreal dpr = pm->devicePixelRatio(); x *= dpr; y *= dpr; width *= dpr; height *= dpr; +#endif painter->drawPixmap(QPointF(rc.left, rc.top), *pm, QRectF(x, y, width, height)); @@ -613,7 +630,7 @@ void SurfaceImpl::MeasureWidths(Font &font_, const char *s, int len, XYPOSITION SurfaceImpl::WidthText(Font &font_, const char *s, int len) { - return metrics(font_).horizontalAdvance(convertText(s, len)); + return metrics(font_).width(convertText(s, len)); } @@ -639,7 +656,11 @@ XYPOSITION SurfaceImpl::Height(Font &font_) XYPOSITION SurfaceImpl::AverageCharWidth(Font &font_) { +#if QT_VERSION >= 0x040200 return metrics(font_).averageCharWidth(); +#else + return metrics(font_).width('n'); +#endif } void SurfaceImpl::SetClip(PRectangle rc) @@ -831,7 +852,7 @@ void Window::SetCursor(Cursor curs) PRectangle Window::GetMonitorRect(Point pt) { QPoint qpt = PWindow(wid)->mapToGlobal(QPoint(pt.x, pt.y)); - QRect qr = QApplication::screenAt(qpt)->availableGeometry(); + QRect qr = QApplication::desktop()->availableGeometry(qpt); qpt = PWindow(wid)->mapFromGlobal(qr.topLeft()); return PRectangle(qpt.x(), qpt.y(), qpt.x() + qr.width(), qpt.y() + qr.height()); @@ -871,43 +892,31 @@ class DynamicLibraryImpl : public DynamicLibrary public: DynamicLibraryImpl(const char *modulePath) { -#if !defined(Q_OS_WASM) m = new QLibrary(modulePath); m->load(); -#endif } virtual ~DynamicLibraryImpl() { -#if !defined(Q_OS_WASM) if (m) delete m; -#endif } virtual Function FindFunction(const char *name) { -#if !defined(Q_OS_WASM) if (m) return (Function)m->resolve(name); -#endif return 0; } virtual bool IsValid() { -#if !defined(Q_OS_WASM) return m && m->isLoaded(); -#else - return false; -#endif } private: -#if !defined(Q_OS_WASM) QLibrary* m; -#endif }; DynamicLibrary *DynamicLibrary::Load(const char *modulePath) diff --git a/libs/qscintilla/src/Qsci/qsciabstractapis.h b/libs/qscintilla/Qt4Qt5/Qsci/qsciabstractapis.h similarity index 98% rename from libs/qscintilla/src/Qsci/qsciabstractapis.h rename to libs/qscintilla/Qt4Qt5/Qsci/qsciabstractapis.h index 884b0912..38b6133a 100644 --- a/libs/qscintilla/src/Qsci/qsciabstractapis.h +++ b/libs/qscintilla/Qt4Qt5/Qsci/qsciabstractapis.h @@ -1,6 +1,6 @@ // This module defines interface to the QsciAbstractAPIs class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/Qsci/qsciapis.h b/libs/qscintilla/Qt4Qt5/Qsci/qsciapis.h similarity index 99% rename from libs/qscintilla/src/Qsci/qsciapis.h rename to libs/qscintilla/Qt4Qt5/Qsci/qsciapis.h index 1ba698e5..c89ebe7a 100644 --- a/libs/qscintilla/src/Qsci/qsciapis.h +++ b/libs/qscintilla/Qt4Qt5/Qsci/qsciapis.h @@ -1,6 +1,6 @@ // This module defines interface to the QsciAPIs class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/Qsci/qscicommand.h b/libs/qscintilla/Qt4Qt5/Qsci/qscicommand.h similarity index 99% rename from libs/qscintilla/src/Qsci/qscicommand.h rename to libs/qscintilla/Qt4Qt5/Qsci/qscicommand.h index 0d0cdc35..4b68c9f6 100644 --- a/libs/qscintilla/src/Qsci/qscicommand.h +++ b/libs/qscintilla/Qt4Qt5/Qsci/qscicommand.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciCommand class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/Qsci/qscicommandset.h b/libs/qscintilla/Qt4Qt5/Qsci/qscicommandset.h similarity index 97% rename from libs/qscintilla/src/Qsci/qscicommandset.h rename to libs/qscintilla/Qt4Qt5/Qsci/qscicommandset.h index 83f9f9dc..e1959191 100644 --- a/libs/qscintilla/src/Qsci/qscicommandset.h +++ b/libs/qscintilla/Qt4Qt5/Qsci/qscicommandset.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciCommandSet class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/Qsci/qscidocument.h b/libs/qscintilla/Qt4Qt5/Qsci/qscidocument.h similarity index 96% rename from libs/qscintilla/src/Qsci/qscidocument.h rename to libs/qscintilla/Qt4Qt5/Qsci/qscidocument.h index b6eeec9e..feba21a0 100644 --- a/libs/qscintilla/src/Qsci/qscidocument.h +++ b/libs/qscintilla/Qt4Qt5/Qsci/qscidocument.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciDocument class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/Qsci/qsciglobal.h b/libs/qscintilla/Qt4Qt5/Qsci/qsciglobal.h similarity index 84% rename from libs/qscintilla/src/Qsci/qsciglobal.h rename to libs/qscintilla/Qt4Qt5/Qsci/qsciglobal.h index 8b222dfd..14fe5483 100644 --- a/libs/qscintilla/src/Qsci/qsciglobal.h +++ b/libs/qscintilla/Qt4Qt5/Qsci/qsciglobal.h @@ -1,6 +1,6 @@ // This module defines various things common to all of the Scintilla Qt port. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -24,14 +24,8 @@ #include -#define QSCINTILLA_VERSION 0x020d03 -#define QSCINTILLA_VERSION_STR "2.13.3" - - -// We only support Qt v5.11 and later. -#if QT_VERSION < 0x050b00 -#error "Qt v5.11.0 or later is required" -#endif +#define QSCINTILLA_VERSION 0x020b01 +#define QSCINTILLA_VERSION_STR "2.11.1" // Define QSCINTILLA_MAKE_DLL to create a QScintilla shared library, or diff --git a/libs/qscintilla/src/Qsci/qscilexer.h b/libs/qscintilla/Qt4Qt5/Qsci/qscilexer.h similarity index 99% rename from libs/qscintilla/src/Qsci/qscilexer.h rename to libs/qscintilla/Qt4Qt5/Qsci/qscilexer.h index 21d19fd3..e05cc21d 100644 --- a/libs/qscintilla/src/Qsci/qscilexer.h +++ b/libs/qscintilla/Qt4Qt5/Qsci/qscilexer.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciLexer class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/Qsci/qscilexercpp.h b/libs/qscintilla/Qt4Qt5/Qsci/qscilexercpp.h similarity index 99% rename from libs/qscintilla/src/Qsci/qscilexercpp.h rename to libs/qscintilla/Qt4Qt5/Qsci/qscilexercpp.h index 2be4f53b..69abc1ce 100644 --- a/libs/qscintilla/src/Qsci/qscilexercpp.h +++ b/libs/qscintilla/Qt4Qt5/Qsci/qscilexercpp.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciLexerCPP class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/Qsci/qscilexercustom.h b/libs/qscintilla/Qt4Qt5/Qsci/qscilexercustom.h similarity index 98% rename from libs/qscintilla/src/Qsci/qscilexercustom.h rename to libs/qscintilla/Qt4Qt5/Qsci/qscilexercustom.h index 0a9041d1..e2210dfb 100644 --- a/libs/qscintilla/src/Qsci/qscilexercustom.h +++ b/libs/qscintilla/Qt4Qt5/Qsci/qscilexercustom.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciLexerCustom class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/Qsci/qscilexerhtml.h b/libs/qscintilla/Qt4Qt5/Qsci/qscilexerhtml.h similarity index 99% rename from libs/qscintilla/src/Qsci/qscilexerhtml.h rename to libs/qscintilla/Qt4Qt5/Qsci/qscilexerhtml.h index 2aa29fa4..825b3333 100644 --- a/libs/qscintilla/src/Qsci/qscilexerhtml.h +++ b/libs/qscintilla/Qt4Qt5/Qsci/qscilexerhtml.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciLexerHTML class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/Qsci/qscilexerjavascript.h b/libs/qscintilla/Qt4Qt5/Qsci/qscilexerjavascript.h similarity index 97% rename from libs/qscintilla/src/Qsci/qscilexerjavascript.h rename to libs/qscintilla/Qt4Qt5/Qsci/qscilexerjavascript.h index 610f9643..cf37fcd1 100644 --- a/libs/qscintilla/src/Qsci/qscilexerjavascript.h +++ b/libs/qscintilla/Qt4Qt5/Qsci/qscilexerjavascript.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciLexerJavaScript class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/Qsci/qscilexerjson.h b/libs/qscintilla/Qt4Qt5/Qsci/qscilexerjson.h similarity index 98% rename from libs/qscintilla/src/Qsci/qscilexerjson.h rename to libs/qscintilla/Qt4Qt5/Qsci/qscilexerjson.h index 97af1bd2..8f6d956b 100644 --- a/libs/qscintilla/src/Qsci/qscilexerjson.h +++ b/libs/qscintilla/Qt4Qt5/Qsci/qscilexerjson.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciLexerJSON class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/Qsci/qscilexerpython.h b/libs/qscintilla/Qt4Qt5/Qsci/qscilexerpython.h similarity index 99% rename from libs/qscintilla/src/Qsci/qscilexerpython.h rename to libs/qscintilla/Qt4Qt5/Qsci/qscilexerpython.h index b4ae799f..40328078 100644 --- a/libs/qscintilla/src/Qsci/qscilexerpython.h +++ b/libs/qscintilla/Qt4Qt5/Qsci/qscilexerpython.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciLexerPython class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/Qsci/qscilexersql.h b/libs/qscintilla/Qt4Qt5/Qsci/qscilexersql.h similarity index 99% rename from libs/qscintilla/src/Qsci/qscilexersql.h rename to libs/qscintilla/Qt4Qt5/Qsci/qscilexersql.h index 9b170334..0932d106 100644 --- a/libs/qscintilla/src/Qsci/qscilexersql.h +++ b/libs/qscintilla/Qt4Qt5/Qsci/qscilexersql.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciLexerSQL class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/Qsci/qscilexerxml.h b/libs/qscintilla/Qt4Qt5/Qsci/qscilexerxml.h similarity index 98% rename from libs/qscintilla/src/Qsci/qscilexerxml.h rename to libs/qscintilla/Qt4Qt5/Qsci/qscilexerxml.h index d0b3e68e..6aafedc2 100644 --- a/libs/qscintilla/src/Qsci/qscilexerxml.h +++ b/libs/qscintilla/Qt4Qt5/Qsci/qscilexerxml.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciLexerXML class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/Qsci/qscimacro.h b/libs/qscintilla/Qt4Qt5/Qsci/qscimacro.h similarity index 97% rename from libs/qscintilla/src/Qsci/qscimacro.h rename to libs/qscintilla/Qt4Qt5/Qsci/qscimacro.h index 049493b0..f079fb22 100644 --- a/libs/qscintilla/src/Qsci/qscimacro.h +++ b/libs/qscintilla/Qt4Qt5/Qsci/qscimacro.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciMacro class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/Qsci/qsciprinter.h b/libs/qscintilla/Qt4Qt5/Qsci/qsciprinter.h similarity index 79% rename from libs/qscintilla/src/Qsci/qsciprinter.h rename to libs/qscintilla/Qt4Qt5/Qsci/qsciprinter.h index 686cd7ce..d7457c46 100644 --- a/libs/qscintilla/src/Qsci/qsciprinter.h +++ b/libs/qscintilla/Qt4Qt5/Qsci/qsciprinter.h @@ -1,6 +1,6 @@ // This module defines interface to the QsciPrinter class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -64,7 +64,7 @@ public: //! area of the page that will be used to draw the text. This should be //! modified if it is necessary to reserve space for any customised text or //! graphics. By default the area is relative to the printable area of the - //! page. Use QPrinter::setFullPage() before calling printRange() if you + //! page. Use QPrinter::setFullPage() because calling printRange() if you //! want to try and print over the whole page. \a pagenr is the number of //! the page. The first page is numbered 1. virtual void formatPage(QPainter &painter, bool drawing, QRect &area, @@ -81,19 +81,11 @@ public: //! \sa magnification() virtual void setMagnification(int magnification); - //! Print a range of lines from the Scintilla instance \a qsb using the - //! supplied QPainter \a painter. \a from is the first line to print and a - //! negative value signifies the first line of text. \a to is the last - //! line to print and a negative value signifies the last line of text. - //! true is returned if there was no error. - virtual int printRange(QsciScintillaBase *qsb, QPainter &painter, - int from = -1, int to = -1); - - //! Print a range of lines from the Scintilla instance \a qsb using a - //! default QPainter. \a from is the first line to print and a negative - //! value signifies the first line of text. \a to is the last line to - //! print and a negative value signifies the last line of text. true is - //! returned if there was no error. + //! Print a range of lines from the Scintilla instance \a qsb. \a from is + //! the first line to print and a negative value signifies the first line + //! of text. \a to is the last line to print and a negative value + //! signifies the last line of text. true is returned if there was no + //! error. virtual int printRange(QsciScintillaBase *qsb, int from = -1, int to = -1); //! Return the line wrap mode used when printing. The default is diff --git a/libs/qscintilla/src/Qsci/qsciscintilla.h b/libs/qscintilla/Qt4Qt5/Qsci/qsciscintilla.h similarity index 99% rename from libs/qscintilla/src/Qsci/qsciscintilla.h rename to libs/qscintilla/Qt4Qt5/Qsci/qsciscintilla.h index c8f1eeeb..0732b404 100644 --- a/libs/qscintilla/src/Qsci/qsciscintilla.h +++ b/libs/qscintilla/Qt4Qt5/Qsci/qsciscintilla.h @@ -1,7 +1,7 @@ // This module defines the "official" high-level API of the Qt port of // Scintilla. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -842,13 +842,6 @@ public: //! \sa cancelFind(), findFirst(), findFirstInSelection(), replace() virtual bool findNext(); - //! Find a brace and it's match. \a brace is updated with the position of - //! the brace and will be -1 if there is none. \a is updated with the - //! position of the matching brace and will be -1 if there is none. - //! \a mode specifies how braces are matched. true is returned if the - //! current position is inside a pair of braces. - bool findMatchingBrace(long &brace, long &other, BraceMatch mode); - //! Returns the number of the first visible line. //! //! \sa setFirstVisibleLine() @@ -2224,6 +2217,7 @@ private: void setEnabledColors(int style, QColor &fore, QColor &back); void braceMatch(); + bool findMatchingBrace(long &brace, long &other, BraceMatch mode); long checkBrace(long pos, int brace_style, bool &colonMode); void gotoMatchingBrace(bool select); diff --git a/libs/qscintilla/src/Qsci/qsciscintillabase.h b/libs/qscintilla/Qt4Qt5/Qsci/qsciscintillabase.h similarity index 99% rename from libs/qscintilla/src/Qsci/qsciscintillabase.h rename to libs/qscintilla/Qt4Qt5/Qsci/qsciscintillabase.h index a253b115..ac9b6d30 100644 --- a/libs/qscintilla/src/Qsci/qsciscintillabase.h +++ b/libs/qscintilla/Qt4Qt5/Qsci/qsciscintillabase.h @@ -1,6 +1,6 @@ // This class defines the "official" low-level API. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -3862,6 +3862,7 @@ protected: private slots: void handleVSb(int value); void handleHSb(int value); + void handleSelection(); private: // This is needed to allow QsciScintillaQt to emit this class's signals. @@ -3873,7 +3874,9 @@ private: int preeditPos; int preeditNrBytes; QString preeditString; +#if QT_VERSION >= 0x050000 bool clickCausedFocus; +#endif void connectHorizontalScrollBar(); void connectVerticalScrollBar(); diff --git a/libs/qscintilla/src/Qsci/qscistyle.h b/libs/qscintilla/Qt4Qt5/Qsci/qscistyle.h similarity index 98% rename from libs/qscintilla/src/Qsci/qscistyle.h rename to libs/qscintilla/Qt4Qt5/Qsci/qscistyle.h index d2ad6c2b..f4f9ad34 100644 --- a/libs/qscintilla/src/Qsci/qscistyle.h +++ b/libs/qscintilla/Qt4Qt5/Qsci/qscistyle.h @@ -1,6 +1,6 @@ // This module defines interface to the QsciStyle class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/Qsci/qscistyledtext.h b/libs/qscintilla/Qt4Qt5/Qsci/qscistyledtext.h similarity index 96% rename from libs/qscintilla/src/Qsci/qscistyledtext.h rename to libs/qscintilla/Qt4Qt5/Qsci/qscistyledtext.h index 3238010c..cdb7776f 100644 --- a/libs/qscintilla/src/Qsci/qscistyledtext.h +++ b/libs/qscintilla/Qt4Qt5/Qsci/qscistyledtext.h @@ -1,6 +1,6 @@ // This module defines interface to the QsciStyledText class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/SciAccessibility.cpp b/libs/qscintilla/Qt4Qt5/SciAccessibility.cpp similarity index 99% rename from libs/qscintilla/src/SciAccessibility.cpp rename to libs/qscintilla/Qt4Qt5/SciAccessibility.cpp index 5c6601a9..d4d25a5c 100644 --- a/libs/qscintilla/src/SciAccessibility.cpp +++ b/libs/qscintilla/Qt4Qt5/SciAccessibility.cpp @@ -1,6 +1,6 @@ // The implementation of the class that implements accessibility support. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -528,8 +528,7 @@ QRect QsciAccessibleScintillaBase::characterRect(int offset) const int style = sb->SendScintilla(QsciScintillaBase::SCI_GETSTYLEAT, position); QFontMetrics metrics(fontForStyle(style)); - QRect rect(x_vport, y_vport, metrics.horizontalAdvance(ch), - metrics.height()); + QRect rect(x_vport, y_vport, metrics.width(ch), metrics.height()); rect.moveTo(sb->viewport()->mapToGlobal(rect.topLeft())); return rect; diff --git a/libs/qscintilla/src/SciAccessibility.h b/libs/qscintilla/Qt4Qt5/SciAccessibility.h similarity index 98% rename from libs/qscintilla/src/SciAccessibility.h rename to libs/qscintilla/Qt4Qt5/SciAccessibility.h index 389c9c4c..2f0dd10e 100644 --- a/libs/qscintilla/src/SciAccessibility.h +++ b/libs/qscintilla/Qt4Qt5/SciAccessibility.h @@ -1,6 +1,6 @@ // The definition of the class that implements accessibility support. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/SciClasses.cpp b/libs/qscintilla/Qt4Qt5/SciClasses.cpp similarity index 96% rename from libs/qscintilla/src/SciClasses.cpp rename to libs/qscintilla/Qt4Qt5/SciClasses.cpp index ac8fe0a3..825c04e2 100644 --- a/libs/qscintilla/src/SciClasses.cpp +++ b/libs/qscintilla/Qt4Qt5/SciClasses.cpp @@ -1,7 +1,7 @@ // The implementation of various Qt version independent classes used by the // rest of the port. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -129,7 +129,11 @@ QsciSciListBox::QsciSciListBox(QWidget *parent, QsciListBoxQt *lbx_) // to be that the following works. However it might now work because of a // change in Qt so we only enable it for recent versions in order to // reduce the risk of breaking something that works with earlier versions. +#if QT_VERSION >= 0x040500 setWindowFlags(Qt::ToolTip|Qt::WindowStaysOnTopHint); +#else + setWindowFlags(Qt::Tool|Qt::FramelessWindowHint); +#endif // This may not be needed. setFocusProxy(parent); diff --git a/libs/qscintilla/src/SciClasses.h b/libs/qscintilla/Qt4Qt5/SciClasses.h similarity index 97% rename from libs/qscintilla/src/SciClasses.h rename to libs/qscintilla/Qt4Qt5/SciClasses.h index e2dca97e..d837bd1f 100644 --- a/libs/qscintilla/src/SciClasses.h +++ b/libs/qscintilla/Qt4Qt5/SciClasses.h @@ -1,7 +1,7 @@ // The definition of various Qt version independent classes used by the rest of // the port. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/Qt4Qt5/SciNamespace.h b/libs/qscintilla/Qt4Qt5/SciNamespace.h new file mode 100644 index 00000000..7c9242b9 --- /dev/null +++ b/libs/qscintilla/Qt4Qt5/SciNamespace.h @@ -0,0 +1,35 @@ +// Support for building the Scintilla code in the Scintilla namespace using the +// -DSCI_NAMESPACE compiler flag. +// +// Copyright (c) 2018 Riverbank Computing Limited +// +// 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. + + +#ifndef _SCINAMESPACE_H +#define _SCINAMESPACE_H + +#ifdef SCI_NAMESPACE +#define QSCI_SCI_NAMESPACE(name) Scintilla::name +#define QSCI_BEGIN_SCI_NAMESPACE namespace Scintilla { +#define QSCI_END_SCI_NAMESPACE }; +#else +#define QSCI_SCI_NAMESPACE(name) name +#define QSCI_BEGIN_SCI_NAMESPACE +#define QSCI_END_SCI_NAMESPACE +#endif + +#endif diff --git a/libs/qscintilla/src/ScintillaQt.cpp b/libs/qscintilla/Qt4Qt5/ScintillaQt.cpp similarity index 96% rename from libs/qscintilla/src/ScintillaQt.cpp rename to libs/qscintilla/Qt4Qt5/ScintillaQt.cpp index b67a0a97..8a354e27 100644 --- a/libs/qscintilla/src/ScintillaQt.cpp +++ b/libs/qscintilla/Qt4Qt5/ScintillaQt.cpp @@ -1,6 +1,6 @@ // The implementation of the Qt specific subclass of ScintillaBase. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -137,10 +137,6 @@ QsciScintillaQt::~QsciScintillaQt() // Initialise the instance. void QsciScintillaQt::Initialise() { - // This signal is only ever emitted for systems that have a separate - // selection (ie. X11). - connect(QApplication::clipboard(), SIGNAL(selectionChanged()), this, - SLOT(onSelectionChanged())); } @@ -162,7 +158,11 @@ void QsciScintillaQt::StartDrag() QDrag *qdrag = new QDrag(qsb); qdrag->setMimeData(mimeSelection(drag)); +#if QT_VERSION >= 0x040300 Qt::DropAction action = qdrag->exec(Qt::MoveAction | Qt::CopyAction, Qt::MoveAction); +#else + Qt::DropAction action = qdrag->start(Qt::MoveAction); +#endif // Remove the dragged text if it was a move to another widget or // application. @@ -573,15 +573,17 @@ void QsciScintillaQt::AddToPopUp(const char *label, int cmd, bool enabled) } -// Claim the (primary) selection. +// Claim the selection. void QsciScintillaQt::ClaimSelection() { - QClipboard *cb = QApplication::clipboard(); bool isSel = !sel.Empty(); - if (cb->supportsSelection()) + if (isSel) { - if (isSel) + QClipboard *cb = QApplication::clipboard(); + + // If we support X11 style selection then make it available now. + if (cb->supportsSelection()) { Scintilla::SelectionText text; @@ -589,14 +591,12 @@ void QsciScintillaQt::ClaimSelection() if (text.Data()) cb->setMimeData(mimeSelection(text), QClipboard::Selection); + } - primarySelection = true; - } - else - { - primarySelection = false; - } + primarySelection = true; } + else + primarySelection = false; #if !defined(QT_NO_ACCESSIBILITY) QsciAccessibleScintillaBase::selectionChanged(qsb, isSel); @@ -606,14 +606,12 @@ void QsciScintillaQt::ClaimSelection() } -// Unclaim the (primary) selection. -void QsciScintillaQt::onSelectionChanged() +// Unclaim the selection. +void QsciScintillaQt::UnclaimSelection() { - bool new_primary = QApplication::clipboard()->ownsSelection(); - - if (primarySelection != new_primary) + if (primarySelection) { - primarySelection = new_primary; + primarySelection = false; qsb->viewport()->update(); } } diff --git a/libs/qscintilla/src/ScintillaQt.h b/libs/qscintilla/Qt4Qt5/ScintillaQt.h similarity index 97% rename from libs/qscintilla/src/ScintillaQt.h rename to libs/qscintilla/Qt4Qt5/ScintillaQt.h index aea59626..7e8db32d 100644 --- a/libs/qscintilla/src/ScintillaQt.h +++ b/libs/qscintilla/Qt4Qt5/ScintillaQt.h @@ -1,6 +1,6 @@ // The definition of the Qt specific subclass of ScintillaBase. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -106,7 +106,6 @@ protected: private slots: void onIdle(); - void onSelectionChanged(); private: void Initialise(); diff --git a/libs/qscintilla/src/features/qscintilla2.prf b/libs/qscintilla/Qt4Qt5/features/qscintilla2.prf similarity index 75% rename from libs/qscintilla/src/features/qscintilla2.prf rename to libs/qscintilla/Qt4Qt5/features/qscintilla2.prf index 731bb325..e7aba151 100644 --- a/libs/qscintilla/src/features/qscintilla2.prf +++ b/libs/qscintilla/Qt4Qt5/features/qscintilla2.prf @@ -1,7 +1,9 @@ -QT += widgets -!ios:QT += printsupport -macx:lessThan(QT_MAJOR_VERSION, 6) { - QT += macextras +greaterThan(QT_MAJOR_VERSION, 4) { + QT += widgets printsupport + + greaterThan(QT_MINOR_VERSION, 1) { + macx:QT += macextras + } } DEFINES += QSCINTILLA_DLL diff --git a/libs/qscintilla/src/qsciabstractapis.cpp b/libs/qscintilla/Qt4Qt5/qsciabstractapis.cpp similarity index 95% rename from libs/qscintilla/src/qsciabstractapis.cpp rename to libs/qscintilla/Qt4Qt5/qsciabstractapis.cpp index ebc4d0bf..d9a770ba 100644 --- a/libs/qscintilla/src/qsciabstractapis.cpp +++ b/libs/qscintilla/Qt4Qt5/qsciabstractapis.cpp @@ -1,6 +1,6 @@ // This module implements the QsciAbstractAPIs class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/qsciapis.cpp b/libs/qscintilla/Qt4Qt5/qsciapis.cpp similarity index 98% rename from libs/qscintilla/src/qsciapis.cpp rename to libs/qscintilla/Qt4Qt5/qsciapis.cpp index b8f4f2bb..94ba323c 100644 --- a/libs/qscintilla/src/qsciapis.cpp +++ b/libs/qscintilla/Qt4Qt5/qsciapis.cpp @@ -1,6 +1,6 @@ // This module implements the QsciAPIs class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -20,8 +20,6 @@ #include -#include - #include "Qsci/qsciapis.h" #include @@ -602,8 +600,14 @@ void QsciAPIs::autoCompletionSelected(const QString &selection) owords = path.mid(1, path.length() - 2); } - origin = std::lower_bound(prep->raw_apis.begin(), prep->raw_apis.end(), - owords); + origin = qLowerBound(prep->raw_apis, owords); + /* + * There is a bug somewhere, either in qLowerBound() or QList (or in GCC as + * it seems to be Linux specific and the Qt code is the same on all + * platforms) that the following line seems to fix. Note that it is + * actually the call to detach() within begin() that is the important bit. + */ + prep->raw_apis.begin(); origin_len = owords.length(); } diff --git a/libs/qscintilla/src/qscicommand.cpp b/libs/qscintilla/Qt4Qt5/qscicommand.cpp similarity index 98% rename from libs/qscintilla/src/qscicommand.cpp rename to libs/qscintilla/Qt4Qt5/qscicommand.cpp index 50f45bf3..b82f62c7 100644 --- a/libs/qscintilla/src/qscicommand.cpp +++ b/libs/qscintilla/Qt4Qt5/qscicommand.cpp @@ -1,6 +1,6 @@ // This module implements the QsciCommand class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/qscicommandset.cpp b/libs/qscintilla/Qt4Qt5/qscicommandset.cpp similarity index 98% rename from libs/qscintilla/src/qscicommandset.cpp rename to libs/qscintilla/Qt4Qt5/qscicommandset.cpp index 8fe1cd4a..7f2bbef5 100644 --- a/libs/qscintilla/src/qscicommandset.cpp +++ b/libs/qscintilla/Qt4Qt5/qscicommandset.cpp @@ -1,6 +1,6 @@ // This module implements the QsciCommandSet class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -885,12 +885,14 @@ QsciCommandSet::~QsciCommandSet() bool QsciCommandSet::readSettings(QSettings &qs, const char *prefix) { bool rc = true; + QString skey; for (int i = 0; i < cmds.count(); ++i) { QsciCommand *cmd = cmds.at(i); - QString skey = QString("%1/keymap/c%2/").arg(prefix).arg(static_cast(cmd->command())); + skey.sprintf("%s/keymap/c%d/", prefix, + static_cast(cmd->command())); int key; bool ok; @@ -922,12 +924,14 @@ bool QsciCommandSet::readSettings(QSettings &qs, const char *prefix) bool QsciCommandSet::writeSettings(QSettings &qs, const char *prefix) { bool rc = true; + QString skey; for (int i = 0; i < cmds.count(); ++i) { QsciCommand *cmd = cmds.at(i); - QString skey = QString("%1/keymap/c%2/").arg(prefix).arg(static_cast(cmd->command())); + skey.sprintf("%s/keymap/c%d/", prefix, + static_cast(cmd->command())); // Write the key. qs.setValue(skey + "key", cmd->key()); diff --git a/libs/qscintilla/src/qscidocument.cpp b/libs/qscintilla/Qt4Qt5/qscidocument.cpp similarity index 98% rename from libs/qscintilla/src/qscidocument.cpp rename to libs/qscintilla/Qt4Qt5/qscidocument.cpp index 2289bfda..4f00cfe5 100644 --- a/libs/qscintilla/src/qscidocument.cpp +++ b/libs/qscintilla/Qt4Qt5/qscidocument.cpp @@ -1,6 +1,6 @@ // This module implements the QsciDocument class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/qscilexer.cpp b/libs/qscintilla/Qt4Qt5/qscilexer.cpp similarity index 97% rename from libs/qscintilla/src/qscilexer.cpp rename to libs/qscintilla/Qt4Qt5/qscilexer.cpp index 9a452f46..bea560b5 100644 --- a/libs/qscintilla/src/qscilexer.cpp +++ b/libs/qscintilla/Qt4Qt5/qscilexer.cpp @@ -1,6 +1,6 @@ // This module implements the QsciLexer class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -367,7 +367,7 @@ bool QsciLexer::readSettings(QSettings &qs,const char *prefix) if (description(i).isEmpty()) continue; - key = QString("%1/%2/style%3/").arg(prefix).arg(language()).arg(i); + key.sprintf("%s/%s/style%d/",prefix,language(),i); // Read the foreground colour. full_key = key + "color"; @@ -454,7 +454,7 @@ bool QsciLexer::readSettings(QSettings &qs,const char *prefix) } // Read the properties. - key = QString("%1/%2/properties/").arg(prefix).arg(language()); + key.sprintf("%s/%s/properties/",prefix,language()); if (!readProperties(qs,key)) rc = false; @@ -462,7 +462,7 @@ bool QsciLexer::readSettings(QSettings &qs,const char *prefix) refreshProperties(); // Read the rest. - key = QString("%1/%2/").arg(prefix).arg(language()); + key.sprintf("%s/%s/",prefix,language()); // Read the default foreground colour. full_key = key + "defaultcolor"; @@ -569,7 +569,7 @@ bool QsciLexer::writeSettings(QSettings &qs,const char *prefix) const QColor c; - key = QString("%1/%2/style%3/").arg(prefix).arg(language()).arg(i); + key.sprintf("%s/%s/style%d/",prefix,language(),i); // Write the foreground colour. c = color(i); @@ -607,13 +607,13 @@ bool QsciLexer::writeSettings(QSettings &qs,const char *prefix) const } // Write the properties. - key = QString("%1/%2/properties/").arg(prefix).arg(language()); + key.sprintf("%s/%s/properties/",prefix,language()); if (!writeProperties(qs,key)) rc = false; // Write the rest. - key = QString("%1/%2/").arg(prefix).arg(language()); + key.sprintf("%s/%s/",prefix,language()); // Write the default foreground colour. num = (defColor.red() << 16) | (defColor.green() << 8) | defColor.blue(); diff --git a/libs/qscintilla/src/qscilexercpp.cpp b/libs/qscintilla/Qt4Qt5/qscilexercpp.cpp similarity index 99% rename from libs/qscintilla/src/qscilexercpp.cpp rename to libs/qscintilla/Qt4Qt5/qscilexercpp.cpp index f21395be..d43df4d3 100644 --- a/libs/qscintilla/src/qscilexercpp.cpp +++ b/libs/qscintilla/Qt4Qt5/qscilexercpp.cpp @@ -1,6 +1,6 @@ // This module implements the QsciLexerCPP class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/qscilexercustom.cpp b/libs/qscintilla/Qt4Qt5/qscilexercustom.cpp similarity index 97% rename from libs/qscintilla/src/qscilexercustom.cpp rename to libs/qscintilla/Qt4Qt5/qscilexercustom.cpp index 65c9e714..876c0531 100644 --- a/libs/qscintilla/src/qscilexercustom.cpp +++ b/libs/qscintilla/Qt4Qt5/qscilexercustom.cpp @@ -1,6 +1,6 @@ // This module implements the QsciLexerCustom class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/qscilexerhtml.cpp b/libs/qscintilla/Qt4Qt5/qscilexerhtml.cpp similarity index 99% rename from libs/qscintilla/src/qscilexerhtml.cpp rename to libs/qscintilla/Qt4Qt5/qscilexerhtml.cpp index 1a5a0317..e54ece5b 100644 --- a/libs/qscintilla/src/qscilexerhtml.cpp +++ b/libs/qscintilla/Qt4Qt5/qscilexerhtml.cpp @@ -1,6 +1,6 @@ // This module implements the QsciLexerHTML class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/qscilexerjavascript.cpp b/libs/qscintilla/Qt4Qt5/qscilexerjavascript.cpp similarity index 98% rename from libs/qscintilla/src/qscilexerjavascript.cpp rename to libs/qscintilla/Qt4Qt5/qscilexerjavascript.cpp index 8f9b4187..e5623ead 100644 --- a/libs/qscintilla/src/qscilexerjavascript.cpp +++ b/libs/qscintilla/Qt4Qt5/qscilexerjavascript.cpp @@ -1,6 +1,6 @@ // This module implements the QsciLexerJavaScript class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/qscilexerjson.cpp b/libs/qscintilla/Qt4Qt5/qscilexerjson.cpp similarity index 98% rename from libs/qscintilla/src/qscilexerjson.cpp rename to libs/qscintilla/Qt4Qt5/qscilexerjson.cpp index aa67a6b7..c79ed13c 100644 --- a/libs/qscintilla/src/qscilexerjson.cpp +++ b/libs/qscintilla/Qt4Qt5/qscilexerjson.cpp @@ -1,6 +1,6 @@ // This module implements the QsciLexerJSON class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/qscilexerpython.cpp b/libs/qscintilla/Qt4Qt5/qscilexerpython.cpp similarity index 99% rename from libs/qscintilla/src/qscilexerpython.cpp rename to libs/qscintilla/Qt4Qt5/qscilexerpython.cpp index e9ae5478..a054aaf9 100644 --- a/libs/qscintilla/src/qscilexerpython.cpp +++ b/libs/qscintilla/Qt4Qt5/qscilexerpython.cpp @@ -1,6 +1,6 @@ // This module implements the QsciLexerPython class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/qscilexersql.cpp b/libs/qscintilla/Qt4Qt5/qscilexersql.cpp similarity index 99% rename from libs/qscintilla/src/qscilexersql.cpp rename to libs/qscintilla/Qt4Qt5/qscilexersql.cpp index e4d286a5..b8313d6f 100644 --- a/libs/qscintilla/src/qscilexersql.cpp +++ b/libs/qscintilla/Qt4Qt5/qscilexersql.cpp @@ -1,6 +1,6 @@ // This module implements the QsciLexerSQL class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/qscilexerxml.cpp b/libs/qscintilla/Qt4Qt5/qscilexerxml.cpp similarity index 98% rename from libs/qscintilla/src/qscilexerxml.cpp rename to libs/qscintilla/Qt4Qt5/qscilexerxml.cpp index b17e9c46..16e0a909 100644 --- a/libs/qscintilla/src/qscilexerxml.cpp +++ b/libs/qscintilla/Qt4Qt5/qscilexerxml.cpp @@ -1,6 +1,6 @@ // This module implements the QsciLexerXML class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/qscimacro.cpp b/libs/qscintilla/Qt4Qt5/qscimacro.cpp similarity index 95% rename from libs/qscintilla/src/qscimacro.cpp rename to libs/qscintilla/Qt4Qt5/qscimacro.cpp index f7146d3c..405a123b 100644 --- a/libs/qscintilla/src/qscimacro.cpp +++ b/libs/qscintilla/Qt4Qt5/qscimacro.cpp @@ -1,6 +1,6 @@ // This module implements the QsciMacro class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -183,8 +183,9 @@ QString QsciMacro::save() const ms += ' '; unsigned len = (*it).text.size(); + QString m; - ms += QString("%1 %2 %3").arg((*it).msg).arg((*it).wParam).arg(len); + ms += m.sprintf("%u %lu %u", (*it).msg, (*it).wParam, len); if (len) { @@ -208,10 +209,13 @@ QString QsciMacro::save() const unsigned char ch = *cp++; if (ch == '\\' || ch == '"' || ch <= ' ' || ch >= 0x7f) - ms += QString("\\%1").arg(static_cast(ch), 2, 16, - QLatin1Char('0')); + { + QString buf; + + ms += buf.sprintf("\\%02x", ch); + } else - ms += static_cast(ch); + ms += ch; } } } diff --git a/libs/qscintilla/src/qscintilla_cs.qm b/libs/qscintilla/Qt4Qt5/qscintilla_cs.qm similarity index 100% rename from libs/qscintilla/src/qscintilla_cs.qm rename to libs/qscintilla/Qt4Qt5/qscintilla_cs.qm diff --git a/libs/qscintilla/src/qscintilla_cs.ts b/libs/qscintilla/Qt4Qt5/qscintilla_cs.ts similarity index 100% rename from libs/qscintilla/src/qscintilla_cs.ts rename to libs/qscintilla/Qt4Qt5/qscintilla_cs.ts diff --git a/libs/qscintilla/src/qscintilla_de.qm b/libs/qscintilla/Qt4Qt5/qscintilla_de.qm similarity index 100% rename from libs/qscintilla/src/qscintilla_de.qm rename to libs/qscintilla/Qt4Qt5/qscintilla_de.qm diff --git a/libs/qscintilla/src/qscintilla_de.ts b/libs/qscintilla/Qt4Qt5/qscintilla_de.ts similarity index 100% rename from libs/qscintilla/src/qscintilla_de.ts rename to libs/qscintilla/Qt4Qt5/qscintilla_de.ts diff --git a/libs/qscintilla/src/qscintilla_es.qm b/libs/qscintilla/Qt4Qt5/qscintilla_es.qm similarity index 100% rename from libs/qscintilla/src/qscintilla_es.qm rename to libs/qscintilla/Qt4Qt5/qscintilla_es.qm diff --git a/libs/qscintilla/src/qscintilla_es.ts b/libs/qscintilla/Qt4Qt5/qscintilla_es.ts similarity index 100% rename from libs/qscintilla/src/qscintilla_es.ts rename to libs/qscintilla/Qt4Qt5/qscintilla_es.ts diff --git a/libs/qscintilla/src/qscintilla_fr.qm b/libs/qscintilla/Qt4Qt5/qscintilla_fr.qm similarity index 100% rename from libs/qscintilla/src/qscintilla_fr.qm rename to libs/qscintilla/Qt4Qt5/qscintilla_fr.qm diff --git a/libs/qscintilla/src/qscintilla_fr.ts b/libs/qscintilla/Qt4Qt5/qscintilla_fr.ts similarity index 100% rename from libs/qscintilla/src/qscintilla_fr.ts rename to libs/qscintilla/Qt4Qt5/qscintilla_fr.ts diff --git a/libs/qscintilla/src/qscintilla_pt_br.qm b/libs/qscintilla/Qt4Qt5/qscintilla_pt_br.qm similarity index 100% rename from libs/qscintilla/src/qscintilla_pt_br.qm rename to libs/qscintilla/Qt4Qt5/qscintilla_pt_br.qm diff --git a/libs/qscintilla/src/qscintilla_pt_br.ts b/libs/qscintilla/Qt4Qt5/qscintilla_pt_br.ts similarity index 100% rename from libs/qscintilla/src/qscintilla_pt_br.ts rename to libs/qscintilla/Qt4Qt5/qscintilla_pt_br.ts diff --git a/libs/qscintilla/src/qsciprinter.cpp b/libs/qscintilla/Qt4Qt5/qsciprinter.cpp similarity index 91% rename from libs/qscintilla/src/qsciprinter.cpp rename to libs/qscintilla/Qt4Qt5/qsciprinter.cpp index 03a54aac..c95c0fc7 100644 --- a/libs/qscintilla/src/qsciprinter.cpp +++ b/libs/qscintilla/Qt4Qt5/qsciprinter.cpp @@ -1,6 +1,6 @@ // This module implements the QsciPrinter class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -48,9 +48,8 @@ void QsciPrinter::formatPage(QPainter &, bool, QRect &, int) } -// Print a range of lines to a printer using a supplied QPainter. -int QsciPrinter::printRange(QsciScintillaBase *qsb, QPainter &painter, - int from, int to) +// Print a range of lines to a printer. +int QsciPrinter::printRange(QsciScintillaBase *qsb, int from, int to) { // Sanity check. if (!qsb) @@ -88,14 +87,14 @@ int QsciPrinter::printRange(QsciScintillaBase *qsb, QPainter &painter, if (startPos >= endPos) return false; + QPainter painter(this); bool reverse = (pageOrder() == LastPageFirst); bool needNewPage = false; - int nr_copies = supportsMultipleCopies() ? 1 : copyCount(); qsb -> SendScintilla(QsciScintillaBase::SCI_SETPRINTMAGNIFICATION,mag); qsb -> SendScintilla(QsciScintillaBase::SCI_SETPRINTWRAPMODE,wrap); - for (int i = 1; i <= nr_copies; ++i) + for (int i = 1; i <= numCopies(); ++i) { // If we are printing in reverse page order then remember the start // position of each page. @@ -171,15 +170,6 @@ int QsciPrinter::printRange(QsciScintillaBase *qsb, QPainter &painter, } -// Print a range of lines to a printer using a default QPainter. -int QsciPrinter::printRange(QsciScintillaBase *qsb, int from, int to) -{ - QPainter painter(this); - - return printRange(qsb, painter, from, to); -} - - // Set the print magnification in points. void QsciPrinter::setMagnification(int magnification) { diff --git a/libs/qscintilla/src/qsciscintilla.cpp b/libs/qscintilla/Qt4Qt5/qsciscintilla.cpp similarity index 99% rename from libs/qscintilla/src/qsciscintilla.cpp rename to libs/qscintilla/Qt4Qt5/qsciscintilla.cpp index d6dedd10..d261ba40 100644 --- a/libs/qscintilla/src/qsciscintilla.cpp +++ b/libs/qscintilla/Qt4Qt5/qsciscintilla.cpp @@ -2,7 +2,7 @@ // Scintilla. It is modelled on QTextEdit - a method of the same name should // behave in the same way. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -1914,10 +1914,7 @@ void QsciScintilla::replace(const QString &replaceStr) findState.endpos_orig += (len - orig_len); if (findState.forward) - { findState.startpos = start + len; - findState.endpos += (len - orig_len); - } } @@ -2466,8 +2463,9 @@ void QsciScintilla::clear() { bool ro = ensureRW(); + SendScintilla(SCI_BEGINUNDOACTION); SendScintilla(SCI_CLEARALL); - SendScintilla(SCI_EMPTYUNDOBUFFER); + SendScintilla(SCI_ENDUNDOACTION); setReadOnly(ro); } @@ -3643,7 +3641,7 @@ long QsciScintilla::checkBrace(long pos, int brace_style, bool &colonMode) // Find a brace and it's match. Return true if the current position is inside // a pair of braces. -bool QsciScintilla::findMatchingBrace(long &brace, long &other, BraceMatch mode) +bool QsciScintilla::findMatchingBrace(long &brace, long &other,BraceMatch mode) { bool colonMode = false; int brace_style = (lex.isNull() ? -1 : lex->braceStyle()); @@ -4383,10 +4381,7 @@ void QsciScintilla::wheelEvent(QWheelEvent *e) if ((e->modifiers() & zoom_modifier) != 0) { - QPoint ad = e->angleDelta(); - int delta = (qAbs(ad.x()) > qAbs(ad.y())) ? ad.x() : ad.y(); - - if (delta > 0) + if (e->delta() > 0) zoomIn(); else zoomOut(); diff --git a/libs/qscintilla/src/qsciscintillabase.cpp b/libs/qscintilla/Qt4Qt5/qsciscintillabase.cpp similarity index 95% rename from libs/qscintilla/src/qsciscintillabase.cpp rename to libs/qscintilla/Qt4Qt5/qsciscintillabase.cpp index 46fda7af..6e1018c2 100644 --- a/libs/qscintilla/src/qsciscintillabase.cpp +++ b/libs/qscintilla/Qt4Qt5/qsciscintillabase.cpp @@ -1,6 +1,6 @@ // This module implements the "official" low-level API. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -36,6 +36,7 @@ #include #include #include +#include #include "SciAccessibility.h" #include "ScintillaQt.h" @@ -79,15 +80,17 @@ static const QLatin1String mimeTextPlain("text/plain"); static const QLatin1String mimeRectangularWin("MSDEVColumnSelect"); static const QLatin1String mimeRectangular("text/x-qscintilla-rectangular"); -#if QT_VERSION < 0x060000 && defined(Q_OS_OSX) +#if (QT_VERSION >= 0x040200 && QT_VERSION < 0x050000 && defined(Q_OS_MAC)) || (QT_VERSION >= 0x050200 && defined(Q_OS_OSX)) extern void initialiseRectangularPasteboardMime(); #endif // The ctor. QsciScintillaBase::QsciScintillaBase(QWidget *parent) - : QAbstractScrollArea(parent), preeditPos(-1), preeditNrBytes(0), - clickCausedFocus(false) + : QAbstractScrollArea(parent), preeditPos(-1), preeditNrBytes(0) +#if QT_VERSION >= 0x050000 + , clickCausedFocus(false) +#endif { #if !defined(QT_NO_ACCESSIBILITY) QsciAccessibleScintillaBase::initialise(); @@ -100,8 +103,12 @@ QsciScintillaBase::QsciScintillaBase(QWidget *parent) setFocusPolicy(Qt::WheelFocus); setAttribute(Qt::WA_KeyCompression); setAttribute(Qt::WA_InputMethodEnabled); +#if QT_VERSION >= 0x050100 setInputMethodHints( Qt::ImhNoAutoUppercase|Qt::ImhNoPredictiveText|Qt::ImhMultiLine); +#elif QT_VERSION >= 0x040600 + setInputMethodHints(Qt::ImhNoAutoUppercase|Qt::ImhNoPredictiveText); +#endif viewport()->setBackgroundRole(QPalette::Base); viewport()->setMouseTracking(true); @@ -109,7 +116,7 @@ QsciScintillaBase::QsciScintillaBase(QWidget *parent) triple_click.setSingleShot(true); -#if QT_VERSION < 0x060000 && defined(Q_OS_OSX) +#if (QT_VERSION >= 0x040200 && QT_VERSION < 0x050000 && defined(Q_OS_MAC)) || (QT_VERSION >= 0x050200 && defined(Q_OS_OSX)) initialiseRectangularPasteboardMime(); #endif @@ -124,6 +131,11 @@ QsciScintillaBase::QsciScintillaBase(QWidget *parent) lexersLinked = true; } + QClipboard *cb = QApplication::clipboard(); + + if (cb->supportsSelection()) + connect(cb, SIGNAL(selectionChanged()), SLOT(handleSelection())); + // Add it to the pool. poolList.append(this); } @@ -314,7 +326,11 @@ void QsciScintillaBase::contextMenuEvent(QContextMenuEvent *e) void QsciScintillaBase::focusInEvent(QFocusEvent *e) { sci->SetFocusState(true); + +#if QT_VERSION >= 0x050000 clickCausedFocus = (e->reason() == Qt::MouseFocusReason); +#endif + QAbstractScrollArea::focusInEvent(e); } @@ -353,6 +369,14 @@ bool QsciScintillaBase::focusNextPrevChild(bool next) } +// Handle the selection changing. +void QsciScintillaBase::handleSelection() +{ + if (!QApplication::clipboard()->ownsSelection()) + sci->UnclaimSelection(); +} + + // Handle key presses. void QsciScintillaBase::keyPressEvent(QKeyEvent *e) { @@ -584,7 +608,7 @@ void QsciScintillaBase::mousePressEvent(QMouseEvent *e) sci->RightButtonDownWithModifiers(pt, clickTime, QsciScintillaQt::ModifierFlags(shift, ctrl, alt)); } - else if (e->button() == Qt::MiddleButton) + else if (e->button() == Qt::MidButton) { QClipboard *cb = QApplication::clipboard(); @@ -617,6 +641,7 @@ void QsciScintillaBase::mouseReleaseEvent(QMouseEvent *e) QsciScintillaQt::ModifierFlags(false, ctrl, false)); } +#if QT_VERSION >= 0x050000 if (!sci->pdoc->IsReadOnly() && !sci->PointInSelMargin(pt) && qApp->autoSipEnabled()) { QStyle::RequestSoftwareInputPanel rsip = QStyle::RequestSoftwareInputPanel(style()->styleHint(QStyle::SH_RequestSoftwareInputPanel)); @@ -626,6 +651,7 @@ void QsciScintillaBase::mouseReleaseEvent(QMouseEvent *e) } clickCausedFocus = false; +#endif } diff --git a/libs/qscintilla/src/qscistyle.cpp b/libs/qscintilla/Qt4Qt5/qscistyle.cpp similarity index 98% rename from libs/qscintilla/src/qscistyle.cpp rename to libs/qscintilla/Qt4Qt5/qscistyle.cpp index d6a14abe..0e984563 100644 --- a/libs/qscintilla/src/qscistyle.cpp +++ b/libs/qscintilla/Qt4Qt5/qscistyle.cpp @@ -1,6 +1,6 @@ // This module implements the QsciStyle class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/src/qscistyledtext.cpp b/libs/qscintilla/Qt4Qt5/qscistyledtext.cpp similarity index 96% rename from libs/qscintilla/src/qscistyledtext.cpp rename to libs/qscintilla/Qt4Qt5/qscistyledtext.cpp index 44cce26f..6534128d 100644 --- a/libs/qscintilla/src/qscistyledtext.cpp +++ b/libs/qscintilla/Qt4Qt5/qscistyledtext.cpp @@ -1,6 +1,6 @@ // This module implements the QsciStyledText class. // -// Copyright (c) 2022 Riverbank Computing Limited +// Copyright (c) 2019 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/README b/libs/qscintilla/README new file mode 100644 index 00000000..dc603f98 --- /dev/null +++ b/libs/qscintilla/README @@ -0,0 +1,2 @@ +All the documentation for QScintilla for Qt v4 and Qt v5 (including +installation instructions) can be found in doc/html-Qt4Qt5/index.html. diff --git a/libs/qscintilla/scintilla/include/ILexer.h b/libs/qscintilla/include/ILexer.h similarity index 100% rename from libs/qscintilla/scintilla/include/ILexer.h rename to libs/qscintilla/include/ILexer.h diff --git a/libs/qscintilla/scintilla/include/ILoader.h b/libs/qscintilla/include/ILoader.h similarity index 100% rename from libs/qscintilla/scintilla/include/ILoader.h rename to libs/qscintilla/include/ILoader.h diff --git a/libs/qscintilla/scintilla/include/License.txt b/libs/qscintilla/include/License.txt similarity index 100% rename from libs/qscintilla/scintilla/include/License.txt rename to libs/qscintilla/include/License.txt diff --git a/libs/qscintilla/scintilla/include/Platform.h b/libs/qscintilla/include/Platform.h similarity index 100% rename from libs/qscintilla/scintilla/include/Platform.h rename to libs/qscintilla/include/Platform.h diff --git a/libs/qscintilla/scintilla/include/SciLexer.h b/libs/qscintilla/include/SciLexer.h similarity index 100% rename from libs/qscintilla/scintilla/include/SciLexer.h rename to libs/qscintilla/include/SciLexer.h diff --git a/libs/qscintilla/scintilla/include/Sci_Position.h b/libs/qscintilla/include/Sci_Position.h similarity index 100% rename from libs/qscintilla/scintilla/include/Sci_Position.h rename to libs/qscintilla/include/Sci_Position.h diff --git a/libs/qscintilla/scintilla/include/Scintilla.h b/libs/qscintilla/include/Scintilla.h similarity index 100% rename from libs/qscintilla/scintilla/include/Scintilla.h rename to libs/qscintilla/include/Scintilla.h diff --git a/libs/qscintilla/scintilla/include/Scintilla.iface b/libs/qscintilla/include/Scintilla.iface similarity index 100% rename from libs/qscintilla/scintilla/include/Scintilla.iface rename to libs/qscintilla/include/Scintilla.iface diff --git a/libs/qscintilla/scintilla/include/ScintillaWidget.h b/libs/qscintilla/include/ScintillaWidget.h similarity index 100% rename from libs/qscintilla/scintilla/include/ScintillaWidget.h rename to libs/qscintilla/include/ScintillaWidget.h diff --git a/libs/qscintilla/scintilla/lexers/LexHTML.cpp b/libs/qscintilla/lexers/LexHTML.cpp similarity index 100% rename from libs/qscintilla/scintilla/lexers/LexHTML.cpp rename to libs/qscintilla/lexers/LexHTML.cpp diff --git a/libs/qscintilla/scintilla/lexers/LexJSON.cpp b/libs/qscintilla/lexers/LexJSON.cpp similarity index 100% rename from libs/qscintilla/scintilla/lexers/LexJSON.cpp rename to libs/qscintilla/lexers/LexJSON.cpp diff --git a/libs/qscintilla/scintilla/lexers/LexSQL.cpp b/libs/qscintilla/lexers/LexSQL.cpp similarity index 100% rename from libs/qscintilla/scintilla/lexers/LexSQL.cpp rename to libs/qscintilla/lexers/LexSQL.cpp diff --git a/libs/qscintilla/scintilla/lexers/License.txt b/libs/qscintilla/lexers/License.txt similarity index 100% rename from libs/qscintilla/scintilla/lexers/License.txt rename to libs/qscintilla/lexers/License.txt diff --git a/libs/qscintilla/scintilla/lexlib/Accessor.cpp b/libs/qscintilla/lexlib/Accessor.cpp similarity index 100% rename from libs/qscintilla/scintilla/lexlib/Accessor.cpp rename to libs/qscintilla/lexlib/Accessor.cpp diff --git a/libs/qscintilla/scintilla/lexlib/Accessor.h b/libs/qscintilla/lexlib/Accessor.h similarity index 100% rename from libs/qscintilla/scintilla/lexlib/Accessor.h rename to libs/qscintilla/lexlib/Accessor.h diff --git a/libs/qscintilla/scintilla/lexlib/CharacterCategory.cpp b/libs/qscintilla/lexlib/CharacterCategory.cpp similarity index 100% rename from libs/qscintilla/scintilla/lexlib/CharacterCategory.cpp rename to libs/qscintilla/lexlib/CharacterCategory.cpp diff --git a/libs/qscintilla/scintilla/lexlib/CharacterCategory.h b/libs/qscintilla/lexlib/CharacterCategory.h similarity index 100% rename from libs/qscintilla/scintilla/lexlib/CharacterCategory.h rename to libs/qscintilla/lexlib/CharacterCategory.h diff --git a/libs/qscintilla/scintilla/lexlib/CharacterSet.cpp b/libs/qscintilla/lexlib/CharacterSet.cpp similarity index 100% rename from libs/qscintilla/scintilla/lexlib/CharacterSet.cpp rename to libs/qscintilla/lexlib/CharacterSet.cpp diff --git a/libs/qscintilla/scintilla/lexlib/CharacterSet.h b/libs/qscintilla/lexlib/CharacterSet.h similarity index 100% rename from libs/qscintilla/scintilla/lexlib/CharacterSet.h rename to libs/qscintilla/lexlib/CharacterSet.h diff --git a/libs/qscintilla/scintilla/lexlib/DefaultLexer.cpp b/libs/qscintilla/lexlib/DefaultLexer.cpp similarity index 100% rename from libs/qscintilla/scintilla/lexlib/DefaultLexer.cpp rename to libs/qscintilla/lexlib/DefaultLexer.cpp diff --git a/libs/qscintilla/scintilla/lexlib/DefaultLexer.h b/libs/qscintilla/lexlib/DefaultLexer.h similarity index 100% rename from libs/qscintilla/scintilla/lexlib/DefaultLexer.h rename to libs/qscintilla/lexlib/DefaultLexer.h diff --git a/libs/qscintilla/scintilla/lexlib/LexAccessor.h b/libs/qscintilla/lexlib/LexAccessor.h similarity index 100% rename from libs/qscintilla/scintilla/lexlib/LexAccessor.h rename to libs/qscintilla/lexlib/LexAccessor.h diff --git a/libs/qscintilla/scintilla/lexlib/LexerBase.cpp b/libs/qscintilla/lexlib/LexerBase.cpp similarity index 100% rename from libs/qscintilla/scintilla/lexlib/LexerBase.cpp rename to libs/qscintilla/lexlib/LexerBase.cpp diff --git a/libs/qscintilla/scintilla/lexlib/LexerBase.h b/libs/qscintilla/lexlib/LexerBase.h similarity index 100% rename from libs/qscintilla/scintilla/lexlib/LexerBase.h rename to libs/qscintilla/lexlib/LexerBase.h diff --git a/libs/qscintilla/scintilla/lexlib/LexerModule.cpp b/libs/qscintilla/lexlib/LexerModule.cpp similarity index 100% rename from libs/qscintilla/scintilla/lexlib/LexerModule.cpp rename to libs/qscintilla/lexlib/LexerModule.cpp diff --git a/libs/qscintilla/scintilla/lexlib/LexerModule.h b/libs/qscintilla/lexlib/LexerModule.h similarity index 100% rename from libs/qscintilla/scintilla/lexlib/LexerModule.h rename to libs/qscintilla/lexlib/LexerModule.h diff --git a/libs/qscintilla/scintilla/lexlib/LexerNoExceptions.cpp b/libs/qscintilla/lexlib/LexerNoExceptions.cpp similarity index 100% rename from libs/qscintilla/scintilla/lexlib/LexerNoExceptions.cpp rename to libs/qscintilla/lexlib/LexerNoExceptions.cpp diff --git a/libs/qscintilla/scintilla/lexlib/LexerNoExceptions.h b/libs/qscintilla/lexlib/LexerNoExceptions.h similarity index 100% rename from libs/qscintilla/scintilla/lexlib/LexerNoExceptions.h rename to libs/qscintilla/lexlib/LexerNoExceptions.h diff --git a/libs/qscintilla/scintilla/lexlib/LexerSimple.cpp b/libs/qscintilla/lexlib/LexerSimple.cpp similarity index 100% rename from libs/qscintilla/scintilla/lexlib/LexerSimple.cpp rename to libs/qscintilla/lexlib/LexerSimple.cpp diff --git a/libs/qscintilla/scintilla/lexlib/LexerSimple.h b/libs/qscintilla/lexlib/LexerSimple.h similarity index 100% rename from libs/qscintilla/scintilla/lexlib/LexerSimple.h rename to libs/qscintilla/lexlib/LexerSimple.h diff --git a/libs/qscintilla/scintilla/lexlib/License.txt b/libs/qscintilla/lexlib/License.txt similarity index 100% rename from libs/qscintilla/scintilla/lexlib/License.txt rename to libs/qscintilla/lexlib/License.txt diff --git a/libs/qscintilla/scintilla/lexlib/OptionSet.h b/libs/qscintilla/lexlib/OptionSet.h similarity index 100% rename from libs/qscintilla/scintilla/lexlib/OptionSet.h rename to libs/qscintilla/lexlib/OptionSet.h diff --git a/libs/qscintilla/scintilla/lexlib/PropSetSimple.cpp b/libs/qscintilla/lexlib/PropSetSimple.cpp similarity index 100% rename from libs/qscintilla/scintilla/lexlib/PropSetSimple.cpp rename to libs/qscintilla/lexlib/PropSetSimple.cpp diff --git a/libs/qscintilla/scintilla/lexlib/PropSetSimple.h b/libs/qscintilla/lexlib/PropSetSimple.h similarity index 100% rename from libs/qscintilla/scintilla/lexlib/PropSetSimple.h rename to libs/qscintilla/lexlib/PropSetSimple.h diff --git a/libs/qscintilla/scintilla/lexlib/SparseState.h b/libs/qscintilla/lexlib/SparseState.h similarity index 100% rename from libs/qscintilla/scintilla/lexlib/SparseState.h rename to libs/qscintilla/lexlib/SparseState.h diff --git a/libs/qscintilla/scintilla/lexlib/StringCopy.h b/libs/qscintilla/lexlib/StringCopy.h similarity index 100% rename from libs/qscintilla/scintilla/lexlib/StringCopy.h rename to libs/qscintilla/lexlib/StringCopy.h diff --git a/libs/qscintilla/scintilla/lexlib/StyleContext.cpp b/libs/qscintilla/lexlib/StyleContext.cpp similarity index 100% rename from libs/qscintilla/scintilla/lexlib/StyleContext.cpp rename to libs/qscintilla/lexlib/StyleContext.cpp diff --git a/libs/qscintilla/scintilla/lexlib/StyleContext.h b/libs/qscintilla/lexlib/StyleContext.h similarity index 100% rename from libs/qscintilla/scintilla/lexlib/StyleContext.h rename to libs/qscintilla/lexlib/StyleContext.h diff --git a/libs/qscintilla/scintilla/lexlib/SubStyles.h b/libs/qscintilla/lexlib/SubStyles.h similarity index 100% rename from libs/qscintilla/scintilla/lexlib/SubStyles.h rename to libs/qscintilla/lexlib/SubStyles.h diff --git a/libs/qscintilla/scintilla/lexlib/WordList.cpp b/libs/qscintilla/lexlib/WordList.cpp similarity index 100% rename from libs/qscintilla/scintilla/lexlib/WordList.cpp rename to libs/qscintilla/lexlib/WordList.cpp diff --git a/libs/qscintilla/scintilla/lexlib/WordList.h b/libs/qscintilla/lexlib/WordList.h similarity index 100% rename from libs/qscintilla/scintilla/lexlib/WordList.h rename to libs/qscintilla/lexlib/WordList.h diff --git a/libs/qscintilla/scintilla/lexers/LexA68k.cpp b/libs/qscintilla/scintilla/lexers/LexA68k.cpp deleted file mode 100644 index 1475ad07..00000000 --- a/libs/qscintilla/scintilla/lexers/LexA68k.cpp +++ /dev/null @@ -1,345 +0,0 @@ -// Scintilla source code edit control -/** @file LexA68k.cxx - ** Lexer for Assembler, just for the MASM syntax - ** Written by Martial Demolins AKA Folco - **/ -// Copyright 2010 Martial Demolins -// The License.txt file describes the conditions under which this software -// may be distributed. - - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - - -// Return values for GetOperatorType -#define NO_OPERATOR 0 -#define OPERATOR_1CHAR 1 -#define OPERATOR_2CHAR 2 - - -/** - * IsIdentifierStart - * - * Return true if the given char is a valid identifier first char - */ - -static inline bool IsIdentifierStart (const int ch) -{ - return (isalpha(ch) || (ch == '_') || (ch == '\\')); -} - - -/** - * IsIdentifierChar - * - * Return true if the given char is a valid identifier char - */ - -static inline bool IsIdentifierChar (const int ch) -{ - return (isalnum(ch) || (ch == '_') || (ch == '@') || (ch == ':') || (ch == '.')); -} - - -/** - * GetOperatorType - * - * Return: - * NO_OPERATOR if char is not an operator - * OPERATOR_1CHAR if the operator is one char long - * OPERATOR_2CHAR if the operator is two chars long - */ - -static inline int GetOperatorType (const int ch1, const int ch2) -{ - int OpType = NO_OPERATOR; - - if ((ch1 == '+') || (ch1 == '-') || (ch1 == '*') || (ch1 == '/') || (ch1 == '#') || - (ch1 == '(') || (ch1 == ')') || (ch1 == '~') || (ch1 == '&') || (ch1 == '|') || (ch1 == ',')) - OpType = OPERATOR_1CHAR; - - else if ((ch1 == ch2) && (ch1 == '<' || ch1 == '>')) - OpType = OPERATOR_2CHAR; - - return OpType; -} - - -/** - * IsBin - * - * Return true if the given char is 0 or 1 - */ - -static inline bool IsBin (const int ch) -{ - return (ch == '0') || (ch == '1'); -} - - -/** - * IsDoxygenChar - * - * Return true if the char may be part of a Doxygen keyword - */ - -static inline bool IsDoxygenChar (const int ch) -{ - return isalpha(ch) || (ch == '$') || (ch == '[') || (ch == ']') || (ch == '{') || (ch == '}'); -} - - -/** - * ColouriseA68kDoc - * - * Main function, which colourises a 68k source - */ - -static void ColouriseA68kDoc (Sci_PositionU startPos, Sci_Position length, int initStyle, WordList *keywordlists[], Accessor &styler) -{ - // Used to buffer a string, to be able to compare it using built-in functions - char Buffer[100]; - - - // Used to know the length of an operator - int OpType; - - - // Get references to keywords lists - WordList &cpuInstruction = *keywordlists[0]; - WordList ®isters = *keywordlists[1]; - WordList &directive = *keywordlists[2]; - WordList &extInstruction = *keywordlists[3]; - WordList &alert = *keywordlists[4]; - WordList &doxygenKeyword = *keywordlists[5]; - - - // Instanciate a context for our source - StyleContext sc(startPos, length, initStyle, styler); - - - /************************************************************ - * - * Parse the source - * - ************************************************************/ - - for ( ; sc.More(); sc.Forward()) - { - /************************************************************ - * - * A style always terminates at the end of a line, even for - * comments (no multi-lines comments) - * - ************************************************************/ - if (sc.atLineStart) { - sc.SetState(SCE_A68K_DEFAULT); - } - - - /************************************************************ - * - * If we are not in "default style", check if the style continues - * In this case, we just have to loop - * - ************************************************************/ - - if (sc.state != SCE_A68K_DEFAULT) - { - if ( ((sc.state == SCE_A68K_NUMBER_DEC) && isdigit(sc.ch)) // Decimal number - || ((sc.state == SCE_A68K_NUMBER_BIN) && IsBin(sc.ch)) // Binary number - || ((sc.state == SCE_A68K_NUMBER_HEX) && isxdigit(sc.ch)) // Hexa number - || ((sc.state == SCE_A68K_MACRO_ARG) && isdigit(sc.ch)) // Macro argument - || ((sc.state == SCE_A68K_STRING1) && (sc.ch != '\'')) // String single-quoted - || ((sc.state == SCE_A68K_STRING2) && (sc.ch != '\"')) // String double-quoted - || ((sc.state == SCE_A68K_MACRO_DECLARATION) && IsIdentifierChar(sc.ch)) // Macro declaration (or global label, we don't know at this point) - || ((sc.state == SCE_A68K_IDENTIFIER) && IsIdentifierChar(sc.ch)) // Identifier - || ((sc.state == SCE_A68K_LABEL) && IsIdentifierChar(sc.ch)) // Label (local) - || ((sc.state == SCE_A68K_COMMENT_DOXYGEN) && IsDoxygenChar(sc.ch)) // Doxygen keyword - || ((sc.state == SCE_A68K_COMMENT_SPECIAL) && isalpha(sc.ch)) // Alert - || ((sc.state == SCE_A68K_COMMENT) && !isalpha(sc.ch) && (sc.ch != '\\'))) // Normal comment - { - continue; - } - - /************************************************************ - * - * Check if current state terminates - * - ************************************************************/ - - // Strings: include terminal ' or " in the current string by skipping it - if ((sc.state == SCE_A68K_STRING1) || (sc.state == SCE_A68K_STRING2)) { - sc.Forward(); - } - - - // If a macro declaration was terminated with ':', it was a label - else if ((sc.state == SCE_A68K_MACRO_DECLARATION) && (sc.chPrev == ':')) { - sc.ChangeState(SCE_A68K_LABEL); - } - - - // If it wasn't a Doxygen keyword, change it to normal comment - else if (sc.state == SCE_A68K_COMMENT_DOXYGEN) { - sc.GetCurrent(Buffer, sizeof(Buffer)); - if (!doxygenKeyword.InList(Buffer)) { - sc.ChangeState(SCE_A68K_COMMENT); - } - sc.SetState(SCE_A68K_COMMENT); - continue; - } - - - // If it wasn't an Alert, change it to normal comment - else if (sc.state == SCE_A68K_COMMENT_SPECIAL) { - sc.GetCurrent(Buffer, sizeof(Buffer)); - if (!alert.InList(Buffer)) { - sc.ChangeState(SCE_A68K_COMMENT); - } - // Reset style to normal comment, or to Doxygen keyword if it begins with '\' - if (sc.ch == '\\') { - sc.SetState(SCE_A68K_COMMENT_DOXYGEN); - } - else { - sc.SetState(SCE_A68K_COMMENT); - } - continue; - } - - - // If we are in a comment, it's a Doxygen keyword or an Alert - else if (sc.state == SCE_A68K_COMMENT) { - if (sc.ch == '\\') { - sc.SetState(SCE_A68K_COMMENT_DOXYGEN); - } - else { - sc.SetState(SCE_A68K_COMMENT_SPECIAL); - } - continue; - } - - - // Check if we are at the end of an identifier - // In this case, colourise it if was a keyword. - else if ((sc.state == SCE_A68K_IDENTIFIER) && !IsIdentifierChar(sc.ch)) { - sc.GetCurrentLowered(Buffer, sizeof(Buffer)); // Buffer the string of the current context - if (cpuInstruction.InList(Buffer)) { // And check if it belongs to a keyword list - sc.ChangeState(SCE_A68K_CPUINSTRUCTION); - } - else if (extInstruction.InList(Buffer)) { - sc.ChangeState(SCE_A68K_EXTINSTRUCTION); - } - else if (registers.InList(Buffer)) { - sc.ChangeState(SCE_A68K_REGISTER); - } - else if (directive.InList(Buffer)) { - sc.ChangeState(SCE_A68K_DIRECTIVE); - } - } - - // All special contexts are now handled.Come back to default style - sc.SetState(SCE_A68K_DEFAULT); - } - - - /************************************************************ - * - * Check if we must enter a new state - * - ************************************************************/ - - // Something which begins at the beginning of a line, and with - // - '\' + an identifier start char, or - // - '\\@' + an identifier start char - // is a local label (second case is used for macro local labels). We set it already as a label, it can't be a macro/equ declaration - if (sc.atLineStart && (sc.ch < 0x80) && IsIdentifierStart(sc.chNext) && (sc.ch == '\\')) { - sc.SetState(SCE_A68K_LABEL); - } - - if (sc.atLineStart && (sc.ch < 0x80) && (sc.ch == '\\') && (sc.chNext == '\\')) { - sc.Forward(2); - if ((sc.ch == '@') && IsIdentifierStart(sc.chNext)) { - sc.ChangeState(SCE_A68K_LABEL); - sc.SetState(SCE_A68K_LABEL); - } - } - - // Label and macro identifiers start at the beginning of a line - // We set both as a macro id, but if it wasn't one (':' at the end), - // it will be changed as a label. - if (sc.atLineStart && (sc.ch < 0x80) && IsIdentifierStart(sc.ch)) { - sc.SetState(SCE_A68K_MACRO_DECLARATION); - } - else if ((sc.ch < 0x80) && (sc.ch == ';')) { // Default: alert in a comment. If it doesn't match - sc.SetState(SCE_A68K_COMMENT); // with an alert, it will be toggle to a normal comment - } - else if ((sc.ch < 0x80) && isdigit(sc.ch)) { // Decimal numbers haven't prefix - sc.SetState(SCE_A68K_NUMBER_DEC); - } - else if ((sc.ch < 0x80) && (sc.ch == '%')) { // Binary numbers are prefixed with '%' - sc.SetState(SCE_A68K_NUMBER_BIN); - } - else if ((sc.ch < 0x80) && (sc.ch == '$')) { // Hexadecimal numbers are prefixed with '$' - sc.SetState(SCE_A68K_NUMBER_HEX); - } - else if ((sc.ch < 0x80) && (sc.ch == '\'')) { // String (single-quoted) - sc.SetState(SCE_A68K_STRING1); - } - else if ((sc.ch < 0x80) && (sc.ch == '\"')) { // String (double-quoted) - sc.SetState(SCE_A68K_STRING2); - } - else if ((sc.ch < 0x80) && (sc.ch == '\\') && (isdigit(sc.chNext))) { // Replacement symbols in macro are prefixed with '\' - sc.SetState(SCE_A68K_MACRO_ARG); - } - else if ((sc.ch < 0x80) && IsIdentifierStart(sc.ch)) { // An identifier: constant, label, etc... - sc.SetState(SCE_A68K_IDENTIFIER); - } - else { - if (sc.ch < 0x80) { - OpType = GetOperatorType(sc.ch, sc.chNext); // Check if current char is an operator - if (OpType != NO_OPERATOR) { - sc.SetState(SCE_A68K_OPERATOR); - if (OpType == OPERATOR_2CHAR) { // Check if the operator is 2 bytes long - sc.ForwardSetState(SCE_A68K_OPERATOR); // (>> or <<) - } - } - } - } - } // End of for() - sc.Complete(); -} - - -// Names of the keyword lists - -static const char * const a68kWordListDesc[] = -{ - "CPU instructions", - "Registers", - "Directives", - "Extended instructions", - "Comment special words", - "Doxygen keywords", - 0 -}; - -LexerModule lmA68k(SCLEX_A68K, ColouriseA68kDoc, "a68k", 0, a68kWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexAPDL.cpp b/libs/qscintilla/scintilla/lexers/LexAPDL.cpp deleted file mode 100644 index 447e40d5..00000000 --- a/libs/qscintilla/scintilla/lexers/LexAPDL.cpp +++ /dev/null @@ -1,257 +0,0 @@ -// Scintilla source code edit control -/** @file LexAPDL.cxx - ** Lexer for APDL. Based on the lexer for Assembler by The Black Horus. - ** By Hadar Raz. - **/ -// Copyright 1998-2003 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static inline bool IsAWordChar(const int ch) { - return (ch < 0x80 && (isalnum(ch) || ch == '_')); -} - -static inline bool IsAnOperator(char ch) { - // '.' left out as it is used to make up numbers - if (ch == '*' || ch == '/' || ch == '-' || ch == '+' || - ch == '(' || ch == ')' || ch == '=' || ch == '^' || - ch == '[' || ch == ']' || ch == '<' || ch == '&' || - ch == '>' || ch == ',' || ch == '|' || ch == '~' || - ch == '$' || ch == ':' || ch == '%') - return true; - return false; -} - -static void ColouriseAPDLDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, WordList *keywordlists[], - Accessor &styler) { - - int stringStart = ' '; - - WordList &processors = *keywordlists[0]; - WordList &commands = *keywordlists[1]; - WordList &slashcommands = *keywordlists[2]; - WordList &starcommands = *keywordlists[3]; - WordList &arguments = *keywordlists[4]; - WordList &functions = *keywordlists[5]; - - // Do not leak onto next line - initStyle = SCE_APDL_DEFAULT; - StyleContext sc(startPos, length, initStyle, styler); - - for (; sc.More(); sc.Forward()) { - // Determine if the current state should terminate. - if (sc.state == SCE_APDL_NUMBER) { - if (!(IsADigit(sc.ch) || sc.ch == '.' || (sc.ch == 'e' || sc.ch == 'E') || - ((sc.ch == '+' || sc.ch == '-') && (sc.chPrev == 'e' || sc.chPrev == 'E')))) { - sc.SetState(SCE_APDL_DEFAULT); - } - } else if (sc.state == SCE_APDL_COMMENT) { - if (sc.atLineEnd) { - sc.SetState(SCE_APDL_DEFAULT); - } - } else if (sc.state == SCE_APDL_COMMENTBLOCK) { - if (sc.atLineEnd) { - if (sc.ch == '\r') { - sc.Forward(); - } - sc.ForwardSetState(SCE_APDL_DEFAULT); - } - } else if (sc.state == SCE_APDL_STRING) { - if (sc.atLineEnd) { - sc.SetState(SCE_APDL_DEFAULT); - } else if ((sc.ch == '\'' && stringStart == '\'') || (sc.ch == '\"' && stringStart == '\"')) { - sc.ForwardSetState(SCE_APDL_DEFAULT); - } - } else if (sc.state == SCE_APDL_WORD) { - if (!IsAWordChar(sc.ch)) { - char s[100]; - sc.GetCurrentLowered(s, sizeof(s)); - if (processors.InList(s)) { - sc.ChangeState(SCE_APDL_PROCESSOR); - } else if (slashcommands.InList(s)) { - sc.ChangeState(SCE_APDL_SLASHCOMMAND); - } else if (starcommands.InList(s)) { - sc.ChangeState(SCE_APDL_STARCOMMAND); - } else if (commands.InList(s)) { - sc.ChangeState(SCE_APDL_COMMAND); - } else if (arguments.InList(s)) { - sc.ChangeState(SCE_APDL_ARGUMENT); - } else if (functions.InList(s)) { - sc.ChangeState(SCE_APDL_FUNCTION); - } - sc.SetState(SCE_APDL_DEFAULT); - } - } else if (sc.state == SCE_APDL_OPERATOR) { - if (!IsAnOperator(static_cast(sc.ch))) { - sc.SetState(SCE_APDL_DEFAULT); - } - } - - // Determine if a new state should be entered. - if (sc.state == SCE_APDL_DEFAULT) { - if (sc.ch == '!' && sc.chNext == '!') { - sc.SetState(SCE_APDL_COMMENTBLOCK); - } else if (sc.ch == '!') { - sc.SetState(SCE_APDL_COMMENT); - } else if (IsADigit(sc.ch) || (sc.ch == '.' && IsADigit(sc.chNext))) { - sc.SetState(SCE_APDL_NUMBER); - } else if (sc.ch == '\'' || sc.ch == '\"') { - sc.SetState(SCE_APDL_STRING); - stringStart = sc.ch; - } else if (IsAWordChar(sc.ch) || ((sc.ch == '*' || sc.ch == '/') && !isgraph(sc.chPrev))) { - sc.SetState(SCE_APDL_WORD); - } else if (IsAnOperator(static_cast(sc.ch))) { - sc.SetState(SCE_APDL_OPERATOR); - } - } - } - sc.Complete(); -} - -//------------------------------------------------------------------------------ -// 06-27-07 Sergio Lucato -// - Included code folding for Ansys APDL lexer -// - Copyied from LexBasic.cxx and modified for APDL -//------------------------------------------------------------------------------ - -/* Bits: - * 1 - whitespace - * 2 - operator - * 4 - identifier - * 8 - decimal digit - * 16 - hex digit - * 32 - bin digit - */ -static int character_classification[128] = -{ - 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 1, 2, 0, 2, 2, 2, 2, 2, 2, 2, 6, 2, 2, 2, 10, 6, - 60, 60, 28, 28, 28, 28, 28, 28, 28, 28, 2, 2, 2, 2, 2, 2, - 2, 20, 20, 20, 20, 20, 20, 4, 4, 4, 4, 4, 4, 4, 4, 4, - 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 2, 2, 2, 2, 4, - 2, 20, 20, 20, 20, 20, 20, 4, 4, 4, 4, 4, 4, 4, 4, 4, - 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 2, 2, 2, 2, 0 -}; - -static bool IsSpace(int c) { - return c < 128 && (character_classification[c] & 1); -} - -static bool IsIdentifier(int c) { - return c < 128 && (character_classification[c] & 4); -} - -static int LowerCase(int c) -{ - if (c >= 'A' && c <= 'Z') - return 'a' + c - 'A'; - return c; -} - -static int CheckAPDLFoldPoint(char const *token, int &level) { - if (!strcmp(token, "*if") || - !strcmp(token, "*do") || - !strcmp(token, "*dowhile") ) { - level |= SC_FOLDLEVELHEADERFLAG; - return 1; - } - if (!strcmp(token, "*endif") || - !strcmp(token, "*enddo") ) { - return -1; - } - return 0; -} - -static void FoldAPDLDoc(Sci_PositionU startPos, Sci_Position length, int, - WordList *[], Accessor &styler) { - - Sci_Position line = styler.GetLine(startPos); - int level = styler.LevelAt(line); - int go = 0, done = 0; - Sci_Position endPos = startPos + length; - char word[256]; - int wordlen = 0; - Sci_Position i; - bool foldCompact = styler.GetPropertyInt("fold.compact", 1) != 0; - // Scan for tokens at the start of the line (they may include - // whitespace, for tokens like "End Function" - for (i = startPos; i < endPos; i++) { - int c = styler.SafeGetCharAt(i); - if (!done && !go) { - if (wordlen) { // are we scanning a token already? - word[wordlen] = static_cast(LowerCase(c)); - if (!IsIdentifier(c)) { // done with token - word[wordlen] = '\0'; - go = CheckAPDLFoldPoint(word, level); - if (!go) { - // Treat any whitespace as single blank, for - // things like "End Function". - if (IsSpace(c) && IsIdentifier(word[wordlen - 1])) { - word[wordlen] = ' '; - if (wordlen < 255) - wordlen++; - } - else // done with this line - done = 1; - } - } else if (wordlen < 255) { - wordlen++; - } - } else { // start scanning at first non-whitespace character - if (!IsSpace(c)) { - if (IsIdentifier(c)) { - word[0] = static_cast(LowerCase(c)); - wordlen = 1; - } else // done with this line - done = 1; - } - } - } - if (c == '\n') { // line end - if (!done && wordlen == 0 && foldCompact) // line was only space - level |= SC_FOLDLEVELWHITEFLAG; - if (level != styler.LevelAt(line)) - styler.SetLevel(line, level); - level += go; - line++; - // reset state - wordlen = 0; - level &= ~SC_FOLDLEVELHEADERFLAG; - level &= ~SC_FOLDLEVELWHITEFLAG; - go = 0; - done = 0; - } - } -} - -static const char * const apdlWordListDesc[] = { - "processors", - "commands", - "slashommands", - "starcommands", - "arguments", - "functions", - 0 -}; - -LexerModule lmAPDL(SCLEX_APDL, ColouriseAPDLDoc, "apdl", FoldAPDLDoc, apdlWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexASY.cpp b/libs/qscintilla/scintilla/lexers/LexASY.cpp deleted file mode 100644 index 3ec52272..00000000 --- a/libs/qscintilla/scintilla/lexers/LexASY.cpp +++ /dev/null @@ -1,269 +0,0 @@ -// Scintilla source code edit control -//Author: instanton (email: soft_share126com) -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static void ColouriseAsyDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, - WordList *keywordlists[], Accessor &styler) { - - WordList &keywords = *keywordlists[0]; - WordList &keywords2 = *keywordlists[1]; - - CharacterSet setWordStart(CharacterSet::setAlpha, "_", 0x80, true); - CharacterSet setWord(CharacterSet::setAlphaNum, "._", 0x80, true); - - int visibleChars = 0; - - StyleContext sc(startPos, length, initStyle, styler); - - for (; sc.More(); sc.Forward()) { - - if (sc.atLineStart) { - if (sc.state == SCE_ASY_STRING) { - sc.SetState(SCE_ASY_STRING); - } - visibleChars = 0; - } - - if (sc.ch == '\\') { - if (sc.chNext == '\n' || sc.chNext == '\r') { - sc.Forward(); - if (sc.ch == '\r' && sc.chNext == '\n') { - sc.Forward(); - } -// continuationLine = true; - continue; - } - } - - // Determine if the current state should terminate. - switch (sc.state) { - case SCE_ASY_OPERATOR: - sc.SetState(SCE_ASY_DEFAULT); - break; - case SCE_ASY_NUMBER: - if (!setWord.Contains(sc.ch)) { - sc.SetState(SCE_ASY_DEFAULT); - } - break; - case SCE_ASY_IDENTIFIER: - if (!setWord.Contains(sc.ch) || (sc.ch == '.')) { - char s[1000]; - sc.GetCurrentLowered(s, sizeof(s)); - if (keywords.InList(s)) { - sc.ChangeState(SCE_ASY_WORD); - } else if (keywords2.InList(s)) { - sc.ChangeState(SCE_ASY_WORD2); - } - sc.SetState(SCE_ASY_DEFAULT); - } - break; - case SCE_ASY_COMMENT: - if (sc.Match('*', '/')) { - sc.Forward(); - sc.ForwardSetState(SCE_ASY_DEFAULT); - } - break; - case SCE_ASY_COMMENTLINE: - if (sc.atLineStart) { - sc.SetState(SCE_ASY_DEFAULT); - } - break; - case SCE_ASY_STRING: - if (sc.atLineEnd) { - sc.ChangeState(SCE_ASY_STRINGEOL); - } else if (sc.ch == '\\') { - if (sc.chNext == '\"' || sc.chNext == '\'' || sc.chNext == '\\') { - sc.Forward(); - } - } else if (sc.ch == '\"') { - sc.ForwardSetState(SCE_ASY_DEFAULT); - } - break; - case SCE_ASY_CHARACTER: - if (sc.atLineEnd) { - sc.ChangeState(SCE_ASY_STRINGEOL); - } else if (sc.ch == '\\') { - if (sc.chNext == '\"' || sc.chNext == '\'' || sc.chNext == '\\') { - sc.Forward(); - } - } else if (sc.ch == '\'') { - sc.ForwardSetState(SCE_ASY_DEFAULT); - } - break; - } - - // Determine if a new state should be entered. - if (sc.state == SCE_ASY_DEFAULT) { - if (setWordStart.Contains(sc.ch) || (sc.ch == '@')) { - sc.SetState(SCE_ASY_IDENTIFIER); - } else if (sc.Match('/', '*')) { - sc.SetState(SCE_ASY_COMMENT); - sc.Forward(); // - } else if (sc.Match('/', '/')) { - sc.SetState(SCE_ASY_COMMENTLINE); - } else if (sc.ch == '\"') { - sc.SetState(SCE_ASY_STRING); - } else if (sc.ch == '\'') { - sc.SetState(SCE_ASY_CHARACTER); - } else if (sc.ch == '#' && visibleChars == 0) { - do { - sc.Forward(); - } while ((sc.ch == ' ' || sc.ch == '\t') && sc.More()); - if (sc.atLineEnd) { - sc.SetState(SCE_ASY_DEFAULT); - } - } else if (isoperator(static_cast(sc.ch))) { - sc.SetState(SCE_ASY_OPERATOR); - } - } - - } - sc.Complete(); -} - -static bool IsAsyCommentStyle(int style) { - return style == SCE_ASY_COMMENT; -} - - -static inline bool isASYidentifier(int ch) { - return - ((ch >= 'a') && (ch <= 'z')) || ((ch >= 'A') && (ch <= 'Z')) ; -} - -static int ParseASYWord(Sci_PositionU pos, Accessor &styler, char *word) -{ - int length=0; - char ch=styler.SafeGetCharAt(pos); - *word=0; - - while(isASYidentifier(ch) && length<100){ - word[length]=ch; - length++; - ch=styler.SafeGetCharAt(pos+length); - } - word[length]=0; - return length; -} - -static bool IsASYDrawingLine(Sci_Position line, Accessor &styler) { - Sci_Position pos = styler.LineStart(line); - Sci_Position eol_pos = styler.LineStart(line + 1) - 1; - - Sci_Position startpos = pos; - char buffer[100]=""; - - while (startpos 0) - levelCurrent = styler.LevelAt(lineCurrent-1) >> 16; - int levelMinCurrent = levelCurrent; - int levelNext = levelCurrent; - char chNext = styler[startPos]; - int styleNext = styler.StyleAt(startPos); - int style = initStyle; - for (Sci_PositionU i = startPos; i < endPos; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - int stylePrev = style; - style = styleNext; - styleNext = styler.StyleAt(i + 1); - bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n'); - if (foldComment && IsAsyCommentStyle(style)) { - if (!IsAsyCommentStyle(stylePrev) && (stylePrev != SCE_ASY_COMMENTLINEDOC)) { - levelNext++; - } else if (!IsAsyCommentStyle(styleNext) && (styleNext != SCE_ASY_COMMENTLINEDOC) && !atEOL) { - levelNext--; - } - } - if (style == SCE_ASY_OPERATOR) { - if (ch == '{') { - if (levelMinCurrent > levelNext) { - levelMinCurrent = levelNext; - } - levelNext++; - } else if (ch == '}') { - levelNext--; - } - } - - if (atEOL && IsASYDrawingLine(lineCurrent, styler)){ - if (lineCurrent==0 && IsASYDrawingLine(lineCurrent + 1, styler)) - levelNext++; - else if (lineCurrent!=0 && !IsASYDrawingLine(lineCurrent - 1, styler) - && IsASYDrawingLine(lineCurrent + 1, styler) - ) - levelNext++; - else if (lineCurrent!=0 && IsASYDrawingLine(lineCurrent - 1, styler) && - !IsASYDrawingLine(lineCurrent+1, styler)) - levelNext--; - } - - if (atEOL) { - int levelUse = levelCurrent; - if (foldAtElse) { - levelUse = levelMinCurrent; - } - int lev = levelUse | levelNext << 16; - if (visibleChars == 0 && foldCompact) - lev |= SC_FOLDLEVELWHITEFLAG; - if (levelUse < levelNext) - lev |= SC_FOLDLEVELHEADERFLAG; - if (lev != styler.LevelAt(lineCurrent)) { - styler.SetLevel(lineCurrent, lev); - } - lineCurrent++; - levelCurrent = levelNext; - levelMinCurrent = levelCurrent; - visibleChars = 0; - } - if (!IsASpace(ch)) - visibleChars++; - } -} - -static const char * const asyWordLists[] = { - "Primary keywords and identifiers", - "Secondary keywords and identifiers", - 0, - }; - -LexerModule lmASY(SCLEX_ASYMPTOTE, ColouriseAsyDoc, "asy", FoldAsyDoc, asyWordLists); diff --git a/libs/qscintilla/scintilla/lexers/LexAU3.cpp b/libs/qscintilla/scintilla/lexers/LexAU3.cpp deleted file mode 100644 index b4029413..00000000 --- a/libs/qscintilla/scintilla/lexers/LexAU3.cpp +++ /dev/null @@ -1,908 +0,0 @@ -// Scintilla source code edit control -// @file LexAU3.cxx -// Lexer for AutoIt3 http://www.hiddensoft.com/autoit3 -// by Jos van der Zande, jvdzande@yahoo.com -// -// Changes: -// March 28, 2004 - Added the standard Folding code -// April 21, 2004 - Added Preprosessor Table + Syntax Highlighting -// Fixed Number highlighting -// Changed default isoperator to IsAOperator to have a better match to AutoIt3 -// Fixed "#comments_start" -> "#comments-start" -// Fixed "#comments_end" -> "#comments-end" -// Fixed Sendkeys in Strings when not terminated with } -// Added support for Sendkey strings that have second parameter e.g. {UP 5} or {a down} -// April 26, 2004 - Fixed # pre-processor statement inside of comment block would invalidly change the color. -// Added logic for #include to treat the <> as string -// Added underscore to IsAOperator. -// May 17, 2004 - Changed the folding logic from indent to keyword folding. -// Added Folding logic for blocks of single-commentlines or commentblock. -// triggered by: fold.comment=1 -// Added Folding logic for preprocessor blocks triggered by fold.preprocessor=1 -// Added Special for #region - #endregion syntax highlight and folding. -// May 30, 2004 - Fixed issue with continuation lines on If statements. -// June 5, 2004 - Added comma to Operators for better readability. -// Added fold.compact support set with fold.compact=1 -// Changed folding inside of #cs-#ce. Default is no keyword folding inside comment blocks when fold.comment=1 -// it will now only happen when fold.comment=2. -// Sep 5, 2004 - Added logic to handle colourizing words on the last line. -// Typed Characters now show as "default" till they match any table. -// Oct 10, 2004 - Added logic to show Comments in "Special" directives. -// Nov 1, 2004 - Added better testing for Numbers supporting x and e notation. -// Nov 28, 2004 - Added logic to handle continuation lines for syntax highlighting. -// Jan 10, 2005 - Added Abbreviations Keyword used for expansion -// Mar 24, 2005 - Updated Abbreviations Keywords to fix when followed by Operator. -// Apr 18, 2005 - Updated #CE/#Comment-End logic to take a linecomment ";" into account -// - Added folding support for With...EndWith -// - Added support for a DOT in variable names -// - Fixed Underscore in CommentBlock -// May 23, 2005 - Fixed the SentKey lexing in case of a missing } -// Aug 11, 2005 - Fixed possible bug with s_save length > 100. -// Aug 23, 2005 - Added Switch/endswitch support to the folding logic. -// Sep 27, 2005 - Fixed the SentKey lexing logic in case of multiple sentkeys. -// Mar 12, 2006 - Fixed issue with <> coloring as String in stead of Operator in rare occasions. -// Apr 8, 2006 - Added support for AutoIt3 Standard UDF library (SCE_AU3_UDF) -// Mar 9, 2007 - Fixed bug with + following a String getting the wrong Color. -// Jun 20, 2007 - Fixed Commentblock issue when LF's are used as EOL. -// Jul 26, 2007 - Fixed #endregion undetected bug. -// -// Copyright for Scintilla: 1998-2001 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. -// Scintilla source code edit control - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static inline bool IsTypeCharacter(const int ch) -{ - return ch == '$'; -} -static inline bool IsAWordChar(const int ch) -{ - return (ch < 0x80) && (isalnum(ch) || ch == '_'); -} - -static inline bool IsAWordStart(const int ch) -{ - return (ch < 0x80) && (isalnum(ch) || ch == '_' || ch == '@' || ch == '#' || ch == '$' || ch == '.'); -} - -static inline bool IsAOperator(char ch) { - if (IsASCII(ch) && isalnum(ch)) - return false; - if (ch == '+' || ch == '-' || ch == '*' || ch == '/' || - ch == '&' || ch == '^' || ch == '=' || ch == '<' || ch == '>' || - ch == '(' || ch == ')' || ch == '[' || ch == ']' || ch == ',' ) - return true; - return false; -} - -/////////////////////////////////////////////////////////////////////////////// -// GetSendKey() filters the portion before and after a/multiple space(s) -// and return the first portion to be looked-up in the table -// also check if the second portion is valid... (up,down.on.off,toggle or a number) -/////////////////////////////////////////////////////////////////////////////// - -static int GetSendKey(const char *szLine, char *szKey) -{ - int nFlag = 0; - int nStartFound = 0; - int nKeyPos = 0; - int nSpecPos= 0; - int nSpecNum= 1; - int nPos = 0; - char cTemp; - char szSpecial[100]; - - // split the portion of the sendkey in the part before and after the spaces - while ( ( (cTemp = szLine[nPos]) != '\0')) - { - // skip leading Ctrl/Shift/Alt state - if (cTemp == '{') { - nStartFound = 1; - } - // - if (nStartFound == 1) { - if ((cTemp == ' ') && (nFlag == 0) ) // get the stuff till first space - { - nFlag = 1; - // Add } to the end of the first bit for table lookup later. - szKey[nKeyPos++] = '}'; - } - else if (cTemp == ' ') - { - // skip other spaces - } - else if (nFlag == 0) - { - // save first portion into var till space or } is hit - szKey[nKeyPos++] = cTemp; - } - else if ((nFlag == 1) && (cTemp != '}')) - { - // Save second portion into var... - szSpecial[nSpecPos++] = cTemp; - // check if Second portion is all numbers for repeat fuction - if (isdigit(cTemp) == false) {nSpecNum = 0;} - } - } - nPos++; // skip to next char - - } // End While - - - // Check if the second portion is either a number or one of these keywords - szKey[nKeyPos] = '\0'; - szSpecial[nSpecPos] = '\0'; - if (strcmp(szSpecial,"down")== 0 || strcmp(szSpecial,"up")== 0 || - strcmp(szSpecial,"on")== 0 || strcmp(szSpecial,"off")== 0 || - strcmp(szSpecial,"toggle")== 0 || nSpecNum == 1 ) - { - nFlag = 0; - } - else - { - nFlag = 1; - } - return nFlag; // 1 is bad, 0 is good - -} // GetSendKey() - -// -// Routine to check the last "none comment" character on a line to see if its a continuation -// -static bool IsContinuationLine(Sci_PositionU szLine, Accessor &styler) -{ - Sci_Position nsPos = styler.LineStart(szLine); - Sci_Position nePos = styler.LineStart(szLine+1) - 2; - //int stylech = styler.StyleAt(nsPos); - while (nsPos < nePos) - { - //stylech = styler.StyleAt(nePos); - int stylech = styler.StyleAt(nsPos); - if (!(stylech == SCE_AU3_COMMENT)) { - char ch = styler.SafeGetCharAt(nePos); - if (!isspacechar(ch)) { - if (ch == '_') - return true; - else - return false; - } - } - nePos--; // skip to next char - } // End While - return false; -} // IsContinuationLine() - -// -// syntax highlighting logic -static void ColouriseAU3Doc(Sci_PositionU startPos, - Sci_Position length, int initStyle, - WordList *keywordlists[], - Accessor &styler) { - - WordList &keywords = *keywordlists[0]; - WordList &keywords2 = *keywordlists[1]; - WordList &keywords3 = *keywordlists[2]; - WordList &keywords4 = *keywordlists[3]; - WordList &keywords5 = *keywordlists[4]; - WordList &keywords6 = *keywordlists[5]; - WordList &keywords7 = *keywordlists[6]; - WordList &keywords8 = *keywordlists[7]; - // find the first previous line without continuation character at the end - Sci_Position lineCurrent = styler.GetLine(startPos); - Sci_Position s_startPos = startPos; - // When not inside a Block comment: find First line without _ - if (!(initStyle==SCE_AU3_COMMENTBLOCK)) { - while ((lineCurrent > 0 && IsContinuationLine(lineCurrent,styler)) || - (lineCurrent > 1 && IsContinuationLine(lineCurrent-1,styler))) { - lineCurrent--; - startPos = styler.LineStart(lineCurrent); // get start position - initStyle = 0; // reset the start style to 0 - } - } - // Set the new length to include it from the start and set the start position - length = length + s_startPos - startPos; // correct the total length to process - styler.StartAt(startPos); - - StyleContext sc(startPos, length, initStyle, styler); - char si; // string indicator "=1 '=2 - char ni; // Numeric indicator error=9 normal=0 normal+dec=1 hex=2 Enot=3 - char ci; // comment indicator 0=not linecomment(;) - char s_save[100] = ""; - si=0; - ni=0; - ci=0; - //$$$ - for (; sc.More(); sc.Forward()) { - char s[100]; - sc.GetCurrentLowered(s, sizeof(s)); - // ********************************************** - // save the total current word for eof processing - if (IsAWordChar(sc.ch) || sc.ch == '}') - { - strcpy(s_save,s); - int tp = static_cast(strlen(s_save)); - if (tp < 99) { - s_save[tp] = static_cast(tolower(sc.ch)); - s_save[tp+1] = '\0'; - } - } - // ********************************************** - // - switch (sc.state) - { - case SCE_AU3_COMMENTBLOCK: - { - //Reset at line end - if (sc.atLineEnd) { - ci=0; - if (strcmp(s, "#ce")== 0 || strcmp(s, "#comments-end")== 0) { - if (sc.atLineEnd) - sc.SetState(SCE_AU3_DEFAULT); - else - sc.SetState(SCE_AU3_COMMENTBLOCK); - } - break; - } - //skip rest of line when a ; is encountered - if (sc.chPrev == ';') { - ci=2; - sc.SetState(SCE_AU3_COMMENTBLOCK); - } - // skip rest of the line - if (ci==2) - break; - // check when first character is detected on the line - if (ci==0) { - if (IsAWordStart(static_cast(sc.ch)) || IsAOperator(static_cast(sc.ch))) { - ci=1; - sc.SetState(SCE_AU3_COMMENTBLOCK); - } - break; - } - if (!(IsAWordChar(sc.ch) || (sc.ch == '-' && strcmp(s, "#comments") == 0))) { - if ((strcmp(s, "#ce")== 0 || strcmp(s, "#comments-end")== 0)) - sc.SetState(SCE_AU3_COMMENT); // set to comment line for the rest of the line - else - ci=2; // line doesn't begin with #CE so skip the rest of the line - } - break; - } - case SCE_AU3_COMMENT: - { - if (sc.atLineEnd) {sc.SetState(SCE_AU3_DEFAULT);} - break; - } - case SCE_AU3_OPERATOR: - { - // check if its a COMobject - if (sc.chPrev == '.' && IsAWordChar(sc.ch)) { - sc.SetState(SCE_AU3_COMOBJ); - } - else { - sc.SetState(SCE_AU3_DEFAULT); - } - break; - } - case SCE_AU3_SPECIAL: - { - if (sc.ch == ';') {sc.SetState(SCE_AU3_COMMENT);} - if (sc.atLineEnd) {sc.SetState(SCE_AU3_DEFAULT);} - break; - } - case SCE_AU3_KEYWORD: - { - if (!(IsAWordChar(sc.ch) || (sc.ch == '-' && (strcmp(s, "#comments") == 0 || strcmp(s, "#include") == 0)))) - { - if (!IsTypeCharacter(sc.ch)) - { - if (strcmp(s, "#cs")== 0 || strcmp(s, "#comments-start")== 0 ) - { - sc.ChangeState(SCE_AU3_COMMENTBLOCK); - sc.SetState(SCE_AU3_COMMENTBLOCK); - break; - } - else if (keywords.InList(s)) { - sc.ChangeState(SCE_AU3_KEYWORD); - sc.SetState(SCE_AU3_DEFAULT); - } - else if (keywords2.InList(s)) { - sc.ChangeState(SCE_AU3_FUNCTION); - sc.SetState(SCE_AU3_DEFAULT); - } - else if (keywords3.InList(s)) { - sc.ChangeState(SCE_AU3_MACRO); - sc.SetState(SCE_AU3_DEFAULT); - } - else if (keywords5.InList(s)) { - sc.ChangeState(SCE_AU3_PREPROCESSOR); - sc.SetState(SCE_AU3_DEFAULT); - if (strcmp(s, "#include")== 0) - { - si = 3; // use to determine string start for #inlude <> - } - } - else if (keywords6.InList(s)) { - sc.ChangeState(SCE_AU3_SPECIAL); - sc.SetState(SCE_AU3_SPECIAL); - } - else if ((keywords7.InList(s)) && (!IsAOperator(static_cast(sc.ch)))) { - sc.ChangeState(SCE_AU3_EXPAND); - sc.SetState(SCE_AU3_DEFAULT); - } - else if (keywords8.InList(s)) { - sc.ChangeState(SCE_AU3_UDF); - sc.SetState(SCE_AU3_DEFAULT); - } - else if (strcmp(s, "_") == 0) { - sc.ChangeState(SCE_AU3_OPERATOR); - sc.SetState(SCE_AU3_DEFAULT); - } - else if (!IsAWordChar(sc.ch)) { - sc.ChangeState(SCE_AU3_DEFAULT); - sc.SetState(SCE_AU3_DEFAULT); - } - } - } - if (sc.atLineEnd) { - sc.SetState(SCE_AU3_DEFAULT);} - break; - } - case SCE_AU3_NUMBER: - { - // Numeric indicator error=9 normal=0 normal+dec=1 hex=2 E-not=3 - // - // test for Hex notation - if (strcmp(s, "0") == 0 && (sc.ch == 'x' || sc.ch == 'X') && ni == 0) - { - ni = 2; - break; - } - // test for E notation - if (IsADigit(sc.chPrev) && (sc.ch == 'e' || sc.ch == 'E') && ni <= 1) - { - ni = 3; - break; - } - // Allow Hex characters inside hex numeric strings - if ((ni == 2) && - (sc.ch == 'a' || sc.ch == 'b' || sc.ch == 'c' || sc.ch == 'd' || sc.ch == 'e' || sc.ch == 'f' || - sc.ch == 'A' || sc.ch == 'B' || sc.ch == 'C' || sc.ch == 'D' || sc.ch == 'E' || sc.ch == 'F' )) - { - break; - } - // test for 1 dec point only - if (sc.ch == '.') - { - if (ni==0) - { - ni=1; - } - else - { - ni=9; - } - break; - } - // end of numeric string ? - if (!(IsADigit(sc.ch))) - { - if (ni==9) - { - sc.ChangeState(SCE_AU3_DEFAULT); - } - sc.SetState(SCE_AU3_DEFAULT); - } - break; - } - case SCE_AU3_VARIABLE: - { - // Check if its a COMObject - if (sc.ch == '.' && !IsADigit(sc.chNext)) { - sc.SetState(SCE_AU3_OPERATOR); - } - else if (!IsAWordChar(sc.ch)) { - sc.SetState(SCE_AU3_DEFAULT); - } - break; - } - case SCE_AU3_COMOBJ: - { - if (!(IsAWordChar(sc.ch))) { - sc.SetState(SCE_AU3_DEFAULT); - } - break; - } - case SCE_AU3_STRING: - { - // check for " to end a double qouted string or - // check for ' to end a single qouted string - if ((si == 1 && sc.ch == '\"') || (si == 2 && sc.ch == '\'') || (si == 3 && sc.ch == '>')) - { - sc.ForwardSetState(SCE_AU3_DEFAULT); - si=0; - break; - } - if (sc.atLineEnd) - { - si=0; - // at line end and not found a continuation char then reset to default - Sci_Position lineCurrent = styler.GetLine(sc.currentPos); - if (!IsContinuationLine(lineCurrent,styler)) - { - sc.SetState(SCE_AU3_DEFAULT); - break; - } - } - // find Sendkeys in a STRING - if (sc.ch == '{' || sc.ch == '+' || sc.ch == '!' || sc.ch == '^' || sc.ch == '#' ) { - sc.SetState(SCE_AU3_SENT);} - break; - } - - case SCE_AU3_SENT: - { - // Send key string ended - if (sc.chPrev == '}' && sc.ch != '}') - { - // set color to SENDKEY when valid sendkey .. else set back to regular string - char sk[100]; - // split {111 222} and return {111} and check if 222 is valid. - // if return code = 1 then invalid 222 so must be string - if (GetSendKey(s,sk)) - { - sc.ChangeState(SCE_AU3_STRING); - } - // if single char between {?} then its ok as sendkey for a single character - else if (strlen(sk) == 3) - { - sc.ChangeState(SCE_AU3_SENT); - } - // if sendkey {111} is in table then ok as sendkey - else if (keywords4.InList(sk)) - { - sc.ChangeState(SCE_AU3_SENT); - } - else - { - sc.ChangeState(SCE_AU3_STRING); - } - sc.SetState(SCE_AU3_STRING); - } - else - { - // check if the start is a valid SendKey start - Sci_Position nPos = 0; - int nState = 1; - char cTemp; - while (!(nState == 2) && ((cTemp = s[nPos]) != '\0')) - { - if (cTemp == '{' && nState == 1) - { - nState = 2; - } - if (nState == 1 && !(cTemp == '+' || cTemp == '!' || cTemp == '^' || cTemp == '#' )) - { - nState = 0; - } - nPos++; - } - //Verify characters infront of { ... if not assume regular string - if (nState == 1 && (!(sc.ch == '{' || sc.ch == '+' || sc.ch == '!' || sc.ch == '^' || sc.ch == '#' ))) { - sc.ChangeState(SCE_AU3_STRING); - sc.SetState(SCE_AU3_STRING); - } - // If invalid character found then assume its a regular string - if (nState == 0) { - sc.ChangeState(SCE_AU3_STRING); - sc.SetState(SCE_AU3_STRING); - } - } - // check if next portion is again a sendkey - if (sc.atLineEnd) - { - sc.ChangeState(SCE_AU3_STRING); - sc.SetState(SCE_AU3_DEFAULT); - si = 0; // reset string indicator - } - //* check in next characters following a sentkey are again a sent key - // Need this test incase of 2 sentkeys like {F1}{ENTER} but not detect {{} - if (sc.state == SCE_AU3_STRING && (sc.ch == '{' || sc.ch == '+' || sc.ch == '!' || sc.ch == '^' || sc.ch == '#' )) { - sc.SetState(SCE_AU3_SENT);} - // check to see if the string ended... - // Sendkey string isn't complete but the string ended.... - if ((si == 1 && sc.ch == '\"') || (si == 2 && sc.ch == '\'')) - { - sc.ChangeState(SCE_AU3_STRING); - sc.ForwardSetState(SCE_AU3_DEFAULT); - } - break; - } - } //switch (sc.state) - - // Determine if a new state should be entered: - - if (sc.state == SCE_AU3_DEFAULT) - { - if (sc.ch == ';') {sc.SetState(SCE_AU3_COMMENT);} - else if (sc.ch == '#') {sc.SetState(SCE_AU3_KEYWORD);} - else if (sc.ch == '$') {sc.SetState(SCE_AU3_VARIABLE);} - else if (sc.ch == '.' && !IsADigit(sc.chNext)) {sc.SetState(SCE_AU3_OPERATOR);} - else if (sc.ch == '@') {sc.SetState(SCE_AU3_KEYWORD);} - //else if (sc.ch == '_') {sc.SetState(SCE_AU3_KEYWORD);} - else if (sc.ch == '<' && si==3) {sc.SetState(SCE_AU3_STRING);} // string after #include - else if (sc.ch == '\"') { - sc.SetState(SCE_AU3_STRING); - si = 1; } - else if (sc.ch == '\'') { - sc.SetState(SCE_AU3_STRING); - si = 2; } - else if (IsADigit(sc.ch) || (sc.ch == '.' && IsADigit(sc.chNext))) - { - sc.SetState(SCE_AU3_NUMBER); - ni = 0; - } - else if (IsAWordStart(sc.ch)) {sc.SetState(SCE_AU3_KEYWORD);} - else if (IsAOperator(static_cast(sc.ch))) {sc.SetState(SCE_AU3_OPERATOR);} - else if (sc.atLineEnd) {sc.SetState(SCE_AU3_DEFAULT);} - } - } //for (; sc.More(); sc.Forward()) - - //************************************* - // Colourize the last word correctly - //************************************* - if (sc.state == SCE_AU3_KEYWORD) - { - if (strcmp(s_save, "#cs")== 0 || strcmp(s_save, "#comments-start")== 0 ) - { - sc.ChangeState(SCE_AU3_COMMENTBLOCK); - sc.SetState(SCE_AU3_COMMENTBLOCK); - } - else if (keywords.InList(s_save)) { - sc.ChangeState(SCE_AU3_KEYWORD); - sc.SetState(SCE_AU3_KEYWORD); - } - else if (keywords2.InList(s_save)) { - sc.ChangeState(SCE_AU3_FUNCTION); - sc.SetState(SCE_AU3_FUNCTION); - } - else if (keywords3.InList(s_save)) { - sc.ChangeState(SCE_AU3_MACRO); - sc.SetState(SCE_AU3_MACRO); - } - else if (keywords5.InList(s_save)) { - sc.ChangeState(SCE_AU3_PREPROCESSOR); - sc.SetState(SCE_AU3_PREPROCESSOR); - } - else if (keywords6.InList(s_save)) { - sc.ChangeState(SCE_AU3_SPECIAL); - sc.SetState(SCE_AU3_SPECIAL); - } - else if (keywords7.InList(s_save) && sc.atLineEnd) { - sc.ChangeState(SCE_AU3_EXPAND); - sc.SetState(SCE_AU3_EXPAND); - } - else if (keywords8.InList(s_save)) { - sc.ChangeState(SCE_AU3_UDF); - sc.SetState(SCE_AU3_UDF); - } - else { - sc.ChangeState(SCE_AU3_DEFAULT); - sc.SetState(SCE_AU3_DEFAULT); - } - } - if (sc.state == SCE_AU3_SENT) - { - // Send key string ended - if (sc.chPrev == '}' && sc.ch != '}') - { - // set color to SENDKEY when valid sendkey .. else set back to regular string - char sk[100]; - // split {111 222} and return {111} and check if 222 is valid. - // if return code = 1 then invalid 222 so must be string - if (GetSendKey(s_save,sk)) - { - sc.ChangeState(SCE_AU3_STRING); - } - // if single char between {?} then its ok as sendkey for a single character - else if (strlen(sk) == 3) - { - sc.ChangeState(SCE_AU3_SENT); - } - // if sendkey {111} is in table then ok as sendkey - else if (keywords4.InList(sk)) - { - sc.ChangeState(SCE_AU3_SENT); - } - else - { - sc.ChangeState(SCE_AU3_STRING); - } - sc.SetState(SCE_AU3_STRING); - } - // check if next portion is again a sendkey - if (sc.atLineEnd) - { - sc.ChangeState(SCE_AU3_STRING); - sc.SetState(SCE_AU3_DEFAULT); - } - } - //************************************* - sc.Complete(); -} - -// -static bool IsStreamCommentStyle(int style) { - return style == SCE_AU3_COMMENT || style == SCE_AU3_COMMENTBLOCK; -} - -// -// Routine to find first none space on the current line and return its Style -// needed for comment lines not starting on pos 1 -static int GetStyleFirstWord(Sci_PositionU szLine, Accessor &styler) -{ - Sci_Position nsPos = styler.LineStart(szLine); - Sci_Position nePos = styler.LineStart(szLine+1) - 1; - while (isspacechar(styler.SafeGetCharAt(nsPos)) && nsPos < nePos) - { - nsPos++; // skip to next char - - } // End While - return styler.StyleAt(nsPos); - -} // GetStyleFirstWord() - - -// -static void FoldAU3Doc(Sci_PositionU startPos, Sci_Position length, int, WordList *[], Accessor &styler) -{ - Sci_Position endPos = startPos + length; - // get settings from the config files for folding comments and preprocessor lines - bool foldComment = styler.GetPropertyInt("fold.comment") != 0; - bool foldInComment = styler.GetPropertyInt("fold.comment") == 2; - bool foldCompact = styler.GetPropertyInt("fold.compact", 1) != 0; - bool foldpreprocessor = styler.GetPropertyInt("fold.preprocessor") != 0; - // Backtrack to previous line in case need to fix its fold status - Sci_Position lineCurrent = styler.GetLine(startPos); - if (startPos > 0) { - if (lineCurrent > 0) { - lineCurrent--; - startPos = styler.LineStart(lineCurrent); - } - } - // vars for style of previous/current/next lines - int style = GetStyleFirstWord(lineCurrent,styler); - int stylePrev = 0; - // find the first previous line without continuation character at the end - while ((lineCurrent > 0 && IsContinuationLine(lineCurrent,styler)) || - (lineCurrent > 1 && IsContinuationLine(lineCurrent-1,styler))) { - lineCurrent--; - startPos = styler.LineStart(lineCurrent); - } - if (lineCurrent > 0) { - stylePrev = GetStyleFirstWord(lineCurrent-1,styler); - } - // vars for getting first word to check for keywords - bool FirstWordStart = false; - bool FirstWordEnd = false; - char szKeyword[11]=""; - int szKeywordlen = 0; - char szThen[5]=""; - int szThenlen = 0; - bool ThenFoundLast = false; - // var for indentlevel - int levelCurrent = SC_FOLDLEVELBASE; - if (lineCurrent > 0) - levelCurrent = styler.LevelAt(lineCurrent-1) >> 16; - int levelNext = levelCurrent; - // - int visibleChars = 0; - char chNext = styler.SafeGetCharAt(startPos); - char chPrev = ' '; - // - for (Sci_Position i = startPos; i < endPos; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - if (IsAWordChar(ch)) { - visibleChars++; - } - // get the syle for the current character neede to check in comment - int stylech = styler.StyleAt(i); - // get first word for the line for indent check max 9 characters - if (FirstWordStart && (!(FirstWordEnd))) { - if (!IsAWordChar(ch)) { - FirstWordEnd = true; - szKeyword[szKeywordlen] = '\0'; - } - else { - if (szKeywordlen < 10) { - szKeyword[szKeywordlen++] = static_cast(tolower(ch)); - } - } - } - // start the capture of the first word - if (!(FirstWordStart)) { - if (IsAWordChar(ch) || IsAWordStart(ch) || ch == ';') { - FirstWordStart = true; - szKeyword[szKeywordlen++] = static_cast(tolower(ch)); - } - } - // only process this logic when not in comment section - if (!(stylech == SCE_AU3_COMMENT)) { - if (ThenFoundLast) { - if (IsAWordChar(ch)) { - ThenFoundLast = false; - } - } - // find out if the word "then" is the last on a "if" line - if (FirstWordEnd && strcmp(szKeyword,"if") == 0) { - if (szThenlen == 4) { - szThen[0] = szThen[1]; - szThen[1] = szThen[2]; - szThen[2] = szThen[3]; - szThen[3] = static_cast(tolower(ch)); - if (strcmp(szThen,"then") == 0 ) { - ThenFoundLast = true; - } - } - else { - szThen[szThenlen++] = static_cast(tolower(ch)); - if (szThenlen == 5) { - szThen[4] = '\0'; - } - } - } - } - // End of Line found so process the information - if ((ch == '\r' && chNext != '\n') || (ch == '\n') || (i == endPos)) { - // ************************** - // Folding logic for Keywords - // ************************** - // if a keyword is found on the current line and the line doesn't end with _ (continuation) - // and we are not inside a commentblock. - if (szKeywordlen > 0 && (!(chPrev == '_')) && - ((!(IsStreamCommentStyle(style)) || foldInComment)) ) { - szKeyword[szKeywordlen] = '\0'; - // only fold "if" last keyword is "then" (else its a one line if) - if (strcmp(szKeyword,"if") == 0 && ThenFoundLast) { - levelNext++; - } - // create new fold for these words - if (strcmp(szKeyword,"do") == 0 || strcmp(szKeyword,"for") == 0 || - strcmp(szKeyword,"func") == 0 || strcmp(szKeyword,"while") == 0|| - strcmp(szKeyword,"with") == 0 || strcmp(szKeyword,"#region") == 0 ) { - levelNext++; - } - // create double Fold for select&switch because Case will subtract one of the current level - if (strcmp(szKeyword,"select") == 0 || strcmp(szKeyword,"switch") == 0) { - levelNext++; - levelNext++; - } - // end the fold for these words before the current line - if (strcmp(szKeyword,"endfunc") == 0 || strcmp(szKeyword,"endif") == 0 || - strcmp(szKeyword,"next") == 0 || strcmp(szKeyword,"until") == 0 || - strcmp(szKeyword,"endwith") == 0 ||strcmp(szKeyword,"wend") == 0){ - levelNext--; - levelCurrent--; - } - // end the fold for these words before the current line and Start new fold - if (strcmp(szKeyword,"case") == 0 || strcmp(szKeyword,"else") == 0 || - strcmp(szKeyword,"elseif") == 0 ) { - levelCurrent--; - } - // end the double fold for this word before the current line - if (strcmp(szKeyword,"endselect") == 0 || strcmp(szKeyword,"endswitch") == 0 ) { - levelNext--; - levelNext--; - levelCurrent--; - levelCurrent--; - } - // end the fold for these words on the current line - if (strcmp(szKeyword,"#endregion") == 0 ) { - levelNext--; - } - } - // Preprocessor and Comment folding - int styleNext = GetStyleFirstWord(lineCurrent + 1,styler); - // ************************************* - // Folding logic for preprocessor blocks - // ************************************* - // process preprosessor line - if (foldpreprocessor && style == SCE_AU3_PREPROCESSOR) { - if (!(stylePrev == SCE_AU3_PREPROCESSOR) && (styleNext == SCE_AU3_PREPROCESSOR)) { - levelNext++; - } - // fold till the last line for normal comment lines - else if (stylePrev == SCE_AU3_PREPROCESSOR && !(styleNext == SCE_AU3_PREPROCESSOR)) { - levelNext--; - } - } - // ********************************* - // Folding logic for Comment blocks - // ********************************* - if (foldComment && IsStreamCommentStyle(style)) { - // Start of a comment block - if (!(stylePrev==style) && IsStreamCommentStyle(styleNext) && styleNext==style) { - levelNext++; - } - // fold till the last line for normal comment lines - else if (IsStreamCommentStyle(stylePrev) - && !(styleNext == SCE_AU3_COMMENT) - && stylePrev == SCE_AU3_COMMENT - && style == SCE_AU3_COMMENT) { - levelNext--; - } - // fold till the one but last line for Blockcomment lines - else if (IsStreamCommentStyle(stylePrev) - && !(styleNext == SCE_AU3_COMMENTBLOCK) - && style == SCE_AU3_COMMENTBLOCK) { - levelNext--; - levelCurrent--; - } - } - int levelUse = levelCurrent; - int lev = levelUse | levelNext << 16; - if (visibleChars == 0 && foldCompact) - lev |= SC_FOLDLEVELWHITEFLAG; - if (levelUse < levelNext) { - lev |= SC_FOLDLEVELHEADERFLAG; - } - if (lev != styler.LevelAt(lineCurrent)) { - styler.SetLevel(lineCurrent, lev); - } - // reset values for the next line - lineCurrent++; - stylePrev = style; - style = styleNext; - levelCurrent = levelNext; - visibleChars = 0; - // if the last character is an Underscore then don't reset since the line continues on the next line. - if (!(chPrev == '_')) { - szKeywordlen = 0; - szThenlen = 0; - FirstWordStart = false; - FirstWordEnd = false; - ThenFoundLast = false; - } - } - // save the last processed character - if (!isspacechar(ch)) { - chPrev = ch; - visibleChars++; - } - } -} - - -// - -static const char * const AU3WordLists[] = { - "#autoit keywords", - "#autoit functions", - "#autoit macros", - "#autoit Sent keys", - "#autoit Pre-processors", - "#autoit Special", - "#autoit Expand", - "#autoit UDF", - 0 -}; -LexerModule lmAU3(SCLEX_AU3, ColouriseAU3Doc, "au3", FoldAU3Doc , AU3WordLists); diff --git a/libs/qscintilla/scintilla/lexers/LexAVE.cpp b/libs/qscintilla/scintilla/lexers/LexAVE.cpp deleted file mode 100644 index b976734a..00000000 --- a/libs/qscintilla/scintilla/lexers/LexAVE.cpp +++ /dev/null @@ -1,229 +0,0 @@ -// SciTE - Scintilla based Text Editor -/** @file LexAVE.cxx - ** Lexer for Avenue. - ** - ** Written by Alexey Yutkin . - **/ -// Copyright 1998-2002 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - - -static inline bool IsAWordChar(const int ch) { - return (ch < 0x80) && (isalnum(ch) || ch == '.' || ch == '_'); -} -static inline bool IsEnumChar(const int ch) { - return (ch < 0x80) && (isalnum(ch)|| ch == '_'); -} -static inline bool IsANumberChar(const int ch) { - return (ch < 0x80) && (isalnum(ch) || ch == '.' ); -} - -inline bool IsAWordStart(const int ch) { - return (ch < 0x80) && (isalnum(ch) || ch == '_'); -} - -inline bool isAveOperator(char ch) { - if (IsASCII(ch) && isalnum(ch)) - return false; - // '.' left out as it is used to make up numbers - if (ch == '*' || ch == '/' || ch == '-' || ch == '+' || - ch == '(' || ch == ')' || ch == '=' || - ch == '{' || ch == '}' || - ch == '[' || ch == ']' || ch == ';' || - ch == '<' || ch == '>' || ch == ',' || - ch == '.' ) - return true; - return false; -} - -static void ColouriseAveDoc( - Sci_PositionU startPos, - Sci_Position length, - int initStyle, - WordList *keywordlists[], - Accessor &styler) { - - WordList &keywords = *keywordlists[0]; - WordList &keywords2 = *keywordlists[1]; - WordList &keywords3 = *keywordlists[2]; - WordList &keywords4 = *keywordlists[3]; - WordList &keywords5 = *keywordlists[4]; - WordList &keywords6 = *keywordlists[5]; - - // Do not leak onto next line - if (initStyle == SCE_AVE_STRINGEOL) { - initStyle = SCE_AVE_DEFAULT; - } - - StyleContext sc(startPos, length, initStyle, styler); - - for (; sc.More(); sc.Forward()) { - if (sc.atLineEnd) { - // Update the line state, so it can be seen by next line - Sci_Position currentLine = styler.GetLine(sc.currentPos); - styler.SetLineState(currentLine, 0); - } - if (sc.atLineStart && (sc.state == SCE_AVE_STRING)) { - // Prevent SCE_AVE_STRINGEOL from leaking back to previous line - sc.SetState(SCE_AVE_STRING); - } - - - // Determine if the current state should terminate. - if (sc.state == SCE_AVE_OPERATOR) { - sc.SetState(SCE_AVE_DEFAULT); - } else if (sc.state == SCE_AVE_NUMBER) { - if (!IsANumberChar(sc.ch)) { - sc.SetState(SCE_AVE_DEFAULT); - } - } else if (sc.state == SCE_AVE_ENUM) { - if (!IsEnumChar(sc.ch)) { - sc.SetState(SCE_AVE_DEFAULT); - } - } else if (sc.state == SCE_AVE_IDENTIFIER) { - if (!IsAWordChar(sc.ch) || (sc.ch == '.')) { - char s[100]; - //sc.GetCurrent(s, sizeof(s)); - sc.GetCurrentLowered(s, sizeof(s)); - if (keywords.InList(s)) { - sc.ChangeState(SCE_AVE_WORD); - } else if (keywords2.InList(s)) { - sc.ChangeState(SCE_AVE_WORD2); - } else if (keywords3.InList(s)) { - sc.ChangeState(SCE_AVE_WORD3); - } else if (keywords4.InList(s)) { - sc.ChangeState(SCE_AVE_WORD4); - } else if (keywords5.InList(s)) { - sc.ChangeState(SCE_AVE_WORD5); - } else if (keywords6.InList(s)) { - sc.ChangeState(SCE_AVE_WORD6); - } - sc.SetState(SCE_AVE_DEFAULT); - } - } else if (sc.state == SCE_AVE_COMMENT) { - if (sc.atLineEnd) { - sc.SetState(SCE_AVE_DEFAULT); - } - } else if (sc.state == SCE_AVE_STRING) { - if (sc.ch == '\"') { - sc.ForwardSetState(SCE_AVE_DEFAULT); - } else if (sc.atLineEnd) { - sc.ChangeState(SCE_AVE_STRINGEOL); - sc.ForwardSetState(SCE_AVE_DEFAULT); - } - } - - // Determine if a new state should be entered. - if (sc.state == SCE_AVE_DEFAULT) { - if (IsADigit(sc.ch) || (sc.ch == '.' && IsADigit(sc.chNext))) { - sc.SetState(SCE_AVE_NUMBER); - } else if (IsAWordStart(sc.ch)) { - sc.SetState(SCE_AVE_IDENTIFIER); - } else if (sc.Match('\"')) { - sc.SetState(SCE_AVE_STRING); - } else if (sc.Match('\'')) { - sc.SetState(SCE_AVE_COMMENT); - sc.Forward(); - } else if (isAveOperator(static_cast(sc.ch))) { - sc.SetState(SCE_AVE_OPERATOR); - } else if (sc.Match('#')) { - sc.SetState(SCE_AVE_ENUM); - sc.Forward(); - } - } - } - sc.Complete(); -} - -static void FoldAveDoc(Sci_PositionU startPos, Sci_Position length, int /* initStyle */, WordList *[], - Accessor &styler) { - Sci_PositionU lengthDoc = startPos + length; - int visibleChars = 0; - Sci_Position lineCurrent = styler.GetLine(startPos); - int levelPrev = styler.LevelAt(lineCurrent) & SC_FOLDLEVELNUMBERMASK; - int levelCurrent = levelPrev; - char chNext = static_cast(tolower(styler[startPos])); - bool foldCompact = styler.GetPropertyInt("fold.compact", 1) != 0; - int styleNext = styler.StyleAt(startPos); - char s[10] = ""; - - for (Sci_PositionU i = startPos; i < lengthDoc; i++) { - char ch = static_cast(tolower(chNext)); - chNext = static_cast(tolower(styler.SafeGetCharAt(i + 1))); - int style = styleNext; - styleNext = styler.StyleAt(i + 1); - bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n'); - if (style == SCE_AVE_WORD) { - if (ch == 't' || ch == 'f' || ch == 'w' || ch == 'e') { - for (unsigned int j = 0; j < 6; j++) { - if (!iswordchar(styler[i + j])) { - break; - } - s[j] = static_cast(tolower(styler[i + j])); - s[j + 1] = '\0'; - } - - if ((strcmp(s, "then") == 0) || (strcmp(s, "for") == 0) || (strcmp(s, "while") == 0)) { - levelCurrent++; - } - if ((strcmp(s, "end") == 0) || (strcmp(s, "elseif") == 0)) { - // Normally "elseif" and "then" will be on the same line and will cancel - // each other out. // As implemented, this does not support fold.at.else. - levelCurrent--; - } - } - } else if (style == SCE_AVE_OPERATOR) { - if (ch == '{' || ch == '(') { - levelCurrent++; - } else if (ch == '}' || ch == ')') { - levelCurrent--; - } - } - - if (atEOL) { - int lev = levelPrev; - if (visibleChars == 0 && foldCompact) { - lev |= SC_FOLDLEVELWHITEFLAG; - } - if ((levelCurrent > levelPrev) && (visibleChars > 0)) { - lev |= SC_FOLDLEVELHEADERFLAG; - } - if (lev != styler.LevelAt(lineCurrent)) { - styler.SetLevel(lineCurrent, lev); - } - lineCurrent++; - levelPrev = levelCurrent; - visibleChars = 0; - } - if (!isspacechar(ch)) { - visibleChars++; - } - } - // Fill in the real level of the next line, keeping the current flags as they will be filled in later - - int flagsNext = styler.LevelAt(lineCurrent) & ~SC_FOLDLEVELNUMBERMASK; - styler.SetLevel(lineCurrent, levelPrev | flagsNext); -} - -LexerModule lmAVE(SCLEX_AVE, ColouriseAveDoc, "ave", FoldAveDoc); - diff --git a/libs/qscintilla/scintilla/lexers/LexAVS.cpp b/libs/qscintilla/scintilla/lexers/LexAVS.cpp deleted file mode 100644 index df5223f8..00000000 --- a/libs/qscintilla/scintilla/lexers/LexAVS.cpp +++ /dev/null @@ -1,291 +0,0 @@ -// Scintilla source code edit control -/** @file LexAVS.cxx - ** Lexer for AviSynth. - **/ -// Copyright 2012 by Bruno Barbieri -// Heavily based on LexPOV by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static inline bool IsAWordChar(const int ch) { - return (ch < 0x80) && (isalnum(ch) || ch == '_'); -} - -static inline bool IsAWordStart(int ch) { - return isalpha(ch) || (ch != ' ' && ch != '\n' && ch != '(' && ch != '.' && ch != ','); -} - -static inline bool IsANumberChar(int ch) { - // Not exactly following number definition (several dots are seen as OK, etc.) - // but probably enough in most cases. - return (ch < 0x80) && - (isdigit(ch) || ch == '.' || ch == '-' || ch == '+'); -} - -static void ColouriseAvsDoc( - Sci_PositionU startPos, - Sci_Position length, - int initStyle, - WordList *keywordlists[], - Accessor &styler) { - - WordList &keywords = *keywordlists[0]; - WordList &filters = *keywordlists[1]; - WordList &plugins = *keywordlists[2]; - WordList &functions = *keywordlists[3]; - WordList &clipProperties = *keywordlists[4]; - WordList &userDefined = *keywordlists[5]; - - Sci_Position currentLine = styler.GetLine(startPos); - // Initialize the block comment nesting level, if we are inside such a comment. - int blockCommentLevel = 0; - if (initStyle == SCE_AVS_COMMENTBLOCK || initStyle == SCE_AVS_COMMENTBLOCKN) { - blockCommentLevel = styler.GetLineState(currentLine - 1); - } - - // Do not leak onto next line - if (initStyle == SCE_AVS_COMMENTLINE) { - initStyle = SCE_AVS_DEFAULT; - } - - StyleContext sc(startPos, length, initStyle, styler); - - for (; sc.More(); sc.Forward()) { - if (sc.atLineEnd) { - // Update the line state, so it can be seen by next line - currentLine = styler.GetLine(sc.currentPos); - if (sc.state == SCE_AVS_COMMENTBLOCK || sc.state == SCE_AVS_COMMENTBLOCKN) { - // Inside a block comment, we set the line state - styler.SetLineState(currentLine, blockCommentLevel); - } else { - // Reset the line state - styler.SetLineState(currentLine, 0); - } - } - - // Determine if the current state should terminate. - if (sc.state == SCE_AVS_OPERATOR) { - sc.SetState(SCE_AVS_DEFAULT); - } else if (sc.state == SCE_AVS_NUMBER) { - // We stop the number definition on non-numerical non-dot non-sign char - if (!IsANumberChar(sc.ch)) { - sc.SetState(SCE_AVS_DEFAULT); - } - } else if (sc.state == SCE_AVS_IDENTIFIER) { - if (!IsAWordChar(sc.ch)) { - char s[100]; - sc.GetCurrentLowered(s, sizeof(s)); - - if (keywords.InList(s)) { - sc.ChangeState(SCE_AVS_KEYWORD); - } else if (filters.InList(s)) { - sc.ChangeState(SCE_AVS_FILTER); - } else if (plugins.InList(s)) { - sc.ChangeState(SCE_AVS_PLUGIN); - } else if (functions.InList(s)) { - sc.ChangeState(SCE_AVS_FUNCTION); - } else if (clipProperties.InList(s)) { - sc.ChangeState(SCE_AVS_CLIPPROP); - } else if (userDefined.InList(s)) { - sc.ChangeState(SCE_AVS_USERDFN); - } - sc.SetState(SCE_AVS_DEFAULT); - } - } else if (sc.state == SCE_AVS_COMMENTBLOCK) { - if (sc.Match('/', '*')) { - blockCommentLevel++; - sc.Forward(); - } else if (sc.Match('*', '/') && blockCommentLevel > 0) { - blockCommentLevel--; - sc.Forward(); - if (blockCommentLevel == 0) { - sc.ForwardSetState(SCE_AVS_DEFAULT); - } - } - } else if (sc.state == SCE_AVS_COMMENTBLOCKN) { - if (sc.Match('[', '*')) { - blockCommentLevel++; - sc.Forward(); - } else if (sc.Match('*', ']') && blockCommentLevel > 0) { - blockCommentLevel--; - sc.Forward(); - if (blockCommentLevel == 0) { - sc.ForwardSetState(SCE_AVS_DEFAULT); - } - } - } else if (sc.state == SCE_AVS_COMMENTLINE) { - if (sc.atLineEnd) { - sc.ForwardSetState(SCE_AVS_DEFAULT); - } - } else if (sc.state == SCE_AVS_STRING) { - if (sc.ch == '\"') { - sc.ForwardSetState(SCE_AVS_DEFAULT); - } - } else if (sc.state == SCE_AVS_TRIPLESTRING) { - if (sc.Match("\"\"\"")) { - sc.Forward(); - sc.Forward(); - sc.ForwardSetState(SCE_AVS_DEFAULT); - } - } - - // Determine if a new state should be entered. - if (sc.state == SCE_AVS_DEFAULT) { - if (IsADigit(sc.ch) || (sc.ch == '.' && IsADigit(sc.chNext))) { - sc.SetState(SCE_AVS_NUMBER); - } else if (IsADigit(sc.ch) || (sc.ch == ',' && IsADigit(sc.chNext))) { - sc.Forward(); - sc.SetState(SCE_AVS_NUMBER); - } else if (sc.Match('/', '*')) { - blockCommentLevel = 1; - sc.SetState(SCE_AVS_COMMENTBLOCK); - sc.Forward(); // Eat the * so it isn't used for the end of the comment - } else if (sc.Match('[', '*')) { - blockCommentLevel = 1; - sc.SetState(SCE_AVS_COMMENTBLOCKN); - sc.Forward(); // Eat the * so it isn't used for the end of the comment - } else if (sc.ch == '#') { - sc.SetState(SCE_AVS_COMMENTLINE); - } else if (sc.ch == '\"') { - if (sc.Match("\"\"\"")) { - sc.SetState(SCE_AVS_TRIPLESTRING); - } else { - sc.SetState(SCE_AVS_STRING); - } - } else if (isoperator(static_cast(sc.ch))) { - sc.SetState(SCE_AVS_OPERATOR); - } else if (IsAWordStart(sc.ch)) { - sc.SetState(SCE_AVS_IDENTIFIER); - } - } - } - - // End of file: complete any pending changeState - if (sc.state == SCE_AVS_IDENTIFIER) { - if (!IsAWordChar(sc.ch)) { - char s[100]; - sc.GetCurrentLowered(s, sizeof(s)); - - if (keywords.InList(s)) { - sc.ChangeState(SCE_AVS_KEYWORD); - } else if (filters.InList(s)) { - sc.ChangeState(SCE_AVS_FILTER); - } else if (plugins.InList(s)) { - sc.ChangeState(SCE_AVS_PLUGIN); - } else if (functions.InList(s)) { - sc.ChangeState(SCE_AVS_FUNCTION); - } else if (clipProperties.InList(s)) { - sc.ChangeState(SCE_AVS_CLIPPROP); - } else if (userDefined.InList(s)) { - sc.ChangeState(SCE_AVS_USERDFN); - } - sc.SetState(SCE_AVS_DEFAULT); - } - } - - sc.Complete(); -} - -static void FoldAvsDoc( - Sci_PositionU startPos, - Sci_Position length, - int initStyle, - WordList *[], - Accessor &styler) { - - bool foldComment = styler.GetPropertyInt("fold.comment") != 0; - bool foldCompact = styler.GetPropertyInt("fold.compact", 1) != 0; - Sci_PositionU endPos = startPos + length; - int visibleChars = 0; - Sci_Position lineCurrent = styler.GetLine(startPos); - int levelPrev = styler.LevelAt(lineCurrent) & SC_FOLDLEVELNUMBERMASK; - int levelCurrent = levelPrev; - char chNext = styler[startPos]; - int styleNext = styler.StyleAt(startPos); - int style = initStyle; - - for (Sci_PositionU i = startPos; i < endPos; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - int stylePrev = style; - style = styleNext; - styleNext = styler.StyleAt(i + 1); - bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n'); - if (foldComment && style == SCE_AVS_COMMENTBLOCK) { - if (stylePrev != SCE_AVS_COMMENTBLOCK) { - levelCurrent++; - } else if ((styleNext != SCE_AVS_COMMENTBLOCK) && !atEOL) { - // Comments don't end at end of line and the next character may be unstyled. - levelCurrent--; - } - } - - if (foldComment && style == SCE_AVS_COMMENTBLOCKN) { - if (stylePrev != SCE_AVS_COMMENTBLOCKN) { - levelCurrent++; - } else if ((styleNext != SCE_AVS_COMMENTBLOCKN) && !atEOL) { - // Comments don't end at end of line and the next character may be unstyled. - levelCurrent--; - } - } - - if (style == SCE_AVS_OPERATOR) { - if (ch == '{') { - levelCurrent++; - } else if (ch == '}') { - levelCurrent--; - } - } - - if (atEOL) { - int lev = levelPrev; - if (visibleChars == 0 && foldCompact) - lev |= SC_FOLDLEVELWHITEFLAG; - if ((levelCurrent > levelPrev) && (visibleChars > 0)) - lev |= SC_FOLDLEVELHEADERFLAG; - if (lev != styler.LevelAt(lineCurrent)) { - styler.SetLevel(lineCurrent, lev); - } - lineCurrent++; - levelPrev = levelCurrent; - visibleChars = 0; - } - - if (!isspacechar(ch)) - visibleChars++; - } - // Fill in the real level of the next line, keeping the current flags as they will be filled in later - int flagsNext = styler.LevelAt(lineCurrent) & ~SC_FOLDLEVELNUMBERMASK; - styler.SetLevel(lineCurrent, levelPrev | flagsNext); -} - -static const char * const avsWordLists[] = { - "Keywords", - "Filters", - "Plugins", - "Functions", - "Clip properties", - "User defined functions", - 0, -}; - -LexerModule lmAVS(SCLEX_AVS, ColouriseAvsDoc, "avs", FoldAvsDoc, avsWordLists); diff --git a/libs/qscintilla/scintilla/lexers/LexAbaqus.cpp b/libs/qscintilla/scintilla/lexers/LexAbaqus.cpp deleted file mode 100644 index 96a7b886..00000000 --- a/libs/qscintilla/scintilla/lexers/LexAbaqus.cpp +++ /dev/null @@ -1,603 +0,0 @@ -// Scintilla source code edit control -/** @file LexABAQUS.cxx - ** Lexer for ABAQUS. Based on the lexer for APDL by Hadar Raz. - ** By Sergio Lucato. - ** Sort of completely rewritten by Gertjan Kloosterman - **/ -// The License.txt file describes the conditions under which this software may be distributed. - -// Code folding copyied and modified from LexBasic.cxx - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static inline bool IsAKeywordChar(const int ch) { - return (ch < 0x80 && (isalnum(ch) || (ch == '_') || (ch == ' '))); -} - -static inline bool IsASetChar(const int ch) { - return (ch < 0x80 && (isalnum(ch) || (ch == '_') || (ch == '.') || (ch == '-'))); -} - -static void ColouriseABAQUSDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, WordList*[] /* *keywordlists[] */, - Accessor &styler) { - enum localState { KW_LINE_KW, KW_LINE_COMMA, KW_LINE_PAR, KW_LINE_EQ, KW_LINE_VAL, \ - DAT_LINE_VAL, DAT_LINE_COMMA,\ - COMMENT_LINE,\ - ST_ERROR, LINE_END } state ; - - // Do not leak onto next line - state = LINE_END ; - initStyle = SCE_ABAQUS_DEFAULT; - StyleContext sc(startPos, length, initStyle, styler); - - // Things are actually quite simple - // we have commentlines - // keywordlines and datalines - // On a data line there will only be colouring of numbers - // a keyword line is constructed as - // *word,[ paramname[=paramvalue]]* - // if the line ends with a , the keyword line continues onto the new line - - for (; sc.More(); sc.Forward()) { - switch ( state ) { - case KW_LINE_KW : - if ( sc.atLineEnd ) { - // finished the line in keyword state, switch to LINE_END - sc.SetState(SCE_ABAQUS_DEFAULT) ; - state = LINE_END ; - } else if ( IsAKeywordChar(sc.ch) ) { - // nothing changes - state = KW_LINE_KW ; - } else if ( sc.ch == ',' ) { - // Well well we say a comma, arguments *MUST* follow - sc.SetState(SCE_ABAQUS_OPERATOR) ; - state = KW_LINE_COMMA ; - } else { - // Flag an error - sc.SetState(SCE_ABAQUS_PROCESSOR) ; - state = ST_ERROR ; - } - // Done with processing - break ; - case KW_LINE_COMMA : - // acomma on a keywordline was seen - if ( IsAKeywordChar(sc.ch)) { - sc.SetState(SCE_ABAQUS_ARGUMENT) ; - state = KW_LINE_PAR ; - } else if ( sc.atLineEnd || (sc.ch == ',') ) { - // we remain in keyword mode - state = KW_LINE_COMMA ; - } else if ( sc.ch == ' ' ) { - sc.SetState(SCE_ABAQUS_DEFAULT) ; - state = KW_LINE_COMMA ; - } else { - // Anything else constitutes an error - sc.SetState(SCE_ABAQUS_PROCESSOR) ; - state = ST_ERROR ; - } - break ; - case KW_LINE_PAR : - if ( sc.atLineEnd ) { - sc.SetState(SCE_ABAQUS_DEFAULT) ; - state = LINE_END ; - } else if ( IsAKeywordChar(sc.ch) || (sc.ch == '-') ) { - // remain in this state - state = KW_LINE_PAR ; - } else if ( sc.ch == ',' ) { - sc.SetState(SCE_ABAQUS_OPERATOR) ; - state = KW_LINE_COMMA ; - } else if ( sc.ch == '=' ) { - sc.SetState(SCE_ABAQUS_OPERATOR) ; - state = KW_LINE_EQ ; - } else { - // Anything else constitutes an error - sc.SetState(SCE_ABAQUS_PROCESSOR) ; - state = ST_ERROR ; - } - break ; - case KW_LINE_EQ : - if ( sc.ch == ' ' ) { - sc.SetState(SCE_ABAQUS_DEFAULT) ; - // remain in this state - state = KW_LINE_EQ ; - } else if ( IsADigit(sc.ch) || (sc.ch == '-') || (sc.ch == '.' && IsADigit(sc.chNext)) ) { - sc.SetState(SCE_ABAQUS_NUMBER) ; - state = KW_LINE_VAL ; - } else if ( IsAKeywordChar(sc.ch) ) { - sc.SetState(SCE_ABAQUS_DEFAULT) ; - state = KW_LINE_VAL ; - } else if ( (sc.ch == '\'') || (sc.ch == '\"') ) { - sc.SetState(SCE_ABAQUS_STRING) ; - state = KW_LINE_VAL ; - } else { - sc.SetState(SCE_ABAQUS_PROCESSOR) ; - state = ST_ERROR ; - } - break ; - case KW_LINE_VAL : - if ( sc.atLineEnd ) { - sc.SetState(SCE_ABAQUS_DEFAULT) ; - state = LINE_END ; - } else if ( IsASetChar(sc.ch) && (sc.state == SCE_ABAQUS_DEFAULT) ) { - // nothing changes - state = KW_LINE_VAL ; - } else if (( (IsADigit(sc.ch) || sc.ch == '.' || (sc.ch == 'e' || sc.ch == 'E') || - ((sc.ch == '+' || sc.ch == '-') && (sc.chPrev == 'e' || sc.chPrev == 'E')))) && - (sc.state == SCE_ABAQUS_NUMBER)) { - // remain in number mode - state = KW_LINE_VAL ; - } else if (sc.state == SCE_ABAQUS_STRING) { - // accept everything until a closing quote - if ( sc.ch == '\'' || sc.ch == '\"' ) { - sc.SetState(SCE_ABAQUS_DEFAULT) ; - state = KW_LINE_VAL ; - } - } else if ( sc.ch == ',' ) { - sc.SetState(SCE_ABAQUS_OPERATOR) ; - state = KW_LINE_COMMA ; - } else { - // anything else is an error - sc.SetState(SCE_ABAQUS_PROCESSOR) ; - state = ST_ERROR ; - } - break ; - case DAT_LINE_VAL : - if ( sc.atLineEnd ) { - sc.SetState(SCE_ABAQUS_DEFAULT) ; - state = LINE_END ; - } else if ( IsASetChar(sc.ch) && (sc.state == SCE_ABAQUS_DEFAULT) ) { - // nothing changes - state = DAT_LINE_VAL ; - } else if (( (IsADigit(sc.ch) || sc.ch == '.' || (sc.ch == 'e' || sc.ch == 'E') || - ((sc.ch == '+' || sc.ch == '-') && (sc.chPrev == 'e' || sc.chPrev == 'E')))) && - (sc.state == SCE_ABAQUS_NUMBER)) { - // remain in number mode - state = DAT_LINE_VAL ; - } else if (sc.state == SCE_ABAQUS_STRING) { - // accept everything until a closing quote - if ( sc.ch == '\'' || sc.ch == '\"' ) { - sc.SetState(SCE_ABAQUS_DEFAULT) ; - state = DAT_LINE_VAL ; - } - } else if ( sc.ch == ',' ) { - sc.SetState(SCE_ABAQUS_OPERATOR) ; - state = DAT_LINE_COMMA ; - } else { - // anything else is an error - sc.SetState(SCE_ABAQUS_PROCESSOR) ; - state = ST_ERROR ; - } - break ; - case DAT_LINE_COMMA : - // a comma on a data line was seen - if ( sc.atLineEnd ) { - sc.SetState(SCE_ABAQUS_DEFAULT) ; - state = LINE_END ; - } else if ( sc.ch == ' ' ) { - sc.SetState(SCE_ABAQUS_DEFAULT) ; - state = DAT_LINE_COMMA ; - } else if (sc.ch == ',') { - sc.SetState(SCE_ABAQUS_OPERATOR) ; - state = DAT_LINE_COMMA ; - } else if ( IsADigit(sc.ch) || (sc.ch == '-')|| (sc.ch == '.' && IsADigit(sc.chNext)) ) { - sc.SetState(SCE_ABAQUS_NUMBER) ; - state = DAT_LINE_VAL ; - } else if ( IsAKeywordChar(sc.ch) ) { - sc.SetState(SCE_ABAQUS_DEFAULT) ; - state = DAT_LINE_VAL ; - } else if ( (sc.ch == '\'') || (sc.ch == '\"') ) { - sc.SetState(SCE_ABAQUS_STRING) ; - state = DAT_LINE_VAL ; - } else { - sc.SetState(SCE_ABAQUS_PROCESSOR) ; - state = ST_ERROR ; - } - break ; - case COMMENT_LINE : - if ( sc.atLineEnd ) { - sc.SetState(SCE_ABAQUS_DEFAULT) ; - state = LINE_END ; - } - break ; - case ST_ERROR : - if ( sc.atLineEnd ) { - sc.SetState(SCE_ABAQUS_DEFAULT) ; - state = LINE_END ; - } - break ; - case LINE_END : - if ( sc.atLineEnd || sc.ch == ' ' ) { - // nothing changes - state = LINE_END ; - } else if ( sc.ch == '*' ) { - if ( sc.chNext == '*' ) { - state = COMMENT_LINE ; - sc.SetState(SCE_ABAQUS_COMMENT) ; - } else { - state = KW_LINE_KW ; - sc.SetState(SCE_ABAQUS_STARCOMMAND) ; - } - } else { - // it must be a data line, things are as if we are in DAT_LINE_COMMA - if ( sc.ch == ',' ) { - sc.SetState(SCE_ABAQUS_OPERATOR) ; - state = DAT_LINE_COMMA ; - } else if ( IsADigit(sc.ch) || (sc.ch == '-')|| (sc.ch == '.' && IsADigit(sc.chNext)) ) { - sc.SetState(SCE_ABAQUS_NUMBER) ; - state = DAT_LINE_VAL ; - } else if ( IsAKeywordChar(sc.ch) ) { - sc.SetState(SCE_ABAQUS_DEFAULT) ; - state = DAT_LINE_VAL ; - } else if ( (sc.ch == '\'') || (sc.ch == '\"') ) { - sc.SetState(SCE_ABAQUS_STRING) ; - state = DAT_LINE_VAL ; - } else { - sc.SetState(SCE_ABAQUS_PROCESSOR) ; - state = ST_ERROR ; - } - } - break ; - } - } - sc.Complete(); -} - -//------------------------------------------------------------------------------ -// This copyied and modified from LexBasic.cxx -//------------------------------------------------------------------------------ - -/* Bits: - * 1 - whitespace - * 2 - operator - * 4 - identifier - * 8 - decimal digit - * 16 - hex digit - * 32 - bin digit - */ -static int character_classification[128] = -{ - 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 1, 2, 0, 2, 2, 2, 2, 2, 2, 2, 6, 2, 2, 2, 10, 6, - 60, 60, 28, 28, 28, 28, 28, 28, 28, 28, 2, 2, 2, 2, 2, 2, - 2, 20, 20, 20, 20, 20, 20, 4, 4, 4, 4, 4, 4, 4, 4, 4, - 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 2, 2, 2, 2, 4, - 2, 20, 20, 20, 20, 20, 20, 4, 4, 4, 4, 4, 4, 4, 4, 4, - 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 2, 2, 2, 2, 0 -}; - -static bool IsSpace(int c) { - return c < 128 && (character_classification[c] & 1); -} - -static bool IsIdentifier(int c) { - return c < 128 && (character_classification[c] & 4); -} - -static int LowerCase(int c) -{ - if (c >= 'A' && c <= 'Z') - return 'a' + c - 'A'; - return c; -} - -static Sci_Position LineEnd(Sci_Position line, Accessor &styler) -{ - const Sci_Position docLines = styler.GetLine(styler.Length() - 1); // Available last line - Sci_Position eol_pos ; - // if the line is the last line, the eol_pos is styler.Length() - // eol will contain a new line, or a virtual new line - if ( docLines == line ) - eol_pos = styler.Length() ; - else - eol_pos = styler.LineStart(line + 1) - 1; - return eol_pos ; -} - -static Sci_Position LineStart(Sci_Position line, Accessor &styler) -{ - return styler.LineStart(line) ; -} - -// LineType -// -// bits determines the line type -// 1 : data line -// 2 : only whitespace -// 3 : data line with only whitespace -// 4 : keyword line -// 5 : block open keyword line -// 6 : block close keyword line -// 7 : keyword line in error -// 8 : comment line -static int LineType(Sci_Position line, Accessor &styler) { - Sci_Position pos = LineStart(line, styler) ; - Sci_Position eol_pos = LineEnd(line, styler) ; - - int c ; - char ch = ' '; - - Sci_Position i = pos ; - while ( i < eol_pos ) { - c = styler.SafeGetCharAt(i); - ch = static_cast(LowerCase(c)); - // We can say something as soon as no whitespace - // was encountered - if ( !IsSpace(c) ) - break ; - i++ ; - } - - if ( i >= eol_pos ) { - // This is a whitespace line, currently - // classifies as data line - return 3 ; - } - - if ( ch != '*' ) { - // This is a data line - return 1 ; - } - - if ( i == eol_pos - 1 ) { - // Only a single *, error but make keyword line - return 4+3 ; - } - - // This means we can have a second character - // if that is also a * this means a comment - // otherwise it is a keyword. - c = styler.SafeGetCharAt(i+1); - ch = static_cast(LowerCase(c)); - if ( ch == '*' ) { - return 8 ; - } - - // At this point we know this is a keyword line - // the character at position i is a * - // it is not a comment line - char word[256] ; - int wlen = 0; - - word[wlen] = '*' ; - wlen++ ; - - i++ ; - while ( (i < eol_pos) && (wlen < 255) ) { - c = styler.SafeGetCharAt(i); - ch = static_cast(LowerCase(c)); - - if ( (!IsSpace(c)) && (!IsIdentifier(c)) ) - break ; - - if ( IsIdentifier(c) ) { - word[wlen] = ch ; - wlen++ ; - } - - i++ ; - } - - word[wlen] = 0 ; - - // Make a comparison - if ( !strcmp(word, "*step") || - !strcmp(word, "*part") || - !strcmp(word, "*instance") || - !strcmp(word, "*assembly")) { - return 4+1 ; - } - - if ( !strcmp(word, "*endstep") || - !strcmp(word, "*endpart") || - !strcmp(word, "*endinstance") || - !strcmp(word, "*endassembly")) { - return 4+2 ; - } - - return 4 ; -} - -static void SafeSetLevel(Sci_Position line, int level, Accessor &styler) -{ - if ( line < 0 ) - return ; - - int mask = ((~SC_FOLDLEVELHEADERFLAG) | (~SC_FOLDLEVELWHITEFLAG)); - - if ( (level & mask) < 0 ) - return ; - - if ( styler.LevelAt(line) != level ) - styler.SetLevel(line, level) ; -} - -static void FoldABAQUSDoc(Sci_PositionU startPos, Sci_Position length, int, -WordList *[], Accessor &styler) { - Sci_Position startLine = styler.GetLine(startPos) ; - Sci_Position endLine = styler.GetLine(startPos+length-1) ; - - // bool foldCompact = styler.GetPropertyInt("fold.compact", 1) != 0; - // We want to deal with all the cases - // To know the correct indentlevel, we need to look back to the - // previous command line indentation level - // order of formatting keyline datalines commentlines - Sci_Position beginData = -1 ; - Sci_Position beginComment = -1 ; - Sci_Position prvKeyLine = startLine ; - Sci_Position prvKeyLineTp = 0 ; - - // Scan until we find the previous keyword line - // this will give us the level reference that we need - while ( prvKeyLine > 0 ) { - prvKeyLine-- ; - prvKeyLineTp = LineType(prvKeyLine, styler) ; - if ( prvKeyLineTp & 4 ) - break ; - } - - // Determine the base line level of all lines following - // the previous keyword - // new keyword lines are placed on this level - //if ( prvKeyLineTp & 4 ) { - int level = styler.LevelAt(prvKeyLine) & ~SC_FOLDLEVELHEADERFLAG ; - //} - - // uncomment line below if weird behaviour continues - prvKeyLine = -1 ; - - // Now start scanning over the lines. - for ( Sci_Position line = startLine; line <= endLine; line++ ) { - int lineType = LineType(line, styler) ; - - // Check for comment line - if ( lineType == 8 ) { - if ( beginComment < 0 ) { - beginComment = line ; - } - } - - // Check for data line - if ( (lineType == 1) || (lineType == 3) ) { - if ( beginData < 0 ) { - if ( beginComment >= 0 ) { - beginData = beginComment ; - } else { - beginData = line ; - } - } - beginComment = -1 ; - } - - // Check for keywordline. - // As soon as a keyword line is encountered, we can set the - // levels of everything from the previous keyword line to this one - if ( lineType & 4 ) { - // this is a keyword, we can now place the previous keyword - // all its data lines and the remainder - - // Write comments and data line - if ( beginComment < 0 ) { - beginComment = line ; - } - - if ( beginData < 0 ) { - beginData = beginComment ; - if ( prvKeyLineTp != 5 ) - SafeSetLevel(prvKeyLine, level, styler) ; - else - SafeSetLevel(prvKeyLine, level | SC_FOLDLEVELHEADERFLAG, styler) ; - } else { - SafeSetLevel(prvKeyLine, level | SC_FOLDLEVELHEADERFLAG, styler) ; - } - - int datLevel = level + 1 ; - if ( !(prvKeyLineTp & 4) ) { - datLevel = level ; - } - - for ( Sci_Position ll = beginData; ll < beginComment; ll++ ) - SafeSetLevel(ll, datLevel, styler) ; - - // The keyword we just found is going to be written at another level - // if we have a type 5 and type 6 - if ( prvKeyLineTp == 5 ) { - level += 1 ; - } - - if ( prvKeyLineTp == 6 ) { - level -= 1 ; - if ( level < 0 ) { - level = 0 ; - } - } - - for ( Sci_Position lll = beginComment; lll < line; lll++ ) - SafeSetLevel(lll, level, styler) ; - - // wrap and reset - beginComment = -1 ; - beginData = -1 ; - prvKeyLine = line ; - prvKeyLineTp = lineType ; - } - - } - - if ( beginComment < 0 ) { - beginComment = endLine + 1 ; - } else { - // We need to find out whether this comment block is followed by - // a data line or a keyword line - const Sci_Position docLines = styler.GetLine(styler.Length() - 1); - - for ( Sci_Position line = endLine + 1; line <= docLines; line++ ) { - Sci_Position lineType = LineType(line, styler) ; - - if ( lineType != 8 ) { - if ( !(lineType & 4) ) { - beginComment = endLine + 1 ; - } - break ; - } - } - } - - if ( beginData < 0 ) { - beginData = beginComment ; - if ( prvKeyLineTp != 5 ) - SafeSetLevel(prvKeyLine, level, styler) ; - else - SafeSetLevel(prvKeyLine, level | SC_FOLDLEVELHEADERFLAG, styler) ; - } else { - SafeSetLevel(prvKeyLine, level | SC_FOLDLEVELHEADERFLAG, styler) ; - } - - int datLevel = level + 1 ; - if ( !(prvKeyLineTp & 4) ) { - datLevel = level ; - } - - for ( Sci_Position ll = beginData; ll < beginComment; ll++ ) - SafeSetLevel(ll, datLevel, styler) ; - - if ( prvKeyLineTp == 5 ) { - level += 1 ; - } - - if ( prvKeyLineTp == 6 ) { - level -= 1 ; - } - for ( Sci_Position m = beginComment; m <= endLine; m++ ) - SafeSetLevel(m, level, styler) ; -} - -static const char * const abaqusWordListDesc[] = { - "processors", - "commands", - "slashommands", - "starcommands", - "arguments", - "functions", - 0 -}; - -LexerModule lmAbaqus(SCLEX_ABAQUS, ColouriseABAQUSDoc, "abaqus", FoldABAQUSDoc, abaqusWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexAda.cpp b/libs/qscintilla/scintilla/lexers/LexAda.cpp deleted file mode 100644 index 9d7f5d0f..00000000 --- a/libs/qscintilla/scintilla/lexers/LexAda.cpp +++ /dev/null @@ -1,513 +0,0 @@ -// Scintilla source code edit control -/** @file LexAda.cxx - ** Lexer for Ada 95 - **/ -// Copyright 2002 by Sergey Koshcheyev -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -/* - * Interface - */ - -static void ColouriseDocument( - Sci_PositionU startPos, - Sci_Position length, - int initStyle, - WordList *keywordlists[], - Accessor &styler); - -static const char * const adaWordListDesc[] = { - "Keywords", - 0 -}; - -LexerModule lmAda(SCLEX_ADA, ColouriseDocument, "ada", NULL, adaWordListDesc); - -/* - * Implementation - */ - -// Functions that have apostropheStartsAttribute as a parameter set it according to whether -// an apostrophe encountered after processing the current token will start an attribute or -// a character literal. -static void ColouriseCharacter(StyleContext& sc, bool& apostropheStartsAttribute); -static void ColouriseComment(StyleContext& sc, bool& apostropheStartsAttribute); -static void ColouriseContext(StyleContext& sc, char chEnd, int stateEOL); -static void ColouriseDelimiter(StyleContext& sc, bool& apostropheStartsAttribute); -static void ColouriseLabel(StyleContext& sc, WordList& keywords, bool& apostropheStartsAttribute); -static void ColouriseNumber(StyleContext& sc, bool& apostropheStartsAttribute); -static void ColouriseString(StyleContext& sc, bool& apostropheStartsAttribute); -static void ColouriseWhiteSpace(StyleContext& sc, bool& apostropheStartsAttribute); -static void ColouriseWord(StyleContext& sc, WordList& keywords, bool& apostropheStartsAttribute); - -static inline bool IsDelimiterCharacter(int ch); -static inline bool IsSeparatorOrDelimiterCharacter(int ch); -static bool IsValidIdentifier(const std::string& identifier); -static bool IsValidNumber(const std::string& number); -static inline bool IsWordStartCharacter(int ch); -static inline bool IsWordCharacter(int ch); - -static void ColouriseCharacter(StyleContext& sc, bool& apostropheStartsAttribute) { - apostropheStartsAttribute = true; - - sc.SetState(SCE_ADA_CHARACTER); - - // Skip the apostrophe and one more character (so that '' is shown as non-terminated and ''' - // is handled correctly) - sc.Forward(); - sc.Forward(); - - ColouriseContext(sc, '\'', SCE_ADA_CHARACTEREOL); -} - -static void ColouriseContext(StyleContext& sc, char chEnd, int stateEOL) { - while (!sc.atLineEnd && !sc.Match(chEnd)) { - sc.Forward(); - } - - if (!sc.atLineEnd) { - sc.ForwardSetState(SCE_ADA_DEFAULT); - } else { - sc.ChangeState(stateEOL); - } -} - -static void ColouriseComment(StyleContext& sc, bool& /*apostropheStartsAttribute*/) { - // Apostrophe meaning is not changed, but the parameter is present for uniformity - - sc.SetState(SCE_ADA_COMMENTLINE); - - while (!sc.atLineEnd) { - sc.Forward(); - } -} - -static void ColouriseDelimiter(StyleContext& sc, bool& apostropheStartsAttribute) { - apostropheStartsAttribute = sc.Match (')'); - sc.SetState(SCE_ADA_DELIMITER); - sc.ForwardSetState(SCE_ADA_DEFAULT); -} - -static void ColouriseLabel(StyleContext& sc, WordList& keywords, bool& apostropheStartsAttribute) { - apostropheStartsAttribute = false; - - sc.SetState(SCE_ADA_LABEL); - - // Skip "<<" - sc.Forward(); - sc.Forward(); - - std::string identifier; - - while (!sc.atLineEnd && !IsSeparatorOrDelimiterCharacter(sc.ch)) { - identifier += static_cast(tolower(sc.ch)); - sc.Forward(); - } - - // Skip ">>" - if (sc.Match('>', '>')) { - sc.Forward(); - sc.Forward(); - } else { - sc.ChangeState(SCE_ADA_ILLEGAL); - } - - // If the name is an invalid identifier or a keyword, then make it invalid label - if (!IsValidIdentifier(identifier) || keywords.InList(identifier.c_str())) { - sc.ChangeState(SCE_ADA_ILLEGAL); - } - - sc.SetState(SCE_ADA_DEFAULT); - -} - -static void ColouriseNumber(StyleContext& sc, bool& apostropheStartsAttribute) { - apostropheStartsAttribute = true; - - std::string number; - sc.SetState(SCE_ADA_NUMBER); - - // Get all characters up to a delimiter or a separator, including points, but excluding - // double points (ranges). - while (!IsSeparatorOrDelimiterCharacter(sc.ch) || (sc.ch == '.' && sc.chNext != '.')) { - number += static_cast(sc.ch); - sc.Forward(); - } - - // Special case: exponent with sign - if ((sc.chPrev == 'e' || sc.chPrev == 'E') && - (sc.ch == '+' || sc.ch == '-')) { - number += static_cast(sc.ch); - sc.Forward (); - - while (!IsSeparatorOrDelimiterCharacter(sc.ch)) { - number += static_cast(sc.ch); - sc.Forward(); - } - } - - if (!IsValidNumber(number)) { - sc.ChangeState(SCE_ADA_ILLEGAL); - } - - sc.SetState(SCE_ADA_DEFAULT); -} - -static void ColouriseString(StyleContext& sc, bool& apostropheStartsAttribute) { - apostropheStartsAttribute = true; - - sc.SetState(SCE_ADA_STRING); - sc.Forward(); - - ColouriseContext(sc, '"', SCE_ADA_STRINGEOL); -} - -static void ColouriseWhiteSpace(StyleContext& sc, bool& /*apostropheStartsAttribute*/) { - // Apostrophe meaning is not changed, but the parameter is present for uniformity - sc.SetState(SCE_ADA_DEFAULT); - sc.ForwardSetState(SCE_ADA_DEFAULT); -} - -static void ColouriseWord(StyleContext& sc, WordList& keywords, bool& apostropheStartsAttribute) { - apostropheStartsAttribute = true; - sc.SetState(SCE_ADA_IDENTIFIER); - - std::string word; - - while (!sc.atLineEnd && !IsSeparatorOrDelimiterCharacter(sc.ch)) { - word += static_cast(tolower(sc.ch)); - sc.Forward(); - } - - if (!IsValidIdentifier(word)) { - sc.ChangeState(SCE_ADA_ILLEGAL); - - } else if (keywords.InList(word.c_str())) { - sc.ChangeState(SCE_ADA_WORD); - - if (word != "all") { - apostropheStartsAttribute = false; - } - } - - sc.SetState(SCE_ADA_DEFAULT); -} - -// -// ColouriseDocument -// - -static void ColouriseDocument( - Sci_PositionU startPos, - Sci_Position length, - int initStyle, - WordList *keywordlists[], - Accessor &styler) { - WordList &keywords = *keywordlists[0]; - - StyleContext sc(startPos, length, initStyle, styler); - - Sci_Position lineCurrent = styler.GetLine(startPos); - bool apostropheStartsAttribute = (styler.GetLineState(lineCurrent) & 1) != 0; - - while (sc.More()) { - if (sc.atLineEnd) { - // Go to the next line - sc.Forward(); - lineCurrent++; - - // Remember the line state for future incremental lexing - styler.SetLineState(lineCurrent, apostropheStartsAttribute); - - // Don't continue any styles on the next line - sc.SetState(SCE_ADA_DEFAULT); - } - - // Comments - if (sc.Match('-', '-')) { - ColouriseComment(sc, apostropheStartsAttribute); - - // Strings - } else if (sc.Match('"')) { - ColouriseString(sc, apostropheStartsAttribute); - - // Characters - } else if (sc.Match('\'') && !apostropheStartsAttribute) { - ColouriseCharacter(sc, apostropheStartsAttribute); - - // Labels - } else if (sc.Match('<', '<')) { - ColouriseLabel(sc, keywords, apostropheStartsAttribute); - - // Whitespace - } else if (IsASpace(sc.ch)) { - ColouriseWhiteSpace(sc, apostropheStartsAttribute); - - // Delimiters - } else if (IsDelimiterCharacter(sc.ch)) { - ColouriseDelimiter(sc, apostropheStartsAttribute); - - // Numbers - } else if (IsADigit(sc.ch) || sc.ch == '#') { - ColouriseNumber(sc, apostropheStartsAttribute); - - // Keywords or identifiers - } else { - ColouriseWord(sc, keywords, apostropheStartsAttribute); - } - } - - sc.Complete(); -} - -static inline bool IsDelimiterCharacter(int ch) { - switch (ch) { - case '&': - case '\'': - case '(': - case ')': - case '*': - case '+': - case ',': - case '-': - case '.': - case '/': - case ':': - case ';': - case '<': - case '=': - case '>': - case '|': - return true; - default: - return false; - } -} - -static inline bool IsSeparatorOrDelimiterCharacter(int ch) { - return IsASpace(ch) || IsDelimiterCharacter(ch); -} - -static bool IsValidIdentifier(const std::string& identifier) { - // First character can't be '_', so initialize the flag to true - bool lastWasUnderscore = true; - - size_t length = identifier.length(); - - // Zero-length identifiers are not valid (these can occur inside labels) - if (length == 0) { - return false; - } - - // Check for valid character at the start - if (!IsWordStartCharacter(identifier[0])) { - return false; - } - - // Check for only valid characters and no double underscores - for (size_t i = 0; i < length; i++) { - if (!IsWordCharacter(identifier[i]) || - (identifier[i] == '_' && lastWasUnderscore)) { - return false; - } - lastWasUnderscore = identifier[i] == '_'; - } - - // Check for underscore at the end - if (lastWasUnderscore == true) { - return false; - } - - // All checks passed - return true; -} - -static bool IsValidNumber(const std::string& number) { - size_t hashPos = number.find("#"); - bool seenDot = false; - - size_t i = 0; - size_t length = number.length(); - - if (length == 0) - return false; // Just in case - - // Decimal number - if (hashPos == std::string::npos) { - bool canBeSpecial = false; - - for (; i < length; i++) { - if (number[i] == '_') { - if (!canBeSpecial) { - return false; - } - canBeSpecial = false; - } else if (number[i] == '.') { - if (!canBeSpecial || seenDot) { - return false; - } - canBeSpecial = false; - seenDot = true; - } else if (IsADigit(number[i])) { - canBeSpecial = true; - } else { - break; - } - } - - if (!canBeSpecial) - return false; - } else { - // Based number - bool canBeSpecial = false; - int base = 0; - - // Parse base - for (; i < length; i++) { - int ch = number[i]; - if (ch == '_') { - if (!canBeSpecial) - return false; - canBeSpecial = false; - } else if (IsADigit(ch)) { - base = base * 10 + (ch - '0'); - if (base > 16) - return false; - canBeSpecial = true; - } else if (ch == '#' && canBeSpecial) { - break; - } else { - return false; - } - } - - if (base < 2) - return false; - if (i == length) - return false; - - i++; // Skip over '#' - - // Parse number - canBeSpecial = false; - - for (; i < length; i++) { - int ch = tolower(number[i]); - - if (ch == '_') { - if (!canBeSpecial) { - return false; - } - canBeSpecial = false; - - } else if (ch == '.') { - if (!canBeSpecial || seenDot) { - return false; - } - canBeSpecial = false; - seenDot = true; - - } else if (IsADigit(ch)) { - if (ch - '0' >= base) { - return false; - } - canBeSpecial = true; - - } else if (ch >= 'a' && ch <= 'f') { - if (ch - 'a' + 10 >= base) { - return false; - } - canBeSpecial = true; - - } else if (ch == '#' && canBeSpecial) { - break; - - } else { - return false; - } - } - - if (i == length) { - return false; - } - - i++; - } - - // Exponent (optional) - if (i < length) { - if (number[i] != 'e' && number[i] != 'E') - return false; - - i++; // Move past 'E' - - if (i == length) { - return false; - } - - if (number[i] == '+') - i++; - else if (number[i] == '-') { - if (seenDot) { - i++; - } else { - return false; // Integer literals should not have negative exponents - } - } - - if (i == length) { - return false; - } - - bool canBeSpecial = false; - - for (; i < length; i++) { - if (number[i] == '_') { - if (!canBeSpecial) { - return false; - } - canBeSpecial = false; - } else if (IsADigit(number[i])) { - canBeSpecial = true; - } else { - return false; - } - } - - if (!canBeSpecial) - return false; - } - - // if i == length, number was parsed successfully. - return i == length; -} - -static inline bool IsWordCharacter(int ch) { - return IsWordStartCharacter(ch) || IsADigit(ch); -} - -static inline bool IsWordStartCharacter(int ch) { - return (IsASCII(ch) && isalpha(ch)) || ch == '_'; -} diff --git a/libs/qscintilla/scintilla/lexers/LexAsm.cpp b/libs/qscintilla/scintilla/lexers/LexAsm.cpp deleted file mode 100644 index bd82b162..00000000 --- a/libs/qscintilla/scintilla/lexers/LexAsm.cpp +++ /dev/null @@ -1,466 +0,0 @@ -// Scintilla source code edit control -/** @file LexAsm.cxx - ** Lexer for Assembler, just for the MASM syntax - ** Written by The Black Horus - ** Enhancements and NASM stuff by Kein-Hong Man, 2003-10 - ** SCE_ASM_COMMENTBLOCK and SCE_ASM_CHARACTER are for future GNU as colouring - ** Converted to lexer object and added further folding features/properties by "Udo Lechner" - **/ -// Copyright 1998-2003 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" -#include "OptionSet.h" -#include "DefaultLexer.h" - -using namespace Scintilla; - -static inline bool IsAWordChar(const int ch) { - return (ch < 0x80) && (isalnum(ch) || ch == '.' || - ch == '_' || ch == '?'); -} - -static inline bool IsAWordStart(const int ch) { - return (ch < 0x80) && (isalnum(ch) || ch == '_' || ch == '.' || - ch == '%' || ch == '@' || ch == '$' || ch == '?'); -} - -static inline bool IsAsmOperator(const int ch) { - if ((ch < 0x80) && (isalnum(ch))) - return false; - // '.' left out as it is used to make up numbers - if (ch == '*' || ch == '/' || ch == '-' || ch == '+' || - ch == '(' || ch == ')' || ch == '=' || ch == '^' || - ch == '[' || ch == ']' || ch == '<' || ch == '&' || - ch == '>' || ch == ',' || ch == '|' || ch == '~' || - ch == '%' || ch == ':') - return true; - return false; -} - -static bool IsStreamCommentStyle(int style) { - return style == SCE_ASM_COMMENTDIRECTIVE || style == SCE_ASM_COMMENTBLOCK; -} - -static inline int LowerCase(int c) { - if (c >= 'A' && c <= 'Z') - return 'a' + c - 'A'; - return c; -} - -// An individual named option for use in an OptionSet - -// Options used for LexerAsm -struct OptionsAsm { - std::string delimiter; - bool fold; - bool foldSyntaxBased; - bool foldCommentMultiline; - bool foldCommentExplicit; - std::string foldExplicitStart; - std::string foldExplicitEnd; - bool foldExplicitAnywhere; - bool foldCompact; - OptionsAsm() { - delimiter = ""; - fold = false; - foldSyntaxBased = true; - foldCommentMultiline = false; - foldCommentExplicit = false; - foldExplicitStart = ""; - foldExplicitEnd = ""; - foldExplicitAnywhere = false; - foldCompact = true; - } -}; - -static const char * const asmWordListDesc[] = { - "CPU instructions", - "FPU instructions", - "Registers", - "Directives", - "Directive operands", - "Extended instructions", - "Directives4Foldstart", - "Directives4Foldend", - 0 -}; - -struct OptionSetAsm : public OptionSet { - OptionSetAsm() { - DefineProperty("lexer.asm.comment.delimiter", &OptionsAsm::delimiter, - "Character used for COMMENT directive's delimiter, replacing the standard \"~\"."); - - DefineProperty("fold", &OptionsAsm::fold); - - DefineProperty("fold.asm.syntax.based", &OptionsAsm::foldSyntaxBased, - "Set this property to 0 to disable syntax based folding."); - - DefineProperty("fold.asm.comment.multiline", &OptionsAsm::foldCommentMultiline, - "Set this property to 1 to enable folding multi-line comments."); - - DefineProperty("fold.asm.comment.explicit", &OptionsAsm::foldCommentExplicit, - "This option enables folding explicit fold points when using the Asm lexer. " - "Explicit fold points allows adding extra folding by placing a ;{ comment at the start and a ;} " - "at the end of a section that should fold."); - - DefineProperty("fold.asm.explicit.start", &OptionsAsm::foldExplicitStart, - "The string to use for explicit fold start points, replacing the standard ;{."); - - DefineProperty("fold.asm.explicit.end", &OptionsAsm::foldExplicitEnd, - "The string to use for explicit fold end points, replacing the standard ;}."); - - DefineProperty("fold.asm.explicit.anywhere", &OptionsAsm::foldExplicitAnywhere, - "Set this property to 1 to enable explicit fold points anywhere, not just in line comments."); - - DefineProperty("fold.compact", &OptionsAsm::foldCompact); - - DefineWordListSets(asmWordListDesc); - } -}; - -class LexerAsm : public DefaultLexer { - WordList cpuInstruction; - WordList mathInstruction; - WordList registers; - WordList directive; - WordList directiveOperand; - WordList extInstruction; - WordList directives4foldstart; - WordList directives4foldend; - OptionsAsm options; - OptionSetAsm osAsm; - int commentChar; -public: - LexerAsm(int commentChar_) { - commentChar = commentChar_; - } - virtual ~LexerAsm() { - } - void SCI_METHOD Release() override { - delete this; - } - int SCI_METHOD Version() const override { - return lvOriginal; - } - const char * SCI_METHOD PropertyNames() override { - return osAsm.PropertyNames(); - } - int SCI_METHOD PropertyType(const char *name) override { - return osAsm.PropertyType(name); - } - const char * SCI_METHOD DescribeProperty(const char *name) override { - return osAsm.DescribeProperty(name); - } - Sci_Position SCI_METHOD PropertySet(const char *key, const char *val) override; - const char * SCI_METHOD DescribeWordListSets() override { - return osAsm.DescribeWordListSets(); - } - Sci_Position SCI_METHOD WordListSet(int n, const char *wl) override; - void SCI_METHOD Lex(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) override; - void SCI_METHOD Fold(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) override; - - void * SCI_METHOD PrivateCall(int, void *) override { - return 0; - } - - static ILexer *LexerFactoryAsm() { - return new LexerAsm(';'); - } - - static ILexer *LexerFactoryAs() { - return new LexerAsm('#'); - } -}; - -Sci_Position SCI_METHOD LexerAsm::PropertySet(const char *key, const char *val) { - if (osAsm.PropertySet(&options, key, val)) { - return 0; - } - return -1; -} - -Sci_Position SCI_METHOD LexerAsm::WordListSet(int n, const char *wl) { - WordList *wordListN = 0; - switch (n) { - case 0: - wordListN = &cpuInstruction; - break; - case 1: - wordListN = &mathInstruction; - break; - case 2: - wordListN = ®isters; - break; - case 3: - wordListN = &directive; - break; - case 4: - wordListN = &directiveOperand; - break; - case 5: - wordListN = &extInstruction; - break; - case 6: - wordListN = &directives4foldstart; - break; - case 7: - wordListN = &directives4foldend; - break; - } - Sci_Position firstModification = -1; - if (wordListN) { - WordList wlNew; - wlNew.Set(wl); - if (*wordListN != wlNew) { - wordListN->Set(wl); - firstModification = 0; - } - } - return firstModification; -} - -void SCI_METHOD LexerAsm::Lex(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) { - LexAccessor styler(pAccess); - - // Do not leak onto next line - if (initStyle == SCE_ASM_STRINGEOL) - initStyle = SCE_ASM_DEFAULT; - - StyleContext sc(startPos, length, initStyle, styler); - - for (; sc.More(); sc.Forward()) - { - - // Prevent SCE_ASM_STRINGEOL from leaking back to previous line - if (sc.atLineStart && (sc.state == SCE_ASM_STRING)) { - sc.SetState(SCE_ASM_STRING); - } else if (sc.atLineStart && (sc.state == SCE_ASM_CHARACTER)) { - sc.SetState(SCE_ASM_CHARACTER); - } - - // Handle line continuation generically. - if (sc.ch == '\\') { - if (sc.chNext == '\n' || sc.chNext == '\r') { - sc.Forward(); - if (sc.ch == '\r' && sc.chNext == '\n') { - sc.Forward(); - } - continue; - } - } - - // Determine if the current state should terminate. - if (sc.state == SCE_ASM_OPERATOR) { - if (!IsAsmOperator(sc.ch)) { - sc.SetState(SCE_ASM_DEFAULT); - } - } else if (sc.state == SCE_ASM_NUMBER) { - if (!IsAWordChar(sc.ch)) { - sc.SetState(SCE_ASM_DEFAULT); - } - } else if (sc.state == SCE_ASM_IDENTIFIER) { - if (!IsAWordChar(sc.ch) ) { - char s[100]; - sc.GetCurrentLowered(s, sizeof(s)); - bool IsDirective = false; - - if (cpuInstruction.InList(s)) { - sc.ChangeState(SCE_ASM_CPUINSTRUCTION); - } else if (mathInstruction.InList(s)) { - sc.ChangeState(SCE_ASM_MATHINSTRUCTION); - } else if (registers.InList(s)) { - sc.ChangeState(SCE_ASM_REGISTER); - } else if (directive.InList(s)) { - sc.ChangeState(SCE_ASM_DIRECTIVE); - IsDirective = true; - } else if (directiveOperand.InList(s)) { - sc.ChangeState(SCE_ASM_DIRECTIVEOPERAND); - } else if (extInstruction.InList(s)) { - sc.ChangeState(SCE_ASM_EXTINSTRUCTION); - } - sc.SetState(SCE_ASM_DEFAULT); - if (IsDirective && !strcmp(s, "comment")) { - char delimiter = options.delimiter.empty() ? '~' : options.delimiter.c_str()[0]; - while (IsASpaceOrTab(sc.ch) && !sc.atLineEnd) { - sc.ForwardSetState(SCE_ASM_DEFAULT); - } - if (sc.ch == delimiter) { - sc.SetState(SCE_ASM_COMMENTDIRECTIVE); - } - } - } - } else if (sc.state == SCE_ASM_COMMENTDIRECTIVE) { - char delimiter = options.delimiter.empty() ? '~' : options.delimiter.c_str()[0]; - if (sc.ch == delimiter) { - while (!sc.atLineEnd) { - sc.Forward(); - } - sc.SetState(SCE_ASM_DEFAULT); - } - } else if (sc.state == SCE_ASM_COMMENT ) { - if (sc.atLineEnd) { - sc.SetState(SCE_ASM_DEFAULT); - } - } else if (sc.state == SCE_ASM_STRING) { - if (sc.ch == '\\') { - if (sc.chNext == '\"' || sc.chNext == '\'' || sc.chNext == '\\') { - sc.Forward(); - } - } else if (sc.ch == '\"') { - sc.ForwardSetState(SCE_ASM_DEFAULT); - } else if (sc.atLineEnd) { - sc.ChangeState(SCE_ASM_STRINGEOL); - sc.ForwardSetState(SCE_ASM_DEFAULT); - } - } else if (sc.state == SCE_ASM_CHARACTER) { - if (sc.ch == '\\') { - if (sc.chNext == '\"' || sc.chNext == '\'' || sc.chNext == '\\') { - sc.Forward(); - } - } else if (sc.ch == '\'') { - sc.ForwardSetState(SCE_ASM_DEFAULT); - } else if (sc.atLineEnd) { - sc.ChangeState(SCE_ASM_STRINGEOL); - sc.ForwardSetState(SCE_ASM_DEFAULT); - } - } - - // Determine if a new state should be entered. - if (sc.state == SCE_ASM_DEFAULT) { - if (sc.ch == commentChar){ - sc.SetState(SCE_ASM_COMMENT); - } else if (IsASCII(sc.ch) && (isdigit(sc.ch) || (sc.ch == '.' && IsASCII(sc.chNext) && isdigit(sc.chNext)))) { - sc.SetState(SCE_ASM_NUMBER); - } else if (IsAWordStart(sc.ch)) { - sc.SetState(SCE_ASM_IDENTIFIER); - } else if (sc.ch == '\"') { - sc.SetState(SCE_ASM_STRING); - } else if (sc.ch == '\'') { - sc.SetState(SCE_ASM_CHARACTER); - } else if (IsAsmOperator(sc.ch)) { - sc.SetState(SCE_ASM_OPERATOR); - } - } - - } - sc.Complete(); -} - -// Store both the current line's fold level and the next lines in the -// level store to make it easy to pick up with each increment -// and to make it possible to fiddle the current level for "else". - -void SCI_METHOD LexerAsm::Fold(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) { - - if (!options.fold) - return; - - LexAccessor styler(pAccess); - - Sci_PositionU endPos = startPos + length; - int visibleChars = 0; - Sci_Position lineCurrent = styler.GetLine(startPos); - int levelCurrent = SC_FOLDLEVELBASE; - if (lineCurrent > 0) - levelCurrent = styler.LevelAt(lineCurrent-1) >> 16; - int levelNext = levelCurrent; - char chNext = styler[startPos]; - int styleNext = styler.StyleAt(startPos); - int style = initStyle; - char word[100]; - int wordlen = 0; - const bool userDefinedFoldMarkers = !options.foldExplicitStart.empty() && !options.foldExplicitEnd.empty(); - for (Sci_PositionU i = startPos; i < endPos; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - int stylePrev = style; - style = styleNext; - styleNext = styler.StyleAt(i + 1); - bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n'); - if (options.foldCommentMultiline && IsStreamCommentStyle(style)) { - if (!IsStreamCommentStyle(stylePrev)) { - levelNext++; - } else if (!IsStreamCommentStyle(styleNext) && !atEOL) { - // Comments don't end at end of line and the next character may be unstyled. - levelNext--; - } - } - if (options.foldCommentExplicit && ((style == SCE_ASM_COMMENT) || options.foldExplicitAnywhere)) { - if (userDefinedFoldMarkers) { - if (styler.Match(i, options.foldExplicitStart.c_str())) { - levelNext++; - } else if (styler.Match(i, options.foldExplicitEnd.c_str())) { - levelNext--; - } - } else { - if (ch == ';') { - if (chNext == '{') { - levelNext++; - } else if (chNext == '}') { - levelNext--; - } - } - } - } - if (options.foldSyntaxBased && (style == SCE_ASM_DIRECTIVE)) { - word[wordlen++] = static_cast(LowerCase(ch)); - if (wordlen == 100) { // prevent overflow - word[0] = '\0'; - wordlen = 1; - } - if (styleNext != SCE_ASM_DIRECTIVE) { // reading directive ready - word[wordlen] = '\0'; - wordlen = 0; - if (directives4foldstart.InList(word)) { - levelNext++; - } else if (directives4foldend.InList(word)){ - levelNext--; - } - } - } - if (!IsASpace(ch)) - visibleChars++; - if (atEOL || (i == endPos-1)) { - int levelUse = levelCurrent; - int lev = levelUse | levelNext << 16; - if (visibleChars == 0 && options.foldCompact) - lev |= SC_FOLDLEVELWHITEFLAG; - if (levelUse < levelNext) - lev |= SC_FOLDLEVELHEADERFLAG; - if (lev != styler.LevelAt(lineCurrent)) { - styler.SetLevel(lineCurrent, lev); - } - lineCurrent++; - levelCurrent = levelNext; - if (atEOL && (i == static_cast(styler.Length() - 1))) { - // There is an empty line at end of file so give it same level and empty - styler.SetLevel(lineCurrent, (levelCurrent | levelCurrent << 16) | SC_FOLDLEVELWHITEFLAG); - } - visibleChars = 0; - } - } -} - -LexerModule lmAsm(SCLEX_ASM, LexerAsm::LexerFactoryAsm, "asm", asmWordListDesc); -LexerModule lmAs(SCLEX_AS, LexerAsm::LexerFactoryAs, "as", asmWordListDesc); - diff --git a/libs/qscintilla/scintilla/lexers/LexAsn1.cpp b/libs/qscintilla/scintilla/lexers/LexAsn1.cpp deleted file mode 100644 index 0ec2a063..00000000 --- a/libs/qscintilla/scintilla/lexers/LexAsn1.cpp +++ /dev/null @@ -1,186 +0,0 @@ -// Scintilla source code edit control -/** @file LexAsn1.cxx - ** Lexer for ASN.1 - **/ -// Copyright 2004 by Herr Pfarrer rpfarrer yahoo de -// Last Updated: 20/07/2004 -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -// Some char test functions -static bool isAsn1Number(int ch) -{ - return (ch >= '0' && ch <= '9'); -} - -static bool isAsn1Letter(int ch) -{ - return (ch >= 'A' && ch <= 'Z') || (ch >= 'a' && ch <= 'z'); -} - -static bool isAsn1Char(int ch) -{ - return (ch == '-' ) || isAsn1Number(ch) || isAsn1Letter (ch); -} - -// -// Function determining the color of a given code portion -// Based on a "state" -// -static void ColouriseAsn1Doc(Sci_PositionU startPos, Sci_Position length, int initStyle, WordList *keywordLists[], Accessor &styler) -{ - // The keywords - WordList &Keywords = *keywordLists[0]; - WordList &Attributes = *keywordLists[1]; - WordList &Descriptors = *keywordLists[2]; - WordList &Types = *keywordLists[3]; - - // Parse the whole buffer character by character using StyleContext - StyleContext sc(startPos, length, initStyle, styler); - for (; sc.More(); sc.Forward()) - { - // The state engine - switch (sc.state) - { - case SCE_ASN1_DEFAULT: // Plain characters -asn1_default: - if (sc.ch == '-' && sc.chNext == '-') - // A comment begins here - sc.SetState(SCE_ASN1_COMMENT); - else if (sc.ch == '"') - // A string begins here - sc.SetState(SCE_ASN1_STRING); - else if (isAsn1Number (sc.ch)) - // A number starts here (identifier should start with a letter in ASN.1) - sc.SetState(SCE_ASN1_SCALAR); - else if (isAsn1Char (sc.ch)) - // An identifier starts here (identifier always start with a letter) - sc.SetState(SCE_ASN1_IDENTIFIER); - else if (sc.ch == ':') - // A ::= operator starts here - sc.SetState(SCE_ASN1_OPERATOR); - break; - case SCE_ASN1_COMMENT: // A comment - if (sc.ch == '\r' || sc.ch == '\n') - // A comment ends here - sc.SetState(SCE_ASN1_DEFAULT); - break; - case SCE_ASN1_IDENTIFIER: // An identifier (keyword, attribute, descriptor or type) - if (!isAsn1Char (sc.ch)) - { - // The end of identifier is here: we can look for it in lists by now and change its state - char s[100]; - sc.GetCurrent(s, sizeof(s)); - if (Keywords.InList(s)) - // It's a keyword, change its state - sc.ChangeState(SCE_ASN1_KEYWORD); - else if (Attributes.InList(s)) - // It's an attribute, change its state - sc.ChangeState(SCE_ASN1_ATTRIBUTE); - else if (Descriptors.InList(s)) - // It's a descriptor, change its state - sc.ChangeState(SCE_ASN1_DESCRIPTOR); - else if (Types.InList(s)) - // It's a type, change its state - sc.ChangeState(SCE_ASN1_TYPE); - - // Set to default now - sc.SetState(SCE_ASN1_DEFAULT); - } - break; - case SCE_ASN1_STRING: // A string delimited by "" - if (sc.ch == '"') - { - // A string ends here - sc.ForwardSetState(SCE_ASN1_DEFAULT); - - // To correctly manage a char sticking to the string quote - goto asn1_default; - } - break; - case SCE_ASN1_SCALAR: // A plain number - if (!isAsn1Number (sc.ch)) - // A number ends here - sc.SetState(SCE_ASN1_DEFAULT); - break; - case SCE_ASN1_OPERATOR: // The affectation operator ::= and wath follows (eg: ::= { org 6 } OID or ::= 12 trap) - if (sc.ch == '{') - { - // An OID definition starts here: enter the sub loop - for (; sc.More(); sc.Forward()) - { - if (isAsn1Number (sc.ch) && (!isAsn1Char (sc.chPrev) || isAsn1Number (sc.chPrev))) - // The OID number is highlighted - sc.SetState(SCE_ASN1_OID); - else if (isAsn1Char (sc.ch)) - // The OID parent identifier is plain - sc.SetState(SCE_ASN1_IDENTIFIER); - else - sc.SetState(SCE_ASN1_DEFAULT); - - if (sc.ch == '}') - // Here ends the OID and the operator sub loop: go back to main loop - break; - } - } - else if (isAsn1Number (sc.ch)) - { - // A trap number definition starts here: enter the sub loop - for (; sc.More(); sc.Forward()) - { - if (isAsn1Number (sc.ch)) - // The trap number is highlighted - sc.SetState(SCE_ASN1_OID); - else - { - // The number ends here: go back to main loop - sc.SetState(SCE_ASN1_DEFAULT); - break; - } - } - } - else if (sc.ch != ':' && sc.ch != '=' && sc.ch != ' ') - // The operator doesn't imply an OID definition nor a trap, back to main loop - goto asn1_default; // To be sure to handle actually the state change - break; - } - } - sc.Complete(); -} - -static void FoldAsn1Doc(Sci_PositionU, Sci_Position, int, WordList *[], Accessor &styler) -{ - // No folding enabled, no reason to continue... - if( styler.GetPropertyInt("fold") == 0 ) - return; - - // No folding implemented: doesn't make sense for ASN.1 -} - -static const char * const asn1WordLists[] = { - "Keywords", - "Attributes", - "Descriptors", - "Types", - 0, }; - - -LexerModule lmAsn1(SCLEX_ASN1, ColouriseAsn1Doc, "asn1", FoldAsn1Doc, asn1WordLists); diff --git a/libs/qscintilla/scintilla/lexers/LexBaan.cpp b/libs/qscintilla/scintilla/lexers/LexBaan.cpp deleted file mode 100644 index fa8b4630..00000000 --- a/libs/qscintilla/scintilla/lexers/LexBaan.cpp +++ /dev/null @@ -1,988 +0,0 @@ -// Scintilla source code edit control -/** @file LexBaan.cxx -** Lexer for Baan. -** Based heavily on LexCPP.cxx -**/ -// Copyright 2001- by Vamsi Potluru & Praveen Ambekar -// Maintainer Email: oirfeodent@yahoo.co.in -// The License.txt file describes the conditions under which this software may be distributed. - -// C standard library -#include -#include - -// C++ wrappers of C standard library -#include - -// C++ standard library -#include -#include - -// Scintilla headers - -// Non-platform-specific headers - -// include -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -// lexlib -#include "WordList.h" -#include "LexAccessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" -#include "OptionSet.h" -#include "DefaultLexer.h" - -using namespace Scintilla; - -namespace { -// Use an unnamed namespace to protect the functions and classes from name conflicts - -// Options used for LexerBaan -struct OptionsBaan { - bool fold; - bool foldComment; - bool foldPreprocessor; - bool foldCompact; - bool baanFoldSyntaxBased; - bool baanFoldKeywordsBased; - bool baanFoldSections; - bool baanFoldInnerLevel; - bool baanStylingWithinPreprocessor; - OptionsBaan() { - fold = false; - foldComment = false; - foldPreprocessor = false; - foldCompact = false; - baanFoldSyntaxBased = false; - baanFoldKeywordsBased = false; - baanFoldSections = false; - baanFoldInnerLevel = false; - baanStylingWithinPreprocessor = false; - } -}; - -const char *const baanWordLists[] = { - "Baan & BaanSQL Reserved Keywords ", - "Baan Standard functions", - "Baan Functions Abridged", - "Baan Main Sections ", - "Baan Sub Sections", - "PreDefined Variables", - "PreDefined Attributes", - "Enumerates", - 0, -}; - -struct OptionSetBaan : public OptionSet { - OptionSetBaan() { - DefineProperty("fold", &OptionsBaan::fold); - - DefineProperty("fold.comment", &OptionsBaan::foldComment); - - DefineProperty("fold.preprocessor", &OptionsBaan::foldPreprocessor); - - DefineProperty("fold.compact", &OptionsBaan::foldCompact); - - DefineProperty("fold.baan.syntax.based", &OptionsBaan::baanFoldSyntaxBased, - "Set this property to 0 to disable syntax based folding, which is folding based on '{' & '('."); - - DefineProperty("fold.baan.keywords.based", &OptionsBaan::baanFoldKeywordsBased, - "Set this property to 0 to disable keywords based folding, which is folding based on " - " for, if, on (case), repeat, select, while and fold ends based on endfor, endif, endcase, until, endselect, endwhile respectively." - "Also folds declarations which are grouped together."); - - DefineProperty("fold.baan.sections", &OptionsBaan::baanFoldSections, - "Set this property to 0 to disable folding of Main Sections as well as Sub Sections."); - - DefineProperty("fold.baan.inner.level", &OptionsBaan::baanFoldInnerLevel, - "Set this property to 1 to enable folding of inner levels of select statements." - "Disabled by default. case and if statements are also eligible" ); - - DefineProperty("lexer.baan.styling.within.preprocessor", &OptionsBaan::baanStylingWithinPreprocessor, - "For Baan code, determines whether all preprocessor code is styled in the " - "preprocessor style (0, the default) or only from the initial # to the end " - "of the command word(1)."); - - DefineWordListSets(baanWordLists); - } -}; - -static inline bool IsAWordChar(const int ch) { - return (ch < 0x80) && (isalnum(ch) || ch == '.' || ch == '_' || ch == '$'); -} - -static inline bool IsAnOperator(int ch) { - if (IsAlphaNumeric(ch)) - return false; - if (ch == '#' || ch == '^' || ch == '&' || ch == '*' || - ch == '(' || ch == ')' || ch == '-' || ch == '+' || - ch == '=' || ch == '|' || ch == '{' || ch == '}' || - ch == '[' || ch == ']' || ch == ':' || ch == ';' || - ch == '<' || ch == '>' || ch == ',' || ch == '/' || - ch == '?' || ch == '!' || ch == '"' || ch == '~' || - ch == '\\') - return true; - return false; -} - -static inline int IsAnyOtherIdentifier(char *s, Sci_Position sLength) { - - /* IsAnyOtherIdentifier uses standard templates used in baan. - The matching template is shown as comments just above the return condition. - ^ - refers to any character [a-z]. - # - refers to any number [0-9]. - Other characters shown are compared as is. - Tried implementing with Regex... it was too complicated for me. - Any other implementation suggestion welcome. - */ - switch (sLength) { - case 8: - if (isalpha(s[0]) && isalpha(s[1]) && isalpha(s[2]) && isalpha(s[3]) && isalpha(s[4]) && IsADigit(s[5]) && IsADigit(s[6]) && IsADigit(s[7])) { - //^^^^^### - return(SCE_BAAN_TABLEDEF); - } - break; - case 9: - if (s[0] == 't' && isalpha(s[1]) && isalpha(s[2]) && isalpha(s[3]) && isalpha(s[4]) && isalpha(s[5]) && IsADigit(s[6]) && IsADigit(s[7]) && IsADigit(s[8])) { - //t^^^^^### - return(SCE_BAAN_TABLEDEF); - } - else if (s[8] == '.' && isalpha(s[0]) && isalpha(s[1]) && isalpha(s[2]) && isalpha(s[3]) && isalpha(s[4]) && IsADigit(s[5]) && IsADigit(s[6]) && IsADigit(s[7])) { - //^^^^^###. - return(SCE_BAAN_TABLESQL); - } - break; - case 13: - if (s[8] == '.' && isalpha(s[0]) && isalpha(s[1]) && isalpha(s[2]) && isalpha(s[3]) && isalpha(s[4]) && IsADigit(s[5]) && IsADigit(s[6]) && IsADigit(s[7])) { - //^^^^^###.**** - return(SCE_BAAN_TABLESQL); - } - else if (s[0] == 'r' && s[1] == 'c' && s[2] == 'd' && s[3] == '.' && s[4] == 't' && isalpha(s[5]) && isalpha(s[6]) && isalpha(s[7]) && isalpha(s[8]) && isalpha(s[9]) && IsADigit(s[10]) && IsADigit(s[11]) && IsADigit(s[12])) { - //rcd.t^^^^^### - return(SCE_BAAN_TABLEDEF); - } - break; - case 14: - case 15: - if (s[8] == '.' && isalpha(s[0]) && isalpha(s[1]) && isalpha(s[2]) && isalpha(s[3]) && isalpha(s[4]) && IsADigit(s[5]) && IsADigit(s[6]) && IsADigit(s[7])) { - if (s[13] != ':') { - //^^^^^###.****** - return(SCE_BAAN_TABLESQL); - } - } - break; - case 16: - case 17: - if (s[8] == '.' && s[9] == '_' && s[10] == 'i' && s[11] == 'n' && s[12] == 'd' && s[13] == 'e' && s[14] == 'x' && IsADigit(s[15]) && isalpha(s[0]) && isalpha(s[1]) && isalpha(s[2]) && isalpha(s[3]) && isalpha(s[4]) && IsADigit(s[5]) && IsADigit(s[6]) && IsADigit(s[7])) { - //^^^^^###._index## - return(SCE_BAAN_TABLEDEF); - } - else if (s[8] == '.' && s[9] == '_' && s[10] == 'c' && s[11] == 'o' && s[12] == 'm' && s[13] == 'p' && s[14] == 'n' && s[15] == 'r' && isalpha(s[0]) && isalpha(s[1]) && isalpha(s[2]) && isalpha(s[3]) && isalpha(s[4]) && IsADigit(s[5]) && IsADigit(s[6]) && IsADigit(s[7])) { - //^^^^^###._compnr - return(SCE_BAAN_TABLEDEF); - } - break; - default: - break; - } - if (sLength > 14 && s[5] == '.' && s[6] == 'd' && s[7] == 'l' && s[8] == 'l' && s[13] == '.' && isalpha(s[0]) && isalpha(s[1]) && isalpha(s[2]) && isalpha(s[3]) && isalpha(s[4]) && IsADigit(s[9]) && IsADigit(s[10]) && IsADigit(s[11]) && IsADigit(s[12])) { - //^^^^^.dll####. - return(SCE_BAAN_FUNCTION); - } - else if (sLength > 15 && s[2] == 'i' && s[3] == 'n' && s[4] == 't' && s[5] == '.' && s[6] == 'd' && s[7] == 'l' && s[8] == 'l' && isalpha(s[0]) && isalpha(s[1]) && isalpha(s[9]) && isalpha(s[10]) && isalpha(s[11]) && isalpha(s[12]) && isalpha(s[13])) { - //^^int.dll^^^^^. - return(SCE_BAAN_FUNCTION); - } - else if (sLength > 11 && s[0] == 'i' && s[10] == '.' && isalpha(s[1]) && isalpha(s[2]) && isalpha(s[3]) && isalpha(s[4]) && isalpha(s[5]) && IsADigit(s[6]) && IsADigit(s[7]) && IsADigit(s[8]) && IsADigit(s[9])) { - //i^^^^^####. - return(SCE_BAAN_FUNCTION); - } - - return(SCE_BAAN_DEFAULT); -} - -static bool IsCommentLine(Sci_Position line, LexAccessor &styler) { - Sci_Position pos = styler.LineStart(line); - Sci_Position eol_pos = styler.LineStart(line + 1) - 1; - for (Sci_Position i = pos; i < eol_pos; i++) { - char ch = styler[i]; - int style = styler.StyleAt(i); - if (ch == '|' && style == SCE_BAAN_COMMENT) - return true; - else if (!IsASpaceOrTab(ch)) - return false; - } - return false; -} - -static bool IsPreProcLine(Sci_Position line, LexAccessor &styler) { - Sci_Position pos = styler.LineStart(line); - Sci_Position eol_pos = styler.LineStart(line + 1) - 1; - for (Sci_Position i = pos; i < eol_pos; i++) { - char ch = styler[i]; - int style = styler.StyleAt(i); - if (ch == '#' && style == SCE_BAAN_PREPROCESSOR) { - if (styler.Match(i, "#elif") || styler.Match(i, "#else") || styler.Match(i, "#endif") - || styler.Match(i, "#if") || styler.Match(i, "#ifdef") || styler.Match(i, "#ifndef")) - // Above PreProcessors has a seperate fold mechanism. - return false; - else - return true; - } - else if (ch == '^') - return true; - else if (!IsASpaceOrTab(ch)) - return false; - } - return false; -} - -static int mainOrSubSectionLine(Sci_Position line, LexAccessor &styler) { - Sci_Position pos = styler.LineStart(line); - Sci_Position eol_pos = styler.LineStart(line + 1) - 1; - for (Sci_Position i = pos; i < eol_pos; i++) { - char ch = styler[i]; - int style = styler.StyleAt(i); - if (style == SCE_BAAN_WORD5 || style == SCE_BAAN_WORD4) - return style; - else if (IsASpaceOrTab(ch)) - continue; - else - break; - } - return 0; -} - -static bool priorSectionIsSubSection(Sci_Position line, LexAccessor &styler){ - while (line > 0) { - Sci_Position pos = styler.LineStart(line); - Sci_Position eol_pos = styler.LineStart(line + 1) - 1; - for (Sci_Position i = pos; i < eol_pos; i++) { - char ch = styler[i]; - int style = styler.StyleAt(i); - if (style == SCE_BAAN_WORD4) - return true; - else if (style == SCE_BAAN_WORD5) - return false; - else if (IsASpaceOrTab(ch)) - continue; - else - break; - } - line--; - } - return false; -} - -static bool nextSectionIsSubSection(Sci_Position line, LexAccessor &styler) { - while (line > 0) { - Sci_Position pos = styler.LineStart(line); - Sci_Position eol_pos = styler.LineStart(line + 1) - 1; - for (Sci_Position i = pos; i < eol_pos; i++) { - char ch = styler[i]; - int style = styler.StyleAt(i); - if (style == SCE_BAAN_WORD4) - return true; - else if (style == SCE_BAAN_WORD5) - return false; - else if (IsASpaceOrTab(ch)) - continue; - else - break; - } - line++; - } - return false; -} - -static bool IsDeclarationLine(Sci_Position line, LexAccessor &styler) { - Sci_Position pos = styler.LineStart(line); - Sci_Position eol_pos = styler.LineStart(line + 1) - 1; - for (Sci_Position i = pos; i < eol_pos; i++) { - char ch = styler[i]; - int style = styler.StyleAt(i); - if (style == SCE_BAAN_WORD) { - if (styler.Match(i, "table") || styler.Match(i, "extern") || styler.Match(i, "long") - || styler.Match(i, "double") || styler.Match(i, "boolean") || styler.Match(i, "string") - || styler.Match(i, "domain")) { - for (Sci_Position j = eol_pos; j > pos; j--) { - int styleFromEnd = styler.StyleAt(j); - if (styleFromEnd == SCE_BAAN_COMMENT) - continue; - else if (IsASpace(styler[j])) - continue; - else if (styler[j] != ',') - //Above conditions ensures, Declaration is not part of any function parameters. - return true; - else - return false; - } - } - else - return false; - } - else if (!IsASpaceOrTab(ch)) - return false; - } - return false; -} - -static bool IsInnerLevelFold(Sci_Position line, LexAccessor &styler) { - Sci_Position pos = styler.LineStart(line); - Sci_Position eol_pos = styler.LineStart(line + 1) - 1; - for (Sci_Position i = pos; i < eol_pos; i++) { - char ch = styler[i]; - int style = styler.StyleAt(i); - if (style == SCE_BAAN_WORD && (styler.Match(i, "else" ) || styler.Match(i, "case") - || styler.Match(i, "default") || styler.Match(i, "selectdo") || styler.Match(i, "selecteos") - || styler.Match(i, "selectempty") || styler.Match(i, "selecterror"))) - return true; - else if (IsASpaceOrTab(ch)) - continue; - else - return false; - } - return false; -} - -static inline bool wordInArray(const std::string& value, std::string *array, int length) -{ - for (int i = 0; i < length; i++) - { - if (value == array[i]) - { - return true; - } - } - - return false; -} - -class WordListAbridged : public WordList { -public: - WordListAbridged() { - kwAbridged = false; - kwHasSection = false; - }; - ~WordListAbridged() { - Clear(); - }; - bool kwAbridged; - bool kwHasSection; - bool Contains(const char *s) { - return kwAbridged ? InListAbridged(s, '~') : InList(s); - }; -}; - -} - -class LexerBaan : public DefaultLexer { - WordListAbridged keywords; - WordListAbridged keywords2; - WordListAbridged keywords3; - WordListAbridged keywords4; - WordListAbridged keywords5; - WordListAbridged keywords6; - WordListAbridged keywords7; - WordListAbridged keywords8; - WordListAbridged keywords9; - OptionsBaan options; - OptionSetBaan osBaan; -public: - LexerBaan() { - } - - virtual ~LexerBaan() { - } - - int SCI_METHOD Version() const override { - return lvOriginal; - } - - void SCI_METHOD Release() override { - delete this; - } - - const char * SCI_METHOD PropertyNames() override { - return osBaan.PropertyNames(); - } - - int SCI_METHOD PropertyType(const char * name) override { - return osBaan.PropertyType(name); - } - - const char * SCI_METHOD DescribeProperty(const char * name) override { - return osBaan.DescribeProperty(name); - } - - Sci_Position SCI_METHOD PropertySet(const char *key, const char *val) override; - - const char * SCI_METHOD DescribeWordListSets() override { - return osBaan.DescribeWordListSets(); - } - - Sci_Position SCI_METHOD WordListSet(int n, const char *wl) override; - - void SCI_METHOD Lex(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) override; - - void SCI_METHOD Fold(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) override; - - void * SCI_METHOD PrivateCall(int, void *) override { - return NULL; - } - - static ILexer * LexerFactoryBaan() { - return new LexerBaan(); - } -}; - -Sci_Position SCI_METHOD LexerBaan::PropertySet(const char *key, const char *val) { - if (osBaan.PropertySet(&options, key, val)) { - return 0; - } - return -1; -} - -Sci_Position SCI_METHOD LexerBaan::WordListSet(int n, const char *wl) { - WordListAbridged *WordListAbridgedN = 0; - switch (n) { - case 0: - WordListAbridgedN = &keywords; - break; - case 1: - WordListAbridgedN = &keywords2; - break; - case 2: - WordListAbridgedN = &keywords3; - break; - case 3: - WordListAbridgedN = &keywords4; - break; - case 4: - WordListAbridgedN = &keywords5; - break; - case 5: - WordListAbridgedN = &keywords6; - break; - case 6: - WordListAbridgedN = &keywords7; - break; - case 7: - WordListAbridgedN = &keywords8; - break; - case 8: - WordListAbridgedN = &keywords9; - break; - } - Sci_Position firstModification = -1; - if (WordListAbridgedN) { - WordListAbridged wlNew; - wlNew.Set(wl); - if (*WordListAbridgedN != wlNew) { - WordListAbridgedN->Set(wl); - WordListAbridgedN->kwAbridged = strchr(wl, '~') != NULL; - WordListAbridgedN->kwHasSection = strchr(wl, ':') != NULL; - - firstModification = 0; - } - } - return firstModification; -} - -void SCI_METHOD LexerBaan::Lex(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) { - - if (initStyle == SCE_BAAN_STRINGEOL) // Does not leak onto next line - initStyle = SCE_BAAN_DEFAULT; - - int visibleChars = 0; - bool lineHasDomain = false; - bool lineHasFunction = false; - bool lineHasPreProc = false; - bool lineIgnoreString = false; - bool lineHasDefines = false; - bool numberIsHex = false; - char word[1000]; - int wordlen = 0; - - std::string preProcessorTags[13] = { "#context_off", "#context_on", - "#define", "#elif", "#else", "#endif", - "#ident", "#if", "#ifdef", "#ifndef", - "#include", "#pragma", "#undef" }; - LexAccessor styler(pAccess); - StyleContext sc(startPos, length, initStyle, styler); - - for (; sc.More(); sc.Forward()) { - - // Determine if the current state should terminate. - switch (sc.state) { - case SCE_BAAN_OPERATOR: - sc.SetState(SCE_BAAN_DEFAULT); - break; - case SCE_BAAN_NUMBER: - if (IsASpaceOrTab(sc.ch) || sc.ch == '\r' || sc.ch == '\n' || IsAnOperator(sc.ch)) { - sc.SetState(SCE_BAAN_DEFAULT); - } - else if ((numberIsHex && !(MakeLowerCase(sc.ch) == 'x' || MakeLowerCase(sc.ch) == 'e' || - IsADigit(sc.ch, 16) || sc.ch == '.' || sc.ch == '-' || sc.ch == '+')) || - (!numberIsHex && !(MakeLowerCase(sc.ch) == 'e' || IsADigit(sc.ch) - || sc.ch == '.' || sc.ch == '-' || sc.ch == '+'))) { - // check '-' for possible -10e-5. Add '+' as well. - numberIsHex = false; - sc.ChangeState(SCE_BAAN_IDENTIFIER); - sc.SetState(SCE_BAAN_DEFAULT); - } - break; - case SCE_BAAN_IDENTIFIER: - if (!IsAWordChar(sc.ch)) { - char s[1000]; - char s1[1000]; - sc.GetCurrentLowered(s, sizeof(s)); - if (sc.ch == ':') { - memcpy(s1, s, sizeof(s)); - s1[sc.LengthCurrent()] = sc.ch; - s1[sc.LengthCurrent() + 1] = '\0'; - } - if ((keywords.kwHasSection && (sc.ch == ':')) ? keywords.Contains(s1) : keywords.Contains(s)) { - sc.ChangeState(SCE_BAAN_WORD); - if (0 == strcmp(s, "domain")) { - lineHasDomain = true; - } - else if (0 == strcmp(s, "function")) { - lineHasFunction = true; - } - } - else if (lineHasDomain) { - sc.ChangeState(SCE_BAAN_DOMDEF); - lineHasDomain = false; - } - else if (lineHasFunction) { - sc.ChangeState(SCE_BAAN_FUNCDEF); - lineHasFunction = false; - } - else if ((keywords2.kwHasSection && (sc.ch == ':')) ? keywords2.Contains(s1) : keywords2.Contains(s)) { - sc.ChangeState(SCE_BAAN_WORD2); - } - else if ((keywords3.kwHasSection && (sc.ch == ':')) ? keywords3.Contains(s1) : keywords3.Contains(s)) { - if (sc.ch == '(') - sc.ChangeState(SCE_BAAN_WORD3); - else - sc.ChangeState(SCE_BAAN_IDENTIFIER); - } - else if ((keywords4.kwHasSection && (sc.ch == ':')) ? keywords4.Contains(s1) : keywords4.Contains(s)) { - sc.ChangeState(SCE_BAAN_WORD4); - } - else if ((keywords5.kwHasSection && (sc.ch == ':')) ? keywords5.Contains(s1) : keywords5.Contains(s)) { - sc.ChangeState(SCE_BAAN_WORD5); - } - else if ((keywords6.kwHasSection && (sc.ch == ':')) ? keywords6.Contains(s1) : keywords6.Contains(s)) { - sc.ChangeState(SCE_BAAN_WORD6); - } - else if ((keywords7.kwHasSection && (sc.ch == ':')) ? keywords7.Contains(s1) : keywords7.Contains(s)) { - sc.ChangeState(SCE_BAAN_WORD7); - } - else if ((keywords8.kwHasSection && (sc.ch == ':')) ? keywords8.Contains(s1) : keywords8.Contains(s)) { - sc.ChangeState(SCE_BAAN_WORD8); - } - else if ((keywords9.kwHasSection && (sc.ch == ':')) ? keywords9.Contains(s1) : keywords9.Contains(s)) { - sc.ChangeState(SCE_BAAN_WORD9); - } - else if (lineHasPreProc) { - sc.ChangeState(SCE_BAAN_OBJECTDEF); - lineHasPreProc = false; - } - else if (lineHasDefines) { - sc.ChangeState(SCE_BAAN_DEFINEDEF); - lineHasDefines = false; - } - else { - int state = IsAnyOtherIdentifier(s, sc.LengthCurrent()); - if (state > 0) { - sc.ChangeState(state); - } - } - sc.SetState(SCE_BAAN_DEFAULT); - } - break; - case SCE_BAAN_PREPROCESSOR: - if (options.baanStylingWithinPreprocessor) { - if (IsASpace(sc.ch) || IsAnOperator(sc.ch)) { - sc.SetState(SCE_BAAN_DEFAULT); - } - } - else { - if (sc.atLineEnd && (sc.chNext != '^')) { - sc.SetState(SCE_BAAN_DEFAULT); - } - } - break; - case SCE_BAAN_COMMENT: - if (sc.ch == '\r' || sc.ch == '\n') { - sc.SetState(SCE_BAAN_DEFAULT); - } - break; - case SCE_BAAN_COMMENTDOC: - if (sc.MatchIgnoreCase("enddllusage")) { - for (unsigned int i = 0; i < 10; i++) { - sc.Forward(); - } - sc.ForwardSetState(SCE_BAAN_DEFAULT); - } - else if (sc.MatchIgnoreCase("endfunctionusage")) { - for (unsigned int i = 0; i < 15; i++) { - sc.Forward(); - } - sc.ForwardSetState(SCE_BAAN_DEFAULT); - } - break; - case SCE_BAAN_STRING: - if (sc.ch == '\"') { - sc.ForwardSetState(SCE_BAAN_DEFAULT); - } - else if ((sc.atLineEnd) && (sc.chNext != '^')) { - sc.ChangeState(SCE_BAAN_STRINGEOL); - sc.ForwardSetState(SCE_BAAN_DEFAULT); - visibleChars = 0; - } - break; - } - - // Determine if a new state should be entered. - if (sc.state == SCE_BAAN_DEFAULT) { - if (IsADigit(sc.ch) || (sc.ch == '.' && IsADigit(sc.chNext)) - || ((sc.ch == '-' || sc.ch == '+') && (IsADigit(sc.chNext) || sc.chNext == '.')) - || (MakeLowerCase(sc.ch) == 'e' && (IsADigit(sc.chNext) || sc.chNext == '+' || sc.chNext == '-'))) { - if ((sc.ch == '0' && MakeLowerCase(sc.chNext) == 'x') || - ((sc.ch == '-' || sc.ch == '+') && sc.chNext == '0' && MakeLowerCase(sc.GetRelativeCharacter(2)) == 'x')){ - numberIsHex = true; - } - sc.SetState(SCE_BAAN_NUMBER); - } - else if (sc.MatchIgnoreCase("dllusage") || sc.MatchIgnoreCase("functionusage")) { - sc.SetState(SCE_BAAN_COMMENTDOC); - do { - sc.Forward(); - } while ((!sc.atLineEnd) && sc.More()); - } - else if (iswordstart(sc.ch)) { - sc.SetState(SCE_BAAN_IDENTIFIER); - } - else if (sc.Match('|')) { - sc.SetState(SCE_BAAN_COMMENT); - } - else if (sc.ch == '\"' && !(lineIgnoreString)) { - sc.SetState(SCE_BAAN_STRING); - } - else if (sc.ch == '#' && visibleChars == 0) { - // Preprocessor commands are alone on their line - sc.SetState(SCE_BAAN_PREPROCESSOR); - word[0] = '\0'; - wordlen = 0; - while (sc.More() && !(IsASpace(sc.chNext) || IsAnOperator(sc.chNext))) { - sc.Forward(); - wordlen++; - } - sc.GetCurrentLowered(word, sizeof(word)); - if (!sc.atLineEnd) { - word[wordlen++] = sc.ch; - word[wordlen++] = '\0'; - } - if (!wordInArray(word, preProcessorTags, 13)) - // Colorise only preprocessor built in Baan. - sc.ChangeState(SCE_BAAN_IDENTIFIER); - if (strcmp(word, "#pragma") == 0 || strcmp(word, "#include") == 0) { - lineHasPreProc = true; - lineIgnoreString = true; - } - else if (strcmp(word, "#define") == 0 || strcmp(word, "#undef") == 0 || - strcmp(word, "#ifdef") == 0 || strcmp(word, "#if") == 0 || strcmp(word, "#ifndef") == 0) { - lineHasDefines = true; - lineIgnoreString = false; - } - } - else if (IsAnOperator(static_cast(sc.ch))) { - sc.SetState(SCE_BAAN_OPERATOR); - } - } - - if (sc.atLineEnd) { - // Reset states to begining of colourise so no surprises - // if different sets of lines lexed. - visibleChars = 0; - lineHasDomain = false; - lineHasFunction = false; - lineHasPreProc = false; - lineIgnoreString = false; - lineHasDefines = false; - numberIsHex = false; - } - if (!IsASpace(sc.ch)) { - visibleChars++; - } - } - sc.Complete(); -} - -void SCI_METHOD LexerBaan::Fold(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) { - if (!options.fold) - return; - - char word[100]; - int wordlen = 0; - bool foldStart = true; - bool foldNextSelect = true; - bool afterFunctionSection = false; - bool beforeDeclarationSection = false; - int currLineStyle = 0; - int nextLineStyle = 0; - - std::string startTags[6] = { "for", "if", "on", "repeat", "select", "while" }; - std::string endTags[6] = { "endcase", "endfor", "endif", "endselect", "endwhile", "until" }; - std::string selectCloseTags[5] = { "selectdo", "selecteos", "selectempty", "selecterror", "endselect" }; - - LexAccessor styler(pAccess); - Sci_PositionU endPos = startPos + length; - int visibleChars = 0; - Sci_Position lineCurrent = styler.GetLine(startPos); - - // Backtrack to previous line in case need to fix its fold status - if (startPos > 0) { - if (lineCurrent > 0) { - lineCurrent--; - startPos = styler.LineStart(lineCurrent); - } - } - - int levelPrev = SC_FOLDLEVELBASE; - if (lineCurrent > 0) - levelPrev = styler.LevelAt(lineCurrent - 1) >> 16; - int levelCurrent = levelPrev; - char chNext = styler[startPos]; - int style = initStyle; - int styleNext = styler.StyleAt(startPos); - - for (Sci_PositionU i = startPos; i < endPos; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - style = styleNext; - styleNext = styler.StyleAt(i + 1); - int stylePrev = (i) ? styler.StyleAt(i - 1) : SCE_BAAN_DEFAULT; - bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n'); - - // Comment folding - if (options.foldComment && style == SCE_BAAN_COMMENTDOC) { - if (style != stylePrev) { - levelCurrent++; - } - else if (style != styleNext) { - levelCurrent--; - } - } - if (options.foldComment && atEOL && IsCommentLine(lineCurrent, styler)) { - if (!IsCommentLine(lineCurrent - 1, styler) - && IsCommentLine(lineCurrent + 1, styler)) - levelCurrent++; - else if (IsCommentLine(lineCurrent - 1, styler) - && !IsCommentLine(lineCurrent + 1, styler)) - levelCurrent--; - } - // PreProcessor Folding - if (options.foldPreprocessor) { - if (atEOL && IsPreProcLine(lineCurrent, styler)) { - if (!IsPreProcLine(lineCurrent - 1, styler) - && IsPreProcLine(lineCurrent + 1, styler)) - levelCurrent++; - else if (IsPreProcLine(lineCurrent - 1, styler) - && !IsPreProcLine(lineCurrent + 1, styler)) - levelCurrent--; - } - else if (style == SCE_BAAN_PREPROCESSOR) { - // folds #ifdef/#if/#ifndef - they are not part of the IsPreProcLine folding. - if (ch == '#') { - if (styler.Match(i, "#ifdef") || styler.Match(i, "#if") || styler.Match(i, "#ifndef") - || styler.Match(i, "#context_on")) - levelCurrent++; - else if (styler.Match(i, "#endif") || styler.Match(i, "#context_off")) - levelCurrent--; - } - } - } - //Syntax Folding - if (options.baanFoldSyntaxBased && (style == SCE_BAAN_OPERATOR)) { - if (ch == '{' || ch == '(') { - levelCurrent++; - } - else if (ch == '}' || ch == ')') { - levelCurrent--; - } - } - //Keywords Folding - if (options.baanFoldKeywordsBased) { - if (atEOL && IsDeclarationLine(lineCurrent, styler)) { - if (!IsDeclarationLine(lineCurrent - 1, styler) - && IsDeclarationLine(lineCurrent + 1, styler)) - levelCurrent++; - else if (IsDeclarationLine(lineCurrent - 1, styler) - && !IsDeclarationLine(lineCurrent + 1, styler)) - levelCurrent--; - } - else if (style == SCE_BAAN_WORD) { - word[wordlen++] = static_cast(MakeLowerCase(ch)); - if (wordlen == 100) { // prevent overflow - word[0] = '\0'; - wordlen = 1; - } - if (styleNext != SCE_BAAN_WORD) { - word[wordlen] = '\0'; - wordlen = 0; - if (strcmp(word, "for") == 0) { - Sci_PositionU j = i + 1; - while ((j < endPos) && IsASpaceOrTab(styler.SafeGetCharAt(j))) { - j++; - } - if (styler.Match(j, "update")) { - // Means this is a "for update" used by Select which is already folded. - foldStart = false; - } - } - else if (strcmp(word, "on") == 0) { - Sci_PositionU j = i + 1; - while ((j < endPos) && IsASpaceOrTab(styler.SafeGetCharAt(j))) { - j++; - } - if (!styler.Match(j, "case")) { - // Means this is not a "on Case" statement... could be "on" used by index. - foldStart = false; - } - } - else if (strcmp(word, "select") == 0) { - if (foldNextSelect) { - // Next Selects are sub-clause till reach of selectCloseTags[] array. - foldNextSelect = false; - foldStart = true; - } - else { - foldNextSelect = false; - foldStart = false; - } - } - else if (wordInArray(word, selectCloseTags, 5)) { - // select clause ends, next select clause can be folded. - foldNextSelect = true; - foldStart = true; - } - else { - foldStart = true; - } - if (foldStart) { - if (wordInArray(word, startTags, 6)) { - levelCurrent++; - } - else if (wordInArray(word, endTags, 6)) { - levelCurrent--; - } - } - } - } - } - // Fold inner level of if/select/case statements - if (options.baanFoldInnerLevel && atEOL) { - bool currLineInnerLevel = IsInnerLevelFold(lineCurrent, styler); - bool nextLineInnerLevel = IsInnerLevelFold(lineCurrent + 1, styler); - if (currLineInnerLevel && currLineInnerLevel != nextLineInnerLevel) { - levelCurrent++; - } - else if (nextLineInnerLevel && nextLineInnerLevel != currLineInnerLevel) { - levelCurrent--; - } - } - // Section Foldings. - // One way of implementing Section Foldings, as there is no END markings of sections. - // first section ends on the previous line of next section. - // Re-written whole folding to accomodate this. - if (options.baanFoldSections && atEOL) { - currLineStyle = mainOrSubSectionLine(lineCurrent, styler); - nextLineStyle = mainOrSubSectionLine(lineCurrent + 1, styler); - if (currLineStyle != 0 && currLineStyle != nextLineStyle) { - if (levelCurrent < levelPrev) - --levelPrev; - for (Sci_Position j = styler.LineStart(lineCurrent); j < styler.LineStart(lineCurrent + 1) - 1; j++) { - if (IsASpaceOrTab(styler[j])) - continue; - else if (styler.StyleAt(j) == SCE_BAAN_WORD5) { - if (styler.Match(j, "functions:")) { - // Means functions: is the end of MainSections. - // Nothing to fold after this. - afterFunctionSection = true; - break; - } - else { - afterFunctionSection = false; - break; - } - } - else { - afterFunctionSection = false; - break; - } - } - if (!afterFunctionSection) - levelCurrent++; - } - else if (nextLineStyle != 0 && currLineStyle != nextLineStyle - && (priorSectionIsSubSection(lineCurrent -1 ,styler) - || !nextSectionIsSubSection(lineCurrent + 1, styler))) { - for (Sci_Position j = styler.LineStart(lineCurrent + 1); j < styler.LineStart(lineCurrent + 1 + 1) - 1; j++) { - if (IsASpaceOrTab(styler[j])) - continue; - else if (styler.StyleAt(j) == SCE_BAAN_WORD5) { - if (styler.Match(j, "declaration:")) { - // Means declaration: is the start of MainSections. - // Nothing to fold before this. - beforeDeclarationSection = true; - break; - } - else { - beforeDeclarationSection = false; - break; - } - } - else { - beforeDeclarationSection = false; - break; - } - } - if (!beforeDeclarationSection) { - levelCurrent--; - if (nextLineStyle == SCE_BAAN_WORD5 && priorSectionIsSubSection(lineCurrent-1, styler)) - // next levelCurrent--; is to unfold previous subsection fold. - // On reaching the next main section, the previous main as well sub section ends. - levelCurrent--; - } - } - } - if (atEOL) { - int lev = levelPrev; - lev |= levelCurrent << 16; - if (visibleChars == 0 && options.foldCompact) - lev |= SC_FOLDLEVELWHITEFLAG; - if ((levelCurrent > levelPrev) && (visibleChars > 0)) - lev |= SC_FOLDLEVELHEADERFLAG; - if (lev != styler.LevelAt(lineCurrent)) { - styler.SetLevel(lineCurrent, lev); - } - lineCurrent++; - levelPrev = levelCurrent; - visibleChars = 0; - } - if (!isspacechar(ch)) - visibleChars++; - } - int flagsNext = styler.LevelAt(lineCurrent) & ~SC_FOLDLEVELNUMBERMASK; - styler.SetLevel(lineCurrent, levelPrev | flagsNext); -} - -LexerModule lmBaan(SCLEX_BAAN, LexerBaan::LexerFactoryBaan, "baan", baanWordLists); diff --git a/libs/qscintilla/scintilla/lexers/LexBash.cpp b/libs/qscintilla/scintilla/lexers/LexBash.cpp deleted file mode 100644 index 5bbd563d..00000000 --- a/libs/qscintilla/scintilla/lexers/LexBash.cpp +++ /dev/null @@ -1,907 +0,0 @@ -// Scintilla source code edit control -/** @file LexBash.cxx - ** Lexer for Bash. - **/ -// Copyright 2004-2012 by Neil Hodgson -// Adapted from LexPerl by Kein-Hong Man 2004 -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -#define HERE_DELIM_MAX 256 - -// define this if you want 'invalid octals' to be marked as errors -// usually, this is not a good idea, permissive lexing is better -#undef PEDANTIC_OCTAL - -#define BASH_BASE_ERROR 65 -#define BASH_BASE_DECIMAL 66 -#define BASH_BASE_HEX 67 -#ifdef PEDANTIC_OCTAL -#define BASH_BASE_OCTAL 68 -#define BASH_BASE_OCTAL_ERROR 69 -#endif - -// state constants for parts of a bash command segment -#define BASH_CMD_BODY 0 -#define BASH_CMD_START 1 -#define BASH_CMD_WORD 2 -#define BASH_CMD_TEST 3 -#define BASH_CMD_ARITH 4 -#define BASH_CMD_DELIM 5 - -// state constants for nested delimiter pairs, used by -// SCE_SH_STRING and SCE_SH_BACKTICKS processing -#define BASH_DELIM_LITERAL 0 -#define BASH_DELIM_STRING 1 -#define BASH_DELIM_CSTRING 2 -#define BASH_DELIM_LSTRING 3 -#define BASH_DELIM_COMMAND 4 -#define BASH_DELIM_BACKTICK 5 - -#define BASH_DELIM_STACK_MAX 7 - -static inline int translateBashDigit(int ch) { - if (ch >= '0' && ch <= '9') { - return ch - '0'; - } else if (ch >= 'a' && ch <= 'z') { - return ch - 'a' + 10; - } else if (ch >= 'A' && ch <= 'Z') { - return ch - 'A' + 36; - } else if (ch == '@') { - return 62; - } else if (ch == '_') { - return 63; - } - return BASH_BASE_ERROR; -} - -static inline int getBashNumberBase(char *s) { - int i = 0; - int base = 0; - while (*s) { - base = base * 10 + (*s++ - '0'); - i++; - } - if (base > 64 || i > 2) { - return BASH_BASE_ERROR; - } - return base; -} - -static int opposite(int ch) { - if (ch == '(') return ')'; - if (ch == '[') return ']'; - if (ch == '{') return '}'; - if (ch == '<') return '>'; - return ch; -} - -static int GlobScan(StyleContext &sc) { - // forward scan for zsh globs, disambiguate versus bash arrays - // complex expressions may still fail, e.g. unbalanced () '' "" etc - int c, sLen = 0; - int pCount = 0; - int hash = 0; - while ((c = sc.GetRelativeCharacter(++sLen)) != 0) { - if (IsASpace(c)) { - return 0; - } else if (c == '\'' || c == '\"') { - if (hash != 2) return 0; - } else if (c == '#' && hash == 0) { - hash = (sLen == 1) ? 2:1; - } else if (c == '(') { - pCount++; - } else if (c == ')') { - if (pCount == 0) { - if (hash) return sLen; - return 0; - } - pCount--; - } - } - return 0; -} - -static void ColouriseBashDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, - WordList *keywordlists[], Accessor &styler) { - - WordList &keywords = *keywordlists[0]; - WordList cmdDelimiter, bashStruct, bashStruct_in; - cmdDelimiter.Set("| || |& & && ; ;; ( ) { }"); - bashStruct.Set("if elif fi while until else then do done esac eval"); - bashStruct_in.Set("for case select"); - - CharacterSet setWordStart(CharacterSet::setAlpha, "_"); - // note that [+-] are often parts of identifiers in shell scripts - CharacterSet setWord(CharacterSet::setAlphaNum, "._+-"); - CharacterSet setMetaCharacter(CharacterSet::setNone, "|&;()<> \t\r\n"); - setMetaCharacter.Add(0); - CharacterSet setBashOperator(CharacterSet::setNone, "^&%()-+=|{}[]:;>,*/(ch); - Delimiter[DelimiterLength] = '\0'; - } - ~HereDocCls() { - } - }; - HereDocCls HereDoc; - - class QuoteCls { // Class to manage quote pairs (simplified vs LexPerl) - public: - int Count; - int Up, Down; - QuoteCls() { - Count = 0; - Up = '\0'; - Down = '\0'; - } - void Open(int u) { - Count++; - Up = u; - Down = opposite(Up); - } - void Start(int u) { - Count = 0; - Open(u); - } - }; - QuoteCls Quote; - - class QuoteStackCls { // Class to manage quote pairs that nest - public: - int Count; - int Up, Down; - int Style; - int Depth; // levels pushed - int CountStack[BASH_DELIM_STACK_MAX]; - int UpStack [BASH_DELIM_STACK_MAX]; - int StyleStack[BASH_DELIM_STACK_MAX]; - QuoteStackCls() { - Count = 0; - Up = '\0'; - Down = '\0'; - Style = 0; - Depth = 0; - } - void Start(int u, int s) { - Count = 1; - Up = u; - Down = opposite(Up); - Style = s; - } - void Push(int u, int s) { - if (Depth >= BASH_DELIM_STACK_MAX) - return; - CountStack[Depth] = Count; - UpStack [Depth] = Up; - StyleStack[Depth] = Style; - Depth++; - Count = 1; - Up = u; - Down = opposite(Up); - Style = s; - } - void Pop(void) { - if (Depth <= 0) - return; - Depth--; - Count = CountStack[Depth]; - Up = UpStack [Depth]; - Style = StyleStack[Depth]; - Down = opposite(Up); - } - ~QuoteStackCls() { - } - }; - QuoteStackCls QuoteStack; - - int numBase = 0; - int digit; - Sci_PositionU endPos = startPos + length; - int cmdState = BASH_CMD_START; - int testExprType = 0; - - // Always backtracks to the start of a line that is not a continuation - // of the previous line (i.e. start of a bash command segment) - Sci_Position ln = styler.GetLine(startPos); - if (ln > 0 && startPos == static_cast(styler.LineStart(ln))) - ln--; - for (;;) { - startPos = styler.LineStart(ln); - if (ln == 0 || styler.GetLineState(ln) == BASH_CMD_START) - break; - ln--; - } - initStyle = SCE_SH_DEFAULT; - - StyleContext sc(startPos, endPos - startPos, initStyle, styler); - - for (; sc.More(); sc.Forward()) { - - // handle line continuation, updates per-line stored state - if (sc.atLineStart) { - ln = styler.GetLine(sc.currentPos); - if (sc.state == SCE_SH_STRING - || sc.state == SCE_SH_BACKTICKS - || sc.state == SCE_SH_CHARACTER - || sc.state == SCE_SH_HERE_Q - || sc.state == SCE_SH_COMMENTLINE - || sc.state == SCE_SH_PARAM) { - // force backtrack while retaining cmdState - styler.SetLineState(ln, BASH_CMD_BODY); - } else { - if (ln > 0) { - if ((sc.GetRelative(-3) == '\\' && sc.GetRelative(-2) == '\r' && sc.chPrev == '\n') - || sc.GetRelative(-2) == '\\') { // handle '\' line continuation - // retain last line's state - } else - cmdState = BASH_CMD_START; - } - styler.SetLineState(ln, cmdState); - } - } - - // controls change of cmdState at the end of a non-whitespace element - // states BODY|TEST|ARITH persist until the end of a command segment - // state WORD persist, but ends with 'in' or 'do' construct keywords - int cmdStateNew = BASH_CMD_BODY; - if (cmdState == BASH_CMD_TEST || cmdState == BASH_CMD_ARITH || cmdState == BASH_CMD_WORD) - cmdStateNew = cmdState; - int stylePrev = sc.state; - - // Determine if the current state should terminate. - switch (sc.state) { - case SCE_SH_OPERATOR: - sc.SetState(SCE_SH_DEFAULT); - if (cmdState == BASH_CMD_DELIM) // if command delimiter, start new command - cmdStateNew = BASH_CMD_START; - else if (sc.chPrev == '\\') // propagate command state if line continued - cmdStateNew = cmdState; - break; - case SCE_SH_WORD: - // "." never used in Bash variable names but used in file names - if (!setWord.Contains(sc.ch)) { - char s[500]; - char s2[10]; - sc.GetCurrent(s, sizeof(s)); - // allow keywords ending in a whitespace or command delimiter - s2[0] = static_cast(sc.ch); - s2[1] = '\0'; - bool keywordEnds = IsASpace(sc.ch) || cmdDelimiter.InList(s2); - // 'in' or 'do' may be construct keywords - if (cmdState == BASH_CMD_WORD) { - if (strcmp(s, "in") == 0 && keywordEnds) - cmdStateNew = BASH_CMD_BODY; - else if (strcmp(s, "do") == 0 && keywordEnds) - cmdStateNew = BASH_CMD_START; - else - sc.ChangeState(SCE_SH_IDENTIFIER); - sc.SetState(SCE_SH_DEFAULT); - break; - } - // a 'test' keyword starts a test expression - if (strcmp(s, "test") == 0) { - if (cmdState == BASH_CMD_START && keywordEnds) { - cmdStateNew = BASH_CMD_TEST; - testExprType = 0; - } else - sc.ChangeState(SCE_SH_IDENTIFIER); - } - // detect bash construct keywords - else if (bashStruct.InList(s)) { - if (cmdState == BASH_CMD_START && keywordEnds) - cmdStateNew = BASH_CMD_START; - else - sc.ChangeState(SCE_SH_IDENTIFIER); - } - // 'for'|'case'|'select' needs 'in'|'do' to be highlighted later - else if (bashStruct_in.InList(s)) { - if (cmdState == BASH_CMD_START && keywordEnds) - cmdStateNew = BASH_CMD_WORD; - else - sc.ChangeState(SCE_SH_IDENTIFIER); - } - // disambiguate option items and file test operators - else if (s[0] == '-') { - if (cmdState != BASH_CMD_TEST) - sc.ChangeState(SCE_SH_IDENTIFIER); - } - // disambiguate keywords and identifiers - else if (cmdState != BASH_CMD_START - || !(keywords.InList(s) && keywordEnds)) { - sc.ChangeState(SCE_SH_IDENTIFIER); - } - sc.SetState(SCE_SH_DEFAULT); - } - break; - case SCE_SH_IDENTIFIER: - if (sc.chPrev == '\\') { // for escaped chars - sc.ForwardSetState(SCE_SH_DEFAULT); - } else if (!setWord.Contains(sc.ch)) { - sc.SetState(SCE_SH_DEFAULT); - } else if (cmdState == BASH_CMD_ARITH && !setWordStart.Contains(sc.ch)) { - sc.SetState(SCE_SH_DEFAULT); - } - break; - case SCE_SH_NUMBER: - digit = translateBashDigit(sc.ch); - if (numBase == BASH_BASE_DECIMAL) { - if (sc.ch == '#') { - char s[10]; - sc.GetCurrent(s, sizeof(s)); - numBase = getBashNumberBase(s); - if (numBase != BASH_BASE_ERROR) - break; - } else if (IsADigit(sc.ch)) - break; - } else if (numBase == BASH_BASE_HEX) { - if (IsADigit(sc.ch, 16)) - break; -#ifdef PEDANTIC_OCTAL - } else if (numBase == BASH_BASE_OCTAL || - numBase == BASH_BASE_OCTAL_ERROR) { - if (digit <= 7) - break; - if (digit <= 9) { - numBase = BASH_BASE_OCTAL_ERROR; - break; - } -#endif - } else if (numBase == BASH_BASE_ERROR) { - if (digit <= 9) - break; - } else { // DD#DDDD number style handling - if (digit != BASH_BASE_ERROR) { - if (numBase <= 36) { - // case-insensitive if base<=36 - if (digit >= 36) digit -= 26; - } - if (digit < numBase) - break; - if (digit <= 9) { - numBase = BASH_BASE_ERROR; - break; - } - } - } - // fallthrough when number is at an end or error - if (numBase == BASH_BASE_ERROR -#ifdef PEDANTIC_OCTAL - || numBase == BASH_BASE_OCTAL_ERROR -#endif - ) { - sc.ChangeState(SCE_SH_ERROR); - } - sc.SetState(SCE_SH_DEFAULT); - break; - case SCE_SH_COMMENTLINE: - if (sc.atLineEnd && sc.chPrev != '\\') { - sc.SetState(SCE_SH_DEFAULT); - } - break; - case SCE_SH_HERE_DELIM: - // From Bash info: - // --------------- - // Specifier format is: <<[-]WORD - // Optional '-' is for removal of leading tabs from here-doc. - // Whitespace acceptable after <<[-] operator - // - if (HereDoc.State == 0) { // '<<' encountered - HereDoc.Quote = sc.chNext; - HereDoc.Quoted = false; - HereDoc.DelimiterLength = 0; - HereDoc.Delimiter[HereDoc.DelimiterLength] = '\0'; - if (sc.chNext == '\'' || sc.chNext == '\"') { // a quoted here-doc delimiter (' or ") - sc.Forward(); - HereDoc.Quoted = true; - HereDoc.State = 1; - } else if (setHereDoc.Contains(sc.chNext) || - (sc.chNext == '=' && cmdState != BASH_CMD_ARITH)) { - // an unquoted here-doc delimiter, no special handling - HereDoc.State = 1; - } else if (sc.chNext == '<') { // HERE string <<< - sc.Forward(); - sc.ForwardSetState(SCE_SH_DEFAULT); - } else if (IsASpace(sc.chNext)) { - // eat whitespace - } else if (setLeftShift.Contains(sc.chNext) || - (sc.chNext == '=' && cmdState == BASH_CMD_ARITH)) { - // left shift <<$var or <<= cases - sc.ChangeState(SCE_SH_OPERATOR); - sc.ForwardSetState(SCE_SH_DEFAULT); - } else { - // symbols terminates; deprecated zero-length delimiter - HereDoc.State = 1; - } - } else if (HereDoc.State == 1) { // collect the delimiter - // * if single quoted, there's no escape - // * if double quoted, there are \\ and \" escapes - if ((HereDoc.Quote == '\'' && sc.ch != HereDoc.Quote) || - (HereDoc.Quoted && sc.ch != HereDoc.Quote && sc.ch != '\\') || - (HereDoc.Quote != '\'' && sc.chPrev == '\\') || - (setHereDoc2.Contains(sc.ch))) { - HereDoc.Append(sc.ch); - } else if (HereDoc.Quoted && sc.ch == HereDoc.Quote) { // closing quote => end of delimiter - sc.ForwardSetState(SCE_SH_DEFAULT); - } else if (sc.ch == '\\') { - if (HereDoc.Quoted && sc.chNext != HereDoc.Quote && sc.chNext != '\\') { - // in quoted prefixes only \ and the quote eat the escape - HereDoc.Append(sc.ch); - } else { - // skip escape prefix - } - } else if (!HereDoc.Quoted) { - sc.SetState(SCE_SH_DEFAULT); - } - if (HereDoc.DelimiterLength >= HERE_DELIM_MAX - 1) { // force blowup - sc.SetState(SCE_SH_ERROR); - HereDoc.State = 0; - } - } - break; - case SCE_SH_HERE_Q: - // HereDoc.State == 2 - if (sc.atLineStart) { - sc.SetState(SCE_SH_HERE_Q); - int prefixws = 0; - while (sc.ch == '\t' && !sc.atLineEnd) { // tabulation prefix - sc.Forward(); - prefixws++; - } - if (prefixws > 0) - sc.SetState(SCE_SH_HERE_Q); - while (!sc.atLineEnd) { - sc.Forward(); - } - char s[HERE_DELIM_MAX]; - sc.GetCurrent(s, sizeof(s)); - if (sc.LengthCurrent() == 0) { // '' or "" delimiters - if ((prefixws == 0 || HereDoc.Indent) && - HereDoc.Quoted && HereDoc.DelimiterLength == 0) - sc.SetState(SCE_SH_DEFAULT); - break; - } - if (s[strlen(s) - 1] == '\r') - s[strlen(s) - 1] = '\0'; - if (strcmp(HereDoc.Delimiter, s) == 0) { - if ((prefixws == 0) || // indentation rule - (prefixws > 0 && HereDoc.Indent)) { - sc.SetState(SCE_SH_DEFAULT); - break; - } - } - } - break; - case SCE_SH_SCALAR: // variable names - if (!setParam.Contains(sc.ch)) { - if (sc.LengthCurrent() == 1) { - // Special variable: $(, $_ etc. - sc.ForwardSetState(SCE_SH_DEFAULT); - } else { - sc.SetState(SCE_SH_DEFAULT); - } - } - break; - case SCE_SH_STRING: // delimited styles, can nest - case SCE_SH_BACKTICKS: - if (sc.ch == '\\' && QuoteStack.Up != '\\') { - if (QuoteStack.Style != BASH_DELIM_LITERAL) - sc.Forward(); - } else if (sc.ch == QuoteStack.Down) { - QuoteStack.Count--; - if (QuoteStack.Count == 0) { - if (QuoteStack.Depth > 0) { - QuoteStack.Pop(); - } else - sc.ForwardSetState(SCE_SH_DEFAULT); - } - } else if (sc.ch == QuoteStack.Up) { - QuoteStack.Count++; - } else { - if (QuoteStack.Style == BASH_DELIM_STRING || - QuoteStack.Style == BASH_DELIM_LSTRING - ) { // do nesting for "string", $"locale-string" - if (sc.ch == '`') { - QuoteStack.Push(sc.ch, BASH_DELIM_BACKTICK); - } else if (sc.ch == '$' && sc.chNext == '(') { - sc.Forward(); - QuoteStack.Push(sc.ch, BASH_DELIM_COMMAND); - } - } else if (QuoteStack.Style == BASH_DELIM_COMMAND || - QuoteStack.Style == BASH_DELIM_BACKTICK - ) { // do nesting for $(command), `command` - if (sc.ch == '\'') { - QuoteStack.Push(sc.ch, BASH_DELIM_LITERAL); - } else if (sc.ch == '\"') { - QuoteStack.Push(sc.ch, BASH_DELIM_STRING); - } else if (sc.ch == '`') { - QuoteStack.Push(sc.ch, BASH_DELIM_BACKTICK); - } else if (sc.ch == '$') { - if (sc.chNext == '\'') { - sc.Forward(); - QuoteStack.Push(sc.ch, BASH_DELIM_CSTRING); - } else if (sc.chNext == '\"') { - sc.Forward(); - QuoteStack.Push(sc.ch, BASH_DELIM_LSTRING); - } else if (sc.chNext == '(') { - sc.Forward(); - QuoteStack.Push(sc.ch, BASH_DELIM_COMMAND); - } - } - } - } - break; - case SCE_SH_PARAM: // ${parameter} - if (sc.ch == '\\' && Quote.Up != '\\') { - sc.Forward(); - } else if (sc.ch == Quote.Down) { - Quote.Count--; - if (Quote.Count == 0) { - sc.ForwardSetState(SCE_SH_DEFAULT); - } - } else if (sc.ch == Quote.Up) { - Quote.Count++; - } - break; - case SCE_SH_CHARACTER: // singly-quoted strings - if (sc.ch == Quote.Down) { - Quote.Count--; - if (Quote.Count == 0) { - sc.ForwardSetState(SCE_SH_DEFAULT); - } - } - break; - } - - // Must check end of HereDoc state 1 before default state is handled - if (HereDoc.State == 1 && sc.atLineEnd) { - // Begin of here-doc (the line after the here-doc delimiter): - // Lexically, the here-doc starts from the next line after the >>, but the - // first line of here-doc seem to follow the style of the last EOL sequence - HereDoc.State = 2; - if (HereDoc.Quoted) { - if (sc.state == SCE_SH_HERE_DELIM) { - // Missing quote at end of string! Syntax error in bash 4.3 - // Mark this bit as an error, do not colour any here-doc - sc.ChangeState(SCE_SH_ERROR); - sc.SetState(SCE_SH_DEFAULT); - } else { - // HereDoc.Quote always == '\'' - sc.SetState(SCE_SH_HERE_Q); - } - } else if (HereDoc.DelimiterLength == 0) { - // no delimiter, illegal (but '' and "" are legal) - sc.ChangeState(SCE_SH_ERROR); - sc.SetState(SCE_SH_DEFAULT); - } else { - sc.SetState(SCE_SH_HERE_Q); - } - } - - // update cmdState about the current command segment - if (stylePrev != SCE_SH_DEFAULT && sc.state == SCE_SH_DEFAULT) { - cmdState = cmdStateNew; - } - // Determine if a new state should be entered. - if (sc.state == SCE_SH_DEFAULT) { - if (sc.ch == '\\') { - // Bash can escape any non-newline as a literal - sc.SetState(SCE_SH_IDENTIFIER); - if (sc.chNext == '\r' || sc.chNext == '\n') - sc.SetState(SCE_SH_OPERATOR); - } else if (IsADigit(sc.ch)) { - sc.SetState(SCE_SH_NUMBER); - numBase = BASH_BASE_DECIMAL; - if (sc.ch == '0') { // hex,octal - if (sc.chNext == 'x' || sc.chNext == 'X') { - numBase = BASH_BASE_HEX; - sc.Forward(); - } else if (IsADigit(sc.chNext)) { -#ifdef PEDANTIC_OCTAL - numBase = BASH_BASE_OCTAL; -#else - numBase = BASH_BASE_HEX; -#endif - } - } - } else if (setWordStart.Contains(sc.ch)) { - sc.SetState(SCE_SH_WORD); - } else if (sc.ch == '#') { - if (stylePrev != SCE_SH_WORD && stylePrev != SCE_SH_IDENTIFIER && - (sc.currentPos == 0 || setMetaCharacter.Contains(sc.chPrev))) { - sc.SetState(SCE_SH_COMMENTLINE); - } else { - sc.SetState(SCE_SH_WORD); - } - // handle some zsh features within arithmetic expressions only - if (cmdState == BASH_CMD_ARITH) { - if (sc.chPrev == '[') { // [#8] [##8] output digit setting - sc.SetState(SCE_SH_WORD); - if (sc.chNext == '#') { - sc.Forward(); - } - } else if (sc.Match("##^") && IsUpperCase(sc.GetRelative(3))) { // ##^A - sc.SetState(SCE_SH_IDENTIFIER); - sc.Forward(3); - } else if (sc.chNext == '#' && !IsASpace(sc.GetRelative(2))) { // ##a - sc.SetState(SCE_SH_IDENTIFIER); - sc.Forward(2); - } else if (setWordStart.Contains(sc.chNext)) { // #name - sc.SetState(SCE_SH_IDENTIFIER); - } - } - } else if (sc.ch == '\"') { - sc.SetState(SCE_SH_STRING); - QuoteStack.Start(sc.ch, BASH_DELIM_STRING); - } else if (sc.ch == '\'') { - sc.SetState(SCE_SH_CHARACTER); - Quote.Start(sc.ch); - } else if (sc.ch == '`') { - sc.SetState(SCE_SH_BACKTICKS); - QuoteStack.Start(sc.ch, BASH_DELIM_BACKTICK); - } else if (sc.ch == '$') { - if (sc.Match("$((")) { - sc.SetState(SCE_SH_OPERATOR); // handle '((' later - continue; - } - sc.SetState(SCE_SH_SCALAR); - sc.Forward(); - if (sc.ch == '{') { - sc.ChangeState(SCE_SH_PARAM); - Quote.Start(sc.ch); - } else if (sc.ch == '\'') { - sc.ChangeState(SCE_SH_STRING); - QuoteStack.Start(sc.ch, BASH_DELIM_CSTRING); - } else if (sc.ch == '"') { - sc.ChangeState(SCE_SH_STRING); - QuoteStack.Start(sc.ch, BASH_DELIM_LSTRING); - } else if (sc.ch == '(') { - sc.ChangeState(SCE_SH_BACKTICKS); - QuoteStack.Start(sc.ch, BASH_DELIM_COMMAND); - } else if (sc.ch == '`') { // $` seen in a configure script, valid? - sc.ChangeState(SCE_SH_BACKTICKS); - QuoteStack.Start(sc.ch, BASH_DELIM_BACKTICK); - } else { - continue; // scalar has no delimiter pair - } - } else if (sc.Match('<', '<')) { - sc.SetState(SCE_SH_HERE_DELIM); - HereDoc.State = 0; - if (sc.GetRelative(2) == '-') { // <<- indent case - HereDoc.Indent = true; - sc.Forward(); - } else { - HereDoc.Indent = false; - } - } else if (sc.ch == '-' && // one-char file test operators - setSingleCharOp.Contains(sc.chNext) && - !setWord.Contains(sc.GetRelative(2)) && - IsASpace(sc.chPrev)) { - sc.SetState(SCE_SH_WORD); - sc.Forward(); - } else if (setBashOperator.Contains(sc.ch)) { - char s[10]; - bool isCmdDelim = false; - sc.SetState(SCE_SH_OPERATOR); - // globs have no whitespace, do not appear in arithmetic expressions - if (cmdState != BASH_CMD_ARITH && sc.ch == '(' && sc.chNext != '(') { - int i = GlobScan(sc); - if (i > 1) { - sc.SetState(SCE_SH_IDENTIFIER); - sc.Forward(i); - continue; - } - } - // handle opening delimiters for test/arithmetic expressions - ((,[[,[ - if (cmdState == BASH_CMD_START - || cmdState == BASH_CMD_BODY) { - if (sc.Match('(', '(')) { - cmdState = BASH_CMD_ARITH; - sc.Forward(); - } else if (sc.Match('[', '[') && IsASpace(sc.GetRelative(2))) { - cmdState = BASH_CMD_TEST; - testExprType = 1; - sc.Forward(); - } else if (sc.ch == '[' && IsASpace(sc.chNext)) { - cmdState = BASH_CMD_TEST; - testExprType = 2; - } - } - // special state -- for ((x;y;z)) in ... looping - if (cmdState == BASH_CMD_WORD && sc.Match('(', '(')) { - cmdState = BASH_CMD_ARITH; - sc.Forward(); - continue; - } - // handle command delimiters in command START|BODY|WORD state, also TEST if 'test' - if (cmdState == BASH_CMD_START - || cmdState == BASH_CMD_BODY - || cmdState == BASH_CMD_WORD - || (cmdState == BASH_CMD_TEST && testExprType == 0)) { - s[0] = static_cast(sc.ch); - if (setBashOperator.Contains(sc.chNext)) { - s[1] = static_cast(sc.chNext); - s[2] = '\0'; - isCmdDelim = cmdDelimiter.InList(s); - if (isCmdDelim) - sc.Forward(); - } - if (!isCmdDelim) { - s[1] = '\0'; - isCmdDelim = cmdDelimiter.InList(s); - } - if (isCmdDelim) { - cmdState = BASH_CMD_DELIM; - continue; - } - } - // handle closing delimiters for test/arithmetic expressions - )),]],] - if (cmdState == BASH_CMD_ARITH && sc.Match(')', ')')) { - cmdState = BASH_CMD_BODY; - sc.Forward(); - } else if (cmdState == BASH_CMD_TEST && IsASpace(sc.chPrev)) { - if (sc.Match(']', ']') && testExprType == 1) { - sc.Forward(); - cmdState = BASH_CMD_BODY; - } else if (sc.ch == ']' && testExprType == 2) { - cmdState = BASH_CMD_BODY; - } - } - } - }// sc.state - } - sc.Complete(); - if (sc.state == SCE_SH_HERE_Q) { - styler.ChangeLexerState(sc.currentPos, styler.Length()); - } - sc.Complete(); -} - -static bool IsCommentLine(Sci_Position line, Accessor &styler) { - Sci_Position pos = styler.LineStart(line); - Sci_Position eol_pos = styler.LineStart(line + 1) - 1; - for (Sci_Position i = pos; i < eol_pos; i++) { - char ch = styler[i]; - if (ch == '#') - return true; - else if (ch != ' ' && ch != '\t') - return false; - } - return false; -} - -static void FoldBashDoc(Sci_PositionU startPos, Sci_Position length, int, WordList *[], - Accessor &styler) { - bool foldComment = styler.GetPropertyInt("fold.comment") != 0; - bool foldCompact = styler.GetPropertyInt("fold.compact", 1) != 0; - Sci_PositionU endPos = startPos + length; - int visibleChars = 0; - int skipHereCh = 0; - Sci_Position lineCurrent = styler.GetLine(startPos); - int levelPrev = styler.LevelAt(lineCurrent) & SC_FOLDLEVELNUMBERMASK; - int levelCurrent = levelPrev; - char chNext = styler[startPos]; - int styleNext = styler.StyleAt(startPos); - char word[8] = { '\0' }; // we're not interested in long words anyway - unsigned int wordlen = 0; - for (Sci_PositionU i = startPos; i < endPos; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - int style = styleNext; - styleNext = styler.StyleAt(i + 1); - bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n'); - // Comment folding - if (foldComment && atEOL && IsCommentLine(lineCurrent, styler)) - { - if (!IsCommentLine(lineCurrent - 1, styler) - && IsCommentLine(lineCurrent + 1, styler)) - levelCurrent++; - else if (IsCommentLine(lineCurrent - 1, styler) - && !IsCommentLine(lineCurrent + 1, styler)) - levelCurrent--; - } - if (style == SCE_SH_WORD) { - if ((wordlen + 1) < sizeof(word)) - word[wordlen++] = ch; - if (styleNext != style) { - word[wordlen] = '\0'; - wordlen = 0; - if (strcmp(word, "if") == 0 || strcmp(word, "case") == 0 || strcmp(word, "do") == 0) { - levelCurrent++; - } else if (strcmp(word, "fi") == 0 || strcmp(word, "esac") == 0 || strcmp(word, "done") == 0) { - levelCurrent--; - } - } - } - if (style == SCE_SH_OPERATOR) { - if (ch == '{') { - levelCurrent++; - } else if (ch == '}') { - levelCurrent--; - } - } - // Here Document folding - if (style == SCE_SH_HERE_DELIM) { - if (ch == '<' && chNext == '<') { - if (styler.SafeGetCharAt(i + 2) == '<') { - skipHereCh = 1; - } else { - if (skipHereCh == 0) { - levelCurrent++; - } else { - skipHereCh = 0; - } - } - } - } else if (style == SCE_SH_HERE_Q && styler.StyleAt(i+1) == SCE_SH_DEFAULT) { - levelCurrent--; - } - if (atEOL) { - int lev = levelPrev; - if (visibleChars == 0 && foldCompact) - lev |= SC_FOLDLEVELWHITEFLAG; - if ((levelCurrent > levelPrev) && (visibleChars > 0)) - lev |= SC_FOLDLEVELHEADERFLAG; - if (lev != styler.LevelAt(lineCurrent)) { - styler.SetLevel(lineCurrent, lev); - } - lineCurrent++; - levelPrev = levelCurrent; - visibleChars = 0; - } - if (!isspacechar(ch)) - visibleChars++; - } - // Fill in the real level of the next line, keeping the current flags as they will be filled in later - int flagsNext = styler.LevelAt(lineCurrent) & ~SC_FOLDLEVELNUMBERMASK; - styler.SetLevel(lineCurrent, levelPrev | flagsNext); -} - -static const char * const bashWordListDesc[] = { - "Keywords", - 0 -}; - -LexerModule lmBash(SCLEX_BASH, ColouriseBashDoc, "bash", FoldBashDoc, bashWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexBasic.cpp b/libs/qscintilla/scintilla/lexers/LexBasic.cpp deleted file mode 100644 index 4ec58dcd..00000000 --- a/libs/qscintilla/scintilla/lexers/LexBasic.cpp +++ /dev/null @@ -1,565 +0,0 @@ -// Scintilla source code edit control -/** @file LexBasic.cxx - ** Lexer for BlitzBasic and PureBasic. - ** Converted to lexer object and added further folding features/properties by "Udo Lechner" - **/ -// Copyright 1998-2003 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. - -// This tries to be a unified Lexer/Folder for all the BlitzBasic/BlitzMax/PurBasic basics -// and derivatives. Once they diverge enough, might want to split it into multiple -// lexers for more code clearity. -// -// Mail me (elias users sf net) for any bugs. - -// Folding only works for simple things like functions or types. - -// You may want to have a look at my ctags lexer as well, if you additionally to coloring -// and folding need to extract things like label tags in your editor. - -#include -#include -#include -#include -#include -#include - -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" -#include "OptionSet.h" -#include "DefaultLexer.h" - -using namespace Scintilla; - -/* Bits: - * 1 - whitespace - * 2 - operator - * 4 - identifier - * 8 - decimal digit - * 16 - hex digit - * 32 - bin digit - * 64 - letter - */ -static int character_classification[128] = -{ - 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 1, 2, 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 10, 2, - 60, 60, 28, 28, 28, 28, 28, 28, 28, 28, 2, 2, 2, 2, 2, 2, - 2, 84, 84, 84, 84, 84, 84, 68, 68, 68, 68, 68, 68, 68, 68, 68, - 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 2, 2, 2, 2, 68, - 2, 84, 84, 84, 84, 84, 84, 68, 68, 68, 68, 68, 68, 68, 68, 68, - 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 2, 2, 2, 2, 0 -}; - -static bool IsSpace(int c) { - return c < 128 && (character_classification[c] & 1); -} - -static bool IsOperator(int c) { - return c < 128 && (character_classification[c] & 2); -} - -static bool IsIdentifier(int c) { - return c < 128 && (character_classification[c] & 4); -} - -static bool IsDigit(int c) { - return c < 128 && (character_classification[c] & 8); -} - -static bool IsHexDigit(int c) { - return c < 128 && (character_classification[c] & 16); -} - -static bool IsBinDigit(int c) { - return c < 128 && (character_classification[c] & 32); -} - -static bool IsLetter(int c) { - return c < 128 && (character_classification[c] & 64); -} - -static int LowerCase(int c) -{ - if (c >= 'A' && c <= 'Z') - return 'a' + c - 'A'; - return c; -} - -static int CheckBlitzFoldPoint(char const *token, int &level) { - if (!strcmp(token, "function") || - !strcmp(token, "type")) { - level |= SC_FOLDLEVELHEADERFLAG; - return 1; - } - if (!strcmp(token, "end function") || - !strcmp(token, "end type")) { - return -1; - } - return 0; -} - -static int CheckPureFoldPoint(char const *token, int &level) { - if (!strcmp(token, "procedure") || - !strcmp(token, "enumeration") || - !strcmp(token, "interface") || - !strcmp(token, "structure")) { - level |= SC_FOLDLEVELHEADERFLAG; - return 1; - } - if (!strcmp(token, "endprocedure") || - !strcmp(token, "endenumeration") || - !strcmp(token, "endinterface") || - !strcmp(token, "endstructure")) { - return -1; - } - return 0; -} - -static int CheckFreeFoldPoint(char const *token, int &level) { - if (!strcmp(token, "function") || - !strcmp(token, "sub") || - !strcmp(token, "enum") || - !strcmp(token, "type") || - !strcmp(token, "union") || - !strcmp(token, "property") || - !strcmp(token, "destructor") || - !strcmp(token, "constructor")) { - level |= SC_FOLDLEVELHEADERFLAG; - return 1; - } - if (!strcmp(token, "end function") || - !strcmp(token, "end sub") || - !strcmp(token, "end enum") || - !strcmp(token, "end type") || - !strcmp(token, "end union") || - !strcmp(token, "end property") || - !strcmp(token, "end destructor") || - !strcmp(token, "end constructor")) { - return -1; - } - return 0; -} - -// An individual named option for use in an OptionSet - -// Options used for LexerBasic -struct OptionsBasic { - bool fold; - bool foldSyntaxBased; - bool foldCommentExplicit; - std::string foldExplicitStart; - std::string foldExplicitEnd; - bool foldExplicitAnywhere; - bool foldCompact; - OptionsBasic() { - fold = false; - foldSyntaxBased = true; - foldCommentExplicit = false; - foldExplicitStart = ""; - foldExplicitEnd = ""; - foldExplicitAnywhere = false; - foldCompact = true; - } -}; - -static const char * const blitzbasicWordListDesc[] = { - "BlitzBasic Keywords", - "user1", - "user2", - "user3", - 0 -}; - -static const char * const purebasicWordListDesc[] = { - "PureBasic Keywords", - "PureBasic PreProcessor Keywords", - "user defined 1", - "user defined 2", - 0 -}; - -static const char * const freebasicWordListDesc[] = { - "FreeBasic Keywords", - "FreeBasic PreProcessor Keywords", - "user defined 1", - "user defined 2", - 0 -}; - -struct OptionSetBasic : public OptionSet { - OptionSetBasic(const char * const wordListDescriptions[]) { - DefineProperty("fold", &OptionsBasic::fold); - - DefineProperty("fold.basic.syntax.based", &OptionsBasic::foldSyntaxBased, - "Set this property to 0 to disable syntax based folding."); - - DefineProperty("fold.basic.comment.explicit", &OptionsBasic::foldCommentExplicit, - "This option enables folding explicit fold points when using the Basic lexer. " - "Explicit fold points allows adding extra folding by placing a ;{ (BB/PB) or '{ (FB) comment at the start " - "and a ;} (BB/PB) or '} (FB) at the end of a section that should be folded."); - - DefineProperty("fold.basic.explicit.start", &OptionsBasic::foldExplicitStart, - "The string to use for explicit fold start points, replacing the standard ;{ (BB/PB) or '{ (FB)."); - - DefineProperty("fold.basic.explicit.end", &OptionsBasic::foldExplicitEnd, - "The string to use for explicit fold end points, replacing the standard ;} (BB/PB) or '} (FB)."); - - DefineProperty("fold.basic.explicit.anywhere", &OptionsBasic::foldExplicitAnywhere, - "Set this property to 1 to enable explicit fold points anywhere, not just in line comments."); - - DefineProperty("fold.compact", &OptionsBasic::foldCompact); - - DefineWordListSets(wordListDescriptions); - } -}; - -class LexerBasic : public DefaultLexer { - char comment_char; - int (*CheckFoldPoint)(char const *, int &); - WordList keywordlists[4]; - OptionsBasic options; - OptionSetBasic osBasic; -public: - LexerBasic(char comment_char_, int (*CheckFoldPoint_)(char const *, int &), const char * const wordListDescriptions[]) : - comment_char(comment_char_), - CheckFoldPoint(CheckFoldPoint_), - osBasic(wordListDescriptions) { - } - virtual ~LexerBasic() { - } - void SCI_METHOD Release() override { - delete this; - } - int SCI_METHOD Version() const override { - return lvOriginal; - } - const char * SCI_METHOD PropertyNames() override { - return osBasic.PropertyNames(); - } - int SCI_METHOD PropertyType(const char *name) override { - return osBasic.PropertyType(name); - } - const char * SCI_METHOD DescribeProperty(const char *name) override { - return osBasic.DescribeProperty(name); - } - Sci_Position SCI_METHOD PropertySet(const char *key, const char *val) override; - const char * SCI_METHOD DescribeWordListSets() override { - return osBasic.DescribeWordListSets(); - } - Sci_Position SCI_METHOD WordListSet(int n, const char *wl) override; - void SCI_METHOD Lex(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) override; - void SCI_METHOD Fold(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) override; - - void * SCI_METHOD PrivateCall(int, void *) override { - return 0; - } - static ILexer *LexerFactoryBlitzBasic() { - return new LexerBasic(';', CheckBlitzFoldPoint, blitzbasicWordListDesc); - } - static ILexer *LexerFactoryPureBasic() { - return new LexerBasic(';', CheckPureFoldPoint, purebasicWordListDesc); - } - static ILexer *LexerFactoryFreeBasic() { - return new LexerBasic('\'', CheckFreeFoldPoint, freebasicWordListDesc ); - } -}; - -Sci_Position SCI_METHOD LexerBasic::PropertySet(const char *key, const char *val) { - if (osBasic.PropertySet(&options, key, val)) { - return 0; - } - return -1; -} - -Sci_Position SCI_METHOD LexerBasic::WordListSet(int n, const char *wl) { - WordList *wordListN = 0; - switch (n) { - case 0: - wordListN = &keywordlists[0]; - break; - case 1: - wordListN = &keywordlists[1]; - break; - case 2: - wordListN = &keywordlists[2]; - break; - case 3: - wordListN = &keywordlists[3]; - break; - } - Sci_Position firstModification = -1; - if (wordListN) { - WordList wlNew; - wlNew.Set(wl); - if (*wordListN != wlNew) { - wordListN->Set(wl); - firstModification = 0; - } - } - return firstModification; -} - -void SCI_METHOD LexerBasic::Lex(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) { - LexAccessor styler(pAccess); - - bool wasfirst = true, isfirst = true; // true if first token in a line - styler.StartAt(startPos); - int styleBeforeKeyword = SCE_B_DEFAULT; - - StyleContext sc(startPos, length, initStyle, styler); - - // Can't use sc.More() here else we miss the last character - for (; ; sc.Forward()) { - if (sc.state == SCE_B_IDENTIFIER) { - if (!IsIdentifier(sc.ch)) { - // Labels - if (wasfirst && sc.Match(':')) { - sc.ChangeState(SCE_B_LABEL); - sc.ForwardSetState(SCE_B_DEFAULT); - } else { - char s[100]; - int kstates[4] = { - SCE_B_KEYWORD, - SCE_B_KEYWORD2, - SCE_B_KEYWORD3, - SCE_B_KEYWORD4, - }; - sc.GetCurrentLowered(s, sizeof(s)); - for (int i = 0; i < 4; i++) { - if (keywordlists[i].InList(s)) { - sc.ChangeState(kstates[i]); - } - } - // Types, must set them as operator else they will be - // matched as number/constant - if (sc.Match('.') || sc.Match('$') || sc.Match('%') || - sc.Match('#')) { - sc.SetState(SCE_B_OPERATOR); - } else { - sc.SetState(SCE_B_DEFAULT); - } - } - } - } else if (sc.state == SCE_B_OPERATOR) { - if (!IsOperator(sc.ch) || sc.Match('#')) - sc.SetState(SCE_B_DEFAULT); - } else if (sc.state == SCE_B_LABEL) { - if (!IsIdentifier(sc.ch)) - sc.SetState(SCE_B_DEFAULT); - } else if (sc.state == SCE_B_CONSTANT) { - if (!IsIdentifier(sc.ch)) - sc.SetState(SCE_B_DEFAULT); - } else if (sc.state == SCE_B_NUMBER) { - if (!IsDigit(sc.ch)) - sc.SetState(SCE_B_DEFAULT); - } else if (sc.state == SCE_B_HEXNUMBER) { - if (!IsHexDigit(sc.ch)) - sc.SetState(SCE_B_DEFAULT); - } else if (sc.state == SCE_B_BINNUMBER) { - if (!IsBinDigit(sc.ch)) - sc.SetState(SCE_B_DEFAULT); - } else if (sc.state == SCE_B_STRING) { - if (sc.ch == '"') { - sc.ForwardSetState(SCE_B_DEFAULT); - } - if (sc.atLineEnd) { - sc.ChangeState(SCE_B_ERROR); - sc.SetState(SCE_B_DEFAULT); - } - } else if (sc.state == SCE_B_COMMENT || sc.state == SCE_B_PREPROCESSOR) { - if (sc.atLineEnd) { - sc.SetState(SCE_B_DEFAULT); - } - } else if (sc.state == SCE_B_DOCLINE) { - if (sc.atLineEnd) { - sc.SetState(SCE_B_DEFAULT); - } else if (sc.ch == '\\' || sc.ch == '@') { - if (IsLetter(sc.chNext) && sc.chPrev != '\\') { - styleBeforeKeyword = sc.state; - sc.SetState(SCE_B_DOCKEYWORD); - }; - } - } else if (sc.state == SCE_B_DOCKEYWORD) { - if (IsSpace(sc.ch)) { - sc.SetState(styleBeforeKeyword); - } else if (sc.atLineEnd && styleBeforeKeyword == SCE_B_DOCLINE) { - sc.SetState(SCE_B_DEFAULT); - } - } else if (sc.state == SCE_B_COMMENTBLOCK) { - if (sc.Match("\'/")) { - sc.Forward(); - sc.ForwardSetState(SCE_B_DEFAULT); - } - } else if (sc.state == SCE_B_DOCBLOCK) { - if (sc.Match("\'/")) { - sc.Forward(); - sc.ForwardSetState(SCE_B_DEFAULT); - } else if (sc.ch == '\\' || sc.ch == '@') { - if (IsLetter(sc.chNext) && sc.chPrev != '\\') { - styleBeforeKeyword = sc.state; - sc.SetState(SCE_B_DOCKEYWORD); - }; - } - } - - if (sc.atLineStart) - isfirst = true; - - if (sc.state == SCE_B_DEFAULT || sc.state == SCE_B_ERROR) { - if (isfirst && sc.Match('.') && comment_char != '\'') { - sc.SetState(SCE_B_LABEL); - } else if (isfirst && sc.Match('#')) { - wasfirst = isfirst; - sc.SetState(SCE_B_IDENTIFIER); - } else if (sc.Match(comment_char)) { - // Hack to make deprecated QBASIC '$Include show - // up in freebasic with SCE_B_PREPROCESSOR. - if (comment_char == '\'' && sc.Match(comment_char, '$')) - sc.SetState(SCE_B_PREPROCESSOR); - else if (sc.Match("\'*") || sc.Match("\'!")) { - sc.SetState(SCE_B_DOCLINE); - } else { - sc.SetState(SCE_B_COMMENT); - } - } else if (sc.Match("/\'")) { - if (sc.Match("/\'*") || sc.Match("/\'!")) { // Support of gtk-doc/Doxygen doc. style - sc.SetState(SCE_B_DOCBLOCK); - } else { - sc.SetState(SCE_B_COMMENTBLOCK); - } - sc.Forward(); // Eat the ' so it isn't used for the end of the comment - } else if (sc.Match('"')) { - sc.SetState(SCE_B_STRING); - } else if (IsDigit(sc.ch)) { - sc.SetState(SCE_B_NUMBER); - } else if (sc.Match('$') || sc.Match("&h") || sc.Match("&H") || sc.Match("&o") || sc.Match("&O")) { - sc.SetState(SCE_B_HEXNUMBER); - } else if (sc.Match('%') || sc.Match("&b") || sc.Match("&B")) { - sc.SetState(SCE_B_BINNUMBER); - } else if (sc.Match('#')) { - sc.SetState(SCE_B_CONSTANT); - } else if (IsOperator(sc.ch)) { - sc.SetState(SCE_B_OPERATOR); - } else if (IsIdentifier(sc.ch)) { - wasfirst = isfirst; - sc.SetState(SCE_B_IDENTIFIER); - } else if (!IsSpace(sc.ch)) { - sc.SetState(SCE_B_ERROR); - } - } - - if (!IsSpace(sc.ch)) - isfirst = false; - - if (!sc.More()) - break; - } - sc.Complete(); -} - - -void SCI_METHOD LexerBasic::Fold(Sci_PositionU startPos, Sci_Position length, int /* initStyle */, IDocument *pAccess) { - - if (!options.fold) - return; - - LexAccessor styler(pAccess); - - Sci_Position line = styler.GetLine(startPos); - int level = styler.LevelAt(line); - int go = 0, done = 0; - Sci_Position endPos = startPos + length; - char word[256]; - int wordlen = 0; - const bool userDefinedFoldMarkers = !options.foldExplicitStart.empty() && !options.foldExplicitEnd.empty(); - int cNext = styler[startPos]; - - // Scan for tokens at the start of the line (they may include - // whitespace, for tokens like "End Function" - for (Sci_Position i = startPos; i < endPos; i++) { - int c = cNext; - cNext = styler.SafeGetCharAt(i + 1); - bool atEOL = (c == '\r' && cNext != '\n') || (c == '\n'); - if (options.foldSyntaxBased && !done && !go) { - if (wordlen) { // are we scanning a token already? - word[wordlen] = static_cast(LowerCase(c)); - if (!IsIdentifier(c)) { // done with token - word[wordlen] = '\0'; - go = CheckFoldPoint(word, level); - if (!go) { - // Treat any whitespace as single blank, for - // things like "End Function". - if (IsSpace(c) && IsIdentifier(word[wordlen - 1])) { - word[wordlen] = ' '; - if (wordlen < 255) - wordlen++; - } - else // done with this line - done = 1; - } - } else if (wordlen < 255) { - wordlen++; - } - } else { // start scanning at first non-whitespace character - if (!IsSpace(c)) { - if (IsIdentifier(c)) { - word[0] = static_cast(LowerCase(c)); - wordlen = 1; - } else // done with this line - done = 1; - } - } - } - if (options.foldCommentExplicit && ((styler.StyleAt(i) == SCE_B_COMMENT) || options.foldExplicitAnywhere)) { - if (userDefinedFoldMarkers) { - if (styler.Match(i, options.foldExplicitStart.c_str())) { - level |= SC_FOLDLEVELHEADERFLAG; - go = 1; - } else if (styler.Match(i, options.foldExplicitEnd.c_str())) { - go = -1; - } - } else { - if (c == comment_char) { - if (cNext == '{') { - level |= SC_FOLDLEVELHEADERFLAG; - go = 1; - } else if (cNext == '}') { - go = -1; - } - } - } - } - if (atEOL) { // line end - if (!done && wordlen == 0 && options.foldCompact) // line was only space - level |= SC_FOLDLEVELWHITEFLAG; - if (level != styler.LevelAt(line)) - styler.SetLevel(line, level); - level += go; - line++; - // reset state - wordlen = 0; - level &= ~SC_FOLDLEVELHEADERFLAG; - level &= ~SC_FOLDLEVELWHITEFLAG; - go = 0; - done = 0; - } - } -} - -LexerModule lmBlitzBasic(SCLEX_BLITZBASIC, LexerBasic::LexerFactoryBlitzBasic, "blitzbasic", blitzbasicWordListDesc); - -LexerModule lmPureBasic(SCLEX_PUREBASIC, LexerBasic::LexerFactoryPureBasic, "purebasic", purebasicWordListDesc); - -LexerModule lmFreeBasic(SCLEX_FREEBASIC, LexerBasic::LexerFactoryFreeBasic, "freebasic", freebasicWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexBatch.cpp b/libs/qscintilla/scintilla/lexers/LexBatch.cpp deleted file mode 100644 index db7e3768..00000000 --- a/libs/qscintilla/scintilla/lexers/LexBatch.cpp +++ /dev/null @@ -1,498 +0,0 @@ -// Scintilla source code edit control -/** @file LexBatch.cxx - ** Lexer for batch files. - **/ -// Copyright 1998-2001 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static bool Is0To9(char ch) { - return (ch >= '0') && (ch <= '9'); -} - -static bool IsAlphabetic(int ch) { - return IsASCII(ch) && isalpha(ch); -} - -static inline bool AtEOL(Accessor &styler, Sci_PositionU i) { - return (styler[i] == '\n') || - ((styler[i] == '\r') && (styler.SafeGetCharAt(i + 1) != '\n')); -} - -// Tests for BATCH Operators -static bool IsBOperator(char ch) { - return (ch == '=') || (ch == '+') || (ch == '>') || (ch == '<') || - (ch == '|') || (ch == '?') || (ch == '*'); -} - -// Tests for BATCH Separators -static bool IsBSeparator(char ch) { - return (ch == '\\') || (ch == '.') || (ch == ';') || - (ch == '\"') || (ch == '\'') || (ch == '/'); -} - -static void ColouriseBatchLine( - char *lineBuffer, - Sci_PositionU lengthLine, - Sci_PositionU startLine, - Sci_PositionU endPos, - WordList *keywordlists[], - Accessor &styler) { - - Sci_PositionU offset = 0; // Line Buffer Offset - Sci_PositionU cmdLoc; // External Command / Program Location - char wordBuffer[81]; // Word Buffer - large to catch long paths - Sci_PositionU wbl; // Word Buffer Length - Sci_PositionU wbo; // Word Buffer Offset - also Special Keyword Buffer Length - WordList &keywords = *keywordlists[0]; // Internal Commands - WordList &keywords2 = *keywordlists[1]; // External Commands (optional) - - // CHOICE, ECHO, GOTO, PROMPT and SET have Default Text that may contain Regular Keywords - // Toggling Regular Keyword Checking off improves readability - // Other Regular Keywords and External Commands / Programs might also benefit from toggling - // Need a more robust algorithm to properly toggle Regular Keyword Checking - bool continueProcessing = true; // Used to toggle Regular Keyword Checking - // Special Keywords are those that allow certain characters without whitespace after the command - // Examples are: cd. cd\ md. rd. dir| dir> echo: echo. path= - // Special Keyword Buffer used to determine if the first n characters is a Keyword - char sKeywordBuffer[10]; // Special Keyword Buffer - bool sKeywordFound; // Exit Special Keyword for-loop if found - - // Skip initial spaces - while ((offset < lengthLine) && (isspacechar(lineBuffer[offset]))) { - offset++; - } - // Colorize Default Text - styler.ColourTo(startLine + offset - 1, SCE_BAT_DEFAULT); - // Set External Command / Program Location - cmdLoc = offset; - - // Check for Fake Label (Comment) or Real Label - return if found - if (lineBuffer[offset] == ':') { - if (lineBuffer[offset + 1] == ':') { - // Colorize Fake Label (Comment) - :: is similar to REM, see http://content.techweb.com/winmag/columns/explorer/2000/21.htm - styler.ColourTo(endPos, SCE_BAT_COMMENT); - } else { - // Colorize Real Label - styler.ColourTo(endPos, SCE_BAT_LABEL); - } - return; - // Check for Drive Change (Drive Change is internal command) - return if found - } else if ((IsAlphabetic(lineBuffer[offset])) && - (lineBuffer[offset + 1] == ':') && - ((isspacechar(lineBuffer[offset + 2])) || - (((lineBuffer[offset + 2] == '\\')) && - (isspacechar(lineBuffer[offset + 3]))))) { - // Colorize Regular Keyword - styler.ColourTo(endPos, SCE_BAT_WORD); - return; - } - - // Check for Hide Command (@ECHO OFF/ON) - if (lineBuffer[offset] == '@') { - styler.ColourTo(startLine + offset, SCE_BAT_HIDE); - offset++; - } - // Skip next spaces - while ((offset < lengthLine) && (isspacechar(lineBuffer[offset]))) { - offset++; - } - - // Read remainder of line word-at-a-time or remainder-of-word-at-a-time - while (offset < lengthLine) { - if (offset > startLine) { - // Colorize Default Text - styler.ColourTo(startLine + offset - 1, SCE_BAT_DEFAULT); - } - // Copy word from Line Buffer into Word Buffer - wbl = 0; - for (; offset < lengthLine && wbl < 80 && - !isspacechar(lineBuffer[offset]); wbl++, offset++) { - wordBuffer[wbl] = static_cast(tolower(lineBuffer[offset])); - } - wordBuffer[wbl] = '\0'; - wbo = 0; - - // Check for Comment - return if found - if (CompareCaseInsensitive(wordBuffer, "rem") == 0) { - styler.ColourTo(endPos, SCE_BAT_COMMENT); - return; - } - // Check for Separator - if (IsBSeparator(wordBuffer[0])) { - // Check for External Command / Program - if ((cmdLoc == offset - wbl) && - ((wordBuffer[0] == ':') || - (wordBuffer[0] == '\\') || - (wordBuffer[0] == '.'))) { - // Reset Offset to re-process remainder of word - offset -= (wbl - 1); - // Colorize External Command / Program - if (!keywords2) { - styler.ColourTo(startLine + offset - 1, SCE_BAT_COMMAND); - } else if (keywords2.InList(wordBuffer)) { - styler.ColourTo(startLine + offset - 1, SCE_BAT_COMMAND); - } else { - styler.ColourTo(startLine + offset - 1, SCE_BAT_DEFAULT); - } - // Reset External Command / Program Location - cmdLoc = offset; - } else { - // Reset Offset to re-process remainder of word - offset -= (wbl - 1); - // Colorize Default Text - styler.ColourTo(startLine + offset - 1, SCE_BAT_DEFAULT); - } - // Check for Regular Keyword in list - } else if ((keywords.InList(wordBuffer)) && - (continueProcessing)) { - // ECHO, GOTO, PROMPT and SET require no further Regular Keyword Checking - if ((CompareCaseInsensitive(wordBuffer, "echo") == 0) || - (CompareCaseInsensitive(wordBuffer, "goto") == 0) || - (CompareCaseInsensitive(wordBuffer, "prompt") == 0) || - (CompareCaseInsensitive(wordBuffer, "set") == 0)) { - continueProcessing = false; - } - // Identify External Command / Program Location for ERRORLEVEL, and EXIST - if ((CompareCaseInsensitive(wordBuffer, "errorlevel") == 0) || - (CompareCaseInsensitive(wordBuffer, "exist") == 0)) { - // Reset External Command / Program Location - cmdLoc = offset; - // Skip next spaces - while ((cmdLoc < lengthLine) && - (isspacechar(lineBuffer[cmdLoc]))) { - cmdLoc++; - } - // Skip comparison - while ((cmdLoc < lengthLine) && - (!isspacechar(lineBuffer[cmdLoc]))) { - cmdLoc++; - } - // Skip next spaces - while ((cmdLoc < lengthLine) && - (isspacechar(lineBuffer[cmdLoc]))) { - cmdLoc++; - } - // Identify External Command / Program Location for CALL, DO, LOADHIGH and LH - } else if ((CompareCaseInsensitive(wordBuffer, "call") == 0) || - (CompareCaseInsensitive(wordBuffer, "do") == 0) || - (CompareCaseInsensitive(wordBuffer, "loadhigh") == 0) || - (CompareCaseInsensitive(wordBuffer, "lh") == 0)) { - // Reset External Command / Program Location - cmdLoc = offset; - // Skip next spaces - while ((cmdLoc < lengthLine) && - (isspacechar(lineBuffer[cmdLoc]))) { - cmdLoc++; - } - } - // Colorize Regular keyword - styler.ColourTo(startLine + offset - 1, SCE_BAT_WORD); - // No need to Reset Offset - // Check for Special Keyword in list, External Command / Program, or Default Text - } else if ((wordBuffer[0] != '%') && - (wordBuffer[0] != '!') && - (!IsBOperator(wordBuffer[0])) && - (continueProcessing)) { - // Check for Special Keyword - // Affected Commands are in Length range 2-6 - // Good that ERRORLEVEL, EXIST, CALL, DO, LOADHIGH, and LH are unaffected - sKeywordFound = false; - for (Sci_PositionU keywordLength = 2; keywordLength < wbl && keywordLength < 7 && !sKeywordFound; keywordLength++) { - wbo = 0; - // Copy Keyword Length from Word Buffer into Special Keyword Buffer - for (; wbo < keywordLength; wbo++) { - sKeywordBuffer[wbo] = static_cast(wordBuffer[wbo]); - } - sKeywordBuffer[wbo] = '\0'; - // Check for Special Keyword in list - if ((keywords.InList(sKeywordBuffer)) && - ((IsBOperator(wordBuffer[wbo])) || - (IsBSeparator(wordBuffer[wbo])))) { - sKeywordFound = true; - // ECHO requires no further Regular Keyword Checking - if (CompareCaseInsensitive(sKeywordBuffer, "echo") == 0) { - continueProcessing = false; - } - // Colorize Special Keyword as Regular Keyword - styler.ColourTo(startLine + offset - 1 - (wbl - wbo), SCE_BAT_WORD); - // Reset Offset to re-process remainder of word - offset -= (wbl - wbo); - } - } - // Check for External Command / Program or Default Text - if (!sKeywordFound) { - wbo = 0; - // Check for External Command / Program - if (cmdLoc == offset - wbl) { - // Read up to %, Operator or Separator - while ((wbo < wbl) && - (wordBuffer[wbo] != '%') && - (wordBuffer[wbo] != '!') && - (!IsBOperator(wordBuffer[wbo])) && - (!IsBSeparator(wordBuffer[wbo]))) { - wbo++; - } - // Reset External Command / Program Location - cmdLoc = offset - (wbl - wbo); - // Reset Offset to re-process remainder of word - offset -= (wbl - wbo); - // CHOICE requires no further Regular Keyword Checking - if (CompareCaseInsensitive(wordBuffer, "choice") == 0) { - continueProcessing = false; - } - // Check for START (and its switches) - What follows is External Command \ Program - if (CompareCaseInsensitive(wordBuffer, "start") == 0) { - // Reset External Command / Program Location - cmdLoc = offset; - // Skip next spaces - while ((cmdLoc < lengthLine) && - (isspacechar(lineBuffer[cmdLoc]))) { - cmdLoc++; - } - // Reset External Command / Program Location if command switch detected - if (lineBuffer[cmdLoc] == '/') { - // Skip command switch - while ((cmdLoc < lengthLine) && - (!isspacechar(lineBuffer[cmdLoc]))) { - cmdLoc++; - } - // Skip next spaces - while ((cmdLoc < lengthLine) && - (isspacechar(lineBuffer[cmdLoc]))) { - cmdLoc++; - } - } - } - // Colorize External Command / Program - if (!keywords2) { - styler.ColourTo(startLine + offset - 1, SCE_BAT_COMMAND); - } else if (keywords2.InList(wordBuffer)) { - styler.ColourTo(startLine + offset - 1, SCE_BAT_COMMAND); - } else { - styler.ColourTo(startLine + offset - 1, SCE_BAT_DEFAULT); - } - // No need to Reset Offset - // Check for Default Text - } else { - // Read up to %, Operator or Separator - while ((wbo < wbl) && - (wordBuffer[wbo] != '%') && - (wordBuffer[wbo] != '!') && - (!IsBOperator(wordBuffer[wbo])) && - (!IsBSeparator(wordBuffer[wbo]))) { - wbo++; - } - // Colorize Default Text - styler.ColourTo(startLine + offset - 1 - (wbl - wbo), SCE_BAT_DEFAULT); - // Reset Offset to re-process remainder of word - offset -= (wbl - wbo); - } - } - // Check for Argument (%n), Environment Variable (%x...%) or Local Variable (%%a) - } else if (wordBuffer[0] == '%') { - // Colorize Default Text - styler.ColourTo(startLine + offset - 1 - wbl, SCE_BAT_DEFAULT); - wbo++; - // Search to end of word for second % (can be a long path) - while ((wbo < wbl) && - (wordBuffer[wbo] != '%') && - (!IsBOperator(wordBuffer[wbo])) && - (!IsBSeparator(wordBuffer[wbo]))) { - wbo++; - } - // Check for Argument (%n) or (%*) - if (((Is0To9(wordBuffer[1])) || (wordBuffer[1] == '*')) && - (wordBuffer[wbo] != '%')) { - // Check for External Command / Program - if (cmdLoc == offset - wbl) { - cmdLoc = offset - (wbl - 2); - } - // Colorize Argument - styler.ColourTo(startLine + offset - 1 - (wbl - 2), SCE_BAT_IDENTIFIER); - // Reset Offset to re-process remainder of word - offset -= (wbl - 2); - // Check for Expanded Argument (%~...) / Variable (%%~...) - } else if (((wbl > 1) && (wordBuffer[1] == '~')) || - ((wbl > 2) && (wordBuffer[1] == '%') && (wordBuffer[2] == '~'))) { - // Check for External Command / Program - if (cmdLoc == offset - wbl) { - cmdLoc = offset - (wbl - wbo); - } - // Colorize Expanded Argument / Variable - styler.ColourTo(startLine + offset - 1 - (wbl - wbo), SCE_BAT_IDENTIFIER); - // Reset Offset to re-process remainder of word - offset -= (wbl - wbo); - // Check for Environment Variable (%x...%) - } else if ((wordBuffer[1] != '%') && - (wordBuffer[wbo] == '%')) { - wbo++; - // Check for External Command / Program - if (cmdLoc == offset - wbl) { - cmdLoc = offset - (wbl - wbo); - } - // Colorize Environment Variable - styler.ColourTo(startLine + offset - 1 - (wbl - wbo), SCE_BAT_IDENTIFIER); - // Reset Offset to re-process remainder of word - offset -= (wbl - wbo); - // Check for Local Variable (%%a) - } else if ( - (wbl > 2) && - (wordBuffer[1] == '%') && - (wordBuffer[2] != '%') && - (!IsBOperator(wordBuffer[2])) && - (!IsBSeparator(wordBuffer[2]))) { - // Check for External Command / Program - if (cmdLoc == offset - wbl) { - cmdLoc = offset - (wbl - 3); - } - // Colorize Local Variable - styler.ColourTo(startLine + offset - 1 - (wbl - 3), SCE_BAT_IDENTIFIER); - // Reset Offset to re-process remainder of word - offset -= (wbl - 3); - } - // Check for Environment Variable (!x...!) - } else if (wordBuffer[0] == '!') { - // Colorize Default Text - styler.ColourTo(startLine + offset - 1 - wbl, SCE_BAT_DEFAULT); - wbo++; - // Search to end of word for second ! (can be a long path) - while ((wbo < wbl) && - (wordBuffer[wbo] != '!') && - (!IsBOperator(wordBuffer[wbo])) && - (!IsBSeparator(wordBuffer[wbo]))) { - wbo++; - } - if (wordBuffer[wbo] == '!') { - wbo++; - // Check for External Command / Program - if (cmdLoc == offset - wbl) { - cmdLoc = offset - (wbl - wbo); - } - // Colorize Environment Variable - styler.ColourTo(startLine + offset - 1 - (wbl - wbo), SCE_BAT_IDENTIFIER); - // Reset Offset to re-process remainder of word - offset -= (wbl - wbo); - } - // Check for Operator - } else if (IsBOperator(wordBuffer[0])) { - // Colorize Default Text - styler.ColourTo(startLine + offset - 1 - wbl, SCE_BAT_DEFAULT); - // Check for Comparison Operator - if ((wordBuffer[0] == '=') && (wordBuffer[1] == '=')) { - // Identify External Command / Program Location for IF - cmdLoc = offset; - // Skip next spaces - while ((cmdLoc < lengthLine) && - (isspacechar(lineBuffer[cmdLoc]))) { - cmdLoc++; - } - // Colorize Comparison Operator - styler.ColourTo(startLine + offset - 1 - (wbl - 2), SCE_BAT_OPERATOR); - // Reset Offset to re-process remainder of word - offset -= (wbl - 2); - // Check for Pipe Operator - } else if (wordBuffer[0] == '|') { - // Reset External Command / Program Location - cmdLoc = offset - wbl + 1; - // Skip next spaces - while ((cmdLoc < lengthLine) && - (isspacechar(lineBuffer[cmdLoc]))) { - cmdLoc++; - } - // Colorize Pipe Operator - styler.ColourTo(startLine + offset - 1 - (wbl - 1), SCE_BAT_OPERATOR); - // Reset Offset to re-process remainder of word - offset -= (wbl - 1); - // Check for Other Operator - } else { - // Check for > Operator - if (wordBuffer[0] == '>') { - // Turn Keyword and External Command / Program checking back on - continueProcessing = true; - } - // Colorize Other Operator - styler.ColourTo(startLine + offset - 1 - (wbl - 1), SCE_BAT_OPERATOR); - // Reset Offset to re-process remainder of word - offset -= (wbl - 1); - } - // Check for Default Text - } else { - // Read up to %, Operator or Separator - while ((wbo < wbl) && - (wordBuffer[wbo] != '%') && - (wordBuffer[wbo] != '!') && - (!IsBOperator(wordBuffer[wbo])) && - (!IsBSeparator(wordBuffer[wbo]))) { - wbo++; - } - // Colorize Default Text - styler.ColourTo(startLine + offset - 1 - (wbl - wbo), SCE_BAT_DEFAULT); - // Reset Offset to re-process remainder of word - offset -= (wbl - wbo); - } - // Skip next spaces - nothing happens if Offset was Reset - while ((offset < lengthLine) && (isspacechar(lineBuffer[offset]))) { - offset++; - } - } - // Colorize Default Text for remainder of line - currently not lexed - styler.ColourTo(endPos, SCE_BAT_DEFAULT); -} - -static void ColouriseBatchDoc( - Sci_PositionU startPos, - Sci_Position length, - int /*initStyle*/, - WordList *keywordlists[], - Accessor &styler) { - - char lineBuffer[1024]; - - styler.StartAt(startPos); - styler.StartSegment(startPos); - Sci_PositionU linePos = 0; - Sci_PositionU startLine = startPos; - for (Sci_PositionU i = startPos; i < startPos + length; i++) { - lineBuffer[linePos++] = styler[i]; - if (AtEOL(styler, i) || (linePos >= sizeof(lineBuffer) - 1)) { - // End of line (or of line buffer) met, colourise it - lineBuffer[linePos] = '\0'; - ColouriseBatchLine(lineBuffer, linePos, startLine, i, keywordlists, styler); - linePos = 0; - startLine = i + 1; - } - } - if (linePos > 0) { // Last line does not have ending characters - lineBuffer[linePos] = '\0'; - ColouriseBatchLine(lineBuffer, linePos, startLine, startPos + length - 1, - keywordlists, styler); - } -} - -static const char *const batchWordListDesc[] = { - "Internal Commands", - "External Commands", - 0 -}; - -LexerModule lmBatch(SCLEX_BATCH, ColouriseBatchDoc, "batch", 0, batchWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexBibTeX.cpp b/libs/qscintilla/scintilla/lexers/LexBibTeX.cpp deleted file mode 100644 index 7e4cb9fc..00000000 --- a/libs/qscintilla/scintilla/lexers/LexBibTeX.cpp +++ /dev/null @@ -1,308 +0,0 @@ -// Copyright 2008-2010 Sergiu Dotenco. The License.txt file describes the -// conditions under which this software may be distributed. - -/** - * @file LexBibTeX.cxx - * @brief General BibTeX coloring scheme. - * @author Sergiu Dotenco - * @date April 18, 2009 - */ - -#include -#include - -#include -#include - -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "PropSetSimple.h" -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -namespace { - bool IsAlphabetic(unsigned int ch) - { - return IsASCII(ch) && std::isalpha(ch) != 0; - } - bool IsAlphaNumeric(char ch) - { - return IsASCII(ch) && std::isalnum(ch); - } - - bool EqualCaseInsensitive(const char* a, const char* b) - { - return CompareCaseInsensitive(a, b) == 0; - } - - bool EntryWithoutKey(const char* name) - { - return EqualCaseInsensitive(name,"string"); - } - - char GetClosingBrace(char openbrace) - { - char result = openbrace; - - switch (openbrace) { - case '(': result = ')'; break; - case '{': result = '}'; break; - } - - return result; - } - - bool IsEntryStart(char prev, char ch) - { - return prev != '\\' && ch == '@'; - } - - bool IsEntryStart(const StyleContext& sc) - { - return IsEntryStart(sc.chPrev, sc.ch); - } - - void ColorizeBibTeX(Sci_PositionU start_pos, Sci_Position length, int /*init_style*/, WordList* keywordlists[], Accessor& styler) - { - WordList &EntryNames = *keywordlists[0]; - bool fold_compact = styler.GetPropertyInt("fold.compact", 1) != 0; - - std::string buffer; - buffer.reserve(25); - - // We always colorize a section from the beginning, so let's - // search for the @ character which isn't escaped, i.e. \@ - while (start_pos > 0 && !IsEntryStart(styler.SafeGetCharAt(start_pos - 1), - styler.SafeGetCharAt(start_pos))) { - --start_pos; ++length; - } - - styler.StartAt(start_pos); - styler.StartSegment(start_pos); - - Sci_Position current_line = styler.GetLine(start_pos); - int prev_level = styler.LevelAt(current_line) & SC_FOLDLEVELNUMBERMASK; - int current_level = prev_level; - int visible_chars = 0; - - bool in_comment = false ; - StyleContext sc(start_pos, length, SCE_BIBTEX_DEFAULT, styler); - - bool going = sc.More(); // needed because of a fuzzy end of file state - char closing_brace = 0; - bool collect_entry_name = false; - - for (; going; sc.Forward()) { - if (!sc.More()) - going = false; // we need to go one behind the end of text - - if (in_comment) { - if (sc.atLineEnd) { - sc.SetState(SCE_BIBTEX_DEFAULT); - in_comment = false; - } - } - else { - // Found @entry - if (IsEntryStart(sc)) { - sc.SetState(SCE_BIBTEX_UNKNOWN_ENTRY); - sc.Forward(); - ++current_level; - - buffer.clear(); - collect_entry_name = true; - } - else if ((sc.state == SCE_BIBTEX_ENTRY || sc.state == SCE_BIBTEX_UNKNOWN_ENTRY) - && (sc.ch == '{' || sc.ch == '(')) { - // Entry name colorization done - // Found either a { or a ( after entry's name, e.g. @entry(...) @entry{...} - // Closing counterpart needs to be stored. - closing_brace = GetClosingBrace(sc.ch); - - sc.SetState(SCE_BIBTEX_DEFAULT); // Don't colorize { ( - - // @string doesn't have any key - if (EntryWithoutKey(buffer.c_str())) - sc.ForwardSetState(SCE_BIBTEX_PARAMETER); - else - sc.ForwardSetState(SCE_BIBTEX_KEY); // Key/label colorization - } - - // Need to handle the case where entry's key is empty - // e.g. @book{,...} - if (sc.state == SCE_BIBTEX_KEY && sc.ch == ',') { - // Key/label colorization done - sc.SetState(SCE_BIBTEX_DEFAULT); // Don't colorize the , - sc.ForwardSetState(SCE_BIBTEX_PARAMETER); // Parameter colorization - } - else if (sc.state == SCE_BIBTEX_PARAMETER && sc.ch == '=') { - sc.SetState(SCE_BIBTEX_DEFAULT); // Don't colorize the = - sc.ForwardSetState(SCE_BIBTEX_VALUE); // Parameter value colorization - - Sci_Position start = sc.currentPos; - - // We need to handle multiple situations: - // 1. name"one two {three}" - // 2. name={one {one two {two}} three} - // 3. year=2005 - - // Skip ", { until we encounter the first alphanumerical character - while (sc.More() && !(IsAlphaNumeric(sc.ch) || sc.ch == '"' || sc.ch == '{')) - sc.Forward(); - - if (sc.More()) { - // Store " or { - char ch = sc.ch; - - // Not interested in alphanumerical characters - if (IsAlphaNumeric(ch)) - ch = 0; - - int skipped = 0; - - if (ch) { - // Skip preceding " or { such as in name={{test}}. - // Remember how many characters have been skipped - // Make sure that empty values, i.e. "" are also handled correctly - while (sc.More() && (sc.ch == ch && (ch != '"' || skipped < 1))) { - sc.Forward(); - ++skipped; - } - } - - // Closing counterpart for " is the same character - if (ch == '{') - ch = '}'; - - // We have reached the parameter value - // In case the open character was a alnum char, skip until , is found - // otherwise until skipped == 0 - while (sc.More() && (skipped > 0 || (!ch && !(sc.ch == ',' || sc.ch == closing_brace)))) { - // Make sure the character isn't escaped - if (sc.chPrev != '\\') { - // Parameter value contains a { which is the 2nd case described above - if (sc.ch == '{') - ++skipped; // Remember it - else if (sc.ch == '}') - --skipped; - else if (skipped == 1 && sc.ch == ch && ch == '"') // Don't ignore cases like {"o} - skipped = 0; - } - - sc.Forward(); - } - } - - // Don't colorize the , - sc.SetState(SCE_BIBTEX_DEFAULT); - - // Skip until the , or entry's closing closing_brace is found - // since this parameter might be the last one - while (sc.More() && !(sc.ch == ',' || sc.ch == closing_brace)) - sc.Forward(); - - int state = SCE_BIBTEX_PARAMETER; // The might be more parameters - - // We've reached the closing closing_brace for the bib entry - // in case no " or {} has been used to enclose the value, - // as in 3rd case described above - if (sc.ch == closing_brace) { - --current_level; - // Make sure the text between entries is not colored - // using parameter's style - state = SCE_BIBTEX_DEFAULT; - } - - Sci_Position end = sc.currentPos; - current_line = styler.GetLine(end); - - // We have possibly skipped some lines, so the folding levels - // have to be adjusted separately - for (Sci_Position i = styler.GetLine(start); i <= styler.GetLine(end); ++i) - styler.SetLevel(i, prev_level); - - sc.ForwardSetState(state); - } - - if (sc.state == SCE_BIBTEX_PARAMETER && sc.ch == closing_brace) { - sc.SetState(SCE_BIBTEX_DEFAULT); - --current_level; - } - - // Non escaped % found which represents a comment until the end of the line - if (sc.chPrev != '\\' && sc.ch == '%') { - in_comment = true; - sc.SetState(SCE_BIBTEX_COMMENT); - } - } - - if (sc.state == SCE_BIBTEX_UNKNOWN_ENTRY || sc.state == SCE_BIBTEX_ENTRY) { - if (!IsAlphabetic(sc.ch) && collect_entry_name) - collect_entry_name = false; - - if (collect_entry_name) { - buffer += static_cast(tolower(sc.ch)); - if (EntryNames.InList(buffer.c_str())) - sc.ChangeState(SCE_BIBTEX_ENTRY); - else - sc.ChangeState(SCE_BIBTEX_UNKNOWN_ENTRY); - } - } - - if (sc.atLineEnd) { - int level = prev_level; - - if (visible_chars == 0 && fold_compact) - level |= SC_FOLDLEVELWHITEFLAG; - - if ((current_level > prev_level)) - level |= SC_FOLDLEVELHEADERFLAG; - // else if (current_level < prev_level) - // level |= SC_FOLDLEVELBOXFOOTERFLAG; // Deprecated - - if (level != styler.LevelAt(current_line)) { - styler.SetLevel(current_line, level); - } - - ++current_line; - prev_level = current_level; - visible_chars = 0; - } - - if (!isspacechar(sc.ch)) - ++visible_chars; - } - - sc.Complete(); - - // Fill in the real level of the next line, keeping the current flags as they will be filled in later - int flagsNext = styler.LevelAt(current_line) & ~SC_FOLDLEVELNUMBERMASK; - styler.SetLevel(current_line, prev_level | flagsNext); - } -} -static const char * const BibTeXWordLists[] = { - "Entry Names", - 0, -}; - - -LexerModule lmBibTeX(SCLEX_BIBTEX, ColorizeBibTeX, "bib", 0, BibTeXWordLists); - -// Entry Names -// article, book, booklet, conference, inbook, -// incollection, inproceedings, manual, mastersthesis, -// misc, phdthesis, proceedings, techreport, unpublished, -// string, url - diff --git a/libs/qscintilla/scintilla/lexers/LexBullant.cpp b/libs/qscintilla/scintilla/lexers/LexBullant.cpp deleted file mode 100644 index 2386d225..00000000 --- a/libs/qscintilla/scintilla/lexers/LexBullant.cpp +++ /dev/null @@ -1,231 +0,0 @@ -// SciTE - Scintilla based Text Editor -// LexBullant.cxx - lexer for Bullant - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static int classifyWordBullant(Sci_PositionU start, Sci_PositionU end, WordList &keywords, Accessor &styler) { - char s[100]; - s[0] = '\0'; - for (Sci_PositionU i = 0; i < end - start + 1 && i < 30; i++) { - s[i] = static_cast(tolower(styler[start + i])); - s[i + 1] = '\0'; - } - int lev= 0; - char chAttr = SCE_C_IDENTIFIER; - if (isdigit(s[0]) || (s[0] == '.')){ - chAttr = SCE_C_NUMBER; - } - else { - if (keywords.InList(s)) { - chAttr = SCE_C_WORD; - if (strcmp(s, "end") == 0) - lev = -1; - else if (strcmp(s, "method") == 0 || - strcmp(s, "case") == 0 || - strcmp(s, "class") == 0 || - strcmp(s, "debug") == 0 || - strcmp(s, "test") == 0 || - strcmp(s, "if") == 0 || - strcmp(s, "lock") == 0 || - strcmp(s, "transaction") == 0 || - strcmp(s, "trap") == 0 || - strcmp(s, "until") == 0 || - strcmp(s, "while") == 0) - lev = 1; - } - } - styler.ColourTo(end, chAttr); - return lev; -} - -static void ColouriseBullantDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, WordList *keywordlists[], - Accessor &styler) { - WordList &keywords = *keywordlists[0]; - - styler.StartAt(startPos); - - bool fold = styler.GetPropertyInt("fold") != 0; - Sci_Position lineCurrent = styler.GetLine(startPos); - int levelPrev = styler.LevelAt(lineCurrent) & SC_FOLDLEVELNUMBERMASK; - int levelCurrent = levelPrev; - - int state = initStyle; - if (state == SCE_C_STRINGEOL) // Does not leak onto next line - state = SCE_C_DEFAULT; - char chPrev = ' '; - char chNext = styler[startPos]; - Sci_PositionU lengthDoc = startPos + length; - int visibleChars = 0; - styler.StartSegment(startPos); - int endFoundThisLine = 0; - for (Sci_PositionU i = startPos; i < lengthDoc; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - - if ((ch == '\r' && chNext != '\n') || (ch == '\n')) { - // Trigger on CR only (Mac style) or either on LF from CR+LF (Dos/Win) or on LF alone (Unix) - // Avoid triggering two times on Dos/Win - // End of line - endFoundThisLine = 0; - if (state == SCE_C_STRINGEOL) { - styler.ColourTo(i, state); - state = SCE_C_DEFAULT; - } - if (fold) { - int lev = levelPrev; - if (visibleChars == 0) - lev |= SC_FOLDLEVELWHITEFLAG; - if ((levelCurrent > levelPrev) && (visibleChars > 0)) - lev |= SC_FOLDLEVELHEADERFLAG; - styler.SetLevel(lineCurrent, lev); - lineCurrent++; - levelPrev = levelCurrent; - } - visibleChars = 0; - -/* int indentBlock = GetLineIndentation(lineCurrent); - if (blockChange==1){ - lineCurrent++; - int pos=SetLineIndentation(lineCurrent, indentBlock + indentSize); - } else if (blockChange==-1) { - indentBlock -= indentSize; - if (indentBlock < 0) - indentBlock = 0; - SetLineIndentation(lineCurrent, indentBlock); - lineCurrent++; - } - blockChange=0; -*/ } - if (!(IsASCII(ch) && isspace(ch))) - visibleChars++; - - if (styler.IsLeadByte(ch)) { - chNext = styler.SafeGetCharAt(i + 2); - chPrev = ' '; - i += 1; - continue; - } - - if (state == SCE_C_DEFAULT) { - if (iswordstart(ch)) { - styler.ColourTo(i-1, state); - state = SCE_C_IDENTIFIER; - } else if (ch == '@' && chNext == 'o') { - if ((styler.SafeGetCharAt(i+2) =='f') && (styler.SafeGetCharAt(i+3) == 'f')) { - styler.ColourTo(i-1, state); - state = SCE_C_COMMENT; - } - } else if (ch == '#') { - styler.ColourTo(i-1, state); - state = SCE_C_COMMENTLINE; - } else if (ch == '\"') { - styler.ColourTo(i-1, state); - state = SCE_C_STRING; - } else if (ch == '\'') { - styler.ColourTo(i-1, state); - state = SCE_C_CHARACTER; - } else if (isoperator(ch)) { - styler.ColourTo(i-1, state); - styler.ColourTo(i, SCE_C_OPERATOR); - } - } else if (state == SCE_C_IDENTIFIER) { - if (!iswordchar(ch)) { - int levelChange = classifyWordBullant(styler.GetStartSegment(), i - 1, keywords, styler); - state = SCE_C_DEFAULT; - chNext = styler.SafeGetCharAt(i + 1); - if (ch == '#') { - state = SCE_C_COMMENTLINE; - } else if (ch == '\"') { - state = SCE_C_STRING; - } else if (ch == '\'') { - state = SCE_C_CHARACTER; - } else if (isoperator(ch)) { - styler.ColourTo(i, SCE_C_OPERATOR); - } - if (endFoundThisLine == 0) - levelCurrent+=levelChange; - if (levelChange == -1) - endFoundThisLine=1; - } - } else if (state == SCE_C_COMMENT) { - if (ch == '@' && chNext == 'o') { - if (styler.SafeGetCharAt(i+2) == 'n') { - styler.ColourTo(i+2, state); - state = SCE_C_DEFAULT; - i+=2; - } - } - } else if (state == SCE_C_COMMENTLINE) { - if (ch == '\r' || ch == '\n') { - endFoundThisLine = 0; - styler.ColourTo(i-1, state); - state = SCE_C_DEFAULT; - } - } else if (state == SCE_C_STRING) { - if (ch == '\\') { - if (chNext == '\"' || chNext == '\'' || chNext == '\\') { - i++; - ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - } - } else if (ch == '\"') { - styler.ColourTo(i, state); - state = SCE_C_DEFAULT; - } else if (chNext == '\r' || chNext == '\n') { - endFoundThisLine = 0; - styler.ColourTo(i-1, SCE_C_STRINGEOL); - state = SCE_C_STRINGEOL; - } - } else if (state == SCE_C_CHARACTER) { - if ((ch == '\r' || ch == '\n') && (chPrev != '\\')) { - endFoundThisLine = 0; - styler.ColourTo(i-1, SCE_C_STRINGEOL); - state = SCE_C_STRINGEOL; - } else if (ch == '\\') { - if (chNext == '\"' || chNext == '\'' || chNext == '\\') { - i++; - ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - } - } else if (ch == '\'') { - styler.ColourTo(i, state); - state = SCE_C_DEFAULT; - } - } - chPrev = ch; - } - styler.ColourTo(lengthDoc - 1, state); - - // Fill in the real level of the next line, keeping the current flags as they will be filled in later - if (fold) { - int flagsNext = styler.LevelAt(lineCurrent) & ~SC_FOLDLEVELNUMBERMASK; - //styler.SetLevel(lineCurrent, levelCurrent | flagsNext); - styler.SetLevel(lineCurrent, levelPrev | flagsNext); - - } -} - -static const char * const bullantWordListDesc[] = { - "Keywords", - 0 -}; - -LexerModule lmBullant(SCLEX_BULLANT, ColouriseBullantDoc, "bullant", 0, bullantWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexCLW.cpp b/libs/qscintilla/scintilla/lexers/LexCLW.cpp deleted file mode 100644 index d469d6bf..00000000 --- a/libs/qscintilla/scintilla/lexers/LexCLW.cpp +++ /dev/null @@ -1,680 +0,0 @@ -// Scintilla source code edit control -/** @file LexClw.cxx - ** Lexer for Clarion. - ** 2004/12/17 Updated Lexer - **/ -// Copyright 2003-2004 by Ron Schofield -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -// Is an end of line character -inline bool IsEOL(const int ch) { - - return(ch == '\n'); -} - -// Convert character to uppercase -static char CharacterUpper(char chChar) { - - if (chChar < 'a' || chChar > 'z') { - return(chChar); - } - else { - return(static_cast(chChar - 'a' + 'A')); - } -} - -// Convert string to uppercase -static void StringUpper(char *szString) { - - while (*szString) { - *szString = CharacterUpper(*szString); - szString++; - } -} - -// Is a label start character -inline bool IsALabelStart(const int iChar) { - - return(isalpha(iChar) || iChar == '_'); -} - -// Is a label character -inline bool IsALabelCharacter(const int iChar) { - - return(isalnum(iChar) || iChar == '_' || iChar == ':'); -} - -// Is the character is a ! and the the next character is not a ! -inline bool IsACommentStart(const int iChar) { - - return(iChar == '!'); -} - -// Is the character a Clarion hex character (ABCDEF) -inline bool IsAHexCharacter(const int iChar, bool bCaseSensitive) { - - // Case insensitive. - if (!bCaseSensitive) { - if (strchr("ABCDEFabcdef", iChar) != NULL) { - return(true); - } - } - // Case sensitive - else { - if (strchr("ABCDEF", iChar) != NULL) { - return(true); - } - } - return(false); -} - -// Is the character a Clarion base character (B=Binary, O=Octal, H=Hex) -inline bool IsANumericBaseCharacter(const int iChar, bool bCaseSensitive) { - - // Case insensitive. - if (!bCaseSensitive) { - // If character is a numeric base character - if (strchr("BOHboh", iChar) != NULL) { - return(true); - } - } - // Case sensitive - else { - // If character is a numeric base character - if (strchr("BOH", iChar) != NULL) { - return(true); - } - } - return(false); -} - -// Set the correct numeric constant state -inline bool SetNumericConstantState(StyleContext &scDoc) { - - int iPoints = 0; // Point counter - char cNumericString[512]; // Numeric string buffer - - // Buffer the current numberic string - scDoc.GetCurrent(cNumericString, sizeof(cNumericString)); - // Loop through the string until end of string (NULL termination) - for (int iIndex = 0; cNumericString[iIndex] != '\0'; iIndex++) { - // Depending on the character - switch (cNumericString[iIndex]) { - // Is a . (point) - case '.' : - // Increment point counter - iPoints++; - break; - default : - break; - } - } - // If points found (can be more than one for improper formatted number - if (iPoints > 0) { - return(true); - } - // Else no points found - else { - return(false); - } -} - -// Get the next word in uppercase from the current position (keyword lookahead) -inline bool GetNextWordUpper(Accessor &styler, Sci_PositionU uiStartPos, Sci_Position iLength, char *cWord) { - - Sci_PositionU iIndex = 0; // Buffer Index - - // Loop through the remaining string from the current position - for (Sci_Position iOffset = uiStartPos; iOffset < iLength; iOffset++) { - // Get the character from the buffer using the offset - char cCharacter = styler[iOffset]; - if (IsEOL(cCharacter)) { - break; - } - // If the character is alphabet character - if (isalpha(cCharacter)) { - // Add UPPERCASE character to the word buffer - cWord[iIndex++] = CharacterUpper(cCharacter); - } - } - // Add null termination - cWord[iIndex] = '\0'; - // If no word was found - if (iIndex == 0) { - // Return failure - return(false); - } - // Else word was found - else { - // Return success - return(true); - } -} - -// Clarion Language Colouring Procedure -static void ColouriseClarionDoc(Sci_PositionU uiStartPos, Sci_Position iLength, int iInitStyle, WordList *wlKeywords[], Accessor &accStyler, bool bCaseSensitive) { - - int iParenthesesLevel = 0; // Parenthese Level - int iColumn1Label = false; // Label starts in Column 1 - - WordList &wlClarionKeywords = *wlKeywords[0]; // Clarion Keywords - WordList &wlCompilerDirectives = *wlKeywords[1]; // Compiler Directives - WordList &wlRuntimeExpressions = *wlKeywords[2]; // Runtime Expressions - WordList &wlBuiltInProcsFuncs = *wlKeywords[3]; // Builtin Procedures and Functions - WordList &wlStructsDataTypes = *wlKeywords[4]; // Structures and Data Types - WordList &wlAttributes = *wlKeywords[5]; // Procedure Attributes - WordList &wlStandardEquates = *wlKeywords[6]; // Standard Equates - WordList &wlLabelReservedWords = *wlKeywords[7]; // Clarion Reserved Keywords (Labels) - WordList &wlProcLabelReservedWords = *wlKeywords[8]; // Clarion Reserved Keywords (Procedure Labels) - - const char wlProcReservedKeywordList[] = - "PROCEDURE FUNCTION"; - WordList wlProcReservedKeywords; - wlProcReservedKeywords.Set(wlProcReservedKeywordList); - - const char wlCompilerKeywordList[] = - "COMPILE OMIT"; - WordList wlCompilerKeywords; - wlCompilerKeywords.Set(wlCompilerKeywordList); - - const char wlLegacyStatementsList[] = - "BOF EOF FUNCTION POINTER SHARE"; - WordList wlLegacyStatements; - wlLegacyStatements.Set(wlLegacyStatementsList); - - StyleContext scDoc(uiStartPos, iLength, iInitStyle, accStyler); - - // lex source code - for (; scDoc.More(); scDoc.Forward()) - { - // - // Determine if the current state should terminate. - // - - // Label State Handling - if (scDoc.state == SCE_CLW_LABEL) { - // If the character is not a valid label - if (!IsALabelCharacter(scDoc.ch)) { - // If the character is a . (dot syntax) - if (scDoc.ch == '.') { - // Turn off column 1 label flag as label now cannot be reserved work - iColumn1Label = false; - // Uncolour the . (dot) to default state, move forward one character, - // and change back to the label state. - scDoc.SetState(SCE_CLW_DEFAULT); - scDoc.Forward(); - scDoc.SetState(SCE_CLW_LABEL); - } - // Else check label - else { - char cLabel[512]; // Label buffer - // Buffer the current label string - scDoc.GetCurrent(cLabel,sizeof(cLabel)); - // If case insensitive, convert string to UPPERCASE to match passed keywords. - if (!bCaseSensitive) { - StringUpper(cLabel); - } - // Else if UPPERCASE label string is in the Clarion compiler keyword list - if (wlCompilerKeywords.InList(cLabel) && iColumn1Label){ - // change the label to error state - scDoc.ChangeState(SCE_CLW_COMPILER_DIRECTIVE); - } - // Else if UPPERCASE label string is in the Clarion reserved keyword list - else if (wlLabelReservedWords.InList(cLabel) && iColumn1Label){ - // change the label to error state - scDoc.ChangeState(SCE_CLW_ERROR); - } - // Else if UPPERCASE label string is - else if (wlProcLabelReservedWords.InList(cLabel) && iColumn1Label) { - char cWord[512]; // Word buffer - // Get the next word from the current position - if (GetNextWordUpper(accStyler,scDoc.currentPos,uiStartPos+iLength,cWord)) { - // If the next word is a procedure reserved word - if (wlProcReservedKeywords.InList(cWord)) { - // Change the label to error state - scDoc.ChangeState(SCE_CLW_ERROR); - } - } - } - // Else if label string is in the compiler directive keyword list - else if (wlCompilerDirectives.InList(cLabel)) { - // change the state to compiler directive state - scDoc.ChangeState(SCE_CLW_COMPILER_DIRECTIVE); - } - // Terminate the label state and set to default state - scDoc.SetState(SCE_CLW_DEFAULT); - } - } - } - // Keyword State Handling - else if (scDoc.state == SCE_CLW_KEYWORD) { - // If character is : (colon) - if (scDoc.ch == ':') { - char cEquate[512]; // Equate buffer - // Move forward to include : (colon) in buffer - scDoc.Forward(); - // Buffer the equate string - scDoc.GetCurrent(cEquate,sizeof(cEquate)); - // If case insensitive, convert string to UPPERCASE to match passed keywords. - if (!bCaseSensitive) { - StringUpper(cEquate); - } - // If statement string is in the equate list - if (wlStandardEquates.InList(cEquate)) { - // Change to equate state - scDoc.ChangeState(SCE_CLW_STANDARD_EQUATE); - } - } - // If the character is not a valid label character - else if (!IsALabelCharacter(scDoc.ch)) { - char cStatement[512]; // Statement buffer - // Buffer the statement string - scDoc.GetCurrent(cStatement,sizeof(cStatement)); - // If case insensitive, convert string to UPPERCASE to match passed keywords. - if (!bCaseSensitive) { - StringUpper(cStatement); - } - // If statement string is in the Clarion keyword list - if (wlClarionKeywords.InList(cStatement)) { - // Change the statement string to the Clarion keyword state - scDoc.ChangeState(SCE_CLW_KEYWORD); - } - // Else if statement string is in the compiler directive keyword list - else if (wlCompilerDirectives.InList(cStatement)) { - // Change the statement string to the compiler directive state - scDoc.ChangeState(SCE_CLW_COMPILER_DIRECTIVE); - } - // Else if statement string is in the runtime expressions keyword list - else if (wlRuntimeExpressions.InList(cStatement)) { - // Change the statement string to the runtime expressions state - scDoc.ChangeState(SCE_CLW_RUNTIME_EXPRESSIONS); - } - // Else if statement string is in the builtin procedures and functions keyword list - else if (wlBuiltInProcsFuncs.InList(cStatement)) { - // Change the statement string to the builtin procedures and functions state - scDoc.ChangeState(SCE_CLW_BUILTIN_PROCEDURES_FUNCTION); - } - // Else if statement string is in the tructures and data types keyword list - else if (wlStructsDataTypes.InList(cStatement)) { - // Change the statement string to the structures and data types state - scDoc.ChangeState(SCE_CLW_STRUCTURE_DATA_TYPE); - } - // Else if statement string is in the procedure attribute keyword list - else if (wlAttributes.InList(cStatement)) { - // Change the statement string to the procedure attribute state - scDoc.ChangeState(SCE_CLW_ATTRIBUTE); - } - // Else if statement string is in the standard equate keyword list - else if (wlStandardEquates.InList(cStatement)) { - // Change the statement string to the standard equate state - scDoc.ChangeState(SCE_CLW_STANDARD_EQUATE); - } - // Else if statement string is in the deprecated or legacy keyword list - else if (wlLegacyStatements.InList(cStatement)) { - // Change the statement string to the standard equate state - scDoc.ChangeState(SCE_CLW_DEPRECATED); - } - // Else the statement string doesn't match any work list - else { - // Change the statement string to the default state - scDoc.ChangeState(SCE_CLW_DEFAULT); - } - // Terminate the keyword state and set to default state - scDoc.SetState(SCE_CLW_DEFAULT); - } - } - // String State Handling - else if (scDoc.state == SCE_CLW_STRING) { - // If the character is an ' (single quote) - if (scDoc.ch == '\'') { - // Set the state to default and move forward colouring - // the ' (single quote) as default state - // terminating the string state - scDoc.SetState(SCE_CLW_DEFAULT); - scDoc.Forward(); - } - // If the next character is an ' (single quote) - if (scDoc.chNext == '\'') { - // Move forward one character and set to default state - // colouring the next ' (single quote) as default state - // terminating the string state - scDoc.ForwardSetState(SCE_CLW_DEFAULT); - scDoc.Forward(); - } - } - // Picture String State Handling - else if (scDoc.state == SCE_CLW_PICTURE_STRING) { - // If the character is an ( (open parenthese) - if (scDoc.ch == '(') { - // Increment the parenthese level - iParenthesesLevel++; - } - // Else if the character is a ) (close parenthese) - else if (scDoc.ch == ')') { - // If the parenthese level is set to zero - // parentheses matched - if (!iParenthesesLevel) { - scDoc.SetState(SCE_CLW_DEFAULT); - } - // Else parenthese level is greater than zero - // still looking for matching parentheses - else { - // Decrement the parenthese level - iParenthesesLevel--; - } - } - } - // Standard Equate State Handling - else if (scDoc.state == SCE_CLW_STANDARD_EQUATE) { - if (!isalnum(scDoc.ch)) { - scDoc.SetState(SCE_CLW_DEFAULT); - } - } - // Integer Constant State Handling - else if (scDoc.state == SCE_CLW_INTEGER_CONSTANT) { - // If the character is not a digit (0-9) - // or character is not a hexidecimal character (A-F) - // or character is not a . (point) - // or character is not a numberic base character (B,O,H) - if (!(isdigit(scDoc.ch) - || IsAHexCharacter(scDoc.ch, bCaseSensitive) - || scDoc.ch == '.' - || IsANumericBaseCharacter(scDoc.ch, bCaseSensitive))) { - // If the number was a real - if (SetNumericConstantState(scDoc)) { - // Colour the matched string to the real constant state - scDoc.ChangeState(SCE_CLW_REAL_CONSTANT); - } - // Else the number was an integer - else { - // Colour the matched string to an integer constant state - scDoc.ChangeState(SCE_CLW_INTEGER_CONSTANT); - } - // Terminate the integer constant state and set to default state - scDoc.SetState(SCE_CLW_DEFAULT); - } - } - - // - // Determine if a new state should be entered. - // - - // Beginning of Line Handling - if (scDoc.atLineStart) { - // Reset the column 1 label flag - iColumn1Label = false; - // If column 1 character is a label start character - if (IsALabelStart(scDoc.ch)) { - // Label character is found in column 1 - // so set column 1 label flag and clear last column 1 label - iColumn1Label = true; - // Set the state to label - scDoc.SetState(SCE_CLW_LABEL); - } - // else if character is a space or tab - else if (IsASpace(scDoc.ch)){ - // Set to default state - scDoc.SetState(SCE_CLW_DEFAULT); - } - // else if comment start (!) or is an * (asterisk) - else if (IsACommentStart(scDoc.ch) || scDoc.ch == '*' ) { - // then set the state to comment. - scDoc.SetState(SCE_CLW_COMMENT); - } - // else the character is a ? (question mark) - else if (scDoc.ch == '?') { - // Change to the compiler directive state, move forward, - // colouring the ? (question mark), change back to default state. - scDoc.ChangeState(SCE_CLW_COMPILER_DIRECTIVE); - scDoc.Forward(); - scDoc.SetState(SCE_CLW_DEFAULT); - } - // else an invalid character in column 1 - else { - // Set to error state - scDoc.SetState(SCE_CLW_ERROR); - } - } - // End of Line Handling - else if (scDoc.atLineEnd) { - // Reset to the default state at the end of each line. - scDoc.SetState(SCE_CLW_DEFAULT); - } - // Default Handling - else { - // If in default state - if (scDoc.state == SCE_CLW_DEFAULT) { - // If is a letter could be a possible statement - if (isalpha(scDoc.ch)) { - // Set the state to Clarion Keyword and verify later - scDoc.SetState(SCE_CLW_KEYWORD); - } - // else is a number - else if (isdigit(scDoc.ch)) { - // Set the state to Integer Constant and verify later - scDoc.SetState(SCE_CLW_INTEGER_CONSTANT); - } - // else if the start of a comment or a | (line continuation) - else if (IsACommentStart(scDoc.ch) || scDoc.ch == '|') { - // then set the state to comment. - scDoc.SetState(SCE_CLW_COMMENT); - } - // else if the character is a ' (single quote) - else if (scDoc.ch == '\'') { - // If the character is also a ' (single quote) - // Embedded Apostrophe - if (scDoc.chNext == '\'') { - // Move forward colouring it as default state - scDoc.ForwardSetState(SCE_CLW_DEFAULT); - } - else { - // move to the next character and then set the state to comment. - scDoc.ForwardSetState(SCE_CLW_STRING); - } - } - // else the character is an @ (ampersand) - else if (scDoc.ch == '@') { - // Case insensitive. - if (!bCaseSensitive) { - // If character is a valid picture token character - if (strchr("DEKNPSTdeknpst", scDoc.chNext) != NULL) { - // Set to the picture string state - scDoc.SetState(SCE_CLW_PICTURE_STRING); - } - } - // Case sensitive - else { - // If character is a valid picture token character - if (strchr("DEKNPST", scDoc.chNext) != NULL) { - // Set the picture string state - scDoc.SetState(SCE_CLW_PICTURE_STRING); - } - } - } - } - } - } - // lexing complete - scDoc.Complete(); -} - -// Clarion Language Case Sensitive Colouring Procedure -static void ColouriseClarionDocSensitive(Sci_PositionU uiStartPos, Sci_Position iLength, int iInitStyle, WordList *wlKeywords[], Accessor &accStyler) { - - ColouriseClarionDoc(uiStartPos, iLength, iInitStyle, wlKeywords, accStyler, true); -} - -// Clarion Language Case Insensitive Colouring Procedure -static void ColouriseClarionDocInsensitive(Sci_PositionU uiStartPos, Sci_Position iLength, int iInitStyle, WordList *wlKeywords[], Accessor &accStyler) { - - ColouriseClarionDoc(uiStartPos, iLength, iInitStyle, wlKeywords, accStyler, false); -} - -// Fill Buffer - -static void FillBuffer(Sci_PositionU uiStart, Sci_PositionU uiEnd, Accessor &accStyler, char *szBuffer, Sci_PositionU uiLength) { - - Sci_PositionU uiPos = 0; - - while ((uiPos < uiEnd - uiStart + 1) && (uiPos < uiLength-1)) { - szBuffer[uiPos] = static_cast(toupper(accStyler[uiStart + uiPos])); - uiPos++; - } - szBuffer[uiPos] = '\0'; -} - -// Classify Clarion Fold Point - -static int ClassifyClarionFoldPoint(int iLevel, const char* szString) { - - if (!(isdigit(szString[0]) || (szString[0] == '.'))) { - if (strcmp(szString, "PROCEDURE") == 0) { - // iLevel = SC_FOLDLEVELBASE + 1; - } - else if (strcmp(szString, "MAP") == 0 || - strcmp(szString,"ACCEPT") == 0 || - strcmp(szString,"BEGIN") == 0 || - strcmp(szString,"CASE") == 0 || - strcmp(szString,"EXECUTE") == 0 || - strcmp(szString,"IF") == 0 || - strcmp(szString,"ITEMIZE") == 0 || - strcmp(szString,"INTERFACE") == 0 || - strcmp(szString,"JOIN") == 0 || - strcmp(szString,"LOOP") == 0 || - strcmp(szString,"MODULE") == 0 || - strcmp(szString,"RECORD") == 0) { - iLevel++; - } - else if (strcmp(szString, "APPLICATION") == 0 || - strcmp(szString, "CLASS") == 0 || - strcmp(szString, "DETAIL") == 0 || - strcmp(szString, "FILE") == 0 || - strcmp(szString, "FOOTER") == 0 || - strcmp(szString, "FORM") == 0 || - strcmp(szString, "GROUP") == 0 || - strcmp(szString, "HEADER") == 0 || - strcmp(szString, "INTERFACE") == 0 || - strcmp(szString, "MENU") == 0 || - strcmp(szString, "MENUBAR") == 0 || - strcmp(szString, "OLE") == 0 || - strcmp(szString, "OPTION") == 0 || - strcmp(szString, "QUEUE") == 0 || - strcmp(szString, "REPORT") == 0 || - strcmp(szString, "SHEET") == 0 || - strcmp(szString, "TAB") == 0 || - strcmp(szString, "TOOLBAR") == 0 || - strcmp(szString, "VIEW") == 0 || - strcmp(szString, "WINDOW") == 0) { - iLevel++; - } - else if (strcmp(szString, "END") == 0 || - strcmp(szString, "UNTIL") == 0 || - strcmp(szString, "WHILE") == 0) { - iLevel--; - } - } - return(iLevel); -} - -// Clarion Language Folding Procedure -static void FoldClarionDoc(Sci_PositionU uiStartPos, Sci_Position iLength, int iInitStyle, WordList *[], Accessor &accStyler) { - - Sci_PositionU uiEndPos = uiStartPos + iLength; - Sci_Position iLineCurrent = accStyler.GetLine(uiStartPos); - int iLevelPrev = accStyler.LevelAt(iLineCurrent) & SC_FOLDLEVELNUMBERMASK; - int iLevelCurrent = iLevelPrev; - char chNext = accStyler[uiStartPos]; - int iStyle = iInitStyle; - int iStyleNext = accStyler.StyleAt(uiStartPos); - int iVisibleChars = 0; - Sci_Position iLastStart = 0; - - for (Sci_PositionU uiPos = uiStartPos; uiPos < uiEndPos; uiPos++) { - - char chChar = chNext; - chNext = accStyler.SafeGetCharAt(uiPos + 1); - int iStylePrev = iStyle; - iStyle = iStyleNext; - iStyleNext = accStyler.StyleAt(uiPos + 1); - bool bEOL = (chChar == '\r' && chNext != '\n') || (chChar == '\n'); - - if (iStylePrev == SCE_CLW_DEFAULT) { - if (iStyle == SCE_CLW_KEYWORD || iStyle == SCE_CLW_STRUCTURE_DATA_TYPE) { - // Store last word start point. - iLastStart = uiPos; - } - } - - if (iStylePrev == SCE_CLW_KEYWORD || iStylePrev == SCE_CLW_STRUCTURE_DATA_TYPE) { - if(iswordchar(chChar) && !iswordchar(chNext)) { - char chBuffer[100]; - FillBuffer(iLastStart, uiPos, accStyler, chBuffer, sizeof(chBuffer)); - iLevelCurrent = ClassifyClarionFoldPoint(iLevelCurrent,chBuffer); - // if ((iLevelCurrent == SC_FOLDLEVELBASE + 1) && iLineCurrent > 1) { - // accStyler.SetLevel(iLineCurrent-1,SC_FOLDLEVELBASE); - // iLevelPrev = SC_FOLDLEVELBASE; - // } - } - } - - if (bEOL) { - int iLevel = iLevelPrev; - if ((iLevelCurrent > iLevelPrev) && (iVisibleChars > 0)) - iLevel |= SC_FOLDLEVELHEADERFLAG; - if (iLevel != accStyler.LevelAt(iLineCurrent)) { - accStyler.SetLevel(iLineCurrent,iLevel); - } - iLineCurrent++; - iLevelPrev = iLevelCurrent; - iVisibleChars = 0; - } - - if (!isspacechar(chChar)) - iVisibleChars++; - } - - // Fill in the real level of the next line, keeping the current flags - // as they will be filled in later. - int iFlagsNext = accStyler.LevelAt(iLineCurrent) & ~SC_FOLDLEVELNUMBERMASK; - accStyler.SetLevel(iLineCurrent, iLevelPrev | iFlagsNext); -} - -// Word List Descriptions -static const char * const rgWordListDescriptions[] = { - "Clarion Keywords", - "Compiler Directives", - "Built-in Procedures and Functions", - "Runtime Expressions", - "Structure and Data Types", - "Attributes", - "Standard Equates", - "Reserved Words (Labels)", - "Reserved Words (Procedure Labels)", - 0, -}; - -// Case Sensitive Clarion Language Lexer -LexerModule lmClw(SCLEX_CLW, ColouriseClarionDocSensitive, "clarion", FoldClarionDoc, rgWordListDescriptions); - -// Case Insensitive Clarion Language Lexer -LexerModule lmClwNoCase(SCLEX_CLWNOCASE, ColouriseClarionDocInsensitive, "clarionnocase", FoldClarionDoc, rgWordListDescriptions); diff --git a/libs/qscintilla/scintilla/lexers/LexCOBOL.cpp b/libs/qscintilla/scintilla/lexers/LexCOBOL.cpp deleted file mode 100644 index f0374824..00000000 --- a/libs/qscintilla/scintilla/lexers/LexCOBOL.cpp +++ /dev/null @@ -1,379 +0,0 @@ -// Scintilla source code edit control -/** @file LexCOBOL.cxx - ** Lexer for COBOL - ** Based on LexPascal.cxx - ** Written by Laurent le Tynevez - ** Updated by Simon Steele September 2002 - ** Updated by Mathias Rauen May 2003 (Delphi adjustments) - ** Updated by Rod Falck, Aug 2006 Converted to COBOL - **/ - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -#define IN_DIVISION 0x01 -#define IN_DECLARATIVES 0x02 -#define IN_SECTION 0x04 -#define IN_PARAGRAPH 0x08 -#define IN_FLAGS 0xF -#define NOT_HEADER 0x10 - -inline bool isCOBOLoperator(char ch) - { - return isoperator(ch); - } - -inline bool isCOBOLwordchar(char ch) - { - return IsASCII(ch) && (isalnum(ch) || ch == '-'); - - } - -inline bool isCOBOLwordstart(char ch) - { - return IsASCII(ch) && isalnum(ch); - } - -static int CountBits(int nBits) - { - int count = 0; - for (int i = 0; i < 32; ++i) - { - count += nBits & 1; - nBits >>= 1; - } - return count; - } - -static void getRange(Sci_PositionU start, - Sci_PositionU end, - Accessor &styler, - char *s, - Sci_PositionU len) { - Sci_PositionU i = 0; - while ((i < end - start + 1) && (i < len-1)) { - s[i] = static_cast(tolower(styler[start + i])); - i++; - } - s[i] = '\0'; -} - -static void ColourTo(Accessor &styler, Sci_PositionU end, unsigned int attr) { - styler.ColourTo(end, attr); -} - - -static int classifyWordCOBOL(Sci_PositionU start, Sci_PositionU end, /*WordList &keywords*/WordList *keywordlists[], Accessor &styler, int nContainment, bool *bAarea) { - int ret = 0; - - WordList& a_keywords = *keywordlists[0]; - WordList& b_keywords = *keywordlists[1]; - WordList& c_keywords = *keywordlists[2]; - - char s[100]; - s[0] = '\0'; - s[1] = '\0'; - getRange(start, end, styler, s, sizeof(s)); - - char chAttr = SCE_C_IDENTIFIER; - if (isdigit(s[0]) || (s[0] == '.') || (s[0] == 'v')) { - chAttr = SCE_C_NUMBER; - char *p = s + 1; - while (*p) { - if ((!isdigit(*p) && (*p) != 'v') && isCOBOLwordchar(*p)) { - chAttr = SCE_C_IDENTIFIER; - break; - } - ++p; - } - } - else { - if (a_keywords.InList(s)) { - chAttr = SCE_C_WORD; - } - else if (b_keywords.InList(s)) { - chAttr = SCE_C_WORD2; - } - else if (c_keywords.InList(s)) { - chAttr = SCE_C_UUID; - } - } - if (*bAarea) { - if (strcmp(s, "division") == 0) { - ret = IN_DIVISION; - // we've determined the containment, anything else is just ignored for those purposes - *bAarea = false; - } else if (strcmp(s, "declaratives") == 0) { - ret = IN_DIVISION | IN_DECLARATIVES; - if (nContainment & IN_DECLARATIVES) - ret |= NOT_HEADER | IN_SECTION; - // we've determined the containment, anything else is just ignored for those purposes - *bAarea = false; - } else if (strcmp(s, "section") == 0) { - ret = (nContainment &~ IN_PARAGRAPH) | IN_SECTION; - // we've determined the containment, anything else is just ignored for those purposes - *bAarea = false; - } else if (strcmp(s, "end") == 0 && (nContainment & IN_DECLARATIVES)) { - ret = IN_DIVISION | IN_DECLARATIVES | IN_SECTION | NOT_HEADER; - } else { - ret = nContainment | IN_PARAGRAPH; - } - } - ColourTo(styler, end, chAttr); - return ret; -} - -static void ColouriseCOBOLDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, WordList *keywordlists[], - Accessor &styler) { - - styler.StartAt(startPos); - - int state = initStyle; - if (state == SCE_C_CHARACTER) // Does not leak onto next line - state = SCE_C_DEFAULT; - char chPrev = ' '; - char chNext = styler[startPos]; - Sci_PositionU lengthDoc = startPos + length; - - int nContainment; - - Sci_Position currentLine = styler.GetLine(startPos); - if (currentLine > 0) { - styler.SetLineState(currentLine, styler.GetLineState(currentLine-1)); - nContainment = styler.GetLineState(currentLine); - nContainment &= ~NOT_HEADER; - } else { - styler.SetLineState(currentLine, 0); - nContainment = 0; - } - - styler.StartSegment(startPos); - bool bNewLine = true; - bool bAarea = !isspacechar(chNext); - int column = 0; - for (Sci_PositionU i = startPos; i < lengthDoc; i++) { - char ch = chNext; - - chNext = styler.SafeGetCharAt(i + 1); - - ++column; - - if (bNewLine) { - column = 0; - } - if (column <= 1 && !bAarea) { - bAarea = !isspacechar(ch); - } - bool bSetNewLine = false; - if ((ch == '\r' && chNext != '\n') || (ch == '\n')) { - // Trigger on CR only (Mac style) or either on LF from CR+LF (Dos/Win) or on LF alone (Unix) - // Avoid triggering two times on Dos/Win - // End of line - if (state == SCE_C_CHARACTER) { - ColourTo(styler, i, state); - state = SCE_C_DEFAULT; - } - styler.SetLineState(currentLine, nContainment); - currentLine++; - bSetNewLine = true; - if (nContainment & NOT_HEADER) - nContainment &= ~(NOT_HEADER | IN_DECLARATIVES | IN_SECTION); - } - - if (styler.IsLeadByte(ch)) { - chNext = styler.SafeGetCharAt(i + 2); - chPrev = ' '; - i += 1; - continue; - } - - if (state == SCE_C_DEFAULT) { - if (isCOBOLwordstart(ch) || (ch == '$' && IsASCII(chNext) && isalpha(chNext))) { - ColourTo(styler, i-1, state); - state = SCE_C_IDENTIFIER; - } else if (column == 6 && ch == '*') { - // Cobol comment line: asterisk in column 7. - ColourTo(styler, i-1, state); - state = SCE_C_COMMENTLINE; - } else if (ch == '*' && chNext == '>') { - // Cobol inline comment: asterisk, followed by greater than. - ColourTo(styler, i-1, state); - state = SCE_C_COMMENTLINE; - } else if (column == 0 && ch == '*' && chNext != '*') { - ColourTo(styler, i-1, state); - state = SCE_C_COMMENTLINE; - } else if (column == 0 && ch == '/' && chNext != '*') { - ColourTo(styler, i-1, state); - state = SCE_C_COMMENTLINE; - } else if (column == 0 && ch == '*' && chNext == '*') { - ColourTo(styler, i-1, state); - state = SCE_C_COMMENTDOC; - } else if (column == 0 && ch == '/' && chNext == '*') { - ColourTo(styler, i-1, state); - state = SCE_C_COMMENTDOC; - } else if (ch == '"') { - ColourTo(styler, i-1, state); - state = SCE_C_STRING; - } else if (ch == '\'') { - ColourTo(styler, i-1, state); - state = SCE_C_CHARACTER; - } else if (ch == '?' && column == 0) { - ColourTo(styler, i-1, state); - state = SCE_C_PREPROCESSOR; - } else if (isCOBOLoperator(ch)) { - ColourTo(styler, i-1, state); - ColourTo(styler, i, SCE_C_OPERATOR); - } - } else if (state == SCE_C_IDENTIFIER) { - if (!isCOBOLwordchar(ch)) { - int lStateChange = classifyWordCOBOL(styler.GetStartSegment(), i - 1, keywordlists, styler, nContainment, &bAarea); - - if(lStateChange != 0) { - styler.SetLineState(currentLine, lStateChange); - nContainment = lStateChange; - } - - state = SCE_C_DEFAULT; - chNext = styler.SafeGetCharAt(i + 1); - if (ch == '"') { - state = SCE_C_STRING; - } else if (ch == '\'') { - state = SCE_C_CHARACTER; - } else if (isCOBOLoperator(ch)) { - ColourTo(styler, i, SCE_C_OPERATOR); - } - } - } else { - if (state == SCE_C_PREPROCESSOR) { - if ((ch == '\r' || ch == '\n') && !(chPrev == '\\' || chPrev == '\r')) { - ColourTo(styler, i-1, state); - state = SCE_C_DEFAULT; - } - } else if (state == SCE_C_COMMENT) { - if (ch == '\r' || ch == '\n') { - ColourTo(styler, i, state); - state = SCE_C_DEFAULT; - } - } else if (state == SCE_C_COMMENTDOC) { - if (ch == '\r' || ch == '\n') { - if (((i > styler.GetStartSegment() + 2) || ( - (initStyle == SCE_C_COMMENTDOC) && - (styler.GetStartSegment() == static_cast(startPos))))) { - ColourTo(styler, i, state); - state = SCE_C_DEFAULT; - } - } - } else if (state == SCE_C_COMMENTLINE) { - if (ch == '\r' || ch == '\n') { - ColourTo(styler, i-1, state); - state = SCE_C_DEFAULT; - } - } else if (state == SCE_C_STRING) { - if (ch == '"') { - ColourTo(styler, i, state); - state = SCE_C_DEFAULT; - } - } else if (state == SCE_C_CHARACTER) { - if (ch == '\'') { - ColourTo(styler, i, state); - state = SCE_C_DEFAULT; - } - } - } - chPrev = ch; - bNewLine = bSetNewLine; - if (bNewLine) - { - bAarea = false; - } - } - ColourTo(styler, lengthDoc - 1, state); -} - -static void FoldCOBOLDoc(Sci_PositionU startPos, Sci_Position length, int, WordList *[], - Accessor &styler) { - bool foldCompact = styler.GetPropertyInt("fold.compact", 1) != 0; - Sci_PositionU endPos = startPos + length; - int visibleChars = 0; - Sci_Position lineCurrent = styler.GetLine(startPos); - int levelPrev = lineCurrent > 0 ? styler.LevelAt(lineCurrent - 1) & SC_FOLDLEVELNUMBERMASK : 0xFFF; - char chNext = styler[startPos]; - - bool bNewLine = true; - bool bAarea = !isspacechar(chNext); - int column = 0; - bool bComment = false; - for (Sci_PositionU i = startPos; i < endPos; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - ++column; - - if (bNewLine) { - column = 0; - bComment = (ch == '*' || ch == '/' || ch == '?'); - } - if (column <= 1 && !bAarea) { - bAarea = !isspacechar(ch); - } - bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n'); - if (atEOL) { - int nContainment = styler.GetLineState(lineCurrent); - int lev = CountBits(nContainment & IN_FLAGS) | SC_FOLDLEVELBASE; - if (bAarea && !bComment) - --lev; - if (visibleChars == 0 && foldCompact) - lev |= SC_FOLDLEVELWHITEFLAG; - if ((bAarea) && (visibleChars > 0) && !(nContainment & NOT_HEADER) && !bComment) - lev |= SC_FOLDLEVELHEADERFLAG; - if (lev != styler.LevelAt(lineCurrent)) { - styler.SetLevel(lineCurrent, lev); - } - if ((lev & SC_FOLDLEVELNUMBERMASK) <= (levelPrev & SC_FOLDLEVELNUMBERMASK)) { - // this level is at the same level or less than the previous line - // therefore these is nothing for the previous header to collapse, so remove the header - styler.SetLevel(lineCurrent - 1, levelPrev & ~SC_FOLDLEVELHEADERFLAG); - } - levelPrev = lev; - visibleChars = 0; - bAarea = false; - bNewLine = true; - lineCurrent++; - } else { - bNewLine = false; - } - - - if (!isspacechar(ch)) - visibleChars++; - } - - // Fill in the real level of the next line, keeping the current flags as they will be filled in later - int flagsNext = styler.LevelAt(lineCurrent) & ~SC_FOLDLEVELNUMBERMASK; - styler.SetLevel(lineCurrent, levelPrev | flagsNext); -} - -static const char * const COBOLWordListDesc[] = { - "A Keywords", - "B Keywords", - "Extended Keywords", - 0 -}; - -LexerModule lmCOBOL(SCLEX_COBOL, ColouriseCOBOLDoc, "COBOL", FoldCOBOLDoc, COBOLWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexCPP.cpp b/libs/qscintilla/scintilla/lexers/LexCPP.cpp deleted file mode 100644 index 3dac142a..00000000 --- a/libs/qscintilla/scintilla/lexers/LexCPP.cpp +++ /dev/null @@ -1,1725 +0,0 @@ -// Scintilla source code edit control -/** @file LexCPP.cxx - ** Lexer for C++, C, Java, and JavaScript. - ** Further folding features and configuration properties added by "Udo Lechner" - **/ -// Copyright 1998-2005 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "StringCopy.h" -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" -#include "OptionSet.h" -#include "SparseState.h" -#include "SubStyles.h" - -using namespace Scintilla; - -namespace { - // Use an unnamed namespace to protect the functions and classes from name conflicts - -bool IsSpaceEquiv(int state) noexcept { - return (state <= SCE_C_COMMENTDOC) || - // including SCE_C_DEFAULT, SCE_C_COMMENT, SCE_C_COMMENTLINE - (state == SCE_C_COMMENTLINEDOC) || (state == SCE_C_COMMENTDOCKEYWORD) || - (state == SCE_C_COMMENTDOCKEYWORDERROR); -} - -// Preconditions: sc.currentPos points to a character after '+' or '-'. -// The test for pos reaching 0 should be redundant, -// and is in only for safety measures. -// Limitation: this code will give the incorrect answer for code like -// a = b+++/ptn/... -// Putting a space between the '++' post-inc operator and the '+' binary op -// fixes this, and is highly recommended for readability anyway. -bool FollowsPostfixOperator(const StyleContext &sc, LexAccessor &styler) { - Sci_Position pos = sc.currentPos; - while (--pos > 0) { - const char ch = styler[pos]; - if (ch == '+' || ch == '-') { - return styler[pos - 1] == ch; - } - } - return false; -} - -bool followsReturnKeyword(const StyleContext &sc, LexAccessor &styler) { - // Don't look at styles, so no need to flush. - Sci_Position pos = sc.currentPos; - const Sci_Position currentLine = styler.GetLine(pos); - const Sci_Position lineStartPos = styler.LineStart(currentLine); - while (--pos > lineStartPos) { - const char ch = styler.SafeGetCharAt(pos); - if (ch != ' ' && ch != '\t') { - break; - } - } - const char *retBack = "nruter"; - const char *s = retBack; - while (*s - && pos >= lineStartPos - && styler.SafeGetCharAt(pos) == *s) { - s++; - pos--; - } - return !*s; -} - -bool IsSpaceOrTab(int ch) noexcept { - return ch == ' ' || ch == '\t'; -} - -bool OnlySpaceOrTab(const std::string &s) noexcept { - for (const char ch : s) { - if (!IsSpaceOrTab(ch)) - return false; - } - return true; -} - -std::vector StringSplit(const std::string &text, int separator) { - std::vector vs(text.empty() ? 0 : 1); - for (const char ch : text) { - if (ch == separator) { - vs.emplace_back(); - } else { - vs.back() += ch; - } - } - return vs; -} - -struct BracketPair { - std::vector::iterator itBracket; - std::vector::iterator itEndBracket; -}; - -BracketPair FindBracketPair(std::vector &tokens) { - BracketPair bp; - std::vector::iterator itTok = std::find(tokens.begin(), tokens.end(), "("); - bp.itBracket = tokens.end(); - bp.itEndBracket = tokens.end(); - if (itTok != tokens.end()) { - bp.itBracket = itTok; - size_t nest = 0; - while (itTok != tokens.end()) { - if (*itTok == "(") { - nest++; - } else if (*itTok == ")") { - nest--; - if (nest == 0) { - bp.itEndBracket = itTok; - return bp; - } - } - ++itTok; - } - } - bp.itBracket = tokens.end(); - return bp; -} - -void highlightTaskMarker(StyleContext &sc, LexAccessor &styler, - int activity, const WordList &markerList, bool caseSensitive){ - if ((isoperator(sc.chPrev) || IsASpace(sc.chPrev)) && markerList.Length()) { - const int lengthMarker = 50; - char marker[lengthMarker+1] = ""; - const Sci_Position currPos = static_cast(sc.currentPos); - int i = 0; - while (i < lengthMarker) { - const char ch = styler.SafeGetCharAt(currPos + i); - if (IsASpace(ch) || isoperator(ch)) { - break; - } - if (caseSensitive) - marker[i] = ch; - else - marker[i] = MakeLowerCase(ch); - i++; - } - marker[i] = '\0'; - if (markerList.InList(marker)) { - sc.SetState(SCE_C_TASKMARKER|activity); - } - } -} - -struct EscapeSequence { - int digitsLeft; - CharacterSet setHexDigits; - CharacterSet setOctDigits; - CharacterSet setNoneNumeric; - CharacterSet *escapeSetValid; - EscapeSequence() { - digitsLeft = 0; - escapeSetValid = 0; - setHexDigits = CharacterSet(CharacterSet::setDigits, "ABCDEFabcdef"); - setOctDigits = CharacterSet(CharacterSet::setNone, "01234567"); - } - void resetEscapeState(int nextChar) { - digitsLeft = 0; - escapeSetValid = &setNoneNumeric; - if (nextChar == 'U') { - digitsLeft = 9; - escapeSetValid = &setHexDigits; - } else if (nextChar == 'u') { - digitsLeft = 5; - escapeSetValid = &setHexDigits; - } else if (nextChar == 'x') { - digitsLeft = 5; - escapeSetValid = &setHexDigits; - } else if (setOctDigits.Contains(nextChar)) { - digitsLeft = 3; - escapeSetValid = &setOctDigits; - } - } - bool atEscapeEnd(int currChar) const { - return (digitsLeft <= 0) || !escapeSetValid->Contains(currChar); - } -}; - -std::string GetRestOfLine(LexAccessor &styler, Sci_Position start, bool allowSpace) { - std::string restOfLine; - Sci_Position i =0; - char ch = styler.SafeGetCharAt(start, '\n'); - const Sci_Position endLine = styler.LineEnd(styler.GetLine(start)); - while (((start+i) < endLine) && (ch != '\r')) { - const char chNext = styler.SafeGetCharAt(start + i + 1, '\n'); - if (ch == '/' && (chNext == '/' || chNext == '*')) - break; - if (allowSpace || (ch != ' ')) - restOfLine += ch; - i++; - ch = chNext; - } - return restOfLine; -} - -bool IsStreamCommentStyle(int style) noexcept { - return style == SCE_C_COMMENT || - style == SCE_C_COMMENTDOC || - style == SCE_C_COMMENTDOCKEYWORD || - style == SCE_C_COMMENTDOCKEYWORDERROR; -} - -struct PPDefinition { - Sci_Position line; - std::string key; - std::string value; - bool isUndef; - std::string arguments; - PPDefinition(Sci_Position line_, const std::string &key_, const std::string &value_, bool isUndef_ = false, const std::string &arguments_="") : - line(line_), key(key_), value(value_), isUndef(isUndef_), arguments(arguments_) { - } -}; - -class LinePPState { - int state; - int ifTaken; - int level; - bool ValidLevel() const noexcept { - return level >= 0 && level < 32; - } - int maskLevel() const noexcept { - if (level >= 0) { - return 1 << level; - } else { - return 1; - } - } -public: - LinePPState() : state(0), ifTaken(0), level(-1) { - } - bool IsInactive() const noexcept { - return state != 0; - } - bool CurrentIfTaken() const noexcept { - return (ifTaken & maskLevel()) != 0; - } - void StartSection(bool on) noexcept { - level++; - if (ValidLevel()) { - if (on) { - state &= ~maskLevel(); - ifTaken |= maskLevel(); - } else { - state |= maskLevel(); - ifTaken &= ~maskLevel(); - } - } - } - void EndSection() noexcept { - if (ValidLevel()) { - state &= ~maskLevel(); - ifTaken &= ~maskLevel(); - } - level--; - } - void InvertCurrentLevel() noexcept { - if (ValidLevel()) { - state ^= maskLevel(); - ifTaken |= maskLevel(); - } - } -}; - -// Hold the preprocessor state for each line seen. -// Currently one entry per line but could become sparse with just one entry per preprocessor line. -class PPStates { - std::vector vlls; -public: - LinePPState ForLine(Sci_Position line) const { - if ((line > 0) && (vlls.size() > static_cast(line))) { - return vlls[line]; - } else { - return LinePPState(); - } - } - void Add(Sci_Position line, LinePPState lls) { - vlls.resize(line+1); - vlls[line] = lls; - } -}; - -// An individual named option for use in an OptionSet - -// Options used for LexerCPP -struct OptionsCPP { - bool stylingWithinPreprocessor; - bool identifiersAllowDollars; - bool trackPreprocessor; - bool updatePreprocessor; - bool verbatimStringsAllowEscapes; - bool triplequotedStrings; - bool hashquotedStrings; - bool backQuotedStrings; - bool escapeSequence; - bool fold; - bool foldSyntaxBased; - bool foldComment; - bool foldCommentMultiline; - bool foldCommentExplicit; - std::string foldExplicitStart; - std::string foldExplicitEnd; - bool foldExplicitAnywhere; - bool foldPreprocessor; - bool foldPreprocessorAtElse; - bool foldCompact; - bool foldAtElse; - OptionsCPP() { - stylingWithinPreprocessor = false; - identifiersAllowDollars = true; - trackPreprocessor = true; - updatePreprocessor = true; - verbatimStringsAllowEscapes = false; - triplequotedStrings = false; - hashquotedStrings = false; - backQuotedStrings = false; - escapeSequence = false; - fold = false; - foldSyntaxBased = true; - foldComment = false; - foldCommentMultiline = true; - foldCommentExplicit = true; - foldExplicitStart = ""; - foldExplicitEnd = ""; - foldExplicitAnywhere = false; - foldPreprocessor = false; - foldPreprocessorAtElse = false; - foldCompact = false; - foldAtElse = false; - } -}; - -const char *const cppWordLists[] = { - "Primary keywords and identifiers", - "Secondary keywords and identifiers", - "Documentation comment keywords", - "Global classes and typedefs", - "Preprocessor definitions", - "Task marker and error marker keywords", - 0, -}; - -struct OptionSetCPP : public OptionSet { - OptionSetCPP() { - DefineProperty("styling.within.preprocessor", &OptionsCPP::stylingWithinPreprocessor, - "For C++ code, determines whether all preprocessor code is styled in the " - "preprocessor style (0, the default) or only from the initial # to the end " - "of the command word(1)."); - - DefineProperty("lexer.cpp.allow.dollars", &OptionsCPP::identifiersAllowDollars, - "Set to 0 to disallow the '$' character in identifiers with the cpp lexer."); - - DefineProperty("lexer.cpp.track.preprocessor", &OptionsCPP::trackPreprocessor, - "Set to 1 to interpret #if/#else/#endif to grey out code that is not active."); - - DefineProperty("lexer.cpp.update.preprocessor", &OptionsCPP::updatePreprocessor, - "Set to 1 to update preprocessor definitions when #define found."); - - DefineProperty("lexer.cpp.verbatim.strings.allow.escapes", &OptionsCPP::verbatimStringsAllowEscapes, - "Set to 1 to allow verbatim strings to contain escape sequences."); - - DefineProperty("lexer.cpp.triplequoted.strings", &OptionsCPP::triplequotedStrings, - "Set to 1 to enable highlighting of triple-quoted strings."); - - DefineProperty("lexer.cpp.hashquoted.strings", &OptionsCPP::hashquotedStrings, - "Set to 1 to enable highlighting of hash-quoted strings."); - - DefineProperty("lexer.cpp.backquoted.strings", &OptionsCPP::backQuotedStrings, - "Set to 1 to enable highlighting of back-quoted raw strings ."); - - DefineProperty("lexer.cpp.escape.sequence", &OptionsCPP::escapeSequence, - "Set to 1 to enable highlighting of escape sequences in strings"); - - DefineProperty("fold", &OptionsCPP::fold); - - DefineProperty("fold.cpp.syntax.based", &OptionsCPP::foldSyntaxBased, - "Set this property to 0 to disable syntax based folding."); - - DefineProperty("fold.comment", &OptionsCPP::foldComment, - "This option enables folding multi-line comments and explicit fold points when using the C++ lexer. " - "Explicit fold points allows adding extra folding by placing a //{ comment at the start and a //} " - "at the end of a section that should fold."); - - DefineProperty("fold.cpp.comment.multiline", &OptionsCPP::foldCommentMultiline, - "Set this property to 0 to disable folding multi-line comments when fold.comment=1."); - - DefineProperty("fold.cpp.comment.explicit", &OptionsCPP::foldCommentExplicit, - "Set this property to 0 to disable folding explicit fold points when fold.comment=1."); - - DefineProperty("fold.cpp.explicit.start", &OptionsCPP::foldExplicitStart, - "The string to use for explicit fold start points, replacing the standard //{."); - - DefineProperty("fold.cpp.explicit.end", &OptionsCPP::foldExplicitEnd, - "The string to use for explicit fold end points, replacing the standard //}."); - - DefineProperty("fold.cpp.explicit.anywhere", &OptionsCPP::foldExplicitAnywhere, - "Set this property to 1 to enable explicit fold points anywhere, not just in line comments."); - - DefineProperty("fold.cpp.preprocessor.at.else", &OptionsCPP::foldPreprocessorAtElse, - "This option enables folding on a preprocessor #else or #endif line of an #if statement."); - - DefineProperty("fold.preprocessor", &OptionsCPP::foldPreprocessor, - "This option enables folding preprocessor directives when using the C++ lexer. " - "Includes C#'s explicit #region and #endregion folding directives."); - - DefineProperty("fold.compact", &OptionsCPP::foldCompact); - - DefineProperty("fold.at.else", &OptionsCPP::foldAtElse, - "This option enables C++ folding on a \"} else {\" line of an if statement."); - - DefineWordListSets(cppWordLists); - } -}; - -const char styleSubable[] = {SCE_C_IDENTIFIER, SCE_C_COMMENTDOCKEYWORD, 0}; - -LexicalClass lexicalClasses[] = { - // Lexer Cpp SCLEX_CPP SCE_C_: - 0, "SCE_C_DEFAULT", "default", "White space", - 1, "SCE_C_COMMENT", "comment", "Comment: /* */.", - 2, "SCE_C_COMMENTLINE", "comment line", "Line Comment: //.", - 3, "SCE_C_COMMENTDOC", "comment documentation", "Doc comment: block comments beginning with /** or /*!", - 4, "SCE_C_NUMBER", "literal numeric", "Number", - 5, "SCE_C_WORD", "keyword", "Keyword", - 6, "SCE_C_STRING", "literal string", "Double quoted string", - 7, "SCE_C_CHARACTER", "literal string character", "Single quoted string", - 8, "SCE_C_UUID", "literal uuid", "UUIDs (only in IDL)", - 9, "SCE_C_PREPROCESSOR", "preprocessor", "Preprocessor", - 10, "SCE_C_OPERATOR", "operator", "Operators", - 11, "SCE_C_IDENTIFIER", "identifier", "Identifiers", - 12, "SCE_C_STRINGEOL", "error literal string", "End of line where string is not closed", - 13, "SCE_C_VERBATIM", "literal string multiline raw", "Verbatim strings for C#", - 14, "SCE_C_REGEX", "literal regex", "Regular expressions for JavaScript", - 15, "SCE_C_COMMENTLINEDOC", "comment documentation line", "Doc Comment Line: line comments beginning with /// or //!.", - 16, "SCE_C_WORD2", "identifier", "Keywords2", - 17, "SCE_C_COMMENTDOCKEYWORD", "comment documentation keyword", "Comment keyword", - 18, "SCE_C_COMMENTDOCKEYWORDERROR", "error comment documentation keyword", "Comment keyword error", - 19, "SCE_C_GLOBALCLASS", "identifier", "Global class", - 20, "SCE_C_STRINGRAW", "literal string multiline raw", "Raw strings for C++0x", - 21, "SCE_C_TRIPLEVERBATIM", "literal string multiline raw", "Triple-quoted strings for Vala", - 22, "SCE_C_HASHQUOTEDSTRING", "literal string", "Hash-quoted strings for Pike", - 23, "SCE_C_PREPROCESSORCOMMENT", "comment preprocessor", "Preprocessor stream comment", - 24, "SCE_C_PREPROCESSORCOMMENTDOC", "comment preprocessor documentation", "Preprocessor stream doc comment", - 25, "SCE_C_USERLITERAL", "literal", "User defined literals", - 26, "SCE_C_TASKMARKER", "comment taskmarker", "Task Marker", - 27, "SCE_C_ESCAPESEQUENCE", "literal string escapesequence", "Escape sequence", -}; - -} - -class LexerCPP : public ILexerWithMetaData { - bool caseSensitive; - CharacterSet setWord; - CharacterSet setNegationOp; - CharacterSet setArithmethicOp; - CharacterSet setRelOp; - CharacterSet setLogicalOp; - CharacterSet setWordStart; - PPStates vlls; - std::vector ppDefineHistory; - WordList keywords; - WordList keywords2; - WordList keywords3; - WordList keywords4; - WordList ppDefinitions; - WordList markerList; - struct SymbolValue { - std::string value; - std::string arguments; - SymbolValue(const std::string &value_="", const std::string &arguments_="") : value(value_), arguments(arguments_) { - } - SymbolValue &operator = (const std::string &value_) { - value = value_; - arguments.clear(); - return *this; - } - bool IsMacro() const noexcept { - return !arguments.empty(); - } - }; - typedef std::map SymbolTable; - SymbolTable preprocessorDefinitionsStart; - OptionsCPP options; - OptionSetCPP osCPP; - EscapeSequence escapeSeq; - SparseState rawStringTerminators; - enum { activeFlag = 0x40 }; - enum { ssIdentifier, ssDocKeyword }; - SubStyles subStyles; - std::string returnBuffer; -public: - explicit LexerCPP(bool caseSensitive_) : - caseSensitive(caseSensitive_), - setWord(CharacterSet::setAlphaNum, "._", 0x80, true), - setNegationOp(CharacterSet::setNone, "!"), - setArithmethicOp(CharacterSet::setNone, "+-/*%"), - setRelOp(CharacterSet::setNone, "=!<>"), - setLogicalOp(CharacterSet::setNone, "|&"), - subStyles(styleSubable, 0x80, 0x40, activeFlag) { - } - virtual ~LexerCPP() { - } - void SCI_METHOD Release() override { - delete this; - } - int SCI_METHOD Version() const override { - return lvMetaData; - } - const char * SCI_METHOD PropertyNames() override { - return osCPP.PropertyNames(); - } - int SCI_METHOD PropertyType(const char *name) override { - return osCPP.PropertyType(name); - } - const char * SCI_METHOD DescribeProperty(const char *name) override { - return osCPP.DescribeProperty(name); - } - Sci_Position SCI_METHOD PropertySet(const char *key, const char *val) override; - const char * SCI_METHOD DescribeWordListSets() override { - return osCPP.DescribeWordListSets(); - } - Sci_Position SCI_METHOD WordListSet(int n, const char *wl) override; - void SCI_METHOD Lex(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) override; - void SCI_METHOD Fold(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) override; - - void * SCI_METHOD PrivateCall(int, void *) override { - return 0; - } - - int SCI_METHOD LineEndTypesSupported() override { - return SC_LINE_END_TYPE_UNICODE; - } - - int SCI_METHOD AllocateSubStyles(int styleBase, int numberStyles) override { - return subStyles.Allocate(styleBase, numberStyles); - } - int SCI_METHOD SubStylesStart(int styleBase) override { - return subStyles.Start(styleBase); - } - int SCI_METHOD SubStylesLength(int styleBase) override { - return subStyles.Length(styleBase); - } - int SCI_METHOD StyleFromSubStyle(int subStyle) override { - const int styleBase = subStyles.BaseStyle(MaskActive(subStyle)); - const int active = subStyle & activeFlag; - return styleBase | active; - } - int SCI_METHOD PrimaryStyleFromStyle(int style) override { - return MaskActive(style); - } - void SCI_METHOD FreeSubStyles() override { - subStyles.Free(); - } - void SCI_METHOD SetIdentifiers(int style, const char *identifiers) override { - subStyles.SetIdentifiers(style, identifiers); - } - int SCI_METHOD DistanceToSecondaryStyles() override { - return activeFlag; - } - const char * SCI_METHOD GetSubStyleBases() override { - return styleSubable; - } - int SCI_METHOD NamedStyles() override { - return std::max(subStyles.LastAllocated() + 1, - static_cast(ELEMENTS(lexicalClasses))) + - activeFlag; - } - const char * SCI_METHOD NameOfStyle(int style) override { - if (style >= NamedStyles()) - return ""; - if (style < static_cast(ELEMENTS(lexicalClasses))) - return lexicalClasses[style].name; - // TODO: inactive and substyles - return ""; - } - const char * SCI_METHOD TagsOfStyle(int style) override { - if (style >= NamedStyles()) - return "Excess"; - returnBuffer.clear(); - const int firstSubStyle = subStyles.FirstAllocated(); - if (firstSubStyle >= 0) { - const int lastSubStyle = subStyles.LastAllocated(); - if (((style >= firstSubStyle) && (style <= (lastSubStyle))) || - ((style >= firstSubStyle + activeFlag) && (style <= (lastSubStyle + activeFlag)))) { - int styleActive = style; - if (style > lastSubStyle) { - returnBuffer = "inactive "; - styleActive -= activeFlag; - } - const int styleMain = StyleFromSubStyle(styleActive); - returnBuffer += lexicalClasses[styleMain].tags; - return returnBuffer.c_str(); - } - } - if (style < static_cast(ELEMENTS(lexicalClasses))) - return lexicalClasses[style].tags; - if (style >= activeFlag) { - returnBuffer = "inactive "; - const int styleActive = style - activeFlag; - if (styleActive < static_cast(ELEMENTS(lexicalClasses))) - returnBuffer += lexicalClasses[styleActive].tags; - else - returnBuffer = ""; - return returnBuffer.c_str(); - } - return ""; - } - const char * SCI_METHOD DescriptionOfStyle(int style) override { - if (style >= NamedStyles()) - return ""; - if (style < static_cast(ELEMENTS(lexicalClasses))) - return lexicalClasses[style].description; - // TODO: inactive and substyles - return ""; - } - - static ILexer *LexerFactoryCPP() { - return new LexerCPP(true); - } - static ILexer *LexerFactoryCPPInsensitive() { - return new LexerCPP(false); - } - static int MaskActive(int style) noexcept { - return style & ~activeFlag; - } - void EvaluateTokens(std::vector &tokens, const SymbolTable &preprocessorDefinitions); - std::vector Tokenize(const std::string &expr) const; - bool EvaluateExpression(const std::string &expr, const SymbolTable &preprocessorDefinitions); -}; - -Sci_Position SCI_METHOD LexerCPP::PropertySet(const char *key, const char *val) { - if (osCPP.PropertySet(&options, key, val)) { - if (strcmp(key, "lexer.cpp.allow.dollars") == 0) { - setWord = CharacterSet(CharacterSet::setAlphaNum, "._", 0x80, true); - if (options.identifiersAllowDollars) { - setWord.Add('$'); - } - } - return 0; - } - return -1; -} - -Sci_Position SCI_METHOD LexerCPP::WordListSet(int n, const char *wl) { - WordList *wordListN = 0; - switch (n) { - case 0: - wordListN = &keywords; - break; - case 1: - wordListN = &keywords2; - break; - case 2: - wordListN = &keywords3; - break; - case 3: - wordListN = &keywords4; - break; - case 4: - wordListN = &ppDefinitions; - break; - case 5: - wordListN = &markerList; - break; - } - Sci_Position firstModification = -1; - if (wordListN) { - WordList wlNew; - wlNew.Set(wl); - if (*wordListN != wlNew) { - wordListN->Set(wl); - firstModification = 0; - if (n == 4) { - // Rebuild preprocessorDefinitions - preprocessorDefinitionsStart.clear(); - for (int nDefinition = 0; nDefinition < ppDefinitions.Length(); nDefinition++) { - const char *cpDefinition = ppDefinitions.WordAt(nDefinition); - const char *cpEquals = strchr(cpDefinition, '='); - if (cpEquals) { - std::string name(cpDefinition, cpEquals - cpDefinition); - std::string val(cpEquals+1); - const size_t bracket = name.find('('); - const size_t bracketEnd = name.find(')'); - if ((bracket != std::string::npos) && (bracketEnd != std::string::npos)) { - // Macro - std::string args = name.substr(bracket + 1, bracketEnd - bracket - 1); - name = name.substr(0, bracket); - preprocessorDefinitionsStart[name] = SymbolValue(val, args); - } else { - preprocessorDefinitionsStart[name] = val; - } - } else { - std::string name(cpDefinition); - std::string val("1"); - preprocessorDefinitionsStart[name] = val; - } - } - } - } - } - return firstModification; -} - -void SCI_METHOD LexerCPP::Lex(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) { - LexAccessor styler(pAccess); - - CharacterSet setOKBeforeRE(CharacterSet::setNone, "([{=,:;!%^&*|?~+-"); - CharacterSet setCouldBePostOp(CharacterSet::setNone, "+-"); - - CharacterSet setDoxygen(CharacterSet::setAlpha, "$@\\&<>#{}[]"); - - setWordStart = CharacterSet(CharacterSet::setAlpha, "_", 0x80, true); - - CharacterSet setInvalidRawFirst(CharacterSet::setNone, " )\\\t\v\f\n"); - - if (options.identifiersAllowDollars) { - setWordStart.Add('$'); - } - - int chPrevNonWhite = ' '; - int visibleChars = 0; - bool lastWordWasUUID = false; - int styleBeforeDCKeyword = SCE_C_DEFAULT; - int styleBeforeTaskMarker = SCE_C_DEFAULT; - bool continuationLine = false; - bool isIncludePreprocessor = false; - bool isStringInPreprocessor = false; - bool inRERange = false; - bool seenDocKeyBrace = false; - - Sci_Position lineCurrent = styler.GetLine(startPos); - if ((MaskActive(initStyle) == SCE_C_PREPROCESSOR) || - (MaskActive(initStyle) == SCE_C_COMMENTLINE) || - (MaskActive(initStyle) == SCE_C_COMMENTLINEDOC)) { - // Set continuationLine if last character of previous line is '\' - if (lineCurrent > 0) { - const Sci_Position endLinePrevious = styler.LineEnd(lineCurrent - 1); - if (endLinePrevious > 0) { - continuationLine = styler.SafeGetCharAt(endLinePrevious-1) == '\\'; - } - } - } - - // look back to set chPrevNonWhite properly for better regex colouring - if (startPos > 0) { - Sci_Position back = startPos; - while (--back && IsSpaceEquiv(MaskActive(styler.StyleAt(back)))) - ; - if (MaskActive(styler.StyleAt(back)) == SCE_C_OPERATOR) { - chPrevNonWhite = styler.SafeGetCharAt(back); - } - } - - StyleContext sc(startPos, length, initStyle, styler); - LinePPState preproc = vlls.ForLine(lineCurrent); - - bool definitionsChanged = false; - - // Truncate ppDefineHistory before current line - - if (!options.updatePreprocessor) - ppDefineHistory.clear(); - - std::vector::iterator itInvalid = std::find_if(ppDefineHistory.begin(), ppDefineHistory.end(), - [lineCurrent](const PPDefinition &p) { return p.line >= lineCurrent; }); - if (itInvalid != ppDefineHistory.end()) { - ppDefineHistory.erase(itInvalid, ppDefineHistory.end()); - definitionsChanged = true; - } - - SymbolTable preprocessorDefinitions = preprocessorDefinitionsStart; - for (const PPDefinition &ppDef : ppDefineHistory) { - if (ppDef.isUndef) - preprocessorDefinitions.erase(ppDef.key); - else - preprocessorDefinitions[ppDef.key] = SymbolValue(ppDef.value, ppDef.arguments); - } - - std::string rawStringTerminator = rawStringTerminators.ValueAt(lineCurrent-1); - SparseState rawSTNew(lineCurrent); - - int activitySet = preproc.IsInactive() ? activeFlag : 0; - - const WordClassifier &classifierIdentifiers = subStyles.Classifier(SCE_C_IDENTIFIER); - const WordClassifier &classifierDocKeyWords = subStyles.Classifier(SCE_C_COMMENTDOCKEYWORD); - - Sci_Position lineEndNext = styler.LineEnd(lineCurrent); - - for (; sc.More();) { - - if (sc.atLineStart) { - // Using MaskActive() is not needed in the following statement. - // Inside inactive preprocessor declaration, state will be reset anyway at the end of this block. - if ((sc.state == SCE_C_STRING) || (sc.state == SCE_C_CHARACTER)) { - // Prevent SCE_C_STRINGEOL from leaking back to previous line which - // ends with a line continuation by locking in the state up to this position. - sc.SetState(sc.state); - } - if ((MaskActive(sc.state) == SCE_C_PREPROCESSOR) && (!continuationLine)) { - sc.SetState(SCE_C_DEFAULT|activitySet); - } - // Reset states to beginning of colourise so no surprises - // if different sets of lines lexed. - visibleChars = 0; - lastWordWasUUID = false; - isIncludePreprocessor = false; - inRERange = false; - if (preproc.IsInactive()) { - activitySet = activeFlag; - sc.SetState(sc.state | activitySet); - } - } - - if (sc.atLineEnd) { - lineCurrent++; - lineEndNext = styler.LineEnd(lineCurrent); - vlls.Add(lineCurrent, preproc); - if (rawStringTerminator != "") { - rawSTNew.Set(lineCurrent-1, rawStringTerminator); - } - } - - // Handle line continuation generically. - if (sc.ch == '\\') { - if (static_cast((sc.currentPos+1)) >= lineEndNext) { - lineCurrent++; - lineEndNext = styler.LineEnd(lineCurrent); - vlls.Add(lineCurrent, preproc); - if (rawStringTerminator != "") { - rawSTNew.Set(lineCurrent-1, rawStringTerminator); - } - sc.Forward(); - if (sc.ch == '\r' && sc.chNext == '\n') { - // Even in UTF-8, \r and \n are separate - sc.Forward(); - } - continuationLine = true; - sc.Forward(); - continue; - } - } - - const bool atLineEndBeforeSwitch = sc.atLineEnd; - - // Determine if the current state should terminate. - switch (MaskActive(sc.state)) { - case SCE_C_OPERATOR: - sc.SetState(SCE_C_DEFAULT|activitySet); - break; - case SCE_C_NUMBER: - // We accept almost anything because of hex. and number suffixes - if (sc.ch == '_') { - sc.ChangeState(SCE_C_USERLITERAL|activitySet); - } else if (!(setWord.Contains(sc.ch) - || (sc.ch == '\'') - || ((sc.ch == '+' || sc.ch == '-') && (sc.chPrev == 'e' || sc.chPrev == 'E' || - sc.chPrev == 'p' || sc.chPrev == 'P')))) { - sc.SetState(SCE_C_DEFAULT|activitySet); - } - break; - case SCE_C_USERLITERAL: - if (!(setWord.Contains(sc.ch))) - sc.SetState(SCE_C_DEFAULT|activitySet); - break; - case SCE_C_IDENTIFIER: - if (sc.atLineStart || sc.atLineEnd || !setWord.Contains(sc.ch) || (sc.ch == '.')) { - char s[1000]; - if (caseSensitive) { - sc.GetCurrent(s, sizeof(s)); - } else { - sc.GetCurrentLowered(s, sizeof(s)); - } - if (keywords.InList(s)) { - lastWordWasUUID = strcmp(s, "uuid") == 0; - sc.ChangeState(SCE_C_WORD|activitySet); - } else if (keywords2.InList(s)) { - sc.ChangeState(SCE_C_WORD2|activitySet); - } else if (keywords4.InList(s)) { - sc.ChangeState(SCE_C_GLOBALCLASS|activitySet); - } else { - int subStyle = classifierIdentifiers.ValueFor(s); - if (subStyle >= 0) { - sc.ChangeState(subStyle|activitySet); - } - } - const bool literalString = sc.ch == '\"'; - if (literalString || sc.ch == '\'') { - size_t lenS = strlen(s); - const bool raw = literalString && sc.chPrev == 'R' && !setInvalidRawFirst.Contains(sc.chNext); - if (raw) - s[lenS--] = '\0'; - const bool valid = - (lenS == 0) || - ((lenS == 1) && ((s[0] == 'L') || (s[0] == 'u') || (s[0] == 'U'))) || - ((lenS == 2) && literalString && (s[0] == 'u') && (s[1] == '8')); - if (valid) { - if (literalString) { - if (raw) { - // Set the style of the string prefix to SCE_C_STRINGRAW but then change to - // SCE_C_DEFAULT as that allows the raw string start code to run. - sc.ChangeState(SCE_C_STRINGRAW|activitySet); - sc.SetState(SCE_C_DEFAULT|activitySet); - } else { - sc.ChangeState(SCE_C_STRING|activitySet); - } - } else { - sc.ChangeState(SCE_C_CHARACTER|activitySet); - } - } else { - sc.SetState(SCE_C_DEFAULT | activitySet); - } - } else { - sc.SetState(SCE_C_DEFAULT|activitySet); - } - } - break; - case SCE_C_PREPROCESSOR: - if (options.stylingWithinPreprocessor) { - if (IsASpace(sc.ch)) { - sc.SetState(SCE_C_DEFAULT|activitySet); - } - } else if (isStringInPreprocessor && (sc.Match('>') || sc.Match('\"') || sc.atLineEnd)) { - isStringInPreprocessor = false; - } else if (!isStringInPreprocessor) { - if ((isIncludePreprocessor && sc.Match('<')) || sc.Match('\"')) { - isStringInPreprocessor = true; - } else if (sc.Match('/', '*')) { - if (sc.Match("/**") || sc.Match("/*!")) { - sc.SetState(SCE_C_PREPROCESSORCOMMENTDOC|activitySet); - } else { - sc.SetState(SCE_C_PREPROCESSORCOMMENT|activitySet); - } - sc.Forward(); // Eat the * - } else if (sc.Match('/', '/')) { - sc.SetState(SCE_C_DEFAULT|activitySet); - } - } - break; - case SCE_C_PREPROCESSORCOMMENT: - case SCE_C_PREPROCESSORCOMMENTDOC: - if (sc.Match('*', '/')) { - sc.Forward(); - sc.ForwardSetState(SCE_C_PREPROCESSOR|activitySet); - continue; // Without advancing in case of '\'. - } - break; - case SCE_C_COMMENT: - if (sc.Match('*', '/')) { - sc.Forward(); - sc.ForwardSetState(SCE_C_DEFAULT|activitySet); - } else { - styleBeforeTaskMarker = SCE_C_COMMENT; - highlightTaskMarker(sc, styler, activitySet, markerList, caseSensitive); - } - break; - case SCE_C_COMMENTDOC: - if (sc.Match('*', '/')) { - sc.Forward(); - sc.ForwardSetState(SCE_C_DEFAULT|activitySet); - } else if (sc.ch == '@' || sc.ch == '\\') { // JavaDoc and Doxygen support - // Verify that we have the conditions to mark a comment-doc-keyword - if ((IsASpace(sc.chPrev) || sc.chPrev == '*') && (!IsASpace(sc.chNext))) { - styleBeforeDCKeyword = SCE_C_COMMENTDOC; - sc.SetState(SCE_C_COMMENTDOCKEYWORD|activitySet); - } - } - break; - case SCE_C_COMMENTLINE: - if (sc.atLineStart && !continuationLine) { - sc.SetState(SCE_C_DEFAULT|activitySet); - } else { - styleBeforeTaskMarker = SCE_C_COMMENTLINE; - highlightTaskMarker(sc, styler, activitySet, markerList, caseSensitive); - } - break; - case SCE_C_COMMENTLINEDOC: - if (sc.atLineStart && !continuationLine) { - sc.SetState(SCE_C_DEFAULT|activitySet); - } else if (sc.ch == '@' || sc.ch == '\\') { // JavaDoc and Doxygen support - // Verify that we have the conditions to mark a comment-doc-keyword - if ((IsASpace(sc.chPrev) || sc.chPrev == '/' || sc.chPrev == '!') && (!IsASpace(sc.chNext))) { - styleBeforeDCKeyword = SCE_C_COMMENTLINEDOC; - sc.SetState(SCE_C_COMMENTDOCKEYWORD|activitySet); - } - } - break; - case SCE_C_COMMENTDOCKEYWORD: - if ((styleBeforeDCKeyword == SCE_C_COMMENTDOC) && sc.Match('*', '/')) { - sc.ChangeState(SCE_C_COMMENTDOCKEYWORDERROR); - sc.Forward(); - sc.ForwardSetState(SCE_C_DEFAULT|activitySet); - seenDocKeyBrace = false; - } else if (sc.ch == '[' || sc.ch == '{') { - seenDocKeyBrace = true; - } else if (!setDoxygen.Contains(sc.ch) - && !(seenDocKeyBrace && (sc.ch == ',' || sc.ch == '.'))) { - char s[100]; - if (caseSensitive) { - sc.GetCurrent(s, sizeof(s)); - } else { - sc.GetCurrentLowered(s, sizeof(s)); - } - if (!(IsASpace(sc.ch) || (sc.ch == 0))) { - sc.ChangeState(SCE_C_COMMENTDOCKEYWORDERROR|activitySet); - } else if (!keywords3.InList(s + 1)) { - int subStyleCDKW = classifierDocKeyWords.ValueFor(s+1); - if (subStyleCDKW >= 0) { - sc.ChangeState(subStyleCDKW|activitySet); - } else { - sc.ChangeState(SCE_C_COMMENTDOCKEYWORDERROR|activitySet); - } - } - sc.SetState(styleBeforeDCKeyword|activitySet); - seenDocKeyBrace = false; - } - break; - case SCE_C_STRING: - if (sc.atLineEnd) { - sc.ChangeState(SCE_C_STRINGEOL|activitySet); - } else if (isIncludePreprocessor) { - if (sc.ch == '>') { - sc.ForwardSetState(SCE_C_DEFAULT|activitySet); - isIncludePreprocessor = false; - } - } else if (sc.ch == '\\') { - if (options.escapeSequence) { - sc.SetState(SCE_C_ESCAPESEQUENCE|activitySet); - escapeSeq.resetEscapeState(sc.chNext); - } - sc.Forward(); // Skip all characters after the backslash - } else if (sc.ch == '\"') { - if (sc.chNext == '_') { - sc.ChangeState(SCE_C_USERLITERAL|activitySet); - } else { - sc.ForwardSetState(SCE_C_DEFAULT|activitySet); - } - } - break; - case SCE_C_ESCAPESEQUENCE: - escapeSeq.digitsLeft--; - if (!escapeSeq.atEscapeEnd(sc.ch)) { - break; - } - if (sc.ch == '"') { - sc.SetState(SCE_C_STRING|activitySet); - sc.ForwardSetState(SCE_C_DEFAULT|activitySet); - } else if (sc.ch == '\\') { - escapeSeq.resetEscapeState(sc.chNext); - sc.Forward(); - } else { - sc.SetState(SCE_C_STRING|activitySet); - if (sc.atLineEnd) { - sc.ChangeState(SCE_C_STRINGEOL|activitySet); - } - } - break; - case SCE_C_HASHQUOTEDSTRING: - if (sc.ch == '\\') { - if (sc.chNext == '\"' || sc.chNext == '\'' || sc.chNext == '\\') { - sc.Forward(); - } - } else if (sc.ch == '\"') { - sc.ForwardSetState(SCE_C_DEFAULT|activitySet); - } - break; - case SCE_C_STRINGRAW: - if (sc.Match(rawStringTerminator.c_str())) { - for (size_t termPos=rawStringTerminator.size(); termPos; termPos--) - sc.Forward(); - sc.SetState(SCE_C_DEFAULT|activitySet); - rawStringTerminator = ""; - } - break; - case SCE_C_CHARACTER: - if (sc.atLineEnd) { - sc.ChangeState(SCE_C_STRINGEOL|activitySet); - } else if (sc.ch == '\\') { - if (sc.chNext == '\"' || sc.chNext == '\'' || sc.chNext == '\\') { - sc.Forward(); - } - } else if (sc.ch == '\'') { - if (sc.chNext == '_') { - sc.ChangeState(SCE_C_USERLITERAL|activitySet); - } else { - sc.ForwardSetState(SCE_C_DEFAULT|activitySet); - } - } - break; - case SCE_C_REGEX: - if (sc.atLineStart) { - sc.SetState(SCE_C_DEFAULT|activitySet); - } else if (! inRERange && sc.ch == '/') { - sc.Forward(); - while ((sc.ch < 0x80) && islower(sc.ch)) - sc.Forward(); // gobble regex flags - sc.SetState(SCE_C_DEFAULT|activitySet); - } else if (sc.ch == '\\' && (static_cast(sc.currentPos+1) < lineEndNext)) { - // Gobble up the escaped character - sc.Forward(); - } else if (sc.ch == '[') { - inRERange = true; - } else if (sc.ch == ']') { - inRERange = false; - } - break; - case SCE_C_STRINGEOL: - if (sc.atLineStart) { - sc.SetState(SCE_C_DEFAULT|activitySet); - } - break; - case SCE_C_VERBATIM: - if (options.verbatimStringsAllowEscapes && (sc.ch == '\\')) { - sc.Forward(); // Skip all characters after the backslash - } else if (sc.ch == '\"') { - if (sc.chNext == '\"') { - sc.Forward(); - } else { - sc.ForwardSetState(SCE_C_DEFAULT|activitySet); - } - } - break; - case SCE_C_TRIPLEVERBATIM: - if (sc.Match(R"(""")")) { - while (sc.Match('"')) { - sc.Forward(); - } - sc.SetState(SCE_C_DEFAULT|activitySet); - } - break; - case SCE_C_UUID: - if (sc.atLineEnd || sc.ch == ')') { - sc.SetState(SCE_C_DEFAULT|activitySet); - } - break; - case SCE_C_TASKMARKER: - if (isoperator(sc.ch) || IsASpace(sc.ch)) { - sc.SetState(styleBeforeTaskMarker|activitySet); - styleBeforeTaskMarker = SCE_C_DEFAULT; - } - } - - if (sc.atLineEnd && !atLineEndBeforeSwitch) { - // State exit processing consumed characters up to end of line. - lineCurrent++; - lineEndNext = styler.LineEnd(lineCurrent); - vlls.Add(lineCurrent, preproc); - } - - // Determine if a new state should be entered. - if (MaskActive(sc.state) == SCE_C_DEFAULT) { - if (sc.Match('@', '\"')) { - sc.SetState(SCE_C_VERBATIM|activitySet); - sc.Forward(); - } else if (options.triplequotedStrings && sc.Match(R"(""")")) { - sc.SetState(SCE_C_TRIPLEVERBATIM|activitySet); - sc.Forward(2); - } else if (options.hashquotedStrings && sc.Match('#', '\"')) { - sc.SetState(SCE_C_HASHQUOTEDSTRING|activitySet); - sc.Forward(); - } else if (options.backQuotedStrings && sc.Match('`')) { - sc.SetState(SCE_C_STRINGRAW|activitySet); - rawStringTerminator = "`"; - } else if (IsADigit(sc.ch) || (sc.ch == '.' && IsADigit(sc.chNext))) { - if (lastWordWasUUID) { - sc.SetState(SCE_C_UUID|activitySet); - lastWordWasUUID = false; - } else { - sc.SetState(SCE_C_NUMBER|activitySet); - } - } else if (!sc.atLineEnd && (setWordStart.Contains(sc.ch) || (sc.ch == '@'))) { - if (lastWordWasUUID) { - sc.SetState(SCE_C_UUID|activitySet); - lastWordWasUUID = false; - } else { - sc.SetState(SCE_C_IDENTIFIER|activitySet); - } - } else if (sc.Match('/', '*')) { - if (sc.Match("/**") || sc.Match("/*!")) { // Support of Qt/Doxygen doc. style - sc.SetState(SCE_C_COMMENTDOC|activitySet); - } else { - sc.SetState(SCE_C_COMMENT|activitySet); - } - sc.Forward(); // Eat the * so it isn't used for the end of the comment - } else if (sc.Match('/', '/')) { - if ((sc.Match("///") && !sc.Match("////")) || sc.Match("//!")) - // Support of Qt/Doxygen doc. style - sc.SetState(SCE_C_COMMENTLINEDOC|activitySet); - else - sc.SetState(SCE_C_COMMENTLINE|activitySet); - } else if (sc.ch == '/' - && (setOKBeforeRE.Contains(chPrevNonWhite) - || followsReturnKeyword(sc, styler)) - && (!setCouldBePostOp.Contains(chPrevNonWhite) - || !FollowsPostfixOperator(sc, styler))) { - sc.SetState(SCE_C_REGEX|activitySet); // JavaScript's RegEx - inRERange = false; - } else if (sc.ch == '\"') { - if (sc.chPrev == 'R') { - styler.Flush(); - if (MaskActive(styler.StyleAt(sc.currentPos - 1)) == SCE_C_STRINGRAW) { - sc.SetState(SCE_C_STRINGRAW|activitySet); - rawStringTerminator = ")"; - for (Sci_Position termPos = sc.currentPos + 1;; termPos++) { - const char chTerminator = styler.SafeGetCharAt(termPos, '('); - if (chTerminator == '(') - break; - rawStringTerminator += chTerminator; - } - rawStringTerminator += '\"'; - } else { - sc.SetState(SCE_C_STRING|activitySet); - } - } else { - sc.SetState(SCE_C_STRING|activitySet); - } - isIncludePreprocessor = false; // ensure that '>' won't end the string - } else if (isIncludePreprocessor && sc.ch == '<') { - sc.SetState(SCE_C_STRING|activitySet); - } else if (sc.ch == '\'') { - sc.SetState(SCE_C_CHARACTER|activitySet); - } else if (sc.ch == '#' && visibleChars == 0) { - // Preprocessor commands are alone on their line - sc.SetState(SCE_C_PREPROCESSOR|activitySet); - // Skip whitespace between # and preprocessor word - do { - sc.Forward(); - } while ((sc.ch == ' ' || sc.ch == '\t') && sc.More()); - if (sc.atLineEnd) { - sc.SetState(SCE_C_DEFAULT|activitySet); - } else if (sc.Match("include")) { - isIncludePreprocessor = true; - } else { - if (options.trackPreprocessor) { - if (sc.Match("ifdef") || sc.Match("ifndef")) { - const bool isIfDef = sc.Match("ifdef"); - const int startRest = isIfDef ? 5 : 6; - std::string restOfLine = GetRestOfLine(styler, sc.currentPos + startRest + 1, false); - bool foundDef = preprocessorDefinitions.find(restOfLine) != preprocessorDefinitions.end(); - preproc.StartSection(isIfDef == foundDef); - } else if (sc.Match("if")) { - std::string restOfLine = GetRestOfLine(styler, sc.currentPos + 2, true); - const bool ifGood = EvaluateExpression(restOfLine, preprocessorDefinitions); - preproc.StartSection(ifGood); - } else if (sc.Match("else")) { - if (!preproc.CurrentIfTaken()) { - preproc.InvertCurrentLevel(); - activitySet = preproc.IsInactive() ? activeFlag : 0; - if (!activitySet) - sc.ChangeState(SCE_C_PREPROCESSOR|activitySet); - } else if (!preproc.IsInactive()) { - preproc.InvertCurrentLevel(); - activitySet = preproc.IsInactive() ? activeFlag : 0; - if (!activitySet) - sc.ChangeState(SCE_C_PREPROCESSOR|activitySet); - } - } else if (sc.Match("elif")) { - // Ensure only one chosen out of #if .. #elif .. #elif .. #else .. #endif - if (!preproc.CurrentIfTaken()) { - // Similar to #if - std::string restOfLine = GetRestOfLine(styler, sc.currentPos + 4, true); - const bool ifGood = EvaluateExpression(restOfLine, preprocessorDefinitions); - if (ifGood) { - preproc.InvertCurrentLevel(); - activitySet = preproc.IsInactive() ? activeFlag : 0; - if (!activitySet) - sc.ChangeState(SCE_C_PREPROCESSOR|activitySet); - } - } else if (!preproc.IsInactive()) { - preproc.InvertCurrentLevel(); - activitySet = preproc.IsInactive() ? activeFlag : 0; - if (!activitySet) - sc.ChangeState(SCE_C_PREPROCESSOR|activitySet); - } - } else if (sc.Match("endif")) { - preproc.EndSection(); - activitySet = preproc.IsInactive() ? activeFlag : 0; - sc.ChangeState(SCE_C_PREPROCESSOR|activitySet); - } else if (sc.Match("define")) { - if (options.updatePreprocessor && !preproc.IsInactive()) { - std::string restOfLine = GetRestOfLine(styler, sc.currentPos + 6, true); - size_t startName = 0; - while ((startName < restOfLine.length()) && IsSpaceOrTab(restOfLine[startName])) - startName++; - size_t endName = startName; - while ((endName < restOfLine.length()) && setWord.Contains(static_cast(restOfLine[endName]))) - endName++; - std::string key = restOfLine.substr(startName, endName-startName); - if ((endName < restOfLine.length()) && (restOfLine.at(endName) == '(')) { - // Macro - size_t endArgs = endName; - while ((endArgs < restOfLine.length()) && (restOfLine[endArgs] != ')')) - endArgs++; - std::string args = restOfLine.substr(endName + 1, endArgs - endName - 1); - size_t startValue = endArgs+1; - while ((startValue < restOfLine.length()) && IsSpaceOrTab(restOfLine[startValue])) - startValue++; - std::string value; - if (startValue < restOfLine.length()) - value = restOfLine.substr(startValue); - preprocessorDefinitions[key] = SymbolValue(value, args); - ppDefineHistory.push_back(PPDefinition(lineCurrent, key, value, false, args)); - definitionsChanged = true; - } else { - // Value - size_t startValue = endName; - while ((startValue < restOfLine.length()) && IsSpaceOrTab(restOfLine[startValue])) - startValue++; - std::string value = restOfLine.substr(startValue); - if (OnlySpaceOrTab(value)) - value = "1"; // No value defaults to 1 - preprocessorDefinitions[key] = value; - ppDefineHistory.push_back(PPDefinition(lineCurrent, key, value)); - definitionsChanged = true; - } - } - } else if (sc.Match("undef")) { - if (options.updatePreprocessor && !preproc.IsInactive()) { - const std::string restOfLine = GetRestOfLine(styler, sc.currentPos + 5, false); - std::vector tokens = Tokenize(restOfLine); - if (tokens.size() >= 1) { - const std::string key = tokens[0]; - preprocessorDefinitions.erase(key); - ppDefineHistory.push_back(PPDefinition(lineCurrent, key, "", true)); - definitionsChanged = true; - } - } - } - } - } - } else if (isoperator(sc.ch)) { - sc.SetState(SCE_C_OPERATOR|activitySet); - } - } - - if (!IsASpace(sc.ch) && !IsSpaceEquiv(MaskActive(sc.state))) { - chPrevNonWhite = sc.ch; - visibleChars++; - } - continuationLine = false; - sc.Forward(); - } - const bool rawStringsChanged = rawStringTerminators.Merge(rawSTNew, lineCurrent); - if (definitionsChanged || rawStringsChanged) - styler.ChangeLexerState(startPos, startPos + length); - sc.Complete(); -} - -// Store both the current line's fold level and the next lines in the -// level store to make it easy to pick up with each increment -// and to make it possible to fiddle the current level for "} else {". - -void SCI_METHOD LexerCPP::Fold(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) { - - if (!options.fold) - return; - - LexAccessor styler(pAccess); - - const Sci_PositionU endPos = startPos + length; - int visibleChars = 0; - bool inLineComment = false; - Sci_Position lineCurrent = styler.GetLine(startPos); - int levelCurrent = SC_FOLDLEVELBASE; - if (lineCurrent > 0) - levelCurrent = styler.LevelAt(lineCurrent-1) >> 16; - Sci_PositionU lineStartNext = styler.LineStart(lineCurrent+1); - int levelMinCurrent = levelCurrent; - int levelNext = levelCurrent; - char chNext = styler[startPos]; - int styleNext = MaskActive(styler.StyleAt(startPos)); - int style = MaskActive(initStyle); - const bool userDefinedFoldMarkers = !options.foldExplicitStart.empty() && !options.foldExplicitEnd.empty(); - for (Sci_PositionU i = startPos; i < endPos; i++) { - const char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - const int stylePrev = style; - style = styleNext; - styleNext = MaskActive(styler.StyleAt(i + 1)); - const bool atEOL = i == (lineStartNext-1); - if ((style == SCE_C_COMMENTLINE) || (style == SCE_C_COMMENTLINEDOC)) - inLineComment = true; - if (options.foldComment && options.foldCommentMultiline && IsStreamCommentStyle(style) && !inLineComment) { - if (!IsStreamCommentStyle(stylePrev)) { - levelNext++; - } else if (!IsStreamCommentStyle(styleNext) && !atEOL) { - // Comments don't end at end of line and the next character may be unstyled. - levelNext--; - } - } - if (options.foldComment && options.foldCommentExplicit && ((style == SCE_C_COMMENTLINE) || options.foldExplicitAnywhere)) { - if (userDefinedFoldMarkers) { - if (styler.Match(i, options.foldExplicitStart.c_str())) { - levelNext++; - } else if (styler.Match(i, options.foldExplicitEnd.c_str())) { - levelNext--; - } - } else { - if ((ch == '/') && (chNext == '/')) { - const char chNext2 = styler.SafeGetCharAt(i + 2); - if (chNext2 == '{') { - levelNext++; - } else if (chNext2 == '}') { - levelNext--; - } - } - } - } - if (options.foldPreprocessor && (style == SCE_C_PREPROCESSOR)) { - if (ch == '#') { - Sci_PositionU j = i + 1; - while ((j < endPos) && IsASpaceOrTab(styler.SafeGetCharAt(j))) { - j++; - } - if (styler.Match(j, "region") || styler.Match(j, "if")) { - levelNext++; - } else if (styler.Match(j, "end")) { - levelNext--; - } - - if (options.foldPreprocessorAtElse && (styler.Match(j, "else") || styler.Match(j, "elif"))) { - levelMinCurrent--; - } - } - } - if (options.foldSyntaxBased && (style == SCE_C_OPERATOR)) { - if (ch == '{' || ch == '[' || ch == '(') { - // Measure the minimum before a '{' to allow - // folding on "} else {" - if (options.foldAtElse && levelMinCurrent > levelNext) { - levelMinCurrent = levelNext; - } - levelNext++; - } else if (ch == '}' || ch == ']' || ch == ')') { - levelNext--; - } - } - if (!IsASpace(ch)) - visibleChars++; - if (atEOL || (i == endPos-1)) { - int levelUse = levelCurrent; - if ((options.foldSyntaxBased && options.foldAtElse) || - (options.foldPreprocessor && options.foldPreprocessorAtElse) - ) { - levelUse = levelMinCurrent; - } - int lev = levelUse | levelNext << 16; - if (visibleChars == 0 && options.foldCompact) - lev |= SC_FOLDLEVELWHITEFLAG; - if (levelUse < levelNext) - lev |= SC_FOLDLEVELHEADERFLAG; - if (lev != styler.LevelAt(lineCurrent)) { - styler.SetLevel(lineCurrent, lev); - } - lineCurrent++; - lineStartNext = styler.LineStart(lineCurrent+1); - levelCurrent = levelNext; - levelMinCurrent = levelCurrent; - if (atEOL && (i == static_cast(styler.Length()-1))) { - // There is an empty line at end of file so give it same level and empty - styler.SetLevel(lineCurrent, (levelCurrent | levelCurrent << 16) | SC_FOLDLEVELWHITEFLAG); - } - visibleChars = 0; - inLineComment = false; - } - } -} - -void LexerCPP::EvaluateTokens(std::vector &tokens, const SymbolTable &preprocessorDefinitions) { - - // Remove whitespace tokens - tokens.erase(std::remove_if(tokens.begin(), tokens.end(), OnlySpaceOrTab), tokens.end()); - - // Evaluate defined statements to either 0 or 1 - for (size_t i=0; (i+1)) - SymbolTable::const_iterator it = preprocessorDefinitions.find(tokens[i+2]); - if (it != preprocessorDefinitions.end()) { - val = "1"; - } - tokens.erase(tokens.begin() + i + 1, tokens.begin() + i + 4); - } else { - // Spurious '(' so erase as more likely to result in false - tokens.erase(tokens.begin() + i + 1, tokens.begin() + i + 2); - } - } else { - // defined - SymbolTable::const_iterator it = preprocessorDefinitions.find(tokens[i+1]); - if (it != preprocessorDefinitions.end()) { - val = "1"; - } - tokens.erase(tokens.begin() + i + 1, tokens.begin() + i + 2); - } - tokens[i] = val; - } else { - i++; - } - } - - // Evaluate identifiers - const size_t maxIterations = 100; - size_t iterations = 0; // Limit number of iterations in case there is a recursive macro. - for (size_t i = 0; (i(tokens[i][0]))) { - SymbolTable::const_iterator it = preprocessorDefinitions.find(tokens[i]); - if (it != preprocessorDefinitions.end()) { - // Tokenize value - std::vector macroTokens = Tokenize(it->second.value); - if (it->second.IsMacro()) { - if ((i + 1 < tokens.size()) && (tokens.at(i + 1) == "(")) { - // Create map of argument name to value - std::vector argumentNames = StringSplit(it->second.arguments, ','); - std::map arguments; - size_t arg = 0; - size_t tok = i+2; - while ((tok < tokens.size()) && (arg < argumentNames.size()) && (tokens.at(tok) != ")")) { - if (tokens.at(tok) != ",") { - arguments[argumentNames.at(arg)] = tokens.at(tok); - arg++; - } - tok++; - } - - // Remove invocation - tokens.erase(tokens.begin() + i, tokens.begin() + tok + 1); - - // Substitute values into macro - macroTokens.erase(std::remove_if(macroTokens.begin(), macroTokens.end(), OnlySpaceOrTab), macroTokens.end()); - - for (size_t iMacro = 0; iMacro < macroTokens.size();) { - if (setWordStart.Contains(static_cast(macroTokens[iMacro][0]))) { - std::map::const_iterator itFind = arguments.find(macroTokens[iMacro]); - if (itFind != arguments.end()) { - // TODO: Possible that value will be expression so should insert tokenized form - macroTokens[iMacro] = itFind->second; - } - } - iMacro++; - } - - // Insert results back into tokens - tokens.insert(tokens.begin() + i, macroTokens.begin(), macroTokens.end()); - - } else { - i++; - } - } else { - // Remove invocation - tokens.erase(tokens.begin() + i); - // Insert results back into tokens - tokens.insert(tokens.begin() + i, macroTokens.begin(), macroTokens.end()); - } - } else { - // Identifier not found and value defaults to zero - tokens[i] = "0"; - } - } else { - i++; - } - } - - // Find bracketed subexpressions and recurse on them - BracketPair bracketPair = FindBracketPair(tokens); - while (bracketPair.itBracket != tokens.end()) { - std::vector inBracket(bracketPair.itBracket + 1, bracketPair.itEndBracket); - EvaluateTokens(inBracket, preprocessorDefinitions); - - // The insertion is done before the removal because there were failures with the opposite approach - tokens.insert(bracketPair.itBracket, inBracket.begin(), inBracket.end()); - - bracketPair = FindBracketPair(tokens); - tokens.erase(bracketPair.itBracket, bracketPair.itEndBracket + 1); - - bracketPair = FindBracketPair(tokens); - } - - // Evaluate logical negations - for (size_t j=0; (j+1)::iterator itInsert = - tokens.erase(tokens.begin() + j, tokens.begin() + j + 2); - tokens.insert(itInsert, isTrue ? "1" : "0"); - } else { - j++; - } - } - - // Evaluate expressions in precedence order - enum precedence { precArithmetic, precRelative, precLogical }; - for (int prec=precArithmetic; prec <= precLogical; prec++) { - // Looking at 3 tokens at a time so end at 2 before end - for (size_t k=0; (k+2)") - result = valA > valB; - else if (tokens[k+1] == ">=") - result = valA >= valB; - else if (tokens[k+1] == "==") - result = valA == valB; - else if (tokens[k+1] == "!=") - result = valA != valB; - else if (tokens[k+1] == "||") - result = valA || valB; - else if (tokens[k+1] == "&&") - result = valA && valB; - char sResult[30]; - sprintf(sResult, "%d", result); - std::vector::iterator itInsert = - tokens.erase(tokens.begin() + k, tokens.begin() + k + 3); - tokens.insert(itInsert, sResult); - } else { - k++; - } - } - } -} - -std::vector LexerCPP::Tokenize(const std::string &expr) const { - // Break into tokens - std::vector tokens; - const char *cp = expr.c_str(); - while (*cp) { - std::string word; - if (setWord.Contains(static_cast(*cp))) { - // Identifiers and numbers - while (setWord.Contains(static_cast(*cp))) { - word += *cp; - cp++; - } - } else if (IsSpaceOrTab(*cp)) { - while (IsSpaceOrTab(*cp)) { - word += *cp; - cp++; - } - } else if (setRelOp.Contains(static_cast(*cp))) { - word += *cp; - cp++; - if (setRelOp.Contains(static_cast(*cp))) { - word += *cp; - cp++; - } - } else if (setLogicalOp.Contains(static_cast(*cp))) { - word += *cp; - cp++; - if (setLogicalOp.Contains(static_cast(*cp))) { - word += *cp; - cp++; - } - } else { - // Should handle strings, characters, and comments here - word += *cp; - cp++; - } - tokens.push_back(word); - } - return tokens; -} - -bool LexerCPP::EvaluateExpression(const std::string &expr, const SymbolTable &preprocessorDefinitions) { - std::vector tokens = Tokenize(expr); - - EvaluateTokens(tokens, preprocessorDefinitions); - - // "0" or "" -> false else true - const bool isFalse = tokens.empty() || - ((tokens.size() == 1) && ((tokens[0] == "") || tokens[0] == "0")); - return !isFalse; -} - -LexerModule lmCPP(SCLEX_CPP, LexerCPP::LexerFactoryCPP, "cpp", cppWordLists); -LexerModule lmCPPNoCase(SCLEX_CPPNOCASE, LexerCPP::LexerFactoryCPPInsensitive, "cppnocase", cppWordLists); diff --git a/libs/qscintilla/scintilla/lexers/LexCSS.cpp b/libs/qscintilla/scintilla/lexers/LexCSS.cpp deleted file mode 100644 index c1a86f53..00000000 --- a/libs/qscintilla/scintilla/lexers/LexCSS.cpp +++ /dev/null @@ -1,567 +0,0 @@ -// Scintilla source code edit control -// Encoding: UTF-8 -/** @file LexCSS.cxx - ** Lexer for Cascading Style Sheets - ** Written by Jakub Vrána - ** Improved by Philippe Lhoste (CSS2) - ** Improved by Ross McKay (SCSS mode; see http://sass-lang.com/ ) - **/ -// Copyright 1998-2002 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. - -// TODO: handle SCSS nested properties like font: { weight: bold; size: 1em; } -// TODO: handle SCSS interpolation: #{} -// TODO: add features for Less if somebody feels like contributing; http://lesscss.org/ -// TODO: refactor this monster so that the next poor slob can read it! - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - - -static inline bool IsAWordChar(const unsigned int ch) { - /* FIXME: - * The CSS spec allows "ISO 10646 characters U+00A1 and higher" to be treated as word chars. - * Unfortunately, we are only getting string bytes here, and not full unicode characters. We cannot guarantee - * that our byte is between U+0080 - U+00A0 (to return false), so we have to allow all characters U+0080 and higher - */ - return ch >= 0x80 || isalnum(ch) || ch == '-' || ch == '_'; -} - -inline bool IsCssOperator(const int ch) { - if (!((ch < 0x80) && isalnum(ch)) && - (ch == '{' || ch == '}' || ch == ':' || ch == ',' || ch == ';' || - ch == '.' || ch == '#' || ch == '!' || ch == '@' || - /* CSS2 */ - ch == '*' || ch == '>' || ch == '+' || ch == '=' || ch == '~' || ch == '|' || - ch == '[' || ch == ']' || ch == '(' || ch == ')')) { - return true; - } - return false; -} - -// look behind (from start of document to our start position) to determine current nesting level -inline int NestingLevelLookBehind(Sci_PositionU startPos, Accessor &styler) { - int ch; - int nestingLevel = 0; - - for (Sci_PositionU i = 0; i < startPos; i++) { - ch = styler.SafeGetCharAt(i); - if (ch == '{') - nestingLevel++; - else if (ch == '}') - nestingLevel--; - } - - return nestingLevel; -} - -static void ColouriseCssDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, WordList *keywordlists[], Accessor &styler) { - WordList &css1Props = *keywordlists[0]; - WordList &pseudoClasses = *keywordlists[1]; - WordList &css2Props = *keywordlists[2]; - WordList &css3Props = *keywordlists[3]; - WordList &pseudoElements = *keywordlists[4]; - WordList &exProps = *keywordlists[5]; - WordList &exPseudoClasses = *keywordlists[6]; - WordList &exPseudoElements = *keywordlists[7]; - - StyleContext sc(startPos, length, initStyle, styler); - - int lastState = -1; // before operator - int lastStateC = -1; // before comment - int lastStateS = -1; // before single-quoted/double-quoted string - int lastStateVar = -1; // before variable (SCSS) - int lastStateVal = -1; // before value (SCSS) - int op = ' '; // last operator - int opPrev = ' '; // last operator - bool insideParentheses = false; // true if currently in a CSS url() or similar construct - - // property lexer.css.scss.language - // Set to 1 for Sassy CSS (.scss) - bool isScssDocument = styler.GetPropertyInt("lexer.css.scss.language") != 0; - - // property lexer.css.less.language - // Set to 1 for Less CSS (.less) - bool isLessDocument = styler.GetPropertyInt("lexer.css.less.language") != 0; - - // property lexer.css.hss.language - // Set to 1 for HSS (.hss) - bool isHssDocument = styler.GetPropertyInt("lexer.css.hss.language") != 0; - - // SCSS/LESS/HSS have the concept of variable - bool hasVariables = isScssDocument || isLessDocument || isHssDocument; - char varPrefix = 0; - if (hasVariables) - varPrefix = isLessDocument ? '@' : '$'; - - // SCSS/LESS/HSS support single-line comments - typedef enum _CommentModes { eCommentBlock = 0, eCommentLine = 1} CommentMode; - CommentMode comment_mode = eCommentBlock; - bool hasSingleLineComments = isScssDocument || isLessDocument || isHssDocument; - - // must keep track of nesting level in document types that support it (SCSS/LESS/HSS) - bool hasNesting = false; - int nestingLevel = 0; - if (isScssDocument || isLessDocument || isHssDocument) { - hasNesting = true; - nestingLevel = NestingLevelLookBehind(startPos, styler); - } - - // "the loop" - for (; sc.More(); sc.Forward()) { - if (sc.state == SCE_CSS_COMMENT && ((comment_mode == eCommentBlock && sc.Match('*', '/')) || (comment_mode == eCommentLine && sc.atLineEnd))) { - if (lastStateC == -1) { - // backtrack to get last state: - // comments are like whitespace, so we must return to the previous state - Sci_PositionU i = startPos; - for (; i > 0; i--) { - if ((lastStateC = styler.StyleAt(i-1)) != SCE_CSS_COMMENT) { - if (lastStateC == SCE_CSS_OPERATOR) { - op = styler.SafeGetCharAt(i-1); - opPrev = styler.SafeGetCharAt(i-2); - while (--i) { - lastState = styler.StyleAt(i-1); - if (lastState != SCE_CSS_OPERATOR && lastState != SCE_CSS_COMMENT) - break; - } - if (i == 0) - lastState = SCE_CSS_DEFAULT; - } - break; - } - } - if (i == 0) - lastStateC = SCE_CSS_DEFAULT; - } - if (comment_mode == eCommentBlock) { - sc.Forward(); - sc.ForwardSetState(lastStateC); - } else /* eCommentLine */ { - sc.SetState(lastStateC); - } - } - - if (sc.state == SCE_CSS_COMMENT) - continue; - - if (sc.state == SCE_CSS_DOUBLESTRING || sc.state == SCE_CSS_SINGLESTRING) { - if (sc.ch != (sc.state == SCE_CSS_DOUBLESTRING ? '\"' : '\'')) - continue; - Sci_PositionU i = sc.currentPos; - while (i && styler[i-1] == '\\') - i--; - if ((sc.currentPos - i) % 2 == 1) - continue; - sc.ForwardSetState(lastStateS); - } - - if (sc.state == SCE_CSS_OPERATOR) { - if (op == ' ') { - Sci_PositionU i = startPos; - op = styler.SafeGetCharAt(i-1); - opPrev = styler.SafeGetCharAt(i-2); - while (--i) { - lastState = styler.StyleAt(i-1); - if (lastState != SCE_CSS_OPERATOR && lastState != SCE_CSS_COMMENT) - break; - } - } - switch (op) { - case '@': - if (lastState == SCE_CSS_DEFAULT || hasNesting) - sc.SetState(SCE_CSS_DIRECTIVE); - break; - case '>': - case '+': - if (lastState == SCE_CSS_TAG || lastState == SCE_CSS_CLASS || lastState == SCE_CSS_ID || - lastState == SCE_CSS_PSEUDOCLASS || lastState == SCE_CSS_EXTENDED_PSEUDOCLASS || lastState == SCE_CSS_UNKNOWN_PSEUDOCLASS) - sc.SetState(SCE_CSS_DEFAULT); - break; - case '[': - if (lastState == SCE_CSS_TAG || lastState == SCE_CSS_DEFAULT || lastState == SCE_CSS_CLASS || lastState == SCE_CSS_ID || - lastState == SCE_CSS_PSEUDOCLASS || lastState == SCE_CSS_EXTENDED_PSEUDOCLASS || lastState == SCE_CSS_UNKNOWN_PSEUDOCLASS) - sc.SetState(SCE_CSS_ATTRIBUTE); - break; - case ']': - if (lastState == SCE_CSS_ATTRIBUTE) - sc.SetState(SCE_CSS_TAG); - break; - case '{': - nestingLevel++; - switch (lastState) { - case SCE_CSS_MEDIA: - sc.SetState(SCE_CSS_DEFAULT); - break; - case SCE_CSS_TAG: - case SCE_CSS_DIRECTIVE: - sc.SetState(SCE_CSS_IDENTIFIER); - break; - } - break; - case '}': - if (--nestingLevel < 0) - nestingLevel = 0; - switch (lastState) { - case SCE_CSS_DEFAULT: - case SCE_CSS_VALUE: - case SCE_CSS_IMPORTANT: - case SCE_CSS_IDENTIFIER: - case SCE_CSS_IDENTIFIER2: - case SCE_CSS_IDENTIFIER3: - if (hasNesting) - sc.SetState(nestingLevel > 0 ? SCE_CSS_IDENTIFIER : SCE_CSS_DEFAULT); - else - sc.SetState(SCE_CSS_DEFAULT); - break; - } - break; - case '(': - if (lastState == SCE_CSS_PSEUDOCLASS) - sc.SetState(SCE_CSS_TAG); - else if (lastState == SCE_CSS_EXTENDED_PSEUDOCLASS) - sc.SetState(SCE_CSS_EXTENDED_PSEUDOCLASS); - break; - case ')': - if (lastState == SCE_CSS_TAG || lastState == SCE_CSS_DEFAULT || lastState == SCE_CSS_CLASS || lastState == SCE_CSS_ID || - lastState == SCE_CSS_PSEUDOCLASS || lastState == SCE_CSS_EXTENDED_PSEUDOCLASS || lastState == SCE_CSS_UNKNOWN_PSEUDOCLASS || - lastState == SCE_CSS_PSEUDOELEMENT || lastState == SCE_CSS_EXTENDED_PSEUDOELEMENT) - sc.SetState(SCE_CSS_TAG); - break; - case ':': - switch (lastState) { - case SCE_CSS_TAG: - case SCE_CSS_DEFAULT: - case SCE_CSS_CLASS: - case SCE_CSS_ID: - case SCE_CSS_PSEUDOCLASS: - case SCE_CSS_EXTENDED_PSEUDOCLASS: - case SCE_CSS_UNKNOWN_PSEUDOCLASS: - case SCE_CSS_PSEUDOELEMENT: - case SCE_CSS_EXTENDED_PSEUDOELEMENT: - sc.SetState(SCE_CSS_PSEUDOCLASS); - break; - case SCE_CSS_IDENTIFIER: - case SCE_CSS_IDENTIFIER2: - case SCE_CSS_IDENTIFIER3: - case SCE_CSS_EXTENDED_IDENTIFIER: - case SCE_CSS_UNKNOWN_IDENTIFIER: - case SCE_CSS_VARIABLE: - sc.SetState(SCE_CSS_VALUE); - lastStateVal = lastState; - break; - } - break; - case '.': - if (lastState == SCE_CSS_TAG || lastState == SCE_CSS_DEFAULT || lastState == SCE_CSS_CLASS || lastState == SCE_CSS_ID || - lastState == SCE_CSS_PSEUDOCLASS || lastState == SCE_CSS_EXTENDED_PSEUDOCLASS || lastState == SCE_CSS_UNKNOWN_PSEUDOCLASS) - sc.SetState(SCE_CSS_CLASS); - break; - case '#': - if (lastState == SCE_CSS_TAG || lastState == SCE_CSS_DEFAULT || lastState == SCE_CSS_CLASS || lastState == SCE_CSS_ID || - lastState == SCE_CSS_PSEUDOCLASS || lastState == SCE_CSS_EXTENDED_PSEUDOCLASS || lastState == SCE_CSS_UNKNOWN_PSEUDOCLASS) - sc.SetState(SCE_CSS_ID); - break; - case ',': - case '|': - case '~': - if (lastState == SCE_CSS_TAG) - sc.SetState(SCE_CSS_DEFAULT); - break; - case ';': - switch (lastState) { - case SCE_CSS_DIRECTIVE: - if (hasNesting) { - sc.SetState(nestingLevel > 0 ? SCE_CSS_IDENTIFIER : SCE_CSS_DEFAULT); - } else { - sc.SetState(SCE_CSS_DEFAULT); - } - break; - case SCE_CSS_VALUE: - case SCE_CSS_IMPORTANT: - // data URLs can have semicolons; simplistically check for wrapping parentheses and move along - if (insideParentheses) { - sc.SetState(lastState); - } else { - if (lastStateVal == SCE_CSS_VARIABLE) { - sc.SetState(SCE_CSS_DEFAULT); - } else { - sc.SetState(SCE_CSS_IDENTIFIER); - } - } - break; - case SCE_CSS_VARIABLE: - if (lastStateVar == SCE_CSS_VALUE) { - // data URLs can have semicolons; simplistically check for wrapping parentheses and move along - if (insideParentheses) { - sc.SetState(SCE_CSS_VALUE); - } else { - sc.SetState(SCE_CSS_IDENTIFIER); - } - } else { - sc.SetState(SCE_CSS_DEFAULT); - } - break; - } - break; - case '!': - if (lastState == SCE_CSS_VALUE) - sc.SetState(SCE_CSS_IMPORTANT); - break; - } - } - - if (sc.ch == '*' && sc.state == SCE_CSS_DEFAULT) { - sc.SetState(SCE_CSS_TAG); - continue; - } - - // check for inside parentheses (whether part of an "operator" or not) - if (sc.ch == '(') - insideParentheses = true; - else if (sc.ch == ')') - insideParentheses = false; - - // SCSS special modes - if (hasVariables) { - // variable name - if (sc.ch == varPrefix) { - switch (sc.state) { - case SCE_CSS_DEFAULT: - if (isLessDocument) // give priority to pseudo elements - break; - // Falls through. - case SCE_CSS_VALUE: - lastStateVar = sc.state; - sc.SetState(SCE_CSS_VARIABLE); - continue; - } - } - if (sc.state == SCE_CSS_VARIABLE) { - if (IsAWordChar(sc.ch)) { - // still looking at the variable name - continue; - } - if (lastStateVar == SCE_CSS_VALUE) { - // not looking at the variable name any more, and it was part of a value - sc.SetState(SCE_CSS_VALUE); - } - } - - // nested rule parent selector - if (sc.ch == '&') { - switch (sc.state) { - case SCE_CSS_DEFAULT: - case SCE_CSS_IDENTIFIER: - sc.SetState(SCE_CSS_TAG); - continue; - } - } - } - - // nesting rules that apply to SCSS and Less - if (hasNesting) { - // check for nested rule selector - if (sc.state == SCE_CSS_IDENTIFIER && (IsAWordChar(sc.ch) || sc.ch == ':' || sc.ch == '.' || sc.ch == '#')) { - // look ahead to see whether { comes before next ; and } - Sci_PositionU endPos = startPos + length; - int ch; - - for (Sci_PositionU i = sc.currentPos; i < endPos; i++) { - ch = styler.SafeGetCharAt(i); - if (ch == ';' || ch == '}') - break; - if (ch == '{') { - sc.SetState(SCE_CSS_DEFAULT); - continue; - } - } - } - - } - - if (IsAWordChar(sc.ch)) { - if (sc.state == SCE_CSS_DEFAULT) - sc.SetState(SCE_CSS_TAG); - continue; - } - - if (IsAWordChar(sc.chPrev) && ( - sc.state == SCE_CSS_IDENTIFIER || sc.state == SCE_CSS_IDENTIFIER2 || - sc.state == SCE_CSS_IDENTIFIER3 || sc.state == SCE_CSS_EXTENDED_IDENTIFIER || - sc.state == SCE_CSS_UNKNOWN_IDENTIFIER || - sc.state == SCE_CSS_PSEUDOCLASS || sc.state == SCE_CSS_PSEUDOELEMENT || - sc.state == SCE_CSS_EXTENDED_PSEUDOCLASS || sc.state == SCE_CSS_EXTENDED_PSEUDOELEMENT || - sc.state == SCE_CSS_UNKNOWN_PSEUDOCLASS || - sc.state == SCE_CSS_IMPORTANT || - sc.state == SCE_CSS_DIRECTIVE - )) { - char s[100]; - sc.GetCurrentLowered(s, sizeof(s)); - char *s2 = s; - while (*s2 && !IsAWordChar(*s2)) - s2++; - switch (sc.state) { - case SCE_CSS_IDENTIFIER: - case SCE_CSS_IDENTIFIER2: - case SCE_CSS_IDENTIFIER3: - case SCE_CSS_EXTENDED_IDENTIFIER: - case SCE_CSS_UNKNOWN_IDENTIFIER: - if (css1Props.InList(s2)) - sc.ChangeState(SCE_CSS_IDENTIFIER); - else if (css2Props.InList(s2)) - sc.ChangeState(SCE_CSS_IDENTIFIER2); - else if (css3Props.InList(s2)) - sc.ChangeState(SCE_CSS_IDENTIFIER3); - else if (exProps.InList(s2)) - sc.ChangeState(SCE_CSS_EXTENDED_IDENTIFIER); - else - sc.ChangeState(SCE_CSS_UNKNOWN_IDENTIFIER); - break; - case SCE_CSS_PSEUDOCLASS: - case SCE_CSS_PSEUDOELEMENT: - case SCE_CSS_EXTENDED_PSEUDOCLASS: - case SCE_CSS_EXTENDED_PSEUDOELEMENT: - case SCE_CSS_UNKNOWN_PSEUDOCLASS: - if (op == ':' && opPrev != ':' && pseudoClasses.InList(s2)) - sc.ChangeState(SCE_CSS_PSEUDOCLASS); - else if (opPrev == ':' && pseudoElements.InList(s2)) - sc.ChangeState(SCE_CSS_PSEUDOELEMENT); - else if ((op == ':' || (op == '(' && lastState == SCE_CSS_EXTENDED_PSEUDOCLASS)) && opPrev != ':' && exPseudoClasses.InList(s2)) - sc.ChangeState(SCE_CSS_EXTENDED_PSEUDOCLASS); - else if (opPrev == ':' && exPseudoElements.InList(s2)) - sc.ChangeState(SCE_CSS_EXTENDED_PSEUDOELEMENT); - else - sc.ChangeState(SCE_CSS_UNKNOWN_PSEUDOCLASS); - break; - case SCE_CSS_IMPORTANT: - if (strcmp(s2, "important") != 0) - sc.ChangeState(SCE_CSS_VALUE); - break; - case SCE_CSS_DIRECTIVE: - if (op == '@' && strcmp(s2, "media") == 0) - sc.ChangeState(SCE_CSS_MEDIA); - break; - } - } - - if (sc.ch != '.' && sc.ch != ':' && sc.ch != '#' && ( - sc.state == SCE_CSS_CLASS || sc.state == SCE_CSS_ID || - (sc.ch != '(' && sc.ch != ')' && ( /* This line of the condition makes it possible to extend pseudo-classes with parentheses */ - sc.state == SCE_CSS_PSEUDOCLASS || sc.state == SCE_CSS_PSEUDOELEMENT || - sc.state == SCE_CSS_EXTENDED_PSEUDOCLASS || sc.state == SCE_CSS_EXTENDED_PSEUDOELEMENT || - sc.state == SCE_CSS_UNKNOWN_PSEUDOCLASS - )) - )) - sc.SetState(SCE_CSS_TAG); - - if (sc.Match('/', '*')) { - lastStateC = sc.state; - comment_mode = eCommentBlock; - sc.SetState(SCE_CSS_COMMENT); - sc.Forward(); - } else if (hasSingleLineComments && sc.Match('/', '/') && !insideParentheses) { - // note that we've had to treat ([...]// as the start of a URL not a comment, e.g. url(http://example.com), url(//example.com) - lastStateC = sc.state; - comment_mode = eCommentLine; - sc.SetState(SCE_CSS_COMMENT); - sc.Forward(); - } else if ((sc.state == SCE_CSS_VALUE || sc.state == SCE_CSS_ATTRIBUTE) - && (sc.ch == '\"' || sc.ch == '\'')) { - lastStateS = sc.state; - sc.SetState((sc.ch == '\"' ? SCE_CSS_DOUBLESTRING : SCE_CSS_SINGLESTRING)); - } else if (IsCssOperator(sc.ch) - && (sc.state != SCE_CSS_ATTRIBUTE || sc.ch == ']') - && (sc.state != SCE_CSS_VALUE || sc.ch == ';' || sc.ch == '}' || sc.ch == '!') - && ((sc.state != SCE_CSS_DIRECTIVE && sc.state != SCE_CSS_MEDIA) || sc.ch == ';' || sc.ch == '{') - ) { - if (sc.state != SCE_CSS_OPERATOR) - lastState = sc.state; - sc.SetState(SCE_CSS_OPERATOR); - op = sc.ch; - opPrev = sc.chPrev; - } - } - - sc.Complete(); -} - -static void FoldCSSDoc(Sci_PositionU startPos, Sci_Position length, int, WordList *[], Accessor &styler) { - bool foldComment = styler.GetPropertyInt("fold.comment") != 0; - bool foldCompact = styler.GetPropertyInt("fold.compact", 1) != 0; - Sci_PositionU endPos = startPos + length; - int visibleChars = 0; - Sci_Position lineCurrent = styler.GetLine(startPos); - int levelPrev = styler.LevelAt(lineCurrent) & SC_FOLDLEVELNUMBERMASK; - int levelCurrent = levelPrev; - char chNext = styler[startPos]; - bool inComment = (styler.StyleAt(startPos-1) == SCE_CSS_COMMENT); - for (Sci_PositionU i = startPos; i < endPos; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - int style = styler.StyleAt(i); - bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n'); - if (foldComment) { - if (!inComment && (style == SCE_CSS_COMMENT)) - levelCurrent++; - else if (inComment && (style != SCE_CSS_COMMENT)) - levelCurrent--; - inComment = (style == SCE_CSS_COMMENT); - } - if (style == SCE_CSS_OPERATOR) { - if (ch == '{') { - levelCurrent++; - } else if (ch == '}') { - levelCurrent--; - } - } - if (atEOL) { - int lev = levelPrev; - if (visibleChars == 0 && foldCompact) - lev |= SC_FOLDLEVELWHITEFLAG; - if ((levelCurrent > levelPrev) && (visibleChars > 0)) - lev |= SC_FOLDLEVELHEADERFLAG; - if (lev != styler.LevelAt(lineCurrent)) { - styler.SetLevel(lineCurrent, lev); - } - lineCurrent++; - levelPrev = levelCurrent; - visibleChars = 0; - } - if (!isspacechar(ch)) - visibleChars++; - } - // Fill in the real level of the next line, keeping the current flags as they will be filled in later - int flagsNext = styler.LevelAt(lineCurrent) & ~SC_FOLDLEVELNUMBERMASK; - styler.SetLevel(lineCurrent, levelPrev | flagsNext); -} - -static const char * const cssWordListDesc[] = { - "CSS1 Properties", - "Pseudo-classes", - "CSS2 Properties", - "CSS3 Properties", - "Pseudo-elements", - "Browser-Specific CSS Properties", - "Browser-Specific Pseudo-classes", - "Browser-Specific Pseudo-elements", - 0 -}; - -LexerModule lmCss(SCLEX_CSS, ColouriseCssDoc, "css", FoldCSSDoc, cssWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexCaml.cpp b/libs/qscintilla/scintilla/lexers/LexCaml.cpp deleted file mode 100644 index 1339b5dc..00000000 --- a/libs/qscintilla/scintilla/lexers/LexCaml.cpp +++ /dev/null @@ -1,460 +0,0 @@ -// Scintilla source code edit control -/** @file LexCaml.cxx - ** Lexer for Objective Caml. - **/ -// Copyright 2005-2009 by Robert Roessler -// The License.txt file describes the conditions under which this software may be distributed. -/* Release History - 20050204 Initial release. - 20050205 Quick compiler standards/"cleanliness" adjustment. - 20050206 Added cast for IsLeadByte(). - 20050209 Changes to "external" build support. - 20050306 Fix for 1st-char-in-doc "corner" case. - 20050502 Fix for [harmless] one-past-the-end coloring. - 20050515 Refined numeric token recognition logic. - 20051125 Added 2nd "optional" keywords class. - 20051129 Support "magic" (read-only) comments for RCaml. - 20051204 Swtich to using StyleContext infrastructure. - 20090629 Add full Standard ML '97 support. -*/ - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "PropSetSimple.h" -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -#if defined(__clang__) -#pragma clang diagnostic ignored "-Wcomma" -#endif - -// Since the Microsoft __iscsym[f] funcs are not ANSI... -inline int iscaml(int c) {return isalnum(c) || c == '_';} -inline int iscamlf(int c) {return isalpha(c) || c == '_';} - -static const int baseT[24] = { - 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* A - L */ - 0, 0, 8, 0, 0, 0, 0, 0, 0, 0, 0,16 /* M - X */ -}; - -using namespace Scintilla; - -#ifdef BUILD_AS_EXTERNAL_LEXER -/* - (actually seems to work!) -*/ -#include -#include "WindowAccessor.h" -#include "ExternalLexer.h" - -#undef EXT_LEXER_DECL -#define EXT_LEXER_DECL __declspec( dllexport ) __stdcall - -#if PLAT_WIN -#include -#endif - -static void ColouriseCamlDoc( - Sci_PositionU startPos, Sci_Position length, - int initStyle, - WordList *keywordlists[], - Accessor &styler); - -static void FoldCamlDoc( - Sci_PositionU startPos, Sci_Position length, - int initStyle, - WordList *keywordlists[], - Accessor &styler); - -static void InternalLexOrFold(int lexOrFold, Sci_PositionU startPos, Sci_Position length, - int initStyle, char *words[], WindowID window, char *props); - -static const char* LexerName = "caml"; - -#ifdef TRACE -void Platform::DebugPrintf(const char *format, ...) { - char buffer[2000]; - va_list pArguments; - va_start(pArguments, format); - vsprintf(buffer,format,pArguments); - va_end(pArguments); - Platform::DebugDisplay(buffer); -} -#else -void Platform::DebugPrintf(const char *, ...) { -} -#endif - -bool Platform::IsDBCSLeadByte(int codePage, char ch) { - return ::IsDBCSLeadByteEx(codePage, ch) != 0; -} - -long Platform::SendScintilla(WindowID w, unsigned int msg, unsigned long wParam, long lParam) { - return ::SendMessage(reinterpret_cast(w), msg, wParam, lParam); -} - -long Platform::SendScintillaPointer(WindowID w, unsigned int msg, unsigned long wParam, void *lParam) { - return ::SendMessage(reinterpret_cast(w), msg, wParam, - reinterpret_cast(lParam)); -} - -void EXT_LEXER_DECL Fold(unsigned int lexer, Sci_PositionU startPos, Sci_Position length, - int initStyle, char *words[], WindowID window, char *props) -{ - // below useless evaluation(s) to supress "not used" warnings - lexer; - // build expected data structures and do the Fold - InternalLexOrFold(1, startPos, length, initStyle, words, window, props); - -} - -int EXT_LEXER_DECL GetLexerCount() -{ - return 1; // just us [Objective] Caml lexers here! -} - -void EXT_LEXER_DECL GetLexerName(unsigned int Index, char *name, int buflength) -{ - // below useless evaluation(s) to supress "not used" warnings - Index; - // return as much of our lexer name as will fit (what's up with Index?) - if (buflength > 0) { - buflength--; - int n = strlen(LexerName); - if (n > buflength) - n = buflength; - memcpy(name, LexerName, n), name[n] = '\0'; - } -} - -void EXT_LEXER_DECL Lex(unsigned int lexer, Sci_PositionU startPos, Sci_Position length, - int initStyle, char *words[], WindowID window, char *props) -{ - // below useless evaluation(s) to supress "not used" warnings - lexer; - // build expected data structures and do the Lex - InternalLexOrFold(0, startPos, length, initStyle, words, window, props); -} - -static void InternalLexOrFold(int foldOrLex, Sci_PositionU startPos, Sci_Position length, - int initStyle, char *words[], WindowID window, char *props) -{ - // create and initialize a WindowAccessor (including contained PropSet) - PropSetSimple ps; - ps.SetMultiple(props); - WindowAccessor wa(window, ps); - // create and initialize WordList(s) - int nWL = 0; - for (; words[nWL]; nWL++) ; // count # of WordList PTRs needed - WordList** wl = new WordList* [nWL + 1];// alloc WordList PTRs - int i = 0; - for (; i < nWL; i++) { - wl[i] = new WordList(); // (works or THROWS bad_alloc EXCEPTION) - wl[i]->Set(words[i]); - } - wl[i] = 0; - // call our "internal" folder/lexer (... then do Flush!) - if (foldOrLex) - FoldCamlDoc(startPos, length, initStyle, wl, wa); - else - ColouriseCamlDoc(startPos, length, initStyle, wl, wa); - wa.Flush(); - // clean up before leaving - for (i = nWL - 1; i >= 0; i--) - delete wl[i]; - delete [] wl; -} - -static -#endif /* BUILD_AS_EXTERNAL_LEXER */ - -void ColouriseCamlDoc( - Sci_PositionU startPos, Sci_Position length, - int initStyle, - WordList *keywordlists[], - Accessor &styler) -{ - // initialize styler - StyleContext sc(startPos, length, initStyle, styler); - - Sci_PositionU chToken = 0; - int chBase = 0, chLit = 0; - WordList& keywords = *keywordlists[0]; - WordList& keywords2 = *keywordlists[1]; - WordList& keywords3 = *keywordlists[2]; - const bool isSML = keywords.InList("andalso"); - const int useMagic = styler.GetPropertyInt("lexer.caml.magic", 0); - - // set up [initial] state info (terminating states that shouldn't "bleed") - const int state_ = sc.state & 0x0f; - if (state_ <= SCE_CAML_CHAR - || (isSML && state_ == SCE_CAML_STRING)) - sc.state = SCE_CAML_DEFAULT; - int nesting = (state_ >= SCE_CAML_COMMENT)? (state_ - SCE_CAML_COMMENT): 0; - - // foreach char in range... - while (sc.More()) { - // set up [per-char] state info - int state2 = -1; // (ASSUME no state change) - Sci_Position chColor = sc.currentPos - 1;// (ASSUME standard coloring range) - bool advance = true; // (ASSUME scanner "eats" 1 char) - - // step state machine - switch (sc.state & 0x0f) { - case SCE_CAML_DEFAULT: - chToken = sc.currentPos; // save [possible] token start (JIC) - // it's wide open; what do we have? - if (iscamlf(sc.ch)) - state2 = SCE_CAML_IDENTIFIER; - else if (!isSML && sc.Match('`') && iscamlf(sc.chNext)) - state2 = SCE_CAML_TAGNAME; - else if (!isSML && sc.Match('#') && isdigit(sc.chNext)) - state2 = SCE_CAML_LINENUM; - else if (isdigit(sc.ch)) { - // it's a number, assume base 10 - state2 = SCE_CAML_NUMBER, chBase = 10; - if (sc.Match('0')) { - // there MAY be a base specified... - const char* baseC = "bBoOxX"; - if (isSML) { - if (sc.chNext == 'w') - sc.Forward(); // (consume SML "word" indicator) - baseC = "x"; - } - // ... change to specified base AS REQUIRED - if (strchr(baseC, sc.chNext)) - chBase = baseT[tolower(sc.chNext) - 'a'], sc.Forward(); - } - } else if (!isSML && sc.Match('\'')) // (Caml char literal?) - state2 = SCE_CAML_CHAR, chLit = 0; - else if (isSML && sc.Match('#', '"')) // (SML char literal?) - state2 = SCE_CAML_CHAR, sc.Forward(); - else if (sc.Match('"')) - state2 = SCE_CAML_STRING; - else if (sc.Match('(', '*')) - state2 = SCE_CAML_COMMENT, sc.Forward(), sc.ch = ' '; // (*)... - else if (strchr("!?~" /* Caml "prefix-symbol" */ - "=<>@^|&+-*/$%" /* Caml "infix-symbol" */ - "()[]{};,:.#", sc.ch) // Caml "bracket" or ;,:.# - // SML "extra" ident chars - || (isSML && (sc.Match('\\') || sc.Match('`')))) - state2 = SCE_CAML_OPERATOR; - break; - - case SCE_CAML_IDENTIFIER: - // [try to] interpret as [additional] identifier char - if (!(iscaml(sc.ch) || sc.Match('\''))) { - const Sci_Position n = sc.currentPos - chToken; - if (n < 24) { - // length is believable as keyword, [re-]construct token - char t[24]; - for (Sci_Position i = -n; i < 0; i++) - t[n + i] = static_cast(sc.GetRelative(i)); - t[n] = '\0'; - // special-case "_" token as KEYWORD - if ((n == 1 && sc.chPrev == '_') || keywords.InList(t)) - sc.ChangeState(SCE_CAML_KEYWORD); - else if (keywords2.InList(t)) - sc.ChangeState(SCE_CAML_KEYWORD2); - else if (keywords3.InList(t)) - sc.ChangeState(SCE_CAML_KEYWORD3); - } - state2 = SCE_CAML_DEFAULT, advance = false; - } - break; - - case SCE_CAML_TAGNAME: - // [try to] interpret as [additional] tagname char - if (!(iscaml(sc.ch) || sc.Match('\''))) - state2 = SCE_CAML_DEFAULT, advance = false; - break; - - /*case SCE_CAML_KEYWORD: - case SCE_CAML_KEYWORD2: - case SCE_CAML_KEYWORD3: - // [try to] interpret as [additional] keyword char - if (!iscaml(ch)) - state2 = SCE_CAML_DEFAULT, advance = false; - break;*/ - - case SCE_CAML_LINENUM: - // [try to] interpret as [additional] linenum directive char - if (!isdigit(sc.ch)) - state2 = SCE_CAML_DEFAULT, advance = false; - break; - - case SCE_CAML_OPERATOR: { - // [try to] interpret as [additional] operator char - const char* o = 0; - if (iscaml(sc.ch) || isspace(sc.ch) // ident or whitespace - || (o = strchr(")]};,\'\"#", sc.ch),o) // "termination" chars - || (!isSML && sc.Match('`')) // Caml extra term char - || (!strchr("!$%&*+-./:<=>?@^|~", sc.ch)// "operator" chars - // SML extra ident chars - && !(isSML && (sc.Match('\\') || sc.Match('`'))))) { - // check for INCLUSIVE termination - if (o && strchr(")]};,", sc.ch)) { - if ((sc.Match(')') && sc.chPrev == '(') - || (sc.Match(']') && sc.chPrev == '[')) - // special-case "()" and "[]" tokens as KEYWORDS - sc.ChangeState(SCE_CAML_KEYWORD); - chColor++; - } else - advance = false; - state2 = SCE_CAML_DEFAULT; - } - break; - } - - case SCE_CAML_NUMBER: - // [try to] interpret as [additional] numeric literal char - if ((!isSML && sc.Match('_')) || IsADigit(sc.ch, chBase)) - break; - // how about an integer suffix? - if (!isSML && (sc.Match('l') || sc.Match('L') || sc.Match('n')) - && (sc.chPrev == '_' || IsADigit(sc.chPrev, chBase))) - break; - // or a floating-point literal? - if (chBase == 10) { - // with a decimal point? - if (sc.Match('.') - && ((!isSML && sc.chPrev == '_') - || IsADigit(sc.chPrev, chBase))) - break; - // with an exponent? (I) - if ((sc.Match('e') || sc.Match('E')) - && ((!isSML && (sc.chPrev == '.' || sc.chPrev == '_')) - || IsADigit(sc.chPrev, chBase))) - break; - // with an exponent? (II) - if (((!isSML && (sc.Match('+') || sc.Match('-'))) - || (isSML && sc.Match('~'))) - && (sc.chPrev == 'e' || sc.chPrev == 'E')) - break; - } - // it looks like we have run out of number - state2 = SCE_CAML_DEFAULT, advance = false; - break; - - case SCE_CAML_CHAR: - if (!isSML) { - // [try to] interpret as [additional] char literal char - if (sc.Match('\\')) { - chLit = 1; // (definitely IS a char literal) - if (sc.chPrev == '\\') - sc.ch = ' '; // (...\\') - // should we be terminating - one way or another? - } else if ((sc.Match('\'') && sc.chPrev != '\\') - || sc.atLineEnd) { - state2 = SCE_CAML_DEFAULT; - if (sc.Match('\'')) - chColor++; - else - sc.ChangeState(SCE_CAML_IDENTIFIER); - // ... maybe a char literal, maybe not - } else if (chLit < 1 && sc.currentPos - chToken >= 2) - sc.ChangeState(SCE_CAML_IDENTIFIER), advance = false; - break; - }/* else - // fall through for SML char literal (handle like string) */ - // Falls through. - - case SCE_CAML_STRING: - // [try to] interpret as [additional] [SML char/] string literal char - if (isSML && sc.Match('\\') && sc.chPrev != '\\' && isspace(sc.chNext)) - state2 = SCE_CAML_WHITE; - else if (sc.Match('\\') && sc.chPrev == '\\') - sc.ch = ' '; // (...\\") - // should we be terminating - one way or another? - else if ((sc.Match('"') && sc.chPrev != '\\') - || (isSML && sc.atLineEnd)) { - state2 = SCE_CAML_DEFAULT; - if (sc.Match('"')) - chColor++; - } - break; - - case SCE_CAML_WHITE: - // [try to] interpret as [additional] SML embedded whitespace char - if (sc.Match('\\')) { - // style this puppy NOW... - state2 = SCE_CAML_STRING, sc.ch = ' ' /* (...\") */, chColor++, - styler.ColourTo(chColor, SCE_CAML_WHITE), styler.Flush(); - // ... then backtrack to determine original SML literal type - Sci_Position p = chColor - 2; - for (; p >= 0 && styler.StyleAt(p) == SCE_CAML_WHITE; p--) ; - if (p >= 0) - state2 = static_cast(styler.StyleAt(p)); - // take care of state change NOW - sc.ChangeState(state2), state2 = -1; - } - break; - - case SCE_CAML_COMMENT: - case SCE_CAML_COMMENT1: - case SCE_CAML_COMMENT2: - case SCE_CAML_COMMENT3: - // we're IN a comment - does this start a NESTED comment? - if (sc.Match('(', '*')) - state2 = sc.state + 1, chToken = sc.currentPos, - sc.Forward(), sc.ch = ' ' /* (*)... */, nesting++; - // [try to] interpret as [additional] comment char - else if (sc.Match(')') && sc.chPrev == '*') { - if (nesting) - state2 = (sc.state & 0x0f) - 1, chToken = 0, nesting--; - else - state2 = SCE_CAML_DEFAULT; - chColor++; - // enable "magic" (read-only) comment AS REQUIRED - } else if (useMagic && sc.currentPos - chToken == 4 - && sc.Match('c') && sc.chPrev == 'r' && sc.GetRelative(-2) == '@') - sc.state |= 0x10; // (switch to read-only comment style) - break; - } - - // handle state change and char coloring AS REQUIRED - if (state2 >= 0) - styler.ColourTo(chColor, sc.state), sc.ChangeState(state2); - // move to next char UNLESS re-scanning current char - if (advance) - sc.Forward(); - } - - // do any required terminal char coloring (JIC) - sc.Complete(); -} - -#ifdef BUILD_AS_EXTERNAL_LEXER -static -#endif /* BUILD_AS_EXTERNAL_LEXER */ -void FoldCamlDoc( - Sci_PositionU, Sci_Position, - int, - WordList *[], - Accessor &) -{ -} - -static const char * const camlWordListDesc[] = { - "Keywords", // primary Objective Caml keywords - "Keywords2", // "optional" keywords (typically from Pervasives) - "Keywords3", // "optional" keywords (typically typenames) - 0 -}; - -#ifndef BUILD_AS_EXTERNAL_LEXER -LexerModule lmCaml(SCLEX_CAML, ColouriseCamlDoc, "caml", FoldCamlDoc, camlWordListDesc); -#endif /* BUILD_AS_EXTERNAL_LEXER */ diff --git a/libs/qscintilla/scintilla/lexers/LexCmake.cpp b/libs/qscintilla/scintilla/lexers/LexCmake.cpp deleted file mode 100644 index b8fe1549..00000000 --- a/libs/qscintilla/scintilla/lexers/LexCmake.cpp +++ /dev/null @@ -1,455 +0,0 @@ -// Scintilla source code edit control -/** @file LexCmake.cxx - ** Lexer for Cmake - **/ -// Copyright 2007 by Cristian Adam -// based on the NSIS lexer -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static bool isCmakeNumber(char ch) -{ - return(ch >= '0' && ch <= '9'); -} - -static bool isCmakeChar(char ch) -{ - return(ch == '.' ) || (ch == '_' ) || isCmakeNumber(ch) || (ch >= 'A' && ch <= 'Z') || (ch >= 'a' && ch <= 'z'); -} - -static bool isCmakeLetter(char ch) -{ - return(ch >= 'A' && ch <= 'Z') || (ch >= 'a' && ch <= 'z'); -} - -static bool CmakeNextLineHasElse(Sci_PositionU start, Sci_PositionU end, Accessor &styler) -{ - Sci_Position nNextLine = -1; - for ( Sci_PositionU i = start; i < end; i++ ) { - char cNext = styler.SafeGetCharAt( i ); - if ( cNext == '\n' ) { - nNextLine = i+1; - break; - } - } - - if ( nNextLine == -1 ) // We never foudn the next line... - return false; - - for ( Sci_PositionU firstChar = nNextLine; firstChar < end; firstChar++ ) { - char cNext = styler.SafeGetCharAt( firstChar ); - if ( cNext == ' ' ) - continue; - if ( cNext == '\t' ) - continue; - if ( styler.Match(firstChar, "ELSE") || styler.Match(firstChar, "else")) - return true; - break; - } - - return false; -} - -static int calculateFoldCmake(Sci_PositionU start, Sci_PositionU end, int foldlevel, Accessor &styler, bool bElse) -{ - // If the word is too long, it is not what we are looking for - if ( end - start > 20 ) - return foldlevel; - - int newFoldlevel = foldlevel; - - char s[20]; // The key word we are looking for has atmost 13 characters - for (unsigned int i = 0; i < end - start + 1 && i < 19; i++) { - s[i] = static_cast( styler[ start + i ] ); - s[i + 1] = '\0'; - } - - if ( CompareCaseInsensitive(s, "IF") == 0 || CompareCaseInsensitive(s, "WHILE") == 0 - || CompareCaseInsensitive(s, "MACRO") == 0 || CompareCaseInsensitive(s, "FOREACH") == 0 - || CompareCaseInsensitive(s, "ELSEIF") == 0 ) - newFoldlevel++; - else if ( CompareCaseInsensitive(s, "ENDIF") == 0 || CompareCaseInsensitive(s, "ENDWHILE") == 0 - || CompareCaseInsensitive(s, "ENDMACRO") == 0 || CompareCaseInsensitive(s, "ENDFOREACH") == 0) - newFoldlevel--; - else if ( bElse && CompareCaseInsensitive(s, "ELSEIF") == 0 ) - newFoldlevel++; - else if ( bElse && CompareCaseInsensitive(s, "ELSE") == 0 ) - newFoldlevel++; - - return newFoldlevel; -} - -static int classifyWordCmake(Sci_PositionU start, Sci_PositionU end, WordList *keywordLists[], Accessor &styler ) -{ - char word[100] = {0}; - char lowercaseWord[100] = {0}; - - WordList &Commands = *keywordLists[0]; - WordList &Parameters = *keywordLists[1]; - WordList &UserDefined = *keywordLists[2]; - - for (Sci_PositionU i = 0; i < end - start + 1 && i < 99; i++) { - word[i] = static_cast( styler[ start + i ] ); - lowercaseWord[i] = static_cast(tolower(word[i])); - } - - // Check for special words... - if ( CompareCaseInsensitive(word, "MACRO") == 0 || CompareCaseInsensitive(word, "ENDMACRO") == 0 ) - return SCE_CMAKE_MACRODEF; - - if ( CompareCaseInsensitive(word, "IF") == 0 || CompareCaseInsensitive(word, "ENDIF") == 0 ) - return SCE_CMAKE_IFDEFINEDEF; - - if ( CompareCaseInsensitive(word, "ELSEIF") == 0 || CompareCaseInsensitive(word, "ELSE") == 0 ) - return SCE_CMAKE_IFDEFINEDEF; - - if ( CompareCaseInsensitive(word, "WHILE") == 0 || CompareCaseInsensitive(word, "ENDWHILE") == 0) - return SCE_CMAKE_WHILEDEF; - - if ( CompareCaseInsensitive(word, "FOREACH") == 0 || CompareCaseInsensitive(word, "ENDFOREACH") == 0) - return SCE_CMAKE_FOREACHDEF; - - if ( Commands.InList(lowercaseWord) ) - return SCE_CMAKE_COMMANDS; - - if ( Parameters.InList(word) ) - return SCE_CMAKE_PARAMETERS; - - - if ( UserDefined.InList(word) ) - return SCE_CMAKE_USERDEFINED; - - if ( strlen(word) > 3 ) { - if ( word[1] == '{' && word[strlen(word)-1] == '}' ) - return SCE_CMAKE_VARIABLE; - } - - // To check for numbers - if ( isCmakeNumber( word[0] ) ) { - bool bHasSimpleCmakeNumber = true; - for (unsigned int j = 1; j < end - start + 1 && j < 99; j++) { - if ( !isCmakeNumber( word[j] ) ) { - bHasSimpleCmakeNumber = false; - break; - } - } - - if ( bHasSimpleCmakeNumber ) - return SCE_CMAKE_NUMBER; - } - - return SCE_CMAKE_DEFAULT; -} - -static void ColouriseCmakeDoc(Sci_PositionU startPos, Sci_Position length, int, WordList *keywordLists[], Accessor &styler) -{ - int state = SCE_CMAKE_DEFAULT; - if ( startPos > 0 ) - state = styler.StyleAt(startPos-1); // Use the style from the previous line, usually default, but could be commentbox - - styler.StartAt( startPos ); - styler.GetLine( startPos ); - - Sci_PositionU nLengthDoc = startPos + length; - styler.StartSegment( startPos ); - - char cCurrChar; - bool bVarInString = false; - bool bClassicVarInString = false; - - Sci_PositionU i; - for ( i = startPos; i < nLengthDoc; i++ ) { - cCurrChar = styler.SafeGetCharAt( i ); - char cNextChar = styler.SafeGetCharAt(i+1); - - switch (state) { - case SCE_CMAKE_DEFAULT: - if ( cCurrChar == '#' ) { // we have a comment line - styler.ColourTo(i-1, state ); - state = SCE_CMAKE_COMMENT; - break; - } - if ( cCurrChar == '"' ) { - styler.ColourTo(i-1, state ); - state = SCE_CMAKE_STRINGDQ; - bVarInString = false; - bClassicVarInString = false; - break; - } - if ( cCurrChar == '\'' ) { - styler.ColourTo(i-1, state ); - state = SCE_CMAKE_STRINGRQ; - bVarInString = false; - bClassicVarInString = false; - break; - } - if ( cCurrChar == '`' ) { - styler.ColourTo(i-1, state ); - state = SCE_CMAKE_STRINGLQ; - bVarInString = false; - bClassicVarInString = false; - break; - } - - // CMake Variable - if ( cCurrChar == '$' || isCmakeChar(cCurrChar)) { - styler.ColourTo(i-1,state); - state = SCE_CMAKE_VARIABLE; - - // If it is a number, we must check and set style here first... - if ( isCmakeNumber(cCurrChar) && (cNextChar == '\t' || cNextChar == ' ' || cNextChar == '\r' || cNextChar == '\n' ) ) - styler.ColourTo( i, SCE_CMAKE_NUMBER); - - break; - } - - break; - case SCE_CMAKE_COMMENT: - if ( cCurrChar == '\n' || cCurrChar == '\r' ) { - if ( styler.SafeGetCharAt(i-1) == '\\' ) { - styler.ColourTo(i-2,state); - styler.ColourTo(i-1,SCE_CMAKE_DEFAULT); - } - else { - styler.ColourTo(i-1,state); - state = SCE_CMAKE_DEFAULT; - } - } - break; - case SCE_CMAKE_STRINGDQ: - case SCE_CMAKE_STRINGLQ: - case SCE_CMAKE_STRINGRQ: - - if ( styler.SafeGetCharAt(i-1) == '\\' && styler.SafeGetCharAt(i-2) == '$' ) - break; // Ignore the next character, even if it is a quote of some sort - - if ( cCurrChar == '"' && state == SCE_CMAKE_STRINGDQ ) { - styler.ColourTo(i,state); - state = SCE_CMAKE_DEFAULT; - break; - } - - if ( cCurrChar == '`' && state == SCE_CMAKE_STRINGLQ ) { - styler.ColourTo(i,state); - state = SCE_CMAKE_DEFAULT; - break; - } - - if ( cCurrChar == '\'' && state == SCE_CMAKE_STRINGRQ ) { - styler.ColourTo(i,state); - state = SCE_CMAKE_DEFAULT; - break; - } - - if ( cNextChar == '\r' || cNextChar == '\n' ) { - Sci_Position nCurLine = styler.GetLine(i+1); - Sci_Position nBack = i; - // We need to check if the previous line has a \ in it... - bool bNextLine = false; - - while ( nBack > 0 ) { - if ( styler.GetLine(nBack) != nCurLine ) - break; - - char cTemp = styler.SafeGetCharAt(nBack, 'a'); // Letter 'a' is safe here - - if ( cTemp == '\\' ) { - bNextLine = true; - break; - } - if ( cTemp != '\r' && cTemp != '\n' && cTemp != '\t' && cTemp != ' ' ) - break; - - nBack--; - } - - if ( bNextLine ) { - styler.ColourTo(i+1,state); - } - if ( bNextLine == false ) { - styler.ColourTo(i,state); - state = SCE_CMAKE_DEFAULT; - } - } - break; - - case SCE_CMAKE_VARIABLE: - - // CMake Variable: - if ( cCurrChar == '$' ) - state = SCE_CMAKE_DEFAULT; - else if ( cCurrChar == '\\' && (cNextChar == 'n' || cNextChar == 'r' || cNextChar == 't' ) ) - state = SCE_CMAKE_DEFAULT; - else if ( (isCmakeChar(cCurrChar) && !isCmakeChar( cNextChar) && cNextChar != '}') || cCurrChar == '}' ) { - state = classifyWordCmake( styler.GetStartSegment(), i, keywordLists, styler ); - styler.ColourTo( i, state); - state = SCE_CMAKE_DEFAULT; - } - else if ( !isCmakeChar( cCurrChar ) && cCurrChar != '{' && cCurrChar != '}' ) { - if ( classifyWordCmake( styler.GetStartSegment(), i-1, keywordLists, styler) == SCE_CMAKE_NUMBER ) - styler.ColourTo( i-1, SCE_CMAKE_NUMBER ); - - state = SCE_CMAKE_DEFAULT; - - if ( cCurrChar == '"' ) { - state = SCE_CMAKE_STRINGDQ; - bVarInString = false; - bClassicVarInString = false; - } - else if ( cCurrChar == '`' ) { - state = SCE_CMAKE_STRINGLQ; - bVarInString = false; - bClassicVarInString = false; - } - else if ( cCurrChar == '\'' ) { - state = SCE_CMAKE_STRINGRQ; - bVarInString = false; - bClassicVarInString = false; - } - else if ( cCurrChar == '#' ) { - state = SCE_CMAKE_COMMENT; - } - } - break; - } - - if ( state == SCE_CMAKE_STRINGDQ || state == SCE_CMAKE_STRINGLQ || state == SCE_CMAKE_STRINGRQ ) { - bool bIngoreNextDollarSign = false; - - if ( bVarInString && cCurrChar == '$' ) { - bVarInString = false; - bIngoreNextDollarSign = true; - } - else if ( bVarInString && cCurrChar == '\\' && (cNextChar == 'n' || cNextChar == 'r' || cNextChar == 't' || cNextChar == '"' || cNextChar == '`' || cNextChar == '\'' ) ) { - styler.ColourTo( i+1, SCE_CMAKE_STRINGVAR); - bVarInString = false; - bIngoreNextDollarSign = false; - } - - else if ( bVarInString && !isCmakeChar(cNextChar) ) { - int nWordState = classifyWordCmake( styler.GetStartSegment(), i, keywordLists, styler); - if ( nWordState == SCE_CMAKE_VARIABLE ) - styler.ColourTo( i, SCE_CMAKE_STRINGVAR); - bVarInString = false; - } - // Covers "${TEST}..." - else if ( bClassicVarInString && cNextChar == '}' ) { - styler.ColourTo( i+1, SCE_CMAKE_STRINGVAR); - bClassicVarInString = false; - } - - // Start of var in string - if ( !bIngoreNextDollarSign && cCurrChar == '$' && cNextChar == '{' ) { - styler.ColourTo( i-1, state); - bClassicVarInString = true; - bVarInString = false; - } - else if ( !bIngoreNextDollarSign && cCurrChar == '$' ) { - styler.ColourTo( i-1, state); - bVarInString = true; - bClassicVarInString = false; - } - } - } - - // Colourise remaining document - styler.ColourTo(nLengthDoc-1,state); -} - -static void FoldCmakeDoc(Sci_PositionU startPos, Sci_Position length, int, WordList *[], Accessor &styler) -{ - // No folding enabled, no reason to continue... - if ( styler.GetPropertyInt("fold") == 0 ) - return; - - bool foldAtElse = styler.GetPropertyInt("fold.at.else", 0) == 1; - - Sci_Position lineCurrent = styler.GetLine(startPos); - Sci_PositionU safeStartPos = styler.LineStart( lineCurrent ); - - bool bArg1 = true; - Sci_Position nWordStart = -1; - - int levelCurrent = SC_FOLDLEVELBASE; - if (lineCurrent > 0) - levelCurrent = styler.LevelAt(lineCurrent-1) >> 16; - int levelNext = levelCurrent; - - for (Sci_PositionU i = safeStartPos; i < startPos + length; i++) { - char chCurr = styler.SafeGetCharAt(i); - - if ( bArg1 ) { - if ( nWordStart == -1 && (isCmakeLetter(chCurr)) ) { - nWordStart = i; - } - else if ( isCmakeLetter(chCurr) == false && nWordStart > -1 ) { - int newLevel = calculateFoldCmake( nWordStart, i-1, levelNext, styler, foldAtElse); - - if ( newLevel == levelNext ) { - if ( foldAtElse ) { - if ( CmakeNextLineHasElse(i, startPos + length, styler) ) - levelNext--; - } - } - else - levelNext = newLevel; - bArg1 = false; - } - } - - if ( chCurr == '\n' ) { - if ( bArg1 && foldAtElse) { - if ( CmakeNextLineHasElse(i, startPos + length, styler) ) - levelNext--; - } - - // If we are on a new line... - int levelUse = levelCurrent; - int lev = levelUse | levelNext << 16; - if (levelUse < levelNext ) - lev |= SC_FOLDLEVELHEADERFLAG; - if (lev != styler.LevelAt(lineCurrent)) - styler.SetLevel(lineCurrent, lev); - - lineCurrent++; - levelCurrent = levelNext; - bArg1 = true; // New line, lets look at first argument again - nWordStart = -1; - } - } - - int levelUse = levelCurrent; - int lev = levelUse | levelNext << 16; - if (levelUse < levelNext) - lev |= SC_FOLDLEVELHEADERFLAG; - if (lev != styler.LevelAt(lineCurrent)) - styler.SetLevel(lineCurrent, lev); -} - -static const char * const cmakeWordLists[] = { - "Commands", - "Parameters", - "UserDefined", - 0, - 0,}; - -LexerModule lmCmake(SCLEX_CMAKE, ColouriseCmakeDoc, "cmake", FoldCmakeDoc, cmakeWordLists); diff --git a/libs/qscintilla/scintilla/lexers/LexCoffeeScript.cpp b/libs/qscintilla/scintilla/lexers/LexCoffeeScript.cpp deleted file mode 100644 index a0016233..00000000 --- a/libs/qscintilla/scintilla/lexers/LexCoffeeScript.cpp +++ /dev/null @@ -1,483 +0,0 @@ -// Scintilla source code edit control -/** @file LexCoffeeScript.cxx - ** Lexer for CoffeeScript. - **/ -// Copyright 1998-2011 by Neil Hodgson -// Based on the Scintilla C++ Lexer -// Written by Eric Promislow in 2011 for the Komodo IDE -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static bool IsSpaceEquiv(int state) { - return (state == SCE_COFFEESCRIPT_DEFAULT - || state == SCE_COFFEESCRIPT_COMMENTLINE - || state == SCE_COFFEESCRIPT_COMMENTBLOCK - || state == SCE_COFFEESCRIPT_VERBOSE_REGEX - || state == SCE_COFFEESCRIPT_VERBOSE_REGEX_COMMENT - || state == SCE_COFFEESCRIPT_WORD - || state == SCE_COFFEESCRIPT_REGEX); -} - -// Store the current lexer state and brace count prior to starting a new -// `#{}` interpolation level. -// Based on LexRuby.cxx. -static void enterInnerExpression(int *p_inner_string_types, - int *p_inner_expn_brace_counts, - int& inner_string_count, - int state, - int& brace_counts - ) { - p_inner_string_types[inner_string_count] = state; - p_inner_expn_brace_counts[inner_string_count] = brace_counts; - brace_counts = 0; - ++inner_string_count; -} - -// Restore the lexer state and brace count for the previous `#{}` interpolation -// level upon returning to it. -// Note the previous lexer state is the return value and needs to be restored -// manually by the StyleContext. -// Based on LexRuby.cxx. -static int exitInnerExpression(int *p_inner_string_types, - int *p_inner_expn_brace_counts, - int& inner_string_count, - int& brace_counts - ) { - --inner_string_count; - brace_counts = p_inner_expn_brace_counts[inner_string_count]; - return p_inner_string_types[inner_string_count]; -} - -// Preconditions: sc.currentPos points to a character after '+' or '-'. -// The test for pos reaching 0 should be redundant, -// and is in only for safety measures. -// Limitation: this code will give the incorrect answer for code like -// a = b+++/ptn/... -// Putting a space between the '++' post-inc operator and the '+' binary op -// fixes this, and is highly recommended for readability anyway. -static bool FollowsPostfixOperator(StyleContext &sc, Accessor &styler) { - Sci_Position pos = (Sci_Position) sc.currentPos; - while (--pos > 0) { - char ch = styler[pos]; - if (ch == '+' || ch == '-') { - return styler[pos - 1] == ch; - } - } - return false; -} - -static bool followsKeyword(StyleContext &sc, Accessor &styler) { - Sci_Position pos = (Sci_Position) sc.currentPos; - Sci_Position currentLine = styler.GetLine(pos); - Sci_Position lineStartPos = styler.LineStart(currentLine); - while (--pos > lineStartPos) { - char ch = styler.SafeGetCharAt(pos); - if (ch != ' ' && ch != '\t') { - break; - } - } - styler.Flush(); - return styler.StyleAt(pos) == SCE_COFFEESCRIPT_WORD; -} - -static void ColouriseCoffeeScriptDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, WordList *keywordlists[], - Accessor &styler) { - - WordList &keywords = *keywordlists[0]; - WordList &keywords2 = *keywordlists[1]; - WordList &keywords4 = *keywordlists[3]; - - CharacterSet setOKBeforeRE(CharacterSet::setNone, "([{=,:;!%^&*|?~+-"); - CharacterSet setCouldBePostOp(CharacterSet::setNone, "+-"); - - CharacterSet setWordStart(CharacterSet::setAlpha, "_$@", 0x80, true); - CharacterSet setWord(CharacterSet::setAlphaNum, "._$", 0x80, true); - - int chPrevNonWhite = ' '; - int visibleChars = 0; - - // String/Regex interpolation variables, based on LexRuby.cxx. - // In most cases a value of 2 should be ample for the code the user is - // likely to enter. For example, - // "Filling the #{container} with #{liquid}..." - // from the CoffeeScript homepage nests to a level of 2 - // If the user actually hits a 6th occurrence of '#{' in a double-quoted - // string (including regexes), it will stay as a string. The problem with - // this is that quotes might flip, a 7th '#{' will look like a comment, - // and code-folding might be wrong. -#define INNER_STRINGS_MAX_COUNT 5 - // These vars track our instances of "...#{,,,'..#{,,,}...',,,}..." - int inner_string_types[INNER_STRINGS_MAX_COUNT]; - // Track # braces when we push a new #{ thing - int inner_expn_brace_counts[INNER_STRINGS_MAX_COUNT]; - int inner_string_count = 0; - int brace_counts = 0; // Number of #{ ... } things within an expression - for (int i = 0; i < INNER_STRINGS_MAX_COUNT; i++) { - inner_string_types[i] = 0; - inner_expn_brace_counts[i] = 0; - } - - // look back to set chPrevNonWhite properly for better regex colouring - Sci_Position endPos = startPos + length; - if (startPos > 0 && IsSpaceEquiv(initStyle)) { - Sci_PositionU back = startPos; - styler.Flush(); - while (back > 0 && IsSpaceEquiv(styler.StyleAt(--back))) - ; - if (styler.StyleAt(back) == SCE_COFFEESCRIPT_OPERATOR) { - chPrevNonWhite = styler.SafeGetCharAt(back); - } - if (startPos != back) { - initStyle = styler.StyleAt(back); - if (IsSpaceEquiv(initStyle)) { - initStyle = SCE_COFFEESCRIPT_DEFAULT; - } - } - startPos = back; - } - - StyleContext sc(startPos, endPos - startPos, initStyle, styler); - - for (; sc.More();) { - - if (sc.atLineStart) { - // Reset states to beginning of colourise so no surprises - // if different sets of lines lexed. - visibleChars = 0; - } - - // Determine if the current state should terminate. - switch (sc.state) { - case SCE_COFFEESCRIPT_OPERATOR: - sc.SetState(SCE_COFFEESCRIPT_DEFAULT); - break; - case SCE_COFFEESCRIPT_NUMBER: - // We accept almost anything because of hex. and number suffixes - if (!setWord.Contains(sc.ch) || sc.Match('.', '.')) { - sc.SetState(SCE_COFFEESCRIPT_DEFAULT); - } - break; - case SCE_COFFEESCRIPT_IDENTIFIER: - if (!setWord.Contains(sc.ch) || (sc.ch == '.') || (sc.ch == '$')) { - char s[1000]; - sc.GetCurrent(s, sizeof(s)); - if (keywords.InList(s)) { - sc.ChangeState(SCE_COFFEESCRIPT_WORD); - } else if (keywords2.InList(s)) { - sc.ChangeState(SCE_COFFEESCRIPT_WORD2); - } else if (keywords4.InList(s)) { - sc.ChangeState(SCE_COFFEESCRIPT_GLOBALCLASS); - } else if (sc.LengthCurrent() > 0 && s[0] == '@') { - sc.ChangeState(SCE_COFFEESCRIPT_INSTANCEPROPERTY); - } - sc.SetState(SCE_COFFEESCRIPT_DEFAULT); - } - break; - case SCE_COFFEESCRIPT_WORD: - case SCE_COFFEESCRIPT_WORD2: - case SCE_COFFEESCRIPT_GLOBALCLASS: - case SCE_COFFEESCRIPT_INSTANCEPROPERTY: - if (!setWord.Contains(sc.ch)) { - sc.SetState(SCE_COFFEESCRIPT_DEFAULT); - } - break; - case SCE_COFFEESCRIPT_COMMENTLINE: - if (sc.atLineStart) { - sc.SetState(SCE_COFFEESCRIPT_DEFAULT); - } - break; - case SCE_COFFEESCRIPT_STRING: - if (sc.ch == '\\') { - if (sc.chNext == '\"' || sc.chNext == '\'' || sc.chNext == '\\') { - sc.Forward(); - } - } else if (sc.ch == '\"') { - sc.ForwardSetState(SCE_COFFEESCRIPT_DEFAULT); - } else if (sc.ch == '#' && sc.chNext == '{' && inner_string_count < INNER_STRINGS_MAX_COUNT) { - // process interpolated code #{ ... } - enterInnerExpression(inner_string_types, - inner_expn_brace_counts, - inner_string_count, - sc.state, - brace_counts); - sc.SetState(SCE_COFFEESCRIPT_OPERATOR); - sc.ForwardSetState(SCE_COFFEESCRIPT_DEFAULT); - } - break; - case SCE_COFFEESCRIPT_CHARACTER: - if (sc.ch == '\\') { - if (sc.chNext == '\"' || sc.chNext == '\'' || sc.chNext == '\\') { - sc.Forward(); - } - } else if (sc.ch == '\'') { - sc.ForwardSetState(SCE_COFFEESCRIPT_DEFAULT); - } - break; - case SCE_COFFEESCRIPT_REGEX: - if (sc.atLineStart) { - sc.SetState(SCE_COFFEESCRIPT_DEFAULT); - } else if (sc.ch == '/') { - sc.Forward(); - while ((sc.ch < 0x80) && islower(sc.ch)) - sc.Forward(); // gobble regex flags - sc.SetState(SCE_COFFEESCRIPT_DEFAULT); - } else if (sc.ch == '\\') { - // Gobble up the quoted character - if (sc.chNext == '\\' || sc.chNext == '/') { - sc.Forward(); - } - } - break; - case SCE_COFFEESCRIPT_STRINGEOL: - if (sc.atLineStart) { - sc.SetState(SCE_COFFEESCRIPT_DEFAULT); - } - break; - case SCE_COFFEESCRIPT_COMMENTBLOCK: - if (sc.Match("###")) { - sc.Forward(); - sc.Forward(); - sc.ForwardSetState(SCE_COFFEESCRIPT_DEFAULT); - } else if (sc.ch == '\\') { - sc.Forward(); - } - break; - case SCE_COFFEESCRIPT_VERBOSE_REGEX: - if (sc.Match("///")) { - sc.Forward(); - sc.Forward(); - sc.ForwardSetState(SCE_COFFEESCRIPT_DEFAULT); - } else if (sc.Match('#')) { - sc.SetState(SCE_COFFEESCRIPT_VERBOSE_REGEX_COMMENT); - } else if (sc.ch == '\\') { - sc.Forward(); - } - break; - case SCE_COFFEESCRIPT_VERBOSE_REGEX_COMMENT: - if (sc.atLineStart) { - sc.SetState(SCE_COFFEESCRIPT_VERBOSE_REGEX); - } - break; - } - - // Determine if a new state should be entered. - if (sc.state == SCE_COFFEESCRIPT_DEFAULT) { - if (IsADigit(sc.ch) || (sc.ch == '.' && IsADigit(sc.chNext))) { - sc.SetState(SCE_COFFEESCRIPT_NUMBER); - } else if (setWordStart.Contains(sc.ch)) { - sc.SetState(SCE_COFFEESCRIPT_IDENTIFIER); - } else if (sc.Match("///")) { - sc.SetState(SCE_COFFEESCRIPT_VERBOSE_REGEX); - sc.Forward(); - sc.Forward(); - } else if (sc.ch == '/' - && (setOKBeforeRE.Contains(chPrevNonWhite) - || followsKeyword(sc, styler)) - && (!setCouldBePostOp.Contains(chPrevNonWhite) - || !FollowsPostfixOperator(sc, styler))) { - sc.SetState(SCE_COFFEESCRIPT_REGEX); // JavaScript's RegEx - } else if (sc.ch == '\"') { - sc.SetState(SCE_COFFEESCRIPT_STRING); - } else if (sc.ch == '\'') { - sc.SetState(SCE_COFFEESCRIPT_CHARACTER); - } else if (sc.ch == '#') { - if (sc.Match("###")) { - sc.SetState(SCE_COFFEESCRIPT_COMMENTBLOCK); - sc.Forward(); - sc.Forward(); - } else { - sc.SetState(SCE_COFFEESCRIPT_COMMENTLINE); - } - } else if (isoperator(static_cast(sc.ch))) { - sc.SetState(SCE_COFFEESCRIPT_OPERATOR); - // Handle '..' and '...' operators correctly. - if (sc.ch == '.') { - for (int i = 0; i < 2 && sc.chNext == '.'; i++, sc.Forward()) ; - } else if (sc.ch == '{') { - ++brace_counts; - } else if (sc.ch == '}' && --brace_counts <= 0 && inner_string_count > 0) { - // Return to previous state before #{ ... } - sc.ForwardSetState(exitInnerExpression(inner_string_types, - inner_expn_brace_counts, - inner_string_count, - brace_counts)); - continue; // skip sc.Forward() at loop end - } - } - } - - if (!IsASpace(sc.ch) && !IsSpaceEquiv(sc.state)) { - chPrevNonWhite = sc.ch; - visibleChars++; - } - sc.Forward(); - } - sc.Complete(); -} - -static bool IsCommentLine(Sci_Position line, Accessor &styler) { - Sci_Position pos = styler.LineStart(line); - Sci_Position eol_pos = styler.LineStart(line + 1) - 1; - for (Sci_Position i = pos; i < eol_pos; i++) { - char ch = styler[i]; - if (ch == '#') - return true; - else if (ch != ' ' && ch != '\t') - return false; - } - return false; -} - -static void FoldCoffeeScriptDoc(Sci_PositionU startPos, Sci_Position length, int, - WordList *[], Accessor &styler) { - // A simplified version of FoldPyDoc - const Sci_Position maxPos = startPos + length; - const Sci_Position maxLines = styler.GetLine(maxPos - 1); // Requested last line - const Sci_Position docLines = styler.GetLine(styler.Length() - 1); // Available last line - - // property fold.coffeescript.comment - const bool foldComment = styler.GetPropertyInt("fold.coffeescript.comment") != 0; - - const bool foldCompact = styler.GetPropertyInt("fold.compact") != 0; - - // Backtrack to previous non-blank line so we can determine indent level - // for any white space lines - // and so we can fix any preceding fold level (which is why we go back - // at least one line in all cases) - int spaceFlags = 0; - Sci_Position lineCurrent = styler.GetLine(startPos); - int indentCurrent = styler.IndentAmount(lineCurrent, &spaceFlags, NULL); - while (lineCurrent > 0) { - lineCurrent--; - indentCurrent = styler.IndentAmount(lineCurrent, &spaceFlags, NULL); - if (!(indentCurrent & SC_FOLDLEVELWHITEFLAG) - && !IsCommentLine(lineCurrent, styler)) - break; - } - int indentCurrentLevel = indentCurrent & SC_FOLDLEVELNUMBERMASK; - - // Set up initial loop state - int prevComment = 0; - if (lineCurrent >= 1) - prevComment = foldComment && IsCommentLine(lineCurrent - 1, styler); - - // Process all characters to end of requested range - // or comment that hangs over the end of the range. Cap processing in all cases - // to end of document (in case of comment at end). - while ((lineCurrent <= docLines) && ((lineCurrent <= maxLines) || prevComment)) { - - // Gather info - int lev = indentCurrent; - Sci_Position lineNext = lineCurrent + 1; - int indentNext = indentCurrent; - if (lineNext <= docLines) { - // Information about next line is only available if not at end of document - indentNext = styler.IndentAmount(lineNext, &spaceFlags, NULL); - } - const int comment = foldComment && IsCommentLine(lineCurrent, styler); - const int comment_start = (comment && !prevComment && (lineNext <= docLines) && - IsCommentLine(lineNext, styler) && (lev > SC_FOLDLEVELBASE)); - const int comment_continue = (comment && prevComment); - if (!comment) - indentCurrentLevel = indentCurrent & SC_FOLDLEVELNUMBERMASK; - if (indentNext & SC_FOLDLEVELWHITEFLAG) - indentNext = SC_FOLDLEVELWHITEFLAG | indentCurrentLevel; - - if (comment_start) { - // Place fold point at start of a block of comments - lev |= SC_FOLDLEVELHEADERFLAG; - } else if (comment_continue) { - // Add level to rest of lines in the block - lev = lev + 1; - } - - // Skip past any blank lines for next indent level info; we skip also - // comments (all comments, not just those starting in column 0) - // which effectively folds them into surrounding code rather - // than screwing up folding. - - while ((lineNext < docLines) && - ((indentNext & SC_FOLDLEVELWHITEFLAG) || - (lineNext <= docLines && IsCommentLine(lineNext, styler)))) { - - lineNext++; - indentNext = styler.IndentAmount(lineNext, &spaceFlags, NULL); - } - - const int levelAfterComments = indentNext & SC_FOLDLEVELNUMBERMASK; - const int levelBeforeComments = std::max(indentCurrentLevel,levelAfterComments); - - // Now set all the indent levels on the lines we skipped - // Do this from end to start. Once we encounter one line - // which is indented more than the line after the end of - // the comment-block, use the level of the block before - - Sci_Position skipLine = lineNext; - int skipLevel = levelAfterComments; - - while (--skipLine > lineCurrent) { - int skipLineIndent = styler.IndentAmount(skipLine, &spaceFlags, NULL); - - if (foldCompact) { - if ((skipLineIndent & SC_FOLDLEVELNUMBERMASK) > levelAfterComments) - skipLevel = levelBeforeComments; - - int whiteFlag = skipLineIndent & SC_FOLDLEVELWHITEFLAG; - - styler.SetLevel(skipLine, skipLevel | whiteFlag); - } else { - if ((skipLineIndent & SC_FOLDLEVELNUMBERMASK) > levelAfterComments && - !(skipLineIndent & SC_FOLDLEVELWHITEFLAG) && - !IsCommentLine(skipLine, styler)) - skipLevel = levelBeforeComments; - - styler.SetLevel(skipLine, skipLevel); - } - } - - // Set fold header on non-comment line - if (!comment && !(indentCurrent & SC_FOLDLEVELWHITEFLAG)) { - if ((indentCurrent & SC_FOLDLEVELNUMBERMASK) < (indentNext & SC_FOLDLEVELNUMBERMASK)) - lev |= SC_FOLDLEVELHEADERFLAG; - } - - // Keep track of block comment state of previous line - prevComment = comment_start || comment_continue; - - // Set fold level for this line and move to next line - styler.SetLevel(lineCurrent, lev); - indentCurrent = indentNext; - lineCurrent = lineNext; - } -} - -static const char *const csWordLists[] = { - "Keywords", - "Secondary keywords", - "Unused", - "Global classes", - 0, -}; - -LexerModule lmCoffeeScript(SCLEX_COFFEESCRIPT, ColouriseCoffeeScriptDoc, "coffeescript", FoldCoffeeScriptDoc, csWordLists); diff --git a/libs/qscintilla/scintilla/lexers/LexConf.cpp b/libs/qscintilla/scintilla/lexers/LexConf.cpp deleted file mode 100644 index 73fbe46e..00000000 --- a/libs/qscintilla/scintilla/lexers/LexConf.cpp +++ /dev/null @@ -1,190 +0,0 @@ -// Scintilla source code edit control -/** @file LexConf.cxx - ** Lexer for Apache Configuration Files. - ** - ** First working version contributed by Ahmad Zawawi on October 28, 2000. - ** i created this lexer because i needed something pretty when dealing - ** when Apache Configuration files... - **/ -// Copyright 1998-2001 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static void ColouriseConfDoc(Sci_PositionU startPos, Sci_Position length, int, WordList *keywordLists[], Accessor &styler) -{ - int state = SCE_CONF_DEFAULT; - char chNext = styler[startPos]; - Sci_Position lengthDoc = startPos + length; - // create a buffer large enough to take the largest chunk... - char *buffer = new char[length+1]; - Sci_Position bufferCount = 0; - - // this assumes that we have 2 keyword list in conf.properties - WordList &directives = *keywordLists[0]; - WordList ¶ms = *keywordLists[1]; - - // go through all provided text segment - // using the hand-written state machine shown below - styler.StartAt(startPos); - styler.StartSegment(startPos); - for (Sci_Position i = startPos; i < lengthDoc; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - - if (styler.IsLeadByte(ch)) { - chNext = styler.SafeGetCharAt(i + 2); - i++; - continue; - } - switch(state) { - case SCE_CONF_DEFAULT: - if( ch == '\n' || ch == '\r' || ch == '\t' || ch == ' ') { - // whitespace is simply ignored here... - styler.ColourTo(i,SCE_CONF_DEFAULT); - break; - } else if( ch == '#' ) { - // signals the start of a comment... - state = SCE_CONF_COMMENT; - styler.ColourTo(i,SCE_CONF_COMMENT); - } else if( ch == '.' /*|| ch == '/'*/) { - // signals the start of a file... - state = SCE_CONF_EXTENSION; - styler.ColourTo(i,SCE_CONF_EXTENSION); - } else if( ch == '"') { - state = SCE_CONF_STRING; - styler.ColourTo(i,SCE_CONF_STRING); - } else if( IsASCII(ch) && ispunct(ch) ) { - // signals an operator... - // no state jump necessary for this - // simple case... - styler.ColourTo(i,SCE_CONF_OPERATOR); - } else if( IsASCII(ch) && isalpha(ch) ) { - // signals the start of an identifier - bufferCount = 0; - buffer[bufferCount++] = static_cast(tolower(ch)); - state = SCE_CONF_IDENTIFIER; - } else if( IsASCII(ch) && isdigit(ch) ) { - // signals the start of a number - bufferCount = 0; - buffer[bufferCount++] = ch; - //styler.ColourTo(i,SCE_CONF_NUMBER); - state = SCE_CONF_NUMBER; - } else { - // style it the default style.. - styler.ColourTo(i,SCE_CONF_DEFAULT); - } - break; - - case SCE_CONF_COMMENT: - // if we find a newline here, - // we simply go to default state - // else continue to work on it... - if( ch == '\n' || ch == '\r' ) { - state = SCE_CONF_DEFAULT; - } else { - styler.ColourTo(i,SCE_CONF_COMMENT); - } - break; - - case SCE_CONF_EXTENSION: - // if we find a non-alphanumeric char, - // we simply go to default state - // else we're still dealing with an extension... - if( (IsASCII(ch) && isalnum(ch)) || (ch == '_') || - (ch == '-') || (ch == '$') || - (ch == '/') || (ch == '.') || (ch == '*') ) - { - styler.ColourTo(i,SCE_CONF_EXTENSION); - } else { - state = SCE_CONF_DEFAULT; - chNext = styler[i--]; - } - break; - - case SCE_CONF_STRING: - // if we find the end of a string char, we simply go to default state - // else we're still dealing with an string... - if( (ch == '"' && styler.SafeGetCharAt(i-1)!='\\') || (ch == '\n') || (ch == '\r') ) { - state = SCE_CONF_DEFAULT; - } - styler.ColourTo(i,SCE_CONF_STRING); - break; - - case SCE_CONF_IDENTIFIER: - // stay in CONF_IDENTIFIER state until we find a non-alphanumeric - if( (IsASCII(ch) && isalnum(ch)) || (ch == '_') || (ch == '-') || (ch == '/') || (ch == '$') || (ch == '.') || (ch == '*')) { - buffer[bufferCount++] = static_cast(tolower(ch)); - } else { - state = SCE_CONF_DEFAULT; - buffer[bufferCount] = '\0'; - - // check if the buffer contains a keyword, and highlight it if it is a keyword... - if(directives.InList(buffer)) { - styler.ColourTo(i-1,SCE_CONF_DIRECTIVE ); - } else if(params.InList(buffer)) { - styler.ColourTo(i-1,SCE_CONF_PARAMETER ); - } else if(strchr(buffer,'/') || strchr(buffer,'.')) { - styler.ColourTo(i-1,SCE_CONF_EXTENSION); - } else { - styler.ColourTo(i-1,SCE_CONF_DEFAULT); - } - - // push back the faulty character - chNext = styler[i--]; - - } - break; - - case SCE_CONF_NUMBER: - // stay in CONF_NUMBER state until we find a non-numeric - if( (IsASCII(ch) && isdigit(ch)) || ch == '.') { - buffer[bufferCount++] = ch; - } else { - state = SCE_CONF_DEFAULT; - buffer[bufferCount] = '\0'; - - // Colourize here... - if( strchr(buffer,'.') ) { - // it is an IP address... - styler.ColourTo(i-1,SCE_CONF_IP); - } else { - // normal number - styler.ColourTo(i-1,SCE_CONF_NUMBER); - } - - // push back a character - chNext = styler[i--]; - } - break; - - } - } - delete []buffer; -} - -static const char * const confWordListDesc[] = { - "Directives", - "Parameters", - 0 -}; - -LexerModule lmConf(SCLEX_CONF, ColouriseConfDoc, "conf", 0, confWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexCrontab.cpp b/libs/qscintilla/scintilla/lexers/LexCrontab.cpp deleted file mode 100644 index 7f6d5fb0..00000000 --- a/libs/qscintilla/scintilla/lexers/LexCrontab.cpp +++ /dev/null @@ -1,224 +0,0 @@ -// Scintilla source code edit control -/** @file LexCrontab.cxx - ** Lexer to use with extended crontab files used by a powerful - ** Windows scheduler/event monitor/automation manager nnCron. - ** (http://nemtsev.eserv.ru/) - **/ -// Copyright 1998-2001 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static void ColouriseNncrontabDoc(Sci_PositionU startPos, Sci_Position length, int, WordList -*keywordLists[], Accessor &styler) -{ - int state = SCE_NNCRONTAB_DEFAULT; - char chNext = styler[startPos]; - Sci_Position lengthDoc = startPos + length; - // create a buffer large enough to take the largest chunk... - char *buffer = new char[length+1]; - Sci_Position bufferCount = 0; - // used when highliting environment variables inside quoted string: - bool insideString = false; - - // this assumes that we have 3 keyword list in conf.properties - WordList §ion = *keywordLists[0]; - WordList &keyword = *keywordLists[1]; - WordList &modifier = *keywordLists[2]; - - // go through all provided text segment - // using the hand-written state machine shown below - styler.StartAt(startPos); - styler.StartSegment(startPos); - for (Sci_Position i = startPos; i < lengthDoc; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - - if (styler.IsLeadByte(ch)) { - chNext = styler.SafeGetCharAt(i + 2); - i++; - continue; - } - switch(state) { - case SCE_NNCRONTAB_DEFAULT: - if( ch == '\n' || ch == '\r' || ch == '\t' || ch == ' ') { - // whitespace is simply ignored here... - styler.ColourTo(i,SCE_NNCRONTAB_DEFAULT); - break; - } else if( ch == '#' && styler.SafeGetCharAt(i+1) == '(') { - // signals the start of a task... - state = SCE_NNCRONTAB_TASK; - styler.ColourTo(i,SCE_NNCRONTAB_TASK); - } - else if( ch == '\\' && (styler.SafeGetCharAt(i+1) == ' ' || - styler.SafeGetCharAt(i+1) == '\t')) { - // signals the start of an extended comment... - state = SCE_NNCRONTAB_COMMENT; - styler.ColourTo(i,SCE_NNCRONTAB_COMMENT); - } else if( ch == '#' ) { - // signals the start of a plain comment... - state = SCE_NNCRONTAB_COMMENT; - styler.ColourTo(i,SCE_NNCRONTAB_COMMENT); - } else if( ch == ')' && styler.SafeGetCharAt(i+1) == '#') { - // signals the end of a task... - state = SCE_NNCRONTAB_TASK; - styler.ColourTo(i,SCE_NNCRONTAB_TASK); - } else if( ch == '"') { - state = SCE_NNCRONTAB_STRING; - styler.ColourTo(i,SCE_NNCRONTAB_STRING); - } else if( ch == '%') { - // signals environment variables - state = SCE_NNCRONTAB_ENVIRONMENT; - styler.ColourTo(i,SCE_NNCRONTAB_ENVIRONMENT); - } else if( ch == '<' && styler.SafeGetCharAt(i+1) == '%') { - // signals environment variables - state = SCE_NNCRONTAB_ENVIRONMENT; - styler.ColourTo(i,SCE_NNCRONTAB_ENVIRONMENT); - } else if( ch == '*' ) { - // signals an asterisk - // no state jump necessary for this simple case... - styler.ColourTo(i,SCE_NNCRONTAB_ASTERISK); - } else if( (IsASCII(ch) && isalpha(ch)) || ch == '<' ) { - // signals the start of an identifier - bufferCount = 0; - buffer[bufferCount++] = ch; - state = SCE_NNCRONTAB_IDENTIFIER; - } else if( IsASCII(ch) && isdigit(ch) ) { - // signals the start of a number - bufferCount = 0; - buffer[bufferCount++] = ch; - state = SCE_NNCRONTAB_NUMBER; - } else { - // style it the default style.. - styler.ColourTo(i,SCE_NNCRONTAB_DEFAULT); - } - break; - - case SCE_NNCRONTAB_COMMENT: - // if we find a newline here, - // we simply go to default state - // else continue to work on it... - if( ch == '\n' || ch == '\r' ) { - state = SCE_NNCRONTAB_DEFAULT; - } else { - styler.ColourTo(i,SCE_NNCRONTAB_COMMENT); - } - break; - - case SCE_NNCRONTAB_TASK: - // if we find a newline here, - // we simply go to default state - // else continue to work on it... - if( ch == '\n' || ch == '\r' ) { - state = SCE_NNCRONTAB_DEFAULT; - } else { - styler.ColourTo(i,SCE_NNCRONTAB_TASK); - } - break; - - case SCE_NNCRONTAB_STRING: - if( ch == '%' ) { - state = SCE_NNCRONTAB_ENVIRONMENT; - insideString = true; - styler.ColourTo(i-1,SCE_NNCRONTAB_STRING); - break; - } - // if we find the end of a string char, we simply go to default state - // else we're still dealing with an string... - if( (ch == '"' && styler.SafeGetCharAt(i-1)!='\\') || - (ch == '\n') || (ch == '\r') ) { - state = SCE_NNCRONTAB_DEFAULT; - } - styler.ColourTo(i,SCE_NNCRONTAB_STRING); - break; - - case SCE_NNCRONTAB_ENVIRONMENT: - // if we find the end of a string char, we simply go to default state - // else we're still dealing with an string... - if( ch == '%' && insideString ) { - state = SCE_NNCRONTAB_STRING; - insideString = false; - break; - } - if( (ch == '%' && styler.SafeGetCharAt(i-1)!='\\') - || (ch == '\n') || (ch == '\r') || (ch == '>') ) { - state = SCE_NNCRONTAB_DEFAULT; - styler.ColourTo(i,SCE_NNCRONTAB_ENVIRONMENT); - break; - } - styler.ColourTo(i+1,SCE_NNCRONTAB_ENVIRONMENT); - break; - - case SCE_NNCRONTAB_IDENTIFIER: - // stay in CONF_IDENTIFIER state until we find a non-alphanumeric - if( (IsASCII(ch) && isalnum(ch)) || (ch == '_') || (ch == '-') || (ch == '/') || - (ch == '$') || (ch == '.') || (ch == '<') || (ch == '>') || - (ch == '@') ) { - buffer[bufferCount++] = ch; - } else { - state = SCE_NNCRONTAB_DEFAULT; - buffer[bufferCount] = '\0'; - - // check if the buffer contains a keyword, - // and highlight it if it is a keyword... - if(section.InList(buffer)) { - styler.ColourTo(i,SCE_NNCRONTAB_SECTION ); - } else if(keyword.InList(buffer)) { - styler.ColourTo(i-1,SCE_NNCRONTAB_KEYWORD ); - } // else if(strchr(buffer,'/') || strchr(buffer,'.')) { - // styler.ColourTo(i-1,SCE_NNCRONTAB_EXTENSION); - // } - else if(modifier.InList(buffer)) { - styler.ColourTo(i-1,SCE_NNCRONTAB_MODIFIER ); - } else { - styler.ColourTo(i-1,SCE_NNCRONTAB_DEFAULT); - } - // push back the faulty character - chNext = styler[i--]; - } - break; - - case SCE_NNCRONTAB_NUMBER: - // stay in CONF_NUMBER state until we find a non-numeric - if( IsASCII(ch) && isdigit(ch) /* || ch == '.' */ ) { - buffer[bufferCount++] = ch; - } else { - state = SCE_NNCRONTAB_DEFAULT; - buffer[bufferCount] = '\0'; - // Colourize here... (normal number) - styler.ColourTo(i-1,SCE_NNCRONTAB_NUMBER); - // push back a character - chNext = styler[i--]; - } - break; - } - } - delete []buffer; -} - -static const char * const cronWordListDesc[] = { - "Section keywords and Forth words", - "nnCrontab keywords", - "Modifiers", - 0 -}; - -LexerModule lmNncrontab(SCLEX_NNCRONTAB, ColouriseNncrontabDoc, "nncrontab", 0, cronWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexCsound.cpp b/libs/qscintilla/scintilla/lexers/LexCsound.cpp deleted file mode 100644 index 24603801..00000000 --- a/libs/qscintilla/scintilla/lexers/LexCsound.cpp +++ /dev/null @@ -1,212 +0,0 @@ -// Scintilla source code edit control -/** @file LexCsound.cxx - ** Lexer for Csound (Orchestra & Score) - ** Written by Georg Ritter - - **/ -// Copyright 1998-2003 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static inline bool IsAWordChar(const int ch) { - return (ch < 0x80) && (isalnum(ch) || ch == '.' || - ch == '_' || ch == '?'); -} - -static inline bool IsAWordStart(const int ch) { - return (ch < 0x80) && (isalnum(ch) || ch == '_' || ch == '.' || - ch == '%' || ch == '@' || ch == '$' || ch == '?'); -} - -static inline bool IsCsoundOperator(char ch) { - if (IsASCII(ch) && isalnum(ch)) - return false; - // '.' left out as it is used to make up numbers - if (ch == '*' || ch == '/' || ch == '-' || ch == '+' || - ch == '(' || ch == ')' || ch == '=' || ch == '^' || - ch == '[' || ch == ']' || ch == '<' || ch == '&' || - ch == '>' || ch == ',' || ch == '|' || ch == '~' || - ch == '%' || ch == ':') - return true; - return false; -} - -static void ColouriseCsoundDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, WordList *keywordlists[], - Accessor &styler) { - - WordList &opcode = *keywordlists[0]; - WordList &headerStmt = *keywordlists[1]; - WordList &otherKeyword = *keywordlists[2]; - - // Do not leak onto next line - if (initStyle == SCE_CSOUND_STRINGEOL) - initStyle = SCE_CSOUND_DEFAULT; - - StyleContext sc(startPos, length, initStyle, styler); - - for (; sc.More(); sc.Forward()) - { - // Handle line continuation generically. - if (sc.ch == '\\') { - if (sc.chNext == '\n' || sc.chNext == '\r') { - sc.Forward(); - if (sc.ch == '\r' && sc.chNext == '\n') { - sc.Forward(); - } - continue; - } - } - - // Determine if the current state should terminate. - if (sc.state == SCE_CSOUND_OPERATOR) { - if (!IsCsoundOperator(static_cast(sc.ch))) { - sc.SetState(SCE_CSOUND_DEFAULT); - } - }else if (sc.state == SCE_CSOUND_NUMBER) { - if (!IsAWordChar(sc.ch)) { - sc.SetState(SCE_CSOUND_DEFAULT); - } - } else if (sc.state == SCE_CSOUND_IDENTIFIER) { - if (!IsAWordChar(sc.ch) ) { - char s[100]; - sc.GetCurrent(s, sizeof(s)); - - if (opcode.InList(s)) { - sc.ChangeState(SCE_CSOUND_OPCODE); - } else if (headerStmt.InList(s)) { - sc.ChangeState(SCE_CSOUND_HEADERSTMT); - } else if (otherKeyword.InList(s)) { - sc.ChangeState(SCE_CSOUND_USERKEYWORD); - } else if (s[0] == 'p') { - sc.ChangeState(SCE_CSOUND_PARAM); - } else if (s[0] == 'a') { - sc.ChangeState(SCE_CSOUND_ARATE_VAR); - } else if (s[0] == 'k') { - sc.ChangeState(SCE_CSOUND_KRATE_VAR); - } else if (s[0] == 'i') { // covers both i-rate variables and i-statements - sc.ChangeState(SCE_CSOUND_IRATE_VAR); - } else if (s[0] == 'g') { - sc.ChangeState(SCE_CSOUND_GLOBAL_VAR); - } - sc.SetState(SCE_CSOUND_DEFAULT); - } - } - else if (sc.state == SCE_CSOUND_COMMENT ) { - if (sc.atLineEnd) { - sc.SetState(SCE_CSOUND_DEFAULT); - } - } - else if ((sc.state == SCE_CSOUND_ARATE_VAR) || - (sc.state == SCE_CSOUND_KRATE_VAR) || - (sc.state == SCE_CSOUND_IRATE_VAR)) { - if (!IsAWordChar(sc.ch)) { - sc.SetState(SCE_CSOUND_DEFAULT); - } - } - - // Determine if a new state should be entered. - if (sc.state == SCE_CSOUND_DEFAULT) { - if (sc.ch == ';'){ - sc.SetState(SCE_CSOUND_COMMENT); - } else if (isdigit(sc.ch) || (sc.ch == '.' && isdigit(sc.chNext))) { - sc.SetState(SCE_CSOUND_NUMBER); - } else if (IsAWordStart(sc.ch)) { - sc.SetState(SCE_CSOUND_IDENTIFIER); - } else if (IsCsoundOperator(static_cast(sc.ch))) { - sc.SetState(SCE_CSOUND_OPERATOR); - } else if (sc.ch == 'p') { - sc.SetState(SCE_CSOUND_PARAM); - } else if (sc.ch == 'a') { - sc.SetState(SCE_CSOUND_ARATE_VAR); - } else if (sc.ch == 'k') { - sc.SetState(SCE_CSOUND_KRATE_VAR); - } else if (sc.ch == 'i') { // covers both i-rate variables and i-statements - sc.SetState(SCE_CSOUND_IRATE_VAR); - } else if (sc.ch == 'g') { - sc.SetState(SCE_CSOUND_GLOBAL_VAR); - } - } - } - sc.Complete(); -} - -static void FoldCsoundInstruments(Sci_PositionU startPos, Sci_Position length, int /* initStyle */, WordList *[], - Accessor &styler) { - Sci_PositionU lengthDoc = startPos + length; - int visibleChars = 0; - Sci_Position lineCurrent = styler.GetLine(startPos); - int levelPrev = styler.LevelAt(lineCurrent) & SC_FOLDLEVELNUMBERMASK; - int levelCurrent = levelPrev; - char chNext = styler[startPos]; - int stylePrev = 0; - int styleNext = styler.StyleAt(startPos); - for (Sci_PositionU i = startPos; i < lengthDoc; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - int style = styleNext; - styleNext = styler.StyleAt(i + 1); - bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n'); - if ((stylePrev != SCE_CSOUND_OPCODE) && (style == SCE_CSOUND_OPCODE)) { - char s[20]; - unsigned int j = 0; - while ((j < (sizeof(s) - 1)) && (iswordchar(styler[i + j]))) { - s[j] = styler[i + j]; - j++; - } - s[j] = '\0'; - - if (strcmp(s, "instr") == 0) - levelCurrent++; - if (strcmp(s, "endin") == 0) - levelCurrent--; - } - - if (atEOL) { - int lev = levelPrev; - if (visibleChars == 0) - lev |= SC_FOLDLEVELWHITEFLAG; - if ((levelCurrent > levelPrev) && (visibleChars > 0)) - lev |= SC_FOLDLEVELHEADERFLAG; - if (lev != styler.LevelAt(lineCurrent)) { - styler.SetLevel(lineCurrent, lev); - } - lineCurrent++; - levelPrev = levelCurrent; - visibleChars = 0; - } - if (!isspacechar(ch)) - visibleChars++; - stylePrev = style; - } - // Fill in the real level of the next line, keeping the current flags as they will be filled in later - int flagsNext = styler.LevelAt(lineCurrent) & ~SC_FOLDLEVELNUMBERMASK; - styler.SetLevel(lineCurrent, levelPrev | flagsNext); -} - - -static const char * const csoundWordListDesc[] = { - "Opcodes", - "Header Statements", - "User keywords", - 0 -}; - -LexerModule lmCsound(SCLEX_CSOUND, ColouriseCsoundDoc, "csound", FoldCsoundInstruments, csoundWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexD.cpp b/libs/qscintilla/scintilla/lexers/LexD.cpp deleted file mode 100644 index acbf462e..00000000 --- a/libs/qscintilla/scintilla/lexers/LexD.cpp +++ /dev/null @@ -1,567 +0,0 @@ -/** @file LexD.cxx - ** Lexer for D. - ** - ** Copyright (c) 2006 by Waldemar Augustyn - ** Converted to lexer object and added further folding features/properties by "Udo Lechner" - **/ -// Copyright 1998-2005 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" -#include "OptionSet.h" -#include "DefaultLexer.h" - -using namespace Scintilla; - -/* Nested comments require keeping the value of the nesting level for every - position in the document. But since scintilla always styles line by line, - we only need to store one value per line. The non-negative number indicates - nesting level at the end of the line. -*/ - -// Underscore, letter, digit and universal alphas from C99 Appendix D. - -static bool IsWordStart(int ch) { - return (IsASCII(ch) && (isalpha(ch) || ch == '_')) || !IsASCII(ch); -} - -static bool IsWord(int ch) { - return (IsASCII(ch) && (isalnum(ch) || ch == '_')) || !IsASCII(ch); -} - -static bool IsDoxygen(int ch) { - if (IsASCII(ch) && islower(ch)) - return true; - if (ch == '$' || ch == '@' || ch == '\\' || - ch == '&' || ch == '#' || ch == '<' || ch == '>' || - ch == '{' || ch == '}' || ch == '[' || ch == ']') - return true; - return false; -} - -static bool IsStringSuffix(int ch) { - return ch == 'c' || ch == 'w' || ch == 'd'; -} - -static bool IsStreamCommentStyle(int style) { - return style == SCE_D_COMMENT || - style == SCE_D_COMMENTDOC || - style == SCE_D_COMMENTDOCKEYWORD || - style == SCE_D_COMMENTDOCKEYWORDERROR; -} - -// An individual named option for use in an OptionSet - -// Options used for LexerD -struct OptionsD { - bool fold; - bool foldSyntaxBased; - bool foldComment; - bool foldCommentMultiline; - bool foldCommentExplicit; - std::string foldExplicitStart; - std::string foldExplicitEnd; - bool foldExplicitAnywhere; - bool foldCompact; - int foldAtElseInt; - bool foldAtElse; - OptionsD() { - fold = false; - foldSyntaxBased = true; - foldComment = false; - foldCommentMultiline = true; - foldCommentExplicit = true; - foldExplicitStart = ""; - foldExplicitEnd = ""; - foldExplicitAnywhere = false; - foldCompact = true; - foldAtElseInt = -1; - foldAtElse = false; - } -}; - -static const char * const dWordLists[] = { - "Primary keywords and identifiers", - "Secondary keywords and identifiers", - "Documentation comment keywords", - "Type definitions and aliases", - "Keywords 5", - "Keywords 6", - "Keywords 7", - 0, - }; - -struct OptionSetD : public OptionSet { - OptionSetD() { - DefineProperty("fold", &OptionsD::fold); - - DefineProperty("fold.d.syntax.based", &OptionsD::foldSyntaxBased, - "Set this property to 0 to disable syntax based folding."); - - DefineProperty("fold.comment", &OptionsD::foldComment); - - DefineProperty("fold.d.comment.multiline", &OptionsD::foldCommentMultiline, - "Set this property to 0 to disable folding multi-line comments when fold.comment=1."); - - DefineProperty("fold.d.comment.explicit", &OptionsD::foldCommentExplicit, - "Set this property to 0 to disable folding explicit fold points when fold.comment=1."); - - DefineProperty("fold.d.explicit.start", &OptionsD::foldExplicitStart, - "The string to use for explicit fold start points, replacing the standard //{."); - - DefineProperty("fold.d.explicit.end", &OptionsD::foldExplicitEnd, - "The string to use for explicit fold end points, replacing the standard //}."); - - DefineProperty("fold.d.explicit.anywhere", &OptionsD::foldExplicitAnywhere, - "Set this property to 1 to enable explicit fold points anywhere, not just in line comments."); - - DefineProperty("fold.compact", &OptionsD::foldCompact); - - DefineProperty("lexer.d.fold.at.else", &OptionsD::foldAtElseInt, - "This option enables D folding on a \"} else {\" line of an if statement."); - - DefineProperty("fold.at.else", &OptionsD::foldAtElse); - - DefineWordListSets(dWordLists); - } -}; - -class LexerD : public DefaultLexer { - bool caseSensitive; - WordList keywords; - WordList keywords2; - WordList keywords3; - WordList keywords4; - WordList keywords5; - WordList keywords6; - WordList keywords7; - OptionsD options; - OptionSetD osD; -public: - LexerD(bool caseSensitive_) : - caseSensitive(caseSensitive_) { - } - virtual ~LexerD() { - } - void SCI_METHOD Release() override { - delete this; - } - int SCI_METHOD Version() const override { - return lvOriginal; - } - const char * SCI_METHOD PropertyNames() override { - return osD.PropertyNames(); - } - int SCI_METHOD PropertyType(const char *name) override { - return osD.PropertyType(name); - } - const char * SCI_METHOD DescribeProperty(const char *name) override { - return osD.DescribeProperty(name); - } - Sci_Position SCI_METHOD PropertySet(const char *key, const char *val) override; - const char * SCI_METHOD DescribeWordListSets() override { - return osD.DescribeWordListSets(); - } - Sci_Position SCI_METHOD WordListSet(int n, const char *wl) override; - void SCI_METHOD Lex(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) override; - void SCI_METHOD Fold(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) override; - - void * SCI_METHOD PrivateCall(int, void *) override { - return 0; - } - - static ILexer *LexerFactoryD() { - return new LexerD(true); - } - static ILexer *LexerFactoryDInsensitive() { - return new LexerD(false); - } -}; - -Sci_Position SCI_METHOD LexerD::PropertySet(const char *key, const char *val) { - if (osD.PropertySet(&options, key, val)) { - return 0; - } - return -1; -} - -Sci_Position SCI_METHOD LexerD::WordListSet(int n, const char *wl) { - WordList *wordListN = 0; - switch (n) { - case 0: - wordListN = &keywords; - break; - case 1: - wordListN = &keywords2; - break; - case 2: - wordListN = &keywords3; - break; - case 3: - wordListN = &keywords4; - break; - case 4: - wordListN = &keywords5; - break; - case 5: - wordListN = &keywords6; - break; - case 6: - wordListN = &keywords7; - break; - } - Sci_Position firstModification = -1; - if (wordListN) { - WordList wlNew; - wlNew.Set(wl); - if (*wordListN != wlNew) { - wordListN->Set(wl); - firstModification = 0; - } - } - return firstModification; -} - -void SCI_METHOD LexerD::Lex(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) { - LexAccessor styler(pAccess); - - int styleBeforeDCKeyword = SCE_D_DEFAULT; - - StyleContext sc(startPos, length, initStyle, styler); - - Sci_Position curLine = styler.GetLine(startPos); - int curNcLevel = curLine > 0? styler.GetLineState(curLine-1): 0; - bool numFloat = false; // Float literals have '+' and '-' signs - bool numHex = false; - - for (; sc.More(); sc.Forward()) { - - if (sc.atLineStart) { - curLine = styler.GetLine(sc.currentPos); - styler.SetLineState(curLine, curNcLevel); - } - - // Determine if the current state should terminate. - switch (sc.state) { - case SCE_D_OPERATOR: - sc.SetState(SCE_D_DEFAULT); - break; - case SCE_D_NUMBER: - // We accept almost anything because of hex. and number suffixes - if (IsASCII(sc.ch) && (isalnum(sc.ch) || sc.ch == '_')) { - continue; - } else if (sc.ch == '.' && sc.chNext != '.' && !numFloat) { - // Don't parse 0..2 as number. - numFloat=true; - continue; - } else if ( ( sc.ch == '-' || sc.ch == '+' ) && ( /*sign and*/ - ( !numHex && ( sc.chPrev == 'e' || sc.chPrev == 'E' ) ) || /*decimal or*/ - ( sc.chPrev == 'p' || sc.chPrev == 'P' ) ) ) { /*hex*/ - // Parse exponent sign in float literals: 2e+10 0x2e+10 - continue; - } else { - sc.SetState(SCE_D_DEFAULT); - } - break; - case SCE_D_IDENTIFIER: - if (!IsWord(sc.ch)) { - char s[1000]; - if (caseSensitive) { - sc.GetCurrent(s, sizeof(s)); - } else { - sc.GetCurrentLowered(s, sizeof(s)); - } - if (keywords.InList(s)) { - sc.ChangeState(SCE_D_WORD); - } else if (keywords2.InList(s)) { - sc.ChangeState(SCE_D_WORD2); - } else if (keywords4.InList(s)) { - sc.ChangeState(SCE_D_TYPEDEF); - } else if (keywords5.InList(s)) { - sc.ChangeState(SCE_D_WORD5); - } else if (keywords6.InList(s)) { - sc.ChangeState(SCE_D_WORD6); - } else if (keywords7.InList(s)) { - sc.ChangeState(SCE_D_WORD7); - } - sc.SetState(SCE_D_DEFAULT); - } - break; - case SCE_D_COMMENT: - if (sc.Match('*', '/')) { - sc.Forward(); - sc.ForwardSetState(SCE_D_DEFAULT); - } - break; - case SCE_D_COMMENTDOC: - if (sc.Match('*', '/')) { - sc.Forward(); - sc.ForwardSetState(SCE_D_DEFAULT); - } else if (sc.ch == '@' || sc.ch == '\\') { // JavaDoc and Doxygen support - // Verify that we have the conditions to mark a comment-doc-keyword - if ((IsASpace(sc.chPrev) || sc.chPrev == '*') && (!IsASpace(sc.chNext))) { - styleBeforeDCKeyword = SCE_D_COMMENTDOC; - sc.SetState(SCE_D_COMMENTDOCKEYWORD); - } - } - break; - case SCE_D_COMMENTLINE: - if (sc.atLineStart) { - sc.SetState(SCE_D_DEFAULT); - } - break; - case SCE_D_COMMENTLINEDOC: - if (sc.atLineStart) { - sc.SetState(SCE_D_DEFAULT); - } else if (sc.ch == '@' || sc.ch == '\\') { // JavaDoc and Doxygen support - // Verify that we have the conditions to mark a comment-doc-keyword - if ((IsASpace(sc.chPrev) || sc.chPrev == '/' || sc.chPrev == '!') && (!IsASpace(sc.chNext))) { - styleBeforeDCKeyword = SCE_D_COMMENTLINEDOC; - sc.SetState(SCE_D_COMMENTDOCKEYWORD); - } - } - break; - case SCE_D_COMMENTDOCKEYWORD: - if ((styleBeforeDCKeyword == SCE_D_COMMENTDOC) && sc.Match('*', '/')) { - sc.ChangeState(SCE_D_COMMENTDOCKEYWORDERROR); - sc.Forward(); - sc.ForwardSetState(SCE_D_DEFAULT); - } else if (!IsDoxygen(sc.ch)) { - char s[100]; - if (caseSensitive) { - sc.GetCurrent(s, sizeof(s)); - } else { - sc.GetCurrentLowered(s, sizeof(s)); - } - if (!IsASpace(sc.ch) || !keywords3.InList(s + 1)) { - sc.ChangeState(SCE_D_COMMENTDOCKEYWORDERROR); - } - sc.SetState(styleBeforeDCKeyword); - } - break; - case SCE_D_COMMENTNESTED: - if (sc.Match('+', '/')) { - if (curNcLevel > 0) - curNcLevel -= 1; - curLine = styler.GetLine(sc.currentPos); - styler.SetLineState(curLine, curNcLevel); - sc.Forward(); - if (curNcLevel == 0) { - sc.ForwardSetState(SCE_D_DEFAULT); - } - } else if (sc.Match('/','+')) { - curNcLevel += 1; - curLine = styler.GetLine(sc.currentPos); - styler.SetLineState(curLine, curNcLevel); - sc.Forward(); - } - break; - case SCE_D_STRING: - if (sc.ch == '\\') { - if (sc.chNext == '"' || sc.chNext == '\\') { - sc.Forward(); - } - } else if (sc.ch == '"') { - if(IsStringSuffix(sc.chNext)) - sc.Forward(); - sc.ForwardSetState(SCE_D_DEFAULT); - } - break; - case SCE_D_CHARACTER: - if (sc.atLineEnd) { - sc.ChangeState(SCE_D_STRINGEOL); - } else if (sc.ch == '\\') { - if (sc.chNext == '\'' || sc.chNext == '\\') { - sc.Forward(); - } - } else if (sc.ch == '\'') { - // Char has no suffixes - sc.ForwardSetState(SCE_D_DEFAULT); - } - break; - case SCE_D_STRINGEOL: - if (sc.atLineStart) { - sc.SetState(SCE_D_DEFAULT); - } - break; - case SCE_D_STRINGB: - if (sc.ch == '`') { - if(IsStringSuffix(sc.chNext)) - sc.Forward(); - sc.ForwardSetState(SCE_D_DEFAULT); - } - break; - case SCE_D_STRINGR: - if (sc.ch == '"') { - if(IsStringSuffix(sc.chNext)) - sc.Forward(); - sc.ForwardSetState(SCE_D_DEFAULT); - } - break; - } - - // Determine if a new state should be entered. - if (sc.state == SCE_D_DEFAULT) { - if (IsADigit(sc.ch) || (sc.ch == '.' && IsADigit(sc.chNext))) { - sc.SetState(SCE_D_NUMBER); - numFloat = sc.ch == '.'; - // Remember hex literal - numHex = sc.ch == '0' && ( sc.chNext == 'x' || sc.chNext == 'X' ); - } else if ( (sc.ch == 'r' || sc.ch == 'x' || sc.ch == 'q') - && sc.chNext == '"' ) { - // Limited support for hex and delimited strings: parse as r"" - sc.SetState(SCE_D_STRINGR); - sc.Forward(); - } else if (IsWordStart(sc.ch) || sc.ch == '$') { - sc.SetState(SCE_D_IDENTIFIER); - } else if (sc.Match('/','+')) { - curNcLevel += 1; - curLine = styler.GetLine(sc.currentPos); - styler.SetLineState(curLine, curNcLevel); - sc.SetState(SCE_D_COMMENTNESTED); - sc.Forward(); - } else if (sc.Match('/', '*')) { - if (sc.Match("/**") || sc.Match("/*!")) { // Support of Qt/Doxygen doc. style - sc.SetState(SCE_D_COMMENTDOC); - } else { - sc.SetState(SCE_D_COMMENT); - } - sc.Forward(); // Eat the * so it isn't used for the end of the comment - } else if (sc.Match('/', '/')) { - if ((sc.Match("///") && !sc.Match("////")) || sc.Match("//!")) - // Support of Qt/Doxygen doc. style - sc.SetState(SCE_D_COMMENTLINEDOC); - else - sc.SetState(SCE_D_COMMENTLINE); - } else if (sc.ch == '"') { - sc.SetState(SCE_D_STRING); - } else if (sc.ch == '\'') { - sc.SetState(SCE_D_CHARACTER); - } else if (sc.ch == '`') { - sc.SetState(SCE_D_STRINGB); - } else if (isoperator(static_cast(sc.ch))) { - sc.SetState(SCE_D_OPERATOR); - if (sc.ch == '.' && sc.chNext == '.') sc.Forward(); // Range operator - } - } - } - sc.Complete(); -} - -// Store both the current line's fold level and the next lines in the -// level store to make it easy to pick up with each increment -// and to make it possible to fiddle the current level for "} else {". - -void SCI_METHOD LexerD::Fold(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) { - - if (!options.fold) - return; - - LexAccessor styler(pAccess); - - Sci_PositionU endPos = startPos + length; - int visibleChars = 0; - Sci_Position lineCurrent = styler.GetLine(startPos); - int levelCurrent = SC_FOLDLEVELBASE; - if (lineCurrent > 0) - levelCurrent = styler.LevelAt(lineCurrent-1) >> 16; - int levelMinCurrent = levelCurrent; - int levelNext = levelCurrent; - char chNext = styler[startPos]; - int styleNext = styler.StyleAt(startPos); - int style = initStyle; - bool foldAtElse = options.foldAtElseInt >= 0 ? options.foldAtElseInt != 0 : options.foldAtElse; - const bool userDefinedFoldMarkers = !options.foldExplicitStart.empty() && !options.foldExplicitEnd.empty(); - for (Sci_PositionU i = startPos; i < endPos; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - int stylePrev = style; - style = styleNext; - styleNext = styler.StyleAt(i + 1); - bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n'); - if (options.foldComment && options.foldCommentMultiline && IsStreamCommentStyle(style)) { - if (!IsStreamCommentStyle(stylePrev)) { - levelNext++; - } else if (!IsStreamCommentStyle(styleNext) && !atEOL) { - // Comments don't end at end of line and the next character may be unstyled. - levelNext--; - } - } - if (options.foldComment && options.foldCommentExplicit && ((style == SCE_D_COMMENTLINE) || options.foldExplicitAnywhere)) { - if (userDefinedFoldMarkers) { - if (styler.Match(i, options.foldExplicitStart.c_str())) { - levelNext++; - } else if (styler.Match(i, options.foldExplicitEnd.c_str())) { - levelNext--; - } - } else { - if ((ch == '/') && (chNext == '/')) { - char chNext2 = styler.SafeGetCharAt(i + 2); - if (chNext2 == '{') { - levelNext++; - } else if (chNext2 == '}') { - levelNext--; - } - } - } - } - if (options.foldSyntaxBased && (style == SCE_D_OPERATOR)) { - if (ch == '{') { - // Measure the minimum before a '{' to allow - // folding on "} else {" - if (levelMinCurrent > levelNext) { - levelMinCurrent = levelNext; - } - levelNext++; - } else if (ch == '}') { - levelNext--; - } - } - if (atEOL || (i == endPos-1)) { - if (options.foldComment && options.foldCommentMultiline) { // Handle nested comments - int nc; - nc = styler.GetLineState(lineCurrent); - nc -= lineCurrent>0? styler.GetLineState(lineCurrent-1): 0; - levelNext += nc; - } - int levelUse = levelCurrent; - if (options.foldSyntaxBased && foldAtElse) { - levelUse = levelMinCurrent; - } - int lev = levelUse | levelNext << 16; - if (visibleChars == 0 && options.foldCompact) - lev |= SC_FOLDLEVELWHITEFLAG; - if (levelUse < levelNext) - lev |= SC_FOLDLEVELHEADERFLAG; - if (lev != styler.LevelAt(lineCurrent)) { - styler.SetLevel(lineCurrent, lev); - } - lineCurrent++; - levelCurrent = levelNext; - levelMinCurrent = levelCurrent; - visibleChars = 0; - } - if (!IsASpace(ch)) - visibleChars++; - } -} - -LexerModule lmD(SCLEX_D, LexerD::LexerFactoryD, "d", dWordLists); diff --git a/libs/qscintilla/scintilla/lexers/LexDMAP.cpp b/libs/qscintilla/scintilla/lexers/LexDMAP.cpp deleted file mode 100644 index 91b10c29..00000000 --- a/libs/qscintilla/scintilla/lexers/LexDMAP.cpp +++ /dev/null @@ -1,226 +0,0 @@ -// Scintilla source code edit control -/** @file LexDMAP.cxx - ** Lexer for MSC Nastran DMAP. - ** Written by Mark Robinson, based on the Fortran lexer by Chuan-jian Shen, Last changed Aug. 2013 - **/ -// Copyright 1998-2001 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. -/***************************************/ -#include -#include -#include -#include -#include -#include -/***************************************/ -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" -/***************************************/ - -using namespace Scintilla; - -/***********************************************/ -static inline bool IsAWordChar(const int ch) { - return (ch < 0x80) && (isalnum(ch) || ch == '_' || ch == '%'); -} -/**********************************************/ -static inline bool IsAWordStart(const int ch) { - return (ch < 0x80) && (isalnum(ch)); -} -/***************************************/ -static void ColouriseDMAPDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, - WordList *keywordlists[], Accessor &styler) { - WordList &keywords = *keywordlists[0]; - WordList &keywords2 = *keywordlists[1]; - WordList &keywords3 = *keywordlists[2]; - /***************************************/ - Sci_Position posLineStart = 0, numNonBlank = 0; - Sci_Position endPos = startPos + length; - /***************************************/ - // backtrack to the nearest keyword - while ((startPos > 1) && (styler.StyleAt(startPos) != SCE_DMAP_WORD)) { - startPos--; - } - startPos = styler.LineStart(styler.GetLine(startPos)); - initStyle = styler.StyleAt(startPos - 1); - StyleContext sc(startPos, endPos-startPos, initStyle, styler); - /***************************************/ - for (; sc.More(); sc.Forward()) { - // remember the start position of the line - if (sc.atLineStart) { - posLineStart = sc.currentPos; - numNonBlank = 0; - sc.SetState(SCE_DMAP_DEFAULT); - } - if (!IsASpaceOrTab(sc.ch)) numNonBlank ++; - /***********************************************/ - // Handle data appearing after column 72; it is ignored - Sci_Position toLineStart = sc.currentPos - posLineStart; - if (toLineStart >= 72 || sc.ch == '$') { - sc.SetState(SCE_DMAP_COMMENT); - while (!sc.atLineEnd && sc.More()) sc.Forward(); // Until line end - continue; - } - /***************************************/ - // Determine if the current state should terminate. - if (sc.state == SCE_DMAP_OPERATOR) { - sc.SetState(SCE_DMAP_DEFAULT); - } else if (sc.state == SCE_DMAP_NUMBER) { - if (!(IsAWordChar(sc.ch) || sc.ch=='\'' || sc.ch=='\"' || sc.ch=='.')) { - sc.SetState(SCE_DMAP_DEFAULT); - } - } else if (sc.state == SCE_DMAP_IDENTIFIER) { - if (!IsAWordChar(sc.ch) || (sc.ch == '%')) { - char s[100]; - sc.GetCurrentLowered(s, sizeof(s)); - if (keywords.InList(s)) { - sc.ChangeState(SCE_DMAP_WORD); - } else if (keywords2.InList(s)) { - sc.ChangeState(SCE_DMAP_WORD2); - } else if (keywords3.InList(s)) { - sc.ChangeState(SCE_DMAP_WORD3); - } - sc.SetState(SCE_DMAP_DEFAULT); - } - } else if (sc.state == SCE_DMAP_COMMENT) { - if (sc.ch == '\r' || sc.ch == '\n') { - sc.SetState(SCE_DMAP_DEFAULT); - } - } else if (sc.state == SCE_DMAP_STRING1) { - if (sc.ch == '\'') { - if (sc.chNext == '\'') { - sc.Forward(); - } else { - sc.ForwardSetState(SCE_DMAP_DEFAULT); - } - } else if (sc.atLineEnd) { - sc.ChangeState(SCE_DMAP_STRINGEOL); - sc.ForwardSetState(SCE_DMAP_DEFAULT); - } - } else if (sc.state == SCE_DMAP_STRING2) { - if (sc.atLineEnd) { - sc.ChangeState(SCE_DMAP_STRINGEOL); - sc.ForwardSetState(SCE_DMAP_DEFAULT); - } else if (sc.ch == '\"') { - if (sc.chNext == '\"') { - sc.Forward(); - } else { - sc.ForwardSetState(SCE_DMAP_DEFAULT); - } - } - } - /***************************************/ - // Determine if a new state should be entered. - if (sc.state == SCE_DMAP_DEFAULT) { - if (sc.ch == '$') { - sc.SetState(SCE_DMAP_COMMENT); - } else if (IsADigit(sc.ch) || (sc.ch == '.' && IsADigit(sc.chNext)) || (sc.ch == '-' && IsADigit(sc.chNext))) { - sc.SetState(SCE_F_NUMBER); - } else if (IsAWordStart(sc.ch)) { - sc.SetState(SCE_DMAP_IDENTIFIER); - } else if (sc.ch == '\"') { - sc.SetState(SCE_DMAP_STRING2); - } else if (sc.ch == '\'') { - sc.SetState(SCE_DMAP_STRING1); - } else if (isoperator(static_cast(sc.ch))) { - sc.SetState(SCE_DMAP_OPERATOR); - } - } - } - sc.Complete(); -} -/***************************************/ -// To determine the folding level depending on keywords -static int classifyFoldPointDMAP(const char* s, const char* prevWord) { - int lev = 0; - if ((strcmp(prevWord, "else") == 0 && strcmp(s, "if") == 0) || strcmp(s, "enddo") == 0 || strcmp(s, "endif") == 0) { - lev = -1; - } else if ((strcmp(prevWord, "do") == 0 && strcmp(s, "while") == 0) || strcmp(s, "then") == 0) { - lev = 1; - } - return lev; -} -// Folding the code -static void FoldDMAPDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, - WordList *[], Accessor &styler) { - // - // bool foldComment = styler.GetPropertyInt("fold.comment") != 0; - // Do not know how to fold the comment at the moment. - // - bool foldCompact = styler.GetPropertyInt("fold.compact", 1) != 0; - Sci_PositionU endPos = startPos + length; - int visibleChars = 0; - Sci_Position lineCurrent = styler.GetLine(startPos); - int levelPrev = styler.LevelAt(lineCurrent) & SC_FOLDLEVELNUMBERMASK; - int levelCurrent = levelPrev; - char chNext = styler[startPos]; - int styleNext = styler.StyleAt(startPos); - int style = initStyle; - /***************************************/ - Sci_Position lastStart = 0; - char prevWord[32] = ""; - /***************************************/ - for (Sci_PositionU i = startPos; i < endPos; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - int stylePrev = style; - style = styleNext; - styleNext = styler.StyleAt(i + 1); - bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n'); - // - if ((stylePrev == SCE_DMAP_DEFAULT || stylePrev == SCE_DMAP_OPERATOR || stylePrev == SCE_DMAP_COMMENT) && (style == SCE_DMAP_WORD)) { - // Store last word and label start point. - lastStart = i; - } - /***************************************/ - if (style == SCE_DMAP_WORD) { - if(iswordchar(ch) && !iswordchar(chNext)) { - char s[32]; - Sci_PositionU k; - for(k=0; (k<31 ) && (k(tolower(styler[lastStart+k])); - } - s[k] = '\0'; - levelCurrent += classifyFoldPointDMAP(s, prevWord); - strcpy(prevWord, s); - } - } - if (atEOL) { - int lev = levelPrev; - if (visibleChars == 0 && foldCompact) - lev |= SC_FOLDLEVELWHITEFLAG; - if ((levelCurrent > levelPrev) && (visibleChars > 0)) - lev |= SC_FOLDLEVELHEADERFLAG; - if (lev != styler.LevelAt(lineCurrent)) { - styler.SetLevel(lineCurrent, lev); - } - lineCurrent++; - levelPrev = levelCurrent; - visibleChars = 0; - strcpy(prevWord, ""); - } - /***************************************/ - if (!isspacechar(ch)) visibleChars++; - } - /***************************************/ - // Fill in the real level of the next line, keeping the current flags as they will be filled in later - int flagsNext = styler.LevelAt(lineCurrent) & ~SC_FOLDLEVELNUMBERMASK; - styler.SetLevel(lineCurrent, levelPrev | flagsNext); -} -/***************************************/ -static const char * const DMAPWordLists[] = { - "Primary keywords and identifiers", - "Intrinsic functions", - "Extended and user defined functions", - 0, -}; -/***************************************/ -LexerModule lmDMAP(SCLEX_DMAP, ColouriseDMAPDoc, "DMAP", FoldDMAPDoc, DMAPWordLists); diff --git a/libs/qscintilla/scintilla/lexers/LexDMIS.cpp b/libs/qscintilla/scintilla/lexers/LexDMIS.cpp deleted file mode 100644 index fa024e9e..00000000 --- a/libs/qscintilla/scintilla/lexers/LexDMIS.cpp +++ /dev/null @@ -1,354 +0,0 @@ -// Scintilla source code edit control -/** @file LexDMIS.cxx - ** Lexer for DMIS. - **/ -// Copyright 1998-2005 by Neil Hodgson -// Copyright 2013-2014 by Andreas Tscharner -// The License.txt file describes the conditions under which this software may be distributed. - - -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" -#include "DefaultLexer.h" - -using namespace Scintilla; - - -static const char *const DMISWordListDesc[] = { - "DMIS Major Words", - "DMIS Minor Words", - "Unsupported DMIS Major Words", - "Unsupported DMIS Minor Words", - "Keywords for code folding start", - "Corresponding keywords for code folding end", - 0 -}; - - -class LexerDMIS : public DefaultLexer -{ - private: - char *m_wordListSets; - WordList m_majorWords; - WordList m_minorWords; - WordList m_unsupportedMajor; - WordList m_unsupportedMinor; - WordList m_codeFoldingStart; - WordList m_codeFoldingEnd; - - char * SCI_METHOD UpperCase(char *item); - void SCI_METHOD InitWordListSets(void); - - public: - LexerDMIS(void); - virtual ~LexerDMIS(void); - - int SCI_METHOD Version() const override { - return lvOriginal; - } - - void SCI_METHOD Release() override { - delete this; - } - - const char * SCI_METHOD PropertyNames() override { - return NULL; - } - - int SCI_METHOD PropertyType(const char *) override { - return -1; - } - - const char * SCI_METHOD DescribeProperty(const char *) override { - return NULL; - } - - Sci_Position SCI_METHOD PropertySet(const char *, const char *) override { - return -1; - } - - Sci_Position SCI_METHOD WordListSet(int n, const char *wl) override; - - void * SCI_METHOD PrivateCall(int, void *) override { - return NULL; - } - - static ILexer *LexerFactoryDMIS() { - return new LexerDMIS; - } - - const char * SCI_METHOD DescribeWordListSets() override; - void SCI_METHOD Lex(Sci_PositionU startPos, Sci_Position lengthDoc, int initStyle, IDocument *pAccess) override; - void SCI_METHOD Fold(Sci_PositionU startPos, Sci_Position lengthDoc, int initStyle, IDocument *pAccess) override; -}; - - -char * SCI_METHOD LexerDMIS::UpperCase(char *item) -{ - char *itemStart; - - - itemStart = item; - while (item && *item) { - *item = toupper(*item); - item++; - }; - return itemStart; -} - -void SCI_METHOD LexerDMIS::InitWordListSets(void) -{ - size_t totalLen = 0; - - - for (int i=0; DMISWordListDesc[i]; i++) { - totalLen += strlen(DMISWordListDesc[i]); - totalLen++; - }; - - totalLen++; - this->m_wordListSets = new char[totalLen]; - memset(this->m_wordListSets, 0, totalLen); - - for (int i=0; DMISWordListDesc[i]; i++) { - strcat(this->m_wordListSets, DMISWordListDesc[i]); - strcat(this->m_wordListSets, "\n"); - }; -} - - -LexerDMIS::LexerDMIS(void) { - this->InitWordListSets(); - - this->m_majorWords.Clear(); - this->m_minorWords.Clear(); - this->m_unsupportedMajor.Clear(); - this->m_unsupportedMinor.Clear(); - this->m_codeFoldingStart.Clear(); - this->m_codeFoldingEnd.Clear(); -} - -LexerDMIS::~LexerDMIS(void) { - delete[] this->m_wordListSets; -} - -Sci_Position SCI_METHOD LexerDMIS::WordListSet(int n, const char *wl) -{ - switch (n) { - case 0: - this->m_majorWords.Clear(); - this->m_majorWords.Set(wl); - break; - case 1: - this->m_minorWords.Clear(); - this->m_minorWords.Set(wl); - break; - case 2: - this->m_unsupportedMajor.Clear(); - this->m_unsupportedMajor.Set(wl); - break; - case 3: - this->m_unsupportedMinor.Clear(); - this->m_unsupportedMinor.Set(wl); - break; - case 4: - this->m_codeFoldingStart.Clear(); - this->m_codeFoldingStart.Set(wl); - break; - case 5: - this->m_codeFoldingEnd.Clear(); - this->m_codeFoldingEnd.Set(wl); - break; - default: - return -1; - break; - } - - return 0; -} - -const char * SCI_METHOD LexerDMIS::DescribeWordListSets() -{ - return this->m_wordListSets; -} - -void SCI_METHOD LexerDMIS::Lex(Sci_PositionU startPos, Sci_Position lengthDoc, int initStyle, IDocument *pAccess) -{ - const Sci_PositionU MAX_STR_LEN = 100; - - LexAccessor styler(pAccess); - StyleContext scCTX(startPos, lengthDoc, initStyle, styler); - CharacterSet setDMISNumber(CharacterSet::setDigits, ".-+eE"); - CharacterSet setDMISWordStart(CharacterSet::setAlpha, "-234", 0x80, true); - CharacterSet setDMISWord(CharacterSet::setAlpha); - - - bool isIFLine = false; - - for (; scCTX.More(); scCTX.Forward()) { - if (scCTX.atLineEnd) { - isIFLine = false; - }; - - switch (scCTX.state) { - case SCE_DMIS_DEFAULT: - if (scCTX.Match('$', '$')) { - scCTX.SetState(SCE_DMIS_COMMENT); - scCTX.Forward(); - }; - if (scCTX.Match('\'')) { - scCTX.SetState(SCE_DMIS_STRING); - }; - if (IsADigit(scCTX.ch) || ((scCTX.Match('-') || scCTX.Match('+')) && IsADigit(scCTX.chNext))) { - scCTX.SetState(SCE_DMIS_NUMBER); - break; - }; - if (setDMISWordStart.Contains(scCTX.ch)) { - scCTX.SetState(SCE_DMIS_KEYWORD); - }; - if (scCTX.Match('(') && (!isIFLine)) { - scCTX.SetState(SCE_DMIS_LABEL); - }; - break; - - case SCE_DMIS_COMMENT: - if (scCTX.atLineEnd) { - scCTX.SetState(SCE_DMIS_DEFAULT); - }; - break; - - case SCE_DMIS_STRING: - if (scCTX.Match('\'')) { - scCTX.SetState(SCE_DMIS_DEFAULT); - }; - break; - - case SCE_DMIS_NUMBER: - if (!setDMISNumber.Contains(scCTX.ch)) { - scCTX.SetState(SCE_DMIS_DEFAULT); - }; - break; - - case SCE_DMIS_KEYWORD: - if (!setDMISWord.Contains(scCTX.ch)) { - char tmpStr[MAX_STR_LEN]; - memset(tmpStr, 0, MAX_STR_LEN*sizeof(char)); - scCTX.GetCurrent(tmpStr, (MAX_STR_LEN-1)); - strncpy(tmpStr, this->UpperCase(tmpStr), (MAX_STR_LEN-1)); - - if (this->m_minorWords.InList(tmpStr)) { - scCTX.ChangeState(SCE_DMIS_MINORWORD); - }; - if (this->m_majorWords.InList(tmpStr)) { - isIFLine = (strcmp(tmpStr, "IF") == 0); - scCTX.ChangeState(SCE_DMIS_MAJORWORD); - }; - if (this->m_unsupportedMajor.InList(tmpStr)) { - scCTX.ChangeState(SCE_DMIS_UNSUPPORTED_MAJOR); - }; - if (this->m_unsupportedMinor.InList(tmpStr)) { - scCTX.ChangeState(SCE_DMIS_UNSUPPORTED_MINOR); - }; - - if (scCTX.Match('(') && (!isIFLine)) { - scCTX.SetState(SCE_DMIS_LABEL); - } else { - scCTX.SetState(SCE_DMIS_DEFAULT); - }; - }; - break; - - case SCE_DMIS_LABEL: - if (scCTX.Match(')')) { - scCTX.SetState(SCE_DMIS_DEFAULT); - }; - break; - }; - }; - scCTX.Complete(); -} - -void SCI_METHOD LexerDMIS::Fold(Sci_PositionU startPos, Sci_Position lengthDoc, int, IDocument *pAccess) -{ - const int MAX_STR_LEN = 100; - - LexAccessor styler(pAccess); - Sci_PositionU endPos = startPos + lengthDoc; - char chNext = styler[startPos]; - Sci_Position lineCurrent = styler.GetLine(startPos); - int levelPrev = styler.LevelAt(lineCurrent) & SC_FOLDLEVELNUMBERMASK; - int levelCurrent = levelPrev; - int strPos = 0; - bool foldWordPossible = false; - CharacterSet setDMISFoldWord(CharacterSet::setAlpha); - char *tmpStr; - - - tmpStr = new char[MAX_STR_LEN]; - memset(tmpStr, 0, MAX_STR_LEN*sizeof(char)); - - for (Sci_PositionU i=startPos; i= (MAX_STR_LEN-1)) { - strPos = MAX_STR_LEN-1; - }; - - int style = styler.StyleAt(i); - bool noFoldPos = ((style == SCE_DMIS_COMMENT) || (style == SCE_DMIS_STRING)); - - if (foldWordPossible) { - if (setDMISFoldWord.Contains(ch)) { - tmpStr[strPos++] = ch; - } else { - tmpStr = this->UpperCase(tmpStr); - if (this->m_codeFoldingStart.InList(tmpStr) && (!noFoldPos)) { - levelCurrent++; - }; - if (this->m_codeFoldingEnd.InList(tmpStr) && (!noFoldPos)) { - levelCurrent--; - }; - memset(tmpStr, 0, MAX_STR_LEN*sizeof(char)); - strPos = 0; - foldWordPossible = false; - }; - } else { - if (setDMISFoldWord.Contains(ch)) { - tmpStr[strPos++] = ch; - foldWordPossible = true; - }; - }; - - if (atEOL || (i == (endPos-1))) { - int lev = levelPrev; - - if (levelCurrent > levelPrev) { - lev |= SC_FOLDLEVELHEADERFLAG; - }; - if (lev != styler.LevelAt(lineCurrent)) { - styler.SetLevel(lineCurrent, lev); - }; - lineCurrent++; - levelPrev = levelCurrent; - }; - }; - delete[] tmpStr; -} - - -LexerModule lmDMIS(SCLEX_DMIS, LexerDMIS::LexerFactoryDMIS, "DMIS", DMISWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexDiff.cpp b/libs/qscintilla/scintilla/lexers/LexDiff.cpp deleted file mode 100644 index dd008c5c..00000000 --- a/libs/qscintilla/scintilla/lexers/LexDiff.cpp +++ /dev/null @@ -1,161 +0,0 @@ -// Scintilla source code edit control -/** @file LexDiff.cxx - ** Lexer for diff results. - **/ -// Copyright 1998-2001 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static inline bool AtEOL(Accessor &styler, Sci_PositionU i) { - return (styler[i] == '\n') || - ((styler[i] == '\r') && (styler.SafeGetCharAt(i + 1) != '\n')); -} - -#define DIFF_BUFFER_START_SIZE 16 -// Note that ColouriseDiffLine analyzes only the first DIFF_BUFFER_START_SIZE -// characters of each line to classify the line. - -static void ColouriseDiffLine(char *lineBuffer, Sci_Position endLine, Accessor &styler) { - // It is needed to remember the current state to recognize starting - // comment lines before the first "diff " or "--- ". If a real - // difference starts then each line starting with ' ' is a whitespace - // otherwise it is considered a comment (Only in..., Binary file...) - if (0 == strncmp(lineBuffer, "diff ", 5)) { - styler.ColourTo(endLine, SCE_DIFF_COMMAND); - } else if (0 == strncmp(lineBuffer, "Index: ", 7)) { // For subversion's diff - styler.ColourTo(endLine, SCE_DIFF_COMMAND); - } else if (0 == strncmp(lineBuffer, "---", 3) && lineBuffer[3] != '-') { - // In a context diff, --- appears in both the header and the position markers - if (lineBuffer[3] == ' ' && atoi(lineBuffer + 4) && !strchr(lineBuffer, '/')) - styler.ColourTo(endLine, SCE_DIFF_POSITION); - else if (lineBuffer[3] == '\r' || lineBuffer[3] == '\n') - styler.ColourTo(endLine, SCE_DIFF_POSITION); - else if (lineBuffer[3] == ' ') - styler.ColourTo(endLine, SCE_DIFF_HEADER); - else - styler.ColourTo(endLine, SCE_DIFF_DELETED); - } else if (0 == strncmp(lineBuffer, "+++ ", 4)) { - // I don't know of any diff where "+++ " is a position marker, but for - // consistency, do the same as with "--- " and "*** ". - if (atoi(lineBuffer+4) && !strchr(lineBuffer, '/')) - styler.ColourTo(endLine, SCE_DIFF_POSITION); - else - styler.ColourTo(endLine, SCE_DIFF_HEADER); - } else if (0 == strncmp(lineBuffer, "====", 4)) { // For p4's diff - styler.ColourTo(endLine, SCE_DIFF_HEADER); - } else if (0 == strncmp(lineBuffer, "***", 3)) { - // In a context diff, *** appears in both the header and the position markers. - // Also ******** is a chunk header, but here it's treated as part of the - // position marker since there is no separate style for a chunk header. - if (lineBuffer[3] == ' ' && atoi(lineBuffer+4) && !strchr(lineBuffer, '/')) - styler.ColourTo(endLine, SCE_DIFF_POSITION); - else if (lineBuffer[3] == '*') - styler.ColourTo(endLine, SCE_DIFF_POSITION); - else - styler.ColourTo(endLine, SCE_DIFF_HEADER); - } else if (0 == strncmp(lineBuffer, "? ", 2)) { // For difflib - styler.ColourTo(endLine, SCE_DIFF_HEADER); - } else if (lineBuffer[0] == '@') { - styler.ColourTo(endLine, SCE_DIFF_POSITION); - } else if (lineBuffer[0] >= '0' && lineBuffer[0] <= '9') { - styler.ColourTo(endLine, SCE_DIFF_POSITION); - } else if (0 == strncmp(lineBuffer, "++", 2)) { - styler.ColourTo(endLine, SCE_DIFF_PATCH_ADD); - } else if (0 == strncmp(lineBuffer, "+-", 2)) { - styler.ColourTo(endLine, SCE_DIFF_PATCH_DELETE); - } else if (0 == strncmp(lineBuffer, "-+", 2)) { - styler.ColourTo(endLine, SCE_DIFF_REMOVED_PATCH_ADD); - } else if (0 == strncmp(lineBuffer, "--", 2)) { - styler.ColourTo(endLine, SCE_DIFF_REMOVED_PATCH_DELETE); - } else if (lineBuffer[0] == '-' || lineBuffer[0] == '<') { - styler.ColourTo(endLine, SCE_DIFF_DELETED); - } else if (lineBuffer[0] == '+' || lineBuffer[0] == '>') { - styler.ColourTo(endLine, SCE_DIFF_ADDED); - } else if (lineBuffer[0] == '!') { - styler.ColourTo(endLine, SCE_DIFF_CHANGED); - } else if (lineBuffer[0] != ' ') { - styler.ColourTo(endLine, SCE_DIFF_COMMENT); - } else { - styler.ColourTo(endLine, SCE_DIFF_DEFAULT); - } -} - -static void ColouriseDiffDoc(Sci_PositionU startPos, Sci_Position length, int, WordList *[], Accessor &styler) { - char lineBuffer[DIFF_BUFFER_START_SIZE] = ""; - styler.StartAt(startPos); - styler.StartSegment(startPos); - Sci_PositionU linePos = 0; - for (Sci_PositionU i = startPos; i < startPos + length; i++) { - if (AtEOL(styler, i)) { - if (linePos < DIFF_BUFFER_START_SIZE) { - lineBuffer[linePos] = 0; - } - ColouriseDiffLine(lineBuffer, i, styler); - linePos = 0; - } else if (linePos < DIFF_BUFFER_START_SIZE - 1) { - lineBuffer[linePos++] = styler[i]; - } else if (linePos == DIFF_BUFFER_START_SIZE - 1) { - lineBuffer[linePos++] = 0; - } - } - if (linePos > 0) { // Last line does not have ending characters - if (linePos < DIFF_BUFFER_START_SIZE) { - lineBuffer[linePos] = 0; - } - ColouriseDiffLine(lineBuffer, startPos + length - 1, styler); - } -} - -static void FoldDiffDoc(Sci_PositionU startPos, Sci_Position length, int, WordList *[], Accessor &styler) { - Sci_Position curLine = styler.GetLine(startPos); - Sci_Position curLineStart = styler.LineStart(curLine); - int prevLevel = curLine > 0 ? styler.LevelAt(curLine - 1) : SC_FOLDLEVELBASE; - int nextLevel; - - do { - const int lineType = styler.StyleAt(curLineStart); - if (lineType == SCE_DIFF_COMMAND) - nextLevel = SC_FOLDLEVELBASE | SC_FOLDLEVELHEADERFLAG; - else if (lineType == SCE_DIFF_HEADER) - nextLevel = (SC_FOLDLEVELBASE + 1) | SC_FOLDLEVELHEADERFLAG; - else if (lineType == SCE_DIFF_POSITION && styler[curLineStart] != '-') - nextLevel = (SC_FOLDLEVELBASE + 2) | SC_FOLDLEVELHEADERFLAG; - else if (prevLevel & SC_FOLDLEVELHEADERFLAG) - nextLevel = (prevLevel & SC_FOLDLEVELNUMBERMASK) + 1; - else - nextLevel = prevLevel; - - if ((nextLevel & SC_FOLDLEVELHEADERFLAG) && (nextLevel == prevLevel)) - styler.SetLevel(curLine-1, prevLevel & ~SC_FOLDLEVELHEADERFLAG); - - styler.SetLevel(curLine, nextLevel); - prevLevel = nextLevel; - - curLineStart = styler.LineStart(++curLine); - } while (static_cast(startPos)+length > curLineStart); -} - -static const char *const emptyWordListDesc[] = { - 0 -}; - -LexerModule lmDiff(SCLEX_DIFF, ColouriseDiffDoc, "diff", FoldDiffDoc, emptyWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexECL.cpp b/libs/qscintilla/scintilla/lexers/LexECL.cpp deleted file mode 100644 index 6c916bce..00000000 --- a/libs/qscintilla/scintilla/lexers/LexECL.cpp +++ /dev/null @@ -1,519 +0,0 @@ -// Scintilla source code edit control -/** @file LexECL.cxx - ** Lexer for ECL. - **/ -// Copyright 1998-2001 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#ifdef _MSC_VER -#pragma warning(disable: 4786) -#endif -#ifdef __BORLANDC__ -// Borland C++ displays warnings in vector header without this -#pragma option -w-ccc -w-rch -#endif - -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "PropSetSimple.h" -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" -#include "OptionSet.h" - -#define SET_LOWER "abcdefghijklmnopqrstuvwxyz" -#define SET_UPPER "ABCDEFGHIJKLMNOPQRSTUVWXYZ" -#define SET_DIGITS "0123456789" - -using namespace Scintilla; - -static bool IsSpaceEquiv(int state) { - switch (state) { - case SCE_ECL_DEFAULT: - case SCE_ECL_COMMENT: - case SCE_ECL_COMMENTLINE: - case SCE_ECL_COMMENTLINEDOC: - case SCE_ECL_COMMENTDOCKEYWORD: - case SCE_ECL_COMMENTDOCKEYWORDERROR: - case SCE_ECL_COMMENTDOC: - return true; - - default: - return false; - } -} - -static void ColouriseEclDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, WordList *keywordlists[], - Accessor &styler) { - WordList &keywords0 = *keywordlists[0]; - WordList &keywords1 = *keywordlists[1]; - WordList &keywords2 = *keywordlists[2]; - WordList &keywords3 = *keywordlists[3]; //Value Types - WordList &keywords4 = *keywordlists[4]; - WordList &keywords5 = *keywordlists[5]; - WordList &keywords6 = *keywordlists[6]; //Javadoc Tags - WordList cplusplus; - cplusplus.Set("beginc endc"); - - bool stylingWithinPreprocessor = false; - - CharacterSet setOKBeforeRE(CharacterSet::setNone, "(=,"); - CharacterSet setDoxygen(CharacterSet::setLower, "$@\\&<>#{}[]"); - CharacterSet setWordStart(CharacterSet::setAlpha, "_", 0x80, true); - CharacterSet setWord(CharacterSet::setAlphaNum, "._", 0x80, true); - CharacterSet setQualified(CharacterSet::setNone, "uUxX"); - - int chPrevNonWhite = ' '; - int visibleChars = 0; - bool lastWordWasUUID = false; - int styleBeforeDCKeyword = SCE_ECL_DEFAULT; - bool continuationLine = false; - - if (initStyle == SCE_ECL_PREPROCESSOR) { - // Set continuationLine if last character of previous line is '\' - Sci_Position lineCurrent = styler.GetLine(startPos); - if (lineCurrent > 0) { - int chBack = styler.SafeGetCharAt(startPos-1, 0); - int chBack2 = styler.SafeGetCharAt(startPos-2, 0); - int lineEndChar = '!'; - if (chBack2 == '\r' && chBack == '\n') { - lineEndChar = styler.SafeGetCharAt(startPos-3, 0); - } else if (chBack == '\n' || chBack == '\r') { - lineEndChar = chBack2; - } - continuationLine = lineEndChar == '\\'; - } - } - - // look back to set chPrevNonWhite properly for better regex colouring - if (startPos > 0) { - Sci_Position back = startPos; - while (--back && IsSpaceEquiv(styler.StyleAt(back))) - ; - if (styler.StyleAt(back) == SCE_ECL_OPERATOR) { - chPrevNonWhite = styler.SafeGetCharAt(back); - } - } - - StyleContext sc(startPos, length, initStyle, styler); - - for (; sc.More(); sc.Forward()) { - if (sc.atLineStart) { - if (sc.state == SCE_ECL_STRING) { - // Prevent SCE_ECL_STRINGEOL from leaking back to previous line which - // ends with a line continuation by locking in the state upto this position. - sc.SetState(SCE_ECL_STRING); - } - // Reset states to begining of colourise so no surprises - // if different sets of lines lexed. - visibleChars = 0; - lastWordWasUUID = false; - } - - // Handle line continuation generically. - if (sc.ch == '\\') { - if (sc.chNext == '\n' || sc.chNext == '\r') { - sc.Forward(); - if (sc.ch == '\r' && sc.chNext == '\n') { - sc.Forward(); - } - continuationLine = true; - continue; - } - } - - // Determine if the current state should terminate. - switch (sc.state) { - case SCE_ECL_ADDED: - case SCE_ECL_DELETED: - case SCE_ECL_CHANGED: - case SCE_ECL_MOVED: - if (sc.atLineStart) - sc.SetState(SCE_ECL_DEFAULT); - break; - case SCE_ECL_OPERATOR: - sc.SetState(SCE_ECL_DEFAULT); - break; - case SCE_ECL_NUMBER: - // We accept almost anything because of hex. and number suffixes - if (!setWord.Contains(sc.ch)) { - sc.SetState(SCE_ECL_DEFAULT); - } - break; - case SCE_ECL_IDENTIFIER: - if (!setWord.Contains(sc.ch) || (sc.ch == '.')) { - char s[1000]; - sc.GetCurrentLowered(s, sizeof(s)); - if (keywords0.InList(s)) { - lastWordWasUUID = strcmp(s, "uuid") == 0; - sc.ChangeState(SCE_ECL_WORD0); - } else if (keywords1.InList(s)) { - sc.ChangeState(SCE_ECL_WORD1); - } else if (keywords2.InList(s)) { - sc.ChangeState(SCE_ECL_WORD2); - } else if (keywords4.InList(s)) { - sc.ChangeState(SCE_ECL_WORD4); - } else if (keywords5.InList(s)) { - sc.ChangeState(SCE_ECL_WORD5); - } - else //Data types are of from KEYWORD## - { - int i = static_cast(strlen(s)) - 1; - while(i >= 0 && (isdigit(s[i]) || s[i] == '_')) - --i; - - char s2[1000]; - strncpy(s2, s, i + 1); - s2[i + 1] = 0; - if (keywords3.InList(s2)) { - sc.ChangeState(SCE_ECL_WORD3); - } - } - sc.SetState(SCE_ECL_DEFAULT); - } - break; - case SCE_ECL_PREPROCESSOR: - if (sc.atLineStart && !continuationLine) { - sc.SetState(SCE_ECL_DEFAULT); - } else if (stylingWithinPreprocessor) { - if (IsASpace(sc.ch)) { - sc.SetState(SCE_ECL_DEFAULT); - } - } else { - if (sc.Match('/', '*') || sc.Match('/', '/')) { - sc.SetState(SCE_ECL_DEFAULT); - } - } - break; - case SCE_ECL_COMMENT: - if (sc.Match('*', '/')) { - sc.Forward(); - sc.ForwardSetState(SCE_ECL_DEFAULT); - } - break; - case SCE_ECL_COMMENTDOC: - if (sc.Match('*', '/')) { - sc.Forward(); - sc.ForwardSetState(SCE_ECL_DEFAULT); - } else if (sc.ch == '@' || sc.ch == '\\') { // JavaDoc and Doxygen support - // Verify that we have the conditions to mark a comment-doc-keyword - if ((IsASpace(sc.chPrev) || sc.chPrev == '*') && (!IsASpace(sc.chNext))) { - styleBeforeDCKeyword = SCE_ECL_COMMENTDOC; - sc.SetState(SCE_ECL_COMMENTDOCKEYWORD); - } - } - break; - case SCE_ECL_COMMENTLINE: - if (sc.atLineStart) { - sc.SetState(SCE_ECL_DEFAULT); - } - break; - case SCE_ECL_COMMENTLINEDOC: - if (sc.atLineStart) { - sc.SetState(SCE_ECL_DEFAULT); - } else if (sc.ch == '@' || sc.ch == '\\') { // JavaDoc and Doxygen support - // Verify that we have the conditions to mark a comment-doc-keyword - if ((IsASpace(sc.chPrev) || sc.chPrev == '/' || sc.chPrev == '!') && (!IsASpace(sc.chNext))) { - styleBeforeDCKeyword = SCE_ECL_COMMENTLINEDOC; - sc.SetState(SCE_ECL_COMMENTDOCKEYWORD); - } - } - break; - case SCE_ECL_COMMENTDOCKEYWORD: - if ((styleBeforeDCKeyword == SCE_ECL_COMMENTDOC) && sc.Match('*', '/')) { - sc.ChangeState(SCE_ECL_COMMENTDOCKEYWORDERROR); - sc.Forward(); - sc.ForwardSetState(SCE_ECL_DEFAULT); - } else if (!setDoxygen.Contains(sc.ch)) { - char s[1000]; - sc.GetCurrentLowered(s, sizeof(s)); - if (!IsASpace(sc.ch) || !keywords6.InList(s+1)) { - sc.ChangeState(SCE_ECL_COMMENTDOCKEYWORDERROR); - } - sc.SetState(styleBeforeDCKeyword); - } - break; - case SCE_ECL_STRING: - if (sc.atLineEnd) { - sc.ChangeState(SCE_ECL_STRINGEOL); - } else if (sc.ch == '\\') { - if (sc.chNext == '\"' || sc.chNext == '\'' || sc.chNext == '\\') { - sc.Forward(); - } - } else if (sc.ch == '\"') { - sc.ForwardSetState(SCE_ECL_DEFAULT); - } - break; - case SCE_ECL_CHARACTER: - if (sc.atLineEnd) { - sc.ChangeState(SCE_ECL_STRINGEOL); - } else if (sc.ch == '\\') { - if (sc.chNext == '\"' || sc.chNext == '\'' || sc.chNext == '\\') { - sc.Forward(); - } - } else if (sc.ch == '\'') { - sc.ForwardSetState(SCE_ECL_DEFAULT); - } - break; - case SCE_ECL_REGEX: - if (sc.atLineStart) { - sc.SetState(SCE_ECL_DEFAULT); - } else if (sc.ch == '/') { - sc.Forward(); - while ((sc.ch < 0x80) && islower(sc.ch)) - sc.Forward(); // gobble regex flags - sc.SetState(SCE_ECL_DEFAULT); - } else if (sc.ch == '\\') { - // Gobble up the quoted character - if (sc.chNext == '\\' || sc.chNext == '/') { - sc.Forward(); - } - } - break; - case SCE_ECL_STRINGEOL: - if (sc.atLineStart) { - sc.SetState(SCE_ECL_DEFAULT); - } - break; - case SCE_ECL_VERBATIM: - if (sc.ch == '\"') { - if (sc.chNext == '\"') { - sc.Forward(); - } else { - sc.ForwardSetState(SCE_ECL_DEFAULT); - } - } - break; - case SCE_ECL_UUID: - if (sc.ch == '\r' || sc.ch == '\n' || sc.ch == ')') { - sc.SetState(SCE_ECL_DEFAULT); - } - break; - } - - // Determine if a new state should be entered. - Sci_Position lineCurrent = styler.GetLine(sc.currentPos); - int lineState = styler.GetLineState(lineCurrent); - if (sc.state == SCE_ECL_DEFAULT) { - if (lineState) { - sc.SetState(lineState); - } - else if (sc.Match('@', '\"')) { - sc.SetState(SCE_ECL_VERBATIM); - sc.Forward(); - } else if (setQualified.Contains(sc.ch) && sc.chNext == '\'') { - sc.SetState(SCE_ECL_CHARACTER); - sc.Forward(); - } else if (IsADigit(sc.ch) || (sc.ch == '.' && IsADigit(sc.chNext))) { - if (lastWordWasUUID) { - sc.SetState(SCE_ECL_UUID); - lastWordWasUUID = false; - } else { - sc.SetState(SCE_ECL_NUMBER); - } - } else if (setWordStart.Contains(sc.ch) || (sc.ch == '@')) { - if (lastWordWasUUID) { - sc.SetState(SCE_ECL_UUID); - lastWordWasUUID = false; - } else { - sc.SetState(SCE_ECL_IDENTIFIER); - } - } else if (sc.Match('/', '*')) { - if (sc.Match("/**") || sc.Match("/*!")) { // Support of Qt/Doxygen doc. style - sc.SetState(SCE_ECL_COMMENTDOC); - } else { - sc.SetState(SCE_ECL_COMMENT); - } - sc.Forward(); // Eat the * so it isn't used for the end of the comment - } else if (sc.Match('/', '/')) { - if ((sc.Match("///") && !sc.Match("////")) || sc.Match("//!")) - // Support of Qt/Doxygen doc. style - sc.SetState(SCE_ECL_COMMENTLINEDOC); - else - sc.SetState(SCE_ECL_COMMENTLINE); - } else if (sc.ch == '/' && setOKBeforeRE.Contains(chPrevNonWhite)) { - sc.SetState(SCE_ECL_REGEX); // JavaScript's RegEx -// } else if (sc.ch == '\"') { -// sc.SetState(SCE_ECL_STRING); - } else if (sc.ch == '\'') { - sc.SetState(SCE_ECL_CHARACTER); - } else if (sc.ch == '#' && visibleChars == 0) { - // Preprocessor commands are alone on their line - sc.SetState(SCE_ECL_PREPROCESSOR); - // Skip whitespace between # and preprocessor word - do { - sc.Forward(); - } while ((sc.ch == ' ' || sc.ch == '\t') && sc.More()); - if (sc.atLineEnd) { - sc.SetState(SCE_ECL_DEFAULT); - } - } else if (isoperator(static_cast(sc.ch))) { - sc.SetState(SCE_ECL_OPERATOR); - } - } - - if (!IsASpace(sc.ch) && !IsSpaceEquiv(sc.state)) { - chPrevNonWhite = sc.ch; - visibleChars++; - } - continuationLine = false; - } - sc.Complete(); - -} - -static bool IsStreamCommentStyle(int style) { - return style == SCE_ECL_COMMENT || - style == SCE_ECL_COMMENTDOC || - style == SCE_ECL_COMMENTDOCKEYWORD || - style == SCE_ECL_COMMENTDOCKEYWORDERROR; -} - -static bool MatchNoCase(Accessor & styler, Sci_PositionU & pos, const char *s) { - Sci_Position i=0; - for (; *s; i++) { - char compare_char = tolower(*s); - char styler_char = tolower(styler.SafeGetCharAt(pos+i)); - if (compare_char != styler_char) - return false; - s++; - } - pos+=i-1; - return true; -} - - -// Store both the current line's fold level and the next lines in the -// level store to make it easy to pick up with each increment -// and to make it possible to fiddle the current level for "} else {". -static void FoldEclDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, - WordList *[], Accessor &styler) { - bool foldComment = true; - bool foldPreprocessor = true; - bool foldCompact = true; - bool foldAtElse = true; - Sci_PositionU endPos = startPos + length; - int visibleChars = 0; - Sci_Position lineCurrent = styler.GetLine(startPos); - int levelCurrent = SC_FOLDLEVELBASE; - if (lineCurrent > 0) - levelCurrent = styler.LevelAt(lineCurrent-1) >> 16; - int levelMinCurrent = levelCurrent; - int levelNext = levelCurrent; - char chNext = styler[startPos]; - int styleNext = styler.StyleAt(startPos); - int style = initStyle; - for (Sci_PositionU i = startPos; i < endPos; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - int stylePrev = style; - style = styleNext; - styleNext = styler.StyleAt(i + 1); - bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n'); - if (foldComment && IsStreamCommentStyle(style)) { - if (!IsStreamCommentStyle(stylePrev) && (stylePrev != SCE_ECL_COMMENTLINEDOC)) { - levelNext++; - } else if (!IsStreamCommentStyle(styleNext) && (styleNext != SCE_ECL_COMMENTLINEDOC) && !atEOL) { - // Comments don't end at end of line and the next character may be unstyled. - levelNext--; - } - } - if (foldComment && (style == SCE_ECL_COMMENTLINE)) { - if ((ch == '/') && (chNext == '/')) { - char chNext2 = styler.SafeGetCharAt(i + 2); - if (chNext2 == '{') { - levelNext++; - } else if (chNext2 == '}') { - levelNext--; - } - } - } - if (foldPreprocessor && (style == SCE_ECL_PREPROCESSOR)) { - if (ch == '#') { - Sci_PositionU j = i + 1; - while ((j < endPos) && IsASpaceOrTab(styler.SafeGetCharAt(j))) { - j++; - } - if (MatchNoCase(styler, j, "region") || MatchNoCase(styler, j, "if")) { - levelNext++; - } else if (MatchNoCase(styler, j, "endregion") || MatchNoCase(styler, j, "end")) { - levelNext--; - } - } - } - if (style == SCE_ECL_OPERATOR) { - if (ch == '{') { - // Measure the minimum before a '{' to allow - // folding on "} else {" - if (levelMinCurrent > levelNext) { - levelMinCurrent = levelNext; - } - levelNext++; - } else if (ch == '}') { - levelNext--; - } - } - if (style == SCE_ECL_WORD2) { - if (MatchNoCase(styler, i, "record") || MatchNoCase(styler, i, "transform") || MatchNoCase(styler, i, "type") || MatchNoCase(styler, i, "function") || - MatchNoCase(styler, i, "module") || MatchNoCase(styler, i, "service") || MatchNoCase(styler, i, "interface") || MatchNoCase(styler, i, "ifblock") || - MatchNoCase(styler, i, "macro") || MatchNoCase(styler, i, "beginc++")) { - levelNext++; - } else if (MatchNoCase(styler, i, "endmacro") || MatchNoCase(styler, i, "endc++") || MatchNoCase(styler, i, "end")) { - levelNext--; - } - } - if (atEOL || (i == endPos-1)) { - int levelUse = levelCurrent; - if (foldAtElse) { - levelUse = levelMinCurrent; - } - int lev = levelUse | levelNext << 16; - if (visibleChars == 0 && foldCompact) - lev |= SC_FOLDLEVELWHITEFLAG; - if (levelUse < levelNext) - lev |= SC_FOLDLEVELHEADERFLAG; - if (lev != styler.LevelAt(lineCurrent)) { - styler.SetLevel(lineCurrent, lev); - } - lineCurrent++; - levelCurrent = levelNext; - levelMinCurrent = levelCurrent; - if (atEOL && (i == static_cast(styler.Length()-1))) { - // There is an empty line at end of file so give it same level and empty - styler.SetLevel(lineCurrent, (levelCurrent | levelCurrent << 16) | SC_FOLDLEVELWHITEFLAG); - } - visibleChars = 0; - } - if (!IsASpace(ch)) - visibleChars++; - } -} - -static const char * const EclWordListDesc[] = { - "Keywords", - 0 -}; - -LexerModule lmECL( - SCLEX_ECL, - ColouriseEclDoc, - "ecl", - FoldEclDoc, - EclWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexEDIFACT.cpp b/libs/qscintilla/scintilla/lexers/LexEDIFACT.cpp deleted file mode 100644 index 6da0759a..00000000 --- a/libs/qscintilla/scintilla/lexers/LexEDIFACT.cpp +++ /dev/null @@ -1,336 +0,0 @@ -// Scintilla Lexer for EDIFACT -// Written by Iain Clarke, IMCSoft & Inobiz AB. -// EDIFACT documented here: https://www.unece.org/cefact/edifact/welcome.html -// and more readably here: https://en.wikipedia.org/wiki/EDIFACT -// This code is subject to the same license terms as the rest of the scintilla project: -// The License.txt file describes the conditions under which this software may be distributed. -// - -// Header order must match order in scripts/HeaderOrder.txt -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "LexAccessor.h" -#include "LexerModule.h" -#include "DefaultLexer.h" - -using namespace Scintilla; - -class LexerEDIFACT : public DefaultLexer -{ -public: - LexerEDIFACT(); - virtual ~LexerEDIFACT() {} // virtual destructor, as we inherit from ILexer - - static ILexer *Factory() { - return new LexerEDIFACT; - } - - int SCI_METHOD Version() const override - { - return lvOriginal; - } - void SCI_METHOD Release() override - { - delete this; - } - - const char * SCI_METHOD PropertyNames() override - { - return "fold\nlexer.edifact.highlight.un.all"; - } - int SCI_METHOD PropertyType(const char *) override - { - return SC_TYPE_BOOLEAN; // Only one property! - } - const char * SCI_METHOD DescribeProperty(const char *name) override - { - if (!strcmp(name, "fold")) - return "Whether to apply folding to document or not"; - if (!strcmp(name, "lexer.edifact.highlight.un.all")) - return "Whether to apply UN* highlighting to all UN segments, or just to UNH"; - return NULL; - } - - Sci_Position SCI_METHOD PropertySet(const char *key, const char *val) override - { - if (!strcmp(key, "fold")) - { - m_bFold = strcmp(val, "0") ? true : false; - return 0; - } - if (!strcmp(key, "lexer.edifact.highlight.un.all")) // GetProperty - { - m_bHighlightAllUN = strcmp(val, "0") ? true : false; - return 0; - } - return -1; - } - const char * SCI_METHOD DescribeWordListSets() override - { - return NULL; - } - Sci_Position SCI_METHOD WordListSet(int, const char *) override - { - return -1; - } - void SCI_METHOD Lex(Sci_PositionU startPos, Sci_Position lengthDoc, int initStyle, IDocument *pAccess) override; - void SCI_METHOD Fold(Sci_PositionU startPos, Sci_Position lengthDoc, int initStyle, IDocument *pAccess) override; - void * SCI_METHOD PrivateCall(int, void *) override - { - return NULL; - } - -protected: - Sci_Position InitialiseFromUNA(IDocument *pAccess, Sci_PositionU MaxLength); - Sci_Position FindPreviousEnd(IDocument *pAccess, Sci_Position startPos) const; - Sci_Position ForwardPastWhitespace(IDocument *pAccess, Sci_Position startPos, Sci_Position MaxLength) const; - int DetectSegmentHeader(char SegmentHeader[3]) const; - - bool m_bFold; - - // property lexer.edifact.highlight.un.all - // Set to 0 to highlight only UNA segments, or 1 to highlight all UNx segments. - bool m_bHighlightAllUN; - - char m_chComponent; - char m_chData; - char m_chDecimal; - char m_chRelease; - char m_chSegment; -}; - -LexerModule lmEDIFACT(SCLEX_EDIFACT, LexerEDIFACT::Factory, "edifact"); - -/////////////////////////////////////////////////////////////////////////////// - - - -/////////////////////////////////////////////////////////////////////////////// - -LexerEDIFACT::LexerEDIFACT() -{ - m_bFold = false; - m_bHighlightAllUN = false; - m_chComponent = ':'; - m_chData = '+'; - m_chDecimal = '.'; - m_chRelease = '?'; - m_chSegment = '\''; -} - -void LexerEDIFACT::Lex(Sci_PositionU startPos, Sci_Position lengthDoc, int, IDocument *pAccess) -{ - Sci_PositionU posFinish = startPos + lengthDoc; - InitialiseFromUNA(pAccess, posFinish); - - // Look backwards for a ' or a document beginning - Sci_PositionU posCurrent = FindPreviousEnd(pAccess, startPos); - // And jump past the ' if this was not the beginning of the document - if (posCurrent != 0) - posCurrent++; - - // Style buffer, so we're not issuing loads of notifications - LexAccessor styler (pAccess); - pAccess->StartStyling(posCurrent, '\377'); - styler.StartSegment(posCurrent); - Sci_Position posSegmentStart = -1; - - while ((posCurrent < posFinish) && (posSegmentStart == -1)) - { - posCurrent = ForwardPastWhitespace(pAccess, posCurrent, posFinish); - // Mark whitespace as default - styler.ColourTo(posCurrent - 1, SCE_EDI_DEFAULT); - if (posCurrent >= posFinish) - break; - - // Does is start with 3 charaters? ie, UNH - char SegmentHeader[4] = { 0 }; - pAccess->GetCharRange(SegmentHeader, posCurrent, 3); - - int SegmentStyle = DetectSegmentHeader(SegmentHeader); - if (SegmentStyle == SCE_EDI_BADSEGMENT) - break; - if (SegmentStyle == SCE_EDI_UNA) - { - posCurrent += 9; - styler.ColourTo(posCurrent - 1, SCE_EDI_UNA); // UNA - continue; - } - posSegmentStart = posCurrent; - posCurrent += 3; - - styler.ColourTo(posCurrent - 1, SegmentStyle); // UNH etc - - // Colour in the rest of the segment - for (char c; posCurrent < posFinish; posCurrent++) - { - pAccess->GetCharRange(&c, posCurrent, 1); - - if (c == m_chRelease) // ? escape character, check first, in case of ?' - posCurrent++; - else if (c == m_chSegment) // ' - { - // Make sure the whole segment is on one line. styler won't let us go back in time, so we'll settle for marking the ' as bad. - Sci_Position lineSegmentStart = pAccess->LineFromPosition(posSegmentStart); - Sci_Position lineSegmentEnd = pAccess->LineFromPosition(posCurrent); - if (lineSegmentStart == lineSegmentEnd) - styler.ColourTo(posCurrent, SCE_EDI_SEGMENTEND); - else - styler.ColourTo(posCurrent, SCE_EDI_BADSEGMENT); - posSegmentStart = -1; - posCurrent++; - break; - } - else if (c == m_chComponent) // : - styler.ColourTo(posCurrent, SCE_EDI_SEP_COMPOSITE); - else if (c == m_chData) // + - styler.ColourTo(posCurrent, SCE_EDI_SEP_ELEMENT); - else - styler.ColourTo(posCurrent, SCE_EDI_DEFAULT); - } - } - styler.Flush(); - - if (posSegmentStart == -1) - return; - - pAccess->StartStyling(posSegmentStart, -1); - pAccess->SetStyleFor(posFinish - posSegmentStart, SCE_EDI_BADSEGMENT); -} - -void LexerEDIFACT::Fold(Sci_PositionU startPos, Sci_Position lengthDoc, int, IDocument *pAccess) -{ - if (!m_bFold) - return; - - // Fold at UNx lines. ie, UNx segments = 0, other segments = 1. - // There's no sub folding, so we can be quite simple. - Sci_Position endPos = startPos + lengthDoc; - char SegmentHeader[4] = { 0 }; - - int iIndentPrevious = 0; - Sci_Position lineLast = pAccess->LineFromPosition(endPos); - - for (Sci_Position lineCurrent = pAccess->LineFromPosition(startPos); lineCurrent <= lineLast; lineCurrent++) - { - Sci_Position posLineStart = pAccess->LineStart(lineCurrent); - posLineStart = ForwardPastWhitespace(pAccess, posLineStart, endPos); - Sci_Position lineDataStart = pAccess->LineFromPosition(posLineStart); - // Fill in whitespace lines? - for (; lineCurrent < lineDataStart; lineCurrent++) - pAccess->SetLevel(lineCurrent, SC_FOLDLEVELBASE | SC_FOLDLEVELWHITEFLAG | iIndentPrevious); - pAccess->GetCharRange(SegmentHeader, posLineStart, 3); - //if (DetectSegmentHeader(SegmentHeader) == SCE_EDI_BADSEGMENT) // Abort if this is not a proper segment header - - int level = 0; - if (memcmp(SegmentHeader, "UNH", 3) == 0) // UNH starts blocks - level = SC_FOLDLEVELBASE | SC_FOLDLEVELHEADERFLAG; - // Check for UNA,B and Z. All others are inside messages - else if (!memcmp(SegmentHeader, "UNA", 3) || !memcmp(SegmentHeader, "UNB", 3) || !memcmp(SegmentHeader, "UNZ", 3)) - level = SC_FOLDLEVELBASE; - else - level = SC_FOLDLEVELBASE | 1; - pAccess->SetLevel(lineCurrent, level); - iIndentPrevious = level & SC_FOLDLEVELNUMBERMASK; - } -} - -Sci_Position LexerEDIFACT::InitialiseFromUNA(IDocument *pAccess, Sci_PositionU MaxLength) -{ - MaxLength -= 9; // drop 9 chars, to give us room for UNA:+.? ' - - Sci_PositionU startPos = 0; - startPos += ForwardPastWhitespace(pAccess, 0, MaxLength); - if (startPos < MaxLength) - { - char bufUNA[9]; - pAccess->GetCharRange(bufUNA, startPos, 9); - - // Check it's UNA segment - if (!memcmp(bufUNA, "UNA", 3)) - { - m_chComponent = bufUNA[3]; - m_chData = bufUNA[4]; - m_chDecimal = bufUNA[5]; - m_chRelease = bufUNA[6]; - // bufUNA [7] should be space - reserved. - m_chSegment = bufUNA[8]; - - return 0; // success! - } - } - - // We failed to find a UNA, so drop to defaults - m_chComponent = ':'; - m_chData = '+'; - m_chDecimal = '.'; - m_chRelease = '?'; - m_chSegment = '\''; - - return -1; -} - -Sci_Position LexerEDIFACT::ForwardPastWhitespace(IDocument *pAccess, Sci_Position startPos, Sci_Position MaxLength) const -{ - char c; - - while (startPos < MaxLength) - { - pAccess->GetCharRange(&c, startPos, 1); - switch (c) - { - case '\t': - case '\r': - case '\n': - case ' ': - break; - default: - return startPos; - } - - startPos++; - } - - return MaxLength; -} - -int LexerEDIFACT::DetectSegmentHeader(char SegmentHeader[3]) const -{ - if ( - SegmentHeader[0] < 'A' || SegmentHeader[0] > 'Z' || - SegmentHeader[1] < 'A' || SegmentHeader[1] > 'Z' || - SegmentHeader[2] < 'A' || SegmentHeader[2] > 'Z') - return SCE_EDI_BADSEGMENT; - - if (!memcmp(SegmentHeader, "UNA", 3)) - return SCE_EDI_UNA; - - if (m_bHighlightAllUN && !memcmp(SegmentHeader, "UN", 2)) - return SCE_EDI_UNH; - else if (memcmp(SegmentHeader, "UNH", 3) == 0) - return SCE_EDI_UNH; - - return SCE_EDI_SEGMENTSTART; -} - -// Look backwards for a ' or a document beginning -Sci_Position LexerEDIFACT::FindPreviousEnd(IDocument *pAccess, Sci_Position startPos) const -{ - for (char c; startPos > 0; startPos--) - { - pAccess->GetCharRange(&c, startPos, 1); - if (c == m_chSegment) - return startPos; - } - // We didn't find a ', so just go with the beginning - return 0; -} - - diff --git a/libs/qscintilla/scintilla/lexers/LexEScript.cpp b/libs/qscintilla/scintilla/lexers/LexEScript.cpp deleted file mode 100644 index 0cba2985..00000000 --- a/libs/qscintilla/scintilla/lexers/LexEScript.cpp +++ /dev/null @@ -1,274 +0,0 @@ -// Scintilla source code edit control -/** @file LexESCRIPT.cxx - ** Lexer for ESCRIPT - **/ -// Copyright 2003 by Patrizio Bekerle (patrizio@bekerle.com) - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - - -static inline bool IsAWordChar(const int ch) { - return (ch < 0x80) && (isalnum(ch) || ch == '.' || ch == '_'); -} - -static inline bool IsAWordStart(const int ch) { - return (ch < 0x80) && (isalnum(ch) || ch == '_'); -} - - - -static void ColouriseESCRIPTDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, WordList *keywordlists[], - Accessor &styler) { - - WordList &keywords = *keywordlists[0]; - WordList &keywords2 = *keywordlists[1]; - WordList &keywords3 = *keywordlists[2]; - - // Do not leak onto next line - /*if (initStyle == SCE_ESCRIPT_STRINGEOL) - initStyle = SCE_ESCRIPT_DEFAULT;*/ - - StyleContext sc(startPos, length, initStyle, styler); - - bool caseSensitive = styler.GetPropertyInt("escript.case.sensitive", 0) != 0; - - for (; sc.More(); sc.Forward()) { - - /*if (sc.atLineStart && (sc.state == SCE_ESCRIPT_STRING)) { - // Prevent SCE_ESCRIPT_STRINGEOL from leaking back to previous line - sc.SetState(SCE_ESCRIPT_STRING); - }*/ - - // Handle line continuation generically. - if (sc.ch == '\\') { - if (sc.chNext == '\n' || sc.chNext == '\r') { - sc.Forward(); - if (sc.ch == '\r' && sc.chNext == '\n') { - sc.Forward(); - } - continue; - } - } - - // Determine if the current state should terminate. - if (sc.state == SCE_ESCRIPT_OPERATOR || sc.state == SCE_ESCRIPT_BRACE) { - sc.SetState(SCE_ESCRIPT_DEFAULT); - } else if (sc.state == SCE_ESCRIPT_NUMBER) { - if (!IsADigit(sc.ch) || sc.ch != '.') { - sc.SetState(SCE_ESCRIPT_DEFAULT); - } - } else if (sc.state == SCE_ESCRIPT_IDENTIFIER) { - if (!IsAWordChar(sc.ch) || (sc.ch == '.')) { - char s[100]; - if (caseSensitive) { - sc.GetCurrent(s, sizeof(s)); - } else { - sc.GetCurrentLowered(s, sizeof(s)); - } - -// sc.GetCurrentLowered(s, sizeof(s)); - - if (keywords.InList(s)) { - sc.ChangeState(SCE_ESCRIPT_WORD); - } else if (keywords2.InList(s)) { - sc.ChangeState(SCE_ESCRIPT_WORD2); - } else if (keywords3.InList(s)) { - sc.ChangeState(SCE_ESCRIPT_WORD3); - // sc.state = SCE_ESCRIPT_IDENTIFIER; - } - sc.SetState(SCE_ESCRIPT_DEFAULT); - } - } else if (sc.state == SCE_ESCRIPT_COMMENT) { - if (sc.Match('*', '/')) { - sc.Forward(); - sc.ForwardSetState(SCE_ESCRIPT_DEFAULT); - } - } else if (sc.state == SCE_ESCRIPT_COMMENTDOC) { - if (sc.Match('*', '/')) { - sc.Forward(); - sc.ForwardSetState(SCE_ESCRIPT_DEFAULT); - } - } else if (sc.state == SCE_ESCRIPT_COMMENTLINE) { - if (sc.atLineEnd) { - sc.SetState(SCE_ESCRIPT_DEFAULT); - } - } else if (sc.state == SCE_ESCRIPT_STRING) { - if (sc.ch == '\\') { - if (sc.chNext == '\"' || sc.chNext == '\\') { - sc.Forward(); - } - } else if (sc.ch == '\"') { - sc.ForwardSetState(SCE_ESCRIPT_DEFAULT); - } - } - - // Determine if a new state should be entered. - if (sc.state == SCE_ESCRIPT_DEFAULT) { - if (IsADigit(sc.ch) || (sc.ch == '.' && IsADigit(sc.chNext))) { - sc.SetState(SCE_ESCRIPT_NUMBER); - } else if (IsAWordStart(sc.ch) || (sc.ch == '#')) { - sc.SetState(SCE_ESCRIPT_IDENTIFIER); - } else if (sc.Match('/', '*')) { - sc.SetState(SCE_ESCRIPT_COMMENT); - sc.Forward(); // Eat the * so it isn't used for the end of the comment - } else if (sc.Match('/', '/')) { - sc.SetState(SCE_ESCRIPT_COMMENTLINE); - } else if (sc.ch == '\"') { - sc.SetState(SCE_ESCRIPT_STRING); - //} else if (isoperator(static_cast(sc.ch))) { - } else if (sc.ch == '+' || sc.ch == '-' || sc.ch == '*' || sc.ch == '/' || sc.ch == '=' || sc.ch == '<' || sc.ch == '>' || sc.ch == '&' || sc.ch == '|' || sc.ch == '!' || sc.ch == '?' || sc.ch == ':') { - sc.SetState(SCE_ESCRIPT_OPERATOR); - } else if (sc.ch == '{' || sc.ch == '}') { - sc.SetState(SCE_ESCRIPT_BRACE); - } - } - - } - sc.Complete(); -} - - -static int classifyFoldPointESCRIPT(const char* s, const char* prevWord) { - int lev = 0; - if (strcmp(prevWord, "end") == 0) return lev; - if ((strcmp(prevWord, "else") == 0 && strcmp(s, "if") == 0) || strcmp(s, "elseif") == 0) - return -1; - - if (strcmp(s, "for") == 0 || strcmp(s, "foreach") == 0 - || strcmp(s, "program") == 0 || strcmp(s, "function") == 0 - || strcmp(s, "while") == 0 || strcmp(s, "case") == 0 - || strcmp(s, "if") == 0 ) { - lev = 1; - } else if ( strcmp(s, "endfor") == 0 || strcmp(s, "endforeach") == 0 - || strcmp(s, "endprogram") == 0 || strcmp(s, "endfunction") == 0 - || strcmp(s, "endwhile") == 0 || strcmp(s, "endcase") == 0 - || strcmp(s, "endif") == 0 ) { - lev = -1; - } - - return lev; -} - - -static bool IsStreamCommentStyle(int style) { - return style == SCE_ESCRIPT_COMMENT || - style == SCE_ESCRIPT_COMMENTDOC || - style == SCE_ESCRIPT_COMMENTLINE; -} - -static void FoldESCRIPTDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, WordList *[], Accessor &styler) { - //~ bool foldComment = styler.GetPropertyInt("fold.comment") != 0; - // Do not know how to fold the comment at the moment. - bool foldCompact = styler.GetPropertyInt("fold.compact", 1) != 0; - bool foldComment = true; - Sci_PositionU endPos = startPos + length; - int visibleChars = 0; - Sci_Position lineCurrent = styler.GetLine(startPos); - int levelPrev = styler.LevelAt(lineCurrent) & SC_FOLDLEVELNUMBERMASK; - int levelCurrent = levelPrev; - char chNext = styler[startPos]; - int styleNext = styler.StyleAt(startPos); - int style = initStyle; - - Sci_Position lastStart = 0; - char prevWord[32] = ""; - - for (Sci_PositionU i = startPos; i < endPos; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - int stylePrev = style; - style = styleNext; - styleNext = styler.StyleAt(i + 1); - bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n'); - - - if (foldComment && IsStreamCommentStyle(style)) { - if (!IsStreamCommentStyle(stylePrev)) { - levelCurrent++; - } else if (!IsStreamCommentStyle(styleNext) && !atEOL) { - // Comments don't end at end of line and the next character may be unstyled. - levelCurrent--; - } - } - - if (foldComment && (style == SCE_ESCRIPT_COMMENTLINE)) { - if ((ch == '/') && (chNext == '/')) { - char chNext2 = styler.SafeGetCharAt(i + 2); - if (chNext2 == '{') { - levelCurrent++; - } else if (chNext2 == '}') { - levelCurrent--; - } - } - } - - if (stylePrev == SCE_ESCRIPT_DEFAULT && style == SCE_ESCRIPT_WORD3) - { - // Store last word start point. - lastStart = i; - } - - if (style == SCE_ESCRIPT_WORD3) { - if(iswordchar(ch) && !iswordchar(chNext)) { - char s[32]; - Sci_PositionU j; - for(j = 0; ( j < 31 ) && ( j < i-lastStart+1 ); j++) { - s[j] = static_cast(tolower(styler[lastStart + j])); - } - s[j] = '\0'; - levelCurrent += classifyFoldPointESCRIPT(s, prevWord); - strcpy(prevWord, s); - } - } - if (atEOL) { - int lev = levelPrev; - if (visibleChars == 0 && foldCompact) - lev |= SC_FOLDLEVELWHITEFLAG; - if ((levelCurrent > levelPrev) && (visibleChars > 0)) - lev |= SC_FOLDLEVELHEADERFLAG; - if (lev != styler.LevelAt(lineCurrent)) { - styler.SetLevel(lineCurrent, lev); - } - lineCurrent++; - levelPrev = levelCurrent; - visibleChars = 0; - strcpy(prevWord, ""); - } - - if (!isspacechar(ch)) - visibleChars++; - } - - // Fill in the real level of the next line, keeping the current flags as they will be filled in later - int flagsNext = styler.LevelAt(lineCurrent) & ~SC_FOLDLEVELNUMBERMASK; - styler.SetLevel(lineCurrent, levelPrev | flagsNext); -} - - - -static const char * const ESCRIPTWordLists[] = { - "Primary keywords and identifiers", - "Intrinsic functions", - "Extended and user defined functions", - 0, -}; - -LexerModule lmESCRIPT(SCLEX_ESCRIPT, ColouriseESCRIPTDoc, "escript", FoldESCRIPTDoc, ESCRIPTWordLists); diff --git a/libs/qscintilla/scintilla/lexers/LexEiffel.cpp b/libs/qscintilla/scintilla/lexers/LexEiffel.cpp deleted file mode 100644 index d1d42a96..00000000 --- a/libs/qscintilla/scintilla/lexers/LexEiffel.cpp +++ /dev/null @@ -1,239 +0,0 @@ -// Scintilla source code edit control -/** @file LexEiffel.cxx - ** Lexer for Eiffel. - **/ -// Copyright 1998-2001 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static inline bool isEiffelOperator(unsigned int ch) { - // '.' left out as it is used to make up numbers - return ch == '*' || ch == '/' || ch == '\\' || ch == '-' || ch == '+' || - ch == '(' || ch == ')' || ch == '=' || - ch == '{' || ch == '}' || ch == '~' || - ch == '[' || ch == ']' || ch == ';' || - ch == '<' || ch == '>' || ch == ',' || - ch == '.' || ch == '^' || ch == '%' || ch == ':' || - ch == '!' || ch == '@' || ch == '?'; -} - -static inline bool IsAWordChar(unsigned int ch) { - return (ch < 0x80) && (isalnum(ch) || ch == '_'); -} - -static inline bool IsAWordStart(unsigned int ch) { - return (ch < 0x80) && (isalnum(ch) || ch == '_'); -} - -static void ColouriseEiffelDoc(Sci_PositionU startPos, - Sci_Position length, - int initStyle, - WordList *keywordlists[], - Accessor &styler) { - - WordList &keywords = *keywordlists[0]; - - StyleContext sc(startPos, length, initStyle, styler); - - for (; sc.More(); sc.Forward()) { - - if (sc.state == SCE_EIFFEL_STRINGEOL) { - if (sc.ch != '\r' && sc.ch != '\n') { - sc.SetState(SCE_EIFFEL_DEFAULT); - } - } else if (sc.state == SCE_EIFFEL_OPERATOR) { - sc.SetState(SCE_EIFFEL_DEFAULT); - } else if (sc.state == SCE_EIFFEL_WORD) { - if (!IsAWordChar(sc.ch)) { - char s[100]; - sc.GetCurrentLowered(s, sizeof(s)); - if (!keywords.InList(s)) { - sc.ChangeState(SCE_EIFFEL_IDENTIFIER); - } - sc.SetState(SCE_EIFFEL_DEFAULT); - } - } else if (sc.state == SCE_EIFFEL_NUMBER) { - if (!IsAWordChar(sc.ch)) { - sc.SetState(SCE_EIFFEL_DEFAULT); - } - } else if (sc.state == SCE_EIFFEL_COMMENTLINE) { - if (sc.ch == '\r' || sc.ch == '\n') { - sc.SetState(SCE_EIFFEL_DEFAULT); - } - } else if (sc.state == SCE_EIFFEL_STRING) { - if (sc.ch == '%') { - sc.Forward(); - } else if (sc.ch == '\"') { - sc.Forward(); - sc.SetState(SCE_EIFFEL_DEFAULT); - } - } else if (sc.state == SCE_EIFFEL_CHARACTER) { - if (sc.ch == '\r' || sc.ch == '\n') { - sc.SetState(SCE_EIFFEL_STRINGEOL); - } else if (sc.ch == '%') { - sc.Forward(); - } else if (sc.ch == '\'') { - sc.Forward(); - sc.SetState(SCE_EIFFEL_DEFAULT); - } - } - - if (sc.state == SCE_EIFFEL_DEFAULT) { - if (sc.ch == '-' && sc.chNext == '-') { - sc.SetState(SCE_EIFFEL_COMMENTLINE); - } else if (sc.ch == '\"') { - sc.SetState(SCE_EIFFEL_STRING); - } else if (sc.ch == '\'') { - sc.SetState(SCE_EIFFEL_CHARACTER); - } else if (IsADigit(sc.ch) || (sc.ch == '.')) { - sc.SetState(SCE_EIFFEL_NUMBER); - } else if (IsAWordStart(sc.ch)) { - sc.SetState(SCE_EIFFEL_WORD); - } else if (isEiffelOperator(sc.ch)) { - sc.SetState(SCE_EIFFEL_OPERATOR); - } - } - } - sc.Complete(); -} - -static bool IsEiffelComment(Accessor &styler, Sci_Position pos, Sci_Position len) { - return len>1 && styler[pos]=='-' && styler[pos+1]=='-'; -} - -static void FoldEiffelDocIndent(Sci_PositionU startPos, Sci_Position length, int, - WordList *[], Accessor &styler) { - Sci_Position lengthDoc = startPos + length; - - // Backtrack to previous line in case need to fix its fold status - Sci_Position lineCurrent = styler.GetLine(startPos); - if (startPos > 0) { - if (lineCurrent > 0) { - lineCurrent--; - startPos = styler.LineStart(lineCurrent); - } - } - int spaceFlags = 0; - int indentCurrent = styler.IndentAmount(lineCurrent, &spaceFlags, IsEiffelComment); - char chNext = styler[startPos]; - for (Sci_Position i = startPos; i < lengthDoc; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - - if ((ch == '\r' && chNext != '\n') || (ch == '\n') || (i == lengthDoc)) { - int lev = indentCurrent; - int indentNext = styler.IndentAmount(lineCurrent + 1, &spaceFlags, IsEiffelComment); - if (!(indentCurrent & SC_FOLDLEVELWHITEFLAG)) { - // Only non whitespace lines can be headers - if ((indentCurrent & SC_FOLDLEVELNUMBERMASK) < (indentNext & SC_FOLDLEVELNUMBERMASK)) { - lev |= SC_FOLDLEVELHEADERFLAG; - } else if (indentNext & SC_FOLDLEVELWHITEFLAG) { - // Line after is blank so check the next - maybe should continue further? - int spaceFlags2 = 0; - int indentNext2 = styler.IndentAmount(lineCurrent + 2, &spaceFlags2, IsEiffelComment); - if ((indentCurrent & SC_FOLDLEVELNUMBERMASK) < (indentNext2 & SC_FOLDLEVELNUMBERMASK)) { - lev |= SC_FOLDLEVELHEADERFLAG; - } - } - } - indentCurrent = indentNext; - styler.SetLevel(lineCurrent, lev); - lineCurrent++; - } - } -} - -static void FoldEiffelDocKeyWords(Sci_PositionU startPos, Sci_Position length, int /* initStyle */, WordList *[], - Accessor &styler) { - Sci_PositionU lengthDoc = startPos + length; - int visibleChars = 0; - Sci_Position lineCurrent = styler.GetLine(startPos); - int levelPrev = styler.LevelAt(lineCurrent) & SC_FOLDLEVELNUMBERMASK; - int levelCurrent = levelPrev; - char chNext = styler[startPos]; - int stylePrev = 0; - int styleNext = styler.StyleAt(startPos); - // lastDeferred should be determined by looking back to last keyword in case - // the "deferred" is on a line before "class" - bool lastDeferred = false; - for (Sci_PositionU i = startPos; i < lengthDoc; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - int style = styleNext; - styleNext = styler.StyleAt(i + 1); - bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n'); - if ((stylePrev != SCE_EIFFEL_WORD) && (style == SCE_EIFFEL_WORD)) { - char s[20]; - Sci_PositionU j = 0; - while ((j < (sizeof(s) - 1)) && (iswordchar(styler[i + j]))) { - s[j] = styler[i + j]; - j++; - } - s[j] = '\0'; - - if ( - (strcmp(s, "check") == 0) || - (strcmp(s, "debug") == 0) || - (strcmp(s, "deferred") == 0) || - (strcmp(s, "do") == 0) || - (strcmp(s, "from") == 0) || - (strcmp(s, "if") == 0) || - (strcmp(s, "inspect") == 0) || - (strcmp(s, "once") == 0) - ) - levelCurrent++; - if (!lastDeferred && (strcmp(s, "class") == 0)) - levelCurrent++; - if (strcmp(s, "end") == 0) - levelCurrent--; - lastDeferred = strcmp(s, "deferred") == 0; - } - - if (atEOL) { - int lev = levelPrev; - if (visibleChars == 0) - lev |= SC_FOLDLEVELWHITEFLAG; - if ((levelCurrent > levelPrev) && (visibleChars > 0)) - lev |= SC_FOLDLEVELHEADERFLAG; - if (lev != styler.LevelAt(lineCurrent)) { - styler.SetLevel(lineCurrent, lev); - } - lineCurrent++; - levelPrev = levelCurrent; - visibleChars = 0; - } - if (!isspacechar(ch)) - visibleChars++; - stylePrev = style; - } - // Fill in the real level of the next line, keeping the current flags as they will be filled in later - int flagsNext = styler.LevelAt(lineCurrent) & ~SC_FOLDLEVELNUMBERMASK; - styler.SetLevel(lineCurrent, levelPrev | flagsNext); -} - -static const char * const eiffelWordListDesc[] = { - "Keywords", - 0 -}; - -LexerModule lmEiffel(SCLEX_EIFFEL, ColouriseEiffelDoc, "eiffel", FoldEiffelDocIndent, eiffelWordListDesc); -LexerModule lmEiffelkw(SCLEX_EIFFELKW, ColouriseEiffelDoc, "eiffelkw", FoldEiffelDocKeyWords, eiffelWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexErlang.cpp b/libs/qscintilla/scintilla/lexers/LexErlang.cpp deleted file mode 100644 index 4ca5962c..00000000 --- a/libs/qscintilla/scintilla/lexers/LexErlang.cpp +++ /dev/null @@ -1,624 +0,0 @@ -// Scintilla source code edit control -// Encoding: UTF-8 -// Copyright 1998-2001 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. -/** @file LexErlang.cxx - ** Lexer for Erlang. - ** Enhanced by Etienne 'Lenain' Girondel (lenaing@gmail.com) - ** Originally wrote by Peter-Henry Mander, - ** based on Matlab lexer by José Fonseca. - **/ - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static int is_radix(int radix, int ch) { - int digit; - - if (36 < radix || 2 > radix) - return 0; - - if (isdigit(ch)) { - digit = ch - '0'; - } else if (isalnum(ch)) { - digit = toupper(ch) - 'A' + 10; - } else { - return 0; - } - - return (digit < radix); -} - -typedef enum { - STATE_NULL, - COMMENT, - COMMENT_FUNCTION, - COMMENT_MODULE, - COMMENT_DOC, - COMMENT_DOC_MACRO, - ATOM_UNQUOTED, - ATOM_QUOTED, - NODE_NAME_UNQUOTED, - NODE_NAME_QUOTED, - MACRO_START, - MACRO_UNQUOTED, - MACRO_QUOTED, - RECORD_START, - RECORD_UNQUOTED, - RECORD_QUOTED, - NUMERAL_START, - NUMERAL_BASE_VALUE, - NUMERAL_FLOAT, - NUMERAL_EXPONENT, - PREPROCESSOR -} atom_parse_state_t; - -static inline bool IsAWordChar(const int ch) { - return (ch < 0x80) && (ch != ' ') && (isalnum(ch) || ch == '_'); -} - -static void ColouriseErlangDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, - WordList *keywordlists[], Accessor &styler) { - - StyleContext sc(startPos, length, initStyle, styler); - WordList &reservedWords = *keywordlists[0]; - WordList &erlangBIFs = *keywordlists[1]; - WordList &erlangPreproc = *keywordlists[2]; - WordList &erlangModulesAtt = *keywordlists[3]; - WordList &erlangDoc = *keywordlists[4]; - WordList &erlangDocMacro = *keywordlists[5]; - int radix_digits = 0; - int exponent_digits = 0; - atom_parse_state_t parse_state = STATE_NULL; - atom_parse_state_t old_parse_state = STATE_NULL; - bool to_late_to_comment = false; - char cur[100]; - int old_style = SCE_ERLANG_DEFAULT; - - styler.StartAt(startPos); - - for (; sc.More(); sc.Forward()) { - int style = SCE_ERLANG_DEFAULT; - if (STATE_NULL != parse_state) { - - switch (parse_state) { - - case STATE_NULL : sc.SetState(SCE_ERLANG_DEFAULT); break; - - /* COMMENTS ------------------------------------------------------*/ - case COMMENT : { - if (sc.ch != '%') { - to_late_to_comment = true; - } else if (!to_late_to_comment && sc.ch == '%') { - // Switch to comment level 2 (Function) - sc.ChangeState(SCE_ERLANG_COMMENT_FUNCTION); - old_style = SCE_ERLANG_COMMENT_FUNCTION; - parse_state = COMMENT_FUNCTION; - sc.Forward(); - } - } - // V--- Falling through! - // Falls through. - case COMMENT_FUNCTION : { - if (sc.ch != '%') { - to_late_to_comment = true; - } else if (!to_late_to_comment && sc.ch == '%') { - // Switch to comment level 3 (Module) - sc.ChangeState(SCE_ERLANG_COMMENT_MODULE); - old_style = SCE_ERLANG_COMMENT_MODULE; - parse_state = COMMENT_MODULE; - sc.Forward(); - } - } - // V--- Falling through! - // Falls through. - case COMMENT_MODULE : { - if (parse_state != COMMENT) { - // Search for comment documentation - if (sc.chNext == '@') { - old_parse_state = parse_state; - parse_state = ('{' == sc.ch) - ? COMMENT_DOC_MACRO - : COMMENT_DOC; - sc.ForwardSetState(sc.state); - } - } - - // All comments types fall here. - if (sc.atLineEnd) { - to_late_to_comment = false; - sc.SetState(SCE_ERLANG_DEFAULT); - parse_state = STATE_NULL; - } - } break; - - case COMMENT_DOC : - // V--- Falling through! - case COMMENT_DOC_MACRO : { - - if (!isalnum(sc.ch)) { - // Try to match documentation comment - sc.GetCurrent(cur, sizeof(cur)); - - if (parse_state == COMMENT_DOC_MACRO - && erlangDocMacro.InList(cur)) { - sc.ChangeState(SCE_ERLANG_COMMENT_DOC_MACRO); - while (sc.ch != '}' && !sc.atLineEnd) - sc.Forward(); - } else if (erlangDoc.InList(cur)) { - sc.ChangeState(SCE_ERLANG_COMMENT_DOC); - } else { - sc.ChangeState(old_style); - } - - // Switch back to old state - sc.SetState(old_style); - parse_state = old_parse_state; - } - - if (sc.atLineEnd) { - to_late_to_comment = false; - sc.ChangeState(old_style); - sc.SetState(SCE_ERLANG_DEFAULT); - parse_state = STATE_NULL; - } - } break; - - /* -------------------------------------------------------------- */ - /* Atoms ---------------------------------------------------------*/ - case ATOM_UNQUOTED : { - if ('@' == sc.ch){ - parse_state = NODE_NAME_UNQUOTED; - } else if (sc.ch == ':') { - // Searching for module name - if (sc.chNext == ' ') { - // error - sc.ChangeState(SCE_ERLANG_UNKNOWN); - parse_state = STATE_NULL; - } else { - sc.Forward(); - if (isalnum(sc.ch)) { - sc.GetCurrent(cur, sizeof(cur)); - sc.ChangeState(SCE_ERLANG_MODULES); - sc.SetState(SCE_ERLANG_MODULES); - } - } - } else if (!IsAWordChar(sc.ch)) { - - sc.GetCurrent(cur, sizeof(cur)); - if (reservedWords.InList(cur)) { - style = SCE_ERLANG_KEYWORD; - } else if (erlangBIFs.InList(cur) - && strcmp(cur,"erlang:")){ - style = SCE_ERLANG_BIFS; - } else if (sc.ch == '(' || '/' == sc.ch){ - style = SCE_ERLANG_FUNCTION_NAME; - } else { - style = SCE_ERLANG_ATOM; - } - - sc.ChangeState(style); - sc.SetState(SCE_ERLANG_DEFAULT); - parse_state = STATE_NULL; - } - - } break; - - case ATOM_QUOTED : { - if ( '@' == sc.ch ){ - parse_state = NODE_NAME_QUOTED; - } else if ('\'' == sc.ch && '\\' != sc.chPrev) { - sc.ChangeState(SCE_ERLANG_ATOM); - sc.ForwardSetState(SCE_ERLANG_DEFAULT); - parse_state = STATE_NULL; - } - } break; - - /* -------------------------------------------------------------- */ - /* Node names ----------------------------------------------------*/ - case NODE_NAME_UNQUOTED : { - if ('@' == sc.ch) { - sc.SetState(SCE_ERLANG_DEFAULT); - parse_state = STATE_NULL; - } else if (!IsAWordChar(sc.ch)) { - sc.ChangeState(SCE_ERLANG_NODE_NAME); - sc.SetState(SCE_ERLANG_DEFAULT); - parse_state = STATE_NULL; - } - } break; - - case NODE_NAME_QUOTED : { - if ('@' == sc.ch) { - sc.SetState(SCE_ERLANG_DEFAULT); - parse_state = STATE_NULL; - } else if ('\'' == sc.ch && '\\' != sc.chPrev) { - sc.ChangeState(SCE_ERLANG_NODE_NAME_QUOTED); - sc.ForwardSetState(SCE_ERLANG_DEFAULT); - parse_state = STATE_NULL; - } - } break; - - /* -------------------------------------------------------------- */ - /* Records -------------------------------------------------------*/ - case RECORD_START : { - if ('\'' == sc.ch) { - parse_state = RECORD_QUOTED; - } else if (isalpha(sc.ch) && islower(sc.ch)) { - parse_state = RECORD_UNQUOTED; - } else { // error - sc.SetState(SCE_ERLANG_DEFAULT); - parse_state = STATE_NULL; - } - } break; - - case RECORD_UNQUOTED : { - if (!IsAWordChar(sc.ch)) { - sc.ChangeState(SCE_ERLANG_RECORD); - sc.SetState(SCE_ERLANG_DEFAULT); - parse_state = STATE_NULL; - } - } break; - - case RECORD_QUOTED : { - if ('\'' == sc.ch && '\\' != sc.chPrev) { - sc.ChangeState(SCE_ERLANG_RECORD_QUOTED); - sc.ForwardSetState(SCE_ERLANG_DEFAULT); - parse_state = STATE_NULL; - } - } break; - - /* -------------------------------------------------------------- */ - /* Macros --------------------------------------------------------*/ - case MACRO_START : { - if ('\'' == sc.ch) { - parse_state = MACRO_QUOTED; - } else if (isalpha(sc.ch)) { - parse_state = MACRO_UNQUOTED; - } else { // error - sc.SetState(SCE_ERLANG_DEFAULT); - parse_state = STATE_NULL; - } - } break; - - case MACRO_UNQUOTED : { - if (!IsAWordChar(sc.ch)) { - sc.ChangeState(SCE_ERLANG_MACRO); - sc.SetState(SCE_ERLANG_DEFAULT); - parse_state = STATE_NULL; - } - } break; - - case MACRO_QUOTED : { - if ('\'' == sc.ch && '\\' != sc.chPrev) { - sc.ChangeState(SCE_ERLANG_MACRO_QUOTED); - sc.ForwardSetState(SCE_ERLANG_DEFAULT); - parse_state = STATE_NULL; - } - } break; - - /* -------------------------------------------------------------- */ - /* Numerics ------------------------------------------------------*/ - /* Simple integer */ - case NUMERAL_START : { - if (isdigit(sc.ch)) { - radix_digits *= 10; - radix_digits += sc.ch - '0'; // Assuming ASCII here! - } else if ('#' == sc.ch) { - if (2 > radix_digits || 36 < radix_digits) { - sc.SetState(SCE_ERLANG_DEFAULT); - parse_state = STATE_NULL; - } else { - parse_state = NUMERAL_BASE_VALUE; - } - } else if ('.' == sc.ch && isdigit(sc.chNext)) { - radix_digits = 0; - parse_state = NUMERAL_FLOAT; - } else if ('e' == sc.ch || 'E' == sc.ch) { - exponent_digits = 0; - parse_state = NUMERAL_EXPONENT; - } else { - radix_digits = 0; - sc.ChangeState(SCE_ERLANG_NUMBER); - sc.SetState(SCE_ERLANG_DEFAULT); - parse_state = STATE_NULL; - } - } break; - - /* Integer in other base than 10 (x#yyy) */ - case NUMERAL_BASE_VALUE : { - if (!is_radix(radix_digits,sc.ch)) { - radix_digits = 0; - - if (!isalnum(sc.ch)) - sc.ChangeState(SCE_ERLANG_NUMBER); - - sc.SetState(SCE_ERLANG_DEFAULT); - parse_state = STATE_NULL; - } - } break; - - /* Float (x.yyy) */ - case NUMERAL_FLOAT : { - if ('e' == sc.ch || 'E' == sc.ch) { - exponent_digits = 0; - parse_state = NUMERAL_EXPONENT; - } else if (!isdigit(sc.ch)) { - sc.ChangeState(SCE_ERLANG_NUMBER); - sc.SetState(SCE_ERLANG_DEFAULT); - parse_state = STATE_NULL; - } - } break; - - /* Exponent, either integer or float (xEyy, x.yyEzzz) */ - case NUMERAL_EXPONENT : { - if (('-' == sc.ch || '+' == sc.ch) - && (isdigit(sc.chNext))) { - sc.Forward(); - } else if (!isdigit(sc.ch)) { - if (0 < exponent_digits) - sc.ChangeState(SCE_ERLANG_NUMBER); - sc.SetState(SCE_ERLANG_DEFAULT); - parse_state = STATE_NULL; - } else { - ++exponent_digits; - } - } break; - - /* -------------------------------------------------------------- */ - /* Preprocessor --------------------------------------------------*/ - case PREPROCESSOR : { - if (!IsAWordChar(sc.ch)) { - - sc.GetCurrent(cur, sizeof(cur)); - if (erlangPreproc.InList(cur)) { - style = SCE_ERLANG_PREPROC; - } else if (erlangModulesAtt.InList(cur)) { - style = SCE_ERLANG_MODULES_ATT; - } - - sc.ChangeState(style); - sc.SetState(SCE_ERLANG_DEFAULT); - parse_state = STATE_NULL; - } - } break; - - } - - } /* End of : STATE_NULL != parse_state */ - else - { - switch (sc.state) { - case SCE_ERLANG_VARIABLE : { - if (!IsAWordChar(sc.ch)) - sc.SetState(SCE_ERLANG_DEFAULT); - } break; - case SCE_ERLANG_STRING : { - if (sc.ch == '\"' && sc.chPrev != '\\') - sc.ForwardSetState(SCE_ERLANG_DEFAULT); - } break; - case SCE_ERLANG_COMMENT : { - if (sc.atLineEnd) - sc.SetState(SCE_ERLANG_DEFAULT); - } break; - case SCE_ERLANG_CHARACTER : { - if (sc.chPrev == '\\') { - sc.ForwardSetState(SCE_ERLANG_DEFAULT); - } else if (sc.ch != '\\') { - sc.ForwardSetState(SCE_ERLANG_DEFAULT); - } - } break; - case SCE_ERLANG_OPERATOR : { - if (sc.chPrev == '.') { - if (sc.ch == '*' || sc.ch == '/' || sc.ch == '\\' - || sc.ch == '^') { - sc.ForwardSetState(SCE_ERLANG_DEFAULT); - } else if (sc.ch == '\'') { - sc.ForwardSetState(SCE_ERLANG_DEFAULT); - } else { - sc.SetState(SCE_ERLANG_DEFAULT); - } - } else { - sc.SetState(SCE_ERLANG_DEFAULT); - } - } break; - } - } - - if (sc.state == SCE_ERLANG_DEFAULT) { - bool no_new_state = false; - - switch (sc.ch) { - case '\"' : sc.SetState(SCE_ERLANG_STRING); break; - case '$' : sc.SetState(SCE_ERLANG_CHARACTER); break; - case '%' : { - parse_state = COMMENT; - sc.SetState(SCE_ERLANG_COMMENT); - } break; - case '#' : { - parse_state = RECORD_START; - sc.SetState(SCE_ERLANG_UNKNOWN); - } break; - case '?' : { - parse_state = MACRO_START; - sc.SetState(SCE_ERLANG_UNKNOWN); - } break; - case '\'' : { - parse_state = ATOM_QUOTED; - sc.SetState(SCE_ERLANG_UNKNOWN); - } break; - case '+' : - case '-' : { - if (IsADigit(sc.chNext)) { - parse_state = NUMERAL_START; - radix_digits = 0; - sc.SetState(SCE_ERLANG_UNKNOWN); - } else if (sc.ch != '+') { - parse_state = PREPROCESSOR; - sc.SetState(SCE_ERLANG_UNKNOWN); - } - } break; - default : no_new_state = true; - } - - if (no_new_state) { - if (isdigit(sc.ch)) { - parse_state = NUMERAL_START; - radix_digits = sc.ch - '0'; - sc.SetState(SCE_ERLANG_UNKNOWN); - } else if (isupper(sc.ch) || '_' == sc.ch) { - sc.SetState(SCE_ERLANG_VARIABLE); - } else if (isalpha(sc.ch)) { - parse_state = ATOM_UNQUOTED; - sc.SetState(SCE_ERLANG_UNKNOWN); - } else if (isoperator(static_cast(sc.ch)) - || sc.ch == '\\') { - sc.SetState(SCE_ERLANG_OPERATOR); - } - } - } - - } - sc.Complete(); -} - -static int ClassifyErlangFoldPoint( - Accessor &styler, - int styleNext, - Sci_Position keyword_start -) { - int lev = 0; - if (styler.Match(keyword_start,"case") - || ( - styler.Match(keyword_start,"fun") - && (SCE_ERLANG_FUNCTION_NAME != styleNext) - ) - || styler.Match(keyword_start,"if") - || styler.Match(keyword_start,"query") - || styler.Match(keyword_start,"receive") - ) { - ++lev; - } else if (styler.Match(keyword_start,"end")) { - --lev; - } - - return lev; -} - -static void FoldErlangDoc( - Sci_PositionU startPos, Sci_Position length, int initStyle, - WordList** /*keywordlists*/, Accessor &styler -) { - Sci_PositionU endPos = startPos + length; - Sci_Position currentLine = styler.GetLine(startPos); - int lev; - int previousLevel = styler.LevelAt(currentLine) & SC_FOLDLEVELNUMBERMASK; - int currentLevel = previousLevel; - int styleNext = styler.StyleAt(startPos); - int style = initStyle; - int stylePrev; - Sci_Position keyword_start = 0; - char ch; - char chNext = styler.SafeGetCharAt(startPos); - bool atEOL; - - for (Sci_PositionU i = startPos; i < endPos; i++) { - ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - - // Get styles - stylePrev = style; - style = styleNext; - styleNext = styler.StyleAt(i + 1); - atEOL = ((ch == '\r') && (chNext != '\n')) || (ch == '\n'); - - if (stylePrev != SCE_ERLANG_KEYWORD - && style == SCE_ERLANG_KEYWORD) { - keyword_start = i; - } - - // Fold on keywords - if (stylePrev == SCE_ERLANG_KEYWORD - && style != SCE_ERLANG_KEYWORD - && style != SCE_ERLANG_ATOM - ) { - currentLevel += ClassifyErlangFoldPoint(styler, - styleNext, - keyword_start); - } - - // Fold on comments - if (style == SCE_ERLANG_COMMENT - || style == SCE_ERLANG_COMMENT_MODULE - || style == SCE_ERLANG_COMMENT_FUNCTION) { - - if (ch == '%' && chNext == '{') { - currentLevel++; - } else if (ch == '%' && chNext == '}') { - currentLevel--; - } - } - - // Fold on braces - if (style == SCE_ERLANG_OPERATOR) { - if (ch == '{' || ch == '(' || ch == '[') { - currentLevel++; - } else if (ch == '}' || ch == ')' || ch == ']') { - currentLevel--; - } - } - - - if (atEOL) { - lev = previousLevel; - - if (currentLevel > previousLevel) - lev |= SC_FOLDLEVELHEADERFLAG; - - if (lev != styler.LevelAt(currentLine)) - styler.SetLevel(currentLine, lev); - - currentLine++; - previousLevel = currentLevel; - } - - } - - // Fill in the real level of the next line, keeping the current flags as they will be filled in later - styler.SetLevel(currentLine, - previousLevel - | (styler.LevelAt(currentLine) & ~SC_FOLDLEVELNUMBERMASK)); -} - -static const char * const erlangWordListDesc[] = { - "Erlang Reserved words", - "Erlang BIFs", - "Erlang Preprocessor", - "Erlang Module Attributes", - "Erlang Documentation", - "Erlang Documentation Macro", - 0 -}; - -LexerModule lmErlang( - SCLEX_ERLANG, - ColouriseErlangDoc, - "erlang", - FoldErlangDoc, - erlangWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexErrorList.cpp b/libs/qscintilla/scintilla/lexers/LexErrorList.cpp deleted file mode 100644 index b3dcd2a5..00000000 --- a/libs/qscintilla/scintilla/lexers/LexErrorList.cpp +++ /dev/null @@ -1,393 +0,0 @@ -// Scintilla source code edit control -/** @file LexErrorList.cxx - ** Lexer for error lists. Used for the output pane in SciTE. - **/ -// Copyright 1998-2001 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static bool strstart(const char *haystack, const char *needle) { - return strncmp(haystack, needle, strlen(needle)) == 0; -} - -static bool Is0To9(char ch) { - return (ch >= '0') && (ch <= '9'); -} - -static bool Is1To9(char ch) { - return (ch >= '1') && (ch <= '9'); -} - -static bool IsAlphabetic(int ch) { - return IsASCII(ch) && isalpha(ch); -} - -static inline bool AtEOL(Accessor &styler, Sci_PositionU i) { - return (styler[i] == '\n') || - ((styler[i] == '\r') && (styler.SafeGetCharAt(i + 1) != '\n')); -} - -static int RecogniseErrorListLine(const char *lineBuffer, Sci_PositionU lengthLine, Sci_Position &startValue) { - if (lineBuffer[0] == '>') { - // Command or return status - return SCE_ERR_CMD; - } else if (lineBuffer[0] == '<') { - // Diff removal. - return SCE_ERR_DIFF_DELETION; - } else if (lineBuffer[0] == '!') { - return SCE_ERR_DIFF_CHANGED; - } else if (lineBuffer[0] == '+') { - if (strstart(lineBuffer, "+++ ")) { - return SCE_ERR_DIFF_MESSAGE; - } else { - return SCE_ERR_DIFF_ADDITION; - } - } else if (lineBuffer[0] == '-') { - if (strstart(lineBuffer, "--- ")) { - return SCE_ERR_DIFF_MESSAGE; - } else { - return SCE_ERR_DIFF_DELETION; - } - } else if (strstart(lineBuffer, "cf90-")) { - // Absoft Pro Fortran 90/95 v8.2 error and/or warning message - return SCE_ERR_ABSF; - } else if (strstart(lineBuffer, "fortcom:")) { - // Intel Fortran Compiler v8.0 error/warning message - return SCE_ERR_IFORT; - } else if (strstr(lineBuffer, "File \"") && strstr(lineBuffer, ", line ")) { - return SCE_ERR_PYTHON; - } else if (strstr(lineBuffer, " in ") && strstr(lineBuffer, " on line ")) { - return SCE_ERR_PHP; - } else if ((strstart(lineBuffer, "Error ") || - strstart(lineBuffer, "Warning ")) && - strstr(lineBuffer, " at (") && - strstr(lineBuffer, ") : ") && - (strstr(lineBuffer, " at (") < strstr(lineBuffer, ") : "))) { - // Intel Fortran Compiler error/warning message - return SCE_ERR_IFC; - } else if (strstart(lineBuffer, "Error ")) { - // Borland error message - return SCE_ERR_BORLAND; - } else if (strstart(lineBuffer, "Warning ")) { - // Borland warning message - return SCE_ERR_BORLAND; - } else if (strstr(lineBuffer, "at line ") && - (strstr(lineBuffer, "at line ") < (lineBuffer + lengthLine)) && - strstr(lineBuffer, "file ") && - (strstr(lineBuffer, "file ") < (lineBuffer + lengthLine))) { - // Lua 4 error message - return SCE_ERR_LUA; - } else if (strstr(lineBuffer, " at ") && - (strstr(lineBuffer, " at ") < (lineBuffer + lengthLine)) && - strstr(lineBuffer, " line ") && - (strstr(lineBuffer, " line ") < (lineBuffer + lengthLine)) && - (strstr(lineBuffer, " at ") + 4 < (strstr(lineBuffer, " line ")))) { - // perl error message: - // at line - return SCE_ERR_PERL; - } else if ((lengthLine >= 6) && - (memcmp(lineBuffer, " at ", 6) == 0) && - strstr(lineBuffer, ":line ")) { - // A .NET traceback - return SCE_ERR_NET; - } else if (strstart(lineBuffer, "Line ") && - strstr(lineBuffer, ", file ")) { - // Essential Lahey Fortran error message - return SCE_ERR_ELF; - } else if (strstart(lineBuffer, "line ") && - strstr(lineBuffer, " column ")) { - // HTML tidy style: line 42 column 1 - return SCE_ERR_TIDY; - } else if (strstart(lineBuffer, "\tat ") && - strstr(lineBuffer, "(") && - strstr(lineBuffer, ".java:")) { - // Java stack back trace - return SCE_ERR_JAVA_STACK; - } else if (strstart(lineBuffer, "In file included from ") || - strstart(lineBuffer, " from ")) { - // GCC showing include path to following error - return SCE_ERR_GCC_INCLUDED_FROM; - } else if (strstr(lineBuffer, "warning LNK")) { - // Microsoft linker warning: - // { : } warning LNK9999 - return SCE_ERR_MS; - } else { - // Look for one of the following formats: - // GCC: :: - // Microsoft: () : - // Common: (): warning|error|note|remark|catastrophic|fatal - // Common: () warning|error|note|remark|catastrophic|fatal - // Microsoft: (,) - // CTags: \t\t - // Lua 5 traceback: \t:: - // Lua 5.1: : :: - const bool initialTab = (lineBuffer[0] == '\t'); - bool initialColonPart = false; - bool canBeCtags = !initialTab; // For ctags must have an identifier with no spaces then a tab - enum { stInitial, - stGccStart, stGccDigit, stGccColumn, stGcc, - stMsStart, stMsDigit, stMsBracket, stMsVc, stMsDigitComma, stMsDotNet, - stCtagsStart, stCtagsFile, stCtagsStartString, stCtagsStringDollar, stCtags, - stUnrecognized - } state = stInitial; - for (Sci_PositionU i = 0; i < lengthLine; i++) { - const char ch = lineBuffer[i]; - char chNext = ' '; - if ((i + 1) < lengthLine) - chNext = lineBuffer[i + 1]; - if (state == stInitial) { - if (ch == ':') { - // May be GCC, or might be Lua 5 (Lua traceback same but with tab prefix) - if ((chNext != '\\') && (chNext != '/') && (chNext != ' ')) { - // This check is not completely accurate as may be on - // GTK+ with a file name that includes ':'. - state = stGccStart; - } else if (chNext == ' ') { // indicates a Lua 5.1 error message - initialColonPart = true; - } - } else if ((ch == '(') && Is1To9(chNext) && (!initialTab)) { - // May be Microsoft - // Check against '0' often removes phone numbers - state = stMsStart; - } else if ((ch == '\t') && canBeCtags) { - // May be CTags - state = stCtagsStart; - } else if (ch == ' ') { - canBeCtags = false; - } - } else if (state == stGccStart) { // : - state = Is0To9(ch) ? stGccDigit : stUnrecognized; - } else if (state == stGccDigit) { // : - if (ch == ':') { - state = stGccColumn; // :9.*: is GCC - startValue = i + 1; - } else if (!Is0To9(ch)) { - state = stUnrecognized; - } - } else if (state == stGccColumn) { // :: - if (!Is0To9(ch)) { - state = stGcc; - if (ch == ':') - startValue = i + 1; - break; - } - } else if (state == stMsStart) { // ( - state = Is0To9(ch) ? stMsDigit : stUnrecognized; - } else if (state == stMsDigit) { // ( - if (ch == ',') { - state = stMsDigitComma; - } else if (ch == ')') { - state = stMsBracket; - } else if ((ch != ' ') && !Is0To9(ch)) { - state = stUnrecognized; - } - } else if (state == stMsBracket) { // () - if ((ch == ' ') && (chNext == ':')) { - state = stMsVc; - } else if ((ch == ':' && chNext == ' ') || (ch == ' ')) { - // Possibly Delphi.. don't test against chNext as it's one of the strings below. - char word[512]; - Sci_PositionU j, chPos; - unsigned numstep; - chPos = 0; - if (ch == ' ') - numstep = 1; // ch was ' ', handle as if it's a delphi errorline, only add 1 to i. - else - numstep = 2; // otherwise add 2. - for (j = i + numstep; j < lengthLine && IsAlphabetic(lineBuffer[j]) && chPos < sizeof(word) - 1; j++) - word[chPos++] = lineBuffer[j]; - word[chPos] = 0; - if (!CompareCaseInsensitive(word, "error") || !CompareCaseInsensitive(word, "warning") || - !CompareCaseInsensitive(word, "fatal") || !CompareCaseInsensitive(word, "catastrophic") || - !CompareCaseInsensitive(word, "note") || !CompareCaseInsensitive(word, "remark")) { - state = stMsVc; - } else { - state = stUnrecognized; - } - } else { - state = stUnrecognized; - } - } else if (state == stMsDigitComma) { // (, - if (ch == ')') { - state = stMsDotNet; - break; - } else if ((ch != ' ') && !Is0To9(ch)) { - state = stUnrecognized; - } - } else if (state == stCtagsStart) { - if (ch == '\t') { - state = stCtagsFile; - } - } else if (state == stCtagsFile) { - if ((lineBuffer[i - 1] == '\t') && - ((ch == '/' && chNext == '^') || Is0To9(ch))) { - state = stCtags; - break; - } else if ((ch == '/') && (chNext == '^')) { - state = stCtagsStartString; - } - } else if ((state == stCtagsStartString) && ((lineBuffer[i] == '$') && (lineBuffer[i + 1] == '/'))) { - state = stCtagsStringDollar; - break; - } - } - if (state == stGcc) { - return initialColonPart ? SCE_ERR_LUA : SCE_ERR_GCC; - } else if ((state == stMsVc) || (state == stMsDotNet)) { - return SCE_ERR_MS; - } else if ((state == stCtagsStringDollar) || (state == stCtags)) { - return SCE_ERR_CTAG; - } else if (initialColonPart && strstr(lineBuffer, ": warning C")) { - // Microsoft warning without line number - // : warning C9999 - return SCE_ERR_MS; - } else { - return SCE_ERR_DEFAULT; - } - } -} - -#define CSI "\033[" - -namespace { - -bool SequenceEnd(int ch) { - return (ch == 0) || ((ch >= '@') && (ch <= '~')); -} - -int StyleFromSequence(const char *seq) { - int bold = 0; - int colour = 0; - while (!SequenceEnd(*seq)) { - if (Is0To9(*seq)) { - int base = *seq - '0'; - if (Is0To9(seq[1])) { - base = base * 10; - base += seq[1] - '0'; - seq++; - } - if (base == 0) { - colour = 0; - bold = 0; - } - else if (base == 1) { - bold = 1; - } - else if (base >= 30 && base <= 37) { - colour = base - 30; - } - } - seq++; - } - return SCE_ERR_ES_BLACK + bold * 8 + colour; -} - -} - -static void ColouriseErrorListLine( - char *lineBuffer, - Sci_PositionU lengthLine, - Sci_PositionU endPos, - Accessor &styler, - bool valueSeparate, - bool escapeSequences) { - Sci_Position startValue = -1; - int style = RecogniseErrorListLine(lineBuffer, lengthLine, startValue); - if (escapeSequences && strstr(lineBuffer, CSI)) { - const Sci_Position startPos = endPos - lengthLine; - const char *linePortion = lineBuffer; - Sci_Position startPortion = startPos; - int portionStyle = style; - while (const char *startSeq = strstr(linePortion, CSI)) { - if (startSeq > linePortion) { - styler.ColourTo(startPortion + static_cast(startSeq - linePortion), portionStyle); - } - const char *endSeq = startSeq + 2; - while (!SequenceEnd(*endSeq)) - endSeq++; - const Sci_Position endSeqPosition = startPortion + static_cast(endSeq - linePortion) + 1; - switch (*endSeq) { - case 0: - styler.ColourTo(endPos, SCE_ERR_ESCSEQ_UNKNOWN); - return; - case 'm': // Colour command - styler.ColourTo(endSeqPosition, SCE_ERR_ESCSEQ); - portionStyle = StyleFromSequence(startSeq+2); - break; - case 'K': // Erase to end of line -> ignore - styler.ColourTo(endSeqPosition, SCE_ERR_ESCSEQ); - break; - default: - styler.ColourTo(endSeqPosition, SCE_ERR_ESCSEQ_UNKNOWN); - portionStyle = style; - } - startPortion = endSeqPosition; - linePortion = endSeq + 1; - } - styler.ColourTo(endPos, portionStyle); - } else { - if (valueSeparate && (startValue >= 0)) { - styler.ColourTo(endPos - (lengthLine - startValue), style); - styler.ColourTo(endPos, SCE_ERR_VALUE); - } else { - styler.ColourTo(endPos, style); - } - } -} - -static void ColouriseErrorListDoc(Sci_PositionU startPos, Sci_Position length, int, WordList *[], Accessor &styler) { - char lineBuffer[10000]; - styler.StartAt(startPos); - styler.StartSegment(startPos); - Sci_PositionU linePos = 0; - - // property lexer.errorlist.value.separate - // For lines in the output pane that are matches from Find in Files or GCC-style - // diagnostics, style the path and line number separately from the rest of the - // line with style 21 used for the rest of the line. - // This allows matched text to be more easily distinguished from its location. - const bool valueSeparate = styler.GetPropertyInt("lexer.errorlist.value.separate", 0) != 0; - - // property lexer.errorlist.escape.sequences - // Set to 1 to interpret escape sequences. - const bool escapeSequences = styler.GetPropertyInt("lexer.errorlist.escape.sequences") != 0; - - for (Sci_PositionU i = startPos; i < startPos + length; i++) { - lineBuffer[linePos++] = styler[i]; - if (AtEOL(styler, i) || (linePos >= sizeof(lineBuffer) - 1)) { - // End of line (or of line buffer) met, colourise it - lineBuffer[linePos] = '\0'; - ColouriseErrorListLine(lineBuffer, linePos, i, styler, valueSeparate, escapeSequences); - linePos = 0; - } - } - if (linePos > 0) { // Last line does not have ending characters - lineBuffer[linePos] = '\0'; - ColouriseErrorListLine(lineBuffer, linePos, startPos + length - 1, styler, valueSeparate, escapeSequences); - } -} - -static const char *const emptyWordListDesc[] = { - 0 -}; - -LexerModule lmErrorList(SCLEX_ERRORLIST, ColouriseErrorListDoc, "errorlist", 0, emptyWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexFlagship.cpp b/libs/qscintilla/scintilla/lexers/LexFlagship.cpp deleted file mode 100644 index b73c1aa1..00000000 --- a/libs/qscintilla/scintilla/lexers/LexFlagship.cpp +++ /dev/null @@ -1,352 +0,0 @@ -// Scintilla source code edit control -/** @file LexFlagShip.cxx - ** Lexer for Harbour and FlagShip. - ** (Syntactically compatible to other xBase dialects, like Clipper, dBase, Clip, FoxPro etc.) - **/ -// Copyright 2005 by Randy Butler -// Copyright 2010 by Xavi (Harbour) -// Copyright 1998-2003 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -// Extended to accept accented characters -static inline bool IsAWordChar(int ch) -{ - return ch >= 0x80 || - (isalnum(ch) || ch == '_'); -} - -static void ColouriseFlagShipDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, - WordList *keywordlists[], Accessor &styler) -{ - - WordList &keywords = *keywordlists[0]; - WordList &keywords2 = *keywordlists[1]; - WordList &keywords3 = *keywordlists[2]; - WordList &keywords4 = *keywordlists[3]; - WordList &keywords5 = *keywordlists[4]; - - // property lexer.flagship.styling.within.preprocessor - // For Harbour code, determines whether all preprocessor code is styled in the preprocessor style (0) or only from the - // initial # to the end of the command word(1, the default). It also determines how to present text, dump, and disabled code. - bool stylingWithinPreprocessor = styler.GetPropertyInt("lexer.flagship.styling.within.preprocessor", 1) != 0; - - CharacterSet setDoxygen(CharacterSet::setAlpha, "$@\\&<>#{}[]"); - - int visibleChars = 0; - int closeStringChar = 0; - int styleBeforeDCKeyword = SCE_FS_DEFAULT; - bool bEnableCode = initStyle < SCE_FS_DISABLEDCODE; - - StyleContext sc(startPos, length, initStyle, styler); - - for (; sc.More(); sc.Forward()) { - - // Determine if the current state should terminate. - switch (sc.state) { - case SCE_FS_OPERATOR: - case SCE_FS_OPERATOR_C: - case SCE_FS_WORDOPERATOR: - sc.SetState(bEnableCode ? SCE_FS_DEFAULT : SCE_FS_DEFAULT_C); - break; - case SCE_FS_IDENTIFIER: - case SCE_FS_IDENTIFIER_C: - if (!IsAWordChar(sc.ch)) { - char s[64]; - sc.GetCurrentLowered(s, sizeof(s)); - if (keywords.InList(s)) { - sc.ChangeState(bEnableCode ? SCE_FS_KEYWORD : SCE_FS_KEYWORD_C); - } else if (keywords2.InList(s)) { - sc.ChangeState(bEnableCode ? SCE_FS_KEYWORD2 : SCE_FS_KEYWORD2_C); - } else if (bEnableCode && keywords3.InList(s)) { - sc.ChangeState(SCE_FS_KEYWORD3); - } else if (bEnableCode && keywords4.InList(s)) { - sc.ChangeState(SCE_FS_KEYWORD4); - }// Else, it is really an identifier... - sc.SetState(bEnableCode ? SCE_FS_DEFAULT : SCE_FS_DEFAULT_C); - } - break; - case SCE_FS_NUMBER: - if (!IsAWordChar(sc.ch) && !(sc.ch == '.' && IsADigit(sc.chNext))) { - sc.SetState(SCE_FS_DEFAULT); - } - break; - case SCE_FS_NUMBER_C: - if (!IsAWordChar(sc.ch) && sc.ch != '.') { - sc.SetState(SCE_FS_DEFAULT_C); - } - break; - case SCE_FS_CONSTANT: - if (!IsAWordChar(sc.ch)) { - sc.SetState(SCE_FS_DEFAULT); - } - break; - case SCE_FS_STRING: - case SCE_FS_STRING_C: - if (sc.ch == closeStringChar) { - sc.ForwardSetState(bEnableCode ? SCE_FS_DEFAULT : SCE_FS_DEFAULT_C); - } else if (sc.atLineEnd) { - sc.ChangeState(bEnableCode ? SCE_FS_STRINGEOL : SCE_FS_STRINGEOL_C); - } - break; - case SCE_FS_STRINGEOL: - case SCE_FS_STRINGEOL_C: - if (sc.atLineStart) { - sc.SetState(bEnableCode ? SCE_FS_DEFAULT : SCE_FS_DEFAULT_C); - } - break; - case SCE_FS_COMMENTDOC: - case SCE_FS_COMMENTDOC_C: - if (sc.Match('*', '/')) { - sc.Forward(); - sc.ForwardSetState(bEnableCode ? SCE_FS_DEFAULT : SCE_FS_DEFAULT_C); - } else if (sc.ch == '@' || sc.ch == '\\') { // JavaDoc and Doxygen support - // Verify that we have the conditions to mark a comment-doc-keyword - if ((IsASpace(sc.chPrev) || sc.chPrev == '*') && (!IsASpace(sc.chNext))) { - styleBeforeDCKeyword = bEnableCode ? SCE_FS_COMMENTDOC : SCE_FS_COMMENTDOC_C; - sc.SetState(SCE_FS_COMMENTDOCKEYWORD); - } - } - break; - case SCE_FS_COMMENT: - case SCE_FS_COMMENTLINE: - if (sc.atLineStart) { - sc.SetState(SCE_FS_DEFAULT); - } - break; - case SCE_FS_COMMENTLINEDOC: - case SCE_FS_COMMENTLINEDOC_C: - if (sc.atLineStart) { - sc.SetState(bEnableCode ? SCE_FS_DEFAULT : SCE_FS_DEFAULT_C); - } else if (sc.ch == '@' || sc.ch == '\\') { // JavaDoc and Doxygen support - // Verify that we have the conditions to mark a comment-doc-keyword - if ((IsASpace(sc.chPrev) || sc.chPrev == '/' || sc.chPrev == '!') && (!IsASpace(sc.chNext))) { - styleBeforeDCKeyword = bEnableCode ? SCE_FS_COMMENTLINEDOC : SCE_FS_COMMENTLINEDOC_C; - sc.SetState(SCE_FS_COMMENTDOCKEYWORD); - } - } - break; - case SCE_FS_COMMENTDOCKEYWORD: - if ((styleBeforeDCKeyword == SCE_FS_COMMENTDOC || styleBeforeDCKeyword == SCE_FS_COMMENTDOC_C) && - sc.Match('*', '/')) { - sc.ChangeState(SCE_FS_COMMENTDOCKEYWORDERROR); - sc.Forward(); - sc.ForwardSetState(bEnableCode ? SCE_FS_DEFAULT : SCE_FS_DEFAULT_C); - } else if (!setDoxygen.Contains(sc.ch)) { - char s[64]; - sc.GetCurrentLowered(s, sizeof(s)); - if (!IsASpace(sc.ch) || !keywords5.InList(s + 1)) { - sc.ChangeState(SCE_FS_COMMENTDOCKEYWORDERROR); - } - sc.SetState(styleBeforeDCKeyword); - } - break; - case SCE_FS_PREPROCESSOR: - case SCE_FS_PREPROCESSOR_C: - if (sc.atLineEnd) { - if (!(sc.chPrev == ';' || sc.GetRelative(-2) == ';')) { - sc.SetState(bEnableCode ? SCE_FS_DEFAULT : SCE_FS_DEFAULT_C); - } - } else if (stylingWithinPreprocessor) { - if (IsASpaceOrTab(sc.ch)) { - sc.SetState(bEnableCode ? SCE_FS_DEFAULT : SCE_FS_DEFAULT_C); - } - } else if (sc.Match('/', '*') || sc.Match('/', '/') || sc.Match('&', '&')) { - sc.SetState(bEnableCode ? SCE_FS_DEFAULT : SCE_FS_DEFAULT_C); - } - break; - case SCE_FS_DISABLEDCODE: - if (sc.ch == '#' && visibleChars == 0) { - sc.SetState(bEnableCode ? SCE_FS_PREPROCESSOR : SCE_FS_PREPROCESSOR_C); - do { // Skip whitespace between # and preprocessor word - sc.Forward(); - } while (IsASpaceOrTab(sc.ch) && sc.More()); - if (sc.MatchIgnoreCase("pragma")) { - sc.Forward(6); - do { // Skip more whitespace until keyword - sc.Forward(); - } while (IsASpaceOrTab(sc.ch) && sc.More()); - if (sc.MatchIgnoreCase("enddump") || sc.MatchIgnoreCase("__endtext")) { - bEnableCode = true; - sc.SetState(SCE_FS_DISABLEDCODE); - sc.Forward(sc.ch == '_' ? 8 : 6); - sc.ForwardSetState(SCE_FS_DEFAULT); - } else { - sc.ChangeState(SCE_FS_DISABLEDCODE); - } - } else { - sc.ChangeState(SCE_FS_DISABLEDCODE); - } - } - break; - case SCE_FS_DATE: - if (sc.ch == '}') { - sc.ForwardSetState(SCE_FS_DEFAULT); - } else if (sc.atLineEnd) { - sc.ChangeState(SCE_FS_STRINGEOL); - } - } - - // Determine if a new state should be entered. - if (sc.state == SCE_FS_DEFAULT || sc.state == SCE_FS_DEFAULT_C) { - if (bEnableCode && - (sc.MatchIgnoreCase(".and.") || sc.MatchIgnoreCase(".not."))) { - sc.SetState(SCE_FS_WORDOPERATOR); - sc.Forward(4); - } else if (bEnableCode && sc.MatchIgnoreCase(".or.")) { - sc.SetState(SCE_FS_WORDOPERATOR); - sc.Forward(3); - } else if (bEnableCode && - (sc.MatchIgnoreCase(".t.") || sc.MatchIgnoreCase(".f.") || - (!IsAWordChar(sc.GetRelative(3)) && sc.MatchIgnoreCase("nil")))) { - sc.SetState(SCE_FS_CONSTANT); - sc.Forward(2); - } else if (sc.Match('/', '*')) { - sc.SetState(bEnableCode ? SCE_FS_COMMENTDOC : SCE_FS_COMMENTDOC_C); - sc.Forward(); - } else if (bEnableCode && sc.Match('&', '&')) { - sc.SetState(SCE_FS_COMMENTLINE); - sc.Forward(); - } else if (sc.Match('/', '/')) { - sc.SetState(bEnableCode ? SCE_FS_COMMENTLINEDOC : SCE_FS_COMMENTLINEDOC_C); - sc.Forward(); - } else if (bEnableCode && sc.ch == '*' && visibleChars == 0) { - sc.SetState(SCE_FS_COMMENT); - } else if (sc.ch == '\"' || sc.ch == '\'') { - sc.SetState(bEnableCode ? SCE_FS_STRING : SCE_FS_STRING_C); - closeStringChar = sc.ch; - } else if (closeStringChar == '>' && sc.ch == '<') { - sc.SetState(bEnableCode ? SCE_FS_STRING : SCE_FS_STRING_C); - } else if (sc.ch == '#' && visibleChars == 0) { - sc.SetState(bEnableCode ? SCE_FS_PREPROCESSOR : SCE_FS_PREPROCESSOR_C); - do { // Skip whitespace between # and preprocessor word - sc.Forward(); - } while (IsASpaceOrTab(sc.ch) && sc.More()); - if (sc.atLineEnd) { - sc.SetState(bEnableCode ? SCE_FS_DEFAULT : SCE_FS_DEFAULT_C); - } else if (sc.MatchIgnoreCase("include")) { - if (stylingWithinPreprocessor) { - closeStringChar = '>'; - } - } else if (sc.MatchIgnoreCase("pragma")) { - sc.Forward(6); - do { // Skip more whitespace until keyword - sc.Forward(); - } while (IsASpaceOrTab(sc.ch) && sc.More()); - if (sc.MatchIgnoreCase("begindump") || sc.MatchIgnoreCase("__cstream")) { - bEnableCode = false; - if (stylingWithinPreprocessor) { - sc.SetState(SCE_FS_DISABLEDCODE); - sc.Forward(8); - sc.ForwardSetState(SCE_FS_DEFAULT_C); - } else { - sc.SetState(SCE_FS_DISABLEDCODE); - } - } else if (sc.MatchIgnoreCase("enddump") || sc.MatchIgnoreCase("__endtext")) { - bEnableCode = true; - sc.SetState(SCE_FS_DISABLEDCODE); - sc.Forward(sc.ch == '_' ? 8 : 6); - sc.ForwardSetState(SCE_FS_DEFAULT); - } - } - } else if (bEnableCode && sc.ch == '{') { - Sci_Position p = 0; - int chSeek; - Sci_PositionU endPos(startPos + length); - do { // Skip whitespace - chSeek = sc.GetRelative(++p); - } while (IsASpaceOrTab(chSeek) && (sc.currentPos + p < endPos)); - if (chSeek == '^') { - sc.SetState(SCE_FS_DATE); - } else { - sc.SetState(SCE_FS_OPERATOR); - } - } else if (IsADigit(sc.ch) || (sc.ch == '.' && IsADigit(sc.chNext))) { - sc.SetState(bEnableCode ? SCE_FS_NUMBER : SCE_FS_NUMBER_C); - } else if (IsAWordChar(sc.ch)) { - sc.SetState(bEnableCode ? SCE_FS_IDENTIFIER : SCE_FS_IDENTIFIER_C); - } else if (isoperator(static_cast(sc.ch)) || (bEnableCode && sc.ch == '@')) { - sc.SetState(bEnableCode ? SCE_FS_OPERATOR : SCE_FS_OPERATOR_C); - } - } - - if (sc.atLineEnd) { - visibleChars = 0; - closeStringChar = 0; - } - if (!IsASpace(sc.ch)) { - visibleChars++; - } - } - sc.Complete(); -} - -static void FoldFlagShipDoc(Sci_PositionU startPos, Sci_Position length, int, - WordList *[], Accessor &styler) -{ - - Sci_Position endPos = startPos + length; - - // Backtrack to previous line in case need to fix its fold status - Sci_Position lineCurrent = styler.GetLine(startPos); - if (startPos > 0 && lineCurrent > 0) { - lineCurrent--; - startPos = styler.LineStart(lineCurrent); - } - int spaceFlags = 0; - int indentCurrent = styler.IndentAmount(lineCurrent, &spaceFlags); - char chNext = styler[startPos]; - for (Sci_Position i = startPos; i < endPos; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - - if ((ch == '\r' && chNext != '\n') || (ch == '\n') || (i == endPos-1)) { - int lev = indentCurrent; - int indentNext = styler.IndentAmount(lineCurrent + 1, &spaceFlags); - if (!(indentCurrent & SC_FOLDLEVELWHITEFLAG)) { - if ((indentCurrent & SC_FOLDLEVELNUMBERMASK) < (indentNext & SC_FOLDLEVELNUMBERMASK)) { - lev |= SC_FOLDLEVELHEADERFLAG; - } else if (indentNext & SC_FOLDLEVELWHITEFLAG) { - int spaceFlags2 = 0; - int indentNext2 = styler.IndentAmount(lineCurrent + 2, &spaceFlags2); - if ((indentCurrent & SC_FOLDLEVELNUMBERMASK) < (indentNext2 & SC_FOLDLEVELNUMBERMASK)) { - lev |= SC_FOLDLEVELHEADERFLAG; - } - } - } - indentCurrent = indentNext; - styler.SetLevel(lineCurrent, lev); - lineCurrent++; - } - } -} - -static const char * const FSWordListDesc[] = { - "Keywords Commands", - "Std Library Functions", - "Procedure, return, exit", - "Class (oop)", - "Doxygen keywords", - 0 -}; - -LexerModule lmFlagShip(SCLEX_FLAGSHIP, ColouriseFlagShipDoc, "flagship", FoldFlagShipDoc, FSWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexForth.cpp b/libs/qscintilla/scintilla/lexers/LexForth.cpp deleted file mode 100644 index 80842097..00000000 --- a/libs/qscintilla/scintilla/lexers/LexForth.cpp +++ /dev/null @@ -1,168 +0,0 @@ -// Scintilla source code edit control -/** @file LexForth.cxx - ** Lexer for FORTH - **/ -// Copyright 1998-2003 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static inline bool IsAWordStart(int ch) { - return (ch < 0x80) && (isalnum(ch) || ch == '_' || ch == '.'); -} - -static inline bool IsANumChar(int ch) { - return (ch < 0x80) && (isxdigit(ch) || ch == '.' || ch == 'e' || ch == 'E' ); -} - -static inline bool IsASpaceChar(int ch) { - return (ch < 0x80) && isspace(ch); -} - -static void ColouriseForthDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, WordList *keywordLists[], - Accessor &styler) { - - WordList &control = *keywordLists[0]; - WordList &keyword = *keywordLists[1]; - WordList &defword = *keywordLists[2]; - WordList &preword1 = *keywordLists[3]; - WordList &preword2 = *keywordLists[4]; - WordList &strings = *keywordLists[5]; - - StyleContext sc(startPos, length, initStyle, styler); - - for (; sc.More(); sc.Forward()) - { - // Determine if the current state should terminate. - if (sc.state == SCE_FORTH_COMMENT) { - if (sc.atLineEnd) { - sc.SetState(SCE_FORTH_DEFAULT); - } - }else if (sc.state == SCE_FORTH_COMMENT_ML) { - if (sc.ch == ')') { - sc.ForwardSetState(SCE_FORTH_DEFAULT); - } - }else if (sc.state == SCE_FORTH_IDENTIFIER || sc.state == SCE_FORTH_NUMBER) { - // handle numbers here too, because what we thought was a number might - // turn out to be a keyword e.g. 2DUP - if (IsASpaceChar(sc.ch) ) { - char s[100]; - sc.GetCurrentLowered(s, sizeof(s)); - int newState = sc.state == SCE_FORTH_NUMBER ? SCE_FORTH_NUMBER : SCE_FORTH_DEFAULT; - if (control.InList(s)) { - sc.ChangeState(SCE_FORTH_CONTROL); - } else if (keyword.InList(s)) { - sc.ChangeState(SCE_FORTH_KEYWORD); - } else if (defword.InList(s)) { - sc.ChangeState(SCE_FORTH_DEFWORD); - } else if (preword1.InList(s)) { - sc.ChangeState(SCE_FORTH_PREWORD1); - } else if (preword2.InList(s)) { - sc.ChangeState(SCE_FORTH_PREWORD2); - } else if (strings.InList(s)) { - sc.ChangeState(SCE_FORTH_STRING); - newState = SCE_FORTH_STRING; - } - sc.SetState(newState); - } - if (sc.state == SCE_FORTH_NUMBER) { - if (IsASpaceChar(sc.ch)) { - sc.SetState(SCE_FORTH_DEFAULT); - } else if (!IsANumChar(sc.ch)) { - sc.ChangeState(SCE_FORTH_IDENTIFIER); - } - } - }else if (sc.state == SCE_FORTH_STRING) { - if (sc.ch == '\"') { - sc.ForwardSetState(SCE_FORTH_DEFAULT); - } - }else if (sc.state == SCE_FORTH_LOCALE) { - if (sc.ch == '}') { - sc.ForwardSetState(SCE_FORTH_DEFAULT); - } - }else if (sc.state == SCE_FORTH_DEFWORD) { - if (IsASpaceChar(sc.ch)) { - sc.SetState(SCE_FORTH_DEFAULT); - } - } - - // Determine if a new state should be entered. - if (sc.state == SCE_FORTH_DEFAULT) { - if (sc.ch == '\\'){ - sc.SetState(SCE_FORTH_COMMENT); - } else if (sc.ch == '(' && - (sc.atLineStart || IsASpaceChar(sc.chPrev)) && - (sc.atLineEnd || IsASpaceChar(sc.chNext))) { - sc.SetState(SCE_FORTH_COMMENT_ML); - } else if ( (sc.ch == '$' && (IsASCII(sc.chNext) && isxdigit(sc.chNext))) ) { - // number starting with $ is a hex number - sc.SetState(SCE_FORTH_NUMBER); - while(sc.More() && IsASCII(sc.chNext) && isxdigit(sc.chNext)) - sc.Forward(); - } else if ( (sc.ch == '%' && (IsASCII(sc.chNext) && (sc.chNext == '0' || sc.chNext == '1'))) ) { - // number starting with % is binary - sc.SetState(SCE_FORTH_NUMBER); - while(sc.More() && IsASCII(sc.chNext) && (sc.chNext == '0' || sc.chNext == '1')) - sc.Forward(); - } else if ( IsASCII(sc.ch) && - (isxdigit(sc.ch) || ((sc.ch == '.' || sc.ch == '-') && IsASCII(sc.chNext) && isxdigit(sc.chNext)) ) - ){ - sc.SetState(SCE_FORTH_NUMBER); - } else if (IsAWordStart(sc.ch)) { - sc.SetState(SCE_FORTH_IDENTIFIER); - } else if (sc.ch == '{') { - sc.SetState(SCE_FORTH_LOCALE); - } else if (sc.ch == ':' && IsASCII(sc.chNext) && isspace(sc.chNext)) { - // highlight word definitions e.g. : GCD ( n n -- n ) ..... ; - // ^ ^^^ - sc.SetState(SCE_FORTH_DEFWORD); - while(sc.More() && IsASCII(sc.chNext) && isspace(sc.chNext)) - sc.Forward(); - } else if (sc.ch == ';' && - (sc.atLineStart || IsASpaceChar(sc.chPrev)) && - (sc.atLineEnd || IsASpaceChar(sc.chNext)) ) { - // mark the ';' that ends a word - sc.SetState(SCE_FORTH_DEFWORD); - sc.ForwardSetState(SCE_FORTH_DEFAULT); - } - } - - } - sc.Complete(); -} - -static void FoldForthDoc(Sci_PositionU, Sci_Position, int, WordList *[], - Accessor &) { -} - -static const char * const forthWordLists[] = { - "control keywords", - "keywords", - "definition words", - "prewords with one argument", - "prewords with two arguments", - "string definition keywords", - 0, - }; - -LexerModule lmForth(SCLEX_FORTH, ColouriseForthDoc, "forth", FoldForthDoc, forthWordLists); - - diff --git a/libs/qscintilla/scintilla/lexers/LexFortran.cpp b/libs/qscintilla/scintilla/lexers/LexFortran.cpp deleted file mode 100644 index 28298b3e..00000000 --- a/libs/qscintilla/scintilla/lexers/LexFortran.cpp +++ /dev/null @@ -1,721 +0,0 @@ -// Scintilla source code edit control -/** @file LexFortran.cxx - ** Lexer for Fortran. - ** Written by Chuan-jian Shen, Last changed Sep. 2003 - **/ -// Copyright 1998-2001 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. -/***************************************/ -#include -#include -#include -#include -#include -#include -/***************************************/ -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" -/***************************************/ - -using namespace Scintilla; - -/***********************************************/ -static inline bool IsAWordChar(const int ch) { - return (ch < 0x80) && (isalnum(ch) || ch == '_' || ch == '%'); -} -/**********************************************/ -static inline bool IsAWordStart(const int ch) { - return (ch < 0x80) && (isalnum(ch)); -} -/***************************************/ -static inline bool IsABlank(unsigned int ch) { - return (ch == ' ') || (ch == 0x09) || (ch == 0x0b) ; -} -/***************************************/ -static inline bool IsALineEnd(char ch) { - return ((ch == '\n') || (ch == '\r')) ; -} -/***************************************/ -static Sci_PositionU GetContinuedPos(Sci_PositionU pos, Accessor &styler) { - while (!IsALineEnd(styler.SafeGetCharAt(pos++))) continue; - if (styler.SafeGetCharAt(pos) == '\n') pos++; - while (IsABlank(styler.SafeGetCharAt(pos++))) continue; - char chCur = styler.SafeGetCharAt(pos); - if (chCur == '&') { - while (IsABlank(styler.SafeGetCharAt(++pos))) continue; - return pos; - } else { - return pos; - } -} -/***************************************/ -static void ColouriseFortranDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, - WordList *keywordlists[], Accessor &styler, bool isFixFormat) { - WordList &keywords = *keywordlists[0]; - WordList &keywords2 = *keywordlists[1]; - WordList &keywords3 = *keywordlists[2]; - /***************************************/ - Sci_Position posLineStart = 0; - int numNonBlank = 0, prevState = 0; - Sci_Position endPos = startPos + length; - /***************************************/ - // backtrack to the nearest keyword - while ((startPos > 1) && (styler.StyleAt(startPos) != SCE_F_WORD)) { - startPos--; - } - startPos = styler.LineStart(styler.GetLine(startPos)); - initStyle = styler.StyleAt(startPos - 1); - StyleContext sc(startPos, endPos-startPos, initStyle, styler); - /***************************************/ - for (; sc.More(); sc.Forward()) { - // remember the start position of the line - if (sc.atLineStart) { - posLineStart = sc.currentPos; - numNonBlank = 0; - sc.SetState(SCE_F_DEFAULT); - } - if (!IsASpaceOrTab(sc.ch)) numNonBlank ++; - /***********************************************/ - // Handle the fix format generically - Sci_Position toLineStart = sc.currentPos - posLineStart; - if (isFixFormat && (toLineStart < 6 || toLineStart >= 72)) { - if ((toLineStart == 0 && (tolower(sc.ch) == 'c' || sc.ch == '*')) || sc.ch == '!') { - if (sc.MatchIgnoreCase("cdec$") || sc.MatchIgnoreCase("*dec$") || sc.MatchIgnoreCase("!dec$") || - sc.MatchIgnoreCase("cdir$") || sc.MatchIgnoreCase("*dir$") || sc.MatchIgnoreCase("!dir$") || - sc.MatchIgnoreCase("cms$") || sc.MatchIgnoreCase("*ms$") || sc.MatchIgnoreCase("!ms$") || - sc.chNext == '$') { - sc.SetState(SCE_F_PREPROCESSOR); - } else { - sc.SetState(SCE_F_COMMENT); - } - - while (!sc.atLineEnd && sc.More()) sc.Forward(); // Until line end - } else if (toLineStart >= 72) { - sc.SetState(SCE_F_COMMENT); - while (!sc.atLineEnd && sc.More()) sc.Forward(); // Until line end - } else if (toLineStart < 5) { - if (IsADigit(sc.ch)) - sc.SetState(SCE_F_LABEL); - else - sc.SetState(SCE_F_DEFAULT); - } else if (toLineStart == 5) { - //if (!IsASpace(sc.ch) && sc.ch != '0') { - if (sc.ch != '\r' && sc.ch != '\n') { - sc.SetState(SCE_F_CONTINUATION); - if (!IsASpace(sc.ch) && sc.ch != '0') - sc.ForwardSetState(prevState); - } else - sc.SetState(SCE_F_DEFAULT); - } - continue; - } - /***************************************/ - // Handle line continuation generically. - if (!isFixFormat && sc.ch == '&' && sc.state != SCE_F_COMMENT) { - char chTemp = ' '; - Sci_Position j = 1; - while (IsABlank(chTemp) && j<132) { - chTemp = static_cast(sc.GetRelative(j)); - j++; - } - if (chTemp == '!') { - sc.SetState(SCE_F_CONTINUATION); - if (sc.chNext == '!') sc.ForwardSetState(SCE_F_COMMENT); - } else if (chTemp == '\r' || chTemp == '\n') { - int currentState = sc.state; - sc.SetState(SCE_F_CONTINUATION); - sc.ForwardSetState(SCE_F_DEFAULT); - while (IsASpace(sc.ch) && sc.More()) { - sc.Forward(); - if (sc.atLineStart) numNonBlank = 0; - if (!IsASpaceOrTab(sc.ch)) numNonBlank ++; - } - if (sc.ch == '&') { - sc.SetState(SCE_F_CONTINUATION); - sc.Forward(); - } - sc.SetState(currentState); - } - } - /***************************************/ - // Hanndle preprocessor directives - if (sc.ch == '#' && numNonBlank == 1) - { - sc.SetState(SCE_F_PREPROCESSOR); - while (!sc.atLineEnd && sc.More()) - sc.Forward(); // Until line end - } - /***************************************/ - // Determine if the current state should terminate. - if (sc.state == SCE_F_OPERATOR) { - sc.SetState(SCE_F_DEFAULT); - } else if (sc.state == SCE_F_NUMBER) { - if (!(IsAWordChar(sc.ch) || sc.ch=='\'' || sc.ch=='\"' || sc.ch=='.')) { - sc.SetState(SCE_F_DEFAULT); - } - } else if (sc.state == SCE_F_IDENTIFIER) { - if (!IsAWordChar(sc.ch) || (sc.ch == '%')) { - char s[100]; - sc.GetCurrentLowered(s, sizeof(s)); - if (keywords.InList(s)) { - sc.ChangeState(SCE_F_WORD); - } else if (keywords2.InList(s)) { - sc.ChangeState(SCE_F_WORD2); - } else if (keywords3.InList(s)) { - sc.ChangeState(SCE_F_WORD3); - } - sc.SetState(SCE_F_DEFAULT); - } - } else if (sc.state == SCE_F_COMMENT || sc.state == SCE_F_PREPROCESSOR) { - if (sc.ch == '\r' || sc.ch == '\n') { - sc.SetState(SCE_F_DEFAULT); - } - } else if (sc.state == SCE_F_STRING1) { - prevState = sc.state; - if (sc.ch == '\'') { - if (sc.chNext == '\'') { - sc.Forward(); - } else { - sc.ForwardSetState(SCE_F_DEFAULT); - prevState = SCE_F_DEFAULT; - } - } else if (sc.atLineEnd) { - sc.ChangeState(SCE_F_STRINGEOL); - sc.ForwardSetState(SCE_F_DEFAULT); - } - } else if (sc.state == SCE_F_STRING2) { - prevState = sc.state; - if (sc.atLineEnd) { - sc.ChangeState(SCE_F_STRINGEOL); - sc.ForwardSetState(SCE_F_DEFAULT); - } else if (sc.ch == '\"') { - if (sc.chNext == '\"') { - sc.Forward(); - } else { - sc.ForwardSetState(SCE_F_DEFAULT); - prevState = SCE_F_DEFAULT; - } - } - } else if (sc.state == SCE_F_OPERATOR2) { - if (sc.ch == '.') { - sc.ForwardSetState(SCE_F_DEFAULT); - } - } else if (sc.state == SCE_F_CONTINUATION) { - sc.SetState(SCE_F_DEFAULT); - } else if (sc.state == SCE_F_LABEL) { - if (!IsADigit(sc.ch)) { - sc.SetState(SCE_F_DEFAULT); - } else { - if (isFixFormat && sc.currentPos-posLineStart > 4) - sc.SetState(SCE_F_DEFAULT); - else if (numNonBlank > 5) - sc.SetState(SCE_F_DEFAULT); - } - } - /***************************************/ - // Determine if a new state should be entered. - if (sc.state == SCE_F_DEFAULT) { - if (sc.ch == '!') { - if (sc.MatchIgnoreCase("!dec$") || sc.MatchIgnoreCase("!dir$") || - sc.MatchIgnoreCase("!ms$") || sc.chNext == '$') { - sc.SetState(SCE_F_PREPROCESSOR); - } else { - sc.SetState(SCE_F_COMMENT); - } - } else if ((!isFixFormat) && IsADigit(sc.ch) && numNonBlank == 1) { - sc.SetState(SCE_F_LABEL); - } else if (IsADigit(sc.ch) || (sc.ch == '.' && IsADigit(sc.chNext))) { - sc.SetState(SCE_F_NUMBER); - } else if ((tolower(sc.ch) == 'b' || tolower(sc.ch) == 'o' || - tolower(sc.ch) == 'z') && (sc.chNext == '\"' || sc.chNext == '\'')) { - sc.SetState(SCE_F_NUMBER); - sc.Forward(); - } else if (sc.ch == '.' && isalpha(sc.chNext)) { - sc.SetState(SCE_F_OPERATOR2); - } else if (IsAWordStart(sc.ch)) { - sc.SetState(SCE_F_IDENTIFIER); - } else if (sc.ch == '\"') { - sc.SetState(SCE_F_STRING2); - } else if (sc.ch == '\'') { - sc.SetState(SCE_F_STRING1); - } else if (isoperator(static_cast(sc.ch))) { - sc.SetState(SCE_F_OPERATOR); - } - } - } - sc.Complete(); -} -/***************************************/ -static void CheckLevelCommentLine(const unsigned int nComL, - Sci_Position nComColB[], Sci_Position nComColF[], Sci_Position &nComCur, - bool comLineB[], bool comLineF[], bool &comLineCur, - int &levelDeltaNext) { - levelDeltaNext = 0; - if (!comLineCur) { - return; - } - - if (!comLineF[0] || nComColF[0] != nComCur) { - unsigned int i=0; - for (; i= nLineTotal) { - return; - } - - for (int i=nComL-2; i>=0; i--) { - nComColB[i+1] = nComColB[i]; - comLineB[i+1] = comLineB[i]; - } - nComColB[0] = nComCur; - comLineB[0] = comLineCur; - nComCur = nComColF[0]; - comLineCur = comLineF[0]; - for (unsigned int i=0; i+1 0) { - lineCurrent--; - startPos = styler.LineStart(lineCurrent); - isPrevLine = true; - } else { - isPrevLine = false; - } - char chNext = styler[startPos]; - int styleNext = styler.StyleAt(startPos); - int style = initStyle; - int levelDeltaNext = 0; - - const unsigned int nComL = 3; // defines how many comment lines should be before they are folded - Sci_Position nComColB[nComL] = {}; - Sci_Position nComColF[nComL] = {}; - Sci_Position nComCur = 0; - bool comLineB[nComL] = {}; - bool comLineF[nComL] = {}; - bool comLineCur; - Sci_Position nLineTotal = styler.GetLine(styler.Length()-1) + 1; - if (foldComment) { - for (unsigned int i=0; i= nLineTotal) { - comLineF[i] = false; - break; - } - GetIfLineComment(styler, isFixFormat, chL, comLineF[i], nComColF[i]); - } - GetIfLineComment(styler, isFixFormat, lineCurrent, comLineCur, nComCur); - CheckBackComLines(styler, isFixFormat, lineCurrent, nComL, nComColB, nComColF, nComCur, - comLineB, comLineF, comLineCur); - } - int levelCurrent = styler.LevelAt(lineCurrent) & SC_FOLDLEVELNUMBERMASK; - - /***************************************/ - Sci_Position lastStart = 0; - char prevWord[32] = ""; - /***************************************/ - for (Sci_PositionU i = startPos; i < endPos; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - char chNextNonBlank = chNext; - bool nextEOL = false; - if (IsALineEnd(chNextNonBlank)) { - nextEOL = true; - } - Sci_PositionU j=i+1; - while(IsABlank(chNextNonBlank) && j(tolower(styler[lastStart+k])); - } - s[k] = '\0'; - // Handle the forall and where statement and structure. - if (strcmp(s, "forall") == 0 || (strcmp(s, "where") == 0 && strcmp(prevWord, "else") != 0)) { - if (strcmp(prevWord, "end") != 0) { - j = i + 1; - char chBrace = '(', chSeek = ')', ch1 = styler.SafeGetCharAt(j); - // Find the position of the first ( - while (ch1 != chBrace && j 0) && (visibleChars > 0)) - lev |= SC_FOLDLEVELHEADERFLAG; - if (lev != styler.LevelAt(lineCurrent)) - styler.SetLevel(lineCurrent, lev); - - lineCurrent++; - levelCurrent += levelDeltaNext; - levelDeltaNext = 0; - visibleChars = 0; - strcpy(prevWord, ""); - isPrevLine = false; - - if (foldComment) { - StepCommentLine(styler, isFixFormat, lineCurrent, nComL, nComColB, nComColF, nComCur, - comLineB, comLineF, comLineCur); - } - } - /***************************************/ - if (!isspacechar(ch)) visibleChars++; - } - /***************************************/ -} -/***************************************/ -static const char * const FortranWordLists[] = { - "Primary keywords and identifiers", - "Intrinsic functions", - "Extended and user defined functions", - 0, -}; -/***************************************/ -static void ColouriseFortranDocFreeFormat(Sci_PositionU startPos, Sci_Position length, int initStyle, WordList *keywordlists[], - Accessor &styler) { - ColouriseFortranDoc(startPos, length, initStyle, keywordlists, styler, false); -} -/***************************************/ -static void ColouriseFortranDocFixFormat(Sci_PositionU startPos, Sci_Position length, int initStyle, WordList *keywordlists[], - Accessor &styler) { - ColouriseFortranDoc(startPos, length, initStyle, keywordlists, styler, true); -} -/***************************************/ -static void FoldFortranDocFreeFormat(Sci_PositionU startPos, Sci_Position length, int initStyle, - WordList *[], Accessor &styler) { - FoldFortranDoc(startPos, length, initStyle,styler, false); -} -/***************************************/ -static void FoldFortranDocFixFormat(Sci_PositionU startPos, Sci_Position length, int initStyle, - WordList *[], Accessor &styler) { - FoldFortranDoc(startPos, length, initStyle,styler, true); -} -/***************************************/ -LexerModule lmFortran(SCLEX_FORTRAN, ColouriseFortranDocFreeFormat, "fortran", FoldFortranDocFreeFormat, FortranWordLists); -LexerModule lmF77(SCLEX_F77, ColouriseFortranDocFixFormat, "f77", FoldFortranDocFixFormat, FortranWordLists); diff --git a/libs/qscintilla/scintilla/lexers/LexGAP.cpp b/libs/qscintilla/scintilla/lexers/LexGAP.cpp deleted file mode 100644 index a2eca95a..00000000 --- a/libs/qscintilla/scintilla/lexers/LexGAP.cpp +++ /dev/null @@ -1,264 +0,0 @@ -// Scintilla source code edit control -/** @file LexGAP.cxx - ** Lexer for the GAP language. (The GAP System for Computational Discrete Algebra) - ** http://www.gap-system.org - **/ -// Copyright 2007 by Istvan Szollosi ( szteven gmail com ) -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static inline bool IsGAPOperator(char ch) { - if (IsASCII(ch) && isalnum(ch)) return false; - if (ch == '+' || ch == '-' || ch == '*' || ch == '/' || - ch == '^' || ch == ',' || ch == '!' || ch == '.' || - ch == '=' || ch == '<' || ch == '>' || ch == '(' || - ch == ')' || ch == ';' || ch == '[' || ch == ']' || - ch == '{' || ch == '}' || ch == ':' ) - return true; - return false; -} - -static void GetRange(Sci_PositionU start, Sci_PositionU end, Accessor &styler, char *s, Sci_PositionU len) { - Sci_PositionU i = 0; - while ((i < end - start + 1) && (i < len-1)) { - s[i] = static_cast(styler[start + i]); - i++; - } - s[i] = '\0'; -} - -static void ColouriseGAPDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, WordList *keywordlists[], Accessor &styler) { - - WordList &keywords1 = *keywordlists[0]; - WordList &keywords2 = *keywordlists[1]; - WordList &keywords3 = *keywordlists[2]; - WordList &keywords4 = *keywordlists[3]; - - // Do not leak onto next line - if (initStyle == SCE_GAP_STRINGEOL) initStyle = SCE_GAP_DEFAULT; - - StyleContext sc(startPos, length, initStyle, styler); - - for (; sc.More(); sc.Forward()) { - - // Prevent SCE_GAP_STRINGEOL from leaking back to previous line - if ( sc.atLineStart ) { - if (sc.state == SCE_GAP_STRING) sc.SetState(SCE_GAP_STRING); - if (sc.state == SCE_GAP_CHAR) sc.SetState(SCE_GAP_CHAR); - } - - // Handle line continuation generically - if (sc.ch == '\\' ) { - if (sc.chNext == '\n' || sc.chNext == '\r') { - sc.Forward(); - if (sc.ch == '\r' && sc.chNext == '\n') { - sc.Forward(); - } - continue; - } - } - - // Determine if the current state should terminate - switch (sc.state) { - case SCE_GAP_OPERATOR : - sc.SetState(SCE_GAP_DEFAULT); - break; - - case SCE_GAP_NUMBER : - if (!IsADigit(sc.ch)) { - if (sc.ch == '\\') { - if (!sc.atLineEnd) { - if (!IsADigit(sc.chNext)) { - sc.Forward(); - sc.ChangeState(SCE_GAP_IDENTIFIER); - } - } - } else if (isalpha(sc.ch) || sc.ch == '_') { - sc.ChangeState(SCE_GAP_IDENTIFIER); - } - else sc.SetState(SCE_GAP_DEFAULT); - } - break; - - case SCE_GAP_IDENTIFIER : - if (!(iswordstart(static_cast(sc.ch)) || sc.ch == '$')) { - if (sc.ch == '\\') sc.Forward(); - else { - char s[1000]; - sc.GetCurrent(s, sizeof(s)); - if (keywords1.InList(s)) { - sc.ChangeState(SCE_GAP_KEYWORD); - } else if (keywords2.InList(s)) { - sc.ChangeState(SCE_GAP_KEYWORD2); - } else if (keywords3.InList(s)) { - sc.ChangeState(SCE_GAP_KEYWORD3); - } else if (keywords4.InList(s)) { - sc.ChangeState(SCE_GAP_KEYWORD4); - } - sc.SetState(SCE_GAP_DEFAULT); - } - } - break; - - case SCE_GAP_COMMENT : - if (sc.atLineEnd) { - sc.SetState(SCE_GAP_DEFAULT); - } - break; - - case SCE_GAP_STRING: - if (sc.atLineEnd) { - sc.ChangeState(SCE_GAP_STRINGEOL); - } else if (sc.ch == '\\') { - if (sc.chNext == '\"' || sc.chNext == '\'' || sc.chNext == '\\') { - sc.Forward(); - } - } else if (sc.ch == '\"') { - sc.ForwardSetState(SCE_GAP_DEFAULT); - } - break; - - case SCE_GAP_CHAR: - if (sc.atLineEnd) { - sc.ChangeState(SCE_GAP_STRINGEOL); - } else if (sc.ch == '\\') { - if (sc.chNext == '\"' || sc.chNext == '\'' || sc.chNext == '\\') { - sc.Forward(); - } - } else if (sc.ch == '\'') { - sc.ForwardSetState(SCE_GAP_DEFAULT); - } - break; - - case SCE_GAP_STRINGEOL: - if (sc.atLineStart) { - sc.SetState(SCE_GAP_DEFAULT); - } - break; - } - - // Determine if a new state should be entered - if (sc.state == SCE_GAP_DEFAULT) { - if (IsGAPOperator(static_cast(sc.ch))) { - sc.SetState(SCE_GAP_OPERATOR); - } - else if (IsADigit(sc.ch)) { - sc.SetState(SCE_GAP_NUMBER); - } else if (isalpha(sc.ch) || sc.ch == '_' || sc.ch == '\\' || sc.ch == '$' || sc.ch == '~') { - sc.SetState(SCE_GAP_IDENTIFIER); - if (sc.ch == '\\') sc.Forward(); - } else if (sc.ch == '#') { - sc.SetState(SCE_GAP_COMMENT); - } else if (sc.ch == '\"') { - sc.SetState(SCE_GAP_STRING); - } else if (sc.ch == '\'') { - sc.SetState(SCE_GAP_CHAR); - } - } - - } - sc.Complete(); -} - -static int ClassifyFoldPointGAP(const char* s) { - int level = 0; - if (strcmp(s, "function") == 0 || - strcmp(s, "do") == 0 || - strcmp(s, "if") == 0 || - strcmp(s, "repeat") == 0 ) { - level = 1; - } else if (strcmp(s, "end") == 0 || - strcmp(s, "od") == 0 || - strcmp(s, "fi") == 0 || - strcmp(s, "until") == 0 ) { - level = -1; - } - return level; -} - -static void FoldGAPDoc( Sci_PositionU startPos, Sci_Position length, int initStyle, WordList** , Accessor &styler) { - Sci_PositionU endPos = startPos + length; - int visibleChars = 0; - Sci_Position lineCurrent = styler.GetLine(startPos); - int levelPrev = styler.LevelAt(lineCurrent) & SC_FOLDLEVELNUMBERMASK; - int levelCurrent = levelPrev; - char chNext = styler[startPos]; - int styleNext = styler.StyleAt(startPos); - int style = initStyle; - - Sci_Position lastStart = 0; - - for (Sci_PositionU i = startPos; i < endPos; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - int stylePrev = style; - style = styleNext; - styleNext = styler.StyleAt(i + 1); - bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n'); - - if (stylePrev != SCE_GAP_KEYWORD && style == SCE_GAP_KEYWORD) { - // Store last word start point. - lastStart = i; - } - - if (stylePrev == SCE_GAP_KEYWORD) { - if(iswordchar(ch) && !iswordchar(chNext)) { - char s[100]; - GetRange(lastStart, i, styler, s, sizeof(s)); - levelCurrent += ClassifyFoldPointGAP(s); - } - } - - if (atEOL) { - int lev = levelPrev; - if ((levelCurrent > levelPrev) && (visibleChars > 0)) - lev |= SC_FOLDLEVELHEADERFLAG; - if (lev != styler.LevelAt(lineCurrent)) { - styler.SetLevel(lineCurrent, lev); - } - lineCurrent++; - levelPrev = levelCurrent; - visibleChars = 0; - } - - if (!isspacechar(ch)) - visibleChars++; - } - - int flagsNext = styler.LevelAt(lineCurrent) & ~SC_FOLDLEVELNUMBERMASK; - styler.SetLevel(lineCurrent, levelPrev | flagsNext); -} - -static const char * const GAPWordListDesc[] = { - "Keywords 1", - "Keywords 2", - "Keywords 3 (unused)", - "Keywords 4 (unused)", - 0 -}; - -LexerModule lmGAP( - SCLEX_GAP, - ColouriseGAPDoc, - "gap", - FoldGAPDoc, - GAPWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexGui4Cli.cpp b/libs/qscintilla/scintilla/lexers/LexGui4Cli.cpp deleted file mode 100644 index e321a5b8..00000000 --- a/libs/qscintilla/scintilla/lexers/LexGui4Cli.cpp +++ /dev/null @@ -1,311 +0,0 @@ -// Scintilla source code edit control -// Copyright 1998-2002 by Neil Hodgson -/* -This is the Lexer for Gui4Cli, included in SciLexer.dll -- by d. Keletsekis, 2/10/2003 - -To add to SciLexer.dll: -1. Add the values below to INCLUDE\Scintilla.iface -2. Run the scripts/HFacer.py script -3. Run the scripts/LexGen.py script - -val SCE_GC_DEFAULT=0 -val SCE_GC_COMMENTLINE=1 -val SCE_GC_COMMENTBLOCK=2 -val SCE_GC_GLOBAL=3 -val SCE_GC_EVENT=4 -val SCE_GC_ATTRIBUTE=5 -val SCE_GC_CONTROL=6 -val SCE_GC_COMMAND=7 -val SCE_GC_STRING=8 -val SCE_GC_OPERATOR=9 -*/ - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -#define debug Platform::DebugPrintf - -static inline bool IsAWordChar(const int ch) { - return (ch < 0x80) && (isalnum(ch) || ch == '.' || ch == '_' || ch =='\\'); -} - -inline bool isGCOperator(int ch) -{ if (isalnum(ch)) - return false; - // '.' left out as it is used to make up numbers - if (ch == '*' || ch == '/' || ch == '-' || ch == '+' || - ch == '(' || ch == ')' || ch == '=' || ch == '%' || - ch == '[' || ch == ']' || ch == '<' || ch == '>' || - ch == ',' || ch == ';' || ch == ':') - return true; - return false; -} - -#define isSpace(x) ((x)==' ' || (x)=='\t') -#define isNL(x) ((x)=='\n' || (x)=='\r') -#define isSpaceOrNL(x) (isSpace(x) || isNL(x)) -#define BUFFSIZE 500 -#define isFoldPoint(x) ((styler.LevelAt(x) & SC_FOLDLEVELNUMBERMASK) == 1024) - -static void colorFirstWord(WordList *keywordlists[], Accessor &styler, - StyleContext *sc, char *buff, Sci_Position length, Sci_Position) -{ - Sci_Position c = 0; - while (sc->More() && isSpaceOrNL(sc->ch)) - { sc->Forward(); - } - styler.ColourTo(sc->currentPos - 1, sc->state); - - if (!IsAWordChar(sc->ch)) // comment, marker, etc.. - return; - - while (sc->More() && !isSpaceOrNL(sc->ch) && (c < length-1) && !isGCOperator(sc->ch)) - { buff[c] = static_cast(sc->ch); - ++c; sc->Forward(); - } - buff[c] = '\0'; - char *p = buff; - while (*p) // capitalize.. - { if (islower(*p)) *p = static_cast(toupper(*p)); - ++p; - } - - WordList &kGlobal = *keywordlists[0]; // keyword lists set by the user - WordList &kEvent = *keywordlists[1]; - WordList &kAttribute = *keywordlists[2]; - WordList &kControl = *keywordlists[3]; - WordList &kCommand = *keywordlists[4]; - - int state = 0; - // int level = styler.LevelAt(line) & SC_FOLDLEVELNUMBERMASK; - // debug ("line = %d, level = %d", line, level); - - if (kGlobal.InList(buff)) state = SCE_GC_GLOBAL; - else if (kAttribute.InList(buff)) state = SCE_GC_ATTRIBUTE; - else if (kControl.InList(buff)) state = SCE_GC_CONTROL; - else if (kCommand.InList(buff)) state = SCE_GC_COMMAND; - else if (kEvent.InList(buff)) state = SCE_GC_EVENT; - - if (state) - { sc->ChangeState(state); - styler.ColourTo(sc->currentPos - 1, sc->state); - sc->ChangeState(SCE_GC_DEFAULT); - } - else - { sc->ChangeState(SCE_GC_DEFAULT); - styler.ColourTo(sc->currentPos - 1, sc->state); - } -} - -// Main colorizing function called by Scintilla -static void -ColouriseGui4CliDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, - WordList *keywordlists[], Accessor &styler) -{ - styler.StartAt(startPos); - - Sci_Position currentline = styler.GetLine(startPos); - int quotestart = 0, oldstate; - styler.StartSegment(startPos); - bool noforward; - char buff[BUFFSIZE+1]; // buffer for command name - - StyleContext sc(startPos, length, initStyle, styler); - buff[0] = '\0'; // cbuff = 0; - - if (sc.state != SCE_GC_COMMENTBLOCK) // colorize 1st word.. - colorFirstWord(keywordlists, styler, &sc, buff, BUFFSIZE, currentline); - - while (sc.More()) - { noforward = 0; - - switch (sc.ch) - { - case '/': - if (sc.state == SCE_GC_COMMENTBLOCK || sc.state == SCE_GC_STRING) - break; - if (sc.chNext == '/') // line comment - { sc.SetState (SCE_GC_COMMENTLINE); - sc.Forward(); - styler.ColourTo(sc.currentPos, sc.state); - } - else if (sc.chNext == '*') // block comment - { sc.SetState(SCE_GC_COMMENTBLOCK); - sc.Forward(); - styler.ColourTo(sc.currentPos, sc.state); - } - else - styler.ColourTo(sc.currentPos, sc.state); - break; - - case '*': // end of comment block, or operator.. - if (sc.state == SCE_GC_STRING) - break; - if (sc.state == SCE_GC_COMMENTBLOCK && sc.chNext == '/') - { sc.Forward(); - styler.ColourTo(sc.currentPos, sc.state); - sc.ChangeState (SCE_GC_DEFAULT); - } - else - styler.ColourTo(sc.currentPos, sc.state); - break; - - case '\'': case '\"': // strings.. - if (sc.state == SCE_GC_COMMENTBLOCK || sc.state == SCE_GC_COMMENTLINE) - break; - if (sc.state == SCE_GC_STRING) - { if (sc.ch == quotestart) // match same quote char.. - { styler.ColourTo(sc.currentPos, sc.state); - sc.ChangeState(SCE_GC_DEFAULT); - quotestart = 0; - } } - else - { styler.ColourTo(sc.currentPos - 1, sc.state); - sc.ChangeState(SCE_GC_STRING); - quotestart = sc.ch; - } - break; - - case ';': // end of commandline character - if (sc.state != SCE_GC_COMMENTBLOCK && sc.state != SCE_GC_COMMENTLINE && - sc.state != SCE_GC_STRING) - { - styler.ColourTo(sc.currentPos - 1, sc.state); - styler.ColourTo(sc.currentPos, SCE_GC_OPERATOR); - sc.ChangeState(SCE_GC_DEFAULT); - sc.Forward(); - colorFirstWord(keywordlists, styler, &sc, buff, BUFFSIZE, currentline); - noforward = 1; // don't move forward - already positioned at next char.. - } - break; - - case '+': case '-': case '=': case '!': // operators.. - case '<': case '>': case '&': case '|': case '$': - if (sc.state != SCE_GC_COMMENTBLOCK && sc.state != SCE_GC_COMMENTLINE && - sc.state != SCE_GC_STRING) - { - styler.ColourTo(sc.currentPos - 1, sc.state); - styler.ColourTo(sc.currentPos, SCE_GC_OPERATOR); - sc.ChangeState(SCE_GC_DEFAULT); - } - break; - - case '\\': // escape - same as operator, but also mark in strings.. - if (sc.state != SCE_GC_COMMENTBLOCK && sc.state != SCE_GC_COMMENTLINE) - { - oldstate = sc.state; - styler.ColourTo(sc.currentPos - 1, sc.state); - sc.Forward(); // mark also the next char.. - styler.ColourTo(sc.currentPos, SCE_GC_OPERATOR); - sc.ChangeState(oldstate); - } - break; - - case '\n': case '\r': - ++currentline; - if (sc.state == SCE_GC_COMMENTLINE) - { styler.ColourTo(sc.currentPos, sc.state); - sc.ChangeState (SCE_GC_DEFAULT); - } - else if (sc.state != SCE_GC_COMMENTBLOCK) - { colorFirstWord(keywordlists, styler, &sc, buff, BUFFSIZE, currentline); - noforward = 1; // don't move forward - already positioned at next char.. - } - break; - -// case ' ': case '\t': -// default : - } - - if (!noforward) sc.Forward(); - - } - sc.Complete(); -} - -// Main folding function called by Scintilla - (based on props (.ini) files function) -static void FoldGui4Cli(Sci_PositionU startPos, Sci_Position length, int, - WordList *[], Accessor &styler) -{ - bool foldCompact = styler.GetPropertyInt("fold.compact", 1) != 0; - - Sci_PositionU endPos = startPos + length; - int visibleChars = 0; - Sci_Position lineCurrent = styler.GetLine(startPos); - - char chNext = styler[startPos]; - int styleNext = styler.StyleAt(startPos); - bool headerPoint = false; - - for (Sci_PositionU i = startPos; i < endPos; i++) - { - char ch = chNext; - chNext = styler[i+1]; - - int style = styleNext; - styleNext = styler.StyleAt(i + 1); - bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n'); - - if (style == SCE_GC_EVENT || style == SCE_GC_GLOBAL) - { headerPoint = true; // fold at events and globals - } - - if (atEOL) - { int lev = SC_FOLDLEVELBASE+1; - - if (headerPoint) - lev = SC_FOLDLEVELBASE; - - if (visibleChars == 0 && foldCompact) - lev |= SC_FOLDLEVELWHITEFLAG; - - if (headerPoint) - lev |= SC_FOLDLEVELHEADERFLAG; - - if (lev != styler.LevelAt(lineCurrent)) // set level, if not already correct - { styler.SetLevel(lineCurrent, lev); - } - - lineCurrent++; // re-initialize our flags - visibleChars = 0; - headerPoint = false; - } - - if (!(isspacechar(ch))) // || (style == SCE_GC_COMMENTLINE) || (style != SCE_GC_COMMENTBLOCK))) - visibleChars++; - } - - int lev = headerPoint ? SC_FOLDLEVELBASE : SC_FOLDLEVELBASE+1; - int flagsNext = styler.LevelAt(lineCurrent) & ~SC_FOLDLEVELNUMBERMASK; - styler.SetLevel(lineCurrent, lev | flagsNext); -} - -// I have no idea what these are for.. probably accessible by some message. -static const char * const gui4cliWordListDesc[] = { - "Globals", "Events", "Attributes", "Control", "Commands", - 0 -}; - -// Declare language & pass our function pointers to Scintilla -LexerModule lmGui4Cli(SCLEX_GUI4CLI, ColouriseGui4CliDoc, "gui4cli", FoldGui4Cli, gui4cliWordListDesc); - -#undef debug - diff --git a/libs/qscintilla/scintilla/lexers/LexHaskell.cpp b/libs/qscintilla/scintilla/lexers/LexHaskell.cpp deleted file mode 100644 index 680a0f29..00000000 --- a/libs/qscintilla/scintilla/lexers/LexHaskell.cpp +++ /dev/null @@ -1,1110 +0,0 @@ -/****************************************************************** - * LexHaskell.cxx - * - * A haskell lexer for the scintilla code control. - * Some stuff "lended" from LexPython.cxx and LexCPP.cxx. - * External lexer stuff inspired from the caml external lexer. - * Folder copied from Python's. - * - * Written by Tobias Engvall - tumm at dtek dot chalmers dot se - * - * Several bug fixes by Krasimir Angelov - kr.angelov at gmail.com - * - * Improved by kudah - * - * TODO: - * * A proper lexical folder to fold group declarations, comments, pragmas, - * #ifdefs, explicit layout, lists, tuples, quasi-quotes, splces, etc, etc, - * etc. - * - *****************************************************************/ -#include -#include -#include -#include -#include -#include - -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "PropSetSimple.h" -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "CharacterCategory.h" -#include "LexerModule.h" -#include "OptionSet.h" -#include "DefaultLexer.h" - -using namespace Scintilla; - -// See https://github.com/ghc/ghc/blob/master/compiler/parser/Lexer.x#L1682 -// Note, letter modifiers are prohibited. - -static int u_iswupper (int ch) { - CharacterCategory c = CategoriseCharacter(ch); - return c == ccLu || c == ccLt; -} - -static int u_iswalpha (int ch) { - CharacterCategory c = CategoriseCharacter(ch); - return c == ccLl || c == ccLu || c == ccLt || c == ccLo; -} - -static int u_iswalnum (int ch) { - CharacterCategory c = CategoriseCharacter(ch); - return c == ccLl || c == ccLu || c == ccLt || c == ccLo - || c == ccNd || c == ccNo; -} - -static int u_IsHaskellSymbol(int ch) { - CharacterCategory c = CategoriseCharacter(ch); - return c == ccPc || c == ccPd || c == ccPo - || c == ccSm || c == ccSc || c == ccSk || c == ccSo; -} - -static inline bool IsHaskellLetter(const int ch) { - if (IsASCII(ch)) { - return (ch >= 'a' && ch <= 'z') - || (ch >= 'A' && ch <= 'Z'); - } else { - return u_iswalpha(ch) != 0; - } -} - -static inline bool IsHaskellAlphaNumeric(const int ch) { - if (IsASCII(ch)) { - return IsAlphaNumeric(ch); - } else { - return u_iswalnum(ch) != 0; - } -} - -static inline bool IsHaskellUpperCase(const int ch) { - if (IsASCII(ch)) { - return ch >= 'A' && ch <= 'Z'; - } else { - return u_iswupper(ch) != 0; - } -} - -static inline bool IsAnHaskellOperatorChar(const int ch) { - if (IsASCII(ch)) { - return - ( ch == '!' || ch == '#' || ch == '$' || ch == '%' - || ch == '&' || ch == '*' || ch == '+' || ch == '-' - || ch == '.' || ch == '/' || ch == ':' || ch == '<' - || ch == '=' || ch == '>' || ch == '?' || ch == '@' - || ch == '^' || ch == '|' || ch == '~' || ch == '\\'); - } else { - return u_IsHaskellSymbol(ch) != 0; - } -} - -static inline bool IsAHaskellWordStart(const int ch) { - return IsHaskellLetter(ch) || ch == '_'; -} - -static inline bool IsAHaskellWordChar(const int ch) { - return ( IsHaskellAlphaNumeric(ch) - || ch == '_' - || ch == '\''); -} - -static inline bool IsCommentBlockStyle(int style) { - return (style >= SCE_HA_COMMENTBLOCK && style <= SCE_HA_COMMENTBLOCK3); -} - -static inline bool IsCommentStyle(int style) { - return (style >= SCE_HA_COMMENTLINE && style <= SCE_HA_COMMENTBLOCK3) - || ( style == SCE_HA_LITERATE_COMMENT - || style == SCE_HA_LITERATE_CODEDELIM); -} - -// styles which do not belong to Haskell, but to external tools -static inline bool IsExternalStyle(int style) { - return ( style == SCE_HA_PREPROCESSOR - || style == SCE_HA_LITERATE_COMMENT - || style == SCE_HA_LITERATE_CODEDELIM); -} - -static inline int CommentBlockStyleFromNestLevel(const unsigned int nestLevel) { - return SCE_HA_COMMENTBLOCK + (nestLevel % 3); -} - -// Mangled version of lexlib/Accessor.cxx IndentAmount. -// Modified to treat comment blocks as whitespace -// plus special case for commentline/preprocessor. -static int HaskellIndentAmount(Accessor &styler, const Sci_Position line) { - - // Determines the indentation level of the current line - // Comment blocks are treated as whitespace - - Sci_Position pos = styler.LineStart(line); - Sci_Position eol_pos = styler.LineStart(line + 1) - 1; - - char ch = styler[pos]; - int style = styler.StyleAt(pos); - - int indent = 0; - bool inPrevPrefix = line > 0; - - Sci_Position posPrev = inPrevPrefix ? styler.LineStart(line-1) : 0; - - while (( ch == ' ' || ch == '\t' - || IsCommentBlockStyle(style) - || style == SCE_HA_LITERATE_CODEDELIM) - && (pos < eol_pos)) { - if (inPrevPrefix) { - char chPrev = styler[posPrev++]; - if (chPrev != ' ' && chPrev != '\t') { - inPrevPrefix = false; - } - } - if (ch == '\t') { - indent = (indent / 8 + 1) * 8; - } else { // Space or comment block - indent++; - } - pos++; - ch = styler[pos]; - style = styler.StyleAt(pos); - } - - indent += SC_FOLDLEVELBASE; - // if completely empty line or the start of a comment or preprocessor... - if ( styler.LineStart(line) == styler.Length() - || ch == ' ' - || ch == '\t' - || ch == '\n' - || ch == '\r' - || IsCommentStyle(style) - || style == SCE_HA_PREPROCESSOR) - return indent | SC_FOLDLEVELWHITEFLAG; - else - return indent; -} - -struct OptionsHaskell { - bool magicHash; - bool allowQuotes; - bool implicitParams; - bool highlightSafe; - bool cpp; - bool stylingWithinPreprocessor; - bool fold; - bool foldComment; - bool foldCompact; - bool foldImports; - OptionsHaskell() { - magicHash = true; // Widespread use, enabled by default. - allowQuotes = true; // Widespread use, enabled by default. - implicitParams = false; // Fell out of favor, seldom used, disabled. - highlightSafe = true; // Moderately used, doesn't hurt to enable. - cpp = true; // Widespread use, enabled by default; - stylingWithinPreprocessor = false; - fold = false; - foldComment = false; - foldCompact = false; - foldImports = false; - } -}; - -static const char * const haskellWordListDesc[] = { - "Keywords", - "FFI", - "Reserved operators", - 0 -}; - -struct OptionSetHaskell : public OptionSet { - OptionSetHaskell() { - DefineProperty("lexer.haskell.allow.hash", &OptionsHaskell::magicHash, - "Set to 0 to disallow the '#' character at the end of identifiers and " - "literals with the haskell lexer " - "(GHC -XMagicHash extension)"); - - DefineProperty("lexer.haskell.allow.quotes", &OptionsHaskell::allowQuotes, - "Set to 0 to disable highlighting of Template Haskell name quotations " - "and promoted constructors " - "(GHC -XTemplateHaskell and -XDataKinds extensions)"); - - DefineProperty("lexer.haskell.allow.questionmark", &OptionsHaskell::implicitParams, - "Set to 1 to allow the '?' character at the start of identifiers " - "with the haskell lexer " - "(GHC & Hugs -XImplicitParams extension)"); - - DefineProperty("lexer.haskell.import.safe", &OptionsHaskell::highlightSafe, - "Set to 0 to disallow \"safe\" keyword in imports " - "(GHC -XSafe, -XTrustworthy, -XUnsafe extensions)"); - - DefineProperty("lexer.haskell.cpp", &OptionsHaskell::cpp, - "Set to 0 to disable C-preprocessor highlighting " - "(-XCPP extension)"); - - DefineProperty("styling.within.preprocessor", &OptionsHaskell::stylingWithinPreprocessor, - "For Haskell code, determines whether all preprocessor code is styled in the " - "preprocessor style (0, the default) or only from the initial # to the end " - "of the command word(1)." - ); - - DefineProperty("fold", &OptionsHaskell::fold); - - DefineProperty("fold.comment", &OptionsHaskell::foldComment); - - DefineProperty("fold.compact", &OptionsHaskell::foldCompact); - - DefineProperty("fold.haskell.imports", &OptionsHaskell::foldImports, - "Set to 1 to enable folding of import declarations"); - - DefineWordListSets(haskellWordListDesc); - } -}; - -class LexerHaskell : public DefaultLexer { - bool literate; - Sci_Position firstImportLine; - int firstImportIndent; - WordList keywords; - WordList ffi; - WordList reserved_operators; - OptionsHaskell options; - OptionSetHaskell osHaskell; - - enum HashCount { - oneHash - ,twoHashes - ,unlimitedHashes - }; - - enum KeywordMode { - HA_MODE_DEFAULT = 0 - ,HA_MODE_IMPORT1 = 1 // after "import", before "qualified" or "safe" or package name or module name. - ,HA_MODE_IMPORT2 = 2 // after module name, before "as" or "hiding". - ,HA_MODE_IMPORT3 = 3 // after "as", before "hiding" - ,HA_MODE_MODULE = 4 // after "module", before module name. - ,HA_MODE_FFI = 5 // after "foreign", before FFI keywords - ,HA_MODE_TYPE = 6 // after "type" or "data", before "family" - }; - - enum LiterateMode { - LITERATE_BIRD = 0 // if '>' is the first character on the line, - // color '>' as a codedelim and the rest of - // the line as code. - // else if "\begin{code}" is the only word on the - // line except whitespace, switch to LITERATE_BLOCK - // otherwise color the line as a literate comment. - ,LITERATE_BLOCK = 1 // if the string "\end{code}" is encountered at column - // 0 ignoring all later characters, color the line - // as a codedelim and switch to LITERATE_BIRD - // otherwise color the line as code. - }; - - struct HaskellLineInfo { - unsigned int nestLevel; // 22 bits ought to be enough for anybody - unsigned int nonexternalStyle; // 5 bits, widen if number of styles goes - // beyond 31. - bool pragma; - LiterateMode lmode; - KeywordMode mode; - - HaskellLineInfo(int state) : - nestLevel (state >> 10) - , nonexternalStyle ((state >> 5) & 0x1F) - , pragma ((state >> 4) & 0x1) - , lmode (static_cast((state >> 3) & 0x1)) - , mode (static_cast(state & 0x7)) - {} - - int ToLineState() { - return - (nestLevel << 10) - | (nonexternalStyle << 5) - | (pragma << 4) - | (lmode << 3) - | mode; - } - }; - - inline void skipMagicHash(StyleContext &sc, const HashCount hashes) const { - if (options.magicHash && sc.ch == '#') { - sc.Forward(); - if (hashes == twoHashes && sc.ch == '#') { - sc.Forward(); - } else if (hashes == unlimitedHashes) { - while (sc.ch == '#') { - sc.Forward(); - } - } - } - } - - bool LineContainsImport(const Sci_Position line, Accessor &styler) const { - if (options.foldImports) { - Sci_Position currentPos = styler.LineStart(line); - int style = styler.StyleAt(currentPos); - - Sci_Position eol_pos = styler.LineStart(line + 1) - 1; - - while (currentPos < eol_pos) { - int ch = styler[currentPos]; - style = styler.StyleAt(currentPos); - - if (ch == ' ' || ch == '\t' - || IsCommentBlockStyle(style) - || style == SCE_HA_LITERATE_CODEDELIM) { - currentPos++; - } else { - break; - } - } - - return (style == SCE_HA_KEYWORD - && styler.Match(currentPos, "import")); - } else { - return false; - } - } - - inline int IndentAmountWithOffset(Accessor &styler, const Sci_Position line) const { - const int indent = HaskellIndentAmount(styler, line); - const int indentLevel = indent & SC_FOLDLEVELNUMBERMASK; - return indentLevel <= ((firstImportIndent - 1) + SC_FOLDLEVELBASE) - ? indent - : (indentLevel + firstImportIndent) | (indent & ~SC_FOLDLEVELNUMBERMASK); - } - - inline int IndentLevelRemoveIndentOffset(const int indentLevel) const { - return indentLevel <= ((firstImportIndent - 1) + SC_FOLDLEVELBASE) - ? indentLevel - : indentLevel - firstImportIndent; - } - -public: - LexerHaskell(bool literate_) - : literate(literate_) - , firstImportLine(-1) - , firstImportIndent(0) - {} - virtual ~LexerHaskell() {} - - void SCI_METHOD Release() override { - delete this; - } - - int SCI_METHOD Version() const override { - return lvOriginal; - } - - const char * SCI_METHOD PropertyNames() override { - return osHaskell.PropertyNames(); - } - - int SCI_METHOD PropertyType(const char *name) override { - return osHaskell.PropertyType(name); - } - - const char * SCI_METHOD DescribeProperty(const char *name) override { - return osHaskell.DescribeProperty(name); - } - - Sci_Position SCI_METHOD PropertySet(const char *key, const char *val) override; - - const char * SCI_METHOD DescribeWordListSets() override { - return osHaskell.DescribeWordListSets(); - } - - Sci_Position SCI_METHOD WordListSet(int n, const char *wl) override; - - void SCI_METHOD Lex(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) override; - - void SCI_METHOD Fold(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) override; - - void * SCI_METHOD PrivateCall(int, void *) override { - return 0; - } - - static ILexer *LexerFactoryHaskell() { - return new LexerHaskell(false); - } - - static ILexer *LexerFactoryLiterateHaskell() { - return new LexerHaskell(true); - } -}; - -Sci_Position SCI_METHOD LexerHaskell::PropertySet(const char *key, const char *val) { - if (osHaskell.PropertySet(&options, key, val)) { - return 0; - } - return -1; -} - -Sci_Position SCI_METHOD LexerHaskell::WordListSet(int n, const char *wl) { - WordList *wordListN = 0; - switch (n) { - case 0: - wordListN = &keywords; - break; - case 1: - wordListN = &ffi; - break; - case 2: - wordListN = &reserved_operators; - break; - } - Sci_Position firstModification = -1; - if (wordListN) { - WordList wlNew; - wlNew.Set(wl); - if (*wordListN != wlNew) { - wordListN->Set(wl); - firstModification = 0; - } - } - return firstModification; -} - -void SCI_METHOD LexerHaskell::Lex(Sci_PositionU startPos, Sci_Position length, int initStyle - ,IDocument *pAccess) { - LexAccessor styler(pAccess); - - Sci_Position lineCurrent = styler.GetLine(startPos); - - HaskellLineInfo hs = HaskellLineInfo(lineCurrent ? styler.GetLineState(lineCurrent-1) : 0); - - // Do not leak onto next line - if (initStyle == SCE_HA_STRINGEOL) - initStyle = SCE_HA_DEFAULT; - else if (initStyle == SCE_HA_LITERATE_CODEDELIM) - initStyle = hs.nonexternalStyle; - - StyleContext sc(startPos, length, initStyle, styler); - - int base = 10; - bool dot = false; - - bool inDashes = false; - bool alreadyInTheMiddleOfOperator = false; - - assert(!(IsCommentBlockStyle(initStyle) && hs.nestLevel == 0)); - - while (sc.More()) { - // Check for state end - - if (!IsExternalStyle(sc.state)) { - hs.nonexternalStyle = sc.state; - } - - // For lexer to work, states should unconditionally forward at least one - // character. - // If they don't, they should still check if they are at line end and - // forward if so. - // If a state forwards more than one character, it should check every time - // that it is not a line end and cease forwarding otherwise. - if (sc.atLineEnd) { - // Remember the line state for future incremental lexing - styler.SetLineState(lineCurrent, hs.ToLineState()); - lineCurrent++; - } - - // Handle line continuation generically. - if (sc.ch == '\\' && (sc.chNext == '\n' || sc.chNext == '\r') - && ( sc.state == SCE_HA_STRING - || sc.state == SCE_HA_PREPROCESSOR)) { - // Remember the line state for future incremental lexing - styler.SetLineState(lineCurrent, hs.ToLineState()); - lineCurrent++; - - sc.Forward(); - if (sc.ch == '\r' && sc.chNext == '\n') { - sc.Forward(); - } - sc.Forward(); - - continue; - } - - if (sc.atLineStart) { - - if (sc.state == SCE_HA_STRING || sc.state == SCE_HA_CHARACTER) { - // Prevent SCE_HA_STRINGEOL from leaking back to previous line - sc.SetState(sc.state); - } - - if (literate && hs.lmode == LITERATE_BIRD) { - if (!IsExternalStyle(sc.state)) { - sc.SetState(SCE_HA_LITERATE_COMMENT); - } - } - } - - // External - // Literate - if ( literate && hs.lmode == LITERATE_BIRD && sc.atLineStart - && sc.ch == '>') { - sc.SetState(SCE_HA_LITERATE_CODEDELIM); - sc.ForwardSetState(hs.nonexternalStyle); - } - else if (literate && hs.lmode == LITERATE_BIRD && sc.atLineStart - && ( sc.ch == ' ' || sc.ch == '\t' - || sc.Match("\\begin{code}"))) { - sc.SetState(sc.state); - - while ((sc.ch == ' ' || sc.ch == '\t') && sc.More()) - sc.Forward(); - - if (sc.Match("\\begin{code}")) { - sc.Forward(static_cast(strlen("\\begin{code}"))); - - bool correct = true; - - while (!sc.atLineEnd && sc.More()) { - if (sc.ch != ' ' && sc.ch != '\t') { - correct = false; - } - sc.Forward(); - } - - if (correct) { - sc.ChangeState(SCE_HA_LITERATE_CODEDELIM); // color the line end - hs.lmode = LITERATE_BLOCK; - } - } - } - else if (literate && hs.lmode == LITERATE_BLOCK && sc.atLineStart - && sc.Match("\\end{code}")) { - sc.SetState(SCE_HA_LITERATE_CODEDELIM); - - sc.Forward(static_cast(strlen("\\end{code}"))); - - while (!sc.atLineEnd && sc.More()) { - sc.Forward(); - } - - sc.SetState(SCE_HA_LITERATE_COMMENT); - hs.lmode = LITERATE_BIRD; - } - // Preprocessor - else if (sc.atLineStart && sc.ch == '#' && options.cpp - && (!options.stylingWithinPreprocessor || sc.state == SCE_HA_DEFAULT)) { - sc.SetState(SCE_HA_PREPROCESSOR); - sc.Forward(); - } - // Literate - else if (sc.state == SCE_HA_LITERATE_COMMENT) { - sc.Forward(); - } - else if (sc.state == SCE_HA_LITERATE_CODEDELIM) { - sc.ForwardSetState(hs.nonexternalStyle); - } - // Preprocessor - else if (sc.state == SCE_HA_PREPROCESSOR) { - if (sc.atLineEnd) { - sc.SetState(options.stylingWithinPreprocessor - ? SCE_HA_DEFAULT - : hs.nonexternalStyle); - sc.Forward(); // prevent double counting a line - } else if (options.stylingWithinPreprocessor && !IsHaskellLetter(sc.ch)) { - sc.SetState(SCE_HA_DEFAULT); - } else { - sc.Forward(); - } - } - // Haskell - // Operator - else if (sc.state == SCE_HA_OPERATOR) { - int style = SCE_HA_OPERATOR; - - if ( sc.ch == ':' - && !alreadyInTheMiddleOfOperator - // except "::" - && !( sc.chNext == ':' - && !IsAnHaskellOperatorChar(sc.GetRelative(2)))) { - style = SCE_HA_CAPITAL; - } - - alreadyInTheMiddleOfOperator = false; - - while (IsAnHaskellOperatorChar(sc.ch)) - sc.Forward(); - - char s[100]; - sc.GetCurrent(s, sizeof(s)); - - if (reserved_operators.InList(s)) - style = SCE_HA_RESERVED_OPERATOR; - - sc.ChangeState(style); - sc.SetState(SCE_HA_DEFAULT); - } - // String - else if (sc.state == SCE_HA_STRING) { - if (sc.atLineEnd) { - sc.ChangeState(SCE_HA_STRINGEOL); - sc.ForwardSetState(SCE_HA_DEFAULT); - } else if (sc.ch == '\"') { - sc.Forward(); - skipMagicHash(sc, oneHash); - sc.SetState(SCE_HA_DEFAULT); - } else if (sc.ch == '\\') { - sc.Forward(2); - } else { - sc.Forward(); - } - } - // Char - else if (sc.state == SCE_HA_CHARACTER) { - if (sc.atLineEnd) { - sc.ChangeState(SCE_HA_STRINGEOL); - sc.ForwardSetState(SCE_HA_DEFAULT); - } else if (sc.ch == '\'') { - sc.Forward(); - skipMagicHash(sc, oneHash); - sc.SetState(SCE_HA_DEFAULT); - } else if (sc.ch == '\\') { - sc.Forward(2); - } else { - sc.Forward(); - } - } - // Number - else if (sc.state == SCE_HA_NUMBER) { - if (sc.atLineEnd) { - sc.SetState(SCE_HA_DEFAULT); - sc.Forward(); // prevent double counting a line - } else if (IsADigit(sc.ch, base)) { - sc.Forward(); - } else if (sc.ch=='.' && dot && IsADigit(sc.chNext, base)) { - sc.Forward(2); - dot = false; - } else if ((base == 10) && - (sc.ch == 'e' || sc.ch == 'E') && - (IsADigit(sc.chNext) || sc.chNext == '+' || sc.chNext == '-')) { - sc.Forward(); - if (sc.ch == '+' || sc.ch == '-') - sc.Forward(); - } else { - skipMagicHash(sc, twoHashes); - sc.SetState(SCE_HA_DEFAULT); - } - } - // Keyword or Identifier - else if (sc.state == SCE_HA_IDENTIFIER) { - int style = IsHaskellUpperCase(sc.ch) ? SCE_HA_CAPITAL : SCE_HA_IDENTIFIER; - - assert(IsAHaskellWordStart(sc.ch)); - - sc.Forward(); - - while (sc.More()) { - if (IsAHaskellWordChar(sc.ch)) { - sc.Forward(); - } else if (sc.ch == '.' && style == SCE_HA_CAPITAL) { - if (IsHaskellUpperCase(sc.chNext)) { - sc.Forward(); - style = SCE_HA_CAPITAL; - } else if (IsAHaskellWordStart(sc.chNext)) { - sc.Forward(); - style = SCE_HA_IDENTIFIER; - } else if (IsAnHaskellOperatorChar(sc.chNext)) { - sc.Forward(); - style = sc.ch == ':' ? SCE_HA_CAPITAL : SCE_HA_OPERATOR; - while (IsAnHaskellOperatorChar(sc.ch)) - sc.Forward(); - break; - } else { - break; - } - } else { - break; - } - } - - skipMagicHash(sc, unlimitedHashes); - - char s[100]; - sc.GetCurrent(s, sizeof(s)); - - KeywordMode new_mode = HA_MODE_DEFAULT; - - if (keywords.InList(s)) { - style = SCE_HA_KEYWORD; - } else if (style == SCE_HA_CAPITAL) { - if (hs.mode == HA_MODE_IMPORT1 || hs.mode == HA_MODE_IMPORT3) { - style = SCE_HA_MODULE; - new_mode = HA_MODE_IMPORT2; - } else if (hs.mode == HA_MODE_MODULE) { - style = SCE_HA_MODULE; - } - } else if (hs.mode == HA_MODE_IMPORT1 && - strcmp(s,"qualified") == 0) { - style = SCE_HA_KEYWORD; - new_mode = HA_MODE_IMPORT1; - } else if (options.highlightSafe && - hs.mode == HA_MODE_IMPORT1 && - strcmp(s,"safe") == 0) { - style = SCE_HA_KEYWORD; - new_mode = HA_MODE_IMPORT1; - } else if (hs.mode == HA_MODE_IMPORT2) { - if (strcmp(s,"as") == 0) { - style = SCE_HA_KEYWORD; - new_mode = HA_MODE_IMPORT3; - } else if (strcmp(s,"hiding") == 0) { - style = SCE_HA_KEYWORD; - } - } else if (hs.mode == HA_MODE_TYPE) { - if (strcmp(s,"family") == 0) - style = SCE_HA_KEYWORD; - } - - if (hs.mode == HA_MODE_FFI) { - if (ffi.InList(s)) { - style = SCE_HA_KEYWORD; - new_mode = HA_MODE_FFI; - } - } - - sc.ChangeState(style); - sc.SetState(SCE_HA_DEFAULT); - - if (strcmp(s,"import") == 0 && hs.mode != HA_MODE_FFI) - new_mode = HA_MODE_IMPORT1; - else if (strcmp(s,"module") == 0) - new_mode = HA_MODE_MODULE; - else if (strcmp(s,"foreign") == 0) - new_mode = HA_MODE_FFI; - else if (strcmp(s,"type") == 0 - || strcmp(s,"data") == 0) - new_mode = HA_MODE_TYPE; - - hs.mode = new_mode; - } - - // Comments - // Oneliner - else if (sc.state == SCE_HA_COMMENTLINE) { - if (sc.atLineEnd) { - sc.SetState(hs.pragma ? SCE_HA_PRAGMA : SCE_HA_DEFAULT); - sc.Forward(); // prevent double counting a line - } else if (inDashes && sc.ch != '-' && !hs.pragma) { - inDashes = false; - if (IsAnHaskellOperatorChar(sc.ch)) { - alreadyInTheMiddleOfOperator = true; - sc.ChangeState(SCE_HA_OPERATOR); - } - } else { - sc.Forward(); - } - } - // Nested - else if (IsCommentBlockStyle(sc.state)) { - if (sc.Match('{','-')) { - sc.SetState(CommentBlockStyleFromNestLevel(hs.nestLevel)); - sc.Forward(2); - hs.nestLevel++; - } else if (sc.Match('-','}')) { - sc.Forward(2); - assert(hs.nestLevel > 0); - if (hs.nestLevel > 0) - hs.nestLevel--; - sc.SetState( - hs.nestLevel == 0 - ? (hs.pragma ? SCE_HA_PRAGMA : SCE_HA_DEFAULT) - : CommentBlockStyleFromNestLevel(hs.nestLevel - 1)); - } else { - sc.Forward(); - } - } - // Pragma - else if (sc.state == SCE_HA_PRAGMA) { - if (sc.Match("#-}")) { - hs.pragma = false; - sc.Forward(3); - sc.SetState(SCE_HA_DEFAULT); - } else if (sc.Match('-','-')) { - sc.SetState(SCE_HA_COMMENTLINE); - sc.Forward(2); - inDashes = false; - } else if (sc.Match('{','-')) { - sc.SetState(CommentBlockStyleFromNestLevel(hs.nestLevel)); - sc.Forward(2); - hs.nestLevel = 1; - } else { - sc.Forward(); - } - } - // New state? - else if (sc.state == SCE_HA_DEFAULT) { - // Digit - if (IsADigit(sc.ch)) { - hs.mode = HA_MODE_DEFAULT; - - sc.SetState(SCE_HA_NUMBER); - if (sc.ch == '0' && (sc.chNext == 'X' || sc.chNext == 'x')) { - // Match anything starting with "0x" or "0X", too - sc.Forward(2); - base = 16; - dot = false; - } else if (sc.ch == '0' && (sc.chNext == 'O' || sc.chNext == 'o')) { - // Match anything starting with "0o" or "0O", too - sc.Forward(2); - base = 8; - dot = false; - } else { - sc.Forward(); - base = 10; - dot = true; - } - } - // Pragma - else if (sc.Match("{-#")) { - hs.pragma = true; - sc.SetState(SCE_HA_PRAGMA); - sc.Forward(3); - } - // Comment line - else if (sc.Match('-','-')) { - sc.SetState(SCE_HA_COMMENTLINE); - sc.Forward(2); - inDashes = true; - } - // Comment block - else if (sc.Match('{','-')) { - sc.SetState(CommentBlockStyleFromNestLevel(hs.nestLevel)); - sc.Forward(2); - hs.nestLevel = 1; - } - // String - else if (sc.ch == '\"') { - sc.SetState(SCE_HA_STRING); - sc.Forward(); - } - // Character or quoted name or promoted term - else if (sc.ch == '\'') { - hs.mode = HA_MODE_DEFAULT; - - sc.SetState(SCE_HA_CHARACTER); - sc.Forward(); - - if (options.allowQuotes) { - // Quoted type ''T - if (sc.ch=='\'' && IsAHaskellWordStart(sc.chNext)) { - sc.Forward(); - sc.ChangeState(SCE_HA_IDENTIFIER); - } else if (sc.chNext != '\'') { - // Quoted name 'n or promoted constructor 'N - if (IsAHaskellWordStart(sc.ch)) { - sc.ChangeState(SCE_HA_IDENTIFIER); - // Promoted constructor operator ':~> - } else if (sc.ch == ':') { - alreadyInTheMiddleOfOperator = false; - sc.ChangeState(SCE_HA_OPERATOR); - // Promoted list or tuple '[T] - } else if (sc.ch == '[' || sc.ch== '(') { - sc.ChangeState(SCE_HA_OPERATOR); - sc.ForwardSetState(SCE_HA_DEFAULT); - } - } - } - } - // Operator starting with '?' or an implicit parameter - else if (sc.ch == '?') { - hs.mode = HA_MODE_DEFAULT; - - alreadyInTheMiddleOfOperator = false; - sc.SetState(SCE_HA_OPERATOR); - - if ( options.implicitParams - && IsAHaskellWordStart(sc.chNext) - && !IsHaskellUpperCase(sc.chNext)) { - sc.Forward(); - sc.ChangeState(SCE_HA_IDENTIFIER); - } - } - // Operator - else if (IsAnHaskellOperatorChar(sc.ch)) { - hs.mode = HA_MODE_DEFAULT; - - sc.SetState(SCE_HA_OPERATOR); - } - // Braces and punctuation - else if (sc.ch == ',' || sc.ch == ';' - || sc.ch == '(' || sc.ch == ')' - || sc.ch == '[' || sc.ch == ']' - || sc.ch == '{' || sc.ch == '}') { - sc.SetState(SCE_HA_OPERATOR); - sc.ForwardSetState(SCE_HA_DEFAULT); - } - // Keyword or Identifier - else if (IsAHaskellWordStart(sc.ch)) { - sc.SetState(SCE_HA_IDENTIFIER); - // Something we don't care about - } else { - sc.Forward(); - } - } - // This branch should never be reached. - else { - assert(false); - sc.Forward(); - } - } - sc.Complete(); -} - -void SCI_METHOD LexerHaskell::Fold(Sci_PositionU startPos, Sci_Position length, int // initStyle - ,IDocument *pAccess) { - if (!options.fold) - return; - - Accessor styler(pAccess, NULL); - - Sci_Position lineCurrent = styler.GetLine(startPos); - - if (lineCurrent <= firstImportLine) { - firstImportLine = -1; // readjust first import position - firstImportIndent = 0; - } - - const Sci_Position maxPos = startPos + length; - const Sci_Position maxLines = - maxPos == styler.Length() - ? styler.GetLine(maxPos) - : styler.GetLine(maxPos - 1); // Requested last line - const Sci_Position docLines = styler.GetLine(styler.Length()); // Available last line - - // Backtrack to previous non-blank line so we can determine indent level - // for any white space lines - // and so we can fix any preceding fold level (which is why we go back - // at least one line in all cases) - bool importHere = LineContainsImport(lineCurrent, styler); - int indentCurrent = IndentAmountWithOffset(styler, lineCurrent); - - while (lineCurrent > 0) { - lineCurrent--; - importHere = LineContainsImport(lineCurrent, styler); - indentCurrent = IndentAmountWithOffset(styler, lineCurrent); - if (!(indentCurrent & SC_FOLDLEVELWHITEFLAG)) - break; - } - - int indentCurrentLevel = indentCurrent & SC_FOLDLEVELNUMBERMASK; - - if (importHere) { - indentCurrentLevel = IndentLevelRemoveIndentOffset(indentCurrentLevel); - if (firstImportLine == -1) { - firstImportLine = lineCurrent; - firstImportIndent = (1 + indentCurrentLevel) - SC_FOLDLEVELBASE; - } - if (firstImportLine != lineCurrent) { - indentCurrentLevel++; - } - } - - indentCurrent = indentCurrentLevel | (indentCurrent & ~SC_FOLDLEVELNUMBERMASK); - - // Process all characters to end of requested range - //that hangs over the end of the range. Cap processing in all cases - // to end of document. - while (lineCurrent <= docLines && lineCurrent <= maxLines) { - - // Gather info - Sci_Position lineNext = lineCurrent + 1; - importHere = false; - int indentNext = indentCurrent; - - if (lineNext <= docLines) { - // Information about next line is only available if not at end of document - importHere = LineContainsImport(lineNext, styler); - indentNext = IndentAmountWithOffset(styler, lineNext); - } - if (indentNext & SC_FOLDLEVELWHITEFLAG) - indentNext = SC_FOLDLEVELWHITEFLAG | indentCurrentLevel; - - // Skip past any blank lines for next indent level info; we skip also - // comments (all comments, not just those starting in column 0) - // which effectively folds them into surrounding code rather - // than screwing up folding. - - while (lineNext < docLines && (indentNext & SC_FOLDLEVELWHITEFLAG)) { - lineNext++; - importHere = LineContainsImport(lineNext, styler); - indentNext = IndentAmountWithOffset(styler, lineNext); - } - - int indentNextLevel = indentNext & SC_FOLDLEVELNUMBERMASK; - - if (importHere) { - indentNextLevel = IndentLevelRemoveIndentOffset(indentNextLevel); - if (firstImportLine == -1) { - firstImportLine = lineNext; - firstImportIndent = (1 + indentNextLevel) - SC_FOLDLEVELBASE; - } - if (firstImportLine != lineNext) { - indentNextLevel++; - } - } - - indentNext = indentNextLevel | (indentNext & ~SC_FOLDLEVELNUMBERMASK); - - const int levelBeforeComments = Maximum(indentCurrentLevel,indentNextLevel); - - // Now set all the indent levels on the lines we skipped - // Do this from end to start. Once we encounter one line - // which is indented more than the line after the end of - // the comment-block, use the level of the block before - - Sci_Position skipLine = lineNext; - int skipLevel = indentNextLevel; - - while (--skipLine > lineCurrent) { - int skipLineIndent = IndentAmountWithOffset(styler, skipLine); - - if (options.foldCompact) { - if ((skipLineIndent & SC_FOLDLEVELNUMBERMASK) > indentNextLevel) { - skipLevel = levelBeforeComments; - } - - int whiteFlag = skipLineIndent & SC_FOLDLEVELWHITEFLAG; - - styler.SetLevel(skipLine, skipLevel | whiteFlag); - } else { - if ( (skipLineIndent & SC_FOLDLEVELNUMBERMASK) > indentNextLevel - && !(skipLineIndent & SC_FOLDLEVELWHITEFLAG)) { - skipLevel = levelBeforeComments; - } - - styler.SetLevel(skipLine, skipLevel); - } - } - - int lev = indentCurrent; - - if (!(indentCurrent & SC_FOLDLEVELWHITEFLAG)) { - if ((indentCurrent & SC_FOLDLEVELNUMBERMASK) < (indentNext & SC_FOLDLEVELNUMBERMASK)) - lev |= SC_FOLDLEVELHEADERFLAG; - } - - // Set fold level for this line and move to next line - styler.SetLevel(lineCurrent, options.foldCompact ? lev : lev & ~SC_FOLDLEVELWHITEFLAG); - - indentCurrent = indentNext; - indentCurrentLevel = indentNextLevel; - lineCurrent = lineNext; - } - - // NOTE: Cannot set level of last line here because indentCurrent doesn't have - // header flag set; the loop above is crafted to take care of this case! - //styler.SetLevel(lineCurrent, indentCurrent); -} - -LexerModule lmHaskell(SCLEX_HASKELL, LexerHaskell::LexerFactoryHaskell, "haskell", haskellWordListDesc); -LexerModule lmLiterateHaskell(SCLEX_LITERATEHASKELL, LexerHaskell::LexerFactoryLiterateHaskell, "literatehaskell", haskellWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexHex.cpp b/libs/qscintilla/scintilla/lexers/LexHex.cpp deleted file mode 100644 index 6e109978..00000000 --- a/libs/qscintilla/scintilla/lexers/LexHex.cpp +++ /dev/null @@ -1,1045 +0,0 @@ -// Scintilla source code edit control -/** @file LexHex.cxx - ** Lexers for Motorola S-Record, Intel HEX and Tektronix extended HEX. - ** - ** Written by Markus Heidelberg - **/ -// Copyright 1998-2001 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. - -/* - * Motorola S-Record - * =============================== - * - * Each record (line) is built as follows: - * - * field digits states - * - * +----------+ - * | start | 1 ('S') SCE_HEX_RECSTART - * +----------+ - * | type | 1 SCE_HEX_RECTYPE, (SCE_HEX_RECTYPE_UNKNOWN) - * +----------+ - * | count | 2 SCE_HEX_BYTECOUNT, SCE_HEX_BYTECOUNT_WRONG - * +----------+ - * | address | 4/6/8 SCE_HEX_NOADDRESS, SCE_HEX_DATAADDRESS, SCE_HEX_RECCOUNT, SCE_HEX_STARTADDRESS, (SCE_HEX_ADDRESSFIELD_UNKNOWN) - * +----------+ - * | data | 0..504/502/500 SCE_HEX_DATA_ODD, SCE_HEX_DATA_EVEN, SCE_HEX_DATA_EMPTY, (SCE_HEX_DATA_UNKNOWN) - * +----------+ - * | checksum | 2 SCE_HEX_CHECKSUM, SCE_HEX_CHECKSUM_WRONG - * +----------+ - * - * - * Intel HEX - * =============================== - * - * Each record (line) is built as follows: - * - * field digits states - * - * +----------+ - * | start | 1 (':') SCE_HEX_RECSTART - * +----------+ - * | count | 2 SCE_HEX_BYTECOUNT, SCE_HEX_BYTECOUNT_WRONG - * +----------+ - * | address | 4 SCE_HEX_NOADDRESS, SCE_HEX_DATAADDRESS, (SCE_HEX_ADDRESSFIELD_UNKNOWN) - * +----------+ - * | type | 2 SCE_HEX_RECTYPE, (SCE_HEX_RECTYPE_UNKNOWN) - * +----------+ - * | data | 0..510 SCE_HEX_DATA_ODD, SCE_HEX_DATA_EVEN, SCE_HEX_DATA_EMPTY, SCE_HEX_EXTENDEDADDRESS, SCE_HEX_STARTADDRESS, (SCE_HEX_DATA_UNKNOWN) - * +----------+ - * | checksum | 2 SCE_HEX_CHECKSUM, SCE_HEX_CHECKSUM_WRONG - * +----------+ - * - * - * Folding: - * - * Data records (type 0x00), which follow an extended address record (type - * 0x02 or 0x04), can be folded. The extended address record is the fold - * point at fold level 0, the corresponding data records are set to level 1. - * - * Any record, which is not a data record, sets the fold level back to 0. - * Any line, which is not a record (blank lines and lines starting with a - * character other than ':'), leaves the fold level unchanged. - * - * - * Tektronix extended HEX - * =============================== - * - * Each record (line) is built as follows: - * - * field digits states - * - * +----------+ - * | start | 1 ('%') SCE_HEX_RECSTART - * +----------+ - * | length | 2 SCE_HEX_BYTECOUNT, SCE_HEX_BYTECOUNT_WRONG - * +----------+ - * | type | 1 SCE_HEX_RECTYPE, (SCE_HEX_RECTYPE_UNKNOWN) - * +----------+ - * | checksum | 2 SCE_HEX_CHECKSUM, SCE_HEX_CHECKSUM_WRONG - * +----------+ - * | address | 9 SCE_HEX_DATAADDRESS, SCE_HEX_STARTADDRESS, (SCE_HEX_ADDRESSFIELD_UNKNOWN) - * +----------+ - * | data | 0..241 SCE_HEX_DATA_ODD, SCE_HEX_DATA_EVEN - * +----------+ - * - * - * General notes for all lexers - * =============================== - * - * - Depending on where the helper functions are invoked, some of them have to - * read beyond the current position. In case of malformed data (record too - * short), it has to be ensured that this either does not have bad influence - * or will be captured deliberately. - * - * - States in parentheses in the upper format descriptions indicate that they - * should not appear in a valid hex file. - * - * - State SCE_HEX_GARBAGE means garbage data after the intended end of the - * record, the line is too long then. This state is used in all lexers. - */ - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -// prototypes for general helper functions -static inline bool IsNewline(const int ch); -static int GetHexaNibble(char hd); -static int GetHexaChar(char hd1, char hd2); -static int GetHexaChar(Sci_PositionU pos, Accessor &styler); -static bool ForwardWithinLine(StyleContext &sc, Sci_Position nb = 1); -static bool PosInSameRecord(Sci_PositionU pos1, Sci_PositionU pos2, Accessor &styler); -static Sci_Position CountByteCount(Sci_PositionU startPos, Sci_Position uncountedDigits, Accessor &styler); -static int CalcChecksum(Sci_PositionU startPos, Sci_Position cnt, bool twosCompl, Accessor &styler); - -// prototypes for file format specific helper functions -static Sci_PositionU GetSrecRecStartPosition(Sci_PositionU pos, Accessor &styler); -static int GetSrecByteCount(Sci_PositionU recStartPos, Accessor &styler); -static Sci_Position CountSrecByteCount(Sci_PositionU recStartPos, Accessor &styler); -static int GetSrecAddressFieldSize(Sci_PositionU recStartPos, Accessor &styler); -static int GetSrecAddressFieldType(Sci_PositionU recStartPos, Accessor &styler); -static int GetSrecDataFieldType(Sci_PositionU recStartPos, Accessor &styler); -static Sci_Position GetSrecRequiredDataFieldSize(Sci_PositionU recStartPos, Accessor &styler); -static int GetSrecChecksum(Sci_PositionU recStartPos, Accessor &styler); -static int CalcSrecChecksum(Sci_PositionU recStartPos, Accessor &styler); - -static Sci_PositionU GetIHexRecStartPosition(Sci_PositionU pos, Accessor &styler); -static int GetIHexByteCount(Sci_PositionU recStartPos, Accessor &styler); -static Sci_Position CountIHexByteCount(Sci_PositionU recStartPos, Accessor &styler); -static int GetIHexAddressFieldType(Sci_PositionU recStartPos, Accessor &styler); -static int GetIHexDataFieldType(Sci_PositionU recStartPos, Accessor &styler); -static int GetIHexRequiredDataFieldSize(Sci_PositionU recStartPos, Accessor &styler); -static int GetIHexChecksum(Sci_PositionU recStartPos, Accessor &styler); -static int CalcIHexChecksum(Sci_PositionU recStartPos, Accessor &styler); - -static int GetTEHexDigitCount(Sci_PositionU recStartPos, Accessor &styler); -static Sci_Position CountTEHexDigitCount(Sci_PositionU recStartPos, Accessor &styler); -static int GetTEHexAddressFieldType(Sci_PositionU recStartPos, Accessor &styler); -static int GetTEHexChecksum(Sci_PositionU recStartPos, Accessor &styler); -static int CalcTEHexChecksum(Sci_PositionU recStartPos, Accessor &styler); - -static inline bool IsNewline(const int ch) -{ - return (ch == '\n' || ch == '\r'); -} - -static int GetHexaNibble(char hd) -{ - int hexValue = 0; - - if (hd >= '0' && hd <= '9') { - hexValue += hd - '0'; - } else if (hd >= 'A' && hd <= 'F') { - hexValue += hd - 'A' + 10; - } else if (hd >= 'a' && hd <= 'f') { - hexValue += hd - 'a' + 10; - } else { - return -1; - } - - return hexValue; -} - -static int GetHexaChar(char hd1, char hd2) -{ - int hexValue = 0; - - if (hd1 >= '0' && hd1 <= '9') { - hexValue += 16 * (hd1 - '0'); - } else if (hd1 >= 'A' && hd1 <= 'F') { - hexValue += 16 * (hd1 - 'A' + 10); - } else if (hd1 >= 'a' && hd1 <= 'f') { - hexValue += 16 * (hd1 - 'a' + 10); - } else { - return -1; - } - - if (hd2 >= '0' && hd2 <= '9') { - hexValue += hd2 - '0'; - } else if (hd2 >= 'A' && hd2 <= 'F') { - hexValue += hd2 - 'A' + 10; - } else if (hd2 >= 'a' && hd2 <= 'f') { - hexValue += hd2 - 'a' + 10; - } else { - return -1; - } - - return hexValue; -} - -static int GetHexaChar(Sci_PositionU pos, Accessor &styler) -{ - char highNibble, lowNibble; - - highNibble = styler.SafeGetCharAt(pos); - lowNibble = styler.SafeGetCharAt(pos + 1); - - return GetHexaChar(highNibble, lowNibble); -} - -// Forward characters, but abort (and return false) if hitting the line -// end. Return true if forwarding within the line was possible. -// Avoids influence on highlighting of the subsequent line if the current line -// is malformed (too short). -static bool ForwardWithinLine(StyleContext &sc, Sci_Position nb) -{ - for (Sci_Position i = 0; i < nb; i++) { - if (sc.atLineEnd) { - // line is too short - sc.SetState(SCE_HEX_DEFAULT); - sc.Forward(); - return false; - } else { - sc.Forward(); - } - } - - return true; -} - -// Checks whether the given positions are in the same record. -static bool PosInSameRecord(Sci_PositionU pos1, Sci_PositionU pos2, Accessor &styler) -{ - return styler.GetLine(pos1) == styler.GetLine(pos2); -} - -// Count the number of digit pairs from till end of record, ignoring -// digits. -// If the record is too short, a negative count may be returned. -static Sci_Position CountByteCount(Sci_PositionU startPos, Sci_Position uncountedDigits, Accessor &styler) -{ - Sci_Position cnt; - Sci_PositionU pos; - - pos = startPos; - - while (!IsNewline(styler.SafeGetCharAt(pos, '\n'))) { - pos++; - } - - // number of digits in this line minus number of digits of uncounted fields - cnt = static_cast(pos - startPos) - uncountedDigits; - - // Prepare round up if odd (digit pair incomplete), this way the byte - // count is considered to be valid if the checksum is incomplete. - if (cnt >= 0) { - cnt++; - } - - // digit pairs - cnt /= 2; - - return cnt; -} - -// Calculate the checksum of the record. -// is the position of the first character of the starting digit -// pair, is the number of digit pairs. -static int CalcChecksum(Sci_PositionU startPos, Sci_Position cnt, bool twosCompl, Accessor &styler) -{ - int cs = 0; - - for (Sci_PositionU pos = startPos; pos < startPos + cnt; pos += 2) { - int val = GetHexaChar(pos, styler); - - if (val < 0) { - return val; - } - - // overflow does not matter - cs += val; - } - - if (twosCompl) { - // low byte of two's complement - return -cs & 0xFF; - } else { - // low byte of one's complement - return ~cs & 0xFF; - } -} - -// Get the position of the record "start" field (first character in line) in -// the record around position . -static Sci_PositionU GetSrecRecStartPosition(Sci_PositionU pos, Accessor &styler) -{ - while (styler.SafeGetCharAt(pos) != 'S') { - pos--; - } - - return pos; -} - -// Get the value of the "byte count" field, it counts the number of bytes in -// the subsequent fields ("address", "data" and "checksum" fields). -static int GetSrecByteCount(Sci_PositionU recStartPos, Accessor &styler) -{ - int val; - - val = GetHexaChar(recStartPos + 2, styler); - if (val < 0) { - val = 0; - } - - return val; -} - -// Count the number of digit pairs for the "address", "data" and "checksum" -// fields in this record. Has to be equal to the "byte count" field value. -// If the record is too short, a negative count may be returned. -static Sci_Position CountSrecByteCount(Sci_PositionU recStartPos, Accessor &styler) -{ - return CountByteCount(recStartPos, 4, styler); -} - -// Get the size of the "address" field. -static int GetSrecAddressFieldSize(Sci_PositionU recStartPos, Accessor &styler) -{ - switch (styler.SafeGetCharAt(recStartPos + 1)) { - case '0': - case '1': - case '5': - case '9': - return 2; // 16 bit - - case '2': - case '6': - case '8': - return 3; // 24 bit - - case '3': - case '7': - return 4; // 32 bit - - default: - return 0; - } -} - -// Get the type of the "address" field content. -static int GetSrecAddressFieldType(Sci_PositionU recStartPos, Accessor &styler) -{ - switch (styler.SafeGetCharAt(recStartPos + 1)) { - case '0': - return SCE_HEX_NOADDRESS; - - case '1': - case '2': - case '3': - return SCE_HEX_DATAADDRESS; - - case '5': - case '6': - return SCE_HEX_RECCOUNT; - - case '7': - case '8': - case '9': - return SCE_HEX_STARTADDRESS; - - default: // handle possible format extension in the future - return SCE_HEX_ADDRESSFIELD_UNKNOWN; - } -} - -// Get the type of the "data" field content. -static int GetSrecDataFieldType(Sci_PositionU recStartPos, Accessor &styler) -{ - switch (styler.SafeGetCharAt(recStartPos + 1)) { - case '0': - case '1': - case '2': - case '3': - return SCE_HEX_DATA_ODD; - - case '5': - case '6': - case '7': - case '8': - case '9': - return SCE_HEX_DATA_EMPTY; - - default: // handle possible format extension in the future - return SCE_HEX_DATA_UNKNOWN; - } -} - -// Get the required size of the "data" field. Useless for block header and -// ordinary data records (type S0, S1, S2, S3), return the value calculated -// from the "byte count" and "address field" size in this case. -static Sci_Position GetSrecRequiredDataFieldSize(Sci_PositionU recStartPos, Accessor &styler) -{ - switch (styler.SafeGetCharAt(recStartPos + 1)) { - case '5': - case '6': - case '7': - case '8': - case '9': - return 0; - - default: - return GetSrecByteCount(recStartPos, styler) - - GetSrecAddressFieldSize(recStartPos, styler) - - 1; // -1 for checksum field - } -} - -// Get the value of the "checksum" field. -static int GetSrecChecksum(Sci_PositionU recStartPos, Accessor &styler) -{ - int byteCount; - - byteCount = GetSrecByteCount(recStartPos, styler); - - return GetHexaChar(recStartPos + 2 + byteCount * 2, styler); -} - -// Calculate the checksum of the record. -static int CalcSrecChecksum(Sci_PositionU recStartPos, Accessor &styler) -{ - Sci_Position byteCount; - - byteCount = GetSrecByteCount(recStartPos, styler); - - // sum over "byte count", "address" and "data" fields (6..510 digits) - return CalcChecksum(recStartPos + 2, byteCount * 2, false, styler); -} - -// Get the position of the record "start" field (first character in line) in -// the record around position . -static Sci_PositionU GetIHexRecStartPosition(Sci_PositionU pos, Accessor &styler) -{ - while (styler.SafeGetCharAt(pos) != ':') { - pos--; - } - - return pos; -} - -// Get the value of the "byte count" field, it counts the number of bytes in -// the "data" field. -static int GetIHexByteCount(Sci_PositionU recStartPos, Accessor &styler) -{ - int val; - - val = GetHexaChar(recStartPos + 1, styler); - if (val < 0) { - val = 0; - } - - return val; -} - -// Count the number of digit pairs for the "data" field in this record. Has to -// be equal to the "byte count" field value. -// If the record is too short, a negative count may be returned. -static Sci_Position CountIHexByteCount(Sci_PositionU recStartPos, Accessor &styler) -{ - return CountByteCount(recStartPos, 11, styler); -} - -// Get the type of the "address" field content. -static int GetIHexAddressFieldType(Sci_PositionU recStartPos, Accessor &styler) -{ - if (!PosInSameRecord(recStartPos, recStartPos + 7, styler)) { - // malformed (record too short) - // type cannot be determined - return SCE_HEX_ADDRESSFIELD_UNKNOWN; - } - - switch (GetHexaChar(recStartPos + 7, styler)) { - case 0x00: - return SCE_HEX_DATAADDRESS; - - case 0x01: - case 0x02: - case 0x03: - case 0x04: - case 0x05: - return SCE_HEX_NOADDRESS; - - default: // handle possible format extension in the future - return SCE_HEX_ADDRESSFIELD_UNKNOWN; - } -} - -// Get the type of the "data" field content. -static int GetIHexDataFieldType(Sci_PositionU recStartPos, Accessor &styler) -{ - switch (GetHexaChar(recStartPos + 7, styler)) { - case 0x00: - return SCE_HEX_DATA_ODD; - - case 0x01: - return SCE_HEX_DATA_EMPTY; - - case 0x02: - case 0x04: - return SCE_HEX_EXTENDEDADDRESS; - - case 0x03: - case 0x05: - return SCE_HEX_STARTADDRESS; - - default: // handle possible format extension in the future - return SCE_HEX_DATA_UNKNOWN; - } -} - -// Get the required size of the "data" field. Useless for an ordinary data -// record (type 00), return the "byte count" in this case. -static int GetIHexRequiredDataFieldSize(Sci_PositionU recStartPos, Accessor &styler) -{ - switch (GetHexaChar(recStartPos + 7, styler)) { - case 0x01: - return 0; - - case 0x02: - case 0x04: - return 2; - - case 0x03: - case 0x05: - return 4; - - default: - return GetIHexByteCount(recStartPos, styler); - } -} - -// Get the value of the "checksum" field. -static int GetIHexChecksum(Sci_PositionU recStartPos, Accessor &styler) -{ - int byteCount; - - byteCount = GetIHexByteCount(recStartPos, styler); - - return GetHexaChar(recStartPos + 9 + byteCount * 2, styler); -} - -// Calculate the checksum of the record. -static int CalcIHexChecksum(Sci_PositionU recStartPos, Accessor &styler) -{ - int byteCount; - - byteCount = GetIHexByteCount(recStartPos, styler); - - // sum over "byte count", "address", "type" and "data" fields (8..518 digits) - return CalcChecksum(recStartPos + 1, 8 + byteCount * 2, true, styler); -} - - -// Get the value of the "record length" field, it counts the number of digits in -// the record excluding the percent. -static int GetTEHexDigitCount(Sci_PositionU recStartPos, Accessor &styler) -{ - int val = GetHexaChar(recStartPos + 1, styler); - if (val < 0) - val = 0; - - return val; -} - -// Count the number of digits in this record. Has to -// be equal to the "record length" field value. -static Sci_Position CountTEHexDigitCount(Sci_PositionU recStartPos, Accessor &styler) -{ - Sci_PositionU pos; - - pos = recStartPos+1; - - while (!IsNewline(styler.SafeGetCharAt(pos, '\n'))) { - pos++; - } - - return static_cast(pos - (recStartPos+1)); -} - -// Get the type of the "address" field content. -static int GetTEHexAddressFieldType(Sci_PositionU recStartPos, Accessor &styler) -{ - switch (styler.SafeGetCharAt(recStartPos + 3)) { - case '6': - return SCE_HEX_DATAADDRESS; - - case '8': - return SCE_HEX_STARTADDRESS; - - default: // handle possible format extension in the future - return SCE_HEX_ADDRESSFIELD_UNKNOWN; - } -} - -// Get the value of the "checksum" field. -static int GetTEHexChecksum(Sci_PositionU recStartPos, Accessor &styler) -{ - return GetHexaChar(recStartPos+4, styler); -} - -// Calculate the checksum of the record (excluding the checksum field). -static int CalcTEHexChecksum(Sci_PositionU recStartPos, Accessor &styler) -{ - Sci_PositionU pos = recStartPos +1; - Sci_PositionU length = GetTEHexDigitCount(recStartPos, styler); - - int cs = GetHexaNibble(styler.SafeGetCharAt(pos++));//length - cs += GetHexaNibble(styler.SafeGetCharAt(pos++));//length - - cs += GetHexaNibble(styler.SafeGetCharAt(pos++));//type - - pos += 2;// jump over CS field - - for (; pos <= recStartPos + length; ++pos) { - int val = GetHexaNibble(styler.SafeGetCharAt(pos)); - - if (val < 0) { - return val; - } - - // overflow does not matter - cs += val; - } - - // low byte - return cs & 0xFF; - -} - -static void ColouriseSrecDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, WordList *[], Accessor &styler) -{ - StyleContext sc(startPos, length, initStyle, styler); - - while (sc.More()) { - Sci_PositionU recStartPos; - Sci_Position reqByteCount; - Sci_Position dataFieldSize; - int byteCount, addrFieldSize, addrFieldType, dataFieldType; - int cs1, cs2; - - switch (sc.state) { - case SCE_HEX_DEFAULT: - if (sc.atLineStart && sc.Match('S')) { - sc.SetState(SCE_HEX_RECSTART); - } - ForwardWithinLine(sc); - break; - - case SCE_HEX_RECSTART: - recStartPos = sc.currentPos - 1; - addrFieldType = GetSrecAddressFieldType(recStartPos, styler); - - if (addrFieldType == SCE_HEX_ADDRESSFIELD_UNKNOWN) { - sc.SetState(SCE_HEX_RECTYPE_UNKNOWN); - } else { - sc.SetState(SCE_HEX_RECTYPE); - } - - ForwardWithinLine(sc); - break; - - case SCE_HEX_RECTYPE: - case SCE_HEX_RECTYPE_UNKNOWN: - recStartPos = sc.currentPos - 2; - byteCount = GetSrecByteCount(recStartPos, styler); - reqByteCount = GetSrecAddressFieldSize(recStartPos, styler) - + GetSrecRequiredDataFieldSize(recStartPos, styler) - + 1; // +1 for checksum field - - if (byteCount == CountSrecByteCount(recStartPos, styler) - && byteCount == reqByteCount) { - sc.SetState(SCE_HEX_BYTECOUNT); - } else { - sc.SetState(SCE_HEX_BYTECOUNT_WRONG); - } - - ForwardWithinLine(sc, 2); - break; - - case SCE_HEX_BYTECOUNT: - case SCE_HEX_BYTECOUNT_WRONG: - recStartPos = sc.currentPos - 4; - addrFieldSize = GetSrecAddressFieldSize(recStartPos, styler); - addrFieldType = GetSrecAddressFieldType(recStartPos, styler); - - sc.SetState(addrFieldType); - ForwardWithinLine(sc, addrFieldSize * 2); - break; - - case SCE_HEX_NOADDRESS: - case SCE_HEX_DATAADDRESS: - case SCE_HEX_RECCOUNT: - case SCE_HEX_STARTADDRESS: - case SCE_HEX_ADDRESSFIELD_UNKNOWN: - recStartPos = GetSrecRecStartPosition(sc.currentPos, styler); - dataFieldType = GetSrecDataFieldType(recStartPos, styler); - - // Using the required size here if possible has the effect that the - // checksum is highlighted at a fixed position after this field for - // specific record types, independent on the "byte count" value. - dataFieldSize = GetSrecRequiredDataFieldSize(recStartPos, styler); - - sc.SetState(dataFieldType); - - if (dataFieldType == SCE_HEX_DATA_ODD) { - for (int i = 0; i < dataFieldSize * 2; i++) { - if ((i & 0x3) == 0) { - sc.SetState(SCE_HEX_DATA_ODD); - } else if ((i & 0x3) == 2) { - sc.SetState(SCE_HEX_DATA_EVEN); - } - - if (!ForwardWithinLine(sc)) { - break; - } - } - } else { - ForwardWithinLine(sc, dataFieldSize * 2); - } - break; - - case SCE_HEX_DATA_ODD: - case SCE_HEX_DATA_EVEN: - case SCE_HEX_DATA_EMPTY: - case SCE_HEX_DATA_UNKNOWN: - recStartPos = GetSrecRecStartPosition(sc.currentPos, styler); - cs1 = CalcSrecChecksum(recStartPos, styler); - cs2 = GetSrecChecksum(recStartPos, styler); - - if (cs1 != cs2 || cs1 < 0 || cs2 < 0) { - sc.SetState(SCE_HEX_CHECKSUM_WRONG); - } else { - sc.SetState(SCE_HEX_CHECKSUM); - } - - ForwardWithinLine(sc, 2); - break; - - case SCE_HEX_CHECKSUM: - case SCE_HEX_CHECKSUM_WRONG: - case SCE_HEX_GARBAGE: - // record finished or line too long - sc.SetState(SCE_HEX_GARBAGE); - ForwardWithinLine(sc); - break; - - default: - // prevent endless loop in faulty state - sc.SetState(SCE_HEX_DEFAULT); - break; - } - } - sc.Complete(); -} - -static void ColouriseIHexDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, WordList *[], Accessor &styler) -{ - StyleContext sc(startPos, length, initStyle, styler); - - while (sc.More()) { - Sci_PositionU recStartPos; - int byteCount, addrFieldType, dataFieldSize, dataFieldType; - int cs1, cs2; - - switch (sc.state) { - case SCE_HEX_DEFAULT: - if (sc.atLineStart && sc.Match(':')) { - sc.SetState(SCE_HEX_RECSTART); - } - ForwardWithinLine(sc); - break; - - case SCE_HEX_RECSTART: - recStartPos = sc.currentPos - 1; - byteCount = GetIHexByteCount(recStartPos, styler); - dataFieldSize = GetIHexRequiredDataFieldSize(recStartPos, styler); - - if (byteCount == CountIHexByteCount(recStartPos, styler) - && byteCount == dataFieldSize) { - sc.SetState(SCE_HEX_BYTECOUNT); - } else { - sc.SetState(SCE_HEX_BYTECOUNT_WRONG); - } - - ForwardWithinLine(sc, 2); - break; - - case SCE_HEX_BYTECOUNT: - case SCE_HEX_BYTECOUNT_WRONG: - recStartPos = sc.currentPos - 3; - addrFieldType = GetIHexAddressFieldType(recStartPos, styler); - - sc.SetState(addrFieldType); - ForwardWithinLine(sc, 4); - break; - - case SCE_HEX_NOADDRESS: - case SCE_HEX_DATAADDRESS: - case SCE_HEX_ADDRESSFIELD_UNKNOWN: - recStartPos = sc.currentPos - 7; - addrFieldType = GetIHexAddressFieldType(recStartPos, styler); - - if (addrFieldType == SCE_HEX_ADDRESSFIELD_UNKNOWN) { - sc.SetState(SCE_HEX_RECTYPE_UNKNOWN); - } else { - sc.SetState(SCE_HEX_RECTYPE); - } - - ForwardWithinLine(sc, 2); - break; - - case SCE_HEX_RECTYPE: - case SCE_HEX_RECTYPE_UNKNOWN: - recStartPos = sc.currentPos - 9; - dataFieldType = GetIHexDataFieldType(recStartPos, styler); - - // Using the required size here if possible has the effect that the - // checksum is highlighted at a fixed position after this field for - // specific record types, independent on the "byte count" value. - dataFieldSize = GetIHexRequiredDataFieldSize(recStartPos, styler); - - sc.SetState(dataFieldType); - - if (dataFieldType == SCE_HEX_DATA_ODD) { - for (int i = 0; i < dataFieldSize * 2; i++) { - if ((i & 0x3) == 0) { - sc.SetState(SCE_HEX_DATA_ODD); - } else if ((i & 0x3) == 2) { - sc.SetState(SCE_HEX_DATA_EVEN); - } - - if (!ForwardWithinLine(sc)) { - break; - } - } - } else { - ForwardWithinLine(sc, dataFieldSize * 2); - } - break; - - case SCE_HEX_DATA_ODD: - case SCE_HEX_DATA_EVEN: - case SCE_HEX_DATA_EMPTY: - case SCE_HEX_EXTENDEDADDRESS: - case SCE_HEX_STARTADDRESS: - case SCE_HEX_DATA_UNKNOWN: - recStartPos = GetIHexRecStartPosition(sc.currentPos, styler); - cs1 = CalcIHexChecksum(recStartPos, styler); - cs2 = GetIHexChecksum(recStartPos, styler); - - if (cs1 != cs2 || cs1 < 0 || cs2 < 0) { - sc.SetState(SCE_HEX_CHECKSUM_WRONG); - } else { - sc.SetState(SCE_HEX_CHECKSUM); - } - - ForwardWithinLine(sc, 2); - break; - - case SCE_HEX_CHECKSUM: - case SCE_HEX_CHECKSUM_WRONG: - case SCE_HEX_GARBAGE: - // record finished or line too long - sc.SetState(SCE_HEX_GARBAGE); - ForwardWithinLine(sc); - break; - - default: - // prevent endless loop in faulty state - sc.SetState(SCE_HEX_DEFAULT); - break; - } - } - sc.Complete(); -} - -static void FoldIHexDoc(Sci_PositionU startPos, Sci_Position length, int, WordList *[], Accessor &styler) -{ - Sci_PositionU endPos = startPos + length; - - Sci_Position lineCurrent = styler.GetLine(startPos); - int levelCurrent = SC_FOLDLEVELBASE; - if (lineCurrent > 0) - levelCurrent = styler.LevelAt(lineCurrent - 1); - - Sci_PositionU lineStartNext = styler.LineStart(lineCurrent + 1); - int levelNext = SC_FOLDLEVELBASE; // default if no specific line found - - for (Sci_PositionU i = startPos; i < endPos; i++) { - bool atEOL = i == (lineStartNext - 1); - int style = styler.StyleAt(i); - - // search for specific lines - if (style == SCE_HEX_EXTENDEDADDRESS) { - // extended addres record - levelNext = SC_FOLDLEVELBASE | SC_FOLDLEVELHEADERFLAG; - } else if (style == SCE_HEX_DATAADDRESS - || (style == SCE_HEX_DEFAULT - && i == (Sci_PositionU)styler.LineStart(lineCurrent))) { - // data record or no record start code at all - if (levelCurrent & SC_FOLDLEVELHEADERFLAG) { - levelNext = SC_FOLDLEVELBASE + 1; - } else { - // continue level 0 or 1, no fold point - levelNext = levelCurrent; - } - } - - if (atEOL || (i == endPos - 1)) { - styler.SetLevel(lineCurrent, levelNext); - - lineCurrent++; - lineStartNext = styler.LineStart(lineCurrent + 1); - levelCurrent = levelNext; - levelNext = SC_FOLDLEVELBASE; - } - } -} - -static void ColouriseTEHexDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, WordList *[], Accessor &styler) -{ - StyleContext sc(startPos, length, initStyle, styler); - - while (sc.More()) { - Sci_PositionU recStartPos; - int digitCount, addrFieldType; - int cs1, cs2; - - switch (sc.state) { - case SCE_HEX_DEFAULT: - if (sc.atLineStart && sc.Match('%')) { - sc.SetState(SCE_HEX_RECSTART); - } - ForwardWithinLine(sc); - break; - - case SCE_HEX_RECSTART: - - recStartPos = sc.currentPos - 1; - - if (GetTEHexDigitCount(recStartPos, styler) == CountTEHexDigitCount(recStartPos, styler)) { - sc.SetState(SCE_HEX_BYTECOUNT); - } else { - sc.SetState(SCE_HEX_BYTECOUNT_WRONG); - } - - ForwardWithinLine(sc, 2); - break; - - case SCE_HEX_BYTECOUNT: - case SCE_HEX_BYTECOUNT_WRONG: - recStartPos = sc.currentPos - 3; - addrFieldType = GetTEHexAddressFieldType(recStartPos, styler); - - if (addrFieldType == SCE_HEX_ADDRESSFIELD_UNKNOWN) { - sc.SetState(SCE_HEX_RECTYPE_UNKNOWN); - } else { - sc.SetState(SCE_HEX_RECTYPE); - } - - ForwardWithinLine(sc); - break; - - case SCE_HEX_RECTYPE: - case SCE_HEX_RECTYPE_UNKNOWN: - recStartPos = sc.currentPos - 4; - cs1 = CalcTEHexChecksum(recStartPos, styler); - cs2 = GetTEHexChecksum(recStartPos, styler); - - if (cs1 != cs2 || cs1 < 0 || cs2 < 0) { - sc.SetState(SCE_HEX_CHECKSUM_WRONG); - } else { - sc.SetState(SCE_HEX_CHECKSUM); - } - - ForwardWithinLine(sc, 2); - break; - - - case SCE_HEX_CHECKSUM: - case SCE_HEX_CHECKSUM_WRONG: - recStartPos = sc.currentPos - 6; - addrFieldType = GetTEHexAddressFieldType(recStartPos, styler); - - sc.SetState(addrFieldType); - ForwardWithinLine(sc, 9); - break; - - case SCE_HEX_DATAADDRESS: - case SCE_HEX_STARTADDRESS: - case SCE_HEX_ADDRESSFIELD_UNKNOWN: - recStartPos = sc.currentPos - 15; - digitCount = GetTEHexDigitCount(recStartPos, styler) - 14; - - sc.SetState(SCE_HEX_DATA_ODD); - - for (int i = 0; i < digitCount; i++) { - if ((i & 0x3) == 0) { - sc.SetState(SCE_HEX_DATA_ODD); - } else if ((i & 0x3) == 2) { - sc.SetState(SCE_HEX_DATA_EVEN); - } - - if (!ForwardWithinLine(sc)) { - break; - } - } - break; - - case SCE_HEX_DATA_ODD: - case SCE_HEX_DATA_EVEN: - case SCE_HEX_GARBAGE: - // record finished or line too long - sc.SetState(SCE_HEX_GARBAGE); - ForwardWithinLine(sc); - break; - - default: - // prevent endless loop in faulty state - sc.SetState(SCE_HEX_DEFAULT); - break; - } - } - sc.Complete(); -} - -LexerModule lmSrec(SCLEX_SREC, ColouriseSrecDoc, "srec", 0, NULL); -LexerModule lmIHex(SCLEX_IHEX, ColouriseIHexDoc, "ihex", FoldIHexDoc, NULL); -LexerModule lmTEHex(SCLEX_TEHEX, ColouriseTEHexDoc, "tehex", 0, NULL); diff --git a/libs/qscintilla/scintilla/lexers/LexIndent.cpp b/libs/qscintilla/scintilla/lexers/LexIndent.cpp deleted file mode 100644 index 053bdd92..00000000 --- a/libs/qscintilla/scintilla/lexers/LexIndent.cpp +++ /dev/null @@ -1,71 +0,0 @@ -// Scintilla source code edit control -/** @file LexIndent.cxx - ** Lexer for no language. Used for indentation-based folding of files. - **/ -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static void ColouriseIndentDoc(Sci_PositionU startPos, Sci_Position length, int, WordList *[], - Accessor &styler) { - // Indent language means all style bytes are 0 so just mark the end - no need to fill in. - if (length > 0) { - styler.StartAt(startPos + length - 1); - styler.StartSegment(startPos + length - 1); - styler.ColourTo(startPos + length - 1, 0); - } -} - -static void FoldIndentDoc(Sci_PositionU startPos, Sci_Position length, int /* initStyle */, WordList *[], Accessor &styler) { - int visibleCharsCurrent, visibleCharsNext; - int levelCurrent, levelNext; - Sci_PositionU i, lineEnd; - Sci_PositionU lengthDoc = startPos + length; - Sci_Position lineCurrent = styler.GetLine(startPos); - - i = styler.LineStart(lineCurrent ); - lineEnd = styler.LineStart(lineCurrent+1)-1; - if(lineEnd>=lengthDoc) lineEnd = lengthDoc-1; - while(styler[lineEnd]=='\n' || styler[lineEnd]=='\r') lineEnd--; - for(visibleCharsCurrent=0, levelCurrent=SC_FOLDLEVELBASE; !visibleCharsCurrent && i<=lineEnd; i++){ - if(isspacechar(styler[i])) levelCurrent++; - else visibleCharsCurrent=1; - } - - for(; i=lengthDoc) lineEnd = lengthDoc-1; - while(styler[lineEnd]=='\n' || styler[lineEnd]=='\r') lineEnd--; - for(visibleCharsNext=0, levelNext=SC_FOLDLEVELBASE; !visibleCharsNext && i<=lineEnd; i++){ - if(isspacechar(styler[i])) levelNext++; - else visibleCharsNext=1; - } - int lev = levelCurrent; - if(!visibleCharsCurrent) lev |= SC_FOLDLEVELWHITEFLAG; - else if(levelNext > levelCurrent) lev |= SC_FOLDLEVELHEADERFLAG; - styler.SetLevel(lineCurrent, lev); - levelCurrent = levelNext; - visibleCharsCurrent = visibleCharsNext; - } -} - -LexerModule lmIndent(SCLEX_INDENT, ColouriseIndentDoc, "indent", FoldIndentDoc); diff --git a/libs/qscintilla/scintilla/lexers/LexInno.cpp b/libs/qscintilla/scintilla/lexers/LexInno.cpp deleted file mode 100644 index 5d01c058..00000000 --- a/libs/qscintilla/scintilla/lexers/LexInno.cpp +++ /dev/null @@ -1,288 +0,0 @@ -// Scintilla source code edit control -/** @file LexInno.cxx - ** Lexer for Inno Setup scripts. - **/ -// Written by Friedrich Vedder , using code from LexOthers.cxx. -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static void ColouriseInnoDoc(Sci_PositionU startPos, Sci_Position length, int, WordList *keywordLists[], Accessor &styler) { - int state = SCE_INNO_DEFAULT; - char chPrev; - char ch = 0; - char chNext = styler[startPos]; - Sci_Position lengthDoc = startPos + length; - char *buffer = new char[length+1]; - Sci_Position bufferCount = 0; - bool isBOL, isEOL, isWS, isBOLWS = 0; - bool isCStyleComment = false; - - WordList §ionKeywords = *keywordLists[0]; - WordList &standardKeywords = *keywordLists[1]; - WordList ¶meterKeywords = *keywordLists[2]; - WordList &preprocessorKeywords = *keywordLists[3]; - WordList &pascalKeywords = *keywordLists[4]; - WordList &userKeywords = *keywordLists[5]; - - Sci_Position curLine = styler.GetLine(startPos); - int curLineState = curLine > 0 ? styler.GetLineState(curLine - 1) : 0; - bool isCode = (curLineState == 1); - - // Go through all provided text segment - // using the hand-written state machine shown below - styler.StartAt(startPos); - styler.StartSegment(startPos); - for (Sci_Position i = startPos; i < lengthDoc; i++) { - chPrev = ch; - ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - - if (styler.IsLeadByte(ch)) { - chNext = styler.SafeGetCharAt(i + 2); - i++; - continue; - } - - isBOL = (chPrev == 0) || (chPrev == '\n') || (chPrev == '\r' && ch != '\n'); - isBOLWS = (isBOL) ? 1 : (isBOLWS && (chPrev == ' ' || chPrev == '\t')); - isEOL = (ch == '\n' || ch == '\r'); - isWS = (ch == ' ' || ch == '\t'); - - if ((ch == '\r' && chNext != '\n') || (ch == '\n')) { - // Remember the line state for future incremental lexing - curLine = styler.GetLine(i); - styler.SetLineState(curLine, (isCode ? 1 : 0)); - } - - switch(state) { - case SCE_INNO_DEFAULT: - if (!isCode && ch == ';' && isBOLWS) { - // Start of a comment - state = SCE_INNO_COMMENT; - } else if (ch == '[' && isBOLWS) { - // Start of a section name - bufferCount = 0; - state = SCE_INNO_SECTION; - } else if (ch == '#' && isBOLWS) { - // Start of a preprocessor directive - state = SCE_INNO_PREPROC; - } else if (!isCode && ch == '{' && chNext != '{' && chPrev != '{') { - // Start of an inline expansion - state = SCE_INNO_INLINE_EXPANSION; - } else if (isCode && (ch == '{' || (ch == '(' && chNext == '*'))) { - // Start of a Pascal comment - state = SCE_INNO_COMMENT_PASCAL; - isCStyleComment = false; - } else if (isCode && ch == '/' && chNext == '/') { - // Apparently, C-style comments are legal, too - state = SCE_INNO_COMMENT_PASCAL; - isCStyleComment = true; - } else if (ch == '"') { - // Start of a double-quote string - state = SCE_INNO_STRING_DOUBLE; - } else if (ch == '\'') { - // Start of a single-quote string - state = SCE_INNO_STRING_SINGLE; - } else if (IsASCII(ch) && (isalpha(ch) || (ch == '_'))) { - // Start of an identifier - bufferCount = 0; - buffer[bufferCount++] = static_cast(tolower(ch)); - state = SCE_INNO_IDENTIFIER; - } else { - // Style it the default style - styler.ColourTo(i,SCE_INNO_DEFAULT); - } - break; - - case SCE_INNO_COMMENT: - if (isEOL) { - state = SCE_INNO_DEFAULT; - styler.ColourTo(i,SCE_INNO_COMMENT); - } - break; - - case SCE_INNO_IDENTIFIER: - if (IsASCII(ch) && (isalnum(ch) || (ch == '_'))) { - buffer[bufferCount++] = static_cast(tolower(ch)); - } else { - state = SCE_INNO_DEFAULT; - buffer[bufferCount] = '\0'; - - // Check if the buffer contains a keyword - if (!isCode && standardKeywords.InList(buffer)) { - styler.ColourTo(i-1,SCE_INNO_KEYWORD); - } else if (!isCode && parameterKeywords.InList(buffer)) { - styler.ColourTo(i-1,SCE_INNO_PARAMETER); - } else if (isCode && pascalKeywords.InList(buffer)) { - styler.ColourTo(i-1,SCE_INNO_KEYWORD_PASCAL); - } else if (!isCode && userKeywords.InList(buffer)) { - styler.ColourTo(i-1,SCE_INNO_KEYWORD_USER); - } else { - styler.ColourTo(i-1,SCE_INNO_DEFAULT); - } - - // Push back the faulty character - chNext = styler[i--]; - ch = chPrev; - } - break; - - case SCE_INNO_SECTION: - if (ch == ']') { - state = SCE_INNO_DEFAULT; - buffer[bufferCount] = '\0'; - - // Check if the buffer contains a section name - if (sectionKeywords.InList(buffer)) { - styler.ColourTo(i,SCE_INNO_SECTION); - isCode = !CompareCaseInsensitive(buffer, "code"); - } else { - styler.ColourTo(i,SCE_INNO_DEFAULT); - } - } else if (IsASCII(ch) && (isalnum(ch) || (ch == '_'))) { - buffer[bufferCount++] = static_cast(tolower(ch)); - } else { - state = SCE_INNO_DEFAULT; - styler.ColourTo(i,SCE_INNO_DEFAULT); - } - break; - - case SCE_INNO_PREPROC: - if (isWS || isEOL) { - if (IsASCII(chPrev) && isalpha(chPrev)) { - state = SCE_INNO_DEFAULT; - buffer[bufferCount] = '\0'; - - // Check if the buffer contains a preprocessor directive - if (preprocessorKeywords.InList(buffer)) { - styler.ColourTo(i-1,SCE_INNO_PREPROC); - } else { - styler.ColourTo(i-1,SCE_INNO_DEFAULT); - } - - // Push back the faulty character - chNext = styler[i--]; - ch = chPrev; - } - } else if (IsASCII(ch) && isalpha(ch)) { - if (chPrev == '#' || chPrev == ' ' || chPrev == '\t') - bufferCount = 0; - buffer[bufferCount++] = static_cast(tolower(ch)); - } - break; - - case SCE_INNO_STRING_DOUBLE: - if (ch == '"' || isEOL) { - state = SCE_INNO_DEFAULT; - styler.ColourTo(i,SCE_INNO_STRING_DOUBLE); - } - break; - - case SCE_INNO_STRING_SINGLE: - if (ch == '\'' || isEOL) { - state = SCE_INNO_DEFAULT; - styler.ColourTo(i,SCE_INNO_STRING_SINGLE); - } - break; - - case SCE_INNO_INLINE_EXPANSION: - if (ch == '}') { - state = SCE_INNO_DEFAULT; - styler.ColourTo(i,SCE_INNO_INLINE_EXPANSION); - } else if (isEOL) { - state = SCE_INNO_DEFAULT; - styler.ColourTo(i,SCE_INNO_DEFAULT); - } - break; - - case SCE_INNO_COMMENT_PASCAL: - if (isCStyleComment) { - if (isEOL) { - state = SCE_INNO_DEFAULT; - styler.ColourTo(i,SCE_INNO_COMMENT_PASCAL); - } - } else { - if (ch == '}' || (ch == ')' && chPrev == '*')) { - state = SCE_INNO_DEFAULT; - styler.ColourTo(i,SCE_INNO_COMMENT_PASCAL); - } else if (isEOL) { - state = SCE_INNO_DEFAULT; - styler.ColourTo(i,SCE_INNO_DEFAULT); - } - } - break; - - } - } - delete []buffer; -} - -static const char * const innoWordListDesc[] = { - "Sections", - "Keywords", - "Parameters", - "Preprocessor directives", - "Pascal keywords", - "User defined keywords", - 0 -}; - -static void FoldInnoDoc(Sci_PositionU startPos, Sci_Position length, int, WordList *[], Accessor &styler) { - Sci_PositionU endPos = startPos + length; - char chNext = styler[startPos]; - - Sci_Position lineCurrent = styler.GetLine(startPos); - - bool sectionFlag = false; - int levelPrev = lineCurrent > 0 ? styler.LevelAt(lineCurrent - 1) : SC_FOLDLEVELBASE; - int level; - - for (Sci_PositionU i = startPos; i < endPos; i++) { - char ch = chNext; - chNext = styler[i+1]; - bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n'); - int style = styler.StyleAt(i); - - if (style == SCE_INNO_SECTION) - sectionFlag = true; - - if (atEOL || i == endPos - 1) { - if (sectionFlag) { - level = SC_FOLDLEVELBASE | SC_FOLDLEVELHEADERFLAG; - if (level == levelPrev) - styler.SetLevel(lineCurrent - 1, levelPrev & ~SC_FOLDLEVELHEADERFLAG); - } else { - level = levelPrev & SC_FOLDLEVELNUMBERMASK; - if (levelPrev & SC_FOLDLEVELHEADERFLAG) - level++; - } - - styler.SetLevel(lineCurrent, level); - - levelPrev = level; - lineCurrent++; - sectionFlag = false; - } - } -} - -LexerModule lmInno(SCLEX_INNOSETUP, ColouriseInnoDoc, "inno", FoldInnoDoc, innoWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexKVIrc.cpp b/libs/qscintilla/scintilla/lexers/LexKVIrc.cpp deleted file mode 100644 index 0cae2a23..00000000 --- a/libs/qscintilla/scintilla/lexers/LexKVIrc.cpp +++ /dev/null @@ -1,471 +0,0 @@ -// Scintilla source code edit control -/** @file LexKVIrc.cxx - ** Lexer for KVIrc script. - **/ -// Copyright 2013 by OmegaPhil , based in -// part from LexPython Copyright 1998-2002 by Neil Hodgson -// and LexCmake Copyright 2007 by Cristian Adam - -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - - -/* KVIrc Script syntactic rules: http://www.kvirc.net/doc/doc_syntactic_rules.html */ - -/* Utility functions */ -static inline bool IsAWordChar(int ch) { - - /* Keyword list includes modules, i.e. words including '.', and - * alias namespaces include ':' */ - return (ch < 0x80) && (isalnum(ch) || ch == '_' || ch == '.' - || ch == ':'); -} -static inline bool IsAWordStart(int ch) { - - /* Functions (start with '$') are treated separately to keywords */ - return (ch < 0x80) && (isalnum(ch) || ch == '_' ); -} - -/* Interface function called by Scintilla to request some text to be - syntax highlighted */ -static void ColouriseKVIrcDoc(Sci_PositionU startPos, Sci_Position length, - int initStyle, WordList *keywordlists[], - Accessor &styler) -{ - /* Fetching style context */ - StyleContext sc(startPos, length, initStyle, styler); - - /* Accessing keywords and function-marking keywords */ - WordList &keywords = *keywordlists[0]; - WordList &functionKeywords = *keywordlists[1]; - - /* Looping for all characters - only automatically moving forward - * when asked for (transitions leaving strings and keywords do this - * already) */ - bool next = true; - for( ; sc.More(); next ? sc.Forward() : (void)0 ) - { - /* Resetting next */ - next = true; - - /* Dealing with different states */ - switch (sc.state) - { - case SCE_KVIRC_DEFAULT: - - /* Detecting single-line comments - * Unfortunately KVIrc script allows raw '#' to be used, and appending # to an array returns - * its length... - * Going for a compromise where single line comments not - * starting on a newline are allowed in all cases except - * when they are preceeded with an opening bracket or comma - * (this will probably be the most common style a valid - * string-less channel name will be used with), with the - * array length case included - */ - if ( - (sc.ch == '#' && sc.atLineStart) || - (sc.ch == '#' && ( - sc.chPrev != '(' && sc.chPrev != ',' && - sc.chPrev != ']') - ) - ) - { - sc.SetState(SCE_KVIRC_COMMENT); - break; - } - - /* Detecting multi-line comments */ - if (sc.Match('/', '*')) - { - sc.SetState(SCE_KVIRC_COMMENTBLOCK); - break; - } - - /* Detecting strings */ - if (sc.ch == '"') - { - sc.SetState(SCE_KVIRC_STRING); - break; - } - - /* Detecting functions */ - if (sc.ch == '$') - { - sc.SetState(SCE_KVIRC_FUNCTION); - break; - } - - /* Detecting variables */ - if (sc.ch == '%') - { - sc.SetState(SCE_KVIRC_VARIABLE); - break; - } - - /* Detecting numbers - isdigit is unsafe as it does not - * validate, use CharacterSet.h functions */ - if (IsADigit(sc.ch)) - { - sc.SetState(SCE_KVIRC_NUMBER); - break; - } - - /* Detecting words */ - if (IsAWordStart(sc.ch) && IsAWordChar(sc.chNext)) - { - sc.SetState(SCE_KVIRC_WORD); - sc.Forward(); - break; - } - - /* Detecting operators */ - if (isoperator(sc.ch)) - { - sc.SetState(SCE_KVIRC_OPERATOR); - break; - } - - break; - - case SCE_KVIRC_COMMENT: - - /* Breaking out of single line comment when a newline - * is introduced */ - if (sc.ch == '\r' || sc.ch == '\n') - { - sc.SetState(SCE_KVIRC_DEFAULT); - break; - } - - break; - - case SCE_KVIRC_COMMENTBLOCK: - - /* Detecting end of multi-line comment */ - if (sc.Match('*', '/')) - { - // Moving the current position forward two characters - // so that '*/' is included in the comment - sc.Forward(2); - sc.SetState(SCE_KVIRC_DEFAULT); - - /* Comment has been exited and the current position - * moved forward, yet the new current character - * has yet to be defined - loop without moving - * forward again */ - next = false; - break; - } - - break; - - case SCE_KVIRC_STRING: - - /* Detecting end of string - closing speechmarks */ - if (sc.ch == '"') - { - /* Allowing escaped speechmarks to pass */ - if (sc.chPrev == '\\') - break; - - /* Moving the current position forward to capture the - * terminating speechmarks, and ending string */ - sc.ForwardSetState(SCE_KVIRC_DEFAULT); - - /* String has been exited and the current position - * moved forward, yet the new current character - * has yet to be defined - loop without moving - * forward again */ - next = false; - break; - } - - /* Functions and variables are now highlighted in strings - * Detecting functions */ - if (sc.ch == '$') - { - /* Allowing escaped functions to pass */ - if (sc.chPrev == '\\') - break; - - sc.SetState(SCE_KVIRC_STRING_FUNCTION); - break; - } - - /* Detecting variables */ - if (sc.ch == '%') - { - /* Allowing escaped variables to pass */ - if (sc.chPrev == '\\') - break; - - sc.SetState(SCE_KVIRC_STRING_VARIABLE); - break; - } - - /* Breaking out of a string when a newline is introduced */ - if (sc.ch == '\r' || sc.ch == '\n') - { - /* Allowing escaped newlines */ - if (sc.chPrev == '\\') - break; - - sc.SetState(SCE_KVIRC_DEFAULT); - break; - } - - break; - - case SCE_KVIRC_FUNCTION: - case SCE_KVIRC_VARIABLE: - - /* Detecting the end of a function/variable (word) */ - if (!IsAWordChar(sc.ch)) - { - sc.SetState(SCE_KVIRC_DEFAULT); - - /* Word has been exited yet the current character - * has yet to be defined - loop without moving - * forward again */ - next = false; - break; - } - - break; - - case SCE_KVIRC_STRING_FUNCTION: - case SCE_KVIRC_STRING_VARIABLE: - - /* A function or variable in a string - * Detecting the end of a function/variable (word) */ - if (!IsAWordChar(sc.ch)) - { - sc.SetState(SCE_KVIRC_STRING); - - /* Word has been exited yet the current character - * has yet to be defined - loop without moving - * forward again */ - next = false; - break; - } - - break; - - case SCE_KVIRC_NUMBER: - - /* Detecting the end of a number */ - if (!IsADigit(sc.ch)) - { - sc.SetState(SCE_KVIRC_DEFAULT); - - /* Number has been exited yet the current character - * has yet to be defined - loop without moving - * forward */ - next = false; - break; - } - - break; - - case SCE_KVIRC_OPERATOR: - - /* Because '%' is an operator but is also the marker for - * a variable, I need to always treat operators as single - * character strings and therefore redo their detection - * after every character */ - sc.SetState(SCE_KVIRC_DEFAULT); - - /* Operator has been exited yet the current character - * has yet to be defined - loop without moving - * forward */ - next = false; - break; - - case SCE_KVIRC_WORD: - - /* Detecting the end of a word */ - if (!IsAWordChar(sc.ch)) - { - /* Checking if the word was actually a keyword - - * fetching the current word, NULL-terminated like - * the keyword list */ - char s[100]; - Sci_Position wordLen = sc.currentPos - styler.GetStartSegment(); - if (wordLen > 99) - wordLen = 99; /* Include '\0' in buffer */ - Sci_Position i; - for( i = 0; i < wordLen; ++i ) - { - s[i] = styler.SafeGetCharAt( styler.GetStartSegment() + i ); - } - s[wordLen] = '\0'; - - /* Actually detecting keywords and fixing the state */ - if (keywords.InList(s)) - { - /* The SetState call actually commits the - * previous keyword state */ - sc.ChangeState(SCE_KVIRC_KEYWORD); - } - else if (functionKeywords.InList(s)) - { - // Detecting function keywords and fixing the state - sc.ChangeState(SCE_KVIRC_FUNCTION_KEYWORD); - } - - /* Transitioning to default and committing the previous - * word state */ - sc.SetState(SCE_KVIRC_DEFAULT); - - /* Word has been exited yet the current character - * has yet to be defined - loop without moving - * forward again */ - next = false; - break; - } - - break; - } - } - - /* Indicating processing is complete */ - sc.Complete(); -} - -static void FoldKVIrcDoc(Sci_PositionU startPos, Sci_Position length, int /*initStyle - unused*/, - WordList *[], Accessor &styler) -{ - /* Based on CMake's folder */ - - /* Exiting if folding isnt enabled */ - if ( styler.GetPropertyInt("fold") == 0 ) - return; - - /* Obtaining current line number*/ - Sci_Position currentLine = styler.GetLine(startPos); - - /* Obtaining starting character - indentation is done on a line basis, - * not character */ - Sci_PositionU safeStartPos = styler.LineStart( currentLine ); - - /* Initialising current level - this is defined as indentation level - * in the low 12 bits, with flag bits in the upper four bits. - * It looks like two indentation states are maintained in the returned - * 32bit value - 'nextLevel' in the most-significant bits, 'currentLevel' - * in the least-significant bits. Since the next level is the most - * up to date, this must refer to the current state of indentation. - * So the code bitshifts the old current level out of existence to - * get at the actual current state of indentation - * Based on the LexerCPP.cxx line 958 comment */ - int currentLevel = SC_FOLDLEVELBASE; - if (currentLine > 0) - currentLevel = styler.LevelAt(currentLine - 1) >> 16; - int nextLevel = currentLevel; - - // Looping for characters in range - for (Sci_PositionU i = safeStartPos; i < startPos + length; ++i) - { - /* Folding occurs after syntax highlighting, meaning Scintilla - * already knows where the comments are - * Fetching the current state */ - int state = styler.StyleAt(i) & 31; - - switch( styler.SafeGetCharAt(i) ) - { - case '{': - - /* Indenting only when the braces are not contained in - * a comment */ - if (state != SCE_KVIRC_COMMENT && - state != SCE_KVIRC_COMMENTBLOCK) - ++nextLevel; - break; - - case '}': - - /* Outdenting only when the braces are not contained in - * a comment */ - if (state != SCE_KVIRC_COMMENT && - state != SCE_KVIRC_COMMENTBLOCK) - --nextLevel; - break; - - case '\n': - case '\r': - - /* Preparing indentation information to return - combining - * current and next level data */ - int lev = currentLevel | nextLevel << 16; - - /* If the next level increases the indent level, mark the - * current line as a fold point - current level data is - * in the least significant bits */ - if (nextLevel > currentLevel ) - lev |= SC_FOLDLEVELHEADERFLAG; - - /* Updating indentation level if needed */ - if (lev != styler.LevelAt(currentLine)) - styler.SetLevel(currentLine, lev); - - /* Updating variables */ - ++currentLine; - currentLevel = nextLevel; - - /* Dealing with problematic Windows newlines - - * incrementing to avoid the extra newline breaking the - * fold point */ - if (styler.SafeGetCharAt(i) == '\r' && - styler.SafeGetCharAt(i + 1) == '\n') - ++i; - break; - } - } - - /* At this point the data has ended, so presumably the end of the line? - * Preparing indentation information to return - combining current - * and next level data */ - int lev = currentLevel | nextLevel << 16; - - /* If the next level increases the indent level, mark the current - * line as a fold point - current level data is in the least - * significant bits */ - if (nextLevel > currentLevel ) - lev |= SC_FOLDLEVELHEADERFLAG; - - /* Updating indentation level if needed */ - if (lev != styler.LevelAt(currentLine)) - styler.SetLevel(currentLine, lev); -} - -/* Registering wordlists */ -static const char *const kvircWordListDesc[] = { - "primary", - "function_keywords", - 0 -}; - - -/* Registering functions and wordlists */ -LexerModule lmKVIrc(SCLEX_KVIRC, ColouriseKVIrcDoc, "kvirc", FoldKVIrcDoc, - kvircWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexKix.cpp b/libs/qscintilla/scintilla/lexers/LexKix.cpp deleted file mode 100644 index bcd68137..00000000 --- a/libs/qscintilla/scintilla/lexers/LexKix.cpp +++ /dev/null @@ -1,134 +0,0 @@ -// Scintilla source code edit control -/** @file LexKix.cxx - ** Lexer for KIX-Scripts. - **/ -// Copyright 2004 by Manfred Becker -// The License.txt file describes the conditions under which this software may be distributed. -// Edited by Lee Wilmott (24-Jun-2014) added support for block comments - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -// Extended to accept accented characters -static inline bool IsAWordChar(int ch) { - return ch >= 0x80 || isalnum(ch) || ch == '_'; -} - -static inline bool IsOperator(const int ch) { - return (ch == '+' || ch == '-' || ch == '*' || ch == '/' || ch == '&' || ch == '|' || ch == '<' || ch == '>' || ch == '='); -} - -static void ColouriseKixDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, - WordList *keywordlists[], Accessor &styler) { - - WordList &keywords = *keywordlists[0]; - WordList &keywords2 = *keywordlists[1]; - WordList &keywords3 = *keywordlists[2]; -// WordList &keywords4 = *keywordlists[3]; - - styler.StartAt(startPos); - - StyleContext sc(startPos, length, initStyle, styler); - - for (; sc.More(); sc.Forward()) { - - if (sc.state == SCE_KIX_COMMENT) { - if (sc.atLineEnd) { - sc.SetState(SCE_KIX_DEFAULT); - } - } else if (sc.state == SCE_KIX_COMMENTSTREAM) { - if (sc.ch == '/' && sc.chPrev == '*') { - sc.ForwardSetState(SCE_KIX_DEFAULT); - } - } else if (sc.state == SCE_KIX_STRING1) { - // This is a doubles quotes string - if (sc.ch == '\"') { - sc.ForwardSetState(SCE_KIX_DEFAULT); - } - } else if (sc.state == SCE_KIX_STRING2) { - // This is a single quote string - if (sc.ch == '\'') { - sc.ForwardSetState(SCE_KIX_DEFAULT); - } - } else if (sc.state == SCE_KIX_NUMBER) { - if (!IsADigit(sc.ch)) { - sc.SetState(SCE_KIX_DEFAULT); - } - } else if (sc.state == SCE_KIX_VAR) { - if (!IsAWordChar(sc.ch)) { - sc.SetState(SCE_KIX_DEFAULT); - } - } else if (sc.state == SCE_KIX_MACRO) { - if (!IsAWordChar(sc.ch) && !IsADigit(sc.ch)) { - char s[100]; - sc.GetCurrentLowered(s, sizeof(s)); - - if (!keywords3.InList(&s[1])) { - sc.ChangeState(SCE_KIX_DEFAULT); - } - sc.SetState(SCE_KIX_DEFAULT); - } - } else if (sc.state == SCE_KIX_OPERATOR) { - if (!IsOperator(sc.ch)) { - sc.SetState(SCE_KIX_DEFAULT); - } - } else if (sc.state == SCE_KIX_IDENTIFIER) { - if (!IsAWordChar(sc.ch)) { - char s[100]; - sc.GetCurrentLowered(s, sizeof(s)); - - if (keywords.InList(s)) { - sc.ChangeState(SCE_KIX_KEYWORD); - } else if (keywords2.InList(s)) { - sc.ChangeState(SCE_KIX_FUNCTIONS); - } - sc.SetState(SCE_KIX_DEFAULT); - } - } - - // Determine if a new state should be entered. - if (sc.state == SCE_KIX_DEFAULT) { - if (sc.ch == ';') { - sc.SetState(SCE_KIX_COMMENT); - } else if (sc.ch == '/' && sc.chNext == '*') { - sc.SetState(SCE_KIX_COMMENTSTREAM); - } else if (sc.ch == '\"') { - sc.SetState(SCE_KIX_STRING1); - } else if (sc.ch == '\'') { - sc.SetState(SCE_KIX_STRING2); - } else if (sc.ch == '$') { - sc.SetState(SCE_KIX_VAR); - } else if (sc.ch == '@') { - sc.SetState(SCE_KIX_MACRO); - } else if (IsADigit(sc.ch) || ((sc.ch == '.' || sc.ch == '&') && IsADigit(sc.chNext))) { - sc.SetState(SCE_KIX_NUMBER); - } else if (IsOperator(sc.ch)) { - sc.SetState(SCE_KIX_OPERATOR); - } else if (IsAWordChar(sc.ch)) { - sc.SetState(SCE_KIX_IDENTIFIER); - } - } - } - sc.Complete(); -} - - -LexerModule lmKix(SCLEX_KIX, ColouriseKixDoc, "kix"); - diff --git a/libs/qscintilla/scintilla/lexers/LexLPeg.cpp b/libs/qscintilla/scintilla/lexers/LexLPeg.cpp deleted file mode 100644 index dfba7618..00000000 --- a/libs/qscintilla/scintilla/lexers/LexLPeg.cpp +++ /dev/null @@ -1,799 +0,0 @@ -/** - * Copyright 2006-2018 Mitchell mitchell.att.foicica.com. See License.txt. - * - * Lua-powered dynamic language lexer for Scintilla. - * - * For documentation on writing lexers, see *../doc/LPegLexer.html*. - */ - -#if LPEG_LEXER - -#include -#include -#include -#include -#include -#if CURSES -#include -#endif - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "PropSetSimple.h" -#include "LexAccessor.h" -#include "LexerModule.h" - -extern "C" { -#include "lua.h" -#include "lualib.h" -#include "lauxlib.h" -LUALIB_API int luaopen_lpeg(lua_State *L); -} - -#if _WIN32 -#define strcasecmp _stricmp -#endif -#define streq(s1, s2) (strcasecmp((s1), (s2)) == 0) - -using namespace Scintilla; - -#define l_setmetatable(l, k, mtf) \ - if (luaL_newmetatable(l, k)) { \ - lua_pushcfunction(l, mtf), lua_setfield(l, -2, "__index"); \ - lua_pushcfunction(l, mtf), lua_setfield(l, -2, "__newindex"); \ - } \ - lua_setmetatable(l, -2); -#define l_pushlexerp(l, mtf) do { \ - lua_newtable(l); \ - lua_pushvalue(l, 2), lua_setfield(l, -2, "property"); \ - l_setmetatable(l, "sci_lexerp", mtf); \ -} while(0) -#define l_getlexerobj(l) \ - lua_getfield(l, LUA_REGISTRYINDEX, "sci_lexers"); \ - lua_pushlightuserdata(l, reinterpret_cast(this)); \ - lua_gettable(l, -2), lua_replace(l, -2); -#define l_getlexerfield(l, k) \ - l_getlexerobj(l); \ - lua_getfield(l, -1, k), lua_replace(l, -2); -#if LUA_VERSION_NUM < 502 -#define l_openlib(f, s) \ - (lua_pushcfunction(L, f), lua_pushstring(L, s), lua_call(L, 1, 0)) -#define LUA_BASELIBNAME "" -#define lua_rawlen lua_objlen -#define LUA_OK 0 -#define lua_compare(l, a, b, _) lua_equal(l, a, b) -#define LUA_OPEQ 0 -#else -#define l_openlib(f, s) (luaL_requiref(L, s, f, 1), lua_pop(L, 1)) -#define LUA_BASELIBNAME "_G" -#endif -#define l_setfunction(l, f, k) (lua_pushcfunction(l, f), lua_setfield(l, -2, k)) -#define l_setconstant(l, c, k) (lua_pushinteger(l, c), lua_setfield(l, -2, k)) - -#if CURSES -#define A_COLORCHAR (A_COLOR | A_CHARTEXT) -#endif - -/** The LPeg Scintilla lexer. */ -class LexerLPeg : public ILexer { - /** - * The lexer's Lua state. - * It is cleared each time the lexer language changes unless `own_lua` is - * `true`. - */ - lua_State *L; - /** - * The flag indicating whether or not an existing Lua state was supplied as - * the lexer's Lua state. - */ - bool own_lua; - /** - * The set of properties for the lexer. - * The `lexer.name`, `lexer.lpeg.home`, and `lexer.lpeg.color.theme` - * properties must be defined before running the lexer. - */ - PropSetSimple props; - /** The function to send Scintilla messages with. */ - SciFnDirect SS; - /** The Scintilla object the lexer belongs to. */ - sptr_t sci; - /** - * The flag indicating whether or not the lexer needs to be re-initialized. - * Re-initialization is required after the lexer language changes. - */ - bool reinit; - /** - * The flag indicating whether or not the lexer language has embedded lexers. - */ - bool multilang; - /** - * The list of style numbers considered to be whitespace styles. - * This is used in multi-language lexers when backtracking to whitespace to - * determine which lexer grammar to use. - */ - bool ws[STYLE_MAX + 1]; - - /** - * Logs the given error message or a Lua error message, prints it, and clears - * the stack. - * Error messages are logged to the "lexer.lpeg.error" property. - * @param str The error message to log and print. If `NULL`, logs and prints - * the Lua error message at the top of the stack. - */ - static void l_error(lua_State *L, const char *str=NULL) { - lua_getfield(L, LUA_REGISTRYINDEX, "sci_props"); - PropSetSimple *props = static_cast(lua_touserdata(L, -1)); - lua_pop(L, 1); // props - const char *key = "lexer.lpeg.error"; - const char *value = str ? str : lua_tostring(L, -1); - props->Set(key, value, strlen(key), strlen(value)); - fprintf(stderr, "Lua Error: %s.\n", str ? str : lua_tostring(L, -1)); - lua_settop(L, 0); - } - - /** The lexer's `line_from_position` Lua function. */ - static int l_line_from_position(lua_State *L) { - lua_getfield(L, LUA_REGISTRYINDEX, "sci_buffer"); - IDocument *buffer = static_cast(lua_touserdata(L, -1)); - lua_pushinteger(L, buffer->LineFromPosition(luaL_checkinteger(L, 1) - 1)); - return 1; - } - - /** The lexer's `__index` Lua metatable. */ - static int llexer_property(lua_State *L) { - int newindex = (lua_gettop(L) == 3); - luaL_getmetatable(L, "sci_lexer"); - lua_getmetatable(L, 1); // metatable can be either sci_lexer or sci_lexerp - int is_lexer = lua_compare(L, -1, -2, LUA_OPEQ); - lua_pop(L, 2); // metatable, metatable - - lua_getfield(L, LUA_REGISTRYINDEX, "sci_buffer"); - IDocument *buffer = static_cast(lua_touserdata(L, -1)); - lua_getfield(L, LUA_REGISTRYINDEX, "sci_props"); - PropSetSimple *props = static_cast(lua_touserdata(L, -1)); - lua_pop(L, 2); // sci_props and sci_buffer - - if (is_lexer) - lua_pushvalue(L, 2); // key is given - else - lua_getfield(L, 1, "property"); // indexible property - const char *key = lua_tostring(L, -1); - if (strcmp(key, "fold_level") == 0) { - luaL_argcheck(L, !newindex, 3, "read-only property"); - if (is_lexer) - l_pushlexerp(L, llexer_property); - else - lua_pushinteger(L, buffer->GetLevel(luaL_checkinteger(L, 2))); - } else if (strcmp(key, "indent_amount") == 0) { - luaL_argcheck(L, !newindex, 3, "read-only property"); - if (is_lexer) - l_pushlexerp(L, llexer_property); - else - lua_pushinteger(L, buffer->GetLineIndentation(luaL_checkinteger(L, 2))); - } else if (strcmp(key, "property") == 0) { - luaL_argcheck(L, !is_lexer || !newindex, 3, "read-only property"); - if (is_lexer) - l_pushlexerp(L, llexer_property); - else if (!newindex) - lua_pushstring(L, props->Get(luaL_checkstring(L, 2))); - else - props->Set(luaL_checkstring(L, 2), luaL_checkstring(L, 3), - lua_rawlen(L, 2), lua_rawlen(L, 3)); - } else if (strcmp(key, "property_int") == 0) { - luaL_argcheck(L, !newindex, 3, "read-only property"); - if (is_lexer) - l_pushlexerp(L, llexer_property); - else { - lua_pushstring(L, props->Get(luaL_checkstring(L, 2))); - lua_pushinteger(L, lua_tointeger(L, -1)); - } - } else if (strcmp(key, "style_at") == 0) { - luaL_argcheck(L, !newindex, 3, "read-only property"); - if (is_lexer) - l_pushlexerp(L, llexer_property); - else { - int style = buffer->StyleAt(luaL_checkinteger(L, 2) - 1); - lua_getfield(L, LUA_REGISTRYINDEX, "sci_lexer_obj"); - lua_getfield(L, -1, "_TOKENSTYLES"), lua_replace(L, -2); - lua_pushnil(L); - while (lua_next(L, -2)) { - if (luaL_checkinteger(L, -1) == style) break; - lua_pop(L, 1); // value - } - lua_pop(L, 1); // style_num - } - } else if (strcmp(key, "line_state") == 0) { - luaL_argcheck(L, !is_lexer || !newindex, 3, "read-only property"); - if (is_lexer) - l_pushlexerp(L, llexer_property); - else if (!newindex) - lua_pushinteger(L, buffer->GetLineState(luaL_checkinteger(L, 2))); - else - buffer->SetLineState(luaL_checkinteger(L, 2), - luaL_checkinteger(L, 3)); - } else return !newindex ? (lua_rawget(L, 1), 1) : (lua_rawset(L, 1), 0); - return 1; - } - - /** - * Expands value of the string property key at index *index* and pushes the - * result onto the stack. - * @param L The Lua State. - * @param index The index the string property key. - */ - void lL_getexpanded(lua_State *L, int index) { - lua_getfield(L, LUA_REGISTRYINDEX, "_LOADED"), lua_getfield(L, -1, "lexer"); - lua_getfield(L, -1, "property_expanded"); - lua_pushvalue(L, (index > 0) ? index : index - 3), lua_gettable(L, -2); - lua_replace(L, -4), lua_pop(L, 2); // property_expanded and lexer module - } - - /** - * Parses the given style string to set the properties for the given style - * number. - * @param num The style number to set properties for. - * @param style The style string containing properties to set. - */ - void SetStyle(int num, const char *style) { - char *style_copy = static_cast(malloc(strlen(style) + 1)); - char *option = strcpy(style_copy, style), *next = NULL, *p = NULL; - while (option) { - if ((next = strchr(option, ','))) *next++ = '\0'; - if ((p = strchr(option, ':'))) *p++ = '\0'; - if (streq(option, "font") && p) - SS(sci, SCI_STYLESETFONT, num, reinterpret_cast(p)); - else if (streq(option, "size") && p) - SS(sci, SCI_STYLESETSIZE, num, static_cast(atoi(p))); - else if (streq(option, "bold") || streq(option, "notbold") || - streq(option, "weight")) { -#if !CURSES - int weight = SC_WEIGHT_NORMAL; - if (*option == 'b') - weight = SC_WEIGHT_BOLD; - else if (*option == 'w' && p) - weight = atoi(p); - SS(sci, SCI_STYLESETWEIGHT, num, weight); -#else - // Scintilla curses requires font attributes to be stored in the "font - // weight" style attribute. - // First, clear any existing SC_WEIGHT_NORMAL, SC_WEIGHT_SEMIBOLD, or - // SC_WEIGHT_BOLD values stored in the lower 16 bits. Then set the - // appropriate curses attr. - sptr_t weight = SS(sci, SCI_STYLEGETWEIGHT, num, 0) & ~A_COLORCHAR; - int bold = *option == 'b' || - (*option == 'w' && p && atoi(p) > SC_WEIGHT_NORMAL); - SS(sci, SCI_STYLESETWEIGHT, num, - bold ? weight | A_BOLD : weight & ~A_BOLD); -#endif - } else if (streq(option, "italics") || streq(option, "notitalics")) - SS(sci, SCI_STYLESETITALIC, num, *option == 'i'); - else if (streq(option, "underlined") || streq(option, "notunderlined")) { -#if !CURSES - SS(sci, SCI_STYLESETUNDERLINE, num, *option == 'u'); -#else - // Scintilla curses requires font attributes to be stored in the "font - // weight" style attribute. - // First, clear any existing SC_WEIGHT_NORMAL, SC_WEIGHT_SEMIBOLD, or - // SC_WEIGHT_BOLD values stored in the lower 16 bits. Then set the - // appropriate curses attr. - sptr_t weight = SS(sci, SCI_STYLEGETWEIGHT, num, 0) & ~A_COLORCHAR; - SS(sci, SCI_STYLESETWEIGHT, num, - (*option == 'u') ? weight | A_UNDERLINE : weight & ~A_UNDERLINE); -#endif - } else if ((streq(option, "fore") || streq(option, "back")) && p) { - int msg = (*option == 'f') ? SCI_STYLESETFORE : SCI_STYLESETBACK; - int color = static_cast(strtol(p, NULL, 0)); - if (*p == '#') { // #RRGGBB format; Scintilla format is 0xBBGGRR - color = static_cast(strtol(p + 1, NULL, 16)); - color = ((color & 0xFF0000) >> 16) | (color & 0xFF00) | - ((color & 0xFF) << 16); // convert to 0xBBGGRR - } - SS(sci, msg, num, color); - } else if (streq(option, "eolfilled") || streq(option, "noteolfilled")) - SS(sci, SCI_STYLESETEOLFILLED, num, *option == 'e'); - else if (streq(option, "characterset") && p) - SS(sci, SCI_STYLESETCHARACTERSET, num, static_cast(atoi(p))); - else if (streq(option, "case") && p) { - if (*p == 'u') - SS(sci, SCI_STYLESETCASE, num, SC_CASE_UPPER); - else if (*p == 'l') - SS(sci, SCI_STYLESETCASE, num, SC_CASE_LOWER); - } else if (streq(option, "visible") || streq(option, "notvisible")) - SS(sci, SCI_STYLESETVISIBLE, num, *option == 'v'); - else if (streq(option, "changeable") || streq(option, "notchangeable")) - SS(sci, SCI_STYLESETCHANGEABLE, num, *option == 'c'); - else if (streq(option, "hotspot") || streq(option, "nothotspot")) - SS(sci, SCI_STYLESETHOTSPOT, num, *option == 'h'); - option = next; - } - free(style_copy); - } - - /** - * Iterates through the lexer's `_TOKENSTYLES`, setting the style properties - * for all defined styles. - */ - bool SetStyles() { - // If the lexer defines additional styles, set their properties first (if - // the user has not already defined them). - l_getlexerfield(L, "_EXTRASTYLES"); - lua_pushnil(L); - while (lua_next(L, -2)) { - if (lua_isstring(L, -2) && lua_isstring(L, -1)) { - lua_pushstring(L, "style."), lua_pushvalue(L, -3), lua_concat(L, 2); - if (!*props.Get(lua_tostring(L, -1))) - props.Set(lua_tostring(L, -1), lua_tostring(L, -2), lua_rawlen(L, -1), - lua_rawlen(L, -2)); - lua_pop(L, 1); // style name - } - lua_pop(L, 1); // value - } - lua_pop(L, 1); // _EXTRASTYLES - - l_getlexerfield(L, "_TOKENSTYLES"); - if (!SS || !sci) { - lua_pop(L, 1); // _TOKENSTYLES - // Skip, but do not report an error since `reinit` would remain `false` - // and subsequent calls to `Lex()` and `Fold()` would repeatedly call this - // function and error. - return true; - } - lua_pushstring(L, "style.default"), lL_getexpanded(L, -1); - SetStyle(STYLE_DEFAULT, lua_tostring(L, -1)); - lua_pop(L, 2); // style and "style.default" - SS(sci, SCI_STYLECLEARALL, 0, 0); // set default styles - lua_pushnil(L); - while (lua_next(L, -2)) { - if (lua_isstring(L, -2) && lua_isnumber(L, -1) && - lua_tointeger(L, -1) != STYLE_DEFAULT) { - lua_pushstring(L, "style."), lua_pushvalue(L, -3), lua_concat(L, 2); - lL_getexpanded(L, -1), lua_replace(L, -2); - SetStyle(lua_tointeger(L, -2), lua_tostring(L, -1)); - lua_pop(L, 1); // style - } - lua_pop(L, 1); // value - } - lua_pop(L, 1); // _TOKENSTYLES - return true; - } - - /** - * Returns the style name for the given style number. - * @param style The style number to get the style name for. - * @return style name or NULL - */ - const char *GetStyleName(int style) { - if (!L) return NULL; - const char *name = NULL; - l_getlexerfield(L, "_TOKENSTYLES"); - lua_pushnil(L); - while (lua_next(L, -2)) - if (lua_tointeger(L, -1) == style) { - name = lua_tostring(L, -2); - lua_pop(L, 2); // value and key - break; - } else lua_pop(L, 1); // value - lua_pop(L, 1); // _TOKENSTYLES - return name; - } - - /** - * Initializes the lexer once the `lexer.lpeg.home` and `lexer.name` - * properties are set. - */ - bool Init() { - char home[FILENAME_MAX], lexer[50], theme[FILENAME_MAX]; - props.GetExpanded("lexer.lpeg.home", home); - props.GetExpanded("lexer.name", lexer); - props.GetExpanded("lexer.lpeg.color.theme", theme); - if (!*home || !*lexer || !L) return false; - - lua_pushlightuserdata(L, reinterpret_cast(&props)); - lua_setfield(L, LUA_REGISTRYINDEX, "sci_props"); - - // If necessary, load the lexer module and theme. - lua_getfield(L, LUA_REGISTRYINDEX, "_LOADED"), lua_getfield(L, -1, "lexer"); - if (lua_isnil(L, -1)) { - lua_pop(L, 2); // nil and _LOADED - - // Modify `package.path` to find lexers. - lua_getglobal(L, "package"), lua_getfield(L, -1, "path"); - int orig_path = luaL_ref(L, LUA_REGISTRYINDEX); // restore later - lua_pushstring(L, home), lua_pushstring(L, "/?.lua"), lua_concat(L, 2); - lua_setfield(L, -2, "path"), lua_pop(L, 1); // package - - // Load the lexer module. - lua_getglobal(L, "require"); - lua_pushstring(L, "lexer"); - if (lua_pcall(L, 1, 1, 0) != LUA_OK) return (l_error(L), false); - l_setfunction(L, l_line_from_position, "line_from_position"); - l_setconstant(L, SC_FOLDLEVELBASE, "FOLD_BASE"); - l_setconstant(L, SC_FOLDLEVELWHITEFLAG, "FOLD_BLANK"); - l_setconstant(L, SC_FOLDLEVELHEADERFLAG, "FOLD_HEADER"); - l_setmetatable(L, "sci_lexer", llexer_property); - if (*theme) { - // Load the theme. - if (!(strstr(theme, "/") || strstr(theme, "\\"))) { // theme name - lua_pushstring(L, home); - lua_pushstring(L, "/themes/"); - lua_pushstring(L, theme); - lua_pushstring(L, ".lua"); - lua_concat(L, 4); - } else lua_pushstring(L, theme); // path to theme - if (luaL_loadfile(L, lua_tostring(L, -1)) != LUA_OK || - lua_pcall(L, 0, 0, 0) != LUA_OK) return (l_error(L), false); - lua_pop(L, 1); // theme - } - - // Restore `package.path`. - lua_getglobal(L, "package"); - lua_getfield(L, -1, "path"), lua_setfield(L, -3, "path"); // lexer.path = - lua_rawgeti(L, LUA_REGISTRYINDEX, orig_path), lua_setfield(L, -2, "path"); - luaL_unref(L, LUA_REGISTRYINDEX, orig_path), lua_pop(L, 1); // package - } else lua_remove(L, -2); // _LOADED - - // Load the language lexer. - lua_getfield(L, -1, "load"); - if (lua_isfunction(L, -1)) { - lua_pushstring(L, lexer), lua_pushnil(L), lua_pushboolean(L, 1); - if (lua_pcall(L, 3, 1, 0) != LUA_OK) return (l_error(L), false); - } else return (l_error(L, "'lexer.load' function not found"), false); - lua_getfield(L, LUA_REGISTRYINDEX, "sci_lexers"); - lua_pushlightuserdata(L, reinterpret_cast(this)); - lua_pushvalue(L, -3), lua_settable(L, -3), lua_pop(L, 1); // sci_lexers - lua_pushvalue(L, -1), lua_setfield(L, LUA_REGISTRYINDEX, "sci_lexer_obj"); - lua_remove(L, -2); // lexer module - if (!SetStyles()) return false; - - // If the lexer is a parent, it will have children in its _CHILDREN table. - lua_getfield(L, -1, "_CHILDREN"); - if (lua_istable(L, -1)) { - multilang = true; - // Determine which styles are language whitespace styles - // ([lang]_whitespace). This is necessary for determining which language - // to start lexing with. - char style_name[50]; - for (int i = 0; i <= STYLE_MAX; i++) { - PrivateCall(i, reinterpret_cast(style_name)); - ws[i] = strstr(style_name, "whitespace") ? true : false; - } - } - lua_pop(L, 2); // _CHILDREN and lexer object - - reinit = false; - props.Set("lexer.lpeg.error", "", strlen("lexer.lpeg.error"), 0); - return true; - } - - /** - * When *lparam* is `0`, returns the size of the buffer needed to store the - * given string *str* in; otherwise copies *str* into the buffer *lparam* and - * returns the number of bytes copied. - * @param lparam `0` to get the number of bytes needed to store *str* or a - * pointer to a buffer large enough to copy *str* into. - * @param str The string to copy. - * @return number of bytes needed to hold *str* - */ - void *StringResult(long lparam, const char *str) { - if (lparam) strcpy(reinterpret_cast(lparam), str); - return reinterpret_cast(strlen(str)); - } - -public: - /** Constructor. */ - LexerLPeg() : own_lua(true), reinit(true), multilang(false) { - // Initialize the Lua state, load libraries, and set platform variables. - if ((L = luaL_newstate())) { - l_openlib(luaopen_base, LUA_BASELIBNAME); - l_openlib(luaopen_table, LUA_TABLIBNAME); - l_openlib(luaopen_string, LUA_STRLIBNAME); -#if LUA_VERSION_NUM < 502 - l_openlib(luaopen_io, LUA_IOLIBNAME); // for `package.searchpath()` -#endif - l_openlib(luaopen_package, LUA_LOADLIBNAME); - l_openlib(luaopen_lpeg, "lpeg"); -#if _WIN32 - lua_pushboolean(L, 1), lua_setglobal(L, "WIN32"); -#endif -#if __APPLE__ - lua_pushboolean(L, 1), lua_setglobal(L, "OSX"); -#endif -#if GTK - lua_pushboolean(L, 1), lua_setglobal(L, "GTK"); -#endif -#if CURSES - lua_pushboolean(L, 1), lua_setglobal(L, "CURSES"); -#endif - lua_newtable(L), lua_setfield(L, LUA_REGISTRYINDEX, "sci_lexers"); - } else fprintf(stderr, "Lua failed to initialize.\n"); - SS = NULL, sci = 0; - } - - /** Destructor. */ - virtual ~LexerLPeg() {} - - /** Destroys the lexer object. */ - virtual void SCI_METHOD Release() { - if (own_lua && L) - lua_close(L); - else if (!own_lua) { - lua_getfield(L, LUA_REGISTRYINDEX, "sci_lexers"); - lua_pushlightuserdata(L, reinterpret_cast(this)); - lua_pushnil(L), lua_settable(L, -3), lua_pop(L, 1); // sci_lexers - } - L = NULL; - delete this; - } - - /** - * Lexes the Scintilla document. - * @param startPos The position in the document to start lexing at. - * @param lengthDoc The number of bytes in the document to lex. - * @param initStyle The initial style at position *startPos* in the document. - * @param buffer The document interface. - */ - virtual void SCI_METHOD Lex(Sci_PositionU startPos, Sci_Position lengthDoc, - int initStyle, IDocument *buffer) { - LexAccessor styler(buffer); - if ((reinit && !Init()) || !L) { - // Style everything in the default style. - styler.StartAt(startPos); - styler.StartSegment(startPos); - styler.ColourTo(startPos + lengthDoc - 1, STYLE_DEFAULT); - styler.Flush(); - return; - } - lua_pushlightuserdata(L, reinterpret_cast(&props)); - lua_setfield(L, LUA_REGISTRYINDEX, "sci_props"); - lua_pushlightuserdata(L, reinterpret_cast(buffer)); - lua_setfield(L, LUA_REGISTRYINDEX, "sci_buffer"); - - // Ensure the lexer has a grammar. - // This could be done in the lexer module's `lex()`, but for large files, - // passing string arguments from C to Lua is expensive. - l_getlexerfield(L, "_GRAMMAR"); - int has_grammar = !lua_isnil(L, -1); - lua_pop(L, 1); // _GRAMMAR - if (!has_grammar) { - // Style everything in the default style. - styler.StartAt(startPos); - styler.StartSegment(startPos); - styler.ColourTo(startPos + lengthDoc - 1, STYLE_DEFAULT); - styler.Flush(); - return; - } - - // Start from the beginning of the current style so LPeg matches it. - // For multilang lexers, start at whitespace since embedded languages have - // [lang]_whitespace styles. This is so LPeg can start matching child - // languages instead of parent ones if necessary. - if (startPos > 0) { - Sci_PositionU i = startPos; - while (i > 0 && styler.StyleAt(i - 1) == initStyle) i--; - if (multilang) - while (i > 0 && !ws[static_cast(styler.StyleAt(i))]) i--; - lengthDoc += startPos - i, startPos = i; - } - - Sci_PositionU startSeg = startPos, endSeg = startPos + lengthDoc; - int style = 0; - l_getlexerfield(L, "lex") - if (lua_isfunction(L, -1)) { - l_getlexerobj(L); - lua_pushlstring(L, buffer->BufferPointer() + startPos, lengthDoc); - lua_pushinteger(L, styler.StyleAt(startPos)); - if (lua_pcall(L, 3, 1, 0) != LUA_OK) l_error(L); - // Style the text from the token table returned. - if (lua_istable(L, -1)) { - int len = lua_rawlen(L, -1); - if (len > 0) { - styler.StartAt(startPos); - styler.StartSegment(startPos); - l_getlexerfield(L, "_TOKENSTYLES"); - // Loop through token-position pairs. - for (int i = 1; i < len; i += 2) { - style = STYLE_DEFAULT; - lua_rawgeti(L, -2, i), lua_rawget(L, -2); // _TOKENSTYLES[token] - if (!lua_isnil(L, -1)) style = lua_tointeger(L, -1); - lua_pop(L, 1); // _TOKENSTYLES[token] - lua_rawgeti(L, -2, i + 1); // pos - unsigned int position = lua_tointeger(L, -1) - 1; - lua_pop(L, 1); // pos - if (style >= 0 && style <= STYLE_MAX) - styler.ColourTo(startSeg + position - 1, style); - else - l_error(L, "Bad style number"); - if (position > endSeg) break; - } - lua_pop(L, 2); // _TOKENSTYLES and token table returned - styler.ColourTo(endSeg - 1, style); - styler.Flush(); - } - } else l_error(L, "Table of tokens expected from 'lexer.lex'"); - } else l_error(L, "'lexer.lex' function not found"); - } - - /** - * Folds the Scintilla document. - * @param startPos The position in the document to start folding at. - * @param lengthDoc The number of bytes in the document to fold. - * @param initStyle The initial style at position *startPos* in the document. - * @param buffer The document interface. - */ - virtual void SCI_METHOD Fold(Sci_PositionU startPos, Sci_Position lengthDoc, - int, IDocument *buffer) { - if ((reinit && !Init()) || !L) return; - lua_pushlightuserdata(L, reinterpret_cast(&props)); - lua_setfield(L, LUA_REGISTRYINDEX, "sci_props"); - lua_pushlightuserdata(L, reinterpret_cast(buffer)); - lua_setfield(L, LUA_REGISTRYINDEX, "sci_buffer"); - LexAccessor styler(buffer); - - l_getlexerfield(L, "fold"); - if (lua_isfunction(L, -1)) { - l_getlexerobj(L); - Sci_Position currentLine = styler.GetLine(startPos); - lua_pushlstring(L, buffer->BufferPointer() + startPos, lengthDoc); - lua_pushinteger(L, startPos); - lua_pushinteger(L, currentLine); - lua_pushinteger(L, styler.LevelAt(currentLine) & SC_FOLDLEVELNUMBERMASK); - if (lua_pcall(L, 5, 1, 0) != LUA_OK) l_error(L); - // Fold the text from the fold table returned. - if (lua_istable(L, -1)) { - lua_pushnil(L); - while (lua_next(L, -2)) { // line = level - styler.SetLevel(lua_tointeger(L, -2), lua_tointeger(L, -1)); - lua_pop(L, 1); // level - } - lua_pop(L, 1); // fold table returned - } else l_error(L, "Table of folds expected from 'lexer.fold'"); - } else l_error(L, "'lexer.fold' function not found"); - } - - /** This lexer implements the original lexer interface. */ - virtual int SCI_METHOD Version() const { return lvOriginal; } - /** Returning property names is not implemented. */ - virtual const char * SCI_METHOD PropertyNames() { return ""; } - /** Returning property types is not implemented. */ - virtual int SCI_METHOD PropertyType(const char *) { return 0; } - /** Returning property descriptions is not implemented. */ - virtual const char * SCI_METHOD DescribeProperty(const char *) { - return ""; - } - - /** - * Sets the *key* lexer property to *value*. - * If *key* starts with "style.", also set the style for the token. - * @param key The string keyword. - * @param val The string value. - */ - virtual Sci_Position SCI_METHOD PropertySet(const char *key, - const char *value) { - props.Set(key, value, strlen(key), strlen(value)); - if (reinit) - Init(); - else if (L && SS && sci && strncmp(key, "style.", 6) == 0) { - lua_pushlightuserdata(L, reinterpret_cast(&props)); - lua_setfield(L, LUA_REGISTRYINDEX, "sci_props"); - l_getlexerfield(L, "_TOKENSTYLES"); - lua_pushstring(L, key + 6), lua_rawget(L, -2); - lua_pushstring(L, key), lL_getexpanded(L, -1), lua_replace(L, -2); - if (lua_isnumber(L, -2)) { - int style_num = lua_tointeger(L, -2); - SetStyle(style_num, lua_tostring(L, -1)); - if (style_num == STYLE_DEFAULT) - // Assume a theme change, with the default style being set first. - // Subsequent style settings will be based on the default. - SS(sci, SCI_STYLECLEARALL, 0, 0); - } - lua_pop(L, 3); // style, style number, _TOKENSTYLES - } - return -1; // no need to re-lex - } - - /** Returning keyword list descriptions is not implemented. */ - virtual const char * SCI_METHOD DescribeWordListSets() { return ""; } - /** Setting keyword lists is not applicable. */ - virtual Sci_Position SCI_METHOD WordListSet(int, const char *) { - return -1; - } - - /** - * Allows for direct communication between the application and the lexer. - * The application uses this to set `SS`, `sci`, `L`, and lexer properties, - * and to retrieve style names. - * @param code The communication code. - * @param arg The argument. - * @return void *data - */ - virtual void * SCI_METHOD PrivateCall(int code, void *arg) { - sptr_t lParam = reinterpret_cast(arg); - const char *val = NULL; - switch(code) { - case SCI_GETDIRECTFUNCTION: - SS = reinterpret_cast(lParam); - return NULL; - case SCI_SETDOCPOINTER: - sci = lParam; - return NULL; - case SCI_CHANGELEXERSTATE: - if (own_lua) lua_close(L); - L = reinterpret_cast(lParam); - lua_getfield(L, LUA_REGISTRYINDEX, "sci_lexers"); - if (lua_isnil(L, -1)) - lua_newtable(L), lua_setfield(L, LUA_REGISTRYINDEX, "sci_lexers"); - lua_pop(L, 1); // sci_lexers or nil - own_lua = false; - return NULL; - case SCI_SETLEXERLANGUAGE: - char lexer_name[50]; - props.GetExpanded("lexer.name", lexer_name); - if (strcmp(lexer_name, reinterpret_cast(arg)) != 0) { - reinit = true; - props.Set("lexer.lpeg.error", "", strlen("lexer.lpeg.error"), 0); - PropertySet("lexer.name", reinterpret_cast(arg)); - } else if (L) - own_lua ? SetStyles() : Init(); - return NULL; - case SCI_GETLEXERLANGUAGE: - if (L) { - l_getlexerfield(L, "_NAME"); - if (SS && sci && multilang) { - int pos = SS(sci, SCI_GETCURRENTPOS, 0, 0); - while (pos >= 0 && !ws[SS(sci, SCI_GETSTYLEAT, pos, 0)]) pos--; - const char *name = NULL, *p = NULL; - if (pos >= 0) { - name = GetStyleName(SS(sci, SCI_GETSTYLEAT, pos, 0)); - if (name) p = strstr(name, "_whitespace"); - } - if (!name) name = lua_tostring(L, -1); // "lexer:lexer" fallback - if (!p) p = name + strlen(name); // "lexer:lexer" fallback - lua_pushstring(L, "/"); - lua_pushlstring(L, name, p - name); - lua_concat(L, 3); - } - val = lua_tostring(L, -1); - lua_pop(L, 1); // lexer_name or lexer language string - } - return StringResult(lParam, val ? val : "null"); - case SCI_GETSTATUS: - return StringResult(lParam, props.Get("lexer.lpeg.error")); - default: // style-related - if (code >= 0 && code <= STYLE_MAX) { // retrieve style names - val = GetStyleName(code); - return StringResult(lParam, val ? val : "Not Available"); - } else return NULL; - } - } - - /** Constructs a new instance of the lexer. */ - static ILexer *LexerFactoryLPeg() { return new LexerLPeg(); } -}; - -LexerModule lmLPeg(SCLEX_LPEG, LexerLPeg::LexerFactoryLPeg, "lpeg"); - -#else - -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static void LPegLex(Sci_PositionU, Sci_Position, int, WordList*[], Accessor&) { - return; -} - -LexerModule lmLPeg(SCLEX_LPEG, LPegLex, "lpeg"); - -#endif // LPEG_LEXER diff --git a/libs/qscintilla/scintilla/lexers/LexLaTeX.cpp b/libs/qscintilla/scintilla/lexers/LexLaTeX.cpp deleted file mode 100644 index ed9e6a6b..00000000 --- a/libs/qscintilla/scintilla/lexers/LexLaTeX.cpp +++ /dev/null @@ -1,538 +0,0 @@ -// Scintilla source code edit control -/** @file LexLaTeX.cxx - ** Lexer for LaTeX2e. - **/ -// Copyright 1998-2001 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. - -// Modified by G. HU in 2013. Added folding, syntax highting inside math environments, and changed some minor behaviors. - -#include -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "PropSetSimple.h" -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" -#include "LexerBase.h" - -using namespace Scintilla; - -using namespace std; - -struct latexFoldSave { - latexFoldSave() : structLev(0) { - for (int i = 0; i < 8; ++i) openBegins[i] = 0; - } - latexFoldSave(const latexFoldSave &save) : structLev(save.structLev) { - for (int i = 0; i < 8; ++i) openBegins[i] = save.openBegins[i]; - } - int openBegins[8]; - Sci_Position structLev; -}; - -class LexerLaTeX : public LexerBase { -private: - vector modes; - void setMode(Sci_Position line, int mode) { - if (line >= static_cast(modes.size())) modes.resize(line + 1, 0); - modes[line] = mode; - } - int getMode(Sci_Position line) { - if (line >= 0 && line < static_cast(modes.size())) return modes[line]; - return 0; - } - void truncModes(Sci_Position numLines) { - if (static_cast(modes.size()) > numLines * 2 + 256) - modes.resize(numLines + 128); - } - - vector saves; - void setSave(Sci_Position line, const latexFoldSave &save) { - if (line >= static_cast(saves.size())) saves.resize(line + 1); - saves[line] = save; - } - void getSave(Sci_Position line, latexFoldSave &save) { - if (line >= 0 && line < static_cast(saves.size())) save = saves[line]; - else { - save.structLev = 0; - for (int i = 0; i < 8; ++i) save.openBegins[i] = 0; - } - } - void truncSaves(Sci_Position numLines) { - if (static_cast(saves.size()) > numLines * 2 + 256) - saves.resize(numLines + 128); - } -public: - static ILexer *LexerFactoryLaTeX() { - return new LexerLaTeX(); - } - void SCI_METHOD Lex(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) override; - void SCI_METHOD Fold(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) override; -}; - -static bool latexIsSpecial(int ch) { - return (ch == '#') || (ch == '$') || (ch == '%') || (ch == '&') || (ch == '_') || - (ch == '{') || (ch == '}') || (ch == ' '); -} - -static bool latexIsBlank(int ch) { - return (ch == ' ') || (ch == '\t'); -} - -static bool latexIsBlankAndNL(int ch) { - return (ch == ' ') || (ch == '\t') || (ch == '\r') || (ch == '\n'); -} - -static bool latexIsLetter(int ch) { - return IsASCII(ch) && isalpha(ch); -} - -static bool latexIsTagValid(Sci_Position &i, Sci_Position l, Accessor &styler) { - while (i < l) { - if (styler.SafeGetCharAt(i) == '{') { - while (i < l) { - i++; - if (styler.SafeGetCharAt(i) == '}') { - return true; - } else if (!latexIsLetter(styler.SafeGetCharAt(i)) && - styler.SafeGetCharAt(i)!='*') { - return false; - } - } - } else if (!latexIsBlank(styler.SafeGetCharAt(i))) { - return false; - } - i++; - } - return false; -} - -static bool latexNextNotBlankIs(Sci_Position i, Accessor &styler, char needle) { - char ch; - while (i < styler.Length()) { - ch = styler.SafeGetCharAt(i); - if (!latexIsBlankAndNL(ch) && ch != '*') { - if (ch == needle) - return true; - else - return false; - } - i++; - } - return false; -} - -static bool latexLastWordIs(Sci_Position start, Accessor &styler, const char *needle) { - Sci_PositionU i = 0; - Sci_PositionU l = static_cast(strlen(needle)); - Sci_Position ini = start-l+1; - char s[32]; - - while (i < l && i < 31) { - s[i] = styler.SafeGetCharAt(ini + i); - i++; - } - s[i] = '\0'; - - return (strcmp(s, needle) == 0); -} - -static bool latexLastWordIsMathEnv(Sci_Position pos, Accessor &styler) { - Sci_Position i, j; - char s[32]; - const char *mathEnvs[] = { "align", "alignat", "flalign", "gather", - "multiline", "displaymath", "eqnarray", "equation" }; - if (styler.SafeGetCharAt(pos) != '}') return false; - for (i = pos - 1; i >= 0; --i) { - if (styler.SafeGetCharAt(i) == '{') break; - if (pos - i >= 20) return false; - } - if (i < 0 || i == pos - 1) return false; - ++i; - for (j = 0; i + j < pos; ++j) - s[j] = styler.SafeGetCharAt(i + j); - s[j] = '\0'; - if (j == 0) return false; - if (s[j - 1] == '*') s[--j] = '\0'; - for (i = 0; i < static_cast(sizeof(mathEnvs) / sizeof(const char *)); ++i) - if (strcmp(s, mathEnvs[i]) == 0) return true; - return false; -} - -static inline void latexStateReset(int &mode, int &state) { - switch (mode) { - case 1: state = SCE_L_MATH; break; - case 2: state = SCE_L_MATH2; break; - default: state = SCE_L_DEFAULT; break; - } -} - -// There are cases not handled correctly, like $abcd\textrm{what is $x+y$}z+w$. -// But I think it's already good enough. -void SCI_METHOD LexerLaTeX::Lex(Sci_PositionU startPos, Sci_Position length, int initStyle, IDocument *pAccess) { - // startPos is assumed to be the first character of a line - Accessor styler(pAccess, &props); - styler.StartAt(startPos); - int mode = getMode(styler.GetLine(startPos) - 1); - int state = initStyle; - if (state == SCE_L_ERROR || state == SCE_L_SHORTCMD || state == SCE_L_SPECIAL) // should not happen - latexStateReset(mode, state); - - char chNext = styler.SafeGetCharAt(startPos); - char chVerbatimDelim = '\0'; - styler.StartSegment(startPos); - Sci_Position lengthDoc = startPos + length; - - for (Sci_Position i = startPos; i < lengthDoc; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - - if (styler.IsLeadByte(ch)) { - i++; - chNext = styler.SafeGetCharAt(i + 1); - continue; - } - - if (ch == '\r' || ch == '\n') - setMode(styler.GetLine(i), mode); - - switch (state) { - case SCE_L_DEFAULT : - switch (ch) { - case '\\' : - styler.ColourTo(i - 1, state); - if (latexIsLetter(chNext)) { - state = SCE_L_COMMAND; - } else if (latexIsSpecial(chNext)) { - styler.ColourTo(i + 1, SCE_L_SPECIAL); - i++; - chNext = styler.SafeGetCharAt(i + 1); - } else if (chNext == '\r' || chNext == '\n') { - styler.ColourTo(i, SCE_L_ERROR); - } else if (IsASCII(chNext)) { - styler.ColourTo(i + 1, SCE_L_SHORTCMD); - if (chNext == '(') { - mode = 1; - state = SCE_L_MATH; - } else if (chNext == '[') { - mode = 2; - state = SCE_L_MATH2; - } - i++; - chNext = styler.SafeGetCharAt(i + 1); - } - break; - case '$' : - styler.ColourTo(i - 1, state); - if (chNext == '$') { - styler.ColourTo(i + 1, SCE_L_SHORTCMD); - mode = 2; - state = SCE_L_MATH2; - i++; - chNext = styler.SafeGetCharAt(i + 1); - } else { - styler.ColourTo(i, SCE_L_SHORTCMD); - mode = 1; - state = SCE_L_MATH; - } - break; - case '%' : - styler.ColourTo(i - 1, state); - state = SCE_L_COMMENT; - break; - } - break; - // These 3 will never be reached. - case SCE_L_ERROR: - case SCE_L_SPECIAL: - case SCE_L_SHORTCMD: - break; - case SCE_L_COMMAND : - if (!latexIsLetter(chNext)) { - styler.ColourTo(i, state); - if (latexNextNotBlankIs(i + 1, styler, '[' )) { - state = SCE_L_CMDOPT; - } else if (latexLastWordIs(i, styler, "\\begin")) { - state = SCE_L_TAG; - } else if (latexLastWordIs(i, styler, "\\end")) { - state = SCE_L_TAG2; - } else if (latexLastWordIs(i, styler, "\\verb") && chNext != '*' && chNext != ' ') { - chVerbatimDelim = chNext; - state = SCE_L_VERBATIM; - } else { - latexStateReset(mode, state); - } - } - break; - case SCE_L_CMDOPT : - if (ch == ']') { - styler.ColourTo(i, state); - latexStateReset(mode, state); - } - break; - case SCE_L_TAG : - if (latexIsTagValid(i, lengthDoc, styler)) { - styler.ColourTo(i, state); - latexStateReset(mode, state); - if (latexLastWordIs(i, styler, "{verbatim}")) { - state = SCE_L_VERBATIM; - } else if (latexLastWordIs(i, styler, "{comment}")) { - state = SCE_L_COMMENT2; - } else if (latexLastWordIs(i, styler, "{math}") && mode == 0) { - mode = 1; - state = SCE_L_MATH; - } else if (latexLastWordIsMathEnv(i, styler) && mode == 0) { - mode = 2; - state = SCE_L_MATH2; - } - } else { - styler.ColourTo(i, SCE_L_ERROR); - latexStateReset(mode, state); - ch = styler.SafeGetCharAt(i); - if (ch == '\r' || ch == '\n') setMode(styler.GetLine(i), mode); - } - chNext = styler.SafeGetCharAt(i+1); - break; - case SCE_L_TAG2 : - if (latexIsTagValid(i, lengthDoc, styler)) { - styler.ColourTo(i, state); - latexStateReset(mode, state); - } else { - styler.ColourTo(i, SCE_L_ERROR); - latexStateReset(mode, state); - ch = styler.SafeGetCharAt(i); - if (ch == '\r' || ch == '\n') setMode(styler.GetLine(i), mode); - } - chNext = styler.SafeGetCharAt(i+1); - break; - case SCE_L_MATH : - switch (ch) { - case '\\' : - styler.ColourTo(i - 1, state); - if (latexIsLetter(chNext)) { - Sci_Position match = i + 3; - if (latexLastWordIs(match, styler, "\\end")) { - match++; - if (latexIsTagValid(match, lengthDoc, styler)) { - if (latexLastWordIs(match, styler, "{math}")) - mode = 0; - } - } - state = SCE_L_COMMAND; - } else if (latexIsSpecial(chNext)) { - styler.ColourTo(i + 1, SCE_L_SPECIAL); - i++; - chNext = styler.SafeGetCharAt(i + 1); - } else if (chNext == '\r' || chNext == '\n') { - styler.ColourTo(i, SCE_L_ERROR); - } else if (IsASCII(chNext)) { - if (chNext == ')') { - mode = 0; - state = SCE_L_DEFAULT; - } - styler.ColourTo(i + 1, SCE_L_SHORTCMD); - i++; - chNext = styler.SafeGetCharAt(i + 1); - } - break; - case '$' : - styler.ColourTo(i - 1, state); - styler.ColourTo(i, SCE_L_SHORTCMD); - mode = 0; - state = SCE_L_DEFAULT; - break; - case '%' : - styler.ColourTo(i - 1, state); - state = SCE_L_COMMENT; - break; - } - break; - case SCE_L_MATH2 : - switch (ch) { - case '\\' : - styler.ColourTo(i - 1, state); - if (latexIsLetter(chNext)) { - Sci_Position match = i + 3; - if (latexLastWordIs(match, styler, "\\end")) { - match++; - if (latexIsTagValid(match, lengthDoc, styler)) { - if (latexLastWordIsMathEnv(match, styler)) - mode = 0; - } - } - state = SCE_L_COMMAND; - } else if (latexIsSpecial(chNext)) { - styler.ColourTo(i + 1, SCE_L_SPECIAL); - i++; - chNext = styler.SafeGetCharAt(i + 1); - } else if (chNext == '\r' || chNext == '\n') { - styler.ColourTo(i, SCE_L_ERROR); - } else if (IsASCII(chNext)) { - if (chNext == ']') { - mode = 0; - state = SCE_L_DEFAULT; - } - styler.ColourTo(i + 1, SCE_L_SHORTCMD); - i++; - chNext = styler.SafeGetCharAt(i + 1); - } - break; - case '$' : - styler.ColourTo(i - 1, state); - if (chNext == '$') { - styler.ColourTo(i + 1, SCE_L_SHORTCMD); - i++; - chNext = styler.SafeGetCharAt(i + 1); - mode = 0; - state = SCE_L_DEFAULT; - } else { // This may not be an error, e.g. \begin{equation}\text{$a$}\end{equation} - styler.ColourTo(i, SCE_L_SHORTCMD); - } - break; - case '%' : - styler.ColourTo(i - 1, state); - state = SCE_L_COMMENT; - break; - } - break; - case SCE_L_COMMENT : - if (ch == '\r' || ch == '\n') { - styler.ColourTo(i - 1, state); - latexStateReset(mode, state); - } - break; - case SCE_L_COMMENT2 : - if (ch == '\\') { - Sci_Position match = i + 3; - if (latexLastWordIs(match, styler, "\\end")) { - match++; - if (latexIsTagValid(match, lengthDoc, styler)) { - if (latexLastWordIs(match, styler, "{comment}")) { - styler.ColourTo(i - 1, state); - state = SCE_L_COMMAND; - } - } - } - } - break; - case SCE_L_VERBATIM : - if (ch == '\\') { - Sci_Position match = i + 3; - if (latexLastWordIs(match, styler, "\\end")) { - match++; - if (latexIsTagValid(match, lengthDoc, styler)) { - if (latexLastWordIs(match, styler, "{verbatim}")) { - styler.ColourTo(i - 1, state); - state = SCE_L_COMMAND; - } - } - } - } else if (chNext == chVerbatimDelim) { - styler.ColourTo(i + 1, state); - latexStateReset(mode, state); - chVerbatimDelim = '\0'; - i++; - chNext = styler.SafeGetCharAt(i + 1); - } else if (chVerbatimDelim != '\0' && (ch == '\n' || ch == '\r')) { - styler.ColourTo(i, SCE_L_ERROR); - latexStateReset(mode, state); - chVerbatimDelim = '\0'; - } - break; - } - } - if (lengthDoc == styler.Length()) truncModes(styler.GetLine(lengthDoc - 1)); - styler.ColourTo(lengthDoc - 1, state); - styler.Flush(); -} - -static int latexFoldSaveToInt(const latexFoldSave &save) { - int sum = 0; - for (int i = 0; i <= save.structLev; ++i) - sum += save.openBegins[i]; - return ((sum + save.structLev + SC_FOLDLEVELBASE) & SC_FOLDLEVELNUMBERMASK); -} - -// Change folding state while processing a line -// Return the level before the first relevant command -void SCI_METHOD LexerLaTeX::Fold(Sci_PositionU startPos, Sci_Position length, int, IDocument *pAccess) { - const char *structWords[7] = {"part", "chapter", "section", "subsection", - "subsubsection", "paragraph", "subparagraph"}; - Accessor styler(pAccess, &props); - Sci_PositionU endPos = startPos + length; - Sci_Position curLine = styler.GetLine(startPos); - latexFoldSave save; - getSave(curLine - 1, save); - do { - char ch, buf[16]; - Sci_Position i, j; - int lev = -1; - bool needFold = false; - for (i = static_cast(startPos); i < static_cast(endPos); ++i) { - ch = styler.SafeGetCharAt(i); - if (ch == '\r' || ch == '\n') break; - if (ch != '\\' || styler.StyleAt(i) != SCE_L_COMMAND) continue; - for (j = 0; j < 15 && i + 1 < static_cast(endPos); ++j, ++i) { - buf[j] = styler.SafeGetCharAt(i + 1); - if (!latexIsLetter(buf[j])) break; - } - buf[j] = '\0'; - if (strcmp(buf, "begin") == 0) { - if (lev < 0) lev = latexFoldSaveToInt(save); - ++save.openBegins[save.structLev]; - needFold = true; - } - else if (strcmp(buf, "end") == 0) { - while (save.structLev > 0 && save.openBegins[save.structLev] == 0) - --save.structLev; - if (lev < 0) lev = latexFoldSaveToInt(save); - if (save.openBegins[save.structLev] > 0) --save.openBegins[save.structLev]; - } - else { - for (j = 0; j < 7; ++j) - if (strcmp(buf, structWords[j]) == 0) break; - if (j >= 7) continue; - save.structLev = j; // level before the command - for (j = save.structLev + 1; j < 8; ++j) { - save.openBegins[save.structLev] += save.openBegins[j]; - save.openBegins[j] = 0; - } - if (lev < 0) lev = latexFoldSaveToInt(save); - ++save.structLev; // level after the command - needFold = true; - } - } - if (lev < 0) lev = latexFoldSaveToInt(save); - if (needFold) lev |= SC_FOLDLEVELHEADERFLAG; - styler.SetLevel(curLine, lev); - setSave(curLine, save); - ++curLine; - startPos = styler.LineStart(curLine); - if (static_cast(startPos) == styler.Length()) { - lev = latexFoldSaveToInt(save); - styler.SetLevel(curLine, lev); - setSave(curLine, save); - truncSaves(curLine); - } - } while (startPos < endPos); - styler.Flush(); -} - -static const char *const emptyWordListDesc[] = { - 0 -}; - -LexerModule lmLatex(SCLEX_LATEX, LexerLaTeX::LexerFactoryLaTeX, "latex", emptyWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexLisp.cpp b/libs/qscintilla/scintilla/lexers/LexLisp.cpp deleted file mode 100644 index 8e758635..00000000 --- a/libs/qscintilla/scintilla/lexers/LexLisp.cpp +++ /dev/null @@ -1,283 +0,0 @@ -// Scintilla source code edit control -/** @file LexLisp.cxx - ** Lexer for Lisp. - ** Written by Alexey Yutkin. - **/ -// Copyright 1998-2001 by Neil Hodgson -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -#define SCE_LISP_CHARACTER 29 -#define SCE_LISP_MACRO 30 -#define SCE_LISP_MACRO_DISPATCH 31 - -static inline bool isLispoperator(char ch) { - if (IsASCII(ch) && isalnum(ch)) - return false; - if (ch == '\'' || ch == '`' || ch == '(' || ch == ')' || ch == '[' || ch == ']' || ch == '{' || ch == '}') - return true; - return false; -} - -static inline bool isLispwordstart(char ch) { - return IsASCII(ch) && ch != ';' && !isspacechar(ch) && !isLispoperator(ch) && - ch != '\n' && ch != '\r' && ch != '\"'; -} - - -static void classifyWordLisp(Sci_PositionU start, Sci_PositionU end, WordList &keywords, WordList &keywords_kw, Accessor &styler) { - assert(end >= start); - char s[100]; - Sci_PositionU i; - bool digit_flag = true; - for (i = 0; (i < end - start + 1) && (i < 99); i++) { - s[i] = styler[start + i]; - s[i + 1] = '\0'; - if (!isdigit(s[i]) && (s[i] != '.')) digit_flag = false; - } - char chAttr = SCE_LISP_IDENTIFIER; - - if(digit_flag) chAttr = SCE_LISP_NUMBER; - else { - if (keywords.InList(s)) { - chAttr = SCE_LISP_KEYWORD; - } else if (keywords_kw.InList(s)) { - chAttr = SCE_LISP_KEYWORD_KW; - } else if ((s[0] == '*' && s[i-1] == '*') || - (s[0] == '+' && s[i-1] == '+')) { - chAttr = SCE_LISP_SPECIAL; - } - } - styler.ColourTo(end, chAttr); - return; -} - - -static void ColouriseLispDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, WordList *keywordlists[], - Accessor &styler) { - - WordList &keywords = *keywordlists[0]; - WordList &keywords_kw = *keywordlists[1]; - - styler.StartAt(startPos); - - int state = initStyle, radix = -1; - char chNext = styler[startPos]; - Sci_PositionU lengthDoc = startPos + length; - styler.StartSegment(startPos); - for (Sci_PositionU i = startPos; i < lengthDoc; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - - bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n'); - - if (styler.IsLeadByte(ch)) { - chNext = styler.SafeGetCharAt(i + 2); - i += 1; - continue; - } - - if (state == SCE_LISP_DEFAULT) { - if (ch == '#') { - styler.ColourTo(i - 1, state); - radix = -1; - state = SCE_LISP_MACRO_DISPATCH; - } else if (ch == ':' && isLispwordstart(chNext)) { - styler.ColourTo(i - 1, state); - state = SCE_LISP_SYMBOL; - } else if (isLispwordstart(ch)) { - styler.ColourTo(i - 1, state); - state = SCE_LISP_IDENTIFIER; - } - else if (ch == ';') { - styler.ColourTo(i - 1, state); - state = SCE_LISP_COMMENT; - } - else if (isLispoperator(ch) || ch=='\'') { - styler.ColourTo(i - 1, state); - styler.ColourTo(i, SCE_LISP_OPERATOR); - if (ch=='\'' && isLispwordstart(chNext)) { - state = SCE_LISP_SYMBOL; - } - } - else if (ch == '\"') { - styler.ColourTo(i - 1, state); - state = SCE_LISP_STRING; - } - } else if (state == SCE_LISP_IDENTIFIER || state == SCE_LISP_SYMBOL) { - if (!isLispwordstart(ch)) { - if (state == SCE_LISP_IDENTIFIER) { - classifyWordLisp(styler.GetStartSegment(), i - 1, keywords, keywords_kw, styler); - } else { - styler.ColourTo(i - 1, state); - } - state = SCE_LISP_DEFAULT; - } /*else*/ - if (isLispoperator(ch) || ch=='\'') { - styler.ColourTo(i - 1, state); - styler.ColourTo(i, SCE_LISP_OPERATOR); - if (ch=='\'' && isLispwordstart(chNext)) { - state = SCE_LISP_SYMBOL; - } - } - } else if (state == SCE_LISP_MACRO_DISPATCH) { - if (!(IsASCII(ch) && isdigit(ch))) { - if (ch != 'r' && ch != 'R' && (i - styler.GetStartSegment()) > 1) { - state = SCE_LISP_DEFAULT; - } else { - switch (ch) { - case '|': state = SCE_LISP_MULTI_COMMENT; break; - case 'o': - case 'O': radix = 8; state = SCE_LISP_MACRO; break; - case 'x': - case 'X': radix = 16; state = SCE_LISP_MACRO; break; - case 'b': - case 'B': radix = 2; state = SCE_LISP_MACRO; break; - case '\\': state = SCE_LISP_CHARACTER; break; - case ':': - case '-': - case '+': state = SCE_LISP_MACRO; break; - case '\'': if (isLispwordstart(chNext)) { - state = SCE_LISP_SPECIAL; - } else { - styler.ColourTo(i - 1, SCE_LISP_DEFAULT); - styler.ColourTo(i, SCE_LISP_OPERATOR); - state = SCE_LISP_DEFAULT; - } - break; - default: if (isLispoperator(ch)) { - styler.ColourTo(i - 1, SCE_LISP_DEFAULT); - styler.ColourTo(i, SCE_LISP_OPERATOR); - } - state = SCE_LISP_DEFAULT; - break; - } - } - } - } else if (state == SCE_LISP_MACRO) { - if (isLispwordstart(ch) && (radix == -1 || IsADigit(ch, radix))) { - state = SCE_LISP_SPECIAL; - } else { - state = SCE_LISP_DEFAULT; - } - } else if (state == SCE_LISP_CHARACTER) { - if (isLispoperator(ch)) { - styler.ColourTo(i, SCE_LISP_SPECIAL); - state = SCE_LISP_DEFAULT; - } else if (isLispwordstart(ch)) { - styler.ColourTo(i, SCE_LISP_SPECIAL); - state = SCE_LISP_SPECIAL; - } else { - state = SCE_LISP_DEFAULT; - } - } else if (state == SCE_LISP_SPECIAL) { - if (!isLispwordstart(ch) || (radix != -1 && !IsADigit(ch, radix))) { - styler.ColourTo(i - 1, state); - state = SCE_LISP_DEFAULT; - } - if (isLispoperator(ch) || ch=='\'') { - styler.ColourTo(i - 1, state); - styler.ColourTo(i, SCE_LISP_OPERATOR); - if (ch=='\'' && isLispwordstart(chNext)) { - state = SCE_LISP_SYMBOL; - } - } - } else { - if (state == SCE_LISP_COMMENT) { - if (atEOL) { - styler.ColourTo(i - 1, state); - state = SCE_LISP_DEFAULT; - } - } else if (state == SCE_LISP_MULTI_COMMENT) { - if (ch == '|' && chNext == '#') { - i++; - chNext = styler.SafeGetCharAt(i + 1); - styler.ColourTo(i, state); - state = SCE_LISP_DEFAULT; - } - } else if (state == SCE_LISP_STRING) { - if (ch == '\\') { - if (chNext == '\"' || chNext == '\'' || chNext == '\\') { - i++; - chNext = styler.SafeGetCharAt(i + 1); - } - } else if (ch == '\"') { - styler.ColourTo(i, state); - state = SCE_LISP_DEFAULT; - } - } - } - - } - styler.ColourTo(lengthDoc - 1, state); -} - -static void FoldLispDoc(Sci_PositionU startPos, Sci_Position length, int /* initStyle */, WordList *[], - Accessor &styler) { - Sci_PositionU lengthDoc = startPos + length; - int visibleChars = 0; - Sci_Position lineCurrent = styler.GetLine(startPos); - int levelPrev = styler.LevelAt(lineCurrent) & SC_FOLDLEVELNUMBERMASK; - int levelCurrent = levelPrev; - char chNext = styler[startPos]; - int styleNext = styler.StyleAt(startPos); - for (Sci_PositionU i = startPos; i < lengthDoc; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - int style = styleNext; - styleNext = styler.StyleAt(i + 1); - bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n'); - if (style == SCE_LISP_OPERATOR) { - if (ch == '(' || ch == '[' || ch == '{') { - levelCurrent++; - } else if (ch == ')' || ch == ']' || ch == '}') { - levelCurrent--; - } - } - if (atEOL) { - int lev = levelPrev; - if (visibleChars == 0) - lev |= SC_FOLDLEVELWHITEFLAG; - if ((levelCurrent > levelPrev) && (visibleChars > 0)) - lev |= SC_FOLDLEVELHEADERFLAG; - if (lev != styler.LevelAt(lineCurrent)) { - styler.SetLevel(lineCurrent, lev); - } - lineCurrent++; - levelPrev = levelCurrent; - visibleChars = 0; - } - if (!isspacechar(ch)) - visibleChars++; - } - // Fill in the real level of the next line, keeping the current flags as they will be filled in later - int flagsNext = styler.LevelAt(lineCurrent) & ~SC_FOLDLEVELNUMBERMASK; - styler.SetLevel(lineCurrent, levelPrev | flagsNext); -} - -static const char * const lispWordListDesc[] = { - "Functions and special operators", - "Keywords", - 0 -}; - -LexerModule lmLISP(SCLEX_LISP, ColouriseLispDoc, "lisp", FoldLispDoc, lispWordListDesc); diff --git a/libs/qscintilla/scintilla/lexers/LexLout.cpp b/libs/qscintilla/scintilla/lexers/LexLout.cpp deleted file mode 100644 index abba91ad..00000000 --- a/libs/qscintilla/scintilla/lexers/LexLout.cpp +++ /dev/null @@ -1,213 +0,0 @@ -// Scintilla source code edit control -/** @file LexLout.cxx - ** Lexer for the Basser Lout (>= version 3) typesetting language - **/ -// Copyright 2003 by Kein-Hong Man -// The License.txt file describes the conditions under which this software may be distributed. - -#include -#include -#include -#include -#include -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -static inline bool IsAWordChar(const int ch) { - return (ch < 0x80) && (isalpha(ch) || ch == '@' || ch == '_'); -} - -static inline bool IsAnOther(const int ch) { - return (ch < 0x80) && (ch == '{' || ch == '}' || - ch == '!' || ch == '$' || ch == '%' || ch == '&' || ch == '\'' || - ch == '(' || ch == ')' || ch == '*' || ch == '+' || ch == ',' || - ch == '-' || ch == '.' || ch == '/' || ch == ':' || ch == ';' || - ch == '<' || ch == '=' || ch == '>' || ch == '?' || ch == '[' || - ch == ']' || ch == '^' || ch == '`' || ch == '|' || ch == '~'); -} - -static void ColouriseLoutDoc(Sci_PositionU startPos, Sci_Position length, int initStyle, - WordList *keywordlists[], Accessor &styler) { - - WordList &keywords = *keywordlists[0]; - WordList &keywords2 = *keywordlists[1]; - WordList &keywords3 = *keywordlists[2]; - - int visibleChars = 0; - int firstWordInLine = 0; - int leadingAtSign = 0; - - StyleContext sc(startPos, length, initStyle, styler); - - for (; sc.More(); sc.Forward()) { - - if (sc.atLineStart && (sc.state == SCE_LOUT_STRING)) { - // Prevent SCE_LOUT_STRINGEOL from leaking back to previous line - sc.SetState(SCE_LOUT_STRING); - } - - // Determine if the current state should terminate. - if (sc.state == SCE_LOUT_COMMENT) { - if (sc.atLineEnd) { - sc.SetState(SCE_LOUT_DEFAULT); - visibleChars = 0; - } - } else if (sc.state == SCE_LOUT_NUMBER) { - if (!IsADigit(sc.ch) && sc.ch != '.') { - sc.SetState(SCE_LOUT_DEFAULT); - } - } else if (sc.state == SCE_LOUT_STRING) { - if (sc.ch == '\\') { - if (sc.chNext == '\"' || sc.chNext == '\\') { - sc.Forward(); - } - } else if (sc.ch == '\"') { - sc.ForwardSetState(SCE_LOUT_DEFAULT); - } else if (sc.atLineEnd) { - sc.ChangeState(SCE_LOUT_STRINGEOL); - sc.ForwardSetState(SCE_LOUT_DEFAULT); - visibleChars = 0; - } - } else if (sc.state == SCE_LOUT_IDENTIFIER) { - if (!IsAWordChar(sc.ch)) { - char s[100]; - sc.GetCurrent(s, sizeof(s)); - - if (leadingAtSign) { - if (keywords.InList(s)) { - sc.ChangeState(SCE_LOUT_WORD); - } else { - sc.ChangeState(SCE_LOUT_WORD4); - } - } else if (firstWordInLine && keywords3.InList(s)) { - sc.ChangeState(SCE_LOUT_WORD3); - } - sc.SetState(SCE_LOUT_DEFAULT); - } - } else if (sc.state == SCE_LOUT_OPERATOR) { - if (!IsAnOther(sc.ch)) { - char s[100]; - sc.GetCurrent(s, sizeof(s)); - - if (keywords2.InList(s)) { - sc.ChangeState(SCE_LOUT_WORD2); - } - sc.SetState(SCE_LOUT_DEFAULT); - } - } - - // Determine if a new state should be entered. - if (sc.state == SCE_LOUT_DEFAULT) { - if (sc.ch == '#') { - sc.SetState(SCE_LOUT_COMMENT); - } else if (sc.ch == '\"') { - sc.SetState(SCE_LOUT_STRING); - } else if (IsADigit(sc.ch) || - (sc.ch == '.' && IsADigit(sc.chNext))) { - sc.SetState(SCE_LOUT_NUMBER); - } else if (IsAWordChar(sc.ch)) { - firstWordInLine = (visibleChars == 0); - leadingAtSign = (sc.ch == '@'); - sc.SetState(SCE_LOUT_IDENTIFIER); - } else if (IsAnOther(sc.ch)) { - sc.SetState(SCE_LOUT_OPERATOR); - } - } - - if (sc.atLineEnd) { - // Reset states to begining of colourise so no surprises - // if different sets of lines lexed. - visibleChars = 0; - } - if (!IsASpace(sc.ch)) { - visibleChars++; - } - } - sc.Complete(); -} - -static void FoldLoutDoc(Sci_PositionU startPos, Sci_Position length, int, WordList *[], - Accessor &styler) { - - Sci_PositionU endPos = startPos + length; - int visibleChars = 0; - Sci_Position lineCurrent = styler.GetLine(startPos); - int levelPrev = styler.LevelAt(lineCurrent) & SC_FOLDLEVELNUMBERMASK; - int levelCurrent = levelPrev; - char chNext = styler[startPos]; - bool foldCompact = styler.GetPropertyInt("fold.compact", 1) != 0; - int styleNext = styler.StyleAt(startPos); - char s[10] = ""; - - for (Sci_PositionU i = startPos; i < endPos; i++) { - char ch = chNext; - chNext = styler.SafeGetCharAt(i + 1); - int style = styleNext; - styleNext = styler.StyleAt(i + 1); - bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n'); - - if (style == SCE_LOUT_WORD) { - if (ch == '@') { - for (Sci_PositionU j = 0; j < 8; j++) { - if (!IsAWordChar(styler[i + j])) { - break; - } - s[j] = styler[i + j]; - s[j + 1] = '\0'; - } - if (strcmp(s, "@Begin") == 0) { - levelCurrent++; - } else if (strcmp(s, "@End") == 0) { - levelCurrent--; - } - } - } else if (style == SCE_LOUT_OPERATOR) { - if (ch == '{') { - levelCurrent++; - } else if (ch == '}') { - levelCurrent--; - } - } - if (atEOL) { - int lev = levelPrev; - if (visibleChars == 0 && foldCompact) { - lev |= SC_FOLDLEVELWHITEFLAG; - } - if ((levelCurrent > levelPrev) && (visibleChars > 0)) { - lev |= SC_FOLDLEVELHEADERFLAG; - } - if (lev != styler.LevelAt(lineCurrent)) { - styler.SetLevel(lineCurrent, lev); - } - lineCurrent++; - levelPrev = levelCurrent; - visibleChars = 0; - } - if (!isspacechar(ch)) - visibleChars++; - } - // Fill in the real level of the next line, keeping the current flags as they will be filled in later - int flagsNext = styler.LevelAt(lineCurrent) & ~SC_FOLDLEVELNUMBERMASK; - styler.SetLevel(lineCurrent, levelPrev | flagsNext); -} - -static const char * const loutWordLists[] = { - "Predefined identifiers", - "Predefined delimiters", - "Predefined keywords", - 0, - }; - -LexerModule lmLout(SCLEX_LOUT, ColouriseLoutDoc, "lout", FoldLoutDoc, loutWordLists); diff --git a/libs/qscintilla/scintilla/lexers/LexLua.cpp b/libs/qscintilla/scintilla/lexers/LexLua.cpp deleted file mode 100644 index 9e6e8a70..00000000 --- a/libs/qscintilla/scintilla/lexers/LexLua.cpp +++ /dev/null @@ -1,502 +0,0 @@ -// Scintilla source code edit control -/** @file LexLua.cxx - ** Lexer for Lua language. - ** - ** Written by Paul Winwood. - ** Folder by Alexey Yutkin. - ** Modified by Marcos E. Wurzius & Philippe Lhoste - **/ - -#include -#include -#include -#include -#include -#include - -#include - -#include "ILexer.h" -#include "Scintilla.h" -#include "SciLexer.h" - -#include "StringCopy.h" -#include "WordList.h" -#include "LexAccessor.h" -#include "Accessor.h" -#include "StyleContext.h" -#include "CharacterSet.h" -#include "LexerModule.h" - -using namespace Scintilla; - -// Test for [=[ ... ]=] delimiters, returns 0 if it's only a [ or ], -// return 1 for [[ or ]], returns >=2 for [=[ or ]=] and so on. -// The maximum number of '=' characters allowed is 254. -static int LongDelimCheck(StyleContext &sc) { - int sep = 1; - while (sc.GetRelative(sep) == '=' && sep < 0xFF) - sep++; - if (sc.GetRelative(sep) == sc.ch) - return sep; - return 0; -} - -static void ColouriseLuaDoc( - Sci_PositionU startPos, - Sci_Position length, - int initStyle, - WordList *keywordlists[], - Accessor &styler) { - - const WordList &keywords = *keywordlists[0]; - const WordList &keywords2 = *keywordlists[1]; - const WordList &keywords3 = *keywordlists[2]; - const WordList &keywords4 = *keywordlists[3]; - const WordList &keywords5 = *keywordlists[4]; - const WordList &keywords6 = *keywordlists[5]; - const WordList &keywords7 = *keywordlists[6]; - const WordList &keywords8 = *keywordlists[7]; - - // Accepts accented characters - CharacterSet setWordStart(CharacterSet::setAlpha, "_", 0x80, true); - CharacterSet setWord(CharacterSet::setAlphaNum, "_", 0x80, true); - // Not exactly following number definition (several dots are seen as OK, etc.) - // but probably enough in most cases. [pP] is for hex floats. - CharacterSet setNumber(CharacterSet::setDigits, ".-+abcdefpABCDEFP"); - CharacterSet setExponent(CharacterSet::setNone, "eEpP"); - CharacterSet setLuaOperator(CharacterSet::setNone, "*/-+()={}~[];<>,.^%:#&|"); - CharacterSet setEscapeSkip(CharacterSet::setNone, "\"'\\"); - - Sci_Position currentLine = styler.GetLine(startPos); - // Initialize long string [[ ... ]] or block comment --[[ ... ]] nesting level, - // if we are inside such a string. Block comment was introduced in Lua 5.0, - // blocks with separators [=[ ... ]=] in Lua 5.1. - // Continuation of a string (\z whitespace escaping) is controlled by stringWs. - int nestLevel = 0; - int sepCount = 0; - int stringWs = 0; - if (initStyle == SCE_LUA_LITERALSTRING || initStyle == SCE_LUA_COMMENT || - initStyle == SCE_LUA_STRING || initStyle == SCE_LUA_CHARACTER) { - const int lineState = styler.GetLineState(currentLine - 1); - nestLevel = lineState >> 9; - sepCount = lineState & 0xFF; - stringWs = lineState & 0x100; - } - - // results of identifier/keyword matching - Sci_Position idenPos = 0; - Sci_Position idenWordPos = 0; - int idenStyle = SCE_LUA_IDENTIFIER; - bool foundGoto = false; - - // Do not leak onto next line - if (initStyle == SCE_LUA_STRINGEOL || initStyle == SCE_LUA_COMMENTLINE || initStyle == SCE_LUA_PREPROCESSOR) { - initStyle = SCE_LUA_DEFAULT; - } - - StyleContext sc(startPos, length, initStyle, styler); - if (startPos == 0 && sc.ch == '#' && sc.chNext == '!') { - // shbang line: "#!" is a comment only if located at the start of the script - sc.SetState(SCE_LUA_COMMENTLINE); - } - for (; sc.More(); sc.Forward()) { - if (sc.atLineEnd) { - // Update the line state, so it can be seen by next line - currentLine = styler.GetLine(sc.currentPos); - switch (sc.state) { - case SCE_LUA_LITERALSTRING: - case SCE_LUA_COMMENT: - case SCE_LUA_STRING: - case SCE_LUA_CHARACTER: - // Inside a literal string, block comment or string, we set the line state - styler.SetLineState(currentLine, (nestLevel << 9) | stringWs | sepCount); - break; - default: - // Reset the line state - styler.SetLineState(currentLine, 0); - break; - } - } - if (sc.atLineStart && (sc.state == SCE_LUA_STRING)) { - // Prevent SCE_LUA_STRINGEOL from leaking back to previous line - sc.SetState(SCE_LUA_STRING); - } - - // Handle string line continuation - if ((sc.state == SCE_LUA_STRING || sc.state == SCE_LUA_CHARACTER) && - sc.ch == '\\') { - if (sc.chNext == '\n' || sc.chNext == '\r') { - sc.Forward(); - if (sc.ch == '\r' && sc.chNext == '\n') { - sc.Forward(); - } - continue; - } - } - - // Determine if the current state should terminate. - if (sc.state == SCE_LUA_OPERATOR) { - if (sc.ch == ':' && sc.chPrev == ':') { // ::