diff --git a/.github/workflows/build-macos.yml b/.github/workflows/build-macos.yml index ad4a9b898..593769753 100644 --- a/.github/workflows/build-macos.yml +++ b/.github/workflows/build-macos.yml @@ -56,7 +56,7 @@ jobs: fi mkdir build && cd build - cmake -G Ninja -DCMAKE_BUILD_TYPE=Release -DCMAKE_OSX_ARCHITECTURES="arm64;x86_64" -DcustomTap=1 -DENABLE_TESTING=ON -Dsqlcipher=${{ matrix.sqlcipher }} .. + cmake -G Ninja -DCMAKE_BUILD_TYPE=Release -DCMAKE_CXX_STANDARD=14 -DCMAKE_OSX_ARCHITECTURES="arm64;x86_64" -DcustomTap=1 -DENABLE_TESTING=ON -Dsqlcipher=${{ matrix.sqlcipher }} .. - name: Build working-directory: ./build diff --git a/.github/workflows/build-windows.yml b/.github/workflows/build-windows.yml index c94c060b0..647777c31 100644 --- a/.github/workflows/build-windows.yml +++ b/.github/workflows/build-windows.yml @@ -32,6 +32,9 @@ jobs: choco install openssl --version=${{ env.OPENSSL_VERSION}} } + - name: Install Ninja (Windows) + run: choco install -y --no-progress ninja + # When building SQLCipher, if we specify a path to OpenSSL and # there are spaces in the path, an error will occur, so to # avoid this, create the symlink. @@ -107,9 +110,8 @@ jobs: mkdir sqlcipher copy sqlite3.h sqlcipher - - name: Patch CMakeLists.txt and WiX Toolset Variables + - name: Patch WiX Toolset Variables run: | - git apply .github\patch\CMakeLists.txt.patch git apply .github\patch\product.wxs.patch git apply .github\patch\translations.wxs.patch git apply .github\patch\variables.wxi.patch @@ -118,28 +120,29 @@ jobs: run: | mkdir release-sqlite && cd release-sqlite if ("${{ matrix.arch }}" -eq "Win32") { - cmake -G "Visual Studio 16 2019" -A "Win32" -DCMAKE_BUILD_TYPE=Release ..\ + cmake -G"Ninja Multi-Config" -DCMAKE_PREFIX_PATH="C:/dev/SQLite-Win32;C:/dev/OpenSSL-Win32" ..\ } else { - cmake -G "Visual Studio 16 2019" ..\ + cmake -G"Ninja Multi-Config" -DCMAKE_BUILD_TYPE=Release -DCMAKE_PREFIX_PATH="C:/dev/SQLite-Win64;C:/dev/OpenSSL-Win64" ..\ } - name: Build (SQLite) - run: cd release-sqlite && devenv /Build Release sqlitebrowser.sln /Project ALL_BUILD + run: | + cd release-sqlite + cmake --build . --config Release - name: Configure build (SQLCipher) run: | mkdir release-sqlcipher && cd release-sqlcipher if ("${{ matrix.arch }}" -eq "Win32") { - cmake -G "Visual Studio 16 2019" -DCMAKE_BUILD_TYPE=Release -Dsqlcipher=1 -A "Win32" ..\ + cmake -G"Ninja Multi-Config" -Dsqlcipher=1 -DCMAKE_PREFIX_PATH="C:/dev/SQLCipher-Win32;C:/dev/OpenSSL-Win32" ..\ } else { - cmake -G "Visual Studio 16 2019" -DCMAKE_BUILD_TYPE=Release -Dsqlcipher=1 ..\ + cmake -G"Ninja Multi-Config" -Dsqlcipher=1 -DCMAKE_PREFIX_PATH="C:/dev/SQLCipher-Win64;C:/dev/OpenSSL-Win64" ..\ } - name: Build (SQLCipher) run: | cd release-sqlcipher - devenv /Build Release sqlitebrowser.sln /Project ALL_BUILD - mv "Release\DB Browser for SQLite.exe" "Release\DB Browser for SQLCipher.exe" + cmake --build . --config Release - if: github.event_name != 'pull_request' name: Create MSI diff --git a/CMakeLists.txt b/CMakeLists.txt index c0c4c1e0f..432644dda 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -1,53 +1,42 @@ -cmake_minimum_required(VERSION 3.15) +cmake_minimum_required(VERSION 3.16) + project(sqlitebrowser VERSION 3.13.99 DESCRIPTION "GUI editor for SQLite databases" + LANGUAGES CXX ) -# Fix behavior of CMAKE_CXX_STANDARD when targeting macOS. -if(POLICY CMP0025) - # https://cmake.org/cmake/help/latest/policy/CMP0025.html - cmake_policy(SET CMP0025 NEW) -endif() +include(GNUInstallDirs) -# Fix warning of AUTOMOC behavior -if(POLICY CMP0071) - # https://cmake.org/cmake/help/latest/policy/CMP0071.html - cmake_policy(SET CMP0071 NEW) -endif() +include(config/options.cmake) -# Fix warning of Cached Variables -if(POLICY CMP0102) - # https://cmake.org/cmake/help/latest/policy/CMP0102.html - cmake_policy(SET CMP0102 NEW) -endif() +set(CMAKE_AUTOMOC ON) +set(CMAKE_AUTORCC ON) +set(CMAKE_AUTOUIC ON) +add_executable(${PROJECT_NAME}) -include(GNUInstallDirs) -OPTION(BUILD_STABLE_VERSION "Don't build the stable version by default" OFF) # Choose between building a stable version or nightly (the default), depending on whether '-DBUILD_STABLE_VERSION=1' is passed on the command line or not. -OPTION(ENABLE_TESTING "Enable the unit tests" OFF) -OPTION(FORCE_INTERNAL_QSCINTILLA "Don't use the distribution's QScintilla library even if there is one" OFF) -OPTION(FORCE_INTERNAL_QCUSTOMPLOT "Don't use distribution's QCustomPlot even if available" ON) -OPTION(FORCE_INTERNAL_QHEXEDIT "Don't use distribution's QHexEdit even if available" ON) -OPTION(ALL_WARNINGS "Enable some useful warning flags" OFF) -OPTION(sqlcipher "Build with SQLCipher library" OFF) -OPTION(customTap "Using SQLCipher, SQLite and Qt installed through our custom Homebrew tap" OFF) +if(QT_MAJOR STREQUAL "Qt5") + set(CMAKE_CXX_STANDARD 14) +elseif(QT_MAJOR STREQUAL "Qt6") + set(CMAKE_CXX_STANDARD 17) +else() + message(FATAL_ERROR "Uknown Qt Version: ${QT_MAJOR}") +endif() -set(CMAKE_CXX_STANDARD 14) set(CMAKE_CXX_STANDARD_REQUIRED True) -set(CMAKE_AUTOMOC ON) -set(CMAKE_INCLUDE_CURRENT_DIR ON) +set(CMAKE_MODULE_PATH "${CMAKE_CURRENT_SOURCE_DIR}/cmake" "${CMAKE_MODULE_PATH}") -if(APPLE) - add_executable(${PROJECT_NAME} MACOSX_BUNDLE) -elseif(WIN32) - add_executable(${PROJECT_NAME} WIN32) -else() - add_executable(${PROJECT_NAME}) +if(NOT CMAKE_BUILD_TYPE) + set(CMAKE_BUILD_TYPE "Release") endif() -# Determine the git commit hash +set_target_properties(${PROJECT_NAME} PROPERTIES + WIN32_EXECUTABLE ON + MACOSX_BUNDLE ON +) + execute_process( COMMAND git -C ${CMAKE_CURRENT_SOURCE_DIR} rev-parse --short --verify HEAD OUTPUT_VARIABLE GIT_COMMIT_HASH @@ -61,7 +50,6 @@ if (GIT_COMMIT_HASH STREQUAL "") endif() add_definitions(-DGIT_COMMIT_HASH="${GIT_COMMIT_HASH}") - if(NOT BUILD_STABLE_VERSION) # BUILD_VERSION is the current date in YYYYMMDD format. It is only # used by the nightly version to add the date of the build. @@ -70,98 +58,42 @@ if(NOT BUILD_STABLE_VERSION) target_compile_definitions(${PROJECT_NAME} PRIVATE BUILD_VERSION=${BUILD_VERSION}) endif() -set(CMAKE_MODULE_PATH "${CMAKE_CURRENT_SOURCE_DIR}/cmake" "${CMAKE_MODULE_PATH}") - -if(NOT CMAKE_BUILD_TYPE) - set(CMAKE_BUILD_TYPE "Release") -endif() +include(config/platform.cmake) -if(MSVC) - if(CMAKE_CL_64) - # Paths for 64-bit windows builds - set(OPENSSL_PATH "C:/dev/OpenSSL-Win64" CACHE PATH "OpenSSL Path") - set(QT5_PATH "C:/dev/Qt/5.12.12/msvc2017_64" CACHE PATH "Qt5 Path") - - # Choose between SQLCipher or SQLite, depending whether - # -Dsqlcipher=on is passed on the command line - if(sqlcipher) - set(SQLITE3_PATH "C:/git_repos/SQLCipher-Win64" CACHE PATH "SQLCipher Path") - else() - set(SQLITE3_PATH "C:/dev/SQLite-Win64" CACHE PATH "SQLite Path") - endif() - else() - # Paths for 32-bit windows builds - set(OPENSSL_PATH "C:/dev/OpenSSL-Win32" CACHE PATH "OpenSSL Path") - set(QT5_PATH "C:/dev/Qt/5.12.12/msvc2017" CACHE PATH "Qt5 Path") - - # Choose between SQLCipher or SQLite, depending whether - # -Dsqlcipher=on is passed on the command line - if(sqlcipher) - set(SQLITE3_PATH "C:/git_repos/SQLCipher-Win32" CACHE PATH "SQLCipher Path") - else() - set(SQLITE3_PATH "C:/dev/SQLite-Win32" CACHE PATH "SQLite Path") - endif() - endif() - - list(PREPEND CMAKE_PREFIX_PATH ${QT5_PATH} ${SQLITE3_PATH}) -endif() - - -if(APPLE) - # For Intel Mac's - if(EXISTS /usr/local/opt/qt5) - list(APPEND CMAKE_PREFIX_PATH "/usr/local/opt/qt5") - endif() - - # For Apple Silicon Mac's - if(EXISTS /opt/homebrew/opt/qt5) - list(APPEND CMAKE_PREFIX_PATH "/opt/homebrew/opt/qt5") - endif() - if(EXISTS /opt/homebrew/opt/sqlitefts5) - list(PREPEND CMAKE_PREFIX_PATH "/opt/homebrew/opt/sqlitefts5") - endif() - - # For Apple Silicon Mac's and install dependencies via our Homebrew tap(sqlitebrowser/homebrew-tap) - if(customTap AND EXISTS /opt/homebrew/opt/) - list(PREPEND CMAKE_PREFIX_PATH "/opt/homebrew/opt/sqlb-qt@5") - list(PREPEND CMAKE_PREFIX_PATH "/opt/homebrew/opt/sqlb-sqlite") - - if(sqlcipher) - list(APPEND SQLCIPHER_INCLUDE_DIR "/opt/homebrew/include") - list(APPEND SQLCIPHER_LIBRARY "/opt/homebrew/opt/sqlb-sqlcipher/lib/libsqlcipher.0.dylib") - endif() - endif() +find_package(${QT_MAJOR} REQUIRED COMPONENTS Concurrent Gui LinguistTools Network PrintSupport Test Widgets Xml) +set(QT_LIBS + ${QT_MAJOR}::Gui + ${QT_MAJOR}::Test + ${QT_MAJOR}::PrintSupport + ${QT_MAJOR}::Widgets + ${QT_MAJOR}::Network + ${QT_MAJOR}::Concurrent + ${QT_MAJOR}::Xml +) +if(QT_MAJOR STREQUAL "Qt6") + find_package(Qt6 REQUIRED COMPONENTS Core5Compat) + list(APPEND QT_LIBS Qt6::Core5Compat) + set_target_properties(${PROJECT_NAME} PROPERTIES + AUTOUIC_OPTIONS "--connections=string" + ) endif() -find_package(Qt5 REQUIRED COMPONENTS Concurrent Gui LinguistTools Network PrintSupport Test Widgets Xml) +target_include_directories(${PROJECT_NAME} SYSTEM PRIVATE ${CMAKE_CURRENT_LIST_DIR}/libs/json) +target_include_directories(${PROJECT_NAME} PRIVATE ${CMAKE_CURRENT_BINARY_DIR} src) -if(NOT FORCE_INTERNAL_QSCINTILLA) - find_package(QScintilla 2.8.10) -endif() -if(NOT FORCE_INTERNAL_QCUSTOMPLOT) - find_package(QCustomPlot) -endif() -if(NOT FORCE_INTERNAL_QHEXEDIT) - find_package(QHexEdit) -endif() - -target_include_directories(${PROJECT_NAME} PRIVATE ${CMAKE_CURRENT_LIST_DIR}/libs/json) +include(config/3dparty.cmake) -if(NOT QSCINTILLA_FOUND) - add_subdirectory(libs/qscintilla/Qt4Qt5) -endif() -if(NOT QHexEdit_FOUND) - add_subdirectory(libs/qhexedit) -endif() -if(NOT QCustomPlot_FOUND) - add_subdirectory(libs/qcustomplot-source) -endif() - -if(ENABLE_TESTING) - enable_testing() +# SQLCipher option +if(sqlcipher) + add_definitions(-DENABLE_SQLCIPHER) + find_package(SQLCipher REQUIRED) + include_directories(SYSTEM "${SQLCIPHER_INCLUDE_DIR}/sqlcipher") + set(LIBSQLITE_NAME SQLCipher::SQLCipher) +else() + find_package(SQLite3 REQUIRED) + set(LIBSQLITE_NAME SQLite::SQLite3) endif() -# generate file with version information configure_file(${CMAKE_CURRENT_SOURCE_DIR}/src/version.h.in ${CMAKE_CURRENT_BINARY_DIR}/version.h ) @@ -300,7 +232,9 @@ target_sources(${PROJECT_NAME} src/TableBrowserDock.cpp ) -set(SQLB_FORMS +source_group("Qt UI" "src/.*\.ui$") +target_sources(${PROJECT_NAME} + PRIVATE src/AboutDialog.ui src/EditIndexDialog.ui src/EditDialog.ui @@ -327,317 +261,44 @@ set(SQLB_FORMS src/ImageViewer.ui ) -set(SQLB_RESOURCES - src/icons/icons.qrc - src/translations/flags/flags.qrc - src/translations/translations.qrc - src/certs/CaCerts.qrc - src/qdarkstyle/dark/darkstyle.qrc - src/qdarkstyle/light/lightstyle.qrc -) +include(config/translations.cmake) + +source_group("Qt Resources" "src/.*\.qrc$") +target_sources(${PROJECT_NAME} + PRIVATE -set(SQLB_MISC + # General + src/certs/CaCerts.qrc src/sql/parser/sqlite3_parser.yy src/sql/parser/sqlite3_lexer.ll -) - -# Translation files -set(SQLB_TSS - "${CMAKE_SOURCE_DIR}/src/translations/sqlb_ar_SA.ts" - "${CMAKE_SOURCE_DIR}/src/translations/sqlb_cs.ts" - "${CMAKE_SOURCE_DIR}/src/translations/sqlb_zh.ts" - "${CMAKE_SOURCE_DIR}/src/translations/sqlb_zh_TW.ts" - "${CMAKE_SOURCE_DIR}/src/translations/sqlb_de.ts" - "${CMAKE_SOURCE_DIR}/src/translations/sqlb_es_ES.ts" - "${CMAKE_SOURCE_DIR}/src/translations/sqlb_fr.ts" - "${CMAKE_SOURCE_DIR}/src/translations/sqlb_ru.ts" - "${CMAKE_SOURCE_DIR}/src/translations/sqlb_pl.ts" - "${CMAKE_SOURCE_DIR}/src/translations/sqlb_pt_BR.ts" - "${CMAKE_SOURCE_DIR}/src/translations/sqlb_en_GB.ts" - "${CMAKE_SOURCE_DIR}/src/translations/sqlb_ko_KR.ts" - "${CMAKE_SOURCE_DIR}/src/translations/sqlb_tr.ts" - "${CMAKE_SOURCE_DIR}/src/translations/sqlb_uk_UA.ts" - "${CMAKE_SOURCE_DIR}/src/translations/sqlb_it.ts" - "${CMAKE_SOURCE_DIR}/src/translations/sqlb_ja.ts" - "${CMAKE_SOURCE_DIR}/src/translations/sqlb_nl.ts" - "${CMAKE_SOURCE_DIR}/src/translations/sqlb_sv.ts" - "${CMAKE_SOURCE_DIR}/src/translations/sqlb_id.ts" - "${CMAKE_SOURCE_DIR}/src/translations/sqlb_ro.ts" -) - -# Windows image format plugin files -set(WIN_IMG_PLUGINS - "${QT5_PATH}/plugins/imageformats/qgif.dll" - "${QT5_PATH}/plugins/imageformats/qicns.dll" - "${QT5_PATH}/plugins/imageformats/qico.dll" - "${QT5_PATH}/plugins/imageformats/qjpeg.dll" - "${QT5_PATH}/plugins/imageformats/qsvg.dll" - "${QT5_PATH}/plugins/imageformats/qtga.dll" - "${QT5_PATH}/plugins/imageformats/qtiff.dll" - "${QT5_PATH}/plugins/imageformats/qwbmp.dll" - "${QT5_PATH}/plugins/imageformats/qwebp.dll" -) -set(WIN_IMG_PLUGINS_DEBUG - "${QT5_PATH}/plugins/imageformats/qgifd.dll" - "${QT5_PATH}/plugins/imageformats/qicnsd.dll" - "${QT5_PATH}/plugins/imageformats/qicod.dll" - "${QT5_PATH}/plugins/imageformats/qjpegd.dll" - "${QT5_PATH}/plugins/imageformats/qsvgd.dll" - "${QT5_PATH}/plugins/imageformats/qtgad.dll" - "${QT5_PATH}/plugins/imageformats/qtiffd.dll" - "${QT5_PATH}/plugins/imageformats/qwbmpd.dll" - "${QT5_PATH}/plugins/imageformats/qwebpd.dll" -) - -# License files -set(LICENSE_FILES - LICENSE - LICENSE-PLUGINS -) - -qt5_wrap_ui(SQLB_FORM_HDR ${SQLB_FORMS}) -if(SQLB_TSS) - # add translations - foreach(SQLB_TS ${SQLB_TSS}) - set_source_files_properties("${SQLB_TS}" PROPERTIES OUTPUT_LOCATION "${CMAKE_SOURCE_DIR}/src/translations") - endforeach() - qt5_add_translation(SQLB_QMS ${SQLB_TSS}) -endif() -qt5_add_resources(SQLB_RESOURCES_RCC ${SQLB_RESOURCES}) - -#icon and correct libs/subsystem for windows -if(WIN32) - #enable version check for windows - add_definitions(-DCHECKNEWVERSION) - - if(MINGW) - # resource compilation for MinGW - add_custom_command(OUTPUT "${CMAKE_CURRENT_BINARY_DIR}/sqlbicon.o" - COMMAND windres "-I${CMAKE_CURRENT_BINARY_DIR}" "-i${CMAKE_CURRENT_SOURCE_DIR}/src/winapp.rc" -o "${CMAKE_CURRENT_BINARY_DIR}/sqlbicon.o" VERBATIM - ) - target_sources(${PROJECT_NAME} PRIVATE "${CMAKE_CURRENT_BINARY_DIR}/sqlbicon.o") - set(CMAKE_EXE_LINKER_FLAGS "${CMAKE_EXE_LINKER_FLAGS} -Wl,-subsystem,windows") - set(WIN32_STATIC_LINK -Wl,-Bstatic -lssl -lcrypto -lws2_32) - set(ADDITIONAL_LIBS lzma) - else() - target_sources(${PROJECT_NAME} PRIVATE "${CMAKE_CURRENT_SOURCE_DIR}/src/winapp.rc") - endif() -else() - set(LPTHREAD pthread) -endif() - -#enable version check for macOS -if(APPLE) - add_definitions(-DCHECKNEWVERSION) -endif() -# SQLCipher option -if(sqlcipher) - add_definitions(-DENABLE_SQLCIPHER) - set(LIBSQLITE_NAME SQLCipher) -else() - set(LIBSQLITE_NAME SQLite3) -endif() - -# add extra library path for MacOS and FreeBSD -set(EXTRAPATH APPLE OR ${CMAKE_SYSTEM_NAME} MATCHES "FreeBSD") -if(EXTRAPATH) - list(PREPEND CMAKE_PREFIX_PATH /usr/local/opt/sqlite/lib) - list(PREPEND CMAKE_PREFIX_PATH /usr/local/opt/sqlitefts5/lib) -endif() - -find_package(${LIBSQLITE_NAME}) -if (sqlcipher) - target_link_libraries(${PROJECT_NAME} SQLCipher::SQLCipher) -else() - target_link_libraries(${PROJECT_NAME} SQLite::SQLite3) -endif() - -if(MSVC) - if(sqlcipher) - find_file(SQLITE3_DLL sqlcipher.dll) - else() - find_file(SQLITE3_DLL sqlite3.dll) - endif() -endif() + # Graphics + src/icons/icons.qrc -target_include_directories(${PROJECT_NAME} PRIVATE src) + # Translations + src/translations/flags/flags.qrc + src/translations/translations.qrc -target_sources(${PROJECT_NAME} - PRIVATE - ${SQLB_FORM_HDR} - ${SQLB_MOC} - ${SQLB_RESOURCES_RCC} - ${SQLB_MISC} + # Styles + src/qdarkstyle/dark/darkstyle.qrc + src/qdarkstyle/light/lightstyle.qrc ) -# Warnings -if(ALL_WARNINGS AND CMAKE_COMPILER_IS_GNUCC) - target_compile_options(${PROJECT_NAME} PRIVATE -Wall -Wextra -Wshadow -Wnon-virtual-dtor -Wold-style-cast -Wcast-align -Wunused -Woverloaded-virtual -Wpedantic -Wconversion -Wsign-conversion) - target_compile_options(${PROJECT_NAME} PRIVATE -Wdouble-promotion -Wformat=2 -Wlogical-op -Wuseless-cast) - if(CMAKE_CXX_COMPILER_VERSION VERSION_GREATER_EQUAL 7.0) - target_compile_options(${PROJECT_NAME} PRIVATE -Wnull-dereference -Wduplicated-cond -Wduplicated-branches) - endif() -endif() - -set(QT_LIBS Qt5::Gui Qt5::Test Qt5::PrintSupport Qt5::Widgets Qt5::Network Qt5::Concurrent Qt5::Xml) - target_link_libraries(${PROJECT_NAME} - ${LPTHREAD} + PRIVATE ${QT_LIBS} - ${WIN32_STATIC_LINK} - ${ADDITIONAL_LIBS} -) - -target_link_libraries(${PROJECT_NAME} - QHexEdit::QHexEdit - QCustomPlot::QCustomPlot - QScintilla::QScintilla + QHexEdit::QHexEdit QCustomPlot::QCustomPlot QScintilla::QScintilla + ${LIBSQLITE_NAME} + ${LPTHREAD} ) -if(MSVC) - set_target_properties(${PROJECT_NAME} PROPERTIES OUTPUT_NAME "DB Browser for SQLite") - set_target_properties(${PROJECT_NAME} PROPERTIES LINK_FLAGS_DEBUG "/SUBSYSTEM:CONSOLE") - set_target_properties(${PROJECT_NAME} PROPERTIES COMPILE_DEFINITIONS_DEBUG "_CONSOLE") - set_target_properties(${PROJECT_NAME} PROPERTIES LINK_FLAGS_RELWITHDEBINFO "/SUBSYSTEM:CONSOLE") - set_target_properties(${PROJECT_NAME} PROPERTIES COMPILE_DEFINITIONS_RELWITHDEBINFO "_CONSOLE") - if(CMAKE_CL_64) - set_target_properties(${PROJECT_NAME} PROPERTIES LINK_FLAGS_RELEASE "/SUBSYSTEM:WINDOWS,5.02 /ENTRY:mainCRTStartup") - set_target_properties(${PROJECT_NAME} PROPERTIES LINK_FLAGS_MINSIZEREL "/SUBSYSTEM:WINDOWS,5.02") - else() - set_target_properties(${PROJECT_NAME} PROPERTIES LINK_FLAGS_RELEASE "/SUBSYSTEM:WINDOWS,5.01 /ENTRY:mainCRTStartup") - set_target_properties(${PROJECT_NAME} PROPERTIES LINK_FLAGS_MINSIZEREL "/SUBSYSTEM:WINDOWS,5.01") - endif() -endif() - -if((NOT WIN32 AND NOT APPLE) OR MINGW) - install(TARGETS ${PROJECT_NAME} - RUNTIME DESTINATION ${CMAKE_INSTALL_BINDIR} - LIBRARY DESTINATION ${CMAKE_INSTALL_LIBDIR} - ) -endif() - -if(UNIX) - target_link_libraries(${PROJECT_NAME} dl) -endif() +include(config/install.cmake) if(ENABLE_TESTING) + enable_testing() add_subdirectory(src/tests) endif() -if(UNIX) - install(FILES src/icons/${PROJECT_NAME}.png - DESTINATION ${CMAKE_INSTALL_DATADIR}/icons/hicolor/256x256/apps/ - ) - - install(FILES images/logo.svg - DESTINATION ${CMAKE_INSTALL_DATADIR}/icons/hicolor/scalable/apps/ - RENAME ${PROJECT_NAME}.svg - ) - - install(FILES distri/${PROJECT_NAME}.desktop - DESTINATION ${CMAKE_INSTALL_DATADIR}/applications/ - ) - - install(FILES distri/${PROJECT_NAME}.desktop.appdata.xml - DESTINATION ${CMAKE_INSTALL_DATADIR}/metainfo/ - ) -endif() - -if(WIN32 AND MSVC) - install(TARGETS ${PROJECT_NAME} - RUNTIME DESTINATION "/" - LIBRARY DESTINATION ${CMAKE_INSTALL_LIBDIR} - ) - - set(QT5_BIN_PATH ${QT5_PATH}/bin) - - # The Qt5 Debug configuration library files have a 'd' postfix - install(FILES - ${QT5_BIN_PATH}/Qt5Cored.dll - ${QT5_BIN_PATH}/Qt5Guid.dll - ${QT5_BIN_PATH}/Qt5Networkd.dll - ${QT5_BIN_PATH}/Qt5PrintSupportd.dll - ${QT5_BIN_PATH}/Qt5Widgetsd.dll - ${QT5_BIN_PATH}/Qt5Concurrentd.dll - ${QT5_BIN_PATH}/Qt5Svgd.dll - DESTINATION "/" - CONFIGURATIONS Debug - ) - - # The Qt5 Release configuration files don't have a postfix - install(FILES - ${QT5_BIN_PATH}/Qt5Core.dll - ${QT5_BIN_PATH}/Qt5Gui.dll - ${QT5_BIN_PATH}/Qt5Network.dll - ${QT5_BIN_PATH}/Qt5PrintSupport.dll - ${QT5_BIN_PATH}/Qt5Widgets.dll - ${QT5_BIN_PATH}/Qt5Concurrent.dll - ${QT5_BIN_PATH}/Qt5Svg.dll - DESTINATION "/" - CONFIGURATIONS Release - ) - - # The files below are common to all configurations - install(FILES - ${SQLITE3_DLL} - ${OPENSSL_PATH}/libeay32.dll - ${OPENSSL_PATH}/ssleay32.dll - DESTINATION "/" - ) - - install(FILES - ${QT5_PATH}/plugins/platforms/qwindows.dll - DESTINATION platforms - ) - - # The XML dll - install(FILES - "${QT5_PATH}/bin/Qt5Xmld.dll" - DESTINATION "/" - CONFIGURATIONS Debug - ) - - install(FILES - "${QT5_PATH}/bin/Qt5Xml.dll" - DESTINATION "/" - CONFIGURATIONS Release - ) - - # The image format plugins - install(FILES - ${WIN_IMG_PLUGINS_DEBUG} - DESTINATION imageformats - CONFIGURATIONS Debug - ) - - install(FILES - ${WIN_IMG_PLUGINS} - DESTINATION imageformats - CONFIGURATIONS Release - ) - - # The license files - install(FILES - ${LICENSE_FILES} - DESTINATION licenses - ) - - # The batch file launcher - install(FILES - distri/winlaunch.bat - DESTINATION "/" - ) -endif() - -if(APPLE) - set_target_properties(${PROJECT_NAME} PROPERTIES - BUNDLE True - OUTPUT_NAME "DB Browser for SQLite" - MACOSX_BUNDLE_INFO_PLIST ${CMAKE_SOURCE_DIR}/src/app.plist - ) -endif() - # CPack configuration set(CPACK_STRIP_FILES ON) set(CPACK_DEBIAN_PACKAGE_PRIORITY optional) diff --git a/cmake/FindQScintilla.cmake b/cmake/FindQScintilla.cmake index 63c62bc56..55dc8a13b 100644 --- a/cmake/FindQScintilla.cmake +++ b/cmake/FindQScintilla.cmake @@ -45,21 +45,39 @@ # When using pkg-config, paths may contain odd slash placement. Each # include directory is pre-processed here. Resultant list variable # then used for search hinting. Depends on successful find_package(Qt5). -set(Qt5QScintillaHintDirs) -if(UNIX) - foreach(item ${Qt5Widgets_INCLUDE_DIRS}) - # remove slash at end of line - STRING(REGEX REPLACE "\\/$" "" item ${item}) - # replace double slashes is single slashes - STRING(REGEX REPLACE "\\/\\/" "/" item ${item}) - list(APPEND Qt5QScintillaHintDirs "${item}/Qsci") - endforeach() +if(QT_MAJOR STREQUAL "Qt6") + set(Qt6QScintillaHintDirs) + if(UNIX) + foreach(item ${Qt6Widgets_INCLUDE_DIRS}) + # remove slash at end of line + STRING(REGEX REPLACE "\\/$" "" item ${item}) + # replace double slashes is single slashes + STRING(REGEX REPLACE "\\/\\/" "/" item ${item}) + list(APPEND Qt6QScintillaHintDirs "${item}/Qsci") + endforeach() + endif() + find_path ( QSCINTILLA_INCLUDE_DIR qsciscintilla.h + HINTS /usr/local/include/Qt6/Qsci + /usr/local/opt/qscintilla2/include/Qt6/Qsci + ${Qt6QScintillaHintDirs} + ) +else() + set(Qt5QScintillaHintDirs) + if(UNIX) + foreach(item ${Qt5Widgets_INCLUDE_DIRS}) + # remove slash at end of line + STRING(REGEX REPLACE "\\/$" "" item ${item}) + # replace double slashes is single slashes + STRING(REGEX REPLACE "\\/\\/" "/" item ${item}) + list(APPEND Qt5QScintillaHintDirs "${item}/Qsci") + endforeach() + endif() + find_path ( QSCINTILLA_INCLUDE_DIR qsciscintilla.h + HINTS /usr/local/include/Qsci + /usr/local/opt/qscintilla2/include/Qsci + ${Qt5QScintillaHintDirs} + ) endif() -find_path ( QSCINTILLA_INCLUDE_DIR qsciscintilla.h - HINTS /usr/local/include/Qsci - /usr/local/opt/qscintilla2/include/Qsci - ${Qt5QScintillaHintDirs} -) set ( QSCINTILLA_INCLUDE_DIRS ${QSCINTILLA_INCLUDE_DIR} ) @@ -91,10 +109,17 @@ if ( QScintilla_FIND_VERSION AND QSCINTILLA_VERSION_STRING ) endif () endif () -find_library ( QSCINTILLA_LIBRARY - NAMES qscintilla2 qscintilla2_qt5 - HINTS /usr/local/lib /usr/local/opt/qscintilla2/lib -) +if(QT_MAJOR STREQUAL "Qt6") + find_library ( QSCINTILLA_LIBRARY + NAMES qscintilla2_qt6 + HINTS /usr/local/lib /usr/local/opt/qscintilla2/lib + ) +else() + find_library ( QSCINTILLA_LIBRARY + NAMES qscintilla2 qscintilla2_qt5 + HINTS /usr/local/lib /usr/local/opt/qscintilla2/lib + ) +endif() set ( QSCINTILLA_LIBRARIES ${QSCINTILLA_LIBRARY} ) @@ -132,4 +157,4 @@ if (QScintilla_FOUND AND NOT TARGET QScintilla::QScintilla) INTERFACE_INCLUDE_DIRECTORIES ${QSCINTILLA_INCLUDE_DIRS} IMPORTED_LOCATION ${QSCINTILLA_LIBRARIES} ) -endif() \ No newline at end of file +endif() diff --git a/config/3dparty.cmake b/config/3dparty.cmake new file mode 100644 index 000000000..f92001f92 --- /dev/null +++ b/config/3dparty.cmake @@ -0,0 +1,23 @@ +if(NOT FORCE_INTERNAL_QSCINTILLA) + find_package(QScintilla 2.8.10) +endif() + +if(NOT FORCE_INTERNAL_QCUSTOMPLOT) + find_package(QCustomPlot) +endif() + +if(NOT FORCE_INTERNAL_QHEXEDIT) + find_package(QHexEdit) +endif() + +if(NOT QSCINTILLA_FOUND) + add_subdirectory(libs/qscintilla_2.14.1/Qt5Qt6) +endif() + +if(NOT QHexEdit_FOUND) + add_subdirectory(libs/qhexedit) +endif() + +if(NOT QCustomPlot_FOUND) + add_subdirectory(libs/qcustomplot-source) +endif() diff --git a/config/install.cmake b/config/install.cmake new file mode 100644 index 000000000..7585f4b9a --- /dev/null +++ b/config/install.cmake @@ -0,0 +1,89 @@ +if(NOT WIN32 AND NOT APPLE) + install(TARGETS ${PROJECT_NAME} + RUNTIME DESTINATION ${CMAKE_INSTALL_BINDIR} + LIBRARY DESTINATION ${CMAKE_INSTALL_LIBDIR} + ) +endif() + +if(UNIX) + install(FILES src/icons/${PROJECT_NAME}.png + DESTINATION ${CMAKE_INSTALL_DATADIR}/icons/hicolor/256x256/apps/ + ) + + install(FILES images/logo.svg + DESTINATION ${CMAKE_INSTALL_DATADIR}/icons/hicolor/scalable/apps/ + RENAME ${PROJECT_NAME}.svg + ) + + install(FILES distri/${PROJECT_NAME}.desktop + DESTINATION ${CMAKE_INSTALL_DATADIR}/applications/ + ) + + install(FILES distri/${PROJECT_NAME}.desktop.appdata.xml + DESTINATION ${CMAKE_INSTALL_DATADIR}/metainfo/ + ) +endif() + +if(WIN32) + install(TARGETS ${PROJECT_NAME} + RUNTIME DESTINATION "." + LIBRARY DESTINATION ${CMAKE_INSTALL_LIBDIR} + ) + + if(sqlcipher) + find_file(DLL_NAME sqlcipher.dll PATH_SUFFIXES bin ../bin ../../bin) + else() + find_file(DLL_NAME sqlite3.dll PATH_SUFFIXES bin ../bin ../../bin) + endif() + + string(REGEX MATCH "^([0-9]+)\.([0-9]+)" SSL_OUT "${OPENSSL_VERSION}") + set(DLL_CRYPTO_NAMES + "libcrypto-${CMAKE_MATCH_1}_${CMAKE_MATCH_2}-x64.dll" + "libcrypto-${CMAKE_MATCH_1}-x64.dll" + "libcrypto-${CMAKE_MATCH_1}_${CMAKE_MATCH_2}.dll" + "libcrypto-${CMAKE_MATCH_1}.dll" + ) + + set(DLL_SSL_NAMES + "libssl-${CMAKE_MATCH_1}_${CMAKE_MATCH_2}-x64.dll" + "libssl-${CMAKE_MATCH_1}-x64.dll" + "libssl-${CMAKE_MATCH_1}_${CMAKE_MATCH_2}.dll" + "libssl-${CMAKE_MATCH_1}.dll" + ) + + find_file(DLL_CRYPTO NAMES ${DLL_CRYPTO_NAMES} PATH_SUFFIXES bin ../bin ../../bin) + find_file(DLL_SSL NAMES ${DLL_SSL_NAMES} PATH_SUFFIXES bin ../bin ../../bin) + + install(FILES + ${DLL_NAME} + ${DLL_CRYPTO} + ${DLL_SSL} + DESTINATION "." + ) + + # The license files + install(FILES + LICENSE + LICENSE-GPL-3.0 + LICENSE-MIT + LICENSE-MPL-2.0 + LICENSE-PLUGINS + DESTINATION licenses + ) + + if(QT_MAJOR STREQUAL "Qt5") + set(OPT_ANGLE "--no-angle") + endif() + + find_file(QT_DEPLOY windeployqt.exe HINTS ${${QT_MAJOR}_DIR}/../../../bin) + if(NOT ${QT_DEPLOY} STREQUAL "QT_DEPLOY-NOTFOUND") + install (CODE + "execute_process(COMMAND_ECHO STDOUT COMMAND ${QT_DEPLOY} + --no-system-d3d-compiler + ${OPT_ANGLE} + --no-opengl-sw + \"${CMAKE_INSTALL_PREFIX}/$\" + )" + ) + endif() +endif() diff --git a/config/options.cmake b/config/options.cmake new file mode 100644 index 000000000..179fe0c23 --- /dev/null +++ b/config/options.cmake @@ -0,0 +1,9 @@ +set(QT_MAJOR Qt5 CACHE STRING "Major QT version") +OPTION(BUILD_STABLE_VERSION "Don't build the stable version by default" OFF) # Choose between building a stable version or nightly (the default), depending on whether '-DBUILD_STABLE_VERSION=1' is passed on the command line or not. +OPTION(ENABLE_TESTING "Enable the unit tests" OFF) +OPTION(FORCE_INTERNAL_QSCINTILLA "Don't use the distribution's QScintilla library even if there is one" OFF) +OPTION(FORCE_INTERNAL_QCUSTOMPLOT "Don't use distribution's QCustomPlot even if available" ON) +OPTION(FORCE_INTERNAL_QHEXEDIT "Don't use distribution's QHexEdit even if available" ON) +OPTION(ALL_WARNINGS "Enable some useful warning flags" OFF) +OPTION(sqlcipher "Build with SQLCipher library" OFF) +OPTION(customTap "Using SQLCipher, SQLite and Qt installed through our custom Homebrew tap" OFF) diff --git a/config/platform.cmake b/config/platform.cmake new file mode 100644 index 000000000..65856fa67 --- /dev/null +++ b/config/platform.cmake @@ -0,0 +1,18 @@ +if(WIN32) + include(${CMAKE_CURRENT_LIST_DIR}/platform_win.cmake) + add_definitions(-DCHECKNEWVERSION) +elseif(APPLE) + include(${CMAKE_CURRENT_LIST_DIR}/platform_apple.cmake) + add_definitions(-DCHECKNEWVERSION) +endif() + +if(NOT WIN32) + set(LPTHREAD pthread) +endif() + +# add extra library path for MacOS and FreeBSD +set(EXTRAPATH APPLE OR ${CMAKE_SYSTEM_NAME} MATCHES "FreeBSD") +if(EXTRAPATH) + list(PREPEND CMAKE_PREFIX_PATH /usr/local/opt/sqlite/lib) + list(PREPEND CMAKE_PREFIX_PATH /usr/local/opt/sqlitefts5/lib) +endif() diff --git a/config/platform_apple.cmake b/config/platform_apple.cmake new file mode 100644 index 000000000..20c97c4e9 --- /dev/null +++ b/config/platform_apple.cmake @@ -0,0 +1,30 @@ +if(QT_MAJOR STREQUAL "Qt5") + # For Intel Mac's + if(EXISTS /usr/local/opt/qt5) + list(APPEND CMAKE_PREFIX_PATH "/usr/local/opt/qt5") + endif() + + # For Apple Silicon Mac's + if(EXISTS /opt/homebrew/opt/qt5) + list(APPEND CMAKE_PREFIX_PATH "/opt/homebrew/opt/qt5") + endif() + if(EXISTS /opt/homebrew/opt/sqlitefts5) + list(PREPEND CMAKE_PREFIX_PATH "/opt/homebrew/opt/sqlitefts5") + endif() + + # For Apple Silicon Mac's and install dependencies via our Homebrew tap(sqlitebrowser/homebrew-tap) + if(customTap AND EXISTS /opt/homebrew/opt/) + list(PREPEND CMAKE_PREFIX_PATH "/opt/homebrew/opt/sqlb-qt@5") + list(PREPEND CMAKE_PREFIX_PATH "/opt/homebrew/opt/sqlb-sqlite") + + if(sqlcipher) + list(APPEND SQLCIPHER_INCLUDE_DIR "/opt/homebrew/include") + list(APPEND SQLCIPHER_LIBRARY "/opt/homebrew/opt/sqlb-sqlcipher/lib/libsqlcipher.0.dylib") + endif() + endif() +endif() + +set_target_properties(${PROJECT_NAME} PROPERTIES + OUTPUT_NAME "DB Browser for SQLite" + MACOSX_BUNDLE_INFO_PLIST ${CMAKE_SOURCE_DIR}/src/app.plist +) diff --git a/config/platform_win.cmake b/config/platform_win.cmake new file mode 100644 index 000000000..ba49ee311 --- /dev/null +++ b/config/platform_win.cmake @@ -0,0 +1,35 @@ +if(sqlcipher) + set_target_properties(${PROJECT_NAME} PROPERTIES OUTPUT_NAME "DB Browser for SQLCipher") +else() + set_target_properties(${PROJECT_NAME} PROPERTIES OUTPUT_NAME "DB Browser for SQLite") +endif() + +if(QT_MAJOR STREQUAL "Qt5") + find_package(OpenSSL 1.1.1 REQUIRED) +else() + find_package(OpenSSL 3.0.0 REQUIRED) +endif() + +if(MSVC) + if(CMAKE_SIZEOF_VOID_P EQUAL 8) + set_target_properties(${PROJECT_NAME} PROPERTIES LINK_FLAGS_RELEASE "/SUBSYSTEM:WINDOWS,5.02 /ENTRY:mainCRTStartup") + set_target_properties(${PROJECT_NAME} PROPERTIES LINK_FLAGS_MINSIZEREL "/SUBSYSTEM:WINDOWS,5.02") + else() + set_target_properties(${PROJECT_NAME} PROPERTIES LINK_FLAGS_RELEASE "/SUBSYSTEM:WINDOWS,5.01 /ENTRY:mainCRTStartup") + set_target_properties(${PROJECT_NAME} PROPERTIES LINK_FLAGS_MINSIZEREL "/SUBSYSTEM:WINDOWS,5.01") + endif() + + set_target_properties(${PROJECT_NAME} PROPERTIES LINK_FLAGS_DEBUG "/SUBSYSTEM:CONSOLE") + set_target_properties(${PROJECT_NAME} PROPERTIES COMPILE_DEFINITIONS_DEBUG "_CONSOLE") + set_target_properties(${PROJECT_NAME} PROPERTIES LINK_FLAGS_RELWITHDEBINFO "/SUBSYSTEM:CONSOLE") + set_target_properties(${PROJECT_NAME} PROPERTIES COMPILE_DEFINITIONS_RELWITHDEBINFO "_CONSOLE") + + target_sources(${PROJECT_NAME} PRIVATE "${CMAKE_CURRENT_SOURCE_DIR}/src/winapp.rc") +elseif(MINGW) + # resource compilation for MinGW + add_custom_command(OUTPUT "${CMAKE_CURRENT_BINARY_DIR}/sqlbicon.o" + COMMAND windres "-I${CMAKE_CURRENT_BINARY_DIR}" "-i${CMAKE_CURRENT_SOURCE_DIR}/src/winapp.rc" -o "${CMAKE_CURRENT_BINARY_DIR}/sqlbicon.o" VERBATIM + ) + set(CMAKE_EXE_LINKER_FLAGS "${CMAKE_EXE_LINKER_FLAGS} -Wl,-subsystem,windows") + target_sources(${PROJECT_NAME} PRIVATE "${CMAKE_CURRENT_BINARY_DIR}/sqlbicon.o") +endif() diff --git a/config/translations.cmake b/config/translations.cmake new file mode 100644 index 000000000..3222d14f7 --- /dev/null +++ b/config/translations.cmake @@ -0,0 +1,35 @@ +# Translation files +set(SQLB_TSS + "${CMAKE_SOURCE_DIR}/src/translations/sqlb_ar_SA.ts" + "${CMAKE_SOURCE_DIR}/src/translations/sqlb_cs.ts" + "${CMAKE_SOURCE_DIR}/src/translations/sqlb_de.ts" + "${CMAKE_SOURCE_DIR}/src/translations/sqlb_en_GB.ts" + "${CMAKE_SOURCE_DIR}/src/translations/sqlb_es_ES.ts" + "${CMAKE_SOURCE_DIR}/src/translations/sqlb_fr.ts" + "${CMAKE_SOURCE_DIR}/src/translations/sqlb_id.ts" + "${CMAKE_SOURCE_DIR}/src/translations/sqlb_it.ts" + "${CMAKE_SOURCE_DIR}/src/translations/sqlb_ja.ts" + "${CMAKE_SOURCE_DIR}/src/translations/sqlb_ko_KR.ts" + "${CMAKE_SOURCE_DIR}/src/translations/sqlb_nl.ts" + "${CMAKE_SOURCE_DIR}/src/translations/sqlb_pl.ts" + "${CMAKE_SOURCE_DIR}/src/translations/sqlb_pt_BR.ts" + "${CMAKE_SOURCE_DIR}/src/translations/sqlb_ro.ts" + "${CMAKE_SOURCE_DIR}/src/translations/sqlb_ru.ts" + "${CMAKE_SOURCE_DIR}/src/translations/sqlb_sv.ts" + "${CMAKE_SOURCE_DIR}/src/translations/sqlb_tr.ts" + "${CMAKE_SOURCE_DIR}/src/translations/sqlb_uk_UA.ts" + "${CMAKE_SOURCE_DIR}/src/translations/sqlb_zh.ts" + "${CMAKE_SOURCE_DIR}/src/translations/sqlb_zh_TW.ts" +) + +if(SQLB_TSS) + # add translations + foreach(SQLB_TS ${SQLB_TSS}) + set_source_files_properties("${SQLB_TS}" PROPERTIES OUTPUT_LOCATION "${CMAKE_SOURCE_DIR}/src/translations") + endforeach() + if(COMMAND qt_add_translation) + qt_add_translation(SQLB_QMS ${SQLB_TSS}) + else() + qt5_add_translation(SQLB_QMS ${SQLB_TSS}) + endif() +endif() diff --git a/libs/qcustomplot-source/CMakeLists.txt b/libs/qcustomplot-source/CMakeLists.txt index 3f2cf5a28..b6228cf9c 100644 --- a/libs/qcustomplot-source/CMakeLists.txt +++ b/libs/qcustomplot-source/CMakeLists.txt @@ -1,9 +1,9 @@ -cmake_minimum_required(VERSION 2.8.12.2) +cmake_minimum_required(VERSION 3.16) set(CMAKE_AUTOMOC ON) set(CMAKE_INCLUDE_CURRENT_DIR ON) -find_package(Qt5 REQUIRED COMPONENTS Widgets PrintSupport) +find_package(${QT_MAJOR} REQUIRED COMPONENTS Widgets PrintSupport) set(QCUSTOMPLOT_SRC qcustomplot.cpp @@ -16,6 +16,6 @@ set(QCUSTOMPLOT_MOC_HDR add_library(qcustomplot ${QCUSTOMPLOT_SRC} ${QCUSTOMPLOT_MOC_HDR} ${QCUSTOMPLOT_MOC}) target_include_directories(qcustomplot INTERFACE ${CMAKE_CURRENT_LIST_DIR}) -target_link_libraries(qcustomplot Qt5::Widgets Qt5::PrintSupport) +target_link_libraries(qcustomplot ${QT_MAJOR}::Widgets ${QT_MAJOR}::PrintSupport) add_library(QCustomPlot::QCustomPlot ALIAS qcustomplot) diff --git a/libs/qcustomplot-source/GPL.txt b/libs/qcustomplot-source/GPL.txt index 818433ecc..94a9ed024 100755 --- a/libs/qcustomplot-source/GPL.txt +++ b/libs/qcustomplot-source/GPL.txt @@ -1,674 +1,674 @@ - GNU GENERAL PUBLIC LICENSE - Version 3, 29 June 2007 - - Copyright (C) 2007 Free Software Foundation, Inc. - Everyone is permitted to copy and distribute verbatim copies - of this license document, but changing it is not allowed. - - Preamble - - The GNU General Public License is a free, copyleft license for -software and other kinds of works. - - The licenses for most software and other practical works are designed -to take away your freedom to share and change the works. By contrast, -the GNU General Public License is intended to guarantee your freedom to -share and change all versions of a program--to make sure it remains free -software for all its users. We, the Free Software Foundation, use the -GNU General Public License for most of our software; it applies also to -any other work released this way by its authors. You can apply it to -your programs, too. - - When we speak of free software, we are referring to freedom, not -price. Our General Public Licenses are designed to make sure that you -have the freedom to distribute copies of free software (and charge for -them if you wish), that you receive source code or can get it if you -want it, that you can change the software or use pieces of it in new -free programs, and that you know you can do these things. - - To protect your rights, we need to prevent others from denying you -these rights or asking you to surrender the rights. Therefore, you have -certain responsibilities if you distribute copies of the software, or if -you modify it: responsibilities to respect the freedom of others. - - For example, if you distribute copies of such a program, whether -gratis or for a fee, you must pass on to the recipients the same -freedoms that you received. You must make sure that they, too, receive -or can get the source code. And you must show them these terms so they -know their rights. - - Developers that use the GNU GPL protect your rights with two steps: -(1) assert copyright on the software, and (2) offer you this License -giving you legal permission to copy, distribute and/or modify it. - - For the developers' and authors' protection, the GPL clearly explains -that there is no warranty for this free software. For both users' and -authors' sake, the GPL requires that modified versions be marked as -changed, so that their problems will not be attributed erroneously to -authors of previous versions. - - Some devices are designed to deny users access to install or run -modified versions of the software inside them, although the manufacturer -can do so. This is fundamentally incompatible with the aim of -protecting users' freedom to change the software. The systematic -pattern of such abuse occurs in the area of products for individuals to -use, which is precisely where it is most unacceptable. Therefore, we -have designed this version of the GPL to prohibit the practice for those -products. If such problems arise substantially in other domains, we -stand ready to extend this provision to those domains in future versions -of the GPL, as needed to protect the freedom of users. - - Finally, every program is threatened constantly by software patents. -States should not allow patents to restrict development and use of -software on general-purpose computers, but in those that do, we wish to -avoid the special danger that patents applied to a free program could -make it effectively proprietary. To prevent this, the GPL assures that -patents cannot be used to render the program non-free. - - The precise terms and conditions for copying, distribution and -modification follow. - - TERMS AND CONDITIONS - - 0. Definitions. - - "This License" refers to version 3 of the GNU General Public License. - - "Copyright" also means copyright-like laws that apply to other kinds of -works, such as semiconductor masks. - - "The Program" refers to any copyrightable work licensed under this -License. Each licensee is addressed as "you". "Licensees" and -"recipients" may be individuals or organizations. - - To "modify" a work means to copy from or adapt all or part of the work -in a fashion requiring copyright permission, other than the making of an -exact copy. The resulting work is called a "modified version" of the -earlier work or a work "based on" the earlier work. - - A "covered work" means either the unmodified Program or a work based -on the Program. - - To "propagate" a work means to do anything with it that, without -permission, would make you directly or secondarily liable for -infringement under applicable copyright law, except executing it on a -computer or modifying a private copy. Propagation includes copying, -distribution (with or without modification), making available to the -public, and in some countries other activities as well. - - To "convey" a work means any kind of propagation that enables other -parties to make or receive copies. Mere interaction with a user through -a computer network, with no transfer of a copy, is not conveying. - - An interactive user interface displays "Appropriate Legal Notices" -to the extent that it includes a convenient and prominently visible -feature that (1) displays an appropriate copyright notice, and (2) -tells the user that there is no warranty for the work (except to the -extent that warranties are provided), that licensees may convey the -work under this License, and how to view a copy of this License. If -the interface presents a list of user commands or options, such as a -menu, a prominent item in the list meets this criterion. - - 1. Source Code. - - The "source code" for a work means the preferred form of the work -for making modifications to it. "Object code" means any non-source -form of a work. - - A "Standard Interface" means an interface that either is an official -standard defined by a recognized standards body, or, in the case of -interfaces specified for a particular programming language, one that -is widely used among developers working in that language. - - The "System Libraries" of an executable work include anything, other -than the work as a whole, that (a) is included in the normal form of -packaging a Major Component, but which is not part of that Major -Component, and (b) serves only to enable use of the work with that -Major Component, or to implement a Standard Interface for which an -implementation is available to the public in source code form. A -"Major Component", in this context, means a major essential component -(kernel, window system, and so on) of the specific operating system -(if any) on which the executable work runs, or a compiler used to -produce the work, or an object code interpreter used to run it. - - The "Corresponding Source" for a work in object code form means all -the source code needed to generate, install, and (for an executable -work) run the object code and to modify the work, including scripts to -control those activities. However, it does not include the work's -System Libraries, or general-purpose tools or generally available free -programs which are used unmodified in performing those activities but -which are not part of the work. For example, Corresponding Source -includes interface definition files associated with source files for -the work, and the source code for shared libraries and dynamically -linked subprograms that the work is specifically designed to require, -such as by intimate data communication or control flow between those -subprograms and other parts of the work. - - The Corresponding Source need not include anything that users -can regenerate automatically from other parts of the Corresponding -Source. - - The Corresponding Source for a work in source code form is that -same work. - - 2. Basic Permissions. - - All rights granted under this License are granted for the term of -copyright on the Program, and are irrevocable provided the stated -conditions are met. This License explicitly affirms your unlimited -permission to run the unmodified Program. The output from running a -covered work is covered by this License only if the output, given its -content, constitutes a covered work. This License acknowledges your -rights of fair use or other equivalent, as provided by copyright law. - - You may make, run and propagate covered works that you do not -convey, without conditions so long as your license otherwise remains -in force. You may convey covered works to others for the sole purpose -of having them make modifications exclusively for you, or provide you -with facilities for running those works, provided that you comply with -the terms of this License in conveying all material for which you do -not control copyright. Those thus making or running the covered works -for you must do so exclusively on your behalf, under your direction -and control, on terms that prohibit them from making any copies of -your copyrighted material outside their relationship with you. - - Conveying under any other circumstances is permitted solely under -the conditions stated below. Sublicensing is not allowed; section 10 -makes it unnecessary. - - 3. Protecting Users' Legal Rights From Anti-Circumvention Law. - - No covered work shall be deemed part of an effective technological -measure under any applicable law fulfilling obligations under article -11 of the WIPO copyright treaty adopted on 20 December 1996, or -similar laws prohibiting or restricting circumvention of such -measures. - - When you convey a covered work, you waive any legal power to forbid -circumvention of technological measures to the extent such circumvention -is effected by exercising rights under this License with respect to -the covered work, and you disclaim any intention to limit operation or -modification of the work as a means of enforcing, against the work's -users, your or third parties' legal rights to forbid circumvention of -technological measures. - - 4. Conveying Verbatim Copies. - - You may convey verbatim copies of the Program's source code as you -receive it, in any medium, provided that you conspicuously and -appropriately publish on each copy an appropriate copyright notice; -keep intact all notices stating that this License and any -non-permissive terms added in accord with section 7 apply to the code; -keep intact all notices of the absence of any warranty; and give all -recipients a copy of this License along with the Program. - - You may charge any price or no price for each copy that you convey, -and you may offer support or warranty protection for a fee. - - 5. Conveying Modified Source Versions. - - You may convey a work based on the Program, or the modifications to -produce it from the Program, in the form of source code under the -terms of section 4, provided that you also meet all of these conditions: - - a) The work must carry prominent notices stating that you modified - it, and giving a relevant date. - - b) The work must carry prominent notices stating that it is - released under this License and any conditions added under section - 7. This requirement modifies the requirement in section 4 to - "keep intact all notices". - - c) You must license the entire work, as a whole, under this - License to anyone who comes into possession of a copy. This - License will therefore apply, along with any applicable section 7 - additional terms, to the whole of the work, and all its parts, - regardless of how they are packaged. This License gives no - permission to license the work in any other way, but it does not - invalidate such permission if you have separately received it. - - d) If the work has interactive user interfaces, each must display - Appropriate Legal Notices; however, if the Program has interactive - interfaces that do not display Appropriate Legal Notices, your - work need not make them do so. - - A compilation of a covered work with other separate and independent -works, which are not by their nature extensions of the covered work, -and which are not combined with it such as to form a larger program, -in or on a volume of a storage or distribution medium, is called an -"aggregate" if the compilation and its resulting copyright are not -used to limit the access or legal rights of the compilation's users -beyond what the individual works permit. Inclusion of a covered work -in an aggregate does not cause this License to apply to the other -parts of the aggregate. - - 6. Conveying Non-Source Forms. - - You may convey a covered work in object code form under the terms -of sections 4 and 5, provided that you also convey the -machine-readable Corresponding Source under the terms of this License, -in one of these ways: - - a) Convey the object code in, or embodied in, a physical product - (including a physical distribution medium), accompanied by the - Corresponding Source fixed on a durable physical medium - customarily used for software interchange. - - b) Convey the object code in, or embodied in, a physical product - (including a physical distribution medium), accompanied by a - written offer, valid for at least three years and valid for as - long as you offer spare parts or customer support for that product - model, to give anyone who possesses the object code either (1) a - copy of the Corresponding Source for all the software in the - product that is covered by this License, on a durable physical - medium customarily used for software interchange, for a price no - more than your reasonable cost of physically performing this - conveying of source, or (2) access to copy the - Corresponding Source from a network server at no charge. - - c) Convey individual copies of the object code with a copy of the - written offer to provide the Corresponding Source. This - alternative is allowed only occasionally and noncommercially, and - only if you received the object code with such an offer, in accord - with subsection 6b. - - d) Convey the object code by offering access from a designated - place (gratis or for a charge), and offer equivalent access to the - Corresponding Source in the same way through the same place at no - further charge. You need not require recipients to copy the - Corresponding Source along with the object code. If the place to - copy the object code is a network server, the Corresponding Source - may be on a different server (operated by you or a third party) - that supports equivalent copying facilities, provided you maintain - clear directions next to the object code saying where to find the - Corresponding Source. Regardless of what server hosts the - Corresponding Source, you remain obligated to ensure that it is - available for as long as needed to satisfy these requirements. - - e) Convey the object code using peer-to-peer transmission, provided - you inform other peers where the object code and Corresponding - Source of the work are being offered to the general public at no - charge under subsection 6d. - - A separable portion of the object code, whose source code is excluded -from the Corresponding Source as a System Library, need not be -included in conveying the object code work. - - A "User Product" is either (1) a "consumer product", which means any -tangible personal property which is normally used for personal, family, -or household purposes, or (2) anything designed or sold for incorporation -into a dwelling. In determining whether a product is a consumer product, -doubtful cases shall be resolved in favor of coverage. For a particular -product received by a particular user, "normally used" refers to a -typical or common use of that class of product, regardless of the status -of the particular user or of the way in which the particular user -actually uses, or expects or is expected to use, the product. A product -is a consumer product regardless of whether the product has substantial -commercial, industrial or non-consumer uses, unless such uses represent -the only significant mode of use of the product. - - "Installation Information" for a User Product means any methods, -procedures, authorization keys, or other information required to install -and execute modified versions of a covered work in that User Product from -a modified version of its Corresponding Source. The information must -suffice to ensure that the continued functioning of the modified object -code is in no case prevented or interfered with solely because -modification has been made. - - If you convey an object code work under this section in, or with, or -specifically for use in, a User Product, and the conveying occurs as -part of a transaction in which the right of possession and use of the -User Product is transferred to the recipient in perpetuity or for a -fixed term (regardless of how the transaction is characterized), the -Corresponding Source conveyed under this section must be accompanied -by the Installation Information. But this requirement does not apply -if neither you nor any third party retains the ability to install -modified object code on the User Product (for example, the work has -been installed in ROM). - - The requirement to provide Installation Information does not include a -requirement to continue to provide support service, warranty, or updates -for a work that has been modified or installed by the recipient, or for -the User Product in which it has been modified or installed. Access to a -network may be denied when the modification itself materially and -adversely affects the operation of the network or violates the rules and -protocols for communication across the network. - - Corresponding Source conveyed, and Installation Information provided, -in accord with this section must be in a format that is publicly -documented (and with an implementation available to the public in -source code form), and must require no special password or key for -unpacking, reading or copying. - - 7. Additional Terms. - - "Additional permissions" are terms that supplement the terms of this -License by making exceptions from one or more of its conditions. -Additional permissions that are applicable to the entire Program shall -be treated as though they were included in this License, to the extent -that they are valid under applicable law. If additional permissions -apply only to part of the Program, that part may be used separately -under those permissions, but the entire Program remains governed by -this License without regard to the additional permissions. - - When you convey a copy of a covered work, you may at your option -remove any additional permissions from that copy, or from any part of -it. (Additional permissions may be written to require their own -removal in certain cases when you modify the work.) You may place -additional permissions on material, added by you to a covered work, -for which you have or can give appropriate copyright permission. - - Notwithstanding any other provision of this License, for material you -add to a covered work, you may (if authorized by the copyright holders of -that material) supplement the terms of this License with terms: - - a) Disclaiming warranty or limiting liability differently from the - terms of sections 15 and 16 of this License; or - - b) Requiring preservation of specified reasonable legal notices or - author attributions in that material or in the Appropriate Legal - Notices displayed by works containing it; or - - c) Prohibiting misrepresentation of the origin of that material, or - requiring that modified versions of such material be marked in - reasonable ways as different from the original version; or - - d) Limiting the use for publicity purposes of names of licensors or - authors of the material; or - - e) Declining to grant rights under trademark law for use of some - trade names, trademarks, or service marks; or - - f) Requiring indemnification of licensors and authors of that - material by anyone who conveys the material (or modified versions of - it) with contractual assumptions of liability to the recipient, for - any liability that these contractual assumptions directly impose on - those licensors and authors. - - All other non-permissive additional terms are considered "further -restrictions" within the meaning of section 10. If the Program as you -received it, or any part of it, contains a notice stating that it is -governed by this License along with a term that is a further -restriction, you may remove that term. If a license document contains -a further restriction but permits relicensing or conveying under this -License, you may add to a covered work material governed by the terms -of that license document, provided that the further restriction does -not survive such relicensing or conveying. - - If you add terms to a covered work in accord with this section, you -must place, in the relevant source files, a statement of the -additional terms that apply to those files, or a notice indicating -where to find the applicable terms. - - Additional terms, permissive or non-permissive, may be stated in the -form of a separately written license, or stated as exceptions; -the above requirements apply either way. - - 8. Termination. - - You may not propagate or modify a covered work except as expressly -provided under this License. Any attempt otherwise to propagate or -modify it is void, and will automatically terminate your rights under -this License (including any patent licenses granted under the third -paragraph of section 11). - - However, if you cease all violation of this License, then your -license from a particular copyright holder is reinstated (a) -provisionally, unless and until the copyright holder explicitly and -finally terminates your license, and (b) permanently, if the copyright -holder fails to notify you of the violation by some reasonable means -prior to 60 days after the cessation. - - Moreover, your license from a particular copyright holder is -reinstated permanently if the copyright holder notifies you of the -violation by some reasonable means, this is the first time you have -received notice of violation of this License (for any work) from that -copyright holder, and you cure the violation prior to 30 days after -your receipt of the notice. - - Termination of your rights under this section does not terminate the -licenses of parties who have received copies or rights from you under -this License. If your rights have been terminated and not permanently -reinstated, you do not qualify to receive new licenses for the same -material under section 10. - - 9. Acceptance Not Required for Having Copies. - - You are not required to accept this License in order to receive or -run a copy of the Program. Ancillary propagation of a covered work -occurring solely as a consequence of using peer-to-peer transmission -to receive a copy likewise does not require acceptance. However, -nothing other than this License grants you permission to propagate or -modify any covered work. These actions infringe copyright if you do -not accept this License. Therefore, by modifying or propagating a -covered work, you indicate your acceptance of this License to do so. - - 10. Automatic Licensing of Downstream Recipients. - - Each time you convey a covered work, the recipient automatically -receives a license from the original licensors, to run, modify and -propagate that work, subject to this License. You are not responsible -for enforcing compliance by third parties with this License. - - An "entity transaction" is a transaction transferring control of an -organization, or substantially all assets of one, or subdividing an -organization, or merging organizations. If propagation of a covered -work results from an entity transaction, each party to that -transaction who receives a copy of the work also receives whatever -licenses to the work the party's predecessor in interest had or could -give under the previous paragraph, plus a right to possession of the -Corresponding Source of the work from the predecessor in interest, if -the predecessor has it or can get it with reasonable efforts. - - You may not impose any further restrictions on the exercise of the -rights granted or affirmed under this License. For example, you may -not impose a license fee, royalty, or other charge for exercise of -rights granted under this License, and you may not initiate litigation -(including a cross-claim or counterclaim in a lawsuit) alleging that -any patent claim is infringed by making, using, selling, offering for -sale, or importing the Program or any portion of it. - - 11. Patents. - - A "contributor" is a copyright holder who authorizes use under this -License of the Program or a work on which the Program is based. The -work thus licensed is called the contributor's "contributor version". - - A contributor's "essential patent claims" are all patent claims -owned or controlled by the contributor, whether already acquired or -hereafter acquired, that would be infringed by some manner, permitted -by this License, of making, using, or selling its contributor version, -but do not include claims that would be infringed only as a -consequence of further modification of the contributor version. For -purposes of this definition, "control" includes the right to grant -patent sublicenses in a manner consistent with the requirements of -this License. - - Each contributor grants you a non-exclusive, worldwide, royalty-free -patent license under the contributor's essential patent claims, to -make, use, sell, offer for sale, import and otherwise run, modify and -propagate the contents of its contributor version. - - In the following three paragraphs, a "patent license" is any express -agreement or commitment, however denominated, not to enforce a patent -(such as an express permission to practice a patent or covenant not to -sue for patent infringement). To "grant" such a patent license to a -party means to make such an agreement or commitment not to enforce a -patent against the party. - - If you convey a covered work, knowingly relying on a patent license, -and the Corresponding Source of the work is not available for anyone -to copy, free of charge and under the terms of this License, through a -publicly available network server or other readily accessible means, -then you must either (1) cause the Corresponding Source to be so -available, or (2) arrange to deprive yourself of the benefit of the -patent license for this particular work, or (3) arrange, in a manner -consistent with the requirements of this License, to extend the patent -license to downstream recipients. "Knowingly relying" means you have -actual knowledge that, but for the patent license, your conveying the -covered work in a country, or your recipient's use of the covered work -in a country, would infringe one or more identifiable patents in that -country that you have reason to believe are valid. - - If, pursuant to or in connection with a single transaction or -arrangement, you convey, or propagate by procuring conveyance of, a -covered work, and grant a patent license to some of the parties -receiving the covered work authorizing them to use, propagate, modify -or convey a specific copy of the covered work, then the patent license -you grant is automatically extended to all recipients of the covered -work and works based on it. - - A patent license is "discriminatory" if it does not include within -the scope of its coverage, prohibits the exercise of, or is -conditioned on the non-exercise of one or more of the rights that are -specifically granted under this License. You may not convey a covered -work if you are a party to an arrangement with a third party that is -in the business of distributing software, under which you make payment -to the third party based on the extent of your activity of conveying -the work, and under which the third party grants, to any of the -parties who would receive the covered work from you, a discriminatory -patent license (a) in connection with copies of the covered work -conveyed by you (or copies made from those copies), or (b) primarily -for and in connection with specific products or compilations that -contain the covered work, unless you entered into that arrangement, -or that patent license was granted, prior to 28 March 2007. - - Nothing in this License shall be construed as excluding or limiting -any implied license or other defenses to infringement that may -otherwise be available to you under applicable patent law. - - 12. No Surrender of Others' Freedom. - - If conditions are imposed on you (whether by court order, agreement or -otherwise) that contradict the conditions of this License, they do not -excuse you from the conditions of this License. If you cannot convey a -covered work so as to satisfy simultaneously your obligations under this -License and any other pertinent obligations, then as a consequence you may -not convey it at all. For example, if you agree to terms that obligate you -to collect a royalty for further conveying from those to whom you convey -the Program, the only way you could satisfy both those terms and this -License would be to refrain entirely from conveying the Program. - - 13. Use with the GNU Affero General Public License. - - Notwithstanding any other provision of this License, you have -permission to link or combine any covered work with a work licensed -under version 3 of the GNU Affero General Public License into a single -combined work, and to convey the resulting work. The terms of this -License will continue to apply to the part which is the covered work, -but the special requirements of the GNU Affero General Public License, -section 13, concerning interaction through a network will apply to the -combination as such. - - 14. Revised Versions of this License. - - The Free Software Foundation may publish revised and/or new versions of -the GNU General Public License from time to time. Such new versions will -be similar in spirit to the present version, but may differ in detail to -address new problems or concerns. - - Each version is given a distinguishing version number. If the -Program specifies that a certain numbered version of the GNU General -Public License "or any later version" applies to it, you have the -option of following the terms and conditions either of that numbered -version or of any later version published by the Free Software -Foundation. If the Program does not specify a version number of the -GNU General Public License, you may choose any version ever published -by the Free Software Foundation. - - If the Program specifies that a proxy can decide which future -versions of the GNU General Public License can be used, that proxy's -public statement of acceptance of a version permanently authorizes you -to choose that version for the Program. - - Later license versions may give you additional or different -permissions. However, no additional obligations are imposed on any -author or copyright holder as a result of your choosing to follow a -later version. - - 15. Disclaimer of Warranty. - - THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY -APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT -HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY -OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, -THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR -PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM -IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF -ALL NECESSARY SERVICING, REPAIR OR CORRECTION. - - 16. Limitation of Liability. - - IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING -WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS -THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY -GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE -USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF -DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD -PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), -EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF -SUCH DAMAGES. - - 17. Interpretation of Sections 15 and 16. - - If the disclaimer of warranty and limitation of liability provided -above cannot be given local legal effect according to their terms, -reviewing courts shall apply local law that most closely approximates -an absolute waiver of all civil liability in connection with the -Program, unless a warranty or assumption of liability accompanies a -copy of the Program in return for a fee. - - END OF TERMS AND CONDITIONS - - How to Apply These Terms to Your New Programs - - If you develop a new program, and you want it to be of the greatest -possible use to the public, the best way to achieve this is to make it -free software which everyone can redistribute and change under these terms. - - To do so, attach the following notices to the program. It is safest -to attach them to the start of each source file to most effectively -state the exclusion of warranty; and each file should have at least -the "copyright" line and a pointer to where the full notice is found. - - - Copyright (C) - - This program is free software: you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation, either version 3 of the License, or - (at your option) any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License - along with this program. If not, see . - -Also add information on how to contact you by electronic and paper mail. - - If the program does terminal interaction, make it output a short -notice like this when it starts in an interactive mode: - - Copyright (C) - This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'. - This is free software, and you are welcome to redistribute it - under certain conditions; type `show c' for details. - -The hypothetical commands `show w' and `show c' should show the appropriate -parts of the General Public License. Of course, your program's commands -might be different; for a GUI interface, you would use an "about box". - - You should also get your employer (if you work as a programmer) or school, -if any, to sign a "copyright disclaimer" for the program, if necessary. -For more information on this, and how to apply and follow the GNU GPL, see -. - - The GNU General Public License does not permit incorporating your program -into proprietary programs. If your program is a subroutine library, you -may consider it more useful to permit linking proprietary applications with -the library. If this is what you want to do, use the GNU Lesser General -Public License instead of this License. But first, please read -. + GNU GENERAL PUBLIC LICENSE + Version 3, 29 June 2007 + + Copyright (C) 2007 Free Software Foundation, Inc. + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The GNU General Public License is a free, copyleft license for +software and other kinds of works. + + The licenses for most software and other practical works are designed +to take away your freedom to share and change the works. By contrast, +the GNU General Public License is intended to guarantee your freedom to +share and change all versions of a program--to make sure it remains free +software for all its users. We, the Free Software Foundation, use the +GNU General Public License for most of our software; it applies also to +any other work released this way by its authors. You can apply it to +your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +them if you wish), that you receive source code or can get it if you +want it, that you can change the software or use pieces of it in new +free programs, and that you know you can do these things. + + To protect your rights, we need to prevent others from denying you +these rights or asking you to surrender the rights. Therefore, you have +certain responsibilities if you distribute copies of the software, or if +you modify it: responsibilities to respect the freedom of others. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must pass on to the recipients the same +freedoms that you received. You must make sure that they, too, receive +or can get the source code. And you must show them these terms so they +know their rights. + + Developers that use the GNU GPL protect your rights with two steps: +(1) assert copyright on the software, and (2) offer you this License +giving you legal permission to copy, distribute and/or modify it. + + For the developers' and authors' protection, the GPL clearly explains +that there is no warranty for this free software. For both users' and +authors' sake, the GPL requires that modified versions be marked as +changed, so that their problems will not be attributed erroneously to +authors of previous versions. + + Some devices are designed to deny users access to install or run +modified versions of the software inside them, although the manufacturer +can do so. This is fundamentally incompatible with the aim of +protecting users' freedom to change the software. The systematic +pattern of such abuse occurs in the area of products for individuals to +use, which is precisely where it is most unacceptable. Therefore, we +have designed this version of the GPL to prohibit the practice for those +products. If such problems arise substantially in other domains, we +stand ready to extend this provision to those domains in future versions +of the GPL, as needed to protect the freedom of users. + + Finally, every program is threatened constantly by software patents. +States should not allow patents to restrict development and use of +software on general-purpose computers, but in those that do, we wish to +avoid the special danger that patents applied to a free program could +make it effectively proprietary. To prevent this, the GPL assures that +patents cannot be used to render the program non-free. + + The precise terms and conditions for copying, distribution and +modification follow. + + TERMS AND CONDITIONS + + 0. Definitions. + + "This License" refers to version 3 of the GNU General Public License. + + "Copyright" also means copyright-like laws that apply to other kinds of +works, such as semiconductor masks. + + "The Program" refers to any copyrightable work licensed under this +License. Each licensee is addressed as "you". "Licensees" and +"recipients" may be individuals or organizations. + + To "modify" a work means to copy from or adapt all or part of the work +in a fashion requiring copyright permission, other than the making of an +exact copy. The resulting work is called a "modified version" of the +earlier work or a work "based on" the earlier work. + + A "covered work" means either the unmodified Program or a work based +on the Program. + + To "propagate" a work means to do anything with it that, without +permission, would make you directly or secondarily liable for +infringement under applicable copyright law, except executing it on a +computer or modifying a private copy. Propagation includes copying, +distribution (with or without modification), making available to the +public, and in some countries other activities as well. + + To "convey" a work means any kind of propagation that enables other +parties to make or receive copies. Mere interaction with a user through +a computer network, with no transfer of a copy, is not conveying. + + An interactive user interface displays "Appropriate Legal Notices" +to the extent that it includes a convenient and prominently visible +feature that (1) displays an appropriate copyright notice, and (2) +tells the user that there is no warranty for the work (except to the +extent that warranties are provided), that licensees may convey the +work under this License, and how to view a copy of this License. If +the interface presents a list of user commands or options, such as a +menu, a prominent item in the list meets this criterion. + + 1. Source Code. + + The "source code" for a work means the preferred form of the work +for making modifications to it. "Object code" means any non-source +form of a work. + + A "Standard Interface" means an interface that either is an official +standard defined by a recognized standards body, or, in the case of +interfaces specified for a particular programming language, one that +is widely used among developers working in that language. + + The "System Libraries" of an executable work include anything, other +than the work as a whole, that (a) is included in the normal form of +packaging a Major Component, but which is not part of that Major +Component, and (b) serves only to enable use of the work with that +Major Component, or to implement a Standard Interface for which an +implementation is available to the public in source code form. A +"Major Component", in this context, means a major essential component +(kernel, window system, and so on) of the specific operating system +(if any) on which the executable work runs, or a compiler used to +produce the work, or an object code interpreter used to run it. + + The "Corresponding Source" for a work in object code form means all +the source code needed to generate, install, and (for an executable +work) run the object code and to modify the work, including scripts to +control those activities. However, it does not include the work's +System Libraries, or general-purpose tools or generally available free +programs which are used unmodified in performing those activities but +which are not part of the work. For example, Corresponding Source +includes interface definition files associated with source files for +the work, and the source code for shared libraries and dynamically +linked subprograms that the work is specifically designed to require, +such as by intimate data communication or control flow between those +subprograms and other parts of the work. + + The Corresponding Source need not include anything that users +can regenerate automatically from other parts of the Corresponding +Source. + + The Corresponding Source for a work in source code form is that +same work. + + 2. Basic Permissions. + + All rights granted under this License are granted for the term of +copyright on the Program, and are irrevocable provided the stated +conditions are met. This License explicitly affirms your unlimited +permission to run the unmodified Program. The output from running a +covered work is covered by this License only if the output, given its +content, constitutes a covered work. This License acknowledges your +rights of fair use or other equivalent, as provided by copyright law. + + You may make, run and propagate covered works that you do not +convey, without conditions so long as your license otherwise remains +in force. You may convey covered works to others for the sole purpose +of having them make modifications exclusively for you, or provide you +with facilities for running those works, provided that you comply with +the terms of this License in conveying all material for which you do +not control copyright. Those thus making or running the covered works +for you must do so exclusively on your behalf, under your direction +and control, on terms that prohibit them from making any copies of +your copyrighted material outside their relationship with you. + + Conveying under any other circumstances is permitted solely under +the conditions stated below. Sublicensing is not allowed; section 10 +makes it unnecessary. + + 3. Protecting Users' Legal Rights From Anti-Circumvention Law. + + No covered work shall be deemed part of an effective technological +measure under any applicable law fulfilling obligations under article +11 of the WIPO copyright treaty adopted on 20 December 1996, or +similar laws prohibiting or restricting circumvention of such +measures. + + When you convey a covered work, you waive any legal power to forbid +circumvention of technological measures to the extent such circumvention +is effected by exercising rights under this License with respect to +the covered work, and you disclaim any intention to limit operation or +modification of the work as a means of enforcing, against the work's +users, your or third parties' legal rights to forbid circumvention of +technological measures. + + 4. Conveying Verbatim Copies. + + You may convey verbatim copies of the Program's source code as you +receive it, in any medium, provided that you conspicuously and +appropriately publish on each copy an appropriate copyright notice; +keep intact all notices stating that this License and any +non-permissive terms added in accord with section 7 apply to the code; +keep intact all notices of the absence of any warranty; and give all +recipients a copy of this License along with the Program. + + You may charge any price or no price for each copy that you convey, +and you may offer support or warranty protection for a fee. + + 5. Conveying Modified Source Versions. + + You may convey a work based on the Program, or the modifications to +produce it from the Program, in the form of source code under the +terms of section 4, provided that you also meet all of these conditions: + + a) The work must carry prominent notices stating that you modified + it, and giving a relevant date. + + b) The work must carry prominent notices stating that it is + released under this License and any conditions added under section + 7. This requirement modifies the requirement in section 4 to + "keep intact all notices". + + c) You must license the entire work, as a whole, under this + License to anyone who comes into possession of a copy. This + License will therefore apply, along with any applicable section 7 + additional terms, to the whole of the work, and all its parts, + regardless of how they are packaged. This License gives no + permission to license the work in any other way, but it does not + invalidate such permission if you have separately received it. + + d) If the work has interactive user interfaces, each must display + Appropriate Legal Notices; however, if the Program has interactive + interfaces that do not display Appropriate Legal Notices, your + work need not make them do so. + + A compilation of a covered work with other separate and independent +works, which are not by their nature extensions of the covered work, +and which are not combined with it such as to form a larger program, +in or on a volume of a storage or distribution medium, is called an +"aggregate" if the compilation and its resulting copyright are not +used to limit the access or legal rights of the compilation's users +beyond what the individual works permit. Inclusion of a covered work +in an aggregate does not cause this License to apply to the other +parts of the aggregate. + + 6. Conveying Non-Source Forms. + + You may convey a covered work in object code form under the terms +of sections 4 and 5, provided that you also convey the +machine-readable Corresponding Source under the terms of this License, +in one of these ways: + + a) Convey the object code in, or embodied in, a physical product + (including a physical distribution medium), accompanied by the + Corresponding Source fixed on a durable physical medium + customarily used for software interchange. + + b) Convey the object code in, or embodied in, a physical product + (including a physical distribution medium), accompanied by a + written offer, valid for at least three years and valid for as + long as you offer spare parts or customer support for that product + model, to give anyone who possesses the object code either (1) a + copy of the Corresponding Source for all the software in the + product that is covered by this License, on a durable physical + medium customarily used for software interchange, for a price no + more than your reasonable cost of physically performing this + conveying of source, or (2) access to copy the + Corresponding Source from a network server at no charge. + + c) Convey individual copies of the object code with a copy of the + written offer to provide the Corresponding Source. This + alternative is allowed only occasionally and noncommercially, and + only if you received the object code with such an offer, in accord + with subsection 6b. + + d) Convey the object code by offering access from a designated + place (gratis or for a charge), and offer equivalent access to the + Corresponding Source in the same way through the same place at no + further charge. You need not require recipients to copy the + Corresponding Source along with the object code. If the place to + copy the object code is a network server, the Corresponding Source + may be on a different server (operated by you or a third party) + that supports equivalent copying facilities, provided you maintain + clear directions next to the object code saying where to find the + Corresponding Source. Regardless of what server hosts the + Corresponding Source, you remain obligated to ensure that it is + available for as long as needed to satisfy these requirements. + + e) Convey the object code using peer-to-peer transmission, provided + you inform other peers where the object code and Corresponding + Source of the work are being offered to the general public at no + charge under subsection 6d. + + A separable portion of the object code, whose source code is excluded +from the Corresponding Source as a System Library, need not be +included in conveying the object code work. + + A "User Product" is either (1) a "consumer product", which means any +tangible personal property which is normally used for personal, family, +or household purposes, or (2) anything designed or sold for incorporation +into a dwelling. In determining whether a product is a consumer product, +doubtful cases shall be resolved in favor of coverage. For a particular +product received by a particular user, "normally used" refers to a +typical or common use of that class of product, regardless of the status +of the particular user or of the way in which the particular user +actually uses, or expects or is expected to use, the product. A product +is a consumer product regardless of whether the product has substantial +commercial, industrial or non-consumer uses, unless such uses represent +the only significant mode of use of the product. + + "Installation Information" for a User Product means any methods, +procedures, authorization keys, or other information required to install +and execute modified versions of a covered work in that User Product from +a modified version of its Corresponding Source. The information must +suffice to ensure that the continued functioning of the modified object +code is in no case prevented or interfered with solely because +modification has been made. + + If you convey an object code work under this section in, or with, or +specifically for use in, a User Product, and the conveying occurs as +part of a transaction in which the right of possession and use of the +User Product is transferred to the recipient in perpetuity or for a +fixed term (regardless of how the transaction is characterized), the +Corresponding Source conveyed under this section must be accompanied +by the Installation Information. But this requirement does not apply +if neither you nor any third party retains the ability to install +modified object code on the User Product (for example, the work has +been installed in ROM). + + The requirement to provide Installation Information does not include a +requirement to continue to provide support service, warranty, or updates +for a work that has been modified or installed by the recipient, or for +the User Product in which it has been modified or installed. Access to a +network may be denied when the modification itself materially and +adversely affects the operation of the network or violates the rules and +protocols for communication across the network. + + Corresponding Source conveyed, and Installation Information provided, +in accord with this section must be in a format that is publicly +documented (and with an implementation available to the public in +source code form), and must require no special password or key for +unpacking, reading or copying. + + 7. Additional Terms. + + "Additional permissions" are terms that supplement the terms of this +License by making exceptions from one or more of its conditions. +Additional permissions that are applicable to the entire Program shall +be treated as though they were included in this License, to the extent +that they are valid under applicable law. If additional permissions +apply only to part of the Program, that part may be used separately +under those permissions, but the entire Program remains governed by +this License without regard to the additional permissions. + + When you convey a copy of a covered work, you may at your option +remove any additional permissions from that copy, or from any part of +it. (Additional permissions may be written to require their own +removal in certain cases when you modify the work.) You may place +additional permissions on material, added by you to a covered work, +for which you have or can give appropriate copyright permission. + + Notwithstanding any other provision of this License, for material you +add to a covered work, you may (if authorized by the copyright holders of +that material) supplement the terms of this License with terms: + + a) Disclaiming warranty or limiting liability differently from the + terms of sections 15 and 16 of this License; or + + b) Requiring preservation of specified reasonable legal notices or + author attributions in that material or in the Appropriate Legal + Notices displayed by works containing it; or + + c) Prohibiting misrepresentation of the origin of that material, or + requiring that modified versions of such material be marked in + reasonable ways as different from the original version; or + + d) Limiting the use for publicity purposes of names of licensors or + authors of the material; or + + e) Declining to grant rights under trademark law for use of some + trade names, trademarks, or service marks; or + + f) Requiring indemnification of licensors and authors of that + material by anyone who conveys the material (or modified versions of + it) with contractual assumptions of liability to the recipient, for + any liability that these contractual assumptions directly impose on + those licensors and authors. + + All other non-permissive additional terms are considered "further +restrictions" within the meaning of section 10. If the Program as you +received it, or any part of it, contains a notice stating that it is +governed by this License along with a term that is a further +restriction, you may remove that term. If a license document contains +a further restriction but permits relicensing or conveying under this +License, you may add to a covered work material governed by the terms +of that license document, provided that the further restriction does +not survive such relicensing or conveying. + + If you add terms to a covered work in accord with this section, you +must place, in the relevant source files, a statement of the +additional terms that apply to those files, or a notice indicating +where to find the applicable terms. + + Additional terms, permissive or non-permissive, may be stated in the +form of a separately written license, or stated as exceptions; +the above requirements apply either way. + + 8. Termination. + + You may not propagate or modify a covered work except as expressly +provided under this License. Any attempt otherwise to propagate or +modify it is void, and will automatically terminate your rights under +this License (including any patent licenses granted under the third +paragraph of section 11). + + However, if you cease all violation of this License, then your +license from a particular copyright holder is reinstated (a) +provisionally, unless and until the copyright holder explicitly and +finally terminates your license, and (b) permanently, if the copyright +holder fails to notify you of the violation by some reasonable means +prior to 60 days after the cessation. + + Moreover, your license from a particular copyright holder is +reinstated permanently if the copyright holder notifies you of the +violation by some reasonable means, this is the first time you have +received notice of violation of this License (for any work) from that +copyright holder, and you cure the violation prior to 30 days after +your receipt of the notice. + + Termination of your rights under this section does not terminate the +licenses of parties who have received copies or rights from you under +this License. If your rights have been terminated and not permanently +reinstated, you do not qualify to receive new licenses for the same +material under section 10. + + 9. Acceptance Not Required for Having Copies. + + You are not required to accept this License in order to receive or +run a copy of the Program. Ancillary propagation of a covered work +occurring solely as a consequence of using peer-to-peer transmission +to receive a copy likewise does not require acceptance. However, +nothing other than this License grants you permission to propagate or +modify any covered work. These actions infringe copyright if you do +not accept this License. Therefore, by modifying or propagating a +covered work, you indicate your acceptance of this License to do so. + + 10. Automatic Licensing of Downstream Recipients. + + Each time you convey a covered work, the recipient automatically +receives a license from the original licensors, to run, modify and +propagate that work, subject to this License. You are not responsible +for enforcing compliance by third parties with this License. + + An "entity transaction" is a transaction transferring control of an +organization, or substantially all assets of one, or subdividing an +organization, or merging organizations. If propagation of a covered +work results from an entity transaction, each party to that +transaction who receives a copy of the work also receives whatever +licenses to the work the party's predecessor in interest had or could +give under the previous paragraph, plus a right to possession of the +Corresponding Source of the work from the predecessor in interest, if +the predecessor has it or can get it with reasonable efforts. + + You may not impose any further restrictions on the exercise of the +rights granted or affirmed under this License. For example, you may +not impose a license fee, royalty, or other charge for exercise of +rights granted under this License, and you may not initiate litigation +(including a cross-claim or counterclaim in a lawsuit) alleging that +any patent claim is infringed by making, using, selling, offering for +sale, or importing the Program or any portion of it. + + 11. Patents. + + A "contributor" is a copyright holder who authorizes use under this +License of the Program or a work on which the Program is based. The +work thus licensed is called the contributor's "contributor version". + + A contributor's "essential patent claims" are all patent claims +owned or controlled by the contributor, whether already acquired or +hereafter acquired, that would be infringed by some manner, permitted +by this License, of making, using, or selling its contributor version, +but do not include claims that would be infringed only as a +consequence of further modification of the contributor version. For +purposes of this definition, "control" includes the right to grant +patent sublicenses in a manner consistent with the requirements of +this License. + + Each contributor grants you a non-exclusive, worldwide, royalty-free +patent license under the contributor's essential patent claims, to +make, use, sell, offer for sale, import and otherwise run, modify and +propagate the contents of its contributor version. + + In the following three paragraphs, a "patent license" is any express +agreement or commitment, however denominated, not to enforce a patent +(such as an express permission to practice a patent or covenant not to +sue for patent infringement). To "grant" such a patent license to a +party means to make such an agreement or commitment not to enforce a +patent against the party. + + If you convey a covered work, knowingly relying on a patent license, +and the Corresponding Source of the work is not available for anyone +to copy, free of charge and under the terms of this License, through a +publicly available network server or other readily accessible means, +then you must either (1) cause the Corresponding Source to be so +available, or (2) arrange to deprive yourself of the benefit of the +patent license for this particular work, or (3) arrange, in a manner +consistent with the requirements of this License, to extend the patent +license to downstream recipients. "Knowingly relying" means you have +actual knowledge that, but for the patent license, your conveying the +covered work in a country, or your recipient's use of the covered work +in a country, would infringe one or more identifiable patents in that +country that you have reason to believe are valid. + + If, pursuant to or in connection with a single transaction or +arrangement, you convey, or propagate by procuring conveyance of, a +covered work, and grant a patent license to some of the parties +receiving the covered work authorizing them to use, propagate, modify +or convey a specific copy of the covered work, then the patent license +you grant is automatically extended to all recipients of the covered +work and works based on it. + + A patent license is "discriminatory" if it does not include within +the scope of its coverage, prohibits the exercise of, or is +conditioned on the non-exercise of one or more of the rights that are +specifically granted under this License. You may not convey a covered +work if you are a party to an arrangement with a third party that is +in the business of distributing software, under which you make payment +to the third party based on the extent of your activity of conveying +the work, and under which the third party grants, to any of the +parties who would receive the covered work from you, a discriminatory +patent license (a) in connection with copies of the covered work +conveyed by you (or copies made from those copies), or (b) primarily +for and in connection with specific products or compilations that +contain the covered work, unless you entered into that arrangement, +or that patent license was granted, prior to 28 March 2007. + + Nothing in this License shall be construed as excluding or limiting +any implied license or other defenses to infringement that may +otherwise be available to you under applicable patent law. + + 12. No Surrender of Others' Freedom. + + If conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot convey a +covered work so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you may +not convey it at all. For example, if you agree to terms that obligate you +to collect a royalty for further conveying from those to whom you convey +the Program, the only way you could satisfy both those terms and this +License would be to refrain entirely from conveying the Program. + + 13. Use with the GNU Affero General Public License. + + Notwithstanding any other provision of this License, you have +permission to link or combine any covered work with a work licensed +under version 3 of the GNU Affero General Public License into a single +combined work, and to convey the resulting work. The terms of this +License will continue to apply to the part which is the covered work, +but the special requirements of the GNU Affero General Public License, +section 13, concerning interaction through a network will apply to the +combination as such. + + 14. Revised Versions of this License. + + The Free Software Foundation may publish revised and/or new versions of +the GNU General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + + Each version is given a distinguishing version number. If the +Program specifies that a certain numbered version of the GNU General +Public License "or any later version" applies to it, you have the +option of following the terms and conditions either of that numbered +version or of any later version published by the Free Software +Foundation. If the Program does not specify a version number of the +GNU General Public License, you may choose any version ever published +by the Free Software Foundation. + + If the Program specifies that a proxy can decide which future +versions of the GNU General Public License can be used, that proxy's +public statement of acceptance of a version permanently authorizes you +to choose that version for the Program. + + Later license versions may give you additional or different +permissions. However, no additional obligations are imposed on any +author or copyright holder as a result of your choosing to follow a +later version. + + 15. Disclaimer of Warranty. + + THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY +APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT +HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY +OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, +THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM +IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF +ALL NECESSARY SERVICING, REPAIR OR CORRECTION. + + 16. Limitation of Liability. + + IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS +THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY +GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE +USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF +DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD +PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), +EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF +SUCH DAMAGES. + + 17. Interpretation of Sections 15 and 16. + + If the disclaimer of warranty and limitation of liability provided +above cannot be given local legal effect according to their terms, +reviewing courts shall apply local law that most closely approximates +an absolute waiver of all civil liability in connection with the +Program, unless a warranty or assumption of liability accompanies a +copy of the Program in return for a fee. + + END OF TERMS AND CONDITIONS + + How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to the public, the best way to achieve this is to make it +free software which everyone can redistribute and change under these terms. + + To do so, attach the following notices to the program. It is safest +to attach them to the start of each source file to most effectively +state the exclusion of warranty; and each file should have at least +the "copyright" line and a pointer to where the full notice is found. + + + Copyright (C) + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . + +Also add information on how to contact you by electronic and paper mail. + + If the program does terminal interaction, make it output a short +notice like this when it starts in an interactive mode: + + Copyright (C) + This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the appropriate +parts of the General Public License. Of course, your program's commands +might be different; for a GUI interface, you would use an "about box". + + You should also get your employer (if you work as a programmer) or school, +if any, to sign a "copyright disclaimer" for the program, if necessary. +For more information on this, and how to apply and follow the GNU GPL, see +. + + The GNU General Public License does not permit incorporating your program +into proprietary programs. If your program is a subroutine library, you +may consider it more useful to permit linking proprietary applications with +the library. If this is what you want to do, use the GNU Lesser General +Public License instead of this License. But first, please read +. diff --git a/libs/qcustomplot-source/changelog.txt b/libs/qcustomplot-source/changelog.txt old mode 100644 new mode 100755 index cc0fede3f..de330e754 --- a/libs/qcustomplot-source/changelog.txt +++ b/libs/qcustomplot-source/changelog.txt @@ -1,3 +1,21 @@ +#### Version 2.1.1 released on 06.11.22 #### + +Added features: + - Qt6.4 Compatibility + +Bugfixes: + - dynamically changing device pixel ratios (e.g. when moving between different DPI screens) is handled properly + - bugfix Colormap autoscaling: recalculateDataBounds() if (0, 0) data point is NaN. + - minor bugfix in getMantissa for certain values due to rounding errors + - Graphs with line style lsImpulse properly ignore NaN data points + - fixed issue where QCP wasn't greyed out together with the rest of the UI on embedded systems when a modal dialog is shown + (QCustomPlot no longer has the Qt::WA_OpaquePaintEvent attribute enabled by default) + +Other: + - in QCPAxisPainterPrivate::getTickLabelData, don't use fixed 'e', but locale aware character of parent plot locale + - Axis rescaling now ignores +/- Inf in data values + - slight performance improvements of QCPColorMap colorization and fills. + #### Version 2.1.0 released on 29.03.21 #### Added features: diff --git a/libs/qcustomplot-source/qcustomplot.cpp b/libs/qcustomplot-source/qcustomplot.cpp index 04f3147dd..72b5bfb8b 100644 --- a/libs/qcustomplot-source/qcustomplot.cpp +++ b/libs/qcustomplot-source/qcustomplot.cpp @@ -1,7 +1,7 @@ /*************************************************************************** ** ** ** QCustomPlot, an easy to use, modern plotting widget for Qt ** -** Copyright (C) 2011-2021 Emanuel Eichhammer ** +** Copyright (C) 2011-2022 Emanuel Eichhammer ** ** ** ** This program is free software: you can redistribute it and/or modify ** ** it under the terms of the GNU General Public License as published by ** @@ -18,16 +18,16 @@ ** ** **************************************************************************** ** Author: Emanuel Eichhammer ** -** Website/Contact: http://www.qcustomplot.com/ ** -** Date: 29.03.21 ** -** Version: 2.1.0 ** +** Website/Contact: https://www.qcustomplot.com/ ** +** Date: 06.11.22 ** +** Version: 2.1.1 ** ****************************************************************************/ #include "qcustomplot.h" /* including file 'src/vector2d.cpp' */ -/* modified 2021-03-29T02:30:44, size 7973 */ +/* modified 2022-11-06T12:45:56, size 7973 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPVector2D @@ -272,7 +272,7 @@ QCPVector2D &QCPVector2D::operator-=(const QCPVector2D &vector) /* including file 'src/painter.cpp' */ -/* modified 2021-03-29T02:30:44, size 8656 */ +/* modified 2022-11-06T12:45:56, size 8656 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPPainter @@ -489,7 +489,7 @@ void QCPPainter::makeNonCosmetic() /* including file 'src/paintbuffer.cpp' */ -/* modified 2021-03-29T02:30:44, size 18915 */ +/* modified 2022-11-06T12:45:56, size 18915 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPAbstractPaintBuffer @@ -976,7 +976,7 @@ void QCPPaintBufferGlFbo::reallocateBuffer() /* including file 'src/layer.cpp' */ -/* modified 2021-03-29T02:30:44, size 37615 */ +/* modified 2022-11-06T12:45:56, size 37615 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPLayer @@ -1836,7 +1836,7 @@ void QCPLayerable::wheelEvent(QWheelEvent *event) /* including file 'src/axis/range.cpp' */ -/* modified 2021-03-29T02:30:44, size 12221 */ +/* modified 2022-11-06T12:45:56, size 12221 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPRange @@ -2158,7 +2158,7 @@ bool QCPRange::validRange(const QCPRange &range) /* including file 'src/selection.cpp' */ -/* modified 2021-03-29T02:30:44, size 21837 */ +/* modified 2022-11-06T12:45:56, size 21837 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPDataRange @@ -2759,7 +2759,7 @@ QCPDataSelection QCPDataSelection::inverse(const QCPDataRange &outerRange) const /* including file 'src/selectionrect.cpp' */ -/* modified 2021-03-29T02:30:44, size 9215 */ +/* modified 2022-11-06T12:45:56, size 9215 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPSelectionRect @@ -2988,7 +2988,7 @@ void QCPSelectionRect::draw(QCPPainter *painter) /* including file 'src/layout.cpp' */ -/* modified 2021-03-29T02:30:44, size 78863 */ +/* modified 2022-11-06T12:45:56, size 78863 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPMarginGroup @@ -5161,7 +5161,7 @@ void QCPLayoutInset::addElement(QCPLayoutElement *element, const QRectF &rect) /* including file 'src/lineending.cpp' */ -/* modified 2021-03-29T02:30:44, size 11189 */ +/* modified 2022-11-06T12:45:56, size 11189 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPLineEnding @@ -5455,7 +5455,7 @@ void QCPLineEnding::draw(QCPPainter *painter, const QCPVector2D &pos, double ang /* including file 'src/axis/labelpainter.cpp' */ -/* modified 2021-03-29T02:30:44, size 27296 */ +/* modified 2022-11-06T12:45:56, size 27519 */ //////////////////////////////////////////////////////////////////////////////////////////////////// @@ -5653,8 +5653,8 @@ QByteArray QCPLabelPainterPrivate::generateLabelParameterHash() const QByteArray result; result.append(QByteArray::number(mParentPlot->bufferDevicePixelRatio())); result.append(QByteArray::number(mRotation)); - //result.append(QByteArray::number((int)tickLabelSide)); TODO: check whether this is really a cache-invalidating property - result.append(QByteArray::number((int)mSubstituteExponent)); + //result.append(QByteArray::number(int(tickLabelSide))); TODO: check whether this is really a cache-invalidating property + result.append(QByteArray::number(int(mSubstituteExponent))); result.append(QString(mMultiplicationSymbol).toUtf8()); result.append(mColor.name().toLatin1()+QByteArray::number(mColor.alpha(), 16)); result.append(mFont.toString().toLatin1()); @@ -5757,9 +5757,12 @@ QPointF QCPLabelPainterPrivate::getAnchorPos(const QPointF &tickPos) case asTopRight: return tickPos+QPointF(-mPadding*M_SQRT1_2, mPadding*M_SQRT1_2); case asBottomRight: return tickPos+QPointF(-mPadding*M_SQRT1_2, -mPadding*M_SQRT1_2); case asBottomLeft: return tickPos+QPointF(mPadding*M_SQRT1_2, -mPadding*M_SQRT1_2); + default: qDebug() << Q_FUNC_INFO << "invalid mode for anchor side: " << mAnchorSide; break; } + break; } case amSkewedUpright: + // fall through case amSkewedRotated: { QCPVector2D anchorNormal(tickPos-mAnchorReference); @@ -5768,6 +5771,7 @@ QPointF QCPLabelPainterPrivate::getAnchorPos(const QPointF &tickPos) anchorNormal.normalize(); return tickPos+(anchorNormal*mPadding).toPointF(); } + default: qDebug() << Q_FUNC_INFO << "invalid mode for anchor mode: " << mAnchorMode; break; } return tickPos; } @@ -5985,8 +5989,8 @@ QByteArray QCPLabelPainterPrivate::cacheKey(const QString &text, const QColor &c { return text.toUtf8()+ QByteArray::number(color.red()+256*color.green()+65536*color.blue(), 36)+ - QByteArray::number(color.alpha()+256*(int)side, 36)+ - QByteArray::number((int)(rotation*100)%36000, 36); + QByteArray::number(color.alpha()+256*int(side), 36)+ + QByteArray::number(int(rotation*100), 36); } QCPLabelPainterPrivate::AnchorSide QCPLabelPainterPrivate::skewedAnchorSide(const QPointF &tickPos, double sideExpandHorz, double sideExpandVert) const @@ -6054,7 +6058,7 @@ void QCPLabelPainterPrivate::analyzeFontMetrics() /* including file 'src/axis/axisticker.cpp' */ -/* modified 2021-03-29T02:30:44, size 18688 */ +/* modified 2022-11-06T12:45:56, size 18693 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPAxisTicker @@ -6438,7 +6442,7 @@ double QCPAxisTicker::pickClosest(double target, const QVector &candidat */ double QCPAxisTicker::getMantissa(double input, double *magnitude) const { - const double mag = qPow(10.0, qFloor(qLn(input)/qLn(10.0))); + const double mag = std::pow(10.0, std::floor(std::log10(input))); if (magnitude) *magnitude = mag; return input/mag; } @@ -6474,7 +6478,7 @@ double QCPAxisTicker::cleanMantissa(double input) const /* including file 'src/axis/axistickerdatetime.cpp' */ -/* modified 2021-03-29T02:30:44, size 18829 */ +/* modified 2022-11-06T12:45:56, size 18829 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPAxisTickerDateTime @@ -6831,7 +6835,7 @@ double QCPAxisTickerDateTime::dateTimeToKey(const QDate &date, Qt::TimeSpec time /* including file 'src/axis/axistickertime.cpp' */ -/* modified 2021-03-29T02:30:44, size 11745 */ +/* modified 2022-11-06T12:45:56, size 11745 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPAxisTickerTime @@ -7080,7 +7084,7 @@ void QCPAxisTickerTime::replaceUnit(QString &text, QCPAxisTickerTime::TimeUnit u /* including file 'src/axis/axistickerfixed.cpp' */ -/* modified 2021-03-29T02:30:44, size 5575 */ +/* modified 2022-11-06T12:45:56, size 5575 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPAxisTickerFixed @@ -7182,7 +7186,7 @@ double QCPAxisTickerFixed::getTickStep(const QCPRange &range) /* including file 'src/axis/axistickertext.cpp' */ -/* modified 2021-03-29T02:30:44, size 8742 */ +/* modified 2022-11-06T12:45:56, size 8742 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPAxisTickerText @@ -7399,7 +7403,7 @@ QVector QCPAxisTickerText::createTickVector(double tickStep, const QCPRa /* including file 'src/axis/axistickerpi.cpp' */ -/* modified 2021-03-29T02:30:44, size 11177 */ +/* modified 2022-11-06T12:45:56, size 11177 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPAxisTickerPi @@ -7686,7 +7690,7 @@ QString QCPAxisTickerPi::unicodeSubscript(int number) const /* including file 'src/axis/axistickerlog.cpp' */ -/* modified 2021-03-29T02:30:44, size 7890 */ +/* modified 2022-11-06T12:45:56, size 7890 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPAxisTickerLog @@ -7827,7 +7831,7 @@ QVector QCPAxisTickerLog::createTickVector(double tickStep, const QCPRan /* including file 'src/axis/axis.cpp' */ -/* modified 2021-03-29T02:30:44, size 99883 */ +/* modified 2022-11-06T12:45:56, size 99911 */ //////////////////////////////////////////////////////////////////////////////////////////////////// @@ -10348,7 +10352,7 @@ QCPAxisPainterPrivate::TickLabelData QCPAxisPainterPrivate::getTickLabelData(con int eLast = -1; // last index of exponent part, rest of text after this will be suffixPart if (substituteExponent) { - ePos = text.indexOf(QLatin1Char('e')); + ePos = text.indexOf(QString(mParentPlot->locale().exponential())); if (ePos > 0 && text.at(ePos-1).isDigit()) { eLast = ePos; @@ -10545,7 +10549,7 @@ void QCPAxisPainterPrivate::getMaxTickLabelSize(const QFont &font, const QString /* including file 'src/scatterstyle.cpp' */ -/* modified 2021-03-29T02:30:44, size 17466 */ +/* modified 2022-11-06T12:45:56, size 17466 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPScatterStyle @@ -11018,7 +11022,7 @@ void QCPScatterStyle::drawShape(QCPPainter *painter, double x, double y) const /* including file 'src/plottable.cpp' */ -/* modified 2021-03-29T02:30:44, size 38818 */ +/* modified 2022-11-06T12:45:56, size 38818 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPSelectionDecorator @@ -11989,7 +11993,7 @@ void QCPAbstractPlottable::deselectEvent(bool *selectionStateChanged) /* including file 'src/item.cpp' */ -/* modified 2021-03-29T02:30:44, size 49486 */ +/* modified 2022-11-06T12:45:56, size 49486 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPItemAnchor @@ -13261,7 +13265,7 @@ QCP::Interaction QCPAbstractItem::selectionCategory() const /* including file 'src/core.cpp' */ -/* modified 2021-03-29T02:30:44, size 127198 */ +/* modified 2022-11-06T12:45:56, size 127625 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCustomPlot @@ -13273,7 +13277,7 @@ QCP::Interaction QCPAbstractItem::selectionCategory() const interacts with the user. For tutorials on how to use QCustomPlot, see the website\n - http://www.qcustomplot.com/ + https://www.qcustomplot.com/ */ /* start of documentation of inline functions */ @@ -13597,7 +13601,7 @@ QCustomPlot::QCustomPlot(QWidget *parent) : xAxis2(nullptr), yAxis2(nullptr), legend(nullptr), - mBufferDevicePixelRatio(1.0), // will be adapted to primary screen below + mBufferDevicePixelRatio(1.0), // will be adapted to true value below mPlotLayout(nullptr), mAutoAddPlottableToLegend(true), mAntialiasedElements(QCP::aeNone), @@ -13626,7 +13630,6 @@ QCustomPlot::QCustomPlot(QWidget *parent) : mOpenGlCacheLabelsBackup(true) { setAttribute(Qt::WA_NoMousePropagation); - setAttribute(Qt::WA_OpaquePaintEvent); setFocusPolicy(Qt::ClickFocus); setMouseTracking(true); QLocale currentLocale = locale(); @@ -15466,6 +15469,22 @@ QSize QCustomPlot::sizeHint() const void QCustomPlot::paintEvent(QPaintEvent *event) { Q_UNUSED(event) + + // detect if the device pixel ratio has changed (e.g. moving window between different DPI screens), and adapt buffers if necessary: +#ifdef QCP_DEVICEPIXELRATIO_SUPPORTED +# ifdef QCP_DEVICEPIXELRATIO_FLOAT + double newDpr = devicePixelRatioF(); +# else + double newDpr = devicePixelRatio(); +# endif + if (!qFuzzyCompare(mBufferDevicePixelRatio, newDpr)) + { + setBufferDevicePixelRatio(newDpr); + replot(QCustomPlot::rpQueuedRefresh); + return; + } +#endif + QCPPainter painter(this); if (painter.isActive()) { @@ -16480,7 +16499,7 @@ void QCustomPlot::toPainter(QCPPainter *painter, int width, int height) /* including file 'src/colorgradient.cpp' */ -/* modified 2021-03-29T02:30:44, size 25278 */ +/* modified 2022-11-06T12:45:56, size 25408 */ //////////////////////////////////////////////////////////////////////////////////////////////////// @@ -16710,10 +16729,10 @@ void QCPColorGradient::colorize(const double *data, const QCPRange &range, QRgb const double value = data[dataIndexFactor*i]; if (skipNanCheck || !std::isnan(value)) { - int index = int((!logarithmic ? value-range.lower : qLn(value/range.lower)) * posToIndexFactor); + qint64 index = qint64((!logarithmic ? value-range.lower : qLn(value/range.lower)) * posToIndexFactor); if (!mPeriodic) { - index = qBound(0, index, mLevelCount-1); + index = qBound(qint64(0), index, qint64(mLevelCount-1)); } else { index %= mLevelCount; @@ -16771,10 +16790,10 @@ void QCPColorGradient::colorize(const double *data, const unsigned char *alpha, const double value = data[dataIndexFactor*i]; if (skipNanCheck || !std::isnan(value)) { - int index = int((!logarithmic ? value-range.lower : qLn(value/range.lower)) * posToIndexFactor); + qint64 index = qint64((!logarithmic ? value-range.lower : qLn(value/range.lower)) * posToIndexFactor); if (!mPeriodic) { - index = qBound(0, index, mLevelCount-1); + index = qBound(qint64(0), index, qint64(mLevelCount-1)); } else { index %= mLevelCount; @@ -17017,7 +17036,7 @@ void QCPColorGradient::updateColorBuffer() for (int i=0; i::const_iterator it = mColorStops.lowerBound(position); + QMap::const_iterator it = const_cast*>(&mColorStops)->lowerBound(position); // force using the const lowerBound method if (it == mColorStops.constEnd()) // position is on or after last stop, use color of last stop { if (useAlpha) @@ -17115,7 +17134,7 @@ void QCPColorGradient::updateColorBuffer() /* including file 'src/selectiondecorator-bracket.cpp' */ -/* modified 2021-03-29T02:30:44, size 12308 */ +/* modified 2022-11-06T12:45:56, size 12308 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPSelectionDecoratorBracket @@ -17401,7 +17420,7 @@ QPointF QCPSelectionDecoratorBracket::getPixelCoordinates(const QCPPlottableInte /* including file 'src/layoutelements/layoutelement-axisrect.cpp' */ -/* modified 2021-03-29T02:30:44, size 47193 */ +/* modified 2022-11-06T12:45:56, size 47193 */ //////////////////////////////////////////////////////////////////////////////////////////////////// @@ -18686,7 +18705,7 @@ void QCPAxisRect::wheelEvent(QWheelEvent *event) /* including file 'src/layoutelements/layoutelement-legend.cpp' */ -/* modified 2021-03-29T02:30:44, size 31762 */ +/* modified 2022-11-06T12:45:56, size 31762 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPAbstractLegendItem @@ -19610,7 +19629,7 @@ void QCPLegend::parentPlotInitialized(QCustomPlot *parentPlot) /* including file 'src/layoutelements/layoutelement-textelement.cpp' */ -/* modified 2021-03-29T02:30:44, size 12925 */ +/* modified 2022-11-06T12:45:56, size 12925 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPTextElement @@ -20016,7 +20035,7 @@ QColor QCPTextElement::mainTextColor() const /* including file 'src/layoutelements/layoutelement-colorscale.cpp' */ -/* modified 2021-03-29T02:30:44, size 26531 */ +/* modified 2022-11-06T12:45:56, size 26531 */ //////////////////////////////////////////////////////////////////////////////////////////////////// @@ -20700,7 +20719,7 @@ void QCPColorScaleAxisRectPrivate::axisSelectableChanged(QCPAxis::SelectablePart /* including file 'src/plottables/plottable-graph.cpp' */ -/* modified 2021-03-29T02:30:44, size 74518 */ +/* modified 2022-11-06T12:45:57, size 74926 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPGraphData @@ -21530,21 +21549,37 @@ QVector QCPGraph::dataToImpulseLines(const QVector &data) { for (int i=0; icoordToPixel(data.at(i).key); - result[i*2+0].setX(valueAxis->coordToPixel(0)); - result[i*2+0].setY(key); - result[i*2+1].setX(valueAxis->coordToPixel(data.at(i).value)); - result[i*2+1].setY(key); + const QCPGraphData ¤t = data.at(i); + if (!qIsNaN(current.value)) + { + const double key = keyAxis->coordToPixel(current.key); + result[i*2+0].setX(valueAxis->coordToPixel(0)); + result[i*2+0].setY(key); + result[i*2+1].setX(valueAxis->coordToPixel(current.value)); + result[i*2+1].setY(key); + } else + { + result[i*2+0] = QPointF(0, 0); + result[i*2+1] = QPointF(0, 0); + } } } else // key axis is horizontal { for (int i=0; icoordToPixel(data.at(i).key); - result[i*2+0].setX(key); - result[i*2+0].setY(valueAxis->coordToPixel(0)); - result[i*2+1].setX(key); - result[i*2+1].setY(valueAxis->coordToPixel(data.at(i).value)); + const QCPGraphData ¤t = data.at(i); + if (!qIsNaN(current.value)) + { + const double key = keyAxis->coordToPixel(data.at(i).key); + result[i*2+0].setX(key); + result[i*2+0].setY(valueAxis->coordToPixel(0)); + result[i*2+1].setX(key); + result[i*2+1].setY(valueAxis->coordToPixel(data.at(i).value)); + } else + { + result[i*2+0] = QPointF(0, 0); + result[i*2+1] = QPointF(0, 0); + } } } return result; @@ -22458,7 +22493,7 @@ int QCPGraph::findIndexBelowY(const QVector *data, double y) const /* including file 'src/plottables/plottable-curve.cpp' */ -/* modified 2021-03-29T02:30:44, size 63851 */ +/* modified 2022-11-06T12:45:56, size 63851 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPCurveData @@ -23916,7 +23951,7 @@ double QCPCurve::pointDistance(const QPointF &pixelPoint, QCPCurveDataContainer: /* including file 'src/plottables/plottable-bars.cpp' */ -/* modified 2021-03-29T02:30:44, size 43907 */ +/* modified 2022-11-06T12:45:56, size 43907 */ //////////////////////////////////////////////////////////////////////////////////////////////////// @@ -25092,7 +25127,7 @@ void QCPBars::connectBars(QCPBars *lower, QCPBars *upper) /* including file 'src/plottables/plottable-statisticalbox.cpp' */ -/* modified 2021-03-29T02:30:44, size 28951 */ +/* modified 2022-11-06T12:45:57, size 28951 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPStatisticalBoxData @@ -25754,7 +25789,7 @@ QVector QCPStatisticalBox::getWhiskerBarLines(QCPStatisticalBoxDataConta /* including file 'src/plottables/plottable-colormap.cpp' */ -/* modified 2021-03-29T02:30:44, size 48149 */ +/* modified 2022-11-06T12:45:56, size 48189 */ //////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////// QCPColorMapData @@ -26124,8 +26159,8 @@ void QCPColorMapData::recalculateDataBounds() { if (mKeySize > 0 && mValueSize > 0) { - double minHeight = mData[0]; - double maxHeight = mData[0]; + double minHeight = std::numeric_limits::max(); + double maxHeight = -std::numeric_limits::max(); const int dataCount = mValueSize*mKeySize; for (int i=0; i= 0x060200 // don't use QT_VERSION_CHECK here, some moc versions don't understand it namespace QCP { -#else -class QCP { // when in moc-run, make it look like a class, so we get Q_GADGET, Q_ENUMS/Q_FLAGS features in namespace + Q_NAMESPACE // this is how to add the staticMetaObject to namespaces in newer Qt versions +#else // Qt version older than 6.2.0 +# ifndef Q_MOC_RUN +namespace QCP { +# else // not in moc run +class QCP { Q_GADGET Q_ENUMS(ExportPen) Q_ENUMS(ResolutionUnit) Q_ENUMS(SignDomain) Q_ENUMS(MarginSide) - Q_FLAGS(MarginSides) Q_ENUMS(AntialiasedElement) - Q_FLAGS(AntialiasedElements) Q_ENUMS(PlottingHint) - Q_FLAGS(PlottingHints) Q_ENUMS(Interaction) - Q_FLAGS(Interactions) Q_ENUMS(SelectionRectMode) Q_ENUMS(SelectionType) + + Q_FLAGS(AntialiasedElements) + Q_FLAGS(PlottingHints) + Q_FLAGS(MarginSides) + Q_FLAGS(Interactions) public: +# endif #endif + /*! Defines the different units in which the image resolution can be specified in the export functions. @@ -378,14 +387,39 @@ inline int getMarginValue(const QMargins &margins, QCP::MarginSide side) return 0; } - -extern const QMetaObject staticMetaObject; // in moc-run we create a static meta object for QCP "fake" object. This line is the link to it via QCP::staticMetaObject in normal operation as namespace +// for newer Qt versions we have to declare the enums/flags as metatypes inside the namespace using Q_ENUM_NS/Q_FLAG_NS: +// if you change anything here, don't forget to change it for older Qt versions below, too, +// and at the start of the namespace in the fake moc-run class +#if QT_VERSION >= 0x060200 +Q_ENUM_NS(ExportPen) +Q_ENUM_NS(ResolutionUnit) +Q_ENUM_NS(SignDomain) +Q_ENUM_NS(MarginSide) +Q_ENUM_NS(AntialiasedElement) +Q_ENUM_NS(PlottingHint) +Q_ENUM_NS(Interaction) +Q_ENUM_NS(SelectionRectMode) +Q_ENUM_NS(SelectionType) + +Q_FLAG_NS(AntialiasedElements) +Q_FLAG_NS(PlottingHints) +Q_FLAG_NS(MarginSides) +Q_FLAG_NS(Interactions) +#else +extern const QMetaObject staticMetaObject; +#endif } // end of namespace QCP + Q_DECLARE_OPERATORS_FOR_FLAGS(QCP::AntialiasedElements) Q_DECLARE_OPERATORS_FOR_FLAGS(QCP::PlottingHints) Q_DECLARE_OPERATORS_FOR_FLAGS(QCP::MarginSides) Q_DECLARE_OPERATORS_FOR_FLAGS(QCP::Interactions) + +// for older Qt versions we have to declare the enums/flags as metatypes outside the namespace using Q_DECLARE_METATYPE: +// if you change anything here, don't forget to change it for newer Qt versions above, too, +// and at the start of the namespace in the fake moc-run class +#if QT_VERSION < QT_VERSION_CHECK(6, 2, 0) Q_DECLARE_METATYPE(QCP::ExportPen) Q_DECLARE_METATYPE(QCP::ResolutionUnit) Q_DECLARE_METATYPE(QCP::SignDomain) @@ -395,12 +429,13 @@ Q_DECLARE_METATYPE(QCP::PlottingHint) Q_DECLARE_METATYPE(QCP::Interaction) Q_DECLARE_METATYPE(QCP::SelectionRectMode) Q_DECLARE_METATYPE(QCP::SelectionType) +#endif /* end of 'src/global.h' */ /* including file 'src/vector2d.h' */ -/* modified 2021-03-29T02:30:44, size 4988 */ +/* modified 2022-11-06T12:45:56, size 4988 */ class QCP_LIB_DECL QCPVector2D { @@ -475,7 +510,7 @@ inline QDebug operator<< (QDebug d, const QCPVector2D &vec) /* including file 'src/painter.h' */ -/* modified 2021-03-29T02:30:44, size 4035 */ +/* modified 2022-11-06T12:45:56, size 4035 */ class QCP_LIB_DECL QCPPainter : public QPainter { @@ -534,7 +569,7 @@ Q_DECLARE_METATYPE(QCPPainter::PainterMode) /* including file 'src/paintbuffer.h' */ -/* modified 2021-03-29T02:30:44, size 5006 */ +/* modified 2022-11-06T12:45:56, size 5006 */ class QCP_LIB_DECL QCPAbstractPaintBuffer { @@ -642,7 +677,7 @@ class QCP_LIB_DECL QCPPaintBufferGlFbo : public QCPAbstractPaintBuffer /* including file 'src/layer.h' */ -/* modified 2021-03-29T02:30:44, size 7038 */ +/* modified 2022-11-06T12:45:56, size 7038 */ class QCP_LIB_DECL QCPLayer : public QObject { @@ -791,7 +826,7 @@ class QCP_LIB_DECL QCPLayerable : public QObject /* including file 'src/axis/range.h' */ -/* modified 2021-03-29T02:30:44, size 5280 */ +/* modified 2022-11-06T12:45:56, size 5280 */ class QCP_LIB_DECL QCPRange { @@ -909,7 +944,7 @@ inline const QCPRange operator/(const QCPRange& range, double value) /* including file 'src/selection.h' */ -/* modified 2021-03-29T02:30:44, size 8569 */ +/* modified 2022-11-06T12:45:56, size 8569 */ class QCP_LIB_DECL QCPDataRange { @@ -1113,7 +1148,7 @@ inline QDebug operator<< (QDebug d, const QCPDataSelection &selection) /* including file 'src/selectionrect.h' */ -/* modified 2021-03-29T02:30:44, size 3354 */ +/* modified 2022-11-06T12:45:56, size 3354 */ class QCP_LIB_DECL QCPSelectionRect : public QCPLayerable { @@ -1167,7 +1202,7 @@ class QCP_LIB_DECL QCPSelectionRect : public QCPLayerable /* including file 'src/layout.h' */ -/* modified 2021-03-29T02:30:44, size 14279 */ +/* modified 2022-11-06T12:45:56, size 14279 */ class QCP_LIB_DECL QCPMarginGroup : public QObject { @@ -1488,7 +1523,7 @@ Q_DECLARE_METATYPE(QCPLayoutInset::InsetPlacement) /* including file 'src/lineending.h' */ -/* modified 2021-03-29T02:30:44, size 4426 */ +/* modified 2022-11-06T12:45:56, size 4426 */ class QCP_LIB_DECL QCPLineEnding { @@ -1552,7 +1587,7 @@ Q_DECLARE_METATYPE(QCPLineEnding::EndingStyle) /* including file 'src/axis/labelpainter.h' */ -/* modified 2021-03-29T02:30:44, size 7086 */ +/* modified 2022-11-06T12:45:56, size 7086 */ class QCPLabelPainterPrivate { @@ -1692,7 +1727,7 @@ Q_DECLARE_METATYPE(QCPLabelPainterPrivate::AnchorSide) /* including file 'src/axis/axisticker.h' */ -/* modified 2021-03-29T02:30:44, size 4230 */ +/* modified 2022-11-06T12:45:56, size 4230 */ class QCP_LIB_DECL QCPAxisTicker { @@ -1757,7 +1792,7 @@ Q_DECLARE_METATYPE(QSharedPointer) /* including file 'src/axis/axistickerdatetime.h' */ -/* modified 2021-03-29T02:30:44, size 3600 */ +/* modified 2022-11-06T12:45:56, size 3600 */ class QCP_LIB_DECL QCPAxisTickerDateTime : public QCPAxisTicker { @@ -1806,7 +1841,7 @@ class QCP_LIB_DECL QCPAxisTickerDateTime : public QCPAxisTicker /* including file 'src/axis/axistickertime.h' */ -/* modified 2021-03-29T02:30:44, size 3542 */ +/* modified 2022-11-06T12:45:56, size 3542 */ class QCP_LIB_DECL QCPAxisTickerTime : public QCPAxisTicker { @@ -1858,7 +1893,7 @@ Q_DECLARE_METATYPE(QCPAxisTickerTime::TimeUnit) /* including file 'src/axis/axistickerfixed.h' */ -/* modified 2021-03-29T02:30:44, size 3308 */ +/* modified 2022-11-06T12:45:56, size 3308 */ class QCP_LIB_DECL QCPAxisTickerFixed : public QCPAxisTicker { @@ -1900,7 +1935,7 @@ Q_DECLARE_METATYPE(QCPAxisTickerFixed::ScaleStrategy) /* including file 'src/axis/axistickertext.h' */ -/* modified 2021-03-29T02:30:44, size 3090 */ +/* modified 2022-11-06T12:45:56, size 3090 */ class QCP_LIB_DECL QCPAxisTickerText : public QCPAxisTicker { @@ -1938,7 +1973,7 @@ class QCP_LIB_DECL QCPAxisTickerText : public QCPAxisTicker /* including file 'src/axis/axistickerpi.h' */ -/* modified 2021-03-29T02:30:44, size 3911 */ +/* modified 2022-11-06T12:45:56, size 3911 */ class QCP_LIB_DECL QCPAxisTickerPi : public QCPAxisTicker { @@ -1997,7 +2032,7 @@ Q_DECLARE_METATYPE(QCPAxisTickerPi::FractionStyle) /* including file 'src/axis/axistickerlog.h' */ -/* modified 2021-03-29T02:30:44, size 2594 */ +/* modified 2022-11-06T12:45:56, size 2594 */ class QCP_LIB_DECL QCPAxisTickerLog : public QCPAxisTicker { @@ -2029,7 +2064,7 @@ class QCP_LIB_DECL QCPAxisTickerLog : public QCPAxisTicker /* including file 'src/axis/axis.h' */ -/* modified 2021-03-29T02:30:44, size 20913 */ +/* modified 2022-11-06T12:45:56, size 20913 */ class QCP_LIB_DECL QCPGrid :public QCPLayerable { @@ -2457,7 +2492,7 @@ class QCPAxisPainterPrivate /* including file 'src/scatterstyle.h' */ -/* modified 2021-03-29T02:30:44, size 7275 */ +/* modified 2022-11-06T12:45:56, size 7275 */ class QCP_LIB_DECL QCPScatterStyle { @@ -2564,7 +2599,7 @@ Q_DECLARE_METATYPE(QCPScatterStyle::ScatterShape) /* including file 'src/datacontainer.h' */ -/* modified 2021-03-29T02:30:44, size 34070 */ +/* modified 2022-11-06T12:45:56, size 34305 */ /*! \relates QCPDataContainer Returns whether the sort key of \a a is less than the sort key of \a b. @@ -3233,6 +3268,8 @@ QCPRange QCPDataContainer::keyRange(bool &foundRange, QCP::SignDomain output parameter \a foundRange indicates whether a sensible range was found. If this is false, you should not use the returned QCPRange (e.g. the data container is empty or all points have the same value). + + Inf and -Inf data values are ignored. If \a inKeyRange has both lower and upper bound set to zero (is equal to QCPRange()), all data points are considered, without any restriction on the keys. @@ -3270,12 +3307,12 @@ QCPRange QCPDataContainer::valueRange(bool &foundRange, QCP::SignDomai if (restrictKeyRange && (it->mainKey() < inKeyRange.lower || it->mainKey() > inKeyRange.upper)) continue; current = it->valueRange(); - if ((current.lower < range.lower || !haveLower) && !qIsNaN(current.lower)) + if ((current.lower < range.lower || !haveLower) && !qIsNaN(current.lower) && std::isfinite(current.lower)) { range.lower = current.lower; haveLower = true; } - if ((current.upper > range.upper || !haveUpper) && !qIsNaN(current.upper)) + if ((current.upper > range.upper || !haveUpper) && !qIsNaN(current.upper) && std::isfinite(current.upper)) { range.upper = current.upper; haveUpper = true; @@ -3288,12 +3325,12 @@ QCPRange QCPDataContainer::valueRange(bool &foundRange, QCP::SignDomai if (restrictKeyRange && (it->mainKey() < inKeyRange.lower || it->mainKey() > inKeyRange.upper)) continue; current = it->valueRange(); - if ((current.lower < range.lower || !haveLower) && current.lower < 0 && !qIsNaN(current.lower)) + if ((current.lower < range.lower || !haveLower) && current.lower < 0 && !qIsNaN(current.lower) && std::isfinite(current.lower)) { range.lower = current.lower; haveLower = true; } - if ((current.upper > range.upper || !haveUpper) && current.upper < 0 && !qIsNaN(current.upper)) + if ((current.upper > range.upper || !haveUpper) && current.upper < 0 && !qIsNaN(current.upper) && std::isfinite(current.upper)) { range.upper = current.upper; haveUpper = true; @@ -3306,12 +3343,12 @@ QCPRange QCPDataContainer::valueRange(bool &foundRange, QCP::SignDomai if (restrictKeyRange && (it->mainKey() < inKeyRange.lower || it->mainKey() > inKeyRange.upper)) continue; current = it->valueRange(); - if ((current.lower < range.lower || !haveLower) && current.lower > 0 && !qIsNaN(current.lower)) + if ((current.lower < range.lower || !haveLower) && current.lower > 0 && !qIsNaN(current.lower) && std::isfinite(current.lower)) { range.lower = current.lower; haveLower = true; } - if ((current.upper > range.upper || !haveUpper) && current.upper > 0 && !qIsNaN(current.upper)) + if ((current.upper > range.upper || !haveUpper) && current.upper > 0 && !qIsNaN(current.upper) && std::isfinite(current.upper)) { range.upper = current.upper; haveUpper = true; @@ -3406,7 +3443,7 @@ void QCPDataContainer::performAutoSqueeze() /* including file 'src/plottable.h' */ -/* modified 2021-03-29T02:30:44, size 8461 */ +/* modified 2022-11-06T12:45:56, size 8461 */ class QCP_LIB_DECL QCPSelectionDecorator { @@ -3563,7 +3600,7 @@ class QCP_LIB_DECL QCPAbstractPlottable : public QCPLayerable /* including file 'src/item.h' */ -/* modified 2021-03-29T02:30:44, size 9425 */ +/* modified 2022-11-06T12:45:56, size 9425 */ class QCP_LIB_DECL QCPItemAnchor { @@ -3748,7 +3785,7 @@ class QCP_LIB_DECL QCPAbstractItem : public QCPLayerable /* including file 'src/core.h' */ -/* modified 2021-03-29T02:30:44, size 19304 */ +/* modified 2022-11-06T12:45:56, size 19304 */ class QCP_LIB_DECL QCustomPlot : public QWidget { @@ -4118,7 +4155,7 @@ ItemType *QCustomPlot::itemAt(const QPointF &pos, bool onlySelectable) const /* including file 'src/plottable1d.h' */ -/* modified 2021-03-29T02:30:44, size 25638 */ +/* modified 2022-11-06T12:45:56, size 25638 */ class QCPPlottableInterface1D { @@ -4710,7 +4747,7 @@ void QCPAbstractPlottable1D::drawPolyline(QCPPainter *painter, const Q /* including file 'src/colorgradient.h' */ -/* modified 2021-03-29T02:30:44, size 7262 */ +/* modified 2022-11-06T12:45:56, size 7262 */ class QCP_LIB_DECL QCPColorGradient { @@ -4813,7 +4850,7 @@ Q_DECLARE_METATYPE(QCPColorGradient::GradientPreset) /* including file 'src/selectiondecorator-bracket.h' */ -/* modified 2021-03-29T02:30:44, size 4458 */ +/* modified 2022-11-06T12:45:56, size 4458 */ class QCP_LIB_DECL QCPSelectionDecoratorBracket : public QCPSelectionDecorator { @@ -4882,7 +4919,7 @@ Q_DECLARE_METATYPE(QCPSelectionDecoratorBracket::BracketStyle) /* including file 'src/layoutelements/layoutelement-axisrect.h' */ -/* modified 2021-03-29T02:30:44, size 7529 */ +/* modified 2022-11-06T12:45:56, size 7529 */ class QCP_LIB_DECL QCPAxisRect : public QCPLayoutElement { @@ -5008,7 +5045,7 @@ class QCP_LIB_DECL QCPAxisRect : public QCPLayoutElement /* including file 'src/layoutelements/layoutelement-legend.h' */ -/* modified 2021-03-29T02:30:44, size 10425 */ +/* modified 2022-11-06T12:45:56, size 10425 */ class QCP_LIB_DECL QCPAbstractLegendItem : public QCPLayoutElement { @@ -5226,7 +5263,7 @@ Q_DECLARE_METATYPE(QCPLegend::SelectablePart) /* including file 'src/layoutelements/layoutelement-textelement.h' */ -/* modified 2021-03-29T02:30:44, size 5359 */ +/* modified 2022-11-06T12:45:56, size 5359 */ class QCP_LIB_DECL QCPTextElement : public QCPLayoutElement { @@ -5313,7 +5350,7 @@ class QCP_LIB_DECL QCPTextElement : public QCPLayoutElement /* including file 'src/layoutelements/layoutelement-colorscale.h' */ -/* modified 2021-03-29T02:30:44, size 5939 */ +/* modified 2022-11-06T12:45:56, size 5939 */ class QCPColorScaleAxisRectPrivate : public QCPAxisRect @@ -5421,7 +5458,7 @@ class QCP_LIB_DECL QCPColorScale : public QCPLayoutElement /* including file 'src/plottables/plottable-graph.h' */ -/* modified 2021-03-29T02:30:44, size 9316 */ +/* modified 2022-11-06T12:45:56, size 9316 */ class QCP_LIB_DECL QCPGraphData { @@ -5560,7 +5597,7 @@ Q_DECLARE_METATYPE(QCPGraph::LineStyle) /* including file 'src/plottables/plottable-curve.h' */ -/* modified 2021-03-29T02:30:44, size 7434 */ +/* modified 2022-11-06T12:45:56, size 7434 */ class QCP_LIB_DECL QCPCurveData { @@ -5675,7 +5712,7 @@ Q_DECLARE_METATYPE(QCPCurve::LineStyle) /* including file 'src/plottables/plottable-bars.h' */ -/* modified 2021-03-29T02:30:44, size 8955 */ +/* modified 2022-11-06T12:45:56, size 8955 */ class QCP_LIB_DECL QCPBarsGroup : public QObject { @@ -5863,7 +5900,7 @@ Q_DECLARE_METATYPE(QCPBars::WidthType) /* including file 'src/plottables/plottable-statisticalbox.h' */ -/* modified 2021-03-29T02:30:44, size 7522 */ +/* modified 2022-11-06T12:45:56, size 7522 */ class QCP_LIB_DECL QCPStatisticalBoxData { @@ -5980,7 +6017,7 @@ class QCP_LIB_DECL QCPStatisticalBox : public QCPAbstractPlottable1D -// 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 "LexerModule.h" -#include "Catalogue.h" - -using namespace Scintilla; - -static std::vector lexerCatalogue; -static int nextLanguage = SCLEX_AUTOMATIC+1; - -const LexerModule *Catalogue::Find(int language) { - Scintilla_LinkLexers(); - for (const LexerModule *lm : lexerCatalogue) { - if (lm->GetLanguage() == language) { - return lm; - } - } - return nullptr; -} - -const LexerModule *Catalogue::Find(const char *languageName) { - Scintilla_LinkLexers(); - if (languageName) { - for (const LexerModule *lm : lexerCatalogue) { - if (lm->languageName && (0 == strcmp(lm->languageName, languageName))) { - return lm; - } - } - } - return nullptr; -} - -void Catalogue::AddLexerModule(LexerModule *plm) { - if (plm->GetLanguage() == SCLEX_AUTOMATIC) { - plm->language = nextLanguage; - nextLanguage++; - } - lexerCatalogue.push_back(plm); -} - -// To add or remove a lexer, add or remove its file and run LexGen.py. - -// Force a reference to all of the Scintilla lexers so that the linker will -// not remove the code of the lexers. -int Scintilla_LinkLexers() { - - static int initialised = 0; - if (initialised) - return 0; - initialised = 1; - -// Shorten the code that declares a lexer and ensures it is linked in by calling a method. -#define LINK_LEXER(lexer) extern LexerModule lexer; Catalogue::AddLexerModule(&lexer); - -//++Autogenerated -- run scripts/LexGen.py to regenerate -//**\(\tLINK_LEXER(\*);\n\) - LINK_LEXER(lmSQL); - LINK_LEXER(lmJSON); - LINK_LEXER(lmHTML); - LINK_LEXER(lmXML); - -//--Autogenerated -- end of automatically generated section - - return 1; -} diff --git a/libs/qscintilla/src/UnicodeFromUTF8.h b/libs/qscintilla/src/UnicodeFromUTF8.h deleted file mode 100644 index ae66cb0a9..000000000 --- a/libs/qscintilla/src/UnicodeFromUTF8.h +++ /dev/null @@ -1,32 +0,0 @@ -// Scintilla source code edit control -/** @file UnicodeFromUTF8.h - ** Lexer infrastructure. - **/ -// Copyright 2013 by Neil Hodgson -// This file is in the public domain. - -#ifndef UNICODEFROMUTF8_H -#define UNICODEFROMUTF8_H - -#ifdef SCI_NAMESPACE -namespace Scintilla { -#endif - -inline int UnicodeFromUTF8(const unsigned char *us) { - if (us[0] < 0xC2) { - return us[0]; - } else if (us[0] < 0xE0) { - return ((us[0] & 0x1F) << 6) + (us[1] & 0x3F); - } else if (us[0] < 0xF0) { - return ((us[0] & 0xF) << 12) + ((us[1] & 0x3F) << 6) + (us[2] & 0x3F); - } else if (us[0] < 0xF5) { - return ((us[0] & 0x7) << 18) + ((us[1] & 0x3F) << 12) + ((us[2] & 0x3F) << 6) + (us[3] & 0x3F); - } - return us[0]; -} - -#ifdef SCI_NAMESPACE -} -#endif - -#endif diff --git a/libs/qscintilla/ChangeLog b/libs/qscintilla_2.14.1/ChangeLog similarity index 92% rename from libs/qscintilla/ChangeLog rename to libs/qscintilla_2.14.1/ChangeLog index 944189c6f..19a51c732 100644 --- a/libs/qscintilla/ChangeLog +++ b/libs/qscintilla_2.14.1/ChangeLog @@ -1,5 +1,652 @@ +2023-06-07 Phil Thompson + + * NEWS, Python/project.py: + Rolled back the explicit setting of the minimum GLIBC version now + that we have changed the build platform. + [4ea73206e689] [2.14.1] <2.14-maint> + +2023-05-22 Phil Thompson + + * NEWS, qt/InputMethod.cpp, qt/qscintilla.pro: + Fixed a pointer truncation in the handling of input method queries. + [e3a47ebe8c93] <2.14-maint> + +2023-05-14 Phil Thompson + + * NEWS, Python/project.py: + Fixed the manylinux wheel tag when building on Ubuntu 22.04. + [77c97572f18c] <2.14-maint> + +2023-04-27 Phil Thompson + + * .hgtags: + Added tag 2.14.0 for changeset b748338e45bb + [670c1fb1beeb] + +2023-04-24 Phil Thompson + + * NEWS, qt/qsciscintilla.cpp: + Fixed a regression in QSciScintilla::text(). + [b748338e45bb] [2.14.0] + +2023-04-20 Phil Thompson + + * qt/qsciscintilla.cpp: + Use SCI_ADDTEXT rather than SCI_SETTEXT to set the text so tht + embedded zero bytes can be loaded. + [774bcbca48b9] + + * NEWS, qt/InputMethod.cpp, qt/SciAccessibility.cpp, + qt/SciAccessibility.h, qt/qscilexer.cpp, qt/qscilexer.h, + qt/qsciscintilla.cpp, qt/qsciscintillabase.cpp, + qt/qsciscintillabase.h: + Refactored the conversions from bytes to a QString to allow for + embedded zero bytes and to remove duplicated code. + [c8eb0d943c07] + +2023-03-31 Phil Thompson + + * NEWS, qt/qscintilla_cs.ts, qt/qscintilla_de.qm, qt/qscintilla_de.ts, + qt/qscintilla_es.ts, qt/qscintilla_fr.ts, qt/qscintilla_pt_br.ts: + Fixed the .ts files. + [5d000fe9301e] + +2023-03-28 Phil Thompson + + * Python/sip/qscilexerasm.sip, Python/sip/qscilexermasm.sip, + Python/sip/qscilexernasm.sip, Python/sip/qscimodcommon.sip, + Python/sip/qsciscintillabase.sip: + Implemented the Python wrappers for the assembler lexers. + [0030fcf7a208] + + * qt/qscintilla_cs.ts, qt/qscintilla_de.ts, qt/qscintilla_es.ts, + qt/qscintilla_fr.ts, qt/qscintilla_pt_br.ts: + Updated the translation source files. + [0fb2491bb039] + + * qt/qscilexer.cpp, qt/qscilexer.h, qt/qscilexerasm.cpp, + qt/qscilexerasm.h, qt/qsciscintillabase.h: + Completed the implementation of the assember lexers. Note we choose + not to support explicit fold points. + [629503d9342b] + + * NEWS, qt/qsciscintilla.cpp, qt/qsciscintilla.h, + qt/qsciscintillabase.cpp, qt/qsciscintillabase.h: + Removed a Qt4 compatibility macro. + [4b23653f3e5c] + + * qt/qscilexerasm.cpp, qt/qscilexerasm.h: + Added the support for compact and multi-line comment folding to + QsciLexerAsm. + [708bed0e9e2d] + +2023-03-27 Phil Thompson + + * NEWS, qt/qscilexerasm.cpp, qt/qscilexerasm.h, + qt/qscilexerintelhex.cpp, qt/qscilexermasm.cpp, qt/qscilexermasm.h, + qt/qscilexernasm.cpp, qt/qscilexernasm.h, qt/qscilexertekhex.cpp, + qt/qscintilla.pro: + Initial implementation of the QsciLexerAsm, QsciLexerMASM and + QsciLexerNASM classes. + [f216dfe8a7a9] + +2023-03-26 Phil Thompson + + * Python/sip/qscilexerintelhex.sip, Python/sip/qscilexersrec.sip, + Python/sip/qscilexertekhex.sip, Python/sip/qscimodcommon.sip, + Python/sip/qsciscintillabase.sip: + Completed the new Python wrappers. + [9acd96c733d2] + + * Python/sip/qscilexerhex.sip, Python/sip/qscilexerintelhex.sip, + Python/sip/qscilexersrec.sip, Python/sip/qscilexertekhex.sip: + Added the Python bindings for the new lexer classes. + [7882938747c0] + + * qt/qscintilla_cs.ts, qt/qscintilla_de.ts, qt/qscintilla_es.ts, + qt/qscintilla_fr.ts, qt/qscintilla_pt_br.ts: + Updated the translation source files. + [ee55692ee907] + + * NEWS, qt/qscilexerhex.cpp, qt/qscilexerhex.h, + qt/qscilexerintelhex.cpp, qt/qscilexerintelhex.h, + qt/qscilexersrec.cpp, qt/qscilexersrec.h, qt/qscilexertekhex.cpp, + qt/qscilexertekhex.h, qt/qscintilla.pro: + Added the QsciLexerHex, QsciLexerIntelHex, QsciLexerSRec and + QsciLexerTekHex classes. + [5e1cb8b52206] + + * Merged the 2.13-maint branch. + [a9480b2f6bdb] + +2023-03-02 Phil Thompson + + * NEWS, lexlib/LexAccessor.h: + Disabled an assert() in the lexer library as the following code + handles the case anyway. The real bug is probably in the HTML lexer + triggered when the HTML has embedded DTD. + [6452e3b634b6] <2.13-maint> + +2023-01-15 Phil Thompson + + * .hgtags: + Added tag 2.13.4 for changeset b2c87a81f0c3 + [d2bc1ac10aa3] <2.13-maint> + +2022-12-06 Phil Thompson + + * NEWS, src/EditView.cxx: + Fixed horizontally scrolled text overwriting margins when EOLs are + visible. + [b2c87a81f0c3] [2.13.4] <2.13-maint> + +2022-06-17 Phil Thompson + + * NEWS, qsci/api/python/Python-3.11.api: + Added the .api file for Python v3.11. + [96eca4a41bcb] <2.13-maint> + +2022-05-24 Phil Thompson + + * NEWS, lib/gen_python3_api.py, lib/gen_python_api.py, + qsci/api/python/Python-3.10.api, qsci/api/python/Python-3.8.api, + qsci/api/python/Python-3.9.api: + Added the .api file for Python v3.10. Removed the script that + generates .api files for Python v2. Updated the .api file for Python + v3.8 and v3.9 removing non-stdlib stuff. + [048961f449ea] <2.13-maint> + +2022-05-13 Phil Thompson + + * .hgtags: + Added tag 2.13.3 for changeset 5b8465ba3664 + [f37eea15e210] <2.13-maint> + +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/LICENSE b/libs/qscintilla_2.14.1/LICENSE similarity index 100% rename from libs/qscintilla/LICENSE rename to libs/qscintilla_2.14.1/LICENSE diff --git a/libs/qscintilla/NEWS b/libs/qscintilla_2.14.1/NEWS similarity index 93% rename from libs/qscintilla/NEWS rename to libs/qscintilla_2.14.1/NEWS index 28f8f1f2d..ccd6e00d1 100644 --- a/libs/qscintilla/NEWS +++ b/libs/qscintilla_2.14.1/NEWS @@ -1,3 +1,66 @@ +v2.14.1 7th June 2023 + - Bug fixes. + +v2.14.0 24th April 2023 + - Added the QsciLexerAsm, QsciLexerMASM and QsciLexerNASM classes. + - Added the QsciLexerHex, QsciLexerIntelHex, QsciLexerSRec and + QsciLexerTekHex classes. + - Bug fixes. + +v2.13.4 6th December 2022 + - Added the .api files for Python v3.10 and v3.11. + - Bug fixes. + +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_2.14.1/Qt5Qt6/CMakeLists.txt b/libs/qscintilla_2.14.1/Qt5Qt6/CMakeLists.txt new file mode 100644 index 000000000..5fc83a430 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/CMakeLists.txt @@ -0,0 +1,323 @@ +cmake_minimum_required(VERSION 3.16) +project(qscintilla2 VERSION 2.14.1 LANGUAGES CXX) + +set(CMAKE_AUTOMOC ON) +set(CMAKE_INCLUDE_CURRENT_DIR ON) + +find_package(${QT_MAJOR} REQUIRED COMPONENTS PrintSupport Widgets) + +if(APPLE) + find_package(${QT_MAJOR} REQUIRED COMPONENTS MacExtras) +endif() + +add_definitions(-DSCINTILLA_QT) +add_definitions(-DSCI_LEXER) + +set(SRC_LIST + ../scintilla/include/ILexer.h + ../scintilla/include/ILoader.h + ../scintilla/include/Platform.h + ../scintilla/include/SciLexer.h + ../scintilla/include/Sci_Position.h + ../scintilla/include/Scintilla.h + ../scintilla/include/ScintillaWidget.h + ../scintilla/lexers/LexA68k.cpp + ../scintilla/lexers/LexAPDL.cpp + ../scintilla/lexers/LexASY.cpp + ../scintilla/lexers/LexAU3.cpp + ../scintilla/lexers/LexAVE.cpp + ../scintilla/lexers/LexAVS.cpp + ../scintilla/lexers/LexAbaqus.cpp + ../scintilla/lexers/LexAda.cpp + ../scintilla/lexers/LexAsm.cpp + ../scintilla/lexers/LexAsn1.cpp + ../scintilla/lexers/LexBaan.cpp + ../scintilla/lexers/LexBash.cpp + ../scintilla/lexers/LexBasic.cpp + ../scintilla/lexers/LexBatch.cpp + ../scintilla/lexers/LexBibTeX.cpp + ../scintilla/lexers/LexBullant.cpp + ../scintilla/lexers/LexCLW.cpp + ../scintilla/lexers/LexCOBOL.cpp + ../scintilla/lexers/LexCPP.cpp + ../scintilla/lexers/LexCSS.cpp + ../scintilla/lexers/LexCaml.cpp + ../scintilla/lexers/LexCmake.cpp + ../scintilla/lexers/LexCoffeeScript.cpp + ../scintilla/lexers/LexConf.cpp + ../scintilla/lexers/LexCrontab.cpp + ../scintilla/lexers/LexCsound.cpp + ../scintilla/lexers/LexD.cpp + ../scintilla/lexers/LexDMAP.cpp + ../scintilla/lexers/LexDMIS.cpp + ../scintilla/lexers/LexDiff.cpp + ../scintilla/lexers/LexECL.cpp + ../scintilla/lexers/LexEDIFACT.cpp + ../scintilla/lexers/LexEScript.cpp + ../scintilla/lexers/LexEiffel.cpp + ../scintilla/lexers/LexErlang.cpp + ../scintilla/lexers/LexErrorList.cpp + ../scintilla/lexers/LexFlagship.cpp + ../scintilla/lexers/LexForth.cpp + ../scintilla/lexers/LexFortran.cpp + ../scintilla/lexers/LexGAP.cpp + ../scintilla/lexers/LexGui4Cli.cpp + ../scintilla/lexers/LexHTML.cpp + ../scintilla/lexers/LexHaskell.cpp + ../scintilla/lexers/LexHex.cpp + ../scintilla/lexers/LexIndent.cpp + ../scintilla/lexers/LexInno.cpp + ../scintilla/lexers/LexJSON.cpp + ../scintilla/lexers/LexKVIrc.cpp + ../scintilla/lexers/LexKix.cpp + ../scintilla/lexers/LexLaTeX.cpp + ../scintilla/lexers/LexLisp.cpp + ../scintilla/lexers/LexLout.cpp + ../scintilla/lexers/LexLua.cpp + ../scintilla/lexers/LexMMIXAL.cpp + ../scintilla/lexers/LexMPT.cpp + ../scintilla/lexers/LexMSSQL.cpp + ../scintilla/lexers/LexMagik.cpp + ../scintilla/lexers/LexMake.cpp + ../scintilla/lexers/LexMarkdown.cpp + ../scintilla/lexers/LexMatlab.cpp + ../scintilla/lexers/LexMaxima.cpp + ../scintilla/lexers/LexMetapost.cpp + ../scintilla/lexers/LexModula.cpp + ../scintilla/lexers/LexMySQL.cpp + ../scintilla/lexers/LexNimrod.cpp + ../scintilla/lexers/LexNsis.cpp + ../scintilla/lexers/LexNull.cpp + ../scintilla/lexers/LexOScript.cpp + ../scintilla/lexers/LexOpal.cpp + ../scintilla/lexers/LexPB.cpp + ../scintilla/lexers/LexPLM.cpp + ../scintilla/lexers/LexPO.cpp + ../scintilla/lexers/LexPOV.cpp + ../scintilla/lexers/LexPS.cpp + ../scintilla/lexers/LexPascal.cpp + ../scintilla/lexers/LexPerl.cpp + ../scintilla/lexers/LexPowerPro.cpp + ../scintilla/lexers/LexPowerShell.cpp + ../scintilla/lexers/LexProgress.cpp + ../scintilla/lexers/LexProps.cpp + ../scintilla/lexers/LexPython.cpp + ../scintilla/lexers/LexR.cpp + ../scintilla/lexers/LexRebol.cpp + ../scintilla/lexers/LexRegistry.cpp + ../scintilla/lexers/LexRuby.cpp + ../scintilla/lexers/LexRust.cpp + ../scintilla/lexers/LexSAS.cpp + ../scintilla/lexers/LexSML.cpp + ../scintilla/lexers/LexSQL.cpp + ../scintilla/lexers/LexSTTXT.cpp + ../scintilla/lexers/LexScriptol.cpp + ../scintilla/lexers/LexSmalltalk.cpp + ../scintilla/lexers/LexSorcus.cpp + ../scintilla/lexers/LexSpecman.cpp + ../scintilla/lexers/LexSpice.cpp + ../scintilla/lexers/LexStata.cpp + ../scintilla/lexers/LexTACL.cpp + ../scintilla/lexers/LexTADS3.cpp + ../scintilla/lexers/LexTAL.cpp + ../scintilla/lexers/LexTCL.cpp + ../scintilla/lexers/LexTCMD.cpp + ../scintilla/lexers/LexTeX.cpp + ../scintilla/lexers/LexTxt2tags.cpp + ../scintilla/lexers/LexVB.cpp + ../scintilla/lexers/LexVHDL.cpp + ../scintilla/lexers/LexVerilog.cpp + ../scintilla/lexers/LexVisualProlog.cpp + ../scintilla/lexers/LexYAML.cpp + ../scintilla/lexlib/Accessor.cpp ../scintilla/lexlib/Accessor.h + ../scintilla/lexlib/CharacterCategory.cpp ../scintilla/lexlib/CharacterCategory.h + ../scintilla/lexlib/CharacterSet.cpp ../scintilla/lexlib/CharacterSet.h + ../scintilla/lexlib/DefaultLexer.cpp ../scintilla/lexlib/DefaultLexer.h + ../scintilla/lexlib/LexAccessor.h + ../scintilla/lexlib/LexerBase.cpp ../scintilla/lexlib/LexerBase.h + ../scintilla/lexlib/LexerModule.cpp ../scintilla/lexlib/LexerModule.h + ../scintilla/lexlib/LexerNoExceptions.cpp ../scintilla/lexlib/LexerNoExceptions.h + ../scintilla/lexlib/LexerSimple.cpp ../scintilla/lexlib/LexerSimple.h + ../scintilla/lexlib/OptionSet.h + ../scintilla/lexlib/PropSetSimple.cpp ../scintilla/lexlib/PropSetSimple.h + ../scintilla/lexlib/SparseState.h + ../scintilla/lexlib/StringCopy.h + ../scintilla/lexlib/StyleContext.cpp ../scintilla/lexlib/StyleContext.h + ../scintilla/lexlib/SubStyles.h + ../scintilla/lexlib/WordList.cpp ../scintilla/lexlib/WordList.h + ../scintilla/src/AutoComplete.cpp ../scintilla/src/AutoComplete.h + ../scintilla/src/CallTip.cpp ../scintilla/src/CallTip.h + ../scintilla/src/CaseConvert.cpp ../scintilla/src/CaseConvert.h + ../scintilla/src/CaseFolder.cpp ../scintilla/src/CaseFolder.h + ../scintilla/src/Catalogue.cpp ../scintilla/src/Catalogue.h + ../scintilla/src/CellBuffer.cpp ../scintilla/src/CellBuffer.h + ../scintilla/src/CharClassify.cpp ../scintilla/src/CharClassify.h + ../scintilla/src/ContractionState.cpp ../scintilla/src/ContractionState.h + ../scintilla/src/DBCS.cpp ../scintilla/src/DBCS.h + ../scintilla/src/Decoration.cpp ../scintilla/src/Decoration.h + ../scintilla/src/Document.cpp ../scintilla/src/Document.h + ../scintilla/src/EditModel.cpp ../scintilla/src/EditModel.h + ../scintilla/src/EditView.cpp ../scintilla/src/EditView.h + ../scintilla/src/Editor.cpp ../scintilla/src/Editor.h + ../scintilla/src/ElapsedPeriod.h + ../scintilla/src/ExternalLexer.cpp ../scintilla/src/ExternalLexer.h + ../scintilla/src/FontQuality.h + ../scintilla/src/Indicator.cpp ../scintilla/src/Indicator.h + ../scintilla/src/IntegerRectangle.h + ../scintilla/src/KeyMap.cpp ../scintilla/src/KeyMap.h + ../scintilla/src/LineMarker.cpp ../scintilla/src/LineMarker.h + ../scintilla/src/MarginView.cpp ../scintilla/src/MarginView.h + ../scintilla/src/Partitioning.h + ../scintilla/src/PerLine.cpp ../scintilla/src/PerLine.h + ../scintilla/src/Position.h + ../scintilla/src/PositionCache.cpp ../scintilla/src/PositionCache.h + ../scintilla/src/RESearch.cpp ../scintilla/src/RESearch.h + ../scintilla/src/RunStyles.cpp ../scintilla/src/RunStyles.h + ../scintilla/src/ScintillaBase.cpp ../scintilla/src/ScintillaBase.h + ../scintilla/src/Selection.cpp ../scintilla/src/Selection.h + ../scintilla/src/SparseVector.h + ../scintilla/src/SplitVector.h + ../scintilla/src/Style.cpp ../scintilla/src/Style.h + ../scintilla/src/UniConversion.cpp ../scintilla/src/UniConversion.h + ../scintilla/src/UniqueString.h + ../scintilla/src/ViewStyle.cpp ../scintilla/src/ViewStyle.h + ../scintilla/src/XPM.cpp ../scintilla/src/XPM.h + InputMethod.cpp + ListBoxQt.cpp ListBoxQt.h + MacPasteboardMime.cpp + PlatQt.cpp + Qsci/qsciabstractapis.h + Qsci/qsciapis.h + Qsci/qscicommand.h + Qsci/qscicommandset.h + Qsci/qscidocument.h + Qsci/qsciglobal.h + Qsci/qscilexer.h + Qsci/qscilexerasm.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/qscilexerhex.h + Qsci/qscilexerhtml.h + Qsci/qscilexeridl.h + Qsci/qscilexerintelhex.h + Qsci/qscilexerjava.h + Qsci/qscilexerjavascript.h + Qsci/qscilexerjson.h + Qsci/qscilexerlua.h + Qsci/qscilexermakefile.h + Qsci/qscilexermarkdown.h + Qsci/qscilexermasm.h + Qsci/qscilexermatlab.h + Qsci/qscilexernasm.h + Qsci/qscilexeroctave.h + Qsci/qscilexerpascal.h + Qsci/qscilexerperl.h + Qsci/qscilexerpo.h + Qsci/qscilexerpostscript.h + Qsci/qscilexerpov.h + Qsci/qscilexerproperties.h + Qsci/qscilexerpython.h + Qsci/qscilexerruby.h + Qsci/qscilexerspice.h + Qsci/qscilexersql.h + Qsci/qscilexersrec.h + Qsci/qscilexertcl.h + Qsci/qscilexertekhex.h + Qsci/qscilexertex.h + Qsci/qscilexerverilog.h + Qsci/qscilexervhdl.h + Qsci/qscilexerxml.h + Qsci/qscilexeryaml.h + Qsci/qscimacro.h + Qsci/qsciscintilla.h + Qsci/qsciscintillabase.h + Qsci/qscistyle.h + Qsci/qscistyledtext.h + Qsci/qsciprinter.h + SciAccessibility.cpp SciAccessibility.h + SciClasses.cpp SciClasses.h + ScintillaQt.cpp ScintillaQt.h + qsciabstractapis.cpp + qsciapis.cpp + qscicommand.cpp + qscicommandset.cpp + qscidocument.cpp + qscilexer.cpp + qscilexerasm.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 + qscilexerhex.cpp + qscilexerhtml.cpp + qscilexeridl.cpp + qscilexerintelhex.cpp + qscilexerjava.cpp + qscilexerjavascript.cpp + qscilexerjson.cpp + qscilexerlua.cpp + qscilexermakefile.cpp + qscilexermarkdown.cpp + qscilexermasm.cpp + qscilexermatlab.cpp + qscilexernasm.cpp + qscilexeroctave.cpp + qscilexerpascal.cpp + qscilexerperl.cpp + qscilexerpo.cpp + qscilexerpostscript.cpp + qscilexerpov.cpp + qscilexerproperties.cpp + qscilexerpython.cpp + qscilexerruby.cpp + qscilexerspice.cpp + qscilexersql.cpp + qscilexersrec.cpp + qscilexertcl.cpp + qscilexertekhex.cpp + qscilexertex.cpp + qscilexerverilog.cpp + qscilexervhdl.cpp + qscilexerxml.cpp + qscilexeryaml.cpp + qscimacro.cpp + qsciscintilla.cpp + qsciscintillabase.cpp + qscistyle.cpp + qscistyledtext.cpp + qsciprinter.cpp +) + +add_library(qscintilla2 ${SRC_LIST}) +target_include_directories(qscintilla2 PRIVATE ../scintilla/include ../scintilla/lexlib ../scintilla/src) +target_include_directories(qscintilla2 INTERFACE .) + +target_link_libraries(qscintilla2 ${QT_MAJOR}::Widgets ${QT_MAJOR}::PrintSupport) + +if (APPLE) + target_link_libraries(qscintilla2 ${QT_MAJOR}::MacExtras) +endif() + +add_library(QScintilla::QScintilla ALIAS qscintilla2) diff --git a/libs/qscintilla/Qt4Qt5/InputMethod.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/InputMethod.cpp similarity index 88% rename from libs/qscintilla/Qt4Qt5/InputMethod.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/InputMethod.cpp index f4ba7fc42..afce5a143 100644 --- a/libs/qscintilla/Qt4Qt5/InputMethod.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/InputMethod.cpp @@ -1,4 +1,4 @@ -// Copyright (c) 2017 Riverbank Computing Limited +// Copyright (c) 2021 Riverbank Computing Limited // Copyright (c) 2011 Archaeopteryx Software, Inc. // Copyright (c) 1990-2011, Scientific Toolworks, Inc. // @@ -137,44 +137,45 @@ 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. - sci->ClearBeforeTentativeStart(); + initialCompose = true; } sci->view.imeCaretBlockOverride = false; if (!event->commitString().isEmpty()) { const QString commitStr = event->commitString(); - const unsigned int commitStrLen = commitStr.length(); + const int commitStrLen = commitStr.length(); - for (unsigned int i = 0; i < commitStrLen;) { - const unsigned int ucWidth = commitStr.at(i).isHighSurrogate() ? 2 : 1; + for (int i = 0; i < commitStrLen;) { + const 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(), oneCharLen); + sci->AddCharUTF(oneChar.data(), oneChar.length()); i += ucWidth; } } else if (!event->preeditString().isEmpty()) { const QString preeditStr = event->preeditString(); - const unsigned int preeditStrLen = preeditStr.length(); - if ((preeditStrLen == 0) || (preeditStrLen > MAXLENINPUTIME)) { + const int preeditStrLen = preeditStr.length(); + if (preeditStrLen == 0) { 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); @@ -186,7 +187,6 @@ 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::ImMicroFocus. + // Set candidate box position for Qt::ImCursorRectangle. preeditPos = sci->CurrentPosition(); sci->EnsureCaretVisible(); updateMicroFocus(); @@ -219,12 +219,10 @@ 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::ImMicroFocus: + case Qt::ImCursorRectangle: { int startPos = (preeditPos >= 0) ? preeditPos : pos; Scintilla::Point pt = sci->LocationFromPosition(startPos); @@ -256,25 +254,17 @@ QVariant QsciScintillaBase::inputMethodQuery(Qt::InputMethodQuery query) const int paraEnd = sci->pdoc->ParaDown(pos); QVarLengthArray buffer(paraEnd - paraStart + 1); - Sci_CharacterRange charRange; - charRange.cpMin = paraStart; - charRange.cpMax = paraEnd; - - Sci_TextRange textRange; - textRange.chrg = charRange; - textRange.lpstrText = buffer.data(); - - SendScintilla(SCI_GETTEXTRANGE, 0, (sptr_t)&textRange); + SendScintilla(SCI_GETTEXTRANGE, paraStart, paraEnd, buffer.data()); - return bytesAsText(buffer.constData()); + return bytesAsText(buffer.constData(), buffer.size()); } case Qt::ImCurrentSelection: { - QVarLengthArray buffer(SendScintilla(SCI_GETSELTEXT)); + QVarLengthArray buffer(SendScintilla(SCI_GETSELTEXT) + 1); SendScintilla(SCI_GETSELTEXT, 0, (sptr_t)buffer.data()); - return bytesAsText(buffer.constData()); + return bytesAsText(buffer.constData(), buffer.size() - 1); } default: diff --git a/libs/qscintilla/Qt4Qt5/ListBoxQt.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/ListBoxQt.cpp similarity index 91% rename from libs/qscintilla/Qt4Qt5/ListBoxQt.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/ListBoxQt.cpp index c4db45ce1..f67e581c1 100644 --- a/libs/qscintilla/Qt4Qt5/ListBoxQt.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/ListBoxQt.cpp @@ -1,7 +1,7 @@ // This module implements the specialisation of QListBox that handles the // Scintilla double-click callback. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -23,6 +23,8 @@ #include +#include + #include "SciClasses.h" #include "Qsci/qsciscintilla.h" @@ -79,10 +81,22 @@ Scintilla::PRectangle QsciListBoxQt::GetDesiredRect() if (slb) { - QSize sh = slb->sizeHint(); + int rows = slb->count(); + + 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 = sh.width(); - rc.bottom = sh.height(); + rc.right = width; + rc.bottom = height; } return rc; @@ -243,11 +257,7 @@ 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/Qt4Qt5/ListBoxQt.h b/libs/qscintilla_2.14.1/Qt5Qt6/ListBoxQt.h similarity index 97% rename from libs/qscintilla/Qt4Qt5/ListBoxQt.h rename to libs/qscintilla_2.14.1/Qt5Qt6/ListBoxQt.h index e4bc7711d..ffcc17a06 100644 --- a/libs/qscintilla/Qt4Qt5/ListBoxQt.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/ListBoxQt.h @@ -1,7 +1,7 @@ // This defines the specialisation of QListBox that handles the Scintilla // double-click callback. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/Qt4Qt5/MacPasteboardMime.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/MacPasteboardMime.cpp similarity index 91% rename from libs/qscintilla/Qt4Qt5/MacPasteboardMime.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/MacPasteboardMime.cpp index d1cfca97f..bea06b50c 100644 --- a/libs/qscintilla/Qt4Qt5/MacPasteboardMime.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/MacPasteboardMime.cpp @@ -1,8 +1,8 @@ // This module implements part of the support for rectangular selections on -// OS/X. It is a separate file to avoid clashes between OS/X and Scintilla +// macOS. It is a separate file to avoid clashes between macOS and Scintilla // data types. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -22,7 +22,7 @@ #include -#if (QT_VERSION >= 0x040200 && QT_VERSION < 0x050000 && defined(Q_OS_MAC)) || (QT_VERSION >= 0x050200 && defined(Q_OS_OSX)) +#if QT_VERSION < 0x060000 && defined(Q_OS_OSX) #include #include diff --git a/libs/qscintilla/Qt4Qt5/PlatQt.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/PlatQt.cpp similarity index 92% rename from libs/qscintilla/Qt4Qt5/PlatQt.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/PlatQt.cpp index 6c3127b59..073c5fd01 100644 --- a/libs/qscintilla/Qt4Qt5/PlatQt.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/PlatQt.cpp @@ -1,6 +1,6 @@ // This module implements the portability layer for the Qt port of Scintilla. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -25,17 +25,20 @@ #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" @@ -95,48 +98,34 @@ void Font::Create(const FontParameters &fp) strategy = QFont::PreferDefault; } -#if defined(Q_OS_MAC) && QT_VERSION < 0x050000 -#if QT_VERSION >= 0x040700 - strategy = static_cast(strategy | QFont::ForceIntegerMetrics); + 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)); #else -#warning "Correct handling of QFont metrics requires Qt v4.7.0 or later" -#endif + 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; #endif - 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); - } + f->setWeight(qt_weight); fid = f; } @@ -275,14 +264,9 @@ 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; @@ -396,8 +380,9 @@ void SurfaceImpl::RoundedRectangle(PRectangle rc, ColourDesired fore, painter->setPen(convertQColor(fore)); painter->setBrush(convertQColor(back)); - painter->drawRoundRect( - QRectF(rc.left, rc.top, rc.right - rc.left, rc.bottom - rc.top)); + painter->drawRoundedRect( + QRectF(rc.left, rc.top, rc.right - rc.left, rc.bottom - rc.top), + 25, 25, Qt::RelativeSize); } void SurfaceImpl::AlphaRectangle(PRectangle rc, int cornerSize, @@ -420,9 +405,9 @@ void SurfaceImpl::AlphaRectangle(PRectangle rc, int cornerSize, const int radius = (cornerSize ? 25 : 0); - painter->drawRoundRect( + painter->drawRoundedRect( QRectF(rc.left, rc.top, rc.right - rc.left, rc.bottom - rc.top), - radius, radius); + radius, radius, Qt::RelativeSize); } void SurfaceImpl::GradientRectangle(PRectangle rc, @@ -485,14 +470,12 @@ 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)); @@ -630,7 +613,7 @@ void SurfaceImpl::MeasureWidths(Font &font_, const char *s, int len, XYPOSITION SurfaceImpl::WidthText(Font &font_, const char *s, int len) { - return metrics(font_).width(convertText(s, len)); + return metrics(font_).horizontalAdvance(convertText(s, len)); } @@ -656,11 +639,7 @@ 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) @@ -852,7 +831,7 @@ void Window::SetCursor(Cursor curs) PRectangle Window::GetMonitorRect(Point pt) { QPoint qpt = PWindow(wid)->mapToGlobal(QPoint(pt.x, pt.y)); - QRect qr = QApplication::desktop()->availableGeometry(qpt); + QRect qr = QApplication::screenAt(qpt)->availableGeometry(); qpt = PWindow(wid)->mapFromGlobal(qr.topLeft()); return PRectangle(qpt.x(), qpt.y(), qpt.x() + qr.width(), qpt.y() + qr.height()); @@ -892,31 +871,43 @@ 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/Qt4Qt5/Qsci/qsciabstractapis.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qsciabstractapis.h similarity index 98% rename from libs/qscintilla/Qt4Qt5/Qsci/qsciabstractapis.h rename to libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qsciabstractapis.h index 38b6133af..76e2a341c 100644 --- a/libs/qscintilla/Qt4Qt5/Qsci/qsciabstractapis.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qsciabstractapis.h @@ -1,6 +1,6 @@ // This module defines interface to the QsciAbstractAPIs class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/Qt4Qt5/Qsci/qsciapis.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qsciapis.h similarity index 99% rename from libs/qscintilla/Qt4Qt5/Qsci/qsciapis.h rename to libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qsciapis.h index c89ebe7a3..bc1eb68b2 100644 --- a/libs/qscintilla/Qt4Qt5/Qsci/qsciapis.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qsciapis.h @@ -1,6 +1,6 @@ // This module defines interface to the QsciAPIs class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/Qt4Qt5/Qsci/qscicommand.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscicommand.h similarity index 99% rename from libs/qscintilla/Qt4Qt5/Qsci/qscicommand.h rename to libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscicommand.h index 4b68c9f65..563fb562e 100644 --- a/libs/qscintilla/Qt4Qt5/Qsci/qscicommand.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscicommand.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciCommand class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/Qt4Qt5/Qsci/qscicommandset.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscicommandset.h similarity index 97% rename from libs/qscintilla/Qt4Qt5/Qsci/qscicommandset.h rename to libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscicommandset.h index e19591911..85bb2bc36 100644 --- a/libs/qscintilla/Qt4Qt5/Qsci/qscicommandset.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscicommandset.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciCommandSet class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/Qt4Qt5/Qsci/qscidocument.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscidocument.h similarity index 96% rename from libs/qscintilla/Qt4Qt5/Qsci/qscidocument.h rename to libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscidocument.h index feba21a0c..965ebb018 100644 --- a/libs/qscintilla/Qt4Qt5/Qsci/qscidocument.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscidocument.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciDocument class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/Qt4Qt5/Qsci/qsciglobal.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qsciglobal.h similarity index 84% rename from libs/qscintilla/Qt4Qt5/Qsci/qsciglobal.h rename to libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qsciglobal.h index 14fe5483f..215088106 100644 --- a/libs/qscintilla/Qt4Qt5/Qsci/qsciglobal.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qsciglobal.h @@ -1,6 +1,6 @@ // This module defines various things common to all of the Scintilla Qt port. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -24,8 +24,14 @@ #include -#define QSCINTILLA_VERSION 0x020b01 -#define QSCINTILLA_VERSION_STR "2.11.1" +#define QSCINTILLA_VERSION 0x020e01 +#define QSCINTILLA_VERSION_STR "2.14.1" + + +// We only support Qt v5.11 and later. +#if QT_VERSION < 0x050b00 +#error "Qt v5.11.0 or later is required" +#endif // Define QSCINTILLA_MAKE_DLL to create a QScintilla shared library, or diff --git a/libs/qscintilla/Qt4Qt5/Qsci/qscilexer.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexer.h similarity index 97% rename from libs/qscintilla/Qt4Qt5/Qsci/qscilexer.h rename to libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexer.h index e05cc21d5..fdb088a37 100644 --- a/libs/qscintilla/Qt4Qt5/Qsci/qscilexer.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexer.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciLexer class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -318,6 +318,12 @@ public slots: //! virtual bool writeProperties(QSettings &qs,const QString &prefix) const; + //! \internal Convert a QString to encoded bytes. + QByteArray textAsBytes(const QString &text) const; + + //! \internal Convert encoded bytes to a QString. + QString bytesAsText(const char *bytes, int size) const; + private: struct StyleData { QFont font; diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerasm.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerasm.h new file mode 100644 index 000000000..bedb72024 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerasm.h @@ -0,0 +1,201 @@ +// This defines the interface to the abstract QsciLexerAsm class. +// +// Copyright (c) 2023 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 QSCILEXERASM_H +#define QSCILEXERASM_H + +#include +#include + +#include +#include + + +//! \brief The abstract QsciLexerAsm class encapsulates the Scintilla Asm +//! lexer. +class QSCINTILLA_EXPORT QsciLexerAsm : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! Asm lexer. + enum { + //! The default. + Default = 0, + + //! A comment. + Comment = 1, + + //! A number. + Number = 2, + + //! A double-quoted string. + DoubleQuotedString = 3, + + //! An operator. + Operator = 4, + + //! An identifier. + Identifier = 5, + + //! A CPU instruction. + CPUInstruction = 6, + + //! An FPU instruction. + FPUInstruction = 7, + + //! A register. + Register = 8, + + //! A directive. + Directive = 9, + + //! A directive operand. + DirectiveOperand = 11, + + //! A block comment. + BlockComment = 12, + + //! A single-quoted string. + SingleQuotedString = 13, + + //! The end of a line where a string is not closed. + UnclosedString = 14, + + //! An extended instruction. + ExtendedInstruction = 16, + + //! A comment directive. + CommentDirective = 17, + }; + + //! Construct a QsciLexerAsm with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerAsm(QObject *parent = 0); + + //! Destroys the QsciLexerAsm instance. + virtual ~QsciLexerAsm(); + + //! Returns the foreground colour of the text for style number \a style. + QColor defaultColor(int style) const; + + //! Returns the end-of-line fill for style number \a style. + bool defaultEolFill(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. Set 1 is normally used for + //! CPU instructions. Set 2 is normally used for FPU instructions. Set 3 + //! is normally used for register names. Set 4 is normally used for + //! directives. Set 5 is normally used for directive operands. Set 6 is + //! normally used for extended instructions. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + + //! Causes all properties to be refreshed by emitting the propertyChanged() + //! signal as required. + void refreshProperties(); + + //! Returns true if multi-line comment blocks can be folded. + //! + //! \sa setFoldComments() + bool foldComments() const; + + //! Returns true if trailing blank lines are included in a fold block. + //! + //! \sa setFoldCompact() + bool foldCompact() const; + + //! Returns the delimiter used by the COMMENT directive. + //! + //! \sa setCommentDelimiter() + QChar commentDelimiter() const; + + //! Returns true if syntax-based folding is enabled. + //! + //! \sa setFoldSyntaxBased() + bool foldSyntaxBased() const; + +public slots: + //! If \a fold is true then multi-line comment blocks can be folded. + //! The default is true. + //! + //! \sa foldComments() + virtual void setFoldComments(bool fold); + + //! If \a fold is true then trailing blank lines are included in a fold + //! block. The default is true. + //! + //! \sa foldCompact() + virtual void setFoldCompact(bool fold); + + //! \a delimiter is the character used for the COMMENT directive's + //! delimiter. The default is '~'. + //! + //! \sa commentDelimiter() + virtual void setCommentDelimiter(QChar delimeter); + + //! If \a syntax_based is true then syntax-based folding is enabled. The + //! default is true. + //! + //! \sa foldSyntaxBased() + virtual void setFoldSyntaxBased(bool syntax_based); + +protected: + //! The lexer's properties are read from the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + bool readProperties(QSettings &qs, const QString &prefix); + + //! The lexer's properties are written to the settings \a qs. + //! \a prefix (which has a trailing '/') should be used as a prefix to + //! the key of each setting. true is returned if there is no error. + //! + bool writeProperties(QSettings &qs, const QString &prefix) const; + +private: + void setCommentProp(); + void setCompactProp(); + void setCommentDelimiterProp(); + void setSyntaxBasedProp(); + + bool fold_comments; + bool fold_compact; + QChar comment_delimiter; + bool fold_syntax_based; + + QsciLexerAsm(const QsciLexerAsm &); + QsciLexerAsm &operator=(const QsciLexerAsm &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexeravs.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexeravs.h new file mode 100644 index 000000000..bea07b923 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexeravs.h @@ -0,0 +1,174 @@ +// This defines the interface to the QsciLexerAVS class. +// +// Copyright (c) 2023 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 QSCILEXERAVS_H +#define QSCILEXERAVS_H + +#include + +#include +#include + + +//! \brief The QsciLexerAVS class encapsulates the Scintilla AVS lexer. +class QSCINTILLA_EXPORT QsciLexerAVS : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! AVS lexer. + enum { + //! The default. + Default = 0, + + //! A block comment. + BlockComment = 1, + + //! A nested block comment. + NestedBlockComment = 2, + + //! A line comment. + LineComment = 3, + + //! A number. + Number = 4, + + //! An operator. + Operator = 5, + + //! An identifier + Identifier = 6, + + //! A string. + String = 7, + + //! A triple quoted string. + TripleString = 8, + + //! A keyword (as defined by keyword set number 1).. + Keyword = 9, + + //! A filter (as defined by keyword set number 2). + Filter = 10, + + //! A plugin (as defined by keyword set number 3). + Plugin = 11, + + //! A function (as defined by keyword set number 4). + Function = 12, + + //! A clip property (as defined by keyword set number 5). + ClipProperty = 13, + + //! A keyword defined in keyword set number 6. The class must be + //! sub-classed and re-implement keywords() to make use of this style. + KeywordSet6 = 14 + }; + + //! Construct a QsciLexerAVS with parent \a parent. \a parent is typically + //! the QsciScintilla instance. + QsciLexerAVS(QObject *parent = 0); + + //! Destroys the QsciLexerAVS instance. + virtual ~QsciLexerAVS(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! \internal Returns the style used for braces for brace matching. + int braceStyle() const; + + //! Returns the string of characters that comprise a word. + const char *wordCharacters() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + + //! Causes all properties to be refreshed by emitting the propertyChanged() + //! signal as required. + void refreshProperties(); + + //! Returns true if multi-line comment blocks can be folded. + //! + //! \sa setFoldComments() + bool foldComments() const; + + //! Returns true if trailing blank lines are included in a fold block. + //! + //! \sa setFoldCompact() + bool foldCompact() const; + +public slots: + //! If \a fold is true then multi-line comment blocks can be folded. + //! The default is false. + //! + //! \sa foldComments() + virtual void setFoldComments(bool fold); + + //! If \a fold is true then trailing blank lines are included in a fold + //! block. The default is true. + //! + //! \sa foldCompact() + virtual void setFoldCompact(bool fold); + +protected: + //! The lexer's properties are read from the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + bool readProperties(QSettings &qs,const QString &prefix); + + //! The lexer's properties are written to the settings \a qs. + //! \a prefix (which has a trailing '/') should be used as a prefix to + //! the key of each setting. true is returned if there is no error. + //! + bool writeProperties(QSettings &qs,const QString &prefix) const; + +private: + void setCommentProp(); + void setCompactProp(); + + bool fold_comments; + bool fold_compact; + + QsciLexerAVS(const QsciLexerAVS &); + QsciLexerAVS &operator=(const QsciLexerAVS &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerbash.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerbash.h new file mode 100644 index 000000000..aac7aabd0 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerbash.h @@ -0,0 +1,178 @@ +// This defines the interface to the QsciLexerBash class. +// +// Copyright (c) 2023 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 QSCILEXERBASH_H +#define QSCILEXERBASH_H + +#include + +#include +#include + + +//! \brief The QsciLexerBash class encapsulates the Scintilla Bash lexer. +class QSCINTILLA_EXPORT QsciLexerBash : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! Bash lexer. + enum { + //! The default. + Default = 0, + + //! An error. + Error = 1, + + //! A comment. + Comment = 2, + + //! A number. + Number = 3, + + //! A keyword. + Keyword = 4, + + //! A double-quoted string. + DoubleQuotedString = 5, + + //! A single-quoted string. + SingleQuotedString = 6, + + //! An operator. + Operator = 7, + + //! An identifier + Identifier = 8, + + //! A scalar. + Scalar = 9, + + //! Parameter expansion. + ParameterExpansion = 10, + + //! Backticks. + Backticks = 11, + + //! A here document delimiter. + HereDocumentDelimiter = 12, + + //! A single quoted here document. + SingleQuotedHereDocument = 13 + }; + + //! Construct a QsciLexerBash with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerBash(QObject *parent = 0); + + //! Destroys the QsciLexerBash instance. + virtual ~QsciLexerBash(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! \internal Returns the style used for braces for brace matching. + int braceStyle() const; + + //! Returns the string of characters that comprise a word. + const char *wordCharacters() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the end-of-line fill for style number \a style. + bool defaultEolFill(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + + //! Causes all properties to be refreshed by emitting the + //! propertyChanged() signal as required. + void refreshProperties(); + + //! Returns true if multi-line comment blocks can be folded. + //! + //! \sa setFoldComments() + bool foldComments() const; + + //! Returns true if trailing blank lines are included in a fold block. + //! + //! \sa setFoldCompact() + bool foldCompact() const; + +public slots: + //! If \a fold is true then multi-line comment blocks can be folded. + //! The default is false. + //! + //! \sa foldComments() + virtual void setFoldComments(bool fold); + + //! If \a fold is true then trailing blank lines are included in a fold + //! block. The default is true. + //! + //! \sa foldCompact() + virtual void setFoldCompact(bool fold); + +protected: + //! The lexer's properties are read from the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + bool readProperties(QSettings &qs,const QString &prefix); + + //! The lexer's properties are written to the settings \a qs. + //! \a prefix (which has a trailing '/') should be used as a prefix to + //! the key of each setting. true is returned if there is no error. + //! + bool writeProperties(QSettings &qs,const QString &prefix) const; + +private: + void setCommentProp(); + void setCompactProp(); + + bool fold_comments; + bool fold_compact; + + QsciLexerBash(const QsciLexerBash &); + QsciLexerBash &operator=(const QsciLexerBash &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerbatch.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerbatch.h new file mode 100644 index 000000000..0d2d61a2a --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerbatch.h @@ -0,0 +1,115 @@ +// This defines the interface to the QsciLexerBatch class. +// +// Copyright (c) 2023 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 QSCILEXERBATCH_H +#define QSCILEXERBATCH_H + +#include + +#include +#include + + +//! \brief The QsciLexerBatch class encapsulates the Scintilla batch file +//! lexer. +class QSCINTILLA_EXPORT QsciLexerBatch : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! batch file lexer. + enum { + //! The default. + Default = 0, + + //! A comment. + Comment = 1, + + //! A keyword. + Keyword = 2, + + //! A label. + Label = 3, + + //! An hide command character. + HideCommandChar = 4, + + //! An external command . + ExternalCommand = 5, + + //! A variable. + Variable = 6, + + //! An operator + Operator = 7 + }; + + //! Construct a QsciLexerBatch with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerBatch(QObject *parent = 0); + + //! Destroys the QsciLexerBatch instance. + virtual ~QsciLexerBatch(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! Returns the string of characters that comprise a word. + const char *wordCharacters() const; + + //! \internal Returns true if the language is case sensitive. + bool caseSensitive() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the end-of-line fill for style number \a style. + bool defaultEolFill(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + +private: + QsciLexerBatch(const QsciLexerBatch &); + QsciLexerBatch &operator=(const QsciLexerBatch &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexercmake.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexercmake.h new file mode 100644 index 000000000..07a7bbca7 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexercmake.h @@ -0,0 +1,160 @@ +// This defines the interface to the QsciLexerCMake class. +// +// Copyright (c) 2023 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 QSCILEXERCMAKE_H +#define QSCILEXERCMAKE_H + +#include + +#include +#include + + +//! \brief The QsciLexerCMake class encapsulates the Scintilla CMake lexer. +class QSCINTILLA_EXPORT QsciLexerCMake : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! CMake lexer. + enum { + //! The default. + Default = 0, + + //! A comment. + Comment = 1, + + //! A string. + String = 2, + + //! A left quoted string. + StringLeftQuote = 3, + + //! A right quoted string. + StringRightQuote = 4, + + //! A function. (Defined by keyword set number 1.) + Function = 5, + + //! A variable. (Defined by keyword set number 2.) + Variable = 6, + + //! A label. + Label = 7, + + //! A keyword defined in keyword set number 3. The class must be + //! sub-classed and re-implement keywords() to make use of this style. + KeywordSet3 = 8, + + //! A WHILE block. + BlockWhile = 9, + + //! A FOREACH block. + BlockForeach = 10, + + //! An IF block. + BlockIf = 11, + + //! A MACRO block. + BlockMacro = 12, + + //! A variable within a string. + StringVariable = 13, + + //! A number. + Number = 14 + }; + + //! Construct a QsciLexerCMake with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerCMake(QObject *parent = 0); + + //! Destroys the QsciLexerCMake instance. + virtual ~QsciLexerCMake(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + + //! Causes all properties to be refreshed by emitting the propertyChanged() + //! signal as required. + void refreshProperties(); + + //! Returns true if ELSE blocks can be folded. + //! + //! \sa setFoldAtElse() + bool foldAtElse() const; + +public slots: + //! If \a fold is true then ELSE blocks can be folded. The default is + //! false. + //! + //! \sa foldAtElse() + virtual void setFoldAtElse(bool fold); + +protected: + //! The lexer's properties are read from the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + bool readProperties(QSettings &qs,const QString &prefix); + + //! The lexer's properties are written to the settings \a qs. + //! \a prefix (which has a trailing '/') should be used as a prefix to + //! the key of each setting. true is returned if there is no error. + //! + bool writeProperties(QSettings &qs,const QString &prefix) const; + +private: + void setAtElseProp(); + + bool fold_atelse; + + QsciLexerCMake(const QsciLexerCMake &); + QsciLexerCMake &operator=(const QsciLexerCMake &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexercoffeescript.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexercoffeescript.h new file mode 100644 index 000000000..925aa03ff --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexercoffeescript.h @@ -0,0 +1,264 @@ +// This defines the interface to the QsciLexerCoffeeScript class. +// +// Copyright (c) 2023 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 QSCILEXERCOFFEESCRIPT_H +#define QSCILEXERCOFFEESCRIPT_H + +#include + +#include +#include + + +//! \brief The QsciLexerCoffeeScript class encapsulates the Scintilla +//! CoffeeScript lexer. +class QSCINTILLA_EXPORT QsciLexerCoffeeScript : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! C++ lexer. + enum { + //! The default. + Default = 0, + + //! A C-style comment. + Comment = 1, + + //! A C++-style comment line. + CommentLine = 2, + + //! A JavaDoc/Doxygen C-style comment. + CommentDoc = 3, + + //! A number. + Number = 4, + + //! A keyword. + Keyword = 5, + + //! A double-quoted string. + DoubleQuotedString = 6, + + //! A single-quoted string. + SingleQuotedString = 7, + + //! An IDL UUID. + UUID = 8, + + //! A pre-processor block. + PreProcessor = 9, + + //! An operator. + Operator = 10, + + //! An identifier + Identifier = 11, + + //! The end of a line where a string is not closed. + UnclosedString = 12, + + //! A C# verbatim string. + VerbatimString = 13, + + //! A regular expression. + Regex = 14, + + //! A JavaDoc/Doxygen C++-style comment line. + CommentLineDoc = 15, + + //! A keyword defined in keyword set number 2. The class must be + //! sub-classed and re-implement keywords() to make use of this style. + KeywordSet2 = 16, + + //! A JavaDoc/Doxygen keyword. + CommentDocKeyword = 17, + + //! A JavaDoc/Doxygen keyword error defined in keyword set number 3. + //! The class must be sub-classed and re-implement keywords() to make + //! use of this style. + CommentDocKeywordError = 18, + + //! A global class defined in keyword set number 4. The class must be + //! sub-classed and re-implement keywords() to make use of this style. + GlobalClass = 19, + + //! A block comment. + CommentBlock = 22, + + //! A block regular expression. + BlockRegex = 23, + + //! A block regular expression comment. + BlockRegexComment = 24, + + //! An instance property. + InstanceProperty = 25, + }; + + //! Construct a QsciLexerCoffeeScript with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerCoffeeScript(QObject *parent = 0); + + //! Destroys the QsciLexerCoffeeScript instance. + virtual ~QsciLexerCoffeeScript(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! \internal Returns the character sequences that can separate + //! auto-completion words. + QStringList autoCompletionWordSeparators() const; + + //! \internal Returns a space separated list of words or characters in + //! a particular style that define the end of a block for + //! auto-indentation. The styles is returned via \a style. + const char *blockEnd(int *style = 0) const; + + //! \internal Returns a space separated list of words or characters in + //! a particular style that define the start of a block for + //! auto-indentation. The styles is returned via \a style. + const char *blockStart(int *style = 0) const; + + //! \internal Returns a space separated list of keywords in a + //! particular style that define the start of a block for + //! auto-indentation. The styles is returned via \a style. + const char *blockStartKeyword(int *style = 0) const; + + //! \internal Returns the style used for braces for brace matching. + int braceStyle() const; + + //! Returns the string of characters that comprise a word. + const char *wordCharacters() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the end-of-line fill for style number \a style. + bool defaultEolFill(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. Set 1 is normally used for + //! primary keywords and identifiers. Set 2 is normally used for secondary + //! keywords and identifiers. Set 3 is normally used for documentation + //! comment keywords. Set 4 is normally used for global classes and + //! typedefs. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + + //! Causes all properties to be refreshed by emitting the + //! propertyChanged() signal as required. + void refreshProperties(); + + //! Returns true if '$' characters are allowed in identifier names. + //! + //! \sa setDollarsAllowed() + bool dollarsAllowed() const {return dollars;} + + //! If \a allowed is true then '$' characters are allowed in identifier + //! names. The default is true. + //! + //! \sa dollarsAllowed() + void setDollarsAllowed(bool allowed); + + //! Returns true if multi-line comment blocks can be folded. + //! + //! \sa setFoldComments() + bool foldComments() const {return fold_comments;} + + //! If \a fold is true then multi-line comment blocks can be folded. + //! The default is false. + //! + //! \sa foldComments() + void setFoldComments(bool fold); + + //! Returns true if trailing blank lines are included in a fold block. + //! + //! \sa setFoldCompact() + bool foldCompact() const {return fold_compact;} + + //! If \a fold is true then trailing blank lines are included in a fold + //! block. The default is true. + //! + //! \sa foldCompact() + void setFoldCompact(bool fold); + + //! Returns true if preprocessor lines (after the preprocessor + //! directive) are styled. + //! + //! \sa setStylePreprocessor() + bool stylePreprocessor() const {return style_preproc;} + + //! If \a style is true then preprocessor lines (after the preprocessor + //! directive) are styled. The default is false. + //! + //! \sa stylePreprocessor() + void setStylePreprocessor(bool style); + +protected: + //! The lexer's properties are read from the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + //! \sa writeProperties() + bool readProperties(QSettings &qs,const QString &prefix); + + //! The lexer's properties are written to the settings \a qs. + //! \a prefix (which has a trailing '/') should be used as a prefix to + //! the key of each setting. true is returned if there is no error. + //! + //! \sa readProperties() + bool writeProperties(QSettings &qs,const QString &prefix) const; + +private: + void setCommentProp(); + void setCompactProp(); + void setStylePreprocProp(); + void setDollarsProp(); + + bool fold_comments; + bool fold_compact; + bool style_preproc; + bool dollars; + + QsciLexerCoffeeScript(const QsciLexerCoffeeScript &); + QsciLexerCoffeeScript &operator=(const QsciLexerCoffeeScript &); +}; + +#endif diff --git a/libs/qscintilla/Qt4Qt5/Qsci/qscilexercpp.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexercpp.h similarity index 99% rename from libs/qscintilla/Qt4Qt5/Qsci/qscilexercpp.h rename to libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexercpp.h index 69abc1ce6..da54b446f 100644 --- a/libs/qscintilla/Qt4Qt5/Qsci/qscilexercpp.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexercpp.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciLexerCPP class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexercsharp.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexercsharp.h new file mode 100644 index 000000000..60eea7c77 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexercsharp.h @@ -0,0 +1,77 @@ +// This defines the interface to the QsciLexerCSharp class. +// +// Copyright (c) 2023 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 QSCILEXERCSHARP_H +#define QSCILEXERCSHARP_H + +#include + +#include +#include + + +//! \brief The QsciLexerCSharp class encapsulates the Scintilla C# +//! lexer. +class QSCINTILLA_EXPORT QsciLexerCSharp : public QsciLexerCPP +{ + Q_OBJECT + +public: + //! Construct a QsciLexerCSharp with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerCSharp(QObject *parent = 0); + + //! Destroys the QsciLexerCSharp instance. + virtual ~QsciLexerCSharp(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the end-of-line fill for style number \a style. + bool defaultEolFill(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + +private: + QsciLexerCSharp(const QsciLexerCSharp &); + QsciLexerCSharp &operator=(const QsciLexerCSharp &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexercss.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexercss.h new file mode 100644 index 000000000..addc85835 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexercss.h @@ -0,0 +1,252 @@ +// This defines the interface to the QsciLexerCSS class. +// +// Copyright (c) 2023 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 QSCILEXERCSS_H +#define QSCILEXERCSS_H + +#include + +#include +#include + + +//! \brief The QsciLexerCSS class encapsulates the Scintilla CSS lexer. +class QSCINTILLA_EXPORT QsciLexerCSS : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! CSS lexer. + enum { + //! The default. + Default = 0, + + //! A tag. + Tag = 1, + + //! A class selector. + ClassSelector = 2, + + //! A pseudo class. The list of pseudo classes is defined by keyword + //! set 2. + PseudoClass = 3, + + //! An unknown pseudo class. + UnknownPseudoClass = 4, + + //! An operator. + Operator = 5, + + //! A CSS1 property. The list of CSS1 properties is defined by keyword + //! set 1. + CSS1Property = 6, + + //! An unknown property. + UnknownProperty = 7, + + //! A value. + Value = 8, + + //! A comment. + Comment = 9, + + //! An ID selector. + IDSelector = 10, + + //! An important value. + Important = 11, + + //! An @-rule. + AtRule = 12, + + //! A double-quoted string. + DoubleQuotedString = 13, + + //! A single-quoted string. + SingleQuotedString = 14, + + //! A CSS2 property. The list of CSS2 properties is defined by keyword + //! set 3. + CSS2Property = 15, + + //! An attribute. + Attribute = 16, + + //! A CSS3 property. The list of CSS3 properties is defined by keyword + //! set 4. + CSS3Property = 17, + + //! A pseudo element. The list of pseudo elements is defined by + //! keyword set 5. + PseudoElement = 18, + + //! An extended (browser specific) CSS property. The list of extended + //! CSS properties is defined by keyword set 6. + ExtendedCSSProperty = 19, + + //! An extended (browser specific) pseudo class. The list of extended + //! pseudo classes is defined by keyword set 7. + ExtendedPseudoClass = 20, + + //! An extended (browser specific) pseudo element. The list of + //! extended pseudo elements is defined by keyword set 8. + ExtendedPseudoElement = 21, + + //! A media rule. + MediaRule = 22, + + //! A variable. + Variable = 23, + }; + + //! Construct a QsciLexerCSS with parent \a parent. \a parent is typically + //! the QsciScintilla instance. + QsciLexerCSS(QObject *parent = 0); + + //! Destroys the QsciLexerCSS instance. + virtual ~QsciLexerCSS(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! \internal Returns a space separated list of words or characters in + //! a particular style that define the end of a block for + //! auto-indentation. The styles is returned via \a style. + const char *blockEnd(int *style = 0) const; + + //! \internal Returns a space separated list of words or characters in + //! a particular style that define the start of a block for + //! auto-indentation. The styles is returned via \a style. + const char *blockStart(int *style = 0) const; + + //! Returns the string of characters that comprise a word. + const char *wordCharacters() const; + + //! Returns the foreground colour of the text for style number \a style. + QColor defaultColor(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + + //! Causes all properties to be refreshed by emitting the + //! propertyChanged() signal as required. + void refreshProperties(); + + //! Returns true if multi-line comment blocks can be folded. + //! + //! \sa setFoldComments() + bool foldComments() const; + + //! Returns true if trailing blank lines are included in a fold block. + //! + //! \sa setFoldCompact() + bool foldCompact() const; + + //! If \a enabled is true then support for HSS is enabled. The default is + //! false. + //! + //! \sa HSSLanguage() + void setHSSLanguage(bool enabled); + + //! Returns true if support for HSS is enabled. + //! + //! \sa setHSSLanguage() + bool HSSLanguage() const {return hss_language;} + + //! If \a enabled is true then support for Less CSS is enabled. The + //! default is false. + //! + //! \sa LessLanguage() + void setLessLanguage(bool enabled); + + //! Returns true if support for Less CSS is enabled. + //! + //! \sa setLessLanguage() + bool LessLanguage() const {return less_language;} + + //! If \a enabled is true then support for Sassy CSS is enabled. The + //! default is false. + //! + //! \sa SCSSLanguage() + void setSCSSLanguage(bool enabled); + + //! Returns true if support for Sassy CSS is enabled. + //! + //! \sa setSCSSLanguage() + bool SCSSLanguage() const {return scss_language;} + +public slots: + //! If \a fold is true then multi-line comment blocks can be folded. + //! The default is false. + //! + //! \sa foldComments() + virtual void setFoldComments(bool fold); + + //! If \a fold is true then trailing blank lines are included in a fold + //! block. The default is true. + //! + //! \sa foldCompact() + virtual void setFoldCompact(bool fold); + +protected: + //! The lexer's properties are read from the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + bool readProperties(QSettings &qs,const QString &prefix); + + //! The lexer's properties are written to the settings \a qs. + //! \a prefix (which has a trailing '/') should be used as a prefix to + //! the key of each setting. true is returned if there is no error. + //! + bool writeProperties(QSettings &qs,const QString &prefix) const; + +private: + void setCommentProp(); + void setCompactProp(); + void setHSSProp(); + void setLessProp(); + void setSCSSProp(); + + bool fold_comments; + bool fold_compact; + bool hss_language; + bool less_language; + bool scss_language; + + QsciLexerCSS(const QsciLexerCSS &); + QsciLexerCSS &operator=(const QsciLexerCSS &); +}; + +#endif diff --git a/libs/qscintilla/Qt4Qt5/Qsci/qscilexercustom.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexercustom.h similarity index 98% rename from libs/qscintilla/Qt4Qt5/Qsci/qscilexercustom.h rename to libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexercustom.h index e2210dfb0..d1ba17ba4 100644 --- a/libs/qscintilla/Qt4Qt5/Qsci/qscilexercustom.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexercustom.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciLexerCustom class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerd.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerd.h new file mode 100644 index 000000000..e910188c1 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerd.h @@ -0,0 +1,242 @@ +// This defines the interface to the QsciLexerD class. +// +// Copyright (c) 2023 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 QSCILEXERD_H +#define QSCILEXERD_H + +#include + +#include +#include + + +//! \brief The QsciLexerD class encapsulates the Scintilla D lexer. +class QSCINTILLA_EXPORT QsciLexerD : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the D + //! lexer. + enum { + //! The default. + Default = 0, + + //! A comment. + Comment = 1, + + //! A comment line. + CommentLine = 2, + + //! A JavaDoc and Doxygen comment. + CommentDoc = 3, + + //! A nested comment. + CommentNested = 4, + + //! A number. + Number = 5, + + //! A keyword. + Keyword = 6, + + //! A secondary keyword. + KeywordSecondary = 7, + + //! A doc keyword + KeywordDoc = 8, + + //! Typedefs and aliases + Typedefs = 9, + + //! A string. + String = 10, + + //! The end of a line where a string is not closed. + UnclosedString = 11, + + //! A character + Character = 12, + + //! An operator. + Operator = 13, + + //! An identifier + Identifier = 14, + + //! A JavaDoc and Doxygen line. + CommentLineDoc = 15, + + //! A JavaDoc and Doxygen keyword. + CommentDocKeyword = 16, + + //! A JavaDoc and Doxygen keyword error. + CommentDocKeywordError = 17, + + //! A backquoted string. + BackquoteString = 18, + + //! A raw, hexadecimal or delimited string. + RawString = 19, + + //! A keyword defined in keyword set number 5. The class must be + //! sub-classed and re-implement keywords() to make use of this style. + KeywordSet5 = 20, + + //! A keyword defined in keyword set number 6. The class must be + //! sub-classed and re-implement keywords() to make use of this style. + KeywordSet6 = 21, + + //! A keyword defined in keyword set number 7. The class must be + //! sub-classed and re-implement keywords() to make use of this style. + KeywordSet7 = 22, + }; + + //! Construct a QsciLexerD with parent \a parent. \a parent is typically + //! the QsciScintilla instance. + QsciLexerD(QObject *parent = 0); + + //! Destroys the QsciLexerD instance. + virtual ~QsciLexerD(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! \internal Returns the character sequences that can separate + //! auto-completion words. + QStringList autoCompletionWordSeparators() const; + + //! \internal Returns a space separated list of words or characters in a + //! particular style that define the end of a block for auto-indentation. + //! The styles is returned via \a style. + const char *blockEnd(int *style = 0) const; + + //! \internal Returns a space separated list of words or characters in a + //! particular style that define the start of a block for auto-indentation. + //! The styles is returned via \a style. + const char *blockStart(int *style = 0) const; + + //! \internal Returns a space separated list of keywords in a particular + //! style that define the start of a block for auto-indentation. The + //! styles is returned via \a style. + const char *blockStartKeyword(int *style = 0) const; + + //! \internal Returns the style used for braces for brace matching. + int braceStyle() const; + + //! Returns the string of characters that comprise a word. + const char *wordCharacters() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the end-of-line fill for style number \a style. + bool defaultEolFill(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised by + //! the lexer as a space separated string. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the style + //! is invalid for this language then an empty QString is returned. This + //! is intended to be used in user preference dialogs. + QString description(int style) const; + + //! Causes all properties to be refreshed by emitting the propertyChanged() + //! signal as required. + void refreshProperties(); + + //! Returns true if "} else {" lines can be folded. + //! + //! \sa setFoldAtElse() + bool foldAtElse() const; + + //! Returns true if multi-line comment blocks can be folded. + //! + //! \sa setFoldComments() + bool foldComments() const; + + //! Returns true if trailing blank lines are included in a fold block. + //! + //! \sa setFoldCompact() + bool foldCompact() const; + +public slots: + //! If \a fold is true then "} else {" lines can be folded. The default is + //! false. + //! + //! \sa foldAtElse() + virtual void setFoldAtElse(bool fold); + + //! If \a fold is true then multi-line comment blocks can be folded. The + //! default is false. + //! + //! \sa foldComments() + virtual void setFoldComments(bool fold); + + //! If \a fold is true then trailing blank lines are included in a fold + //! block. The default is true. + //! + //! \sa foldCompact() + virtual void setFoldCompact(bool fold); + +protected: + //! The lexer's properties are read from the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + //! \sa writeProperties() + bool readProperties(QSettings &qs,const QString &prefix); + + //! The lexer's properties are written to the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + //! \sa readProperties() + bool writeProperties(QSettings &qs,const QString &prefix) const; + +private: + void setAtElseProp(); + void setCommentProp(); + void setCompactProp(); + + bool fold_atelse; + bool fold_comments; + bool fold_compact; + + QsciLexerD(const QsciLexerD &); + QsciLexerD &operator=(const QsciLexerD &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerdiff.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerdiff.h new file mode 100644 index 000000000..43b67e99a --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerdiff.h @@ -0,0 +1,107 @@ +// This defines the interface to the QsciLexerDiff class. +// +// Copyright (c) 2023 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 QSCILEXERDIFF_H +#define QSCILEXERDIFF_H + +#include + +#include +#include + + +//! \brief The QsciLexerDiff class encapsulates the Scintilla Diff +//! lexer. +class QSCINTILLA_EXPORT QsciLexerDiff : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! Diff lexer. + enum { + //! The default. + Default = 0, + + //! A comment. + Comment = 1, + + //! A command. + Command = 2, + + //! A header. + Header = 3, + + //! A position. + Position = 4, + + //! A line removed. + LineRemoved = 5, + + //! A line added. + LineAdded = 6, + + //! A line changed. + LineChanged = 7, + + //! An adding patch added. + AddingPatchAdded = 8, + + //! A removing patch added. + RemovingPatchAdded = 9, + + //! An adding patch added. + AddingPatchRemoved = 10, + + //! A removing patch added. + RemovingPatchRemoved = 11, + }; + + //! Construct a QsciLexerDiff with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerDiff(QObject *parent = 0); + + //! Destroys the QsciLexerDiff instance. + virtual ~QsciLexerDiff(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! Returns the string of characters that comprise a word. + const char *wordCharacters() const; + + //! Returns the foreground colour of the text for style number \a style. + QColor defaultColor(int style) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + +private: + QsciLexerDiff(const QsciLexerDiff &); + QsciLexerDiff &operator=(const QsciLexerDiff &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexeredifact.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexeredifact.h new file mode 100644 index 000000000..548fa0953 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexeredifact.h @@ -0,0 +1,96 @@ +// This defines the interface to the QsciLexerEDIFACT class. +// +// Copyright (c) 2023 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 QSCILEXEREDIFACT_H +#define QSCILEXEREDIFACT_H + +#include + +#include +#include + + +//! \brief The QsciLexerEDIFACT class encapsulates the Scintilla EDIFACT lexer. +class QSCINTILLA_EXPORT QsciLexerEDIFACT : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! EDIFACT lexer. + enum { + //! The default. + Default = 0, + + //! A segment start. + SegmentStart = 1, + + //! A segment end. + SegmentEnd = 2, + + //! An element separator. + ElementSeparator = 3, + + //! A composite separator. + CompositeSeparator = 4, + + //! A release separator. + ReleaseSeparator = 5, + + //! A UNA segment header. + UNASegmentHeader = 6, + + //! A UNH segment header. + UNHSegmentHeader = 7, + + //! A bad segment. + BadSegment = 8, + }; + + //! Construct a QsciLexerEDIFACT with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerEDIFACT(QObject *parent = 0); + + //! Destroys the QsciLexerEDIFACT instance. + virtual ~QsciLexerEDIFACT(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + +private: + QsciLexerEDIFACT(const QsciLexerEDIFACT &); + QsciLexerEDIFACT &operator=(const QsciLexerEDIFACT &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerfortran.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerfortran.h new file mode 100644 index 000000000..f5aa99b0d --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerfortran.h @@ -0,0 +1,59 @@ +// This defines the interface to the QsciLexerFortran class. +// +// Copyright (c) 2023 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 QSCILEXERFORTRAN_H +#define QSCILEXERFORTRAN_H + +#include + +#include +#include + + +//! \brief The QsciLexerFortran class encapsulates the Scintilla Fortran lexer. +class QSCINTILLA_EXPORT QsciLexerFortran : public QsciLexerFortran77 +{ + Q_OBJECT + +public: + //! Construct a QsciLexerFortran with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerFortran(QObject *parent = 0); + + //! Destroys the QsciLexerFortran instance. + virtual ~QsciLexerFortran(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + +private: + QsciLexerFortran(const QsciLexerFortran &); + QsciLexerFortran &operator=(const QsciLexerFortran &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerfortran77.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerfortran77.h new file mode 100644 index 000000000..4689d6c40 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerfortran77.h @@ -0,0 +1,168 @@ +// This defines the interface to the QsciLexerFortran77 class. +// +// Copyright (c) 2023 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 QSCILEXERFORTRAN77_H +#define QSCILEXERFORTRAN77_H + +#include + +#include +#include + + +//! \brief The QsciLexerFortran77 class encapsulates the Scintilla Fortran77 +//! lexer. +class QSCINTILLA_EXPORT QsciLexerFortran77 : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! Fortran77 lexer. + enum { + //! The default. + Default = 0, + + //! A comment. + Comment = 1, + + //! A number. + Number = 2, + + //! A single-quoted string. + SingleQuotedString = 3, + + //! A double-quoted string. + DoubleQuotedString = 4, + + //! The end of a line where a string is not closed. + UnclosedString = 5, + + //! An operator. + Operator = 6, + + //! An identifier + Identifier = 7, + + //! A keyword. + Keyword = 8, + + //! An intrinsic function. + IntrinsicFunction = 9, + + //! An extended, non-standard or user defined function. + ExtendedFunction = 10, + + //! A pre-processor block. + PreProcessor = 11, + + //! An operator in .NAME. format. + DottedOperator = 12, + + //! A label. + Label = 13, + + //! A continuation. + Continuation = 14 + }; + + //! Construct a QsciLexerFortran77 with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerFortran77(QObject *parent = 0); + + //! Destroys the QsciLexerFortran77 instance. + virtual ~QsciLexerFortran77(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! \internal Returns the style used for braces for brace matching. + int braceStyle() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the end-of-line fill for style number \a style. + bool defaultEolFill(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + + //! Causes all properties to be refreshed by emitting the + //! propertyChanged() signal as required. + void refreshProperties(); + + //! Returns true if trailing blank lines are included in a fold block. + //! + //! \sa setFoldCompact() + bool foldCompact() const; + +public slots: + //! If \a fold is true then trailing blank lines are included in a fold + //! block. The default is true. + //! + //! \sa foldCompact() + virtual void setFoldCompact(bool fold); + +protected: + //! The lexer's properties are read from the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + //! \sa writeProperties() + bool readProperties(QSettings &qs,const QString &prefix); + + //! The lexer's properties are written to the settings \a qs. + //! \a prefix (which has a trailing '/') should be used as a prefix to + //! the key of each setting. true is returned if there is no error. + //! + //! \sa readProperties() + bool writeProperties(QSettings &qs,const QString &prefix) const; + +private: + void setCompactProp(); + + bool fold_compact; + + QsciLexerFortran77(const QsciLexerFortran77 &); + QsciLexerFortran77 &operator=(const QsciLexerFortran77 &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerhex.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerhex.h new file mode 100644 index 000000000..dc4287427 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerhex.h @@ -0,0 +1,120 @@ +// This defines the interface to the abstract QsciLexerHex class. +// +// Copyright (c) 2023 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 QSCILEXERHEX_H +#define QSCILEXERHEX_H + +#include + +#include +#include + + +//! \brief The abstract QsciLexerHex class encapsulates the Scintilla Hex +//! lexer. +class QSCINTILLA_EXPORT QsciLexerHex : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! Hex lexer. + enum { + //! The default. + Default = 0, + + //! A record start. + RecordStart = 1, + + //! A record type. + RecordType = 2, + + //! An unknown record type. + UnknownRecordType = 3, + + //! A correct byte count field. + ByteCount = 4, + + //! An incorrect byte count field. + IncorrectByteCount = 5, + + //! No address (S-Record and Intel Hex only). + NoAddress = 6, + + //! A data address. + DataAddress = 7, + + //! A record count (S-Record only). + RecordCount = 8, + + //! A start address. + StartAddress = 9, + + //! An extended address (Intel Hex only). + ExtendedAddress = 11, + + //! Odd data. + OddData = 12, + + //! Even data. + EvenData = 13, + + //! Unknown data (S-Record and Intel Hex only). + UnknownData = 14, + + //! A correct checksum. + Checksum = 16, + + //! An incorrect checksum. + IncorrectChecksum = 17, + + //! Garbage data after the record. + TrailingGarbage = 18, + }; + + //! Construct a QsciLexerHex with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerHex(QObject *parent = 0); + + //! Destroys the QsciLexerHex instance. + virtual ~QsciLexerHex(); + + //! Returns the foreground colour of the text for style number \a style. + QColor defaultColor(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + +private: + QsciLexerHex(const QsciLexerHex &); + QsciLexerHex &operator=(const QsciLexerHex &); +}; + +#endif diff --git a/libs/qscintilla/Qt4Qt5/Qsci/qscilexerhtml.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerhtml.h similarity index 99% rename from libs/qscintilla/Qt4Qt5/Qsci/qscilexerhtml.h rename to libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerhtml.h index 825b33336..b4bdc2f0d 100644 --- a/libs/qscintilla/Qt4Qt5/Qsci/qscilexerhtml.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerhtml.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciLexerHTML class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexeridl.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexeridl.h new file mode 100644 index 000000000..52e0c2f20 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexeridl.h @@ -0,0 +1,64 @@ +// This defines the interface to the QsciLexerIDL class. +// +// Copyright (c) 2023 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 QSCILEXERIDL_H +#define QSCILEXERIDL_H + +#include + +#include +#include + + +//! \brief The QsciLexerIDL class encapsulates the Scintilla IDL +//! lexer. +class QSCINTILLA_EXPORT QsciLexerIDL : public QsciLexerCPP +{ + Q_OBJECT + +public: + //! Construct a QsciLexerIDL with parent \a parent. \a parent is typically + //! the QsciScintilla instance. + QsciLexerIDL(QObject *parent = 0); + + //! Destroys the QsciLexerIDL instance. + virtual ~QsciLexerIDL(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the foreground colour of the text for style number \a style. + QColor defaultColor(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + +private: + QsciLexerIDL(const QsciLexerIDL &); + QsciLexerIDL &operator=(const QsciLexerIDL &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerintelhex.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerintelhex.h new file mode 100644 index 000000000..8a6aa3da5 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerintelhex.h @@ -0,0 +1,60 @@ +// This defines the interface to the QsciLexerIntelHex class. +// +// Copyright (c) 2023 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 QSCILEXERINTELHEX_H +#define QSCILEXERINTELHEX_H + +#include + +#include +#include + + +//! \brief The QsciLexerIntelHex class encapsulates the Scintilla Intel Hex +//! lexer. +class QSCINTILLA_EXPORT QsciLexerIntelHex : public QsciLexerHex +{ + Q_OBJECT + +public: + //! Construct a QsciLexerIntelHex with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerIntelHex(QObject *parent = 0); + + //! Destroys the QsciLexerIntelHex instance. + virtual ~QsciLexerIntelHex(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. + const char *lexer() const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + +private: + QsciLexerIntelHex(const QsciLexerIntelHex &); + QsciLexerIntelHex &operator=(const QsciLexerIntelHex &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerjava.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerjava.h new file mode 100644 index 000000000..5111c2790 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerjava.h @@ -0,0 +1,55 @@ +// This defines the interface to the QsciLexerJava class. +// +// Copyright (c) 2023 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 QSCILEXERJAVA_H +#define QSCILEXERJAVA_H + +#include + +#include +#include + + +//! \brief The QsciLexerJava class encapsulates the Scintilla Java lexer. +class QSCINTILLA_EXPORT QsciLexerJava : public QsciLexerCPP +{ + Q_OBJECT + +public: + //! Construct a QsciLexerJava with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerJava(QObject *parent = 0); + + //! Destroys the QsciLexerJava instance. + virtual ~QsciLexerJava(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + +private: + QsciLexerJava(const QsciLexerJava &); + QsciLexerJava &operator=(const QsciLexerJava &); +}; + +#endif diff --git a/libs/qscintilla/Qt4Qt5/Qsci/qscilexerjavascript.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerjavascript.h similarity index 97% rename from libs/qscintilla/Qt4Qt5/Qsci/qscilexerjavascript.h rename to libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerjavascript.h index cf37fcd18..94afc7544 100644 --- a/libs/qscintilla/Qt4Qt5/Qsci/qscilexerjavascript.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerjavascript.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciLexerJavaScript class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/Qt4Qt5/Qsci/qscilexerjson.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerjson.h similarity index 98% rename from libs/qscintilla/Qt4Qt5/Qsci/qscilexerjson.h rename to libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerjson.h index 8f6d956b1..7e5bf2900 100644 --- a/libs/qscintilla/Qt4Qt5/Qsci/qscilexerjson.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerjson.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciLexerJSON class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerlua.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerlua.h new file mode 100644 index 000000000..ea1cee38f --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerlua.h @@ -0,0 +1,194 @@ +// This defines the interface to the QsciLexerLua class. +// +// Copyright (c) 2023 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 QSCILEXERLUA_H +#define QSCILEXERLUA_H + +#include + +#include +#include + + +//! \brief The QsciLexerLua class encapsulates the Scintilla Lua +//! lexer. +class QSCINTILLA_EXPORT QsciLexerLua : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! Lua lexer. + enum { + //! The default. + Default = 0, + + //! A block comment. + Comment = 1, + + //! A line comment. + LineComment = 2, + + //! A number. + Number = 4, + + //! A keyword. + Keyword = 5, + + //! A string. + String = 6, + + //! A character. + Character = 7, + + //! A literal string. + LiteralString = 8, + + //! Preprocessor + Preprocessor = 9, + + //! An operator. + Operator = 10, + + //! An identifier + Identifier = 11, + + //! The end of a line where a string is not closed. + UnclosedString = 12, + + //! Basic functions. + BasicFunctions = 13, + + //! String, table and maths functions. + StringTableMathsFunctions = 14, + + //! Coroutines, I/O and system facilities. + CoroutinesIOSystemFacilities = 15, + + //! A keyword defined in keyword set number 5. The class must be + //! sub-classed and re-implement keywords() to make use of this style. + KeywordSet5 = 16, + + //! A keyword defined in keyword set number 6. The class must be + //! sub-classed and re-implement keywords() to make use of this style. + KeywordSet6 = 17, + + //! A keyword defined in keyword set number 7. The class must be + //! sub-classed and re-implement keywords() to make use of this style. + KeywordSet7 = 18, + + //! A keyword defined in keyword set number 8. The class must be + //! sub-classed and re-implement keywords() to make use of this style. + KeywordSet8 = 19, + + //! A label. + Label = 20 + }; + + //! Construct a QsciLexerLua with parent \a parent. \a parent is typically + //! the QsciScintilla instance. + QsciLexerLua(QObject *parent = 0); + + //! Destroys the QsciLexerLua instance. + virtual ~QsciLexerLua(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! \internal Returns the character sequences that can separate + //! auto-completion words. + QStringList autoCompletionWordSeparators() const; + + //! \internal Returns a space separated list of words or characters in + //! a particular style that define the start of a block for + //! auto-indentation. The styles is returned via \a style. + const char *blockStart(int *style = 0) const; + + //! \internal Returns the style used for braces for brace matching. + int braceStyle() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the end-of-line fill for style number \a style. + bool defaultEolFill(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + + //! Causes all properties to be refreshed by emitting the + //! propertyChanged() signal as required. + void refreshProperties(); + + //! Returns true if trailing blank lines are included in a fold block. + //! + //! \sa setFoldCompact() + bool foldCompact() const; + +public slots: + //! If \a fold is true then trailing blank lines are included in a fold + //! block. The default is true. + //! + //! \sa foldCompact() + virtual void setFoldCompact(bool fold); + +protected: + //! The lexer's properties are read from the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + bool readProperties(QSettings &qs,const QString &prefix); + + //! The lexer's properties are written to the settings \a qs. + //! \a prefix (which has a trailing '/') should be used as a prefix to + //! the key of each setting. true is returned if there is no error. + //! + bool writeProperties(QSettings &qs,const QString &prefix) const; + +private: + void setCompactProp(); + + bool fold_compact; + + QsciLexerLua(const QsciLexerLua &); + QsciLexerLua &operator=(const QsciLexerLua &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexermakefile.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexermakefile.h new file mode 100644 index 000000000..76c1bbca9 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexermakefile.h @@ -0,0 +1,105 @@ +// This defines the interface to the QsciLexerMakefile class. +// +// Copyright (c) 2023 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 QSCILEXERMAKEFILE_H +#define QSCILEXERMAKEFILE_H + +#include + +#include +#include + + +//! \brief The QsciLexerMakefile class encapsulates the Scintilla +//! Makefile lexer. +class QSCINTILLA_EXPORT QsciLexerMakefile : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! Makefile lexer. + enum { + //! The default. + Default = 0, + + //! A comment. + Comment = 1, + + //! A pre-processor directive. + Preprocessor = 2, + + //! A variable. + Variable = 3, + + //! An operator. + Operator = 4, + + //! A target. + Target = 5, + + //! An error. + Error = 9 + }; + + //! Construct a QsciLexerMakefile with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerMakefile(QObject *parent = 0); + + //! Destroys the QsciLexerMakefile instance. + virtual ~QsciLexerMakefile(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! Returns the string of characters that comprise a word. + const char *wordCharacters() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the end-of-line fill for style number \a style. + bool defaultEolFill(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + +private: + QsciLexerMakefile(const QsciLexerMakefile &); + QsciLexerMakefile &operator=(const QsciLexerMakefile &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexermarkdown.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexermarkdown.h new file mode 100644 index 000000000..dc257150a --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexermarkdown.h @@ -0,0 +1,148 @@ +// This defines the interface to the QsciLexerMarkdown class. +// +// Copyright (c) 2023 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 QSCILEXERMARKDOWN_H +#define QSCILEXERMARKDOWN_H + +#include + +#include +#include + + +//! \brief The QsciLexerMarkdown class encapsulates the Scintilla Markdown +//! lexer. +class QSCINTILLA_EXPORT QsciLexerMarkdown : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! Markdown lexer. + + // Note that some values are omitted (ie. LINE_BEGIN and PRECHAR) as these + // seem to be internal state information rather than indicating that text + // should be styled differently. + enum { + //! The default. + Default = 0, + + //! Special (e.g. end-of-line codes if enabled). + Special = 1, + + //! Strong emphasis using double asterisks. + StrongEmphasisAsterisks = 2, + + //! Strong emphasis using double underscores. + StrongEmphasisUnderscores = 3, + + //! Emphasis using single asterisks. + EmphasisAsterisks = 4, + + //! Emphasis using single underscores. + EmphasisUnderscores = 5, + + //! A level 1 header. + Header1 = 6, + + //! A level 2 header. + Header2 = 7, + + //! A level 3 header. + Header3 = 8, + + //! A level 4 header. + Header4 = 9, + + //! A level 5 header. + Header5 = 10, + + //! A level 6 header. + Header6 = 11, + + //! Pre-char (up to three indent spaces, e.g. for a sub-list). + Prechar = 12, + + //! An unordered list item. + UnorderedListItem = 13, + + //! An ordered list item. + OrderedListItem = 14, + + //! A block quote. + BlockQuote = 15, + + //! Strike out. + StrikeOut = 16, + + //! A horizontal rule. + HorizontalRule = 17, + + //! A link. + Link = 18, + + //! Code between backticks. + CodeBackticks = 19, + + //! Code between double backticks. + CodeDoubleBackticks = 20, + + //! A code block. + CodeBlock = 21, + }; + + //! Construct a QsciLexerMarkdown with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerMarkdown(QObject *parent = 0); + + //! Destroys the QsciLexerMarkdown instance. + virtual ~QsciLexerMarkdown(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + +private: + QsciLexerMarkdown(const QsciLexerMarkdown &); + QsciLexerMarkdown &operator=(const QsciLexerMarkdown &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexermasm.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexermasm.h new file mode 100644 index 000000000..81b90b895 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexermasm.h @@ -0,0 +1,54 @@ +// This defines the interface to the QsciLexerMASM class. +// +// Copyright (c) 2023 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 QSCILEXERMASM_H +#define QSCILEXERMASM_H + +#include + +#include +#include + + +//! \brief The QsciLexerMASM class encapsulates the Scintilla MASM lexer. +class QSCINTILLA_EXPORT QsciLexerMASM : public QsciLexerAsm +{ + Q_OBJECT + +public: + //! Construct a QsciLexerMASM with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerMASM(QObject *parent = 0); + + //! Destroys the QsciLexerMASM instance. + virtual ~QsciLexerMASM(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. + const char *lexer() const; + +private: + QsciLexerMASM(const QsciLexerMASM &); + QsciLexerMASM &operator=(const QsciLexerMASM &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexermatlab.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexermatlab.h new file mode 100644 index 000000000..c04e67bdb --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexermatlab.h @@ -0,0 +1,104 @@ +// This defines the interface to the QsciLexerMatlab class. +// +// Copyright (c) 2023 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 QSCILEXERMATLAB_H +#define QSCILEXERMATLAB_H + +#include + +#include +#include + + +//! \brief The QsciLexerMatlab class encapsulates the Scintilla Matlab file +//! lexer. +class QSCINTILLA_EXPORT QsciLexerMatlab : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! Matlab file lexer. + enum { + //! The default. + Default = 0, + + //! A comment. + Comment = 1, + + //! A command. + Command = 2, + + //! A number. + Number = 3, + + //! A keyword. + Keyword = 4, + + //! A single quoted string. + SingleQuotedString = 5, + + //! An operator + Operator = 6, + + //! An identifier. + Identifier = 7, + + //! A double quoted string. + DoubleQuotedString = 8 + }; + + //! Construct a QsciLexerMatlab with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerMatlab(QObject *parent = 0); + + //! Destroys the QsciLexerMatlab instance. + virtual ~QsciLexerMatlab(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + +private: + QsciLexerMatlab(const QsciLexerMatlab &); + QsciLexerMatlab &operator=(const QsciLexerMatlab &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexernasm.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexernasm.h new file mode 100644 index 000000000..0a8e8eb7c --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexernasm.h @@ -0,0 +1,54 @@ +// This defines the interface to the QsciLexerNASM class. +// +// Copyright (c) 2023 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 QSCILEXERNASM_H +#define QSCILEXERNASM_H + +#include + +#include +#include + + +//! \brief The QsciLexerNASM class encapsulates the Scintilla NASM lexer. +class QSCINTILLA_EXPORT QsciLexerNASM : public QsciLexerAsm +{ + Q_OBJECT + +public: + //! Construct a QsciLexerNASM with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerNASM(QObject *parent = 0); + + //! Destroys the QsciLexerNASM instance. + virtual ~QsciLexerNASM(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. + const char *lexer() const; + +private: + QsciLexerNASM(const QsciLexerNASM &); + QsciLexerNASM &operator=(const QsciLexerNASM &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexeroctave.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexeroctave.h new file mode 100644 index 000000000..dafbadfb7 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexeroctave.h @@ -0,0 +1,60 @@ +// This defines the interface to the QsciLexerOctave class. +// +// Copyright (c) 2023 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 QSCILEXEROCTAVE_H +#define QSCILEXEROCTAVE_H + +#include + +#include +#include + + +//! \brief The QsciLexerOctave class encapsulates the Scintilla Octave file +//! lexer. +class QSCINTILLA_EXPORT QsciLexerOctave : public QsciLexerMatlab +{ + Q_OBJECT + +public: + //! Construct a QsciLexerOctave with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerOctave(QObject *parent = 0); + + //! Destroys the QsciLexerOctave instance. + virtual ~QsciLexerOctave(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + +private: + QsciLexerOctave(const QsciLexerOctave &); + QsciLexerOctave &operator=(const QsciLexerOctave &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerpascal.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerpascal.h new file mode 100644 index 000000000..f8caf119f --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerpascal.h @@ -0,0 +1,227 @@ +// This defines the interface to the QsciLexerPascal class. +// +// Copyright (c) 2023 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 QSCILEXERPASCAL_H +#define QSCILEXERPASCAL_H + +#include + +#include +#include + + +//! \brief The QsciLexerPascal class encapsulates the Scintilla Pascal lexer. +class QSCINTILLA_EXPORT QsciLexerPascal : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! C++ lexer. + enum { + //! The default. + Default = 0, + + //! An identifier + Identifier = 1, + + //! A '{ ... }' style comment. + Comment = 2, + + //! A '(* ... *)' style comment. + CommentParenthesis = 3, + + //! A comment line. + CommentLine = 4, + + //! A '{$ ... }' style pre-processor block. + PreProcessor = 5, + + //! A '(*$ ... *)' style pre-processor block. + PreProcessorParenthesis = 6, + + //! A number. + Number = 7, + + //! A hexadecimal number. + HexNumber = 8, + + //! A keyword. + Keyword = 9, + + //! A single-quoted string. + SingleQuotedString = 10, + + //! The end of a line where a string is not closed. + UnclosedString = 11, + + //! A character. + Character = 12, + + //! An operator. + Operator = 13, + + //! Inline Asm. + Asm = 14 + }; + + //! Construct a QsciLexerPascal with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerPascal(QObject *parent = 0); + + //! Destroys the QsciLexerPascal instance. + virtual ~QsciLexerPascal(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! \internal Returns the character sequences that can separate + //! auto-completion words. + QStringList autoCompletionWordSeparators() const; + + //! \internal Returns a space separated list of words or characters in + //! a particular style that define the end of a block for + //! auto-indentation. The styles is returned via \a style. + const char *blockEnd(int *style = 0) const; + + //! \internal Returns a space separated list of words or characters in + //! a particular style that define the start of a block for + //! auto-indentation. The styles is returned via \a style. + const char *blockStart(int *style = 0) const; + + //! \internal Returns a space separated list of keywords in a + //! particular style that define the start of a block for + //! auto-indentation. The styles is returned via \a style. + const char *blockStartKeyword(int *style = 0) const; + + //! \internal Returns the style used for braces for brace matching. + int braceStyle() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the end-of-line fill for style number \a style. + bool defaultEolFill(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + + //! Causes all properties to be refreshed by emitting the + //! propertyChanged() signal as required. + void refreshProperties(); + + //! Returns true if multi-line comment blocks can be folded. + //! + //! \sa setFoldComments() + bool foldComments() const; + + //! Returns true if trailing blank lines are included in a fold block. + //! + //! \sa setFoldCompact() + bool foldCompact() const; + + //! Returns true if preprocessor blocks can be folded. + //! + //! \sa setFoldPreprocessor() + bool foldPreprocessor() const; + + //! If \a enabled is true then some keywords will only be highlighted in an + //! appropriate context (similar to how the Delphi IDE works). The default + //! is true. + //! + //! \sa smartHighlighting() + void setSmartHighlighting(bool enabled); + + //! Returns true if some keywords will only be highlighted in an + //! appropriate context (similar to how the Delphi IDE works). + //! + //! \sa setSmartHighlighting() + bool smartHighlighting() const; + +public slots: + //! If \a fold is true then multi-line comment blocks can be folded. + //! The default is false. + //! + //! \sa foldComments() + virtual void setFoldComments(bool fold); + + //! If \a fold is true then trailing blank lines are included in a fold + //! block. The default is true. + //! + //! \sa foldCompact() + virtual void setFoldCompact(bool fold); + + //! If \a fold is true then preprocessor blocks can be folded. The + //! default is true. + //! + //! \sa foldPreprocessor() + virtual void setFoldPreprocessor(bool fold); + +protected: + //! The lexer's properties are read from the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + //! \sa writeProperties() + bool readProperties(QSettings &qs,const QString &prefix); + + //! The lexer's properties are written to the settings \a qs. + //! \a prefix (which has a trailing '/') should be used as a prefix to + //! the key of each setting. true is returned if there is no error. + //! + //! \sa readProperties() + bool writeProperties(QSettings &qs,const QString &prefix) const; + +private: + void setCommentProp(); + void setCompactProp(); + void setPreprocProp(); + void setSmartHighlightProp(); + + bool fold_comments; + bool fold_compact; + bool fold_preproc; + bool smart_highlight; + + QsciLexerPascal(const QsciLexerPascal &); + QsciLexerPascal &operator=(const QsciLexerPascal &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerperl.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerperl.h new file mode 100644 index 000000000..0a5f77c67 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerperl.h @@ -0,0 +1,312 @@ +// This defines the interface to the QsciLexerPerl class. +// +// Copyright (c) 2023 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 QSCILEXERPERL_H +#define QSCILEXERPERL_H + +#include + +#include +#include + + +//! \brief The QsciLexerPerl class encapsulates the Scintilla Perl +//! lexer. +class QSCINTILLA_EXPORT QsciLexerPerl : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! Perl lexer. + enum { + //! The default. + Default = 0, + + //! An error. + Error = 1, + + //! A comment. + Comment = 2, + + //! A POD. + POD = 3, + + //! A number. + Number = 4, + + //! A keyword. + Keyword = 5, + + //! A double-quoted string. + DoubleQuotedString = 6, + + //! A single-quoted string. + SingleQuotedString = 7, + + //! An operator. + Operator = 10, + + //! An identifier + Identifier = 11, + + //! A scalar. + Scalar = 12, + + //! An array. + Array = 13, + + //! A hash. + Hash = 14, + + //! A symbol table. + SymbolTable = 15, + + //! A regular expression. + Regex = 17, + + //! A substitution. + Substitution = 18, + + //! Backticks. + Backticks = 20, + + //! A data section. + DataSection = 21, + + //! A here document delimiter. + HereDocumentDelimiter = 22, + + //! A single quoted here document. + SingleQuotedHereDocument = 23, + + //! A double quoted here document. + DoubleQuotedHereDocument = 24, + + //! A backtick here document. + BacktickHereDocument = 25, + + //! A quoted string (q). + QuotedStringQ = 26, + + //! A quoted string (qq). + QuotedStringQQ = 27, + + //! A quoted string (qx). + QuotedStringQX = 28, + + //! A quoted string (qr). + QuotedStringQR = 29, + + //! A quoted string (qw). + QuotedStringQW = 30, + + //! A verbatim POD. + PODVerbatim = 31, + + //! A Subroutine prototype. + SubroutinePrototype = 40, + + //! A format identifier. + FormatIdentifier = 41, + + //! A format body. + FormatBody = 42, + + //! A double-quoted string (interpolated variable). + DoubleQuotedStringVar = 43, + + //! A translation. + Translation = 44, + + //! A regular expression (interpolated variable). + RegexVar = 54, + + //! A substitution (interpolated variable). + SubstitutionVar = 55, + + //! Backticks (interpolated variable). + BackticksVar = 57, + + //! A double quoted here document (interpolated variable). + DoubleQuotedHereDocumentVar = 61, + + //! A backtick here document (interpolated variable). + BacktickHereDocumentVar = 62, + + //! A quoted string (qq, interpolated variable). + QuotedStringQQVar = 64, + + //! A quoted string (qx, interpolated variable). + QuotedStringQXVar = 65, + + //! A quoted string (qr, interpolated variable). + QuotedStringQRVar = 66 + }; + + //! Construct a QsciLexerPerl with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerPerl(QObject *parent = 0); + + //! Destroys the QsciLexerPerl instance. + virtual ~QsciLexerPerl(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! \internal Returns the character sequences that can separate + //! auto-completion words. + QStringList autoCompletionWordSeparators() const; + + //! \internal Returns a space separated list of words or characters in + //! a particular style that define the end of a block for + //! auto-indentation. The styles is returned via \a style. + const char *blockEnd(int *style = 0) const; + + //! \internal Returns a space separated list of words or characters in + //! a particular style that define the start of a block for + //! auto-indentation. The styles is returned via \a style. + const char *blockStart(int *style = 0) const; + + //! \internal Returns the style used for braces for brace matching. + int braceStyle() const; + + //! Returns the string of characters that comprise a word. + const char *wordCharacters() const; + + //! Returns the foreground colour of the text for style number + //! \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the end-of-line fill for style number \a style. + bool defaultEolFill(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + + //! Causes all properties to be refreshed by emitting the + //! propertyChanged() signal as required. + void refreshProperties(); + + //! If \a fold is true then "} else {" lines can be folded. The default is + //! false. + //! + //! \sa foldAtElse() + void setFoldAtElse(bool fold); + + //! Returns true if "} else {" lines can be folded. + //! + //! \sa setFoldAtElse() + bool foldAtElse() const {return fold_atelse;} + + //! Returns true if multi-line comment blocks can be folded. + //! + //! \sa setFoldComments() + bool foldComments() const; + + //! Returns true if trailing blank lines are included in a fold block. + //! + //! \sa setFoldCompact() + bool foldCompact() const; + + //! If \a fold is true then packages can be folded. The default is true. + //! + //! \sa foldPackages() + void setFoldPackages(bool fold); + + //! Returns true if packages can be folded. + //! + //! \sa setFoldPackages() + bool foldPackages() const; + + //! If \a fold is true then POD blocks can be folded. The default is true. + //! + //! \sa foldPODBlocks() + void setFoldPODBlocks(bool fold); + + //! Returns true if POD blocks can be folded. + //! + //! \sa setFoldPODBlocks() + bool foldPODBlocks() const; + +public slots: + //! If \a fold is true then multi-line comment blocks can be folded. + //! The default is false. + //! + //! \sa foldComments() + virtual void setFoldComments(bool fold); + + //! If \a fold is true then trailing blank lines are included in a fold + //! block. The default is true. + //! + //! \sa foldCompact() + virtual void setFoldCompact(bool fold); + +protected: + //! The lexer's properties are read from the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + bool readProperties(QSettings &qs,const QString &prefix); + + //! The lexer's properties are written to the settings \a qs. + //! \a prefix (which has a trailing '/') should be used as a prefix to + //! the key of each setting. true is returned if there is no error. + //! + bool writeProperties(QSettings &qs,const QString &prefix) const; + +private: + void setAtElseProp(); + void setCommentProp(); + void setCompactProp(); + void setPackagesProp(); + void setPODBlocksProp(); + + bool fold_atelse; + bool fold_comments; + bool fold_compact; + bool fold_packages; + bool fold_pod_blocks; + + QsciLexerPerl(const QsciLexerPerl &); + QsciLexerPerl &operator=(const QsciLexerPerl &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerpo.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerpo.h new file mode 100644 index 000000000..083308f62 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerpo.h @@ -0,0 +1,163 @@ +// This defines the interface to the QsciLexerPO class. +// +// Copyright (c) 2023 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 QSCILEXERPO_H +#define QSCILEXERPO_H + +#include + +#include +#include + + +//! \brief The QsciLexerPO class encapsulates the Scintilla PO lexer. +class QSCINTILLA_EXPORT QsciLexerPO : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! PO lexer. + enum { + //! The default. + Default = 0, + + //! A comment. + Comment = 1, + + //! A message identifier. + MessageId = 2, + + //! The text of a message identifier. + MessageIdText = 3, + + //! A message string. + MessageString = 4, + + //! The text of a message string. + MessageStringText = 5, + + //! A message context. + MessageContext = 6, + + //! The text of a message context. + MessageContextText = 7, + + //! The "fuzzy" flag. + Fuzzy = 8, + + //! A programmer comment. + ProgrammerComment = 9, + + //! A reference. + Reference = 10, + + //! A flag. + Flags = 11, + + //! A message identifier text end-of-line. + MessageIdTextEOL = 12, + + //! A message string text end-of-line. + MessageStringTextEOL = 13, + + //! A message context text end-of-line. + MessageContextTextEOL = 14 + }; + + //! Construct a QsciLexerPO with parent \a parent. \a parent is typically + //! the QsciScintilla instance. + QsciLexerPO(QObject *parent = 0); + + //! Destroys the QsciLexerPO instance. + virtual ~QsciLexerPO(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + + //! Causes all properties to be refreshed by emitting the propertyChanged() + //! signal as required. + void refreshProperties(); + + //! Returns true if multi-line comment blocks can be folded. + //! + //! \sa setFoldComments() + bool foldComments() const; + + //! Returns true if trailing blank lines are included in a fold block. + //! + //! \sa setFoldCompact() + bool foldCompact() const; + +public slots: + //! If \a fold is true then multi-line comment blocks can be folded. + //! The default is false. + //! + //! \sa foldComments() + virtual void setFoldComments(bool fold); + + //! If \a fold is true then trailing blank lines are included in a fold + //! block. The default is true. + //! + //! \sa foldCompact() + virtual void setFoldCompact(bool fold); + +protected: + //! The lexer's properties are read from the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + bool readProperties(QSettings &qs,const QString &prefix); + + //! The lexer's properties are written to the settings \a qs. + //! \a prefix (which has a trailing '/') should be used as a prefix to + //! the key of each setting. true is returned if there is no error. + //! + bool writeProperties(QSettings &qs,const QString &prefix) const; + +private: + void setCommentProp(); + void setCompactProp(); + + bool fold_comments; + bool fold_compact; + + QsciLexerPO(const QsciLexerPO &); + QsciLexerPO &operator=(const QsciLexerPO &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerpostscript.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerpostscript.h new file mode 100644 index 000000000..1af088dd2 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerpostscript.h @@ -0,0 +1,204 @@ +// This defines the interface to the QsciLexerPostScript class. +// +// Copyright (c) 2023 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 QSCILEXERPOSTSCRIPT_H +#define QSCILEXERPOSTSCRIPT_H + +#include + +#include +#include + + +//! \brief The QsciLexerPostScript class encapsulates the Scintilla PostScript +//! lexer. +class QSCINTILLA_EXPORT QsciLexerPostScript : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! PostScript lexer. + enum { + //! The default. + Default = 0, + + //! A comment. + Comment = 1, + + //! A DSC comment. + DSCComment = 2, + + //! A DSC comment value. + DSCCommentValue = 3, + + //! A number. + Number = 4, + + //! A name. + Name = 5, + + //! A keyword. + Keyword = 6, + + //! A literal. + Literal = 7, + + //! An immediately evaluated literal. + ImmediateEvalLiteral = 8, + + //! Array parenthesis. + ArrayParenthesis = 9, + + //! Dictionary parenthesis. + DictionaryParenthesis = 10, + + //! Procedure parenthesis. + ProcedureParenthesis = 11, + + //! Text. + Text = 12, + + //! A hexadecimal string. + HexString = 13, + + //! A base85 string. + Base85String = 14, + + //! A bad string character. + BadStringCharacter = 15 + }; + + //! Construct a QsciLexerPostScript with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerPostScript(QObject *parent = 0); + + //! Destroys the QsciLexerPostScript instance. + virtual ~QsciLexerPostScript(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! \internal Returns the style used for braces for brace matching. + int braceStyle() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. Set 5 can be used to provide + //! additional user defined keywords. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + + //! Causes all properties to be refreshed by emitting the propertyChanged() + //! signal as required. + void refreshProperties(); + + //! Returns true if tokens should be marked. + //! + //! \sa setTokenize() + bool tokenize() const; + + //! Returns the PostScript level. + //! + //! \sa setLevel() + int level() const; + + //! Returns true if trailing blank lines are included in a fold block. + //! + //! \sa setFoldCompact() + bool foldCompact() const; + + //! Returns true if else blocks can be folded. + //! + //! \sa setFoldAtElse() + bool foldAtElse() const; + +public slots: + //! If \a tokenize is true then tokens are marked. The default is false. + //! + //! \sa tokenize() + virtual void setTokenize(bool tokenize); + + //! The PostScript level is set to \a level. The default is 3. + //! + //! \sa level() + virtual void setLevel(int level); + + //! If \a fold is true then trailing blank lines are included in a fold + //! block. The default is true. + //! + //! \sa foldCompact() + virtual void setFoldCompact(bool fold); + + //! If \a fold is true then else blocks can be folded. The default is + //! false. + //! + //! \sa foldAtElse() + virtual void setFoldAtElse(bool fold); + +protected: + //! The lexer's properties are read from the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + bool readProperties(QSettings &qs,const QString &prefix); + + //! The lexer's properties are written to the settings \a qs. + //! \a prefix (which has a trailing '/') should be used as a prefix to + //! the key of each setting. true is returned if there is no error. + //! + bool writeProperties(QSettings &qs,const QString &prefix) const; + +private: + void setTokenizeProp(); + void setLevelProp(); + void setCompactProp(); + void setAtElseProp(); + + bool ps_tokenize; + int ps_level; + bool fold_compact; + bool fold_atelse; + + QsciLexerPostScript(const QsciLexerPostScript &); + QsciLexerPostScript &operator=(const QsciLexerPostScript &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerpov.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerpov.h new file mode 100644 index 000000000..1f522ac70 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerpov.h @@ -0,0 +1,203 @@ +// This defines the interface to the QsciLexerPOV class. +// +// Copyright (c) 2023 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 QSCILEXERPOV_H +#define QSCILEXERPOV_H + +#include + +#include +#include + + +//! \brief The QsciLexerPOV class encapsulates the Scintilla POV lexer. +class QSCINTILLA_EXPORT QsciLexerPOV : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! POV lexer. + enum { + //! The default. + Default = 0, + + //! A comment. + Comment = 1, + + //! A comment line. + CommentLine = 2, + + //! A number. + Number = 3, + + //! An operator. + Operator = 4, + + //! An identifier + Identifier = 5, + + //! A string. + String = 6, + + //! The end of a line where a string is not closed. + UnclosedString = 7, + + //! A directive. + Directive = 8, + + //! A bad directive. + BadDirective = 9, + + //! Objects, CSG and appearance. + ObjectsCSGAppearance = 10, + + //! Types, modifiers and items. + TypesModifiersItems = 11, + + //! Predefined identifiers. + PredefinedIdentifiers = 12, + + //! Predefined identifiers. + PredefinedFunctions = 13, + + //! A keyword defined in keyword set number 6. The class must be + //! sub-classed and re-implement keywords() to make use of this style. + KeywordSet6 = 14, + + //! A keyword defined in keyword set number 7. The class must be + //! sub-classed and re-implement keywords() to make use of this style. + KeywordSet7 = 15, + + //! A keyword defined in keyword set number 8. The class must be + //! sub-classed and re-implement keywords() to make use of this style. + KeywordSet8 = 16 + }; + + //! Construct a QsciLexerPOV with parent \a parent. \a parent is typically + //! the QsciScintilla instance. + QsciLexerPOV(QObject *parent = 0); + + //! Destroys the QsciLexerPOV instance. + virtual ~QsciLexerPOV(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! \internal Returns the style used for braces for brace matching. + int braceStyle() const; + + //! Returns the string of characters that comprise a word. + const char *wordCharacters() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the end-of-line fill for style number \a style. + bool defaultEolFill(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + + //! Causes all properties to be refreshed by emitting the propertyChanged() + //! signal as required. + void refreshProperties(); + + //! Returns true if multi-line comment blocks can be folded. + //! + //! \sa setFoldComments() + bool foldComments() const; + + //! Returns true if trailing blank lines are included in a fold block. + //! + //! \sa setFoldCompact() + bool foldCompact() const; + + //! Returns true if directives can be folded. + //! + //! \sa setFoldDirectives() + bool foldDirectives() const; + +public slots: + //! If \a fold is true then multi-line comment blocks can be folded. + //! The default is false. + //! + //! \sa foldComments() + virtual void setFoldComments(bool fold); + + //! If \a fold is true then trailing blank lines are included in a fold + //! block. The default is true. + //! + //! \sa foldCompact() + virtual void setFoldCompact(bool fold); + + //! If \a fold is true then directives can be folded. The default is + //! false. + //! + //! \sa foldDirectives() + virtual void setFoldDirectives(bool fold); + +protected: + //! The lexer's properties are read from the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + bool readProperties(QSettings &qs,const QString &prefix); + + //! The lexer's properties are written to the settings \a qs. + //! \a prefix (which has a trailing '/') should be used as a prefix to + //! the key of each setting. true is returned if there is no error. + //! + bool writeProperties(QSettings &qs,const QString &prefix) const; + +private: + void setCommentProp(); + void setCompactProp(); + void setDirectiveProp(); + + bool fold_comments; + bool fold_compact; + bool fold_directives; + + QsciLexerPOV(const QsciLexerPOV &); + QsciLexerPOV &operator=(const QsciLexerPOV &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerproperties.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerproperties.h new file mode 100644 index 000000000..547de603f --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerproperties.h @@ -0,0 +1,150 @@ +// This defines the interface to the QsciLexerProperties class. +// +// Copyright (c) 2023 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 QSCILEXERPROPERTIES_H +#define QSCILEXERPROPERTIES_H + +#include + +#include +#include + + +//! \brief The QsciLexerProperties class encapsulates the Scintilla +//! Properties lexer. +class QSCINTILLA_EXPORT QsciLexerProperties : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! Properties lexer. + enum { + //! The default. + Default = 0, + + //! A comment. + Comment = 1, + + //! A section. + Section = 2, + + //! An assignment operator. + Assignment = 3, + + //! A default value. + DefaultValue = 4, + + //! A key. + Key = 5 + }; + + //! Construct a QsciLexerProperties with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerProperties(QObject *parent = 0); + + //! Destroys the QsciLexerProperties instance. + virtual ~QsciLexerProperties(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! Returns the string of characters that comprise a word. + const char *wordCharacters() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the end-of-line fill for style number \a style. + bool defaultEolFill(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the descriptive name for style number \a style. If the style + //! is invalid for this language then an empty QString is returned. This + //! is intended to be used in user preference dialogs. + QString description(int style) const; + + //! Causes all properties to be refreshed by emitting the + //! propertyChanged() signal as required. + void refreshProperties(); + + //! Returns true if trailing blank lines are included in a fold block. + //! + //! \sa setFoldCompact() + bool foldCompact() const {return fold_compact;} + + //! If \a enable is true then initial spaces in a line are allowed. The + //! default is true. + //! + //! \sa initialSpaces() + void setInitialSpaces(bool enable); + + //! Returns true if initial spaces in a line are allowed. + //! + //! \sa setInitialSpaces() + bool initialSpaces() const {return initial_spaces;} + +public slots: + //! If \a fold is true then trailing blank lines are included in a fold + //! block. The default is true. + //! + //! \sa foldCompact() + virtual void setFoldCompact(bool fold); + +protected: + //! The lexer's properties are read from the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + //! \sa writeProperties() + bool readProperties(QSettings &qs,const QString &prefix); + + //! The lexer's properties are written to the settings \a qs. + //! \a prefix (which has a trailing '/') should be used as a prefix to + //! the key of each setting. true is returned if there is no error. + //! + //! \sa readProperties() + bool writeProperties(QSettings &qs,const QString &prefix) const; + +private: + void setCompactProp(); + void setInitialSpacesProp(); + + bool fold_compact; + bool initial_spaces; + + QsciLexerProperties(const QsciLexerProperties &); + QsciLexerProperties &operator=(const QsciLexerProperties &); +}; + +#endif diff --git a/libs/qscintilla/Qt4Qt5/Qsci/qscilexerpython.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerpython.h similarity index 99% rename from libs/qscintilla/Qt4Qt5/Qsci/qscilexerpython.h rename to libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerpython.h index 403280787..240d96efc 100644 --- a/libs/qscintilla/Qt4Qt5/Qsci/qscilexerpython.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerpython.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciLexerPython class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerruby.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerruby.h new file mode 100644 index 000000000..b09c79952 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerruby.h @@ -0,0 +1,240 @@ +// This defines the interface to the QsciLexerRuby class. +// +// Copyright (c) 2023 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 QSCILEXERRUBY_H +#define QSCILEXERRUBY_H + +#include + +#include +#include + + +//! \brief The QsciLexerRuby class encapsulates the Scintilla Ruby lexer. +class QSCINTILLA_EXPORT QsciLexerRuby : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! Ruby lexer. + enum { + //! The default. + Default = 0, + + //! An error. + Error = 1, + + //! A comment. + Comment = 2, + + //! A POD. + POD = 3, + + //! A number. + Number = 4, + + //! A keyword. + Keyword = 5, + + //! A double-quoted string. + DoubleQuotedString = 6, + + //! A single-quoted string. + SingleQuotedString = 7, + + //! The name of a class. + ClassName = 8, + + //! The name of a function or method. + FunctionMethodName = 9, + + //! An operator. + Operator = 10, + + //! An identifier + Identifier = 11, + + //! A regular expression. + Regex = 12, + + //! A global. + Global = 13, + + //! A symbol. + Symbol = 14, + + //! The name of a module. + ModuleName = 15, + + //! An instance variable. + InstanceVariable = 16, + + //! A class variable. + ClassVariable = 17, + + //! Backticks. + Backticks = 18, + + //! A data section. + DataSection = 19, + + //! A here document delimiter. + HereDocumentDelimiter = 20, + + //! A here document. + HereDocument = 21, + + //! A %q string. + PercentStringq = 24, + + //! A %Q string. + PercentStringQ = 25, + + //! A %x string. + PercentStringx = 26, + + //! A %r string. + PercentStringr = 27, + + //! A %w string. + PercentStringw = 28, + + //! A demoted keyword. + DemotedKeyword = 29, + + //! stdin. + Stdin = 30, + + //! stdout. + Stdout = 31, + + //! stderr. + Stderr = 40 + }; + + //! Construct a QsciLexerRuby with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerRuby(QObject *parent = 0); + + //! Destroys the QsciLexerRuby instance. + virtual ~QsciLexerRuby(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! \internal Returns a space separated list of words or characters in + //! a particular style that define the end of a block for + //! auto-indentation. The style is returned via \a style. + const char *blockEnd(int *style = 0) const; + + //! \internal Returns a space separated list of words or characters in + //! a particular style that define the start of a block for + //! auto-indentation. The styles is returned via \a style. + const char *blockStart(int *style = 0) const; + + //! \internal Returns a space separated list of keywords in a + //! particular style that define the start of a block for + //! auto-indentation. The style is returned via \a style. + const char *blockStartKeyword(int *style = 0) const; + + //! \internal Returns the style used for braces for brace matching. + int braceStyle() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultpaper() + QColor defaultColor(int style) const; + + //! Returns the end-of-line fill for style number \a style. + bool defaultEolFill(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the style + //! is invalid for this language then an empty QString is returned. This + //! is intended to be used in user preference dialogs. + QString description(int style) const; + + //! Causes all properties to be refreshed by emitting the + //! propertyChanged() signal as required. + void refreshProperties(); + + //! If \a fold is true then multi-line comment blocks can be folded. + //! The default is false. + //! + //! \sa foldComments() + void setFoldComments(bool fold); + + //! Returns true if multi-line comment blocks can be folded. + //! + //! \sa setFoldComments() + bool foldComments() const {return fold_comments;} + + //! If \a fold is true then trailing blank lines are included in a fold + //! block. The default is true. + //! + //! \sa foldCompact() + void setFoldCompact(bool fold); + + //! Returns true if trailing blank lines are included in a fold block. + //! + //! \sa setFoldCompact() + bool foldCompact() const {return fold_compact;} + +protected: + //! The lexer's properties are read from the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + bool readProperties(QSettings &qs, const QString &prefix); + + //! The lexer's properties are written to the settings \a qs. + //! \a prefix (which has a trailing '/') should be used as a prefix to + //! the key of each setting. true is returned if there is no error. + //! + bool writeProperties(QSettings &qs, const QString &prefix) const; + +private: + void setCommentProp(); + void setCompactProp(); + + bool fold_comments; + bool fold_compact; + + QsciLexerRuby(const QsciLexerRuby &); + QsciLexerRuby &operator=(const QsciLexerRuby &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerspice.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerspice.h new file mode 100644 index 000000000..364ef578c --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerspice.h @@ -0,0 +1,106 @@ +// This defines the interface to the QsciLexerSpice class. +// +// Copyright (c) 2023 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 QSCILEXERSPICE_H +#define QSCILEXERSPICE_H + +#include + +#include +#include + + +//! \brief The QsciLexerSpice class encapsulates the Scintilla Spice lexer. +class QSCINTILLA_EXPORT QsciLexerSpice : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! Spice lexer. + enum { + //! The default. + Default = 0, + + //! An identifier. + Identifier = 1, + + //! A command. + Command = 2, + + //! A function. + Function = 3, + + //! A parameter. + Parameter = 4, + + //! A number. + Number = 5, + + //! A delimiter. + Delimiter = 6, + + //! A value. + Value = 7, + + //! A comment. + Comment = 8 + }; + + //! Construct a QsciLexerSpice with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerSpice(QObject *parent = 0); + + //! Destroys the QsciLexerSpice instance. + virtual ~QsciLexerSpice(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! \internal Returns the style used for braces for brace matching. + int braceStyle() const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + +private: + QsciLexerSpice(const QsciLexerSpice &); + QsciLexerSpice &operator=(const QsciLexerSpice &); +}; + +#endif diff --git a/libs/qscintilla/Qt4Qt5/Qsci/qscilexersql.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexersql.h similarity index 99% rename from libs/qscintilla/Qt4Qt5/Qsci/qscilexersql.h rename to libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexersql.h index 0932d106e..93b64fc67 100644 --- a/libs/qscintilla/Qt4Qt5/Qsci/qscilexersql.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexersql.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciLexerSQL class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexersrec.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexersrec.h new file mode 100644 index 000000000..eee87016c --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexersrec.h @@ -0,0 +1,59 @@ +// This defines the interface to the QsciLexerSRec class. +// +// Copyright (c) 2023 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 QSCILEXERSREC_H +#define QSCILEXERSREC_H + +#include + +#include +#include + + +//! \brief The QsciLexerSRec class encapsulates the Scintilla S-Record lexer. +class QSCINTILLA_EXPORT QsciLexerSRec : public QsciLexerHex +{ + Q_OBJECT + +public: + //! Construct a QsciLexerSRec with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerSRec(QObject *parent = 0); + + //! Destroys the QsciLexerSRec instance. + virtual ~QsciLexerSRec(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. + const char *lexer() const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + +private: + QsciLexerSRec(const QsciLexerSRec &); + QsciLexerSRec &operator=(const QsciLexerSRec &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexertcl.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexertcl.h new file mode 100644 index 000000000..95e98c7e4 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexertcl.h @@ -0,0 +1,189 @@ +// This defines the interface to the QsciLexerTCL class. +// +// Copyright (c) 2023 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 QSCILEXERTCL_H +#define QSCILEXERTCL_H + +#include + +#include +#include + + +//! \brief The QsciLexerTCL class encapsulates the Scintilla TCL lexer. +class QSCINTILLA_EXPORT QsciLexerTCL : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the TCL + //! lexer. + enum { + //! The default. + Default = 0, + + //! A comment. + Comment = 1, + + //! A comment line. + CommentLine = 2, + + //! A number. + Number = 3, + + //! A quoted keyword. + QuotedKeyword = 4, + + //! A quoted string. + QuotedString = 5, + + //! An operator. + Operator = 6, + + //! An identifier + Identifier = 7, + + //! A substitution. + Substitution = 8, + + //! A substitution starting with a brace. + SubstitutionBrace = 9, + + //! A modifier. + Modifier = 10, + + //! Expand keyword (defined in keyword set number 5). + ExpandKeyword = 11, + + //! A TCL keyword (defined in keyword set number 1). + TCLKeyword = 12, + + //! A Tk keyword (defined in keyword set number 2). + TkKeyword = 13, + + //! An iTCL keyword (defined in keyword set number 3). + ITCLKeyword = 14, + + //! A Tk command (defined in keyword set number 4). + TkCommand = 15, + + //! A keyword defined in keyword set number 6. The class must be + //! sub-classed and re-implement keywords() to make use of this style. + KeywordSet6 = 16, + + //! A keyword defined in keyword set number 7. The class must be + //! sub-classed and re-implement keywords() to make use of this style. + KeywordSet7 = 17, + + //! A keyword defined in keyword set number 8. The class must be + //! sub-classed and re-implement keywords() to make use of this style. + KeywordSet8 = 18, + + //! A keyword defined in keyword set number 9. The class must be + //! sub-classed and re-implement keywords() to make use of this style. + KeywordSet9 = 19, + + //! A comment box. + CommentBox = 20, + + //! A comment block. + CommentBlock = 21 + }; + + //! Construct a QsciLexerTCL with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerTCL(QObject *parent = 0); + + //! Destroys the QsciLexerTCL instance. + virtual ~QsciLexerTCL(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! \internal Returns the style used for braces for brace matching. + int braceStyle() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the end-of-line fill for style number \a style. + bool defaultEolFill(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the style + //! is invalid for this language then an empty QString is returned. This + //! is intended to be used in user preference dialogs. + QString description(int style) const; + + //! Causes all properties to be refreshed by emitting the + //! propertyChanged() signal as required. + void refreshProperties(); + + //! If \a fold is true then multi-line comment blocks can be folded. The + //! default is false. + //! + //! \sa foldComments() + void setFoldComments(bool fold); + + //! Returns true if multi-line comment blocks can be folded. + //! + //! \sa setFoldComments() + bool foldComments() const {return fold_comments;} + +protected: + //! The lexer's properties are read from the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + bool readProperties(QSettings &qs,const QString &prefix); + + //! The lexer's properties are written to the settings \a qs. + //! \a prefix (which has a trailing '/') should be used as a prefix to + //! the key of each setting. true is returned if there is no error. + //! + bool writeProperties(QSettings &qs,const QString &prefix) const; + +private: + void setCommentProp(); + + bool fold_comments; + + QsciLexerTCL(const QsciLexerTCL &); + QsciLexerTCL &operator=(const QsciLexerTCL &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexertekhex.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexertekhex.h new file mode 100644 index 000000000..dea5a59ae --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexertekhex.h @@ -0,0 +1,60 @@ +// This defines the interface to the QsciLexerTekHex class. +// +// Copyright (c) 2023 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 QSCILEXERTEKHEX_H +#define QSCILEXERTEKHEX_H + +#include + +#include +#include + + +//! \brief The QsciLexerTekHex class encapsulates the Scintilla Tektronix Hex +//! lexer. +class QSCINTILLA_EXPORT QsciLexerTekHex : public QsciLexerHex +{ + Q_OBJECT + +public: + //! Construct a QsciLexerTekHex with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerTekHex(QObject *parent = 0); + + //! Destroys the QsciLexerTekHex instance. + virtual ~QsciLexerTekHex(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. + const char *lexer() const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + +private: + QsciLexerTekHex(const QsciLexerTekHex &); + QsciLexerTekHex &operator=(const QsciLexerTekHex &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexertex.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexertex.h new file mode 100644 index 000000000..d9abb6460 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexertex.h @@ -0,0 +1,163 @@ +// This defines the interface to the QsciLexerTeX class. +// +// Copyright (c) 2023 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 QSCILEXERTEX_H +#define QSCILEXERTEX_H + +#include + +#include +#include + + +//! \brief The QsciLexerTeX class encapsulates the Scintilla TeX lexer. +class QSCINTILLA_EXPORT QsciLexerTeX : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! TeX lexer. + enum { + //! The default. + Default = 0, + + //! A special. + Special = 1, + + //! A group. + Group = 2, + + //! A symbol. + Symbol = 3, + + //! A command. + Command = 4, + + //! Text. + Text = 5 + }; + + //! Construct a QsciLexerTeX with parent \a parent. \a parent is typically + //! the QsciScintilla instance. + QsciLexerTeX(QObject *parent = 0); + + //! Destroys the QsciLexerTeX instance. + virtual ~QsciLexerTeX(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! Returns the string of characters that comprise a word. + const char *wordCharacters() const; + + //! Returns the foreground colour of the text for style number \a style. + QColor defaultColor(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + + //! Causes all properties to be refreshed by emitting the + //! propertyChanged() signal as required. + void refreshProperties(); + + //! If \a fold is true then multi-line comment blocks can be folded. The + //! default is false. + //! + //! \sa foldComments() + void setFoldComments(bool fold); + + //! Returns true if multi-line comment blocks can be folded. + //! + //! \sa setFoldComments() + bool foldComments() const {return fold_comments;} + + //! If \a fold is true then trailing blank lines are included in a fold + //! block. The default is true. + //! + //! \sa foldCompact() + void setFoldCompact(bool fold); + + //! Returns true if trailing blank lines are included in a fold block. + //! + //! \sa setFoldCompact() + bool foldCompact() const {return fold_compact;} + + //! If \a enable is true then comments are processed as TeX source + //! otherwise they are ignored. The default is false. + //! + //! \sa processComments() + void setProcessComments(bool enable); + + //! Returns true if comments are processed as TeX source. + //! + //! \sa setProcessComments() + bool processComments() const {return process_comments;} + + //! If \a enable is true then \\if processed is processed as a + //! command. The default is true. + //! + //! \sa processIf() + void setProcessIf(bool enable); + + //! Returns true if \\if is processed as a command. + //! + //! \sa setProcessIf() + bool processIf() const {return process_if;} + +protected: + //! The lexer's properties are read from the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + bool readProperties(QSettings &qs, const QString &prefix); + + //! The lexer's properties are written to the settings \a qs. + //! \a prefix (which has a trailing '/') should be used as a prefix to + //! the key of each setting. true is returned if there is no error. + //! + bool writeProperties(QSettings &qs, const QString &prefix) const; + +private: + void setCommentProp(); + void setCompactProp(); + void setProcessCommentsProp(); + void setAutoIfProp(); + + bool fold_comments; + bool fold_compact; + bool process_comments; + bool process_if; + + QsciLexerTeX(const QsciLexerTeX &); + QsciLexerTeX &operator=(const QsciLexerTeX &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerverilog.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerverilog.h new file mode 100644 index 000000000..11e152e4e --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerverilog.h @@ -0,0 +1,257 @@ +// This defines the interface to the QsciLexerVerilog class. +// +// Copyright (c) 2023 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 QSCILEXERVERILOG_H +#define QSCILEXERVERILOG_H + +#include + +#include +#include + + +//! \brief The QsciLexerVerilog class encapsulates the Scintilla Verilog +//! lexer. +class QSCINTILLA_EXPORT QsciLexerVerilog : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! Verilog lexer. + enum { + //! The default. + Default = 0, + InactiveDefault = Default + 64, + + //! A comment. + Comment = 1, + InactiveComment = Comment + 64, + + //! A line comment. + CommentLine = 2, + InactiveCommentLine = CommentLine + 64, + + //! A bang comment. + CommentBang = 3, + InactiveCommentBang = CommentBang + 64, + + //! A number + Number = 4, + InactiveNumber = Number + 64, + + //! A keyword. + Keyword = 5, + InactiveKeyword = Keyword + 64, + + //! A string. + String = 6, + InactiveString = String + 64, + + //! A keyword defined in keyword set number 2. The class must + //! be sub-classed and re-implement keywords() to make use of + //! this style. + KeywordSet2 = 7, + InactiveKeywordSet2 = KeywordSet2 + 64, + + //! A system task. + SystemTask = 8, + InactiveSystemTask = SystemTask + 64, + + //! A pre-processor block. + Preprocessor = 9, + InactivePreprocessor = Preprocessor + 64, + + //! An operator. + Operator = 10, + InactiveOperator = Operator + 64, + + //! An identifier. + Identifier = 11, + InactiveIdentifier = Identifier + 64, + + //! The end of a line where a string is not closed. + UnclosedString = 12, + InactiveUnclosedString = UnclosedString + 64, + + //! A keyword defined in keyword set number 4. The class must + //! be sub-classed and re-implement keywords() to make use of + //! this style. This set is intended to be used for user defined + //! identifiers and tasks. + UserKeywordSet = 19, + InactiveUserKeywordSet = UserKeywordSet + 64, + + //! A keyword comment. + CommentKeyword = 20, + InactiveCommentKeyword = CommentKeyword + 64, + + //! An input port declaration. + DeclareInputPort = 21, + InactiveDeclareInputPort = DeclareInputPort + 64, + + //! An output port declaration. + DeclareOutputPort = 22, + InactiveDeclareOutputPort = DeclareOutputPort + 64, + + //! An input/output port declaration. + DeclareInputOutputPort = 23, + InactiveDeclareInputOutputPort = DeclareInputOutputPort + 64, + + //! A port connection. + PortConnection = 24, + InactivePortConnection = PortConnection + 64, + }; + + //! Construct a QsciLexerVerilog with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerVerilog(QObject *parent = 0); + + //! Destroys the QsciLexerVerilog instance. + virtual ~QsciLexerVerilog(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! \internal Returns the style used for braces for brace matching. + int braceStyle() const; + + //! Returns the string of characters that comprise a word. + const char *wordCharacters() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the end-of-line fill for style number \a style. + bool defaultEolFill(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + + //! Causes all properties to be refreshed by emitting the + //! propertyChanged() signal as required. + void refreshProperties(); + + //! If \a fold is true then "} else {" lines can be folded. The + //! default is false. + //! + //! \sa foldAtElse() + void setFoldAtElse(bool fold); + + //! Returns true if "} else {" lines can be folded. + //! + //! \sa setFoldAtElse() + bool foldAtElse() const {return fold_atelse;} + + //! If \a fold is true then multi-line comment blocks can be folded. + //! The default is false. + //! + //! \sa foldComments() + void setFoldComments(bool fold); + + //! Returns true if multi-line comment blocks can be folded. + //! + //! \sa setFoldComments() + bool foldComments() const {return fold_comments;} + + //! If \a fold is true then trailing blank lines are included in a fold + //! block. The default is true. + //! + //! \sa foldCompact() + void setFoldCompact(bool fold); + + //! Returns true if trailing blank lines are included in a fold block. + //! + //! \sa setFoldCompact() + bool foldCompact() const {return fold_compact;}; + + //! If \a fold is true then preprocessor blocks can be folded. The + //! default is true. + //! + //! \sa foldPreprocessor() + void setFoldPreprocessor(bool fold); + + //! Returns true if preprocessor blocks can be folded. + //! + //! \sa setFoldPreprocessor() + bool foldPreprocessor() const {return fold_preproc;}; + + //! If \a fold is true then modules can be folded. The default is false. + //! + //! \sa foldAtModule() + void setFoldAtModule(bool fold); + + //! Returns true if modules can be folded. + //! + //! \sa setFoldAtModule() + bool foldAtModule() const {return fold_atmodule;}; + +protected: + //! The lexer's properties are read from the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + //! \sa writeProperties() + bool readProperties(QSettings &qs,const QString &prefix); + + //! The lexer's properties are written to the settings \a qs. + //! \a prefix (which has a trailing '/') should be used as a prefix to + //! the key of each setting. true is returned if there is no error. + //! + //! \sa readProperties() + bool writeProperties(QSettings &qs,const QString &prefix) const; + +private: + void setAtElseProp(); + void setCommentProp(); + void setCompactProp(); + void setPreprocProp(); + void setAtModuleProp(); + + bool fold_atelse; + bool fold_comments; + bool fold_compact; + bool fold_preproc; + bool fold_atmodule; + + QsciLexerVerilog(const QsciLexerVerilog &); + QsciLexerVerilog &operator=(const QsciLexerVerilog &); +}; + +#endif diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexervhdl.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexervhdl.h new file mode 100644 index 000000000..b1df141d1 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexervhdl.h @@ -0,0 +1,221 @@ +// This defines the interface to the QsciLexerVHDL class. +// +// Copyright (c) 2023 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 QSCILEXERVHDL_H +#define QSCILEXERVHDL_H + +#include + +#include +#include + + +//! \brief The QsciLexerVHDL class encapsulates the Scintilla VHDL lexer. +class QSCINTILLA_EXPORT QsciLexerVHDL : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! VHDL lexer. + enum { + //! The default. + Default = 0, + + //! A comment. + Comment = 1, + + //! A comment line. + CommentLine = 2, + + //! A number. + Number = 3, + + //! A string. + String = 4, + + //! An operator. + Operator = 5, + + //! An identifier + Identifier = 6, + + //! The end of a line where a string is not closed. + UnclosedString = 7, + + //! A keyword. + Keyword = 8, + + //! A standard operator. + StandardOperator = 9, + + //! An attribute. + Attribute = 10, + + //! A standard function. + StandardFunction = 11, + + //! A standard package. + StandardPackage = 12, + + //! A standard type. + StandardType = 13, + + //! A keyword defined in keyword set number 7. The class must be + //! sub-classed and re-implement keywords() to make use of this style. + KeywordSet7 = 14, + + //! A comment block. + CommentBlock = 15, + }; + + //! Construct a QsciLexerVHDL with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerVHDL(QObject *parent = 0); + + //! Destroys the QsciLexerVHDL instance. + virtual ~QsciLexerVHDL(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! \internal Returns the style used for braces for brace matching. + int braceStyle() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the end-of-line fill for style number \a style. + bool defaultEolFill(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + + //! Causes all properties to be refreshed by emitting the propertyChanged() + //! signal as required. + void refreshProperties(); + + //! Returns true if multi-line comment blocks can be folded. + //! + //! \sa setFoldComments() + bool foldComments() const; + + //! Returns true if trailing blank lines are included in a fold block. + //! + //! \sa setFoldCompact() + bool foldCompact() const; + + //! Returns true if else blocks can be folded. + //! + //! \sa setFoldAtElse() + bool foldAtElse() const; + + //! Returns true if begin blocks can be folded. + //! + //! \sa setFoldAtBegin() + bool foldAtBegin() const; + + //! Returns true if blocks can be folded at a parenthesis. + //! + //! \sa setFoldAtParenthesis() + bool foldAtParenthesis() const; + +public slots: + //! If \a fold is true then multi-line comment blocks can be folded. + //! The default is true. + //! + //! \sa foldComments() + virtual void setFoldComments(bool fold); + + //! If \a fold is true then trailing blank lines are included in a fold + //! block. The default is true. + //! + //! \sa foldCompact() + virtual void setFoldCompact(bool fold); + + //! If \a fold is true then else blocks can be folded. The default is + //! true. + //! + //! \sa foldAtElse() + virtual void setFoldAtElse(bool fold); + + //! If \a fold is true then begin blocks can be folded. The default is + //! true. + //! + //! \sa foldAtBegin() + virtual void setFoldAtBegin(bool fold); + + //! If \a fold is true then blocks can be folded at a parenthesis. The + //! default is true. + //! + //! \sa foldAtParenthesis() + virtual void setFoldAtParenthesis(bool fold); + +protected: + //! The lexer's properties are read from the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + bool readProperties(QSettings &qs,const QString &prefix); + + //! The lexer's properties are written to the settings \a qs. + //! \a prefix (which has a trailing '/') should be used as a prefix to + //! the key of each setting. true is returned if there is no error. + //! + bool writeProperties(QSettings &qs,const QString &prefix) const; + +private: + void setCommentProp(); + void setCompactProp(); + void setAtElseProp(); + void setAtBeginProp(); + void setAtParenthProp(); + + bool fold_comments; + bool fold_compact; + bool fold_atelse; + bool fold_atbegin; + bool fold_atparenth; + + QsciLexerVHDL(const QsciLexerVHDL &); + QsciLexerVHDL &operator=(const QsciLexerVHDL &); +}; + +#endif diff --git a/libs/qscintilla/Qt4Qt5/Qsci/qscilexerxml.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerxml.h similarity index 98% rename from libs/qscintilla/Qt4Qt5/Qsci/qscilexerxml.h rename to libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerxml.h index 6aafedc2b..9d40c6b0e 100644 --- a/libs/qscintilla/Qt4Qt5/Qsci/qscilexerxml.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexerxml.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciLexerXML class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexeryaml.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexeryaml.h new file mode 100644 index 000000000..0e094899f --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscilexeryaml.h @@ -0,0 +1,147 @@ +// This defines the interface to the QsciLexerYAML class. +// +// Copyright (c) 2023 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 QSCILEXERYAML_H +#define QSCILEXERYAML_H + +#include + +#include +#include + + +//! \brief The QsciLexerYAML class encapsulates the Scintilla YAML lexer. +class QSCINTILLA_EXPORT QsciLexerYAML : public QsciLexer +{ + Q_OBJECT + +public: + //! This enum defines the meanings of the different styles used by the + //! YAML lexer. + enum { + //! The default. + Default = 0, + + //! A comment. + Comment = 1, + + //! An identifier. + Identifier = 2, + + //! A keyword + Keyword = 3, + + //! A number. + Number = 4, + + //! A reference. + Reference = 5, + + //! A document delimiter. + DocumentDelimiter = 6, + + //! A text block marker. + TextBlockMarker = 7, + + //! A syntax error marker. + SyntaxErrorMarker = 8, + + //! An operator. + Operator = 9 + }; + + //! Construct a QsciLexerYAML with parent \a parent. \a parent is + //! typically the QsciScintilla instance. + QsciLexerYAML(QObject *parent = 0); + + //! Destroys the QsciLexerYAML instance. + virtual ~QsciLexerYAML(); + + //! Returns the name of the language. + const char *language() const; + + //! Returns the name of the lexer. Some lexers support a number of + //! languages. + const char *lexer() const; + + //! Returns the foreground colour of the text for style number \a style. + //! + //! \sa defaultPaper() + QColor defaultColor(int style) const; + + //! Returns the end-of-line fill for style number \a style. + bool defaultEolFill(int style) const; + + //! Returns the font for style number \a style. + QFont defaultFont(int style) const; + + //! Returns the background colour of the text for style number \a style. + //! + //! \sa defaultColor() + QColor defaultPaper(int style) const; + + //! Returns the set of keywords for the keyword set \a set recognised + //! by the lexer as a space separated string. + const char *keywords(int set) const; + + //! Returns the descriptive name for style number \a style. If the + //! style is invalid for this language then an empty QString is returned. + //! This is intended to be used in user preference dialogs. + QString description(int style) const; + + //! Causes all properties to be refreshed by emitting the propertyChanged() + //! signal as required. + void refreshProperties(); + + //! Returns true if multi-line comment blocks can be folded. + //! + //! \sa setFoldComments() + bool foldComments() const; + +public slots: + //! If \a fold is true then multi-line comment blocks can be folded. + //! The default is false. + //! + //! \sa foldComments() + virtual void setFoldComments(bool fold); + +protected: + //! The lexer's properties are read from the settings \a qs. \a prefix + //! (which has a trailing '/') should be used as a prefix to the key of + //! each setting. true is returned if there is no error. + //! + bool readProperties(QSettings &qs,const QString &prefix); + + //! The lexer's properties are written to the settings \a qs. + //! \a prefix (which has a trailing '/') should be used as a prefix to + //! the key of each setting. true is returned if there is no error. + //! + bool writeProperties(QSettings &qs,const QString &prefix) const; + +private: + void setCommentProp(); + + bool fold_comments; + + QsciLexerYAML(const QsciLexerYAML &); + QsciLexerYAML &operator=(const QsciLexerYAML &); +}; + +#endif diff --git a/libs/qscintilla/Qt4Qt5/Qsci/qscimacro.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscimacro.h similarity index 97% rename from libs/qscintilla/Qt4Qt5/Qsci/qscimacro.h rename to libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscimacro.h index f079fb223..89610a5af 100644 --- a/libs/qscintilla/Qt4Qt5/Qsci/qscimacro.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscimacro.h @@ -1,6 +1,6 @@ // This defines the interface to the QsciMacro class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/Qt4Qt5/Qsci/qsciprinter.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qsciprinter.h similarity index 79% rename from libs/qscintilla/Qt4Qt5/Qsci/qsciprinter.h rename to libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qsciprinter.h index d7457c463..869a8ed0e 100644 --- a/libs/qscintilla/Qt4Qt5/Qsci/qsciprinter.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qsciprinter.h @@ -1,6 +1,6 @@ // This module defines interface to the QsciPrinter class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -64,7 +64,7 @@ class QSCINTILLA_EXPORT QsciPrinter : public QPrinter //! 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() because calling printRange() if you + //! page. Use QPrinter::setFullPage() before 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,11 +81,19 @@ class QSCINTILLA_EXPORT QsciPrinter : public QPrinter //! \sa magnification() virtual void setMagnification(int magnification); - //! 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. + //! 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. 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/Qt4Qt5/Qsci/qsciscintilla.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qsciscintilla.h similarity index 99% rename from libs/qscintilla/Qt4Qt5/Qsci/qsciscintilla.h rename to libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qsciscintilla.h index 0732b4046..ffb9416dc 100644 --- a/libs/qscintilla/Qt4Qt5/Qsci/qsciscintilla.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qsciscintilla.h @@ -1,7 +1,7 @@ // This module defines the "official" high-level API of the Qt port of // Scintilla. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -842,6 +842,13 @@ class QSCINTILLA_EXPORT QsciScintilla : public QsciScintillaBase //! \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() @@ -2217,7 +2224,6 @@ private slots: 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); @@ -2236,7 +2242,7 @@ private slots: QString wordAtPosition(int position) const; - ScintillaBytes styleText(const QList &styled_text, + QByteArray styleText(const QList &styled_text, char **styles, int style_offset = 0); struct FindState diff --git a/libs/qscintilla/Qt4Qt5/Qsci/qsciscintillabase.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qsciscintillabase.h similarity index 99% rename from libs/qscintilla/Qt4Qt5/Qsci/qsciscintillabase.h rename to libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qsciscintillabase.h index ac9b6d30e..606c8badc 100644 --- a/libs/qscintilla/Qt4Qt5/Qsci/qsciscintillabase.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qsciscintillabase.h @@ -1,6 +1,6 @@ // This class defines the "official" low-level API. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -3845,16 +3845,15 @@ class QSCINTILLA_EXPORT QsciScintillaBase : public QAbstractScrollArea //! \internal This helps to work around some Scintilla bugs. void setScrollBars(); - //! \internal Qt4, Qt5 portability. - typedef QByteArray ScintillaBytes; - -#define ScintillaBytesConstData(b) (b).constData() - //! \internal Convert a QString to encoded bytes. - ScintillaBytes textAsBytes(const QString &text) const; + QByteArray textAsBytes(const QString &text) const; //! \internal Convert encoded bytes to a QString. - QString bytesAsText(const char *bytes) const; + QString bytesAsText(const char *bytes, int size) const; + + //! Give access to the text convertors. + friend class QsciAccessibleScintillaBase; + friend class QsciLexer; //! \internal A helper for QsciScintilla::contextMenuEvent(). bool contextMenuNeeded(int x, int y) const; @@ -3862,7 +3861,6 @@ class QSCINTILLA_EXPORT QsciScintillaBase : public QAbstractScrollArea 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. @@ -3874,9 +3872,7 @@ private slots: int preeditPos; int preeditNrBytes; QString preeditString; -#if QT_VERSION >= 0x050000 bool clickCausedFocus; -#endif void connectHorizontalScrollBar(); void connectVerticalScrollBar(); diff --git a/libs/qscintilla/Qt4Qt5/Qsci/qscistyle.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscistyle.h similarity index 98% rename from libs/qscintilla/Qt4Qt5/Qsci/qscistyle.h rename to libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscistyle.h index f4f9ad34d..c6eb7ed87 100644 --- a/libs/qscintilla/Qt4Qt5/Qsci/qscistyle.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscistyle.h @@ -1,6 +1,6 @@ // This module defines interface to the QsciStyle class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/Qt4Qt5/Qsci/qscistyledtext.h b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscistyledtext.h similarity index 96% rename from libs/qscintilla/Qt4Qt5/Qsci/qscistyledtext.h rename to libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscistyledtext.h index cdb7776f3..4298f2bc0 100644 --- a/libs/qscintilla/Qt4Qt5/Qsci/qscistyledtext.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/Qsci/qscistyledtext.h @@ -1,6 +1,6 @@ // This module defines interface to the QsciStyledText class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/Qt4Qt5/SciAccessibility.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/SciAccessibility.cpp similarity index 95% rename from libs/qscintilla/Qt4Qt5/SciAccessibility.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/SciAccessibility.cpp index d4d25a5c6..5c4d67c64 100644 --- a/libs/qscintilla/Qt4Qt5/SciAccessibility.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/SciAccessibility.cpp @@ -1,6 +1,6 @@ // The implementation of the class that implements accessibility support. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -113,7 +113,7 @@ void QsciAccessibleScintillaBase::textInserted(QsciScintillaBase *sb, { Q_ASSERT(text); - QString new_text = bytesAsText(sb, text, length); + QString new_text = sb->bytesAsText(text, length); int offset = positionAsOffset(sb, position); QAccessibleTextInsertEvent ev(sb, offset, new_text); @@ -220,7 +220,7 @@ void QsciAccessibleScintillaBase::textDeleted(QsciScintillaBase *sb, { Q_ASSERT(text); - QString old_text = bytesAsText(sb, text, length); + QString old_text = sb->bytesAsText(text, length); int offset = positionAsOffset(sb, position); QAccessibleTextRemoveEvent ev(sb, offset, old_text); @@ -359,29 +359,7 @@ QString QsciAccessibleScintillaBase::textRange(QsciScintillaBase *sb, sb->SendScintilla(QsciScintillaBase::SCI_GETTEXTRANGE, start_position, end_position, bytes.data()); - return bytesAsText(sb, bytes.constData(), bytes.size() - 1); -} - - -// Convert bytes to text. -QString QsciAccessibleScintillaBase::bytesAsText(QsciScintillaBase *sb, - const char *bytes, int length) -{ - if (sb->SendScintilla(QsciScintillaBase::SCI_GETCODEPAGE) == QsciScintillaBase::SC_CP_UTF8) - return QString::fromUtf8(bytes, length); - - return QString::fromLatin1(bytes, length); -} - - -// Convert text to bytes. -QByteArray QsciAccessibleScintillaBase::textAsBytes(QsciScintillaBase *sb, - const QString &text) -{ - if (sb->SendScintilla(QsciScintillaBase::SCI_GETCODEPAGE) == QsciScintillaBase::SC_CP_UTF8) - return text.toUtf8(); - - return text.toLatin1(); + return sb->bytesAsText(bytes.constData(), bytes.size() - 1); } @@ -528,7 +506,8 @@ 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.width(ch), metrics.height()); + QRect rect(x_vport, y_vport, metrics.horizontalAdvance(ch), + metrics.height()); rect.moveTo(sb->viewport()->mapToGlobal(rect.topLeft())); return rect; @@ -701,7 +680,7 @@ void QsciAccessibleScintillaBase::insertText(int offset, const QString &text) QsciScintillaBase *sb = sciWidget(); sb->SendScintilla(QsciScintillaBase::SCI_INSERTTEXT, - offsetAsPosition(sb, offset), textAsBytes(sb, text).constData()); + offsetAsPosition(sb, offset), sb->textAsBytes(text).constData()); } @@ -713,7 +692,7 @@ void QsciAccessibleScintillaBase::replaceText(int startOffset, int endOffset, addSelection(startOffset, endOffset); sb->SendScintilla(QsciScintillaBase::SCI_REPLACESEL, - textAsBytes(sb, text).constData()); + sb->textAsBytes(text).constData()); } diff --git a/libs/qscintilla/Qt4Qt5/SciAccessibility.h b/libs/qscintilla_2.14.1/Qt5Qt6/SciAccessibility.h similarity index 94% rename from libs/qscintilla/Qt4Qt5/SciAccessibility.h rename to libs/qscintilla_2.14.1/Qt5Qt6/SciAccessibility.h index 2f0dd10e2..e4b4ba595 100644 --- a/libs/qscintilla/Qt4Qt5/SciAccessibility.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/SciAccessibility.h @@ -1,6 +1,6 @@ // The definition of the class that implements accessibility support. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -102,9 +102,6 @@ class QsciAccessibleScintillaBase : public QAccessibleWidget, int *end_position); static QString textRange(QsciScintillaBase *sb, int start_position, int end_position); - static QString bytesAsText(QsciScintillaBase *sb, const char *bytes, - int length); - static QByteArray textAsBytes(QsciScintillaBase *sb, const QString &text); static int positionAsOffset(QsciScintillaBase *sb, int position); static void positionRangeAsOffsetRange(QsciScintillaBase *sb, int start_position, int end_position, int *startOffset, diff --git a/libs/qscintilla/Qt4Qt5/SciClasses.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/SciClasses.cpp similarity index 96% rename from libs/qscintilla/Qt4Qt5/SciClasses.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/SciClasses.cpp index 825c04e2f..438965a9e 100644 --- a/libs/qscintilla/Qt4Qt5/SciClasses.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/SciClasses.cpp @@ -1,7 +1,7 @@ // The implementation of various Qt version independent classes used by the // rest of the port. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -129,11 +129,7 @@ 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/Qt4Qt5/SciClasses.h b/libs/qscintilla_2.14.1/Qt5Qt6/SciClasses.h similarity index 97% rename from libs/qscintilla/Qt4Qt5/SciClasses.h rename to libs/qscintilla_2.14.1/Qt5Qt6/SciClasses.h index d837bd1fd..d5e9e0867 100644 --- a/libs/qscintilla/Qt4Qt5/SciClasses.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/SciClasses.h @@ -1,7 +1,7 @@ // The definition of various Qt version independent classes used by the rest of // the port. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/Qt4Qt5/ScintillaQt.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/ScintillaQt.cpp similarity index 96% rename from libs/qscintilla/Qt4Qt5/ScintillaQt.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/ScintillaQt.cpp index 8a354e275..e10556004 100644 --- a/libs/qscintilla/Qt4Qt5/ScintillaQt.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/ScintillaQt.cpp @@ -1,6 +1,6 @@ // The implementation of the Qt specific subclass of ScintillaBase. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -137,6 +137,10 @@ 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())); } @@ -158,11 +162,7 @@ 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,17 +573,15 @@ void QsciScintillaQt::AddToPopUp(const char *label, int cmd, bool enabled) } -// Claim the selection. +// Claim the (primary) selection. void QsciScintillaQt::ClaimSelection() { + QClipboard *cb = QApplication::clipboard(); bool isSel = !sel.Empty(); - if (isSel) + if (cb->supportsSelection()) { - QClipboard *cb = QApplication::clipboard(); - - // If we support X11 style selection then make it available now. - if (cb->supportsSelection()) + if (isSel) { Scintilla::SelectionText text; @@ -591,12 +589,14 @@ void QsciScintillaQt::ClaimSelection() if (text.Data()) cb->setMimeData(mimeSelection(text), QClipboard::Selection); - } - primarySelection = true; + primarySelection = true; + } + else + { + primarySelection = false; + } } - else - primarySelection = false; #if !defined(QT_NO_ACCESSIBILITY) QsciAccessibleScintillaBase::selectionChanged(qsb, isSel); @@ -606,12 +606,14 @@ void QsciScintillaQt::ClaimSelection() } -// Unclaim the selection. -void QsciScintillaQt::UnclaimSelection() +// Unclaim the (primary) selection. +void QsciScintillaQt::onSelectionChanged() { - if (primarySelection) + bool new_primary = QApplication::clipboard()->ownsSelection(); + + if (primarySelection != new_primary) { - primarySelection = false; + primarySelection = new_primary; qsb->viewport()->update(); } } diff --git a/libs/qscintilla/Qt4Qt5/ScintillaQt.h b/libs/qscintilla_2.14.1/Qt5Qt6/ScintillaQt.h similarity index 97% rename from libs/qscintilla/Qt4Qt5/ScintillaQt.h rename to libs/qscintilla_2.14.1/Qt5Qt6/ScintillaQt.h index 7e8db32de..c34229152 100644 --- a/libs/qscintilla/Qt4Qt5/ScintillaQt.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/ScintillaQt.h @@ -1,6 +1,6 @@ // The definition of the Qt specific subclass of ScintillaBase. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -106,6 +106,7 @@ class QsciScintillaQt : public QObject, public Scintilla::ScintillaBase private slots: void onIdle(); + void onSelectionChanged(); private: void Initialise(); diff --git a/libs/qscintilla/Qt4Qt5/features/qscintilla2.prf b/libs/qscintilla_2.14.1/Qt5Qt6/features/qscintilla2.prf similarity index 75% rename from libs/qscintilla/Qt4Qt5/features/qscintilla2.prf rename to libs/qscintilla_2.14.1/Qt5Qt6/features/qscintilla2.prf index e7aba1512..731bb3253 100644 --- a/libs/qscintilla/Qt4Qt5/features/qscintilla2.prf +++ b/libs/qscintilla_2.14.1/Qt5Qt6/features/qscintilla2.prf @@ -1,9 +1,7 @@ -greaterThan(QT_MAJOR_VERSION, 4) { - QT += widgets printsupport - - greaterThan(QT_MINOR_VERSION, 1) { - macx:QT += macextras - } +QT += widgets +!ios:QT += printsupport +macx:lessThan(QT_MAJOR_VERSION, 6) { + QT += macextras } DEFINES += QSCINTILLA_DLL diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/features_staticlib/qscintilla2.prf b/libs/qscintilla_2.14.1/Qt5Qt6/features_staticlib/qscintilla2.prf new file mode 100644 index 000000000..18a806d1c --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/features_staticlib/qscintilla2.prf @@ -0,0 +1,23 @@ +QT += widgets +!ios:QT += printsupport +macx:lessThan(QT_MAJOR_VERSION, 6) { + QT += macextras +} + +INCLUDEPATH += $$[QT_INSTALL_HEADERS] + +LIBS += -L$$[QT_INSTALL_LIBS] + +CONFIG(debug, debug|release) { + mac: { + LIBS += -lqscintilla2_qt$${QT_MAJOR_VERSION}_debug + } else { + win32: { + LIBS += -lqscintilla2_qt$${QT_MAJOR_VERSION}d + } else { + LIBS += -lqscintilla2_qt$${QT_MAJOR_VERSION} + } + } +} else { + LIBS += -lqscintilla2_qt$${QT_MAJOR_VERSION} +} diff --git a/libs/qscintilla/Qt4Qt5/qsciabstractapis.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qsciabstractapis.cpp similarity index 95% rename from libs/qscintilla/Qt4Qt5/qsciabstractapis.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/qsciabstractapis.cpp index d9a770bad..6f17d6e86 100644 --- a/libs/qscintilla/Qt4Qt5/qsciabstractapis.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qsciabstractapis.cpp @@ -1,6 +1,6 @@ // This module implements the QsciAbstractAPIs class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/Qt4Qt5/qsciapis.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qsciapis.cpp similarity index 98% rename from libs/qscintilla/Qt4Qt5/qsciapis.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/qsciapis.cpp index 94ba323c8..d4abccc09 100644 --- a/libs/qscintilla/Qt4Qt5/qsciapis.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qsciapis.cpp @@ -1,6 +1,6 @@ // This module implements the QsciAPIs class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -20,6 +20,8 @@ #include +#include + #include "Qsci/qsciapis.h" #include @@ -600,14 +602,8 @@ void QsciAPIs::autoCompletionSelected(const QString &selection) owords = path.mid(1, path.length() - 2); } - 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 = std::lower_bound(prep->raw_apis.begin(), prep->raw_apis.end(), + owords); origin_len = owords.length(); } diff --git a/libs/qscintilla/Qt4Qt5/qscicommand.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscicommand.cpp similarity index 98% rename from libs/qscintilla/Qt4Qt5/qscicommand.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/qscicommand.cpp index b82f62c76..840c3bc31 100644 --- a/libs/qscintilla/Qt4Qt5/qscicommand.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscicommand.cpp @@ -1,6 +1,6 @@ // This module implements the QsciCommand class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/Qt4Qt5/qscicommandset.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscicommandset.cpp similarity index 98% rename from libs/qscintilla/Qt4Qt5/qscicommandset.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/qscicommandset.cpp index 7f2bbef5e..18bea3a83 100644 --- a/libs/qscintilla/Qt4Qt5/qscicommandset.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscicommandset.cpp @@ -1,6 +1,6 @@ // This module implements the QsciCommandSet class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -885,14 +885,12 @@ 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); - skey.sprintf("%s/keymap/c%d/", prefix, - static_cast(cmd->command())); + QString skey = QString("%1/keymap/c%2/").arg(prefix).arg(static_cast(cmd->command())); int key; bool ok; @@ -924,14 +922,12 @@ 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); - skey.sprintf("%s/keymap/c%d/", prefix, - static_cast(cmd->command())); + QString skey = QString("%1/keymap/c%2/").arg(prefix).arg(static_cast(cmd->command())); // Write the key. qs.setValue(skey + "key", cmd->key()); diff --git a/libs/qscintilla/Qt4Qt5/qscidocument.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscidocument.cpp similarity index 98% rename from libs/qscintilla/Qt4Qt5/qscidocument.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/qscidocument.cpp index 4f00cfe54..895ed3466 100644 --- a/libs/qscintilla/Qt4Qt5/qscidocument.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscidocument.cpp @@ -1,6 +1,6 @@ // This module implements the QsciDocument class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/Qt4Qt5/qscilexer.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexer.cpp similarity index 95% rename from libs/qscintilla/Qt4Qt5/qscilexer.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/qscilexer.cpp index bea560b58..c9576c703 100644 --- a/libs/qscintilla/Qt4Qt5/qscilexer.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexer.cpp @@ -1,6 +1,6 @@ // This module implements the QsciLexer class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 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.sprintf("%s/%s/style%d/",prefix,language(),i); + key = QString("%1/%2/style%3/").arg(prefix).arg(language()).arg(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.sprintf("%s/%s/properties/",prefix,language()); + key = QString("%1/%2/properties/").arg(prefix).arg(language()); if (!readProperties(qs,key)) rc = false; @@ -462,7 +462,7 @@ bool QsciLexer::readSettings(QSettings &qs,const char *prefix) refreshProperties(); // Read the rest. - key.sprintf("%s/%s/",prefix,language()); + key = QString("%1/%2/").arg(prefix).arg(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.sprintf("%s/%s/style%d/",prefix,language(),i); + key = QString("%1/%2/style%3/").arg(prefix).arg(language()).arg(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.sprintf("%s/%s/properties/",prefix,language()); + key = QString("%1/%2/properties/").arg(prefix).arg(language()); if (!writeProperties(qs,key)) rc = false; // Write the rest. - key.sprintf("%s/%s/",prefix,language()); + key = QString("%1/%2/").arg(prefix).arg(language()); // Write the default foreground colour. num = (defColor.red() << 16) | (defColor.green() << 8) | defColor.blue(); @@ -729,3 +729,21 @@ void QsciLexer::setPaper(const QColor &c, int style) emit paperChanged(c, QsciScintillaBase::STYLE_DEFAULT); } } + + +// Encode a QString as bytes. +QByteArray QsciLexer::textAsBytes(const QString &text) const +{ + Q_ASSERT(attached_editor); + + return attached_editor->textAsBytes(text); +} + + +// Decode bytes as a QString. +QString QsciLexer::bytesAsText(const char *bytes, int size) const +{ + Q_ASSERT(attached_editor); + + return attached_editor->bytesAsText(bytes, size); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerasm.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerasm.cpp new file mode 100644 index 000000000..237564411 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerasm.cpp @@ -0,0 +1,575 @@ +// This module implements the abstract QsciLexerAsm class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexerasm.h" + +#include +#include +#include + + +// The ctor. Note that we choose not to support explicit fold points. +QsciLexerAsm::QsciLexerAsm(QObject *parent) + : QsciLexer(parent), + fold_comments(true), fold_compact(true), comment_delimiter('~'), + fold_syntax_based(true) +{ +} + + +// The dtor. +QsciLexerAsm::~QsciLexerAsm() +{ +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerAsm::defaultColor(int style) const +{ + switch (style) + { + case Comment: + case BlockComment: + return QColor(0x00, 0x7f, 0x00); + + case Number: + return QColor(0x00, 0x7f, 0x7f); + + case DoubleQuotedString: + case SingleQuotedString: + return QColor(0x7f, 0x00, 0x7f); + + case Operator: + case UnclosedString: + return QColor(0x00, 0x00, 0x00); + + case CPUInstruction: + return QColor(0x00, 0x00, 0x7f); + + case FPUInstruction: + case Directive: + case DirectiveOperand: + return QColor(0x00, 0x00, 0xff); + + case Register: + return QColor(0x46, 0xaa, 0x03); + + case ExtendedInstruction: + return QColor(0xb0, 0x00, 0x40); + + case CommentDirective: + return QColor(0x66, 0xaa, 0x00); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the end-of-line fill for a style. +bool QsciLexerAsm::defaultEolFill(int style) const +{ + if (style == UnclosedString) + return true; + + return QsciLexer::defaultEolFill(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerAsm::defaultFont(int style) const +{ + QFont f; + + switch (style) + { + case Operator: + case CPUInstruction: + case Register: + f = QsciLexer::defaultFont(style); + f.setBold(true); + break; + + case Comment: + case BlockComment: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + break; + + default: + f = QsciLexer::defaultFont(style); + } + + return f; +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerAsm::defaultPaper(int style) const +{ + if (style == UnclosedString) + return QColor(0xe0, 0xc0, 0xe0); + + return QsciLexer::defaultPaper(style); +} + + +// Returns the set of keywords. +const char *QsciLexerAsm::keywords(int set) const +{ + if (set == 1) + return + "aaa aad aam aas daa das " + "ja jae jb jbe jc jcxz je jg jge jl jle jmp jna jnae jnb jnbe jnc " + "jne jng jnge jnl jnle jno jnp jns jnz jo jp jpe jpo js jz jcxz " + "jecxz jrcxz loop loope loopne loopz loopnz call ret " + "add sub adc sbb neg cmp inc dec and or xor not test shl shr sal " + "sar shld shrd rol ror rcl rcr cbw cwd cwde cdq cdqe cqo bsf bsr " + "bt btc btr bts idiv imul div mul bswap nop " + "lea mov movsx movsxd movzx xlatb bound xchg xadd cmpxchg " + "cmpxchg8b cmpxchg16b " + "push pop pushad popad pushf popf pushfd popfd pushfq popfq " + "seta setae setb setbe setc sete setg setge setl setle setna " + "setnae setnb setnbe setnc setne setng setnge setnl setnle setno " + "setnp setns setnz seto setp setpe setpo sets setz salc " + "clc cld stc std cmc lahf sahf " + "cmovo cmovno cmovb cmovc cmovnae cmovae cmovnb cmovnc cmove " + "cmovz cmovne cmovnz cmovbe cmovna cmova cmovnbe cmovs cmovns " + "cmovp cmovpe cmovnp cmovpo cmovl cmovnge cmovge cmovnl cmovle " + "cmovng cmovg cmovnle " + "lock rep repe repz repne repnz " + "cmpsb cmpsw cmpsq movsb movsw movsq scasb scasw scasd scasq " + "stosb stosw stosd stosq " + "cpuid rdtsc rdtscp rdpmc xgetbv " + "llwpcb slwpcb lwpval lwpins " + "crc32 popcnt lzcnt tzcnt movbe pclmulqdq rdrand " + "andn bextr blsi blsmk blsr " + "bzhi mulx pdep pext rorx sarx shlx shrx"; + + if (set == 2) + return + "f2xm1 fabs fadd faddp fbld fbstp fchs fclex fcom fcomp fcompp " + "fdecstp fdisi fdiv fdivp fdivr fdivrp feni ffree fiadd ficom " + "ficomp fidiv fidivr fild fimul fincstp finit fist fistp fisub " + "fisubr fld fld1 fldcw fldenv fldenvw fldl2e fldl2t fldlg2 fldln2 " + "fldpi fldz fmul fmulp fnclex fndisi fneni fninit fnop fnsave " + "fnsavew fnstcw fnstenv fnstenvw fnstsw fpatan fprem fptan " + "frndint frstor frstorw fsave fsavew fscale fsqrt fst fstcw " + "fstenv fstenvw fstp fstsw fsub fsubp fsubr fsubrp ftst fwait " + "fxam fxch fxtract fyl2x fyl2xp1 fsetpm fcos fldenvd fnsaved " + "fnstenvd fprem1 frstord fsaved fsin fsincos fstenvd fucom fucomp " + "fucompp fcomi fcomip fucomi fucomip ffreep fcmovb fcmove fcmovbe " + "fcmovu fcmovnb fcmovne fcmovnbe fcmovnu"; + + if (set == 3) + return + "al ah bl bh cl ch dl dh ax bx cx dx si di bp eax ebx ecx edx esi " + "edi ebx esp st0 st1 st2 st3 st4 st5 st6 st7 mm0 mm1 mm2 mm3 mm4 " + "mm5 mm6 mm7 xmm0 xmm1 xmm2 xmm3 xmm4 xmm5 xmm6 xmm7 ymm0 ymm1 " + "ymm2 ymm3 ymm4 ymm5 ymm6 ymm7 fs " + "sil dil bpl r8b r9b r10b r11b r12b r13b r14b r15b r8w r9w r10w " + "r11w r12w r13w r14w r15w rax rcx rdx rbx rsp rbp rsi rdi r8 r9 " + "r10 r11 r12 r13 r14 r15 xmm8 xmm9 xmm10 xmm11 xmm12 xmm13 xmm14 " + "xmm15 ymm8 ymm9 ymm10 ymm11 ymm12 ymm13 ymm14 ymm15 gs"; + + if (set == 4) + return + "db dw dd dq dt do dy resb resw resd resq rest reso resy incbin " + "equ times safeseh __utf16__ __utf32__ %+ default cpu float start " + "imagebase osabi ..start ..imagebase ..gotpc ..gotoff ..gottpoff " + "..got ..plt ..sym ..tlsie section segment __sect__ group " + "absolute .bss .comment .data .lbss .ldata .lrodata .rdata " + ".rodata .tbss .tdata .text alloc bss code exec data noalloc " + "nobits noexec nowrite progbits rdata tls write private public " + "common stack overlay class extern global common import export " + "%define %idefine %xdefine %ixdefine %assign %undef %? %?? " + "%defstr %idefstr %deftok %ideftok %strcat %strlen %substr %macro " + "%imacro %rmacro %exitmacro %endmacro %unmacro %if %ifn %elif " + "%elifn %else %endif %ifdef %ifndef %elifdef %elifndef %ifmacro " + "%ifnmacro %elifmacro %elifnmacro %ifctx %ifnctx %elifctx " + "%elifnctx %ifidn %ifnidn %elifidn %elifnidn %ifidni %ifnidni " + "%elifidni %elifnidni %ifid %ifnid %elifid %elifnid %ifnum " + "%ifnnum %elifnum %elifnnum %ifstr %ifnstr %elifstr %elifnstr " + "%iftoken %ifntoken %eliftoken %elifntoken %ifempty %elifempty " + "%ifnempty %elifnempty %ifenv %ifnenv %elifenv %elifnenv %rep " + "%exitrep %endrep %while %exitwhile %endwhile %include " + "%pathsearch %depend %use %push %pop %repl %arg %local %stacksize " + "flat flat64 large small %error %warning %fatal %00 .nolist " + "%rotate %line %! %final %clear struc endstruc istruc at iend " + "align alignb sectalign bits use16 use32 use64 __nasm_major__ " + "__nasm_minor__ __nasm_subminor__ ___nasm_patchlevel__ " + "__nasm_version_id__ __nasm_ver__ __file__ __line__ __pass__ " + "__bits__ __output_format__ __date__ __time__ __date_num__ " + "__time_num__ __posix_time__ __utc_date__ __utc_time__ " + "__utc_date_num__ __utc_time_num__ __float_daz__ __float_round__ " + "__float__ __use_altreg__ altreg __use_smartalign__ smartalign " + "__alignmode__ __use_fp__ __infinity__ __nan__ __qnan__ __snan__ " + "__float8__ __float16__ __float32__ __float64__ __float80m__ " + "__float80e__ __float128l__ __float128h__"; + + if (set == 5) + return + "a16 a32 a64 o16 o32 o64 strict byte word dword qword tword oword " + "yword nosplit %0 %1 %2 %3 %4 %5 %6 %7 %8 %9 abs rel $ $$ seg wrt"; + + if (set == 6) + return + "movd movq paddb paddw paddd paddsb paddsw paddusb paddusw psubb " + "psubw psubd psubsb psubsw psubusb psubusw pand pandn por pxor " + "pcmpeqb pcmpeqd pcmpeqw pcmpgtb pcmpgtd pcmpgtw pmaddwd pmulhw " + "pmullw psllw pslld psllq psrlw psrld psrlq psraw psrad packuswb " + "packsswb packssdw punpcklbw punpcklwd punpckldq punpckhbw " + "punpckhwd punpckhdq emms " + "pavgb pavgw pextrw pinsrw pmovmskb pmaxsw pmaxub pminsw pminub " + "pmulhuw psadbw pshufw prefetchnta prefetcht0 prefetcht1 " + "prefetcht2 maskmovq movntq sfence " + "paddsiw psubsiw pmulhrw pmachriw pmulhriw pmagw pdistib paveb " + "pmvzb pmvnzb pmvlzb pmvgezb " + "pfacc pfadd pfsub pfsubr pfmul pfcmpeq pfcmpge pfcmpgt pfmax " + "pfmin pfrcp pfrcpit1 pfrcpit2 pfrsqit1 pfrsqrt pi2fd pf2id " + "pavgusb pmulhrw femms " + "pfnacc pfpnacc pi2fw pf2iw pswapd " + "pfrsqrtv pfrcpv " + "prefetch prefetchw " + "addss addps subss subps mulss mulps divss divps sqrtss sqrtps " + "rcpss rcpps rsqrtss rsqrtps maxss maxps minss minps cmpss comiss " + "ucomiss cmpps cmpeqss cmpltss cmpless cmpunordss cmpneqss " + "cmpnltss cmpnless cmpordss cmpeqps cmpltps cmpleps cmpunordps " + "cmpneqps cmpnltps cmpnleps cmpordps andnps andps orps xorps " + "cvtsi2ss cvtss2si cvttss2si cvtpi2ps cvtps2pi cvttps2pi movss " + "movlps movhps movlhps movhlps movaps movups movntps movmskps " + "shufps unpckhps unpcklps ldmxcsr stmxcsr " + "addpd addsd subpd subsd mulsd mulpd divsd divpd sqrtsd sqrtpd " + "maxsd maxpd minsd minpd cmpsd comisd ucomisd cmppd cmpeqsd " + "cmpltsd cmplesd cmpunordsd cmpneqsd cmpnltsd cmpnlesd cmpordsd " + "cmpeqpd cmpltpd cmplepd cmpunordpd cmpneqpd cmpnltpd cmpnlepd " + "cmpordpd andnpd andpd orpd xorpd cvtsd2ss cvtpd2ps cvtss2sd " + "cvtps2pd cvtdq2ps cvtps2dq cvttps2dq cvtdq2pd cvtpd2dq cvttpd2dq " + "cvtsi2sd cvtsd2si cvttsd2si cvtpi2pd cvtpd2pi cvttpd2pi movsd " + "movlpd movhpd movapd movupd movntpd movmskpd shufpd unpckhpd " + "unpcklpd movnti movdqa movdqu movntdq maskmovdqu movdq2q movq2dq " + "paddq psubq pmuludq pslldq psrldq punpcklqdq punpckhqdq pshufhw " + "pshuflw pshufd lfence mfence " + "addsubps addsubpd haddps haddpd hsubps hsubpd movsldup movshdup " + "movddup lddqu fisttp " + "psignb psignw psignd pabsb pabsw pabsd palignr pshufb pmulhrsw " + "pmaddubsw phaddw phaddd phaddsw phsubw phsubd phsubsw " + "extrq insertq movntsd movntss " + "mpsadbw phminposuw pmuldq pmulld dpps dppd blendps blendpd " + "blendvps blendvpd pblendvb pblendw pmaxsb pmaxuw pmaxsd pmaxud " + "pminsb pminuw pminsd pminud roundps roundss roundpd roundsd " + "insertps pinsrb pinsrd pinsrq extractps pextrb pextrd pextrq " + "pmovsxbw pmovsxbd pmovsxbq pmovsxwd pmovsxwq pmovsxdq pmovzxbw " + "pmovzxbd pmovzxbq pmovzxwd pmovzxwq pmovzxdq ptest pcmpeqq " + "packusdw movntdqa " + "pcmpgtq pcmpestri pcmpestrm pcmpistri pcmpistrm " + "aesenc aesenclast aesdec aesdeclast aeskeygenassist aesimc " + "xcryptcbc xcryptcfb xcryptctr xcryptecb xcryptofb xsha1 xsha256 " + "montmul xstore " + "vaddss vaddps vaddsd vaddpd vsubss vsubps vsubsd vsubpd " + "vaddsubps vaddsubpd vhaddps vhaddpd vhsubps vhsubpd vmulss " + "vmulps vmulsd vmulpd vmaxss vmaxps vmaxsd vmaxpd vminss vminps " + "vminsd vminpd vandps vandpd vandnps vandnpd vorps vorpd vxorps " + "vxorpd vblendps vblendpd vblendvps vblendvpd vcmpss vcomiss " + "vucomiss vcmpsd vcomisd vucomisd vcmpps vcmppd vcmpeqss vcmpltss " + "vcmpless vcmpunordss vcmpneqss vcmpnltss vcmpnless vcmpordss " + "vcmpeq_uqss vcmpngess vcmpngtss vcmpfalsess vcmpneq_oqss " + "vcmpgess vcmpgtss vcmptruess vcmpeq_osss vcmplt_oqss vcmple_oqss " + "vcmpunord_sss vcmpneq_usss vcmpnlt_uqss vcmpnle_uqss vcmpord_sss " + "vcmpeq_usss vcmpnge_uqss vcmpngt_uqss vcmpfalse_osss " + "vcmpneq_osss vcmpge_oqss vcmpgt_oqss vcmptrue_usss vcmpeqps " + "vcmpltps vcmpleps vcmpunordps vcmpneqps vcmpnltps vcmpnleps " + "vcmpordps vcmpeq_uqps vcmpngeps vcmpngtps vcmpfalseps " + "vcmpneq_oqps vcmpgeps vcmpgtps vcmptrueps vcmpeq_osps " + "vcmplt_oqps vcmple_oqps vcmpunord_sps vcmpneq_usps vcmpnlt_uqps " + "vcmpnle_uqps vcmpord_sps vcmpeq_usps vcmpnge_uqps vcmpngt_uqps " + "vcmpfalse_osps vcmpneq_osps vcmpge_oqps vcmpgt_oqps " + "vcmptrue_usps vcmpeqsd vcmpltsd vcmplesd vcmpunordsd vcmpneqsd " + "vcmpnltsd vcmpnlesd vcmpordsd vcmpeq_uqsd vcmpngesd vcmpngtsd " + "vcmpfalsesd vcmpneq_oqsd vcmpgesd vcmpgtsd vcmptruesd " + "vcmpeq_ossd vcmplt_oqsd vcmple_oqsd vcmpunord_ssd vcmpneq_ussd " + "vcmpnlt_uqsd vcmpnle_uqsd vcmpord_ssd vcmpeq_ussd vcmpnge_uqsd " + "vcmpngt_uqsd vcmpfalse_ossd vcmpneq_ossd vcmpge_oqsd vcmpgt_oqsd " + "vcmptrue_ussd vcmpeqpd vcmpltpd vcmplepd vcmpunordpd vcmpneqpd " + "vcmpnltpd vcmpnlepd vcmpordpd vcmpeq_uqpd vcmpngepd vcmpngtpd " + "vcmpfalsepd vcmpneq_oqpd vcmpgepd vcmpgtpd vcmptruepd " + "vcmpeq_ospd vcmplt_oqpd vcmple_oqpd vcmpunord_spd vcmpneq_uspd " + "vcmpnlt_uqpd vcmpnle_uqpd vcmpord_spd vcmpeq_uspd vcmpnge_uqpd " + "vcmpngt_uqpd vcmpfalse_ospd vcmpneq_ospd vcmpge_oqpd vcmpgt_oqpd " + "vcmptrue_uspd vcvtsd2ss vcvtpd2ps vcvtss2sd vcvtps2pd vcvtsi2ss " + "vcvtss2si vcvttss2si vcvtpi2ps vcvtps2pi vcvttps2pi vcvtdq2ps " + "vcvtps2dq vcvttps2dq vcvtdq2pd vcvtpd2dq vcvttpd2dq vcvtsi2sd " + "vcvtsd2si vcvttsd2si vcvtpi2pd vcvtpd2pi vcvttpd2pi vdivss " + "vdivps vdivsd vdivpd vsqrtss vsqrtps vsqrtsd vsqrtpd vdpps vdppd " + "vmaskmovps vmaskmovpd vmovss vmovsd vmovaps vmovapd vmovups " + "vmovupd vmovntps vmovntpd vmovhlps vmovlhps vmovlps vmovlpd " + "vmovhps vmovhpd vmovsldup vmovshdup vmovddup vmovmskps vmovmskpd " + "vroundss vroundps vroundsd vroundpd vrcpss vrcpps vrsqrtss " + "vrsqrtps vunpcklps vunpckhps vunpcklpd vunpckhpd vbroadcastss " + "vbroadcastsd vbroadcastf128 vextractps vinsertps vextractf128 " + "vinsertf128 vshufps vshufpd vpermilps vpermilpd vperm2f128 " + "vtestps vtestpd vpaddb vpaddusb vpaddsb vpaddw vpaddusw vpaddsw " + "vpaddd vpaddq vpsubb vpsubusb vpsubsb vpsubw vpsubusw vpsubsw " + "vpsubd vpsubq vphaddw vphaddsw vphaddd vphsubw vphsubsw vphsubd " + "vpsllw vpslld vpsllq vpsrlw vpsrld vpsrlq vpsraw vpsrad vpand " + "vpandn vpor vpxor vpblendwb vpblendw vpsignb vpsignw vpsignd " + "vpavgb vpavgw vpabsb vpabsw vpabsd vmovd vmovq vmovdqa vmovdqu " + "vlddqu vmovntdq vmovntdqa vmaskmovdqu vpmovsxbw vpmovsxbd " + "vpmovsxbq vpmovsxwd vpmovsxwq vpmovsxdq vpmovzxbw vpmovzxbd " + "vpmovzxbq vpmovzxwd vpmovzxwq vpmovzxdq vpackuswb vpacksswb " + "vpackusdw vpackssdw vpcmpeqb vpcmpeqw vpcmpeqd vpcmpeqq vpcmpgtb " + "vpcmpgtw vpcmpgtd vpcmpgtq vpmaddubsw vpmaddwd vpmullw vpmulhuw " + "vpmulhw vpmulhrsw vpmulld vpmuludq vpmuldq vpmaxub vpmaxsb " + "vpmaxuw vpmaxsw vpmaxud vpmaxsd vpminub vpminsb vpminuw vpminsw " + "vpminud vpminsd vpmovmskb vptest vpunpcklbw vpunpcklwd " + "vpunpckldq vpunpcklqdq vpunpckhbw vpunpckhwd vpunpckhdq " + "vpunpckhqdq vpslldq vpsrldq vpalignr vpshufb vpshuflw vpshufhw " + "vpshufd vpextrb vpextrw vpextrd vpextrq vpinsrb vpinsrw vpinsrd " + "vpinsrq vpsadbw vmpsadbw vphminposuw vpcmpestri vpcmpestrm " + "vpcmpistri vpcmpistrm vpclmulqdq vaesenc vaesenclast vaesdec " + "vaesdeclast vaeskeygenassist vaesimc vldmxcsr vstmxcsr vzeroall " + "vzeroupper " + "vbroadcasti128 vpbroadcastb vpbroadcastw vpbroadcastd " + "vpbroadcastq vpblendd vpermd vpermq vperm2i128 vextracti128 " + "vinserti128 vpmaskmovd vpmaskmovq vpsllvd vpsllvq vpsravd " + "vpsrlvd vpsrldq vpgatherdd vpgatherqd vgatherdq vgatherqq " + "vpermps vpermpd vgatherdpd vgatherqpd vgatherdps vgatherqps " + "vfrczss vfrczps vfrczsd vfrczpd vpermil2ps vperlil2pd vtestps " + "vtestpd vpcomub vpcomb vpcomuw vpcomw vpcomud vpcomd vpcomuq " + "vpcomq vphaddubw vphaddbw vphaddubd vphaddbd vphaddubq vphaddbq " + "vphadduwd vphaddwd vphadduwq vphaddwq vphaddudq vphadddq " + "vphsubbw vphsubwd vphsubdq vpmacsdd vpmacssdd vpmacsdql " + "vpmacssdql vpmacsdqh vpmacssdqh vpmacsww vpmacssww vpmacswd " + "vpmacsswd vpmadcswd vpmadcsswd vpcmov vpperm vprotb vprotw " + "vprotd vprotq vpshab vpshaw vpshad vpshaq vpshlb vpshlw vpshld " + "vpshlq " + "vcvtph2ps vcvtps2ph " + "vfmaddss vfmaddps vfmaddsd vfmaddpd vfmsubss vfmsubps vfmsubsd " + "vfmsubpd vnfmaddss vnfmaddps vnfmaddsd vnfmaddpd vnfmsubss " + "vnfmsubps vnfmsubsd vnfmsubpd vfmaddsubps vfmaddsubpd " + "vfmsubaddps vfmsubaddpd " + "vfmadd132ss vfmadd213ss vfmadd231ss vfmadd132ps vfmadd213ps " + "vfmadd231ps vfmadd132sd vfmadd213sd vfmadd231sd vfmadd132pd " + "vfmadd213pd vfmadd231pd vfmaddsub132ps vfmaddsub213ps " + "vfmaddsub231ps vfmaddsub132pd vfmaddsub213pd vfmaddsub231pd " + "vfmsubadd132ps vfmsubadd213ps vfmsubadd231ps vfmsubadd132pd " + "vfmsubadd213pd vfmsubadd231pd vfmsub132ss vfmsub213ss " + "vfmsub231ss vfmsub132ps vfmsub213ps vfmsub231ps vfmsub132sd " + "vfmsub213sd vfmsub231sd vfmsub132pd vfmsub213pd vfmsub231pd " + "vfnmadd132ss vfnmadd213ss vfnmadd231ss vfnmadd132ps vfnmadd213ps " + "vfnmadd231ps vfnmadd132sd vfnmadd213sd vfnmadd231sd vfnmadd132pd " + "vfnmadd213pd vfnmadd231pd vfnmsub132ss vfnmsub213ss vfnmsub231ss " + "vfnmsub132ps vfnmsub213ps vfnmsub231ps vfnmsub132sd vfnmsub213sd " + "vfnmsub231sd vfnmsub132pd vfnmsub213pd vfnmsub231pd"; + + return 0; +} + + +// Returns the user name of a style. +QString QsciLexerAsm::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Comment: + return tr("Comment"); + + case Number: + return tr("Number"); + + case DoubleQuotedString: + return tr("Double-quoted string"); + + case Operator: + return tr("Operator"); + + case Identifier: + return tr("Identifier"); + + case CPUInstruction: + return tr("CPU instruction"); + + case FPUInstruction: + return tr("FPU instruction"); + + case Register: + return tr("Register"); + + case Directive: + return tr("Directive"); + + case DirectiveOperand: + return tr("Directive operand"); + + case BlockComment: + return tr("Block comment"); + + case SingleQuotedString: + return tr("Single-quoted string"); + + case UnclosedString: + return tr("Unclosed string"); + + case ExtendedInstruction: + return tr("Extended instruction"); + + case CommentDirective: + return tr("Comment directive"); + } + + return QString(); +} + + +// Refresh all properties. +void QsciLexerAsm::refreshProperties() +{ + setCommentProp(); + setCompactProp(); + setCommentDelimiterProp(); + setSyntaxBasedProp(); +} + + +// Read properties from the settings. +bool QsciLexerAsm::readProperties(QSettings &qs,const QString &prefix) +{ + fold_comments = qs.value(prefix + "foldcomments", true).toBool(); + fold_compact = qs.value(prefix + "foldcompact", true).toBool(); + comment_delimiter = qs.value(prefix + "commentdelimiter", + QChar('~')).toChar(); + fold_syntax_based = qs.value(prefix + "foldsyntaxbased", true).toBool(); + + return true; +} + + +// Write properties to the settings. +bool QsciLexerAsm::writeProperties(QSettings &qs,const QString &prefix) const +{ + qs.setValue(prefix + "foldcomments", fold_comments); + qs.setValue(prefix + "foldcompact", fold_compact); + qs.setValue(prefix + "commentdelimiter", comment_delimiter); + qs.setValue(prefix + "foldsyntaxbased", fold_syntax_based); + + return true; +} + + +// Return true if comments can be folded. +bool QsciLexerAsm::foldComments() const +{ + return fold_comments; +} + + +// Set if comments can be folded. +void QsciLexerAsm::setFoldComments(bool fold) +{ + fold_comments = fold; + + setCommentProp(); +} + + +// Set the "fold.asm.comment.multiline" property. +void QsciLexerAsm::setCommentProp() +{ + emit propertyChanged("fold.asm.comment.multiline", + (fold_comments ? "1" : "0")); +} + + +// Return true if folds are compact. +bool QsciLexerAsm::foldCompact() const +{ + return fold_compact; +} + + +// Set if folds are compact. +void QsciLexerAsm::setFoldCompact(bool fold) +{ + fold_compact = fold; + + setCompactProp(); +} + + +// Set the "fold.compact" property. +void QsciLexerAsm::setCompactProp() +{ + emit propertyChanged("fold.compact", (fold_compact ? "1" : "0")); +} + + +// Return the comment delimiter. +QChar QsciLexerAsm::commentDelimiter() const +{ + return comment_delimiter; +} + + +// Set the comment delimiter. +void QsciLexerAsm::setCommentDelimiter(QChar delimiter) +{ + comment_delimiter = delimiter; + + setCommentDelimiterProp(); +} + + +// Set the "lexer.asm.comment.delimiter" property. +void QsciLexerAsm::setCommentDelimiterProp() +{ + emit propertyChanged("lexer.asm.comment.delimiter", + textAsBytes(QString(comment_delimiter)).constData()); +} + + +// Return true if folds are syntax-based. +bool QsciLexerAsm::foldSyntaxBased() const +{ + return fold_syntax_based; +} + + +// Set if folds are syntax-based. +void QsciLexerAsm::setFoldSyntaxBased(bool syntax_based) +{ + fold_syntax_based = syntax_based; + + setSyntaxBasedProp(); +} + + +// Set the "fold.asm.syntax.based" property. +void QsciLexerAsm::setSyntaxBasedProp() +{ + emit propertyChanged("fold.asm.syntax.based", + (fold_syntax_based ? "1" : "0")); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexeravs.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexeravs.cpp new file mode 100644 index 000000000..b741b072d --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexeravs.cpp @@ -0,0 +1,414 @@ +// This module implements the QsciLexerAVS class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexeravs.h" + +#include +#include +#include + + +// The ctor. +QsciLexerAVS::QsciLexerAVS(QObject *parent) + : QsciLexer(parent), + fold_comments(false), fold_compact(true) +{ +} + + +// The dtor. +QsciLexerAVS::~QsciLexerAVS() +{ +} + + +// Returns the language name. +const char *QsciLexerAVS::language() const +{ + return "AVS"; +} + + +// Returns the lexer name. +const char *QsciLexerAVS::lexer() const +{ + return "avs"; +} + + +// Return the style used for braces. +int QsciLexerAVS::braceStyle() const +{ + return Operator; +} + + +// Return the string of characters that comprise a word. +const char *QsciLexerAVS::wordCharacters() const +{ + return "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_#"; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerAVS::defaultColor(int style) const +{ + switch (style) + { + case Default: + case Operator: + return QColor(0x00, 0x00, 0x00); + + case BlockComment: + case NestedBlockComment: + case LineComment: + return QColor(0x00, 0x7f, 0x00); + + case Number: + case Function: + return QColor(0x00, 0x7f, 0x7f); + + case String: + case TripleString: + return QColor(0x7f, 0x00, 0x7f); + + case Keyword: + case Filter: + case ClipProperty: + return QColor(0x00, 0x00, 0x7f); + + case Plugin: + return QColor(0x00, 0x80, 0xc0); + + case KeywordSet6: + return QColor(0x80, 0x00, 0xff); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerAVS::defaultFont(int style) const +{ + QFont f; + + switch (style) + { + case BlockComment: + case NestedBlockComment: + case LineComment: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS", 9); +#elif defined(Q_OS_MAC) + f = QFont("Georgia", 13); +#else + f = QFont("Bitstream Vera Serif", 9); +#endif + break; + + case Keyword: + case Filter: + case Plugin: + f = QsciLexer::defaultFont(style); + f.setBold(true); + break; + + default: + f = QsciLexer::defaultFont(style); + } + + return f; +} + + +// Returns the set of keywords. +const char *QsciLexerAVS::keywords(int set) const +{ + if (set == 1) + return "true false return global"; + + if (set == 2) + return + "addborders alignedsplice amplify amplifydb animate applyrange " + "assumebff assumefieldbased assumefps assumeframebased " + "assumesamplerate assumescaledfps assumetff audiodub audiodubex " + "avifilesource avisource bicubicresize bilinearresize " + "blackmanresize blackness blankclip blur bob cache changefps " + "colorbars colorkeymask coloryuv compare complementparity " + "conditionalfilter conditionalreader convertaudio " + "convertaudioto16bit convertaudioto24bit convertaudioto32bit " + "convertaudioto8bit convertaudiotofloat convertbacktoyuy2 " + "convertfps converttobackyuy2 converttomono converttorgb " + "converttorgb24 converttorgb32 converttoy8 converttoyv16 " + "converttoyv24 converttoyv411 converttoyuy2 converttoyv12 crop " + "cropbottom delayaudio deleteframe dissolve distributor " + "doubleweave duplicateframe ensurevbrmp3sync fadein fadein0 " + "fadein2 fadeio fadeio0 fadeio2 fadeout fadeout0 fadeout2 " + "fixbrokenchromaupsampling fixluminance fliphorizontal " + "flipvertical frameevaluate freezeframe gaussresize " + "generalconvolution getchannel getchannels getmtmode getparity " + "grayscale greyscale histogram horizontalreduceby2 imagereader " + "imagesource imagewriter info interleave internalcache " + "internalcachemt invert killaudio killvideo lanczos4resize " + "lanczosresize layer letterbox levels limiter loop mask maskhs " + "max merge mergeargb mergechannels mergechroma mergeluma mergergb " + "messageclip min mixaudio monotostereo normalize null " + "opendmlsource overlay peculiarblend pointresize pulldown " + "reduceby2 resampleaudio resetmask reverse rgbadjust scriptclip " + "segmentedavisource segmenteddirectshowsource selecteven " + "selectevery selectodd selectrangeevery separatefields setmtmode " + "sharpen showalpha showblue showfiveversions showframenumber " + "showgreen showred showsmpte showtime sincresize skewrows " + "spatialsoften spline16resize spline36resize spline64resize ssrc " + "stackhorizontal stackvertical subtitle subtract supereq " + "swapfields swapuv temporalsoften timestretch tone trim turn180 " + "turnleft turnright tweak unalignedsplice utoy utoy8 version " + "verticalreduceby2 vtoy vtoy8 wavsource weave writefile " + "writefileend writefileif writefilestart ytouv"; + + if (set == 3) + return + "addgrain addgrainc agc_hdragc analyzelogo animeivtc asharp " + "audiograph autocrop autoyuy2 avsrecursion awarpsharp " + "bassaudiosource bicublinresize bifrost binarize blendfields " + "blindpp blockbuster bordercontrol cfielddiff cframediff " + "chromashift cnr2 colormatrix combmask contra convolution3d " + "convolution3dyv12 dctfilter ddcc deblendlogo deblock deblock_qed " + "decimate decomb dedup deen deflate degrainmedian depan " + "depanestimate depaninterleave depanscenes depanstabilize " + "descratch despot dfttest dgbob dgsource directshowsource " + "distancefunction dss2 dup dupmc edeen edgemask ediupsizer eedi2 " + "eedi3 eedi3_rpow2 expand faerydust fastbicubicresize " + "fastbilinearresize fastediupsizer dedgemask fdecimate " + "ffaudiosource ffdshow ffindex ffmpegsource ffmpegsource2 " + "fft3dfilter fft3dgpu ffvideosource fielddeinterlace fielddiff " + "fillmargins fity2uv fity2u fity2v fitu2y fitv2y fluxsmooth " + "fluxsmoothst fluxsmootht framediff framenumber frfun3b frfun7 " + "gicocu golddust gradfun2db grapesmoother greedyhma grid " + "guavacomb hqdn3d hybridfupp hysteresymask ibob " + "improvesceneswitch inflate inpand inpaintlogo interframe " + "interlacedresize interlacedwarpedresize interleaved2planar " + "iscombed iscombedt iscombedtivtc kerneldeint leakkernelbob " + "leakkerneldeint limitedsharpen limitedsharpenfaster logic lsfmod " + "lumafilter lumayv12 manalyse maskeddeinterlace maskedmerge " + "maskedmix mblockfps mcompensate mctemporaldenoise " + "mctemporaldenoisepp mdegrain1 mdegrain2 mdegrain3 mdepan " + "medianblur mergehints mflow mflowblur mflowfps mflowinter " + "minblur mipsmooth mmask moderatesharpen monitorfilter motionmask " + "mpasource mpeg2source mrecalculate mscdetection msharpen mshow " + "msmooth msu_fieldshiftfixer msu_frc msuper mt mt_adddiff " + "mt_average mt_binarize mt_circle mt_clamp mt_convolution " + "mt_deflate mt_diamond mt_edge mt_ellipse mt_expand " + "mt_freeellipse mt_freelosange mt_freerectangle mt_hysteresis " + "mt_infix mt_inflate mt_inpand mt_invert mt_logic mt_losange " + "mt_lut mt_lutf mt_luts mt_lutspa mt_lutsx mt_lutxy mt_lutxyz " + "mt_makediff mt_mappedblur mt_merge mt_motion mt_polish " + "mt_rectangle mt_square mti mtsource multidecimate mvanalyse " + "mvblockfps mvchangecompensate mvcompensate mvdegrain1 mvdegrain2 " + "mvdegrain3 mvdenoise mvdepan mvflow mvflowblur mvflowfps " + "mvflowfps2 mvflowinter mvincrease mvmask mvrecalculate " + "mvscdetection mvshow nicac3source nicdtssource niclpcmsource " + "nicmpasource nicmpg123source nnedi nnedi2 nnedi2_rpow2 nnedi3 " + "nnedi3_rpow2 nomosmooth overlaymask peachsmoother pixiedust " + "planar2interleaved qtgmc qtinput rawavsource rawsource " + "reduceflicker reinterpolate411 removedirt removedust removegrain " + "removegrainhd removetemporalgrain repair requestlinear " + "reversefielddominance rgb3dlut rgdeinterlace rgsdeinterlace " + "rgblut rotate sangnom seesaw sharpen2 showchannels " + "showcombedtivtc smartdecimate smartdeinterlace smdegrain " + "smoothdeinterlace smoothuv soothess soxfilter spacedust sshiq " + "ssim ssiq stmedianfilter t3dlut tanisotropic tbilateral tcanny " + "tcomb tcombmask tcpserver tcpsource tdecimate tdeint tedgemask " + "telecide temporalcleaner temporalrepair temporalsmoother " + "tfieldblank tfm tisophote tivtc tmaskblank tmaskedmerge " + "tmaskedmerge3 tmm tmonitor tnlmeans tomsmocomp toon textsub " + "ttempsmooth ttempsmoothf tunsharp unblock uncomb undot unfilter " + "unsharpmask vaguedenoiser variableblur verticalcleaner " + "videoscope vinverse vobsub vqmcalc warpedresize warpsharp " + "xsharpen yadif yadifmod yuy2lut yv12convolution " + "yv12interlacedreduceby2 yv12interlacedselecttopfields yv12layer " + "yv12lut yv12lutxy yv12substract yv12torgb24 yv12toyuy2"; + + if (set == 4) + return + "abs apply assert bool ceil chr clip continueddenominator " + "continuednumerator cos default defined eval averagechromau " + "averagechromav averageluma chromaudifference chromavdifference " + "lumadifference exist exp findstr float floor frac hexvalue " + "import int isbool isclip isfloat isint isstring lcase leftstr " + "load_stdcall_plugin loadcplugin loadplugin loadvfapiplugin " + "loadvirtualdubplugin log midstr muldiv nop opt_allowfloataudio " + "opt_avipadscanlines opt_dwchannelmask opt_usewaveextensible " + "opt_vdubplanarhack pi pow rand revstr rightstr round scriptdir " + "scriptfile scriptname select setmemorymax " + "setplanarlegacyalignment rgbdifference rgbdifferencefromprevious " + "rgbdifferencetonext udifferencefromprevious udifferencetonext " + "setworkingdir sign sin spline sqrt string strlen time ucase " + "undefined value versionnumber versionstring uplanemax " + "uplanemedian uplanemin uplaneminmaxdifference " + "vdifferencefromprevious vdifferencetonext vplanemax vplanemedian " + "vplanemin vplaneminmaxdifference ydifferencefromprevious " + "ydifferencetonext yplanemax yplanemedian yplanemin " + "yplaneminmaxdifference"; + + if (set == 5) + return + "audiobits audiochannels audiolength audiolengthf audiorate " + "framecount framerate frameratedenominator frameratenumerator " + "getleftchannel getrightchannel hasaudio hasvideo height " + "isaudiofloat isaudioint isfieldbased isframebased isinterleaved " + "isplanar isrgb isrgb24 isrgb32 isyuv isyuy2 isyv12 width"; + + return 0; +} + + +// Returns the user name of a style. +QString QsciLexerAVS::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case BlockComment: + return tr("Block comment"); + + case NestedBlockComment: + return tr("Nested block comment"); + + case LineComment: + return tr("Line comment"); + + case Number: + return tr("Number"); + + case Operator: + return tr("Operator"); + + case Identifier: + return tr("Identifier"); + + case String: + return tr("Double-quoted string"); + + case TripleString: + return tr("Triple double-quoted string"); + + case Keyword: + return tr("Keyword"); + + case Filter: + return tr("Filter"); + + case Plugin: + return tr("Plugin"); + + case Function: + return tr("Function"); + + case ClipProperty: + return tr("Clip property"); + + case KeywordSet6: + return tr("User defined"); + } + + return QString(); +} + + +// Refresh all properties. +void QsciLexerAVS::refreshProperties() +{ + setCommentProp(); + setCompactProp(); +} + + +// Read properties from the settings. +bool QsciLexerAVS::readProperties(QSettings &qs,const QString &prefix) +{ + int rc = true; + + fold_comments = qs.value(prefix + "foldcomments", false).toBool(); + fold_compact = qs.value(prefix + "foldcompact", true).toBool(); + + return rc; +} + + +// Write properties to the settings. +bool QsciLexerAVS::writeProperties(QSettings &qs,const QString &prefix) const +{ + int rc = true; + + qs.setValue(prefix + "foldcomments", fold_comments); + qs.setValue(prefix + "foldcompact", fold_compact); + + return rc; +} + + +// Return true if comments can be folded. +bool QsciLexerAVS::foldComments() const +{ + return fold_comments; +} + + +// Set if comments can be folded. +void QsciLexerAVS::setFoldComments(bool fold) +{ + fold_comments = fold; + + setCommentProp(); +} + + +// Set the "fold.comment" property. +void QsciLexerAVS::setCommentProp() +{ + emit propertyChanged("fold.comment",(fold_comments ? "1" : "0")); +} + + +// Return true if folds are compact. +bool QsciLexerAVS::foldCompact() const +{ + return fold_compact; +} + + +// Set if folds are compact +void QsciLexerAVS::setFoldCompact(bool fold) +{ + fold_compact = fold; + + setCompactProp(); +} + + +// Set the "fold.compact" property. +void QsciLexerAVS::setCompactProp() +{ + emit propertyChanged("fold.compact",(fold_compact ? "1" : "0")); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerbash.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerbash.cpp new file mode 100644 index 000000000..8a866c53d --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerbash.cpp @@ -0,0 +1,350 @@ +// This module implements the QsciLexerBash class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexerbash.h" + +#include +#include +#include + + +// The ctor. +QsciLexerBash::QsciLexerBash(QObject *parent) + : QsciLexer(parent), fold_comments(false), fold_compact(true) +{ +} + + +// The dtor. +QsciLexerBash::~QsciLexerBash() +{ +} + + +// Returns the language name. +const char *QsciLexerBash::language() const +{ + return "Bash"; +} + + +// Returns the lexer name. +const char *QsciLexerBash::lexer() const +{ + return "bash"; +} + + +// Return the style used for braces. +int QsciLexerBash::braceStyle() const +{ + return Operator; +} + + +// Return the string of characters that comprise a word. +const char *QsciLexerBash::wordCharacters() const +{ + return "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_$@%&"; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerBash::defaultColor(int style) const +{ + switch (style) + { + case Default: + return QColor(0x80,0x80,0x80); + + case Error: + case Backticks: + return QColor(0xff,0xff,0x00); + + case Comment: + return QColor(0x00,0x7f,0x00); + + case Number: + return QColor(0x00,0x7f,0x7f); + + case Keyword: + return QColor(0x00,0x00,0x7f); + + case DoubleQuotedString: + case SingleQuotedString: + case SingleQuotedHereDocument: + return QColor(0x7f,0x00,0x7f); + + case Operator: + case Identifier: + case Scalar: + case ParameterExpansion: + case HereDocumentDelimiter: + return QColor(0x00,0x00,0x00); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the end-of-line fill for a style. +bool QsciLexerBash::defaultEolFill(int style) const +{ + switch (style) + { + case SingleQuotedHereDocument: + return true; + } + + return QsciLexer::defaultEolFill(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerBash::defaultFont(int style) const +{ + QFont f; + + switch (style) + { + case Comment: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + break; + + case Keyword: + case Operator: + f = QsciLexer::defaultFont(style); + f.setBold(true); + break; + + case DoubleQuotedString: + case SingleQuotedString: +#if defined(Q_OS_WIN) + f = QFont("Courier New",10); +#elif defined(Q_OS_MAC) + f = QFont("Courier", 12); +#else + f = QFont("Bitstream Vera Sans Mono",9); +#endif + break; + + default: + f = QsciLexer::defaultFont(style); + } + + return f; +} + + +// Returns the set of keywords. +const char *QsciLexerBash::keywords(int set) const +{ + if (set == 1) + return + "alias ar asa awk banner basename bash bc bdiff break " + "bunzip2 bzip2 cal calendar case cat cc cd chmod " + "cksum clear cmp col comm compress continue cp cpio " + "crypt csplit ctags cut date dc dd declare deroff dev " + "df diff diff3 dircmp dirname do done du echo ed " + "egrep elif else env esac eval ex exec exit expand " + "export expr false fc fgrep fi file find fmt fold for " + "function functions getconf getopt getopts grep gres " + "hash head help history iconv id if in integer jobs " + "join kill local lc let line ln logname look ls m4 " + "mail mailx make man mkdir more mt mv newgrp nl nm " + "nohup ntps od pack paste patch pathchk pax pcat perl " + "pg pr print printf ps pwd read readonly red return " + "rev rm rmdir sed select set sh shift size sleep sort " + "spell split start stop strings strip stty sum " + "suspend sync tail tar tee test then time times touch " + "tr trap true tsort tty type typeset ulimit umask " + "unalias uname uncompress unexpand uniq unpack unset " + "until uudecode uuencode vi vim vpax wait wc whence " + "which while who wpaste wstart xargs zcat " + + "chgrp chown chroot dir dircolors factor groups " + "hostid install link md5sum mkfifo mknod nice pinky " + "printenv ptx readlink seq sha1sum shred stat su tac " + "unlink users vdir whoami yes"; + + return 0; +} + + +// Returns the user name of a style. +QString QsciLexerBash::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Error: + return tr("Error"); + + case Comment: + return tr("Comment"); + + case Number: + return tr("Number"); + + case Keyword: + return tr("Keyword"); + + case DoubleQuotedString: + return tr("Double-quoted string"); + + case SingleQuotedString: + return tr("Single-quoted string"); + + case Operator: + return tr("Operator"); + + case Identifier: + return tr("Identifier"); + + case Scalar: + return tr("Scalar"); + + case ParameterExpansion: + return tr("Parameter expansion"); + + case Backticks: + return tr("Backticks"); + + case HereDocumentDelimiter: + return tr("Here document delimiter"); + + case SingleQuotedHereDocument: + return tr("Single-quoted here document"); + } + + return QString(); +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerBash::defaultPaper(int style) const +{ + switch (style) + { + case Error: + return QColor(0xff,0x00,0x00); + + case Scalar: + return QColor(0xff,0xe0,0xe0); + + case ParameterExpansion: + return QColor(0xff,0xff,0xe0); + + case Backticks: + return QColor(0xa0,0x80,0x80); + + case HereDocumentDelimiter: + case SingleQuotedHereDocument: + return QColor(0xdd,0xd0,0xdd); + } + + return QsciLexer::defaultPaper(style); +} + + +// Refresh all properties. +void QsciLexerBash::refreshProperties() +{ + setCommentProp(); + setCompactProp(); +} + + +// Read properties from the settings. +bool QsciLexerBash::readProperties(QSettings &qs, const QString &prefix) +{ + int rc = true; + + fold_comments = qs.value(prefix + "foldcomments", false).toBool(); + fold_compact = qs.value(prefix + "foldcompact", true).toBool(); + + return rc; +} + + +// Write properties to the settings. +bool QsciLexerBash::writeProperties(QSettings &qs, const QString &prefix) const +{ + int rc = true; + + qs.setValue(prefix + "foldcomments", fold_comments); + qs.setValue(prefix + "foldcompact", fold_compact); + + return rc; +} + + +// Return true if comments can be folded. +bool QsciLexerBash::foldComments() const +{ + return fold_comments; +} + + +// Set if comments can be folded. +void QsciLexerBash::setFoldComments(bool fold) +{ + fold_comments = fold; + + setCommentProp(); +} + + +// Set the "fold.comment" property. +void QsciLexerBash::setCommentProp() +{ + emit propertyChanged("fold.comment", (fold_comments ? "1" : "0")); +} + + +// Return true if folds are compact. +bool QsciLexerBash::foldCompact() const +{ + return fold_compact; +} + + +// Set if folds are compact +void QsciLexerBash::setFoldCompact(bool fold) +{ + fold_compact = fold; + + setCompactProp(); +} + + +// Set the "fold.compact" property. +void QsciLexerBash::setCompactProp() +{ + emit propertyChanged("fold.compact", (fold_compact ? "1" : "0")); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerbatch.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerbatch.cpp new file mode 100644 index 000000000..d722482fc --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerbatch.cpp @@ -0,0 +1,212 @@ +// This module implements the QsciLexerBatch class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexerbatch.h" + +#include +#include +#include + + +// The ctor. +QsciLexerBatch::QsciLexerBatch(QObject *parent) + : QsciLexer(parent) +{ +} + + +// The dtor. +QsciLexerBatch::~QsciLexerBatch() +{ +} + + +// Returns the language name. +const char *QsciLexerBatch::language() const +{ + return "Batch"; +} + + +// Returns the lexer name. +const char *QsciLexerBatch::lexer() const +{ + return "batch"; +} + + +// Return the string of characters that comprise a word. +const char *QsciLexerBatch::wordCharacters() const +{ + return "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-"; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerBatch::defaultColor(int style) const +{ + switch (style) + { + case Default: + case Operator: + return QColor(0x00,0x00,0x00); + + case Comment: + return QColor(0x00,0x7f,0x00); + + case Keyword: + case ExternalCommand: + return QColor(0x00,0x00,0x7f); + + case Label: + return QColor(0x7f,0x00,0x7f); + + case HideCommandChar: + return QColor(0x7f,0x7f,0x00); + + case Variable: + return QColor(0x80,0x00,0x80); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the end-of-line fill for a style. +bool QsciLexerBatch::defaultEolFill(int style) const +{ + switch (style) + { + case Label: + return true; + } + + return QsciLexer::defaultEolFill(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerBatch::defaultFont(int style) const +{ + QFont f; + + switch (style) + { + case Comment: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + break; + + case Keyword: + f = QsciLexer::defaultFont(style); + f.setBold(true); + break; + + case ExternalCommand: +#if defined(Q_OS_WIN) + f = QFont("Courier New",10); +#elif defined(Q_OS_MAC) + f = QFont("Courier", 12); +#else + f = QFont("Bitstream Vera Sans Mono",9); +#endif + f.setBold(true); + break; + + default: + f = QsciLexer::defaultFont(style); + } + + return f; +} + + +// Returns the set of keywords. +const char *QsciLexerBatch::keywords(int set) const +{ + if (set == 1) + return + "rem set if exist errorlevel for in do break call " + "chcp cd chdir choice cls country ctty date del " + "erase dir echo exit goto loadfix loadhigh mkdir md " + "move path pause prompt rename ren rmdir rd shift " + "time type ver verify vol com con lpt nul"; + + return 0; +} + + +// Return the case sensitivity. +bool QsciLexerBatch::caseSensitive() const +{ + return false; +} + + +// Returns the user name of a style. +QString QsciLexerBatch::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Comment: + return tr("Comment"); + + case Keyword: + return tr("Keyword"); + + case Label: + return tr("Label"); + + case HideCommandChar: + return tr("Hide command character"); + + case ExternalCommand: + return tr("External command"); + + case Variable: + return tr("Variable"); + + case Operator: + return tr("Operator"); + } + + return QString(); +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerBatch::defaultPaper(int style) const +{ + switch (style) + { + case Label: + return QColor(0x60,0x60,0x60); + } + + return QsciLexer::defaultPaper(style); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexercmake.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexercmake.cpp new file mode 100644 index 000000000..4dd47f830 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexercmake.cpp @@ -0,0 +1,304 @@ +// This module implements the QsciLexerCMake class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexercmake.h" + +#include +#include +#include + + +// The ctor. +QsciLexerCMake::QsciLexerCMake(QObject *parent) + : QsciLexer(parent), fold_atelse(false) +{ +} + + +// The dtor. +QsciLexerCMake::~QsciLexerCMake() +{ +} + + +// Returns the language name. +const char *QsciLexerCMake::language() const +{ + return "CMake"; +} + + +// Returns the lexer name. +const char *QsciLexerCMake::lexer() const +{ + return "cmake"; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerCMake::defaultColor(int style) const +{ + switch (style) + { + case Default: + case KeywordSet3: + return QColor(0x00,0x00,0x00); + + case Comment: + return QColor(0x00,0x7f,0x00); + + case String: + case StringLeftQuote: + case StringRightQuote: + return QColor(0x7f,0x00,0x7f); + + case Function: + case BlockWhile: + case BlockForeach: + case BlockIf: + case BlockMacro: + return QColor(0x00,0x00,0x7f); + + case Variable: + return QColor(0x80,0x00,0x00); + + case Label: + case StringVariable: + return QColor(0xcc,0x33,0x00); + + case Number: + return QColor(0x00,0x7f,0x7f); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerCMake::defaultFont(int style) const +{ + QFont f; + + switch (style) + { + case Comment: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + break; + + case Function: + case BlockWhile: + case BlockForeach: + case BlockIf: + case BlockMacro: + f = QsciLexer::defaultFont(style); + f.setBold(true); + break; + + default: + f = QsciLexer::defaultFont(style); + } + + return f; +} + + +// Returns the set of keywords. +const char *QsciLexerCMake::keywords(int set) const +{ + if (set == 1) + return + "add_custom_command add_custom_target add_definitions " + "add_dependencies add_executable add_library add_subdirectory " + "add_test aux_source_directory build_command build_name " + "cmake_minimum_required configure_file create_test_sourcelist " + "else elseif enable_language enable_testing endforeach endif " + "endmacro endwhile exec_program execute_process " + "export_library_dependencies file find_file find_library " + "find_package find_path find_program fltk_wrap_ui foreach " + "get_cmake_property get_directory_property get_filename_component " + "get_source_file_property get_target_property get_test_property " + "if include include_directories include_external_msproject " + "include_regular_expression install install_files " + "install_programs install_targets link_directories link_libraries " + "list load_cache load_command macro make_directory " + "mark_as_advanced math message option output_required_files " + "project qt_wrap_cpp qt_wrap_ui remove remove_definitions " + "separate_arguments set set_directory_properties " + "set_source_files_properties set_target_properties " + "set_tests_properties site_name source_group string " + "subdir_depends subdirs target_link_libraries try_compile try_run " + "use_mangled_mesa utility_source variable_requires " + "vtk_make_instantiator vtk_wrap_java vtk_wrap_python vtk_wrap_tcl " + "while write_file"; + + if (set == 2) + return + "ABSOLUTE ABSTRACT ADDITIONAL_MAKE_CLEAN_FILES ALL AND APPEND " + "ARGS ASCII BEFORE CACHE CACHE_VARIABLES CLEAR COMMAND COMMANDS " + "COMMAND_NAME COMMENT COMPARE COMPILE_FLAGS COPYONLY DEFINED " + "DEFINE_SYMBOL DEPENDS DOC EQUAL ESCAPE_QUOTES EXCLUDE " + "EXCLUDE_FROM_ALL EXISTS EXPORT_MACRO EXT EXTRA_INCLUDE " + "FATAL_ERROR FILE FILES FORCE FUNCTION GENERATED GLOB " + "GLOB_RECURSE GREATER GROUP_SIZE HEADER_FILE_ONLY HEADER_LOCATION " + "IMMEDIATE INCLUDES INCLUDE_DIRECTORIES INCLUDE_INTERNALS " + "INCLUDE_REGULAR_EXPRESSION LESS LINK_DIRECTORIES LINK_FLAGS " + "LOCATION MACOSX_BUNDLE MACROS MAIN_DEPENDENCY MAKE_DIRECTORY " + "MATCH MATCHALL MATCHES MODULE NAME NAME_WE NOT NOTEQUAL " + "NO_SYSTEM_PATH OBJECT_DEPENDS OPTIONAL OR OUTPUT OUTPUT_VARIABLE " + "PATH PATHS POST_BUILD POST_INSTALL_SCRIPT PREFIX PREORDER " + "PRE_BUILD PRE_INSTALL_SCRIPT PRE_LINK PROGRAM PROGRAM_ARGS " + "PROPERTIES QUIET RANGE READ REGEX REGULAR_EXPRESSION REPLACE " + "REQUIRED RETURN_VALUE RUNTIME_DIRECTORY SEND_ERROR SHARED " + "SOURCES STATIC STATUS STREQUAL STRGREATER STRLESS SUFFIX TARGET " + "TOLOWER TOUPPER VAR VARIABLES VERSION WIN32 WRAP_EXCLUDE WRITE " + "APPLE MINGW MSYS CYGWIN BORLAND WATCOM MSVC MSVC_IDE MSVC60 " + "MSVC70 MSVC71 MSVC80 CMAKE_COMPILER_2005 OFF ON"; + + return 0; +} + + +// Returns the user name of a style. +QString QsciLexerCMake::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Comment: + return tr("Comment"); + + case String: + return tr("String"); + + case StringLeftQuote: + return tr("Left quoted string"); + + case StringRightQuote: + return tr("Right quoted string"); + + case Function: + return tr("Function"); + + case Variable: + return tr("Variable"); + + case Label: + return tr("Label"); + + case KeywordSet3: + return tr("User defined"); + + case BlockWhile: + return tr("WHILE block"); + + case BlockForeach: + return tr("FOREACH block"); + + case BlockIf: + return tr("IF block"); + + case BlockMacro: + return tr("MACRO block"); + + case StringVariable: + return tr("Variable within a string"); + + case Number: + return tr("Number"); + } + + return QString(); +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerCMake::defaultPaper(int style) const +{ + switch (style) + { + case String: + case StringLeftQuote: + case StringRightQuote: + case StringVariable: + return QColor(0xee,0xee,0xee); + } + + return QsciLexer::defaultPaper(style); +} + + +// Refresh all properties. +void QsciLexerCMake::refreshProperties() +{ + setAtElseProp(); +} + + +// Read properties from the settings. +bool QsciLexerCMake::readProperties(QSettings &qs,const QString &prefix) +{ + int rc = true; + + fold_atelse = qs.value(prefix + "foldatelse", false).toBool(); + + return rc; +} + + +// Write properties to the settings. +bool QsciLexerCMake::writeProperties(QSettings &qs,const QString &prefix) const +{ + int rc = true; + + qs.setValue(prefix + "foldatelse", fold_atelse); + + return rc; +} + + +// Return true if ELSE blocks can be folded. +bool QsciLexerCMake::foldAtElse() const +{ + return fold_atelse; +} + + +// Set if ELSE blocks can be folded. +void QsciLexerCMake::setFoldAtElse(bool fold) +{ + fold_atelse = fold; + + setAtElseProp(); +} + + +// Set the "fold.at.else" property. +void QsciLexerCMake::setAtElseProp() +{ + emit propertyChanged("fold.at.else",(fold_atelse ? "1" : "0")); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexercoffeescript.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexercoffeescript.cpp new file mode 100644 index 000000000..637ba62f6 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexercoffeescript.cpp @@ -0,0 +1,454 @@ +// This module implements the QsciLexerCoffeeScript class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexercoffeescript.h" + +#include +#include +#include + + +// The ctor. +QsciLexerCoffeeScript::QsciLexerCoffeeScript(QObject *parent) + : QsciLexer(parent), + fold_comments(false), fold_compact(true), style_preproc(false), + dollars(true) +{ +} + + +// The dtor. +QsciLexerCoffeeScript::~QsciLexerCoffeeScript() +{ +} + + +// Returns the language name. +const char *QsciLexerCoffeeScript::language() const +{ + return "CoffeeScript"; +} + + +// Returns the lexer name. +const char *QsciLexerCoffeeScript::lexer() const +{ + return "coffeescript"; +} + + +// Return the set of character sequences that can separate auto-completion +// words. +QStringList QsciLexerCoffeeScript::autoCompletionWordSeparators() const +{ + QStringList wl; + + wl << "."; + + return wl; +} + + +// Return the list of keywords that can start a block. +const char *QsciLexerCoffeeScript::blockStartKeyword(int *style) const +{ + if (style) + *style = Keyword; + + return "catch class do else finally for if try until when while"; +} + + +// Return the list of characters that can start a block. +const char *QsciLexerCoffeeScript::blockStart(int *style) const +{ + if (style) + *style = Operator; + + return "{"; +} + + +// Return the list of characters that can end a block. +const char *QsciLexerCoffeeScript::blockEnd(int *style) const +{ + if (style) + *style = Operator; + + return "}"; +} + + +// Return the style used for braces. +int QsciLexerCoffeeScript::braceStyle() const +{ + return Operator; +} + + +// Return the string of characters that comprise a word. +const char *QsciLexerCoffeeScript::wordCharacters() const +{ + return "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_#"; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerCoffeeScript::defaultColor(int style) const +{ + switch (style) + { + case Default: + return QColor(0x80, 0x80, 0x80); + + case Comment: + case CommentLine: + case CommentBlock: + case BlockRegexComment: + return QColor(0x00, 0x7f, 0x00); + + case CommentDoc: + case CommentLineDoc: + return QColor(0x3f, 0x70, 0x3f); + + case Number: + return QColor(0x00, 0x7f, 0x7f); + + case Keyword: + return QColor(0x00, 0x00, 0x7f); + + case DoubleQuotedString: + case SingleQuotedString: + return QColor(0x7f, 0x00, 0x7f); + + case PreProcessor: + return QColor(0x7f, 0x7f, 0x00); + + case Operator: + case UnclosedString: + return QColor(0x00, 0x00, 0x00); + + case VerbatimString: + return QColor(0x00, 0x7f, 0x00); + + case Regex: + case BlockRegex: + return QColor(0x3f, 0x7f, 0x3f); + + case CommentDocKeyword: + return QColor(0x30, 0x60, 0xa0); + + case CommentDocKeywordError: + return QColor(0x80, 0x40, 0x20); + + case InstanceProperty: + return QColor(0xc0, 0x60, 0x00); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the end-of-line fill for a style. +bool QsciLexerCoffeeScript::defaultEolFill(int style) const +{ + switch (style) + { + case UnclosedString: + case VerbatimString: + case Regex: + return true; + } + + return QsciLexer::defaultEolFill(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerCoffeeScript::defaultFont(int style) const +{ + QFont f; + + switch (style) + { + case Comment: + case CommentLine: + case CommentDoc: + case CommentLineDoc: + case CommentDocKeyword: + case CommentDocKeywordError: + case CommentBlock: + case BlockRegexComment: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + break; + + case Keyword: + case Operator: + f = QsciLexer::defaultFont(style); + f.setBold(true); + break; + + case DoubleQuotedString: + case SingleQuotedString: + case UnclosedString: + case VerbatimString: + case Regex: + case BlockRegex: +#if defined(Q_OS_WIN) + f = QFont("Courier New",10); +#elif defined(Q_OS_MAC) + f = QFont("Courier", 12); +#else + f = QFont("Bitstream Vera Sans Mono",9); +#endif + break; + + default: + f = QsciLexer::defaultFont(style); + } + + return f; +} + + +// Returns the set of keywords. +const char *QsciLexerCoffeeScript::keywords(int set) const +{ + if (set == 1) + return + "true false null this new delete typeof in instanceof return " + "throw break continue debugger if else switch for while do try " + "catch finally class extends super " + "undefined then unless until loop of by when and or is isnt not " + "yes no on off"; + + return 0; +} + + +// Returns the user name of a style. +QString QsciLexerCoffeeScript::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Comment: + return tr("C-style comment"); + + case CommentLine: + return tr("C++-style comment"); + + case CommentDoc: + return tr("JavaDoc C-style comment"); + + case Number: + return tr("Number"); + + case Keyword: + return tr("Keyword"); + + case DoubleQuotedString: + return tr("Double-quoted string"); + + case SingleQuotedString: + return tr("Single-quoted string"); + + case UUID: + return tr("IDL UUID"); + + case PreProcessor: + return tr("Pre-processor block"); + + case Operator: + return tr("Operator"); + + case Identifier: + return tr("Identifier"); + + case UnclosedString: + return tr("Unclosed string"); + + case VerbatimString: + return tr("C# verbatim string"); + + case Regex: + return tr("Regular expression"); + + case CommentLineDoc: + return tr("JavaDoc C++-style comment"); + + case KeywordSet2: + return tr("Secondary keywords and identifiers"); + + case CommentDocKeyword: + return tr("JavaDoc keyword"); + + case CommentDocKeywordError: + return tr("JavaDoc keyword error"); + + case GlobalClass: + return tr("Global classes"); + + case CommentBlock: + return tr("Block comment"); + + case BlockRegex: + return tr("Block regular expression"); + + case BlockRegexComment: + return tr("Block regular expression comment"); + + case InstanceProperty: + return tr("Instance property"); + } + + return QString(); +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerCoffeeScript::defaultPaper(int style) const +{ + switch (style) + { + case UnclosedString: + return QColor(0xe0,0xc0,0xe0); + + case VerbatimString: + return QColor(0xe0,0xff,0xe0); + + case Regex: + return QColor(0xe0,0xf0,0xe0); + } + + return QsciLexer::defaultPaper(style); +} + + +// Refresh all properties. +void QsciLexerCoffeeScript::refreshProperties() +{ + setCommentProp(); + setCompactProp(); + setStylePreprocProp(); + setDollarsProp(); +} + + +// Read properties from the settings. +bool QsciLexerCoffeeScript::readProperties(QSettings &qs,const QString &prefix) +{ + int rc = true; + + fold_comments = qs.value(prefix + "foldcomments", false).toBool(); + fold_compact = qs.value(prefix + "foldcompact", true).toBool(); + style_preproc = qs.value(prefix + "stylepreprocessor", false).toBool(); + dollars = qs.value(prefix + "dollars", true).toBool(); + + return rc; +} + + +// Write properties to the settings. +bool QsciLexerCoffeeScript::writeProperties(QSettings &qs,const QString &prefix) const +{ + int rc = true; + + qs.setValue(prefix + "foldcomments", fold_comments); + qs.setValue(prefix + "foldcompact", fold_compact); + qs.setValue(prefix + "stylepreprocessor", style_preproc); + qs.setValue(prefix + "dollars", dollars); + + return rc; +} + + +// Set if comments can be folded. +void QsciLexerCoffeeScript::setFoldComments(bool fold) +{ + fold_comments = fold; + + setCommentProp(); +} + + +// Set the "fold.comment" property. +void QsciLexerCoffeeScript::setCommentProp() +{ + emit propertyChanged("fold.coffeescript.comment", + (fold_comments ? "1" : "0")); +} + + +// Set if folds are compact +void QsciLexerCoffeeScript::setFoldCompact(bool fold) +{ + fold_compact = fold; + + setCompactProp(); +} + + +// Set the "fold.compact" property. +void QsciLexerCoffeeScript::setCompactProp() +{ + emit propertyChanged("fold.compact", (fold_compact ? "1" : "0")); +} + + +// Set if preprocessor lines are styled. +void QsciLexerCoffeeScript::setStylePreprocessor(bool style) +{ + style_preproc = style; + + setStylePreprocProp(); +} + + +// Set the "styling.within.preprocessor" property. +void QsciLexerCoffeeScript::setStylePreprocProp() +{ + emit propertyChanged("styling.within.preprocessor", + (style_preproc ? "1" : "0")); +} + + +// Set if '$' characters are allowed. +void QsciLexerCoffeeScript::setDollarsAllowed(bool allowed) +{ + dollars = allowed; + + setDollarsProp(); +} + + +// Set the "lexer.cpp.allow.dollars" property. +void QsciLexerCoffeeScript::setDollarsProp() +{ + emit propertyChanged("lexer.cpp.allow.dollars", (dollars ? "1" : "0")); +} diff --git a/libs/qscintilla/Qt4Qt5/qscilexercpp.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexercpp.cpp similarity index 99% rename from libs/qscintilla/Qt4Qt5/qscilexercpp.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/qscilexercpp.cpp index d43df4d3e..aab85b6eb 100644 --- a/libs/qscintilla/Qt4Qt5/qscilexercpp.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexercpp.cpp @@ -1,6 +1,6 @@ // This module implements the QsciLexerCPP class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexercsharp.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexercsharp.cpp new file mode 100644 index 000000000..8d8fd0db6 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexercsharp.cpp @@ -0,0 +1,118 @@ +// This module implements the QsciLexerCSharp class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexercsharp.h" + +#include +#include + + +// The ctor. +QsciLexerCSharp::QsciLexerCSharp(QObject *parent) + : QsciLexerCPP(parent) +{ +} + + +// The dtor. +QsciLexerCSharp::~QsciLexerCSharp() +{ +} + + +// Returns the language name. +const char *QsciLexerCSharp::language() const +{ + return "C#"; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerCSharp::defaultColor(int style) const +{ + if (style == VerbatimString) + return QColor(0x00,0x7f,0x00); + + return QsciLexerCPP::defaultColor(style); +} + + +// Returns the end-of-line fill for a style. +bool QsciLexerCSharp::defaultEolFill(int style) const +{ + if (style == VerbatimString) + return true; + + return QsciLexerCPP::defaultEolFill(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerCSharp::defaultFont(int style) const +{ + if (style == VerbatimString) +#if defined(Q_OS_WIN) + return QFont("Courier New",10); +#elif defined(Q_OS_MAC) + return QFont("Courier", 12); +#else + return QFont("Bitstream Vera Sans Mono",9); +#endif + + return QsciLexerCPP::defaultFont(style); +} + + +// Returns the set of keywords. +const char *QsciLexerCSharp::keywords(int set) const +{ + if (set != 1) + return 0; + + return "abstract as base bool break byte case catch char checked " + "class const continue decimal default delegate do double else " + "enum event explicit extern false finally fixed float for " + "foreach goto if implicit in int interface internal is lock " + "long namespace new null object operator out override params " + "private protected public readonly ref return sbyte sealed " + "short sizeof stackalloc static string struct switch this " + "throw true try typeof uint ulong unchecked unsafe ushort " + "using virtual void while"; +} + + +// Returns the user name of a style. +QString QsciLexerCSharp::description(int style) const +{ + if (style == VerbatimString) + return tr("Verbatim string"); + + return QsciLexerCPP::description(style); +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerCSharp::defaultPaper(int style) const +{ + if (style == VerbatimString) + return QColor(0xe0,0xff,0xe0); + + return QsciLexer::defaultPaper(style); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexercss.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexercss.cpp new file mode 100644 index 000000000..9d021cab2 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexercss.cpp @@ -0,0 +1,440 @@ +// This module implements the QsciLexerCSS class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexercss.h" + +#include +#include +#include + + +// The ctor. +QsciLexerCSS::QsciLexerCSS(QObject *parent) + : QsciLexer(parent), + fold_comments(false), fold_compact(true), hss_language(false), + less_language(false), scss_language(false) +{ +} + + +// The dtor. +QsciLexerCSS::~QsciLexerCSS() +{ +} + + +// Returns the language name. +const char *QsciLexerCSS::language() const +{ + return "CSS"; +} + + +// Returns the lexer name. +const char *QsciLexerCSS::lexer() const +{ + return "css"; +} + + +// Return the list of characters that can start a block. +const char *QsciLexerCSS::blockStart(int *style) const +{ + if (style) + *style = Operator; + + return "{"; +} + + +// Return the list of characters that can end a block. +const char *QsciLexerCSS::blockEnd(int *style) const +{ + if (style) + *style = Operator; + + return "}"; +} + + +// Return the string of characters that comprise a word. +const char *QsciLexerCSS::wordCharacters() const +{ + return "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-"; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerCSS::defaultColor(int style) const +{ + switch (style) + { + case Default: + return QColor(0xff,0x00,0x80); + + case Tag: + return QColor(0x00,0x00,0x7f); + + case PseudoClass: + case Attribute: + return QColor(0x80,0x00,0x00); + + case UnknownPseudoClass: + case UnknownProperty: + return QColor(0xff,0x00,0x00); + + case Operator: + return QColor(0x00,0x00,0x00); + + case CSS1Property: + return QColor(0x00,0x40,0xe0); + + case Value: + case DoubleQuotedString: + case SingleQuotedString: + return QColor(0x7f,0x00,0x7f); + + case Comment: + return QColor(0x00,0x7f,0x00); + + case IDSelector: + return QColor(0x00,0x7f,0x7f); + + case Important: + return QColor(0xff,0x80,0x00); + + case AtRule: + case MediaRule: + return QColor(0x7f,0x7f,0x00); + + case CSS2Property: + return QColor(0x00,0xa0,0xe0); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerCSS::defaultFont(int style) const +{ + QFont f; + + if (style == Comment) +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + else + { + f = QsciLexer::defaultFont(style); + + switch (style) + { + case Tag: + case Important: + case MediaRule: + f.setBold(true); + break; + + case IDSelector: + f.setItalic(true); + break; + } + } + + return f; +} + + +// Returns the set of keywords. +const char *QsciLexerCSS::keywords(int set) const +{ + if (set == 1) + return + "color background-color background-image " + "background-repeat background-attachment " + "background-position background font-family " + "font-style font-variant font-weight font-size font " + "word-spacing letter-spacing text-decoration " + "vertical-align text-transform text-align " + "text-indent line-height margin-top margin-right " + "margin-bottom margin-left margin padding-top " + "padding-right padding-bottom padding-left padding " + "border-top-width border-right-width " + "border-bottom-width border-left-width border-width " + "border-top border-right border-bottom border-left " + "border border-color border-style width height float " + "clear display white-space list-style-type " + "list-style-image list-style-position list-style"; + + if (set == 2) + return + "first-letter first-line link active visited " + "first-child focus hover lang before after left " + "right first"; + + if (set == 3) + return + "border-top-color border-right-color " + "border-bottom-color border-left-color border-color " + "border-top-style border-right-style " + "border-bottom-style border-left-style border-style " + "top right bottom left position z-index direction " + "unicode-bidi min-width max-width min-height " + "max-height overflow clip visibility content quotes " + "counter-reset counter-increment marker-offset size " + "marks page-break-before page-break-after " + "page-break-inside page orphans widows font-stretch " + "font-size-adjust unicode-range units-per-em src " + "panose-1 stemv stemh slope cap-height x-height " + "ascent descent widths bbox definition-src baseline " + "centerline mathline topline text-shadow " + "caption-side table-layout border-collapse " + "border-spacing empty-cells speak-header cursor " + "outline outline-width outline-style outline-color " + "volume speak pause-before pause-after pause " + "cue-before cue-after cue play-during azimuth " + "elevation speech-rate voice-family pitch " + "pitch-range stress richness speak-punctuation " + "speak-numeral"; + + return 0; +} + + +// Returns the user name of a style. +QString QsciLexerCSS::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Tag: + return tr("Tag"); + + case ClassSelector: + return tr("Class selector"); + + case PseudoClass: + return tr("Pseudo-class"); + + case UnknownPseudoClass: + return tr("Unknown pseudo-class"); + + case Operator: + return tr("Operator"); + + case CSS1Property: + return tr("CSS1 property"); + + case UnknownProperty: + return tr("Unknown property"); + + case Value: + return tr("Value"); + + case Comment: + return tr("Comment"); + + case IDSelector: + return tr("ID selector"); + + case Important: + return tr("Important"); + + case AtRule: + return tr("@-rule"); + + case DoubleQuotedString: + return tr("Double-quoted string"); + + case SingleQuotedString: + return tr("Single-quoted string"); + + case CSS2Property: + return tr("CSS2 property"); + + case Attribute: + return tr("Attribute"); + + case CSS3Property: + return tr("CSS3 property"); + + case PseudoElement: + return tr("Pseudo-element"); + + case ExtendedCSSProperty: + return tr("Extended CSS property"); + + case ExtendedPseudoClass: + return tr("Extended pseudo-class"); + + case ExtendedPseudoElement: + return tr("Extended pseudo-element"); + + case MediaRule: + return tr("Media rule"); + + case Variable: + return tr("Variable"); + } + + return QString(); +} + + +// Refresh all properties. +void QsciLexerCSS::refreshProperties() +{ + setCommentProp(); + setCompactProp(); + setHSSProp(); + setLessProp(); + setSCSSProp(); +} + + +// Read properties from the settings. +bool QsciLexerCSS::readProperties(QSettings &qs,const QString &prefix) +{ + int rc = true; + + fold_comments = qs.value(prefix + "foldcomments", false).toBool(); + fold_compact = qs.value(prefix + "foldcompact", true).toBool(); + hss_language = qs.value(prefix + "hsslanguage", false).toBool(); + less_language = qs.value(prefix + "lesslanguage", false).toBool(); + scss_language = qs.value(prefix + "scsslanguage", false).toBool(); + + return rc; +} + + +// Write properties to the settings. +bool QsciLexerCSS::writeProperties(QSettings &qs,const QString &prefix) const +{ + int rc = true; + + qs.setValue(prefix + "foldcomments", fold_comments); + qs.setValue(prefix + "foldcompact", fold_compact); + qs.setValue(prefix + "hsslanguage", hss_language); + qs.setValue(prefix + "lesslanguage", less_language); + qs.setValue(prefix + "scsslanguage", scss_language); + + return rc; +} + + +// Return true if comments can be folded. +bool QsciLexerCSS::foldComments() const +{ + return fold_comments; +} + + +// Set if comments can be folded. +void QsciLexerCSS::setFoldComments(bool fold) +{ + fold_comments = fold; + + setCommentProp(); +} + + +// Set the "fold.comment" property. +void QsciLexerCSS::setCommentProp() +{ + emit propertyChanged("fold.comment",(fold_comments ? "1" : "0")); +} + + +// Return true if folds are compact. +bool QsciLexerCSS::foldCompact() const +{ + return fold_compact; +} + + +// Set if folds are compact +void QsciLexerCSS::setFoldCompact(bool fold) +{ + fold_compact = fold; + + setCompactProp(); +} + + +// Set the "fold.compact" property. +void QsciLexerCSS::setCompactProp() +{ + emit propertyChanged("fold.compact",(fold_compact ? "1" : "0")); +} + + +// Set if HSS is supported. +void QsciLexerCSS::setHSSLanguage(bool enabled) +{ + hss_language = enabled; + + setHSSProp(); +} + + +// Set the "lexer.css.hss.language" property. +void QsciLexerCSS::setHSSProp() +{ + emit propertyChanged("lexer.css.hss.language",(hss_language ? "1" : "0")); +} + + +// Set if Less CSS is supported. +void QsciLexerCSS::setLessLanguage(bool enabled) +{ + less_language = enabled; + + setLessProp(); +} + + +// Set the "lexer.css.less.language" property. +void QsciLexerCSS::setLessProp() +{ + emit propertyChanged("lexer.css.less.language",(less_language ? "1" : "0")); +} + + +// Set if Sassy CSS is supported. +void QsciLexerCSS::setSCSSLanguage(bool enabled) +{ + scss_language = enabled; + + setSCSSProp(); +} + + +// Set the "lexer.css.scss.language" property. +void QsciLexerCSS::setSCSSProp() +{ + emit propertyChanged("lexer.css.scss.language",(scss_language ? "1" : "0")); +} diff --git a/libs/qscintilla/Qt4Qt5/qscilexercustom.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexercustom.cpp similarity index 97% rename from libs/qscintilla/Qt4Qt5/qscilexercustom.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/qscilexercustom.cpp index 876c05315..75c600f8c 100644 --- a/libs/qscintilla/Qt4Qt5/qscilexercustom.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexercustom.cpp @@ -1,6 +1,6 @@ // This module implements the QsciLexerCustom class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerd.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerd.cpp new file mode 100644 index 000000000..126a829ab --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerd.cpp @@ -0,0 +1,450 @@ +// This module implements the QsciLexerD class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexerd.h" + +#include +#include +#include + + +// The ctor. +QsciLexerD::QsciLexerD(QObject *parent) + : QsciLexer(parent), + fold_atelse(false), fold_comments(false), fold_compact(true) +{ +} + + +// The dtor. +QsciLexerD::~QsciLexerD() +{ +} + + +// Returns the language name. +const char *QsciLexerD::language() const +{ + return "D"; +} + + +// Returns the lexer name. +const char *QsciLexerD::lexer() const +{ + return "d"; +} + + +// Return the set of character sequences that can separate auto-completion +// words. +QStringList QsciLexerD::autoCompletionWordSeparators() const +{ + QStringList wl; + + wl << "."; + + return wl; +} + + +// Return the list of keywords that can start a block. +const char *QsciLexerD::blockStartKeyword(int *style) const +{ + if (style) + *style = Keyword; + + return "case catch class default do else finally for foreach " + "foreach_reverse if private protected public struct try union " + "while"; +} + + +// Return the list of characters that can start a block. +const char *QsciLexerD::blockStart(int *style) const +{ + if (style) + *style = Operator; + + return "{"; +} + + +// Return the list of characters that can end a block. +const char *QsciLexerD::blockEnd(int *style) const +{ + if (style) + *style = Operator; + + return "}"; +} + + +// Return the style used for braces. +int QsciLexerD::braceStyle() const +{ + return Operator; +} + + +// Return the string of characters that comprise a word. +const char *QsciLexerD::wordCharacters() const +{ + return "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_#"; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerD::defaultColor(int style) const +{ + switch (style) + { + case Default: + return QColor(0x80,0x80,0x80); + + case Comment: + case CommentLine: + return QColor(0x00,0x7f,0x00); + + case CommentDoc: + case CommentLineDoc: + return QColor(0x3f,0x70,0x3f); + + case CommentNested: + return QColor(0xa0,0xc0,0xa0); + + case Number: + return QColor(0x00,0x7f,0x7f); + + case Keyword: + case KeywordSecondary: + case KeywordDoc: + case Typedefs: + return QColor(0x00,0x00,0x7f); + + case String: + return QColor(0x7f,0x00,0x7f); + + case Character: + return QColor(0x7f,0x00,0x7f); + + case Operator: + case UnclosedString: + return QColor(0x00,0x00,0x00); + + case Identifier: + break; + + case CommentDocKeyword: + return QColor(0x30,0x60,0xa0); + + case CommentDocKeywordError: + return QColor(0x80,0x40,0x20); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the end-of-line fill for a style. +bool QsciLexerD::defaultEolFill(int style) const +{ + if (style == UnclosedString) + return true; + + return QsciLexer::defaultEolFill(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerD::defaultFont(int style) const +{ + QFont f; + + switch (style) + { + case Comment: + case CommentLine: + case CommentDoc: + case CommentNested: + case CommentLineDoc: + case CommentDocKeyword: + case CommentDocKeywordError: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + break; + + case Keyword: + case KeywordSecondary: + case KeywordDoc: + case Typedefs: + case Operator: + f = QsciLexer::defaultFont(style); + f.setBold(true); + break; + + case String: + case UnclosedString: +#if defined(Q_OS_WIN) + f = QFont("Courier New",10); +#elif defined(Q_OS_MAC) + f = QFont("Courier", 12); +#else + f = QFont("Bitstream Vera Sans Mono",9); +#endif + break; + + default: + f = QsciLexer::defaultFont(style); + } + + return f; +} + + +// Returns the set of keywords. +const char *QsciLexerD::keywords(int set) const +{ + if (set == 1) + return + "abstract alias align asm assert auto body bool break byte case " + "cast catch cdouble cent cfloat char class const continue creal " + "dchar debug default delegate delete deprecated do double else " + "enum export extern false final finally float for foreach " + "foreach_reverse function goto idouble if ifloat import in inout " + "int interface invariant ireal is lazy long mixin module new null " + "out override package pragma private protected public real return " + "scope short static struct super switch synchronized template " + "this throw true try typedef typeid typeof ubyte ucent uint ulong " + "union unittest ushort version void volatile wchar while with"; + + if (set == 3) + return + "a addindex addtogroup anchor arg attention author b brief bug c " + "class code date def defgroup deprecated dontinclude e em endcode " + "endhtmlonly endif endlatexonly endlink endverbatim enum example " + "exception f$ f[ f] file fn hideinitializer htmlinclude htmlonly " + "if image include ingroup internal invariant interface latexonly " + "li line link mainpage name namespace nosubgrouping note overload " + "p page par param post pre ref relates remarks return retval sa " + "section see showinitializer since skip skipline struct " + "subsection test throw todo typedef union until var verbatim " + "verbinclude version warning weakgroup $ @ \\ & < > # { }"; + + return 0; +} + + +// Returns the user name of a style. +QString QsciLexerD::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Comment: + return tr("Block comment"); + + case CommentLine: + return tr("Line comment"); + + case CommentDoc: + return tr("DDoc style block comment"); + + case CommentNested: + return tr("Nesting comment"); + + case Number: + return tr("Number"); + + case Keyword: + return tr("Keyword"); + + case KeywordSecondary: + return tr("Secondary keyword"); + + case KeywordDoc: + return tr("Documentation keyword"); + + case Typedefs: + return tr("Type definition"); + + case String: + return tr("String"); + + case UnclosedString: + return tr("Unclosed string"); + + case Character: + return tr("Character"); + + case Operator: + return tr("Operator"); + + case Identifier: + return tr("Identifier"); + + case CommentLineDoc: + return tr("DDoc style line comment"); + + case CommentDocKeyword: + return tr("DDoc keyword"); + + case CommentDocKeywordError: + return tr("DDoc keyword error"); + + case BackquoteString: + return tr("Backquoted string"); + + case RawString: + return tr("Raw string"); + + case KeywordSet5: + return tr("User defined 1"); + + case KeywordSet6: + return tr("User defined 2"); + + case KeywordSet7: + return tr("User defined 3"); + } + + return QString(); +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerD::defaultPaper(int style) const +{ + if (style == UnclosedString) + return QColor(0xe0,0xc0,0xe0); + + return QsciLexer::defaultPaper(style); +} + + +// Refresh all properties. +void QsciLexerD::refreshProperties() +{ + setAtElseProp(); + setCommentProp(); + setCompactProp(); +} + + +// Read properties from the settings. +bool QsciLexerD::readProperties(QSettings &qs,const QString &prefix) +{ + int rc = true; + + fold_atelse = qs.value(prefix + "foldatelse", false).toBool(); + fold_comments = qs.value(prefix + "foldcomments", false).toBool(); + fold_compact = qs.value(prefix + "foldcompact", true).toBool(); + + return rc; +} + + +// Write properties to the settings. +bool QsciLexerD::writeProperties(QSettings &qs,const QString &prefix) const +{ + int rc = true; + + qs.setValue(prefix + "foldatelse", fold_atelse); + qs.setValue(prefix + "foldcomments", fold_comments); + qs.setValue(prefix + "foldcompact", fold_compact); + + return rc; +} + + +// Return true if else can be folded. +bool QsciLexerD::foldAtElse() const +{ + return fold_atelse; +} + + +// Set if else can be folded. +void QsciLexerD::setFoldAtElse(bool fold) +{ + fold_atelse = fold; + + setAtElseProp(); +} + + +// Set the "fold.at.else" property. +void QsciLexerD::setAtElseProp() +{ + emit propertyChanged("fold.at.else",(fold_atelse ? "1" : "0")); +} + + +// Return true if comments can be folded. +bool QsciLexerD::foldComments() const +{ + return fold_comments; +} + + +// Set if comments can be folded. +void QsciLexerD::setFoldComments(bool fold) +{ + fold_comments = fold; + + setCommentProp(); +} + + +// Set the "fold.comment" property. +void QsciLexerD::setCommentProp() +{ + emit propertyChanged("fold.comment",(fold_comments ? "1" : "0")); +} + + +// Return true if folds are compact. +bool QsciLexerD::foldCompact() const +{ + return fold_compact; +} + + +// Set if folds are compact +void QsciLexerD::setFoldCompact(bool fold) +{ + fold_compact = fold; + + setCompactProp(); +} + + +// Set the "fold.compact" property. +void QsciLexerD::setCompactProp() +{ + emit propertyChanged("fold.compact",(fold_compact ? "1" : "0")); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerdiff.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerdiff.cpp new file mode 100644 index 000000000..f22f59b52 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerdiff.cpp @@ -0,0 +1,143 @@ +// This module implements the QsciLexerDiff class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexerdiff.h" + +#include +#include +#include + + +// The ctor. +QsciLexerDiff::QsciLexerDiff(QObject *parent) + : QsciLexer(parent) +{ +} + + +// The dtor. +QsciLexerDiff::~QsciLexerDiff() +{ +} + + +// Returns the language name. +const char *QsciLexerDiff::language() const +{ + return "Diff"; +} + + +// Returns the lexer name. +const char *QsciLexerDiff::lexer() const +{ + return "diff"; +} + + +// Return the string of characters that comprise a word. +const char *QsciLexerDiff::wordCharacters() const +{ + return "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-"; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerDiff::defaultColor(int style) const +{ + switch (style) + { + case Default: + return QColor(0x00,0x00,0x00); + + case Comment: + return QColor(0x00,0x7f,0x00); + + case Command: + return QColor(0x7f,0x7f,0x00); + + case Header: + return QColor(0x7f,0x00,0x00); + + case Position: + return QColor(0x7f,0x00,0x7f); + + case LineRemoved: + case AddingPatchRemoved: + case RemovingPatchRemoved: + return QColor(0x00,0x7f,0x7f); + + case LineAdded: + case AddingPatchAdded: + case RemovingPatchAdded: + return QColor(0x00,0x00,0x7f); + + case LineChanged: + return QColor(0x7f,0x7f,0x7f); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the user name of a style. +QString QsciLexerDiff::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Comment: + return tr("Comment"); + + case Command: + return tr("Command"); + + case Header: + return tr("Header"); + + case Position: + return tr("Position"); + + case LineRemoved: + return tr("Removed line"); + + case LineAdded: + return tr("Added line"); + + case LineChanged: + return tr("Changed line"); + + case AddingPatchAdded: + return tr("Added adding patch"); + + case RemovingPatchAdded: + return tr("Removed adding patch"); + + case AddingPatchRemoved: + return tr("Added removing patch"); + + case RemovingPatchRemoved: + return tr("Removed removing patch"); + } + + return QString(); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexeredifact.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexeredifact.cpp new file mode 100644 index 000000000..5bf09df8a --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexeredifact.cpp @@ -0,0 +1,122 @@ +// This module implements the QsciLexerEDIFACT class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexeredifact.h" + + +// The ctor. +QsciLexerEDIFACT::QsciLexerEDIFACT(QObject *parent) + : QsciLexer(parent) +{ +} + + +// The dtor. +QsciLexerEDIFACT::~QsciLexerEDIFACT() +{ +} + + +// Returns the language name. +const char *QsciLexerEDIFACT::language() const +{ + return "EDIFACT"; +} + + +// Returns the lexer name. +const char *QsciLexerEDIFACT::lexer() const +{ + return "edifact"; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerEDIFACT::defaultColor(int style) const +{ + switch (style) + { + case Default: + return QColor(0x80, 0x80, 0x80); + + case SegmentStart: + return QColor(0x00, 0x00, 0xcb); + + case SegmentEnd: + return QColor(0xff, 0x8d, 0xb1); + + case ElementSeparator: + return QColor(0xff, 0x8d, 0xb1); + + case CompositeSeparator: + return QColor(0x80, 0x80, 0x00); + + case ReleaseSeparator: + return QColor(0x5e, 0x5e, 0x5e); + + case UNASegmentHeader: + return QColor(0x00, 0x80, 0x00); + + case UNHSegmentHeader: + return QColor(0x2f, 0x8b, 0xbd); + + case BadSegment: + return QColor(0x80, 0x00, 0x00); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the user name of a style. +QString QsciLexerEDIFACT::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case SegmentStart: + return tr("Segment start"); + + case SegmentEnd: + return tr("Segment end"); + + case ElementSeparator: + return tr("Element separator"); + + case CompositeSeparator: + return tr("Composite separator"); + + case ReleaseSeparator: + return tr("Release separator"); + + case UNASegmentHeader: + return tr("UNA segment header"); + + case UNHSegmentHeader: + return tr("UNH segment header"); + + case BadSegment: + return tr("Badly formed segment"); + } + + return QString(); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerfortran.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerfortran.cpp new file mode 100644 index 000000000..286d8cacc --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerfortran.cpp @@ -0,0 +1,109 @@ +// This module implements the QsciLexerFortran class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexerfortran.h" + +#include +#include +#include + + +// The ctor. +QsciLexerFortran::QsciLexerFortran(QObject *parent) + : QsciLexerFortran77(parent) +{ +} + + +// The dtor. +QsciLexerFortran::~QsciLexerFortran() +{ +} + + +// Returns the language name. +const char *QsciLexerFortran::language() const +{ + return "Fortran"; +} + + +// Returns the lexer name. +const char *QsciLexerFortran::lexer() const +{ + return "fortran"; +} + + +// Returns the set of keywords. +const char *QsciLexerFortran::keywords(int set) const +{ + if (set == 2) + return + "abs achar acos acosd adjustl adjustr aimag aimax0 aimin0 aint " + "ajmax0 ajmin0 akmax0 akmin0 all allocated alog alog10 amax0 " + "amax1 amin0 amin1 amod anint any asin asind associated atan " + "atan2 atan2d atand bitest bitl bitlr bitrl bjtest bit_size " + "bktest break btest cabs ccos cdabs cdcos cdexp cdlog cdsin " + "cdsqrt ceiling cexp char clog cmplx conjg cos cosd cosh count " + "cpu_time cshift csin csqrt dabs dacos dacosd dasin dasind datan " + "datan2 datan2d datand date date_and_time dble dcmplx dconjg dcos " + "dcosd dcosh dcotan ddim dexp dfloat dflotk dfloti dflotj digits " + "dim dimag dint dlog dlog10 dmax1 dmin1 dmod dnint dot_product " + "dprod dreal dsign dsin dsind dsinh dsqrt dtan dtand dtanh " + "eoshift epsilon errsns exp exponent float floati floatj floatk " + "floor fraction free huge iabs iachar iand ibclr ibits ibset " + "ichar idate idim idint idnint ieor ifix iiabs iiand iibclr " + "iibits iibset iidim iidint iidnnt iieor iifix iint iior iiqint " + "iiqnnt iishft iishftc iisign ilen imax0 imax1 imin0 imin1 imod " + "index inint inot int int1 int2 int4 int8 iqint iqnint ior ishft " + "ishftc isign isnan izext jiand jibclr jibits jibset jidim jidint " + "jidnnt jieor jifix jint jior jiqint jiqnnt jishft jishftc jisign " + "jmax0 jmax1 jmin0 jmin1 jmod jnint jnot jzext kiabs kiand kibclr " + "kibits kibset kidim kidint kidnnt kieor kifix kind kint kior " + "kishft kishftc kisign kmax0 kmax1 kmin0 kmin1 kmod knint knot " + "kzext lbound leadz len len_trim lenlge lge lgt lle llt log log10 " + "logical lshift malloc matmul max max0 max1 maxexponent maxloc " + "maxval merge min min0 min1 minexponent minloc minval mod modulo " + "mvbits nearest nint not nworkers number_of_processors pack " + "popcnt poppar precision present product radix random " + "random_number random_seed range real repeat reshape rrspacing " + "rshift scale scan secnds selected_int_kind selected_real_kind " + "set_exponent shape sign sin sind sinh size sizeof sngl snglq " + "spacing spread sqrt sum system_clock tan tand tanh tiny transfer " + "transpose trim ubound unpack verify"; + + if (set == 3) + return + "cdabs cdcos cdexp cdlog cdsin cdsqrt cotan cotand dcmplx dconjg " + "dcotan dcotand decode dimag dll_export dll_import doublecomplex " + "dreal dvchk encode find flen flush getarg getcharqq getcl getdat " + "getenv gettim hfix ibchng identifier imag int1 int2 int4 intc " + "intrup invalop iostat_msg isha ishc ishl jfix lacfar locking " + "locnear map nargs nbreak ndperr ndpexc offset ovefl peekcharqq " + "precfill prompt qabs qacos qacosd qasin qasind qatan qatand " + "qatan2 qcmplx qconjg qcos qcosd qcosh qdim qexp qext qextd " + "qfloat qimag qlog qlog10 qmax1 qmin1 qmod qreal qsign qsin qsind " + "qsinh qsqrt qtan qtand qtanh ran rand randu rewrite segment " + "setdat settim system timer undfl unlock union val virtual " + "volatile zabs zcos zexp zlog zsin zsqrt"; + + return QsciLexerFortran77::keywords(set); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerfortran77.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerfortran77.cpp new file mode 100644 index 000000000..df568a8ef --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerfortran77.cpp @@ -0,0 +1,296 @@ +// This module implements the QsciLexerFortran77 class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexerfortran77.h" + +#include +#include +#include + + +// The ctor. +QsciLexerFortran77::QsciLexerFortran77(QObject *parent) + : QsciLexer(parent), fold_compact(true) +{ +} + + +// The dtor. +QsciLexerFortran77::~QsciLexerFortran77() +{ +} + + +// Returns the language name. +const char *QsciLexerFortran77::language() const +{ + return "Fortran77"; +} + + +// Returns the lexer name. +const char *QsciLexerFortran77::lexer() const +{ + return "f77"; +} + + +// Return the style used for braces. +int QsciLexerFortran77::braceStyle() const +{ + return Default; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerFortran77::defaultColor(int style) const +{ + switch (style) + { + case Default: + return QColor(0x80,0x80,0x80); + + case Comment: + return QColor(0x00,0x7f,0x00); + + case Number: + return QColor(0x00,0x7f,0x7f); + + case SingleQuotedString: + case DoubleQuotedString: + return QColor(0x7f,0x00,0x7f); + + case UnclosedString: + case Operator: + case DottedOperator: + case Continuation: + return QColor(0x00,0x00,0x00); + + case Identifier: + break; + + case Keyword: + return QColor(0x00,0x00,0x7f); + + case IntrinsicFunction: + return QColor(0xb0,0x00,0x40); + + case ExtendedFunction: + return QColor(0xb0,0x40,0x80); + + case PreProcessor: + return QColor(0x7f,0x7f,0x00); + + case Label: + return QColor(0xe0,0xc0,0xe0); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the end-of-line fill for a style. +bool QsciLexerFortran77::defaultEolFill(int style) const +{ + if (style == UnclosedString) + return true; + + return QsciLexer::defaultEolFill(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerFortran77::defaultFont(int style) const +{ + QFont f; + + switch (style) + { + case Comment: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + break; + + case Operator: + case DottedOperator: + f = QsciLexer::defaultFont(style); + f.setBold(true); + break; + + default: + f = QsciLexer::defaultFont(style); + } + + return f; +} + + +// Returns the set of keywords. +const char *QsciLexerFortran77::keywords(int set) const +{ + if (set == 1) + return + "access action advance allocatable allocate apostrophe assign " + "assignment associate asynchronous backspace bind blank blockdata " + "call case character class close common complex contains continue " + "cycle data deallocate decimal delim default dimension direct do " + "dowhile double doubleprecision else elseif elsewhere encoding " + "end endassociate endblockdata enddo endfile endforall " + "endfunction endif endinterface endmodule endprogram endselect " + "endsubroutine endtype endwhere entry eor equivalence err errmsg " + "exist exit external file flush fmt forall form format formatted " + "function go goto id if implicit in include inout integer inquire " + "intent interface intrinsic iomsg iolength iostat kind len " + "logical module name named namelist nextrec nml none nullify " + "number only open opened operator optional out pad parameter pass " + "pause pending pointer pos position precision print private " + "program protected public quote read readwrite real rec recl " + "recursive result return rewind save select selectcase selecttype " + "sequential sign size stat status stop stream subroutine target " + "then to type unformatted unit use value volatile wait where " + "while write"; + + return 0; +} + + +// Returns the user name of a style. +QString QsciLexerFortran77::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Comment: + return tr("Comment"); + + case Number: + return tr("Number"); + + case SingleQuotedString: + return tr("Single-quoted string"); + + case DoubleQuotedString: + return tr("Double-quoted string"); + + case UnclosedString: + return tr("Unclosed string"); + + case Operator: + return tr("Operator"); + + case Identifier: + return tr("Identifier"); + + case Keyword: + return tr("Keyword"); + + case IntrinsicFunction: + return tr("Intrinsic function"); + + case ExtendedFunction: + return tr("Extended function"); + + case PreProcessor: + return tr("Pre-processor block"); + + case DottedOperator: + return tr("Dotted operator"); + + case Label: + return tr("Label"); + + case Continuation: + return tr("Continuation"); + } + + return QString(); +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerFortran77::defaultPaper(int style) const +{ + if (style == UnclosedString) + return QColor(0xe0,0xc0,0xe0); + + if (style == Continuation) + return QColor(0xf0,0xe0,0x80); + + return QsciLexer::defaultPaper(style); +} + + +// Refresh all properties. +void QsciLexerFortran77::refreshProperties() +{ + setCompactProp(); +} + + +// Read properties from the settings. +bool QsciLexerFortran77::readProperties(QSettings &qs, const QString &prefix) +{ + int rc = true; + + fold_compact = qs.value(prefix + "foldcompact", true).toBool(); + + return rc; +} + + +// Write properties to the settings. +bool QsciLexerFortran77::writeProperties(QSettings &qs,const QString &prefix) const +{ + int rc = true; + + qs.setValue(prefix + "foldcompact", fold_compact); + + return rc; +} + + +// Return true if folds are compact. +bool QsciLexerFortran77::foldCompact() const +{ + return fold_compact; +} + + +// Set if folds are compact +void QsciLexerFortran77::setFoldCompact(bool fold) +{ + fold_compact = fold; + + setCompactProp(); +} + + +// Set the "fold.compact" property. +void QsciLexerFortran77::setCompactProp() +{ + emit propertyChanged("fold.compact",(fold_compact ? "1" : "0")); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerhex.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerhex.cpp new file mode 100644 index 000000000..c71fbeee3 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerhex.cpp @@ -0,0 +1,156 @@ +// This module implements the abstract QsciLexerHex class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexerhex.h" + +#include +#include + + +// The ctor. +QsciLexerHex::QsciLexerHex(QObject *parent) + : QsciLexer(parent) +{ +} + + +// The dtor. +QsciLexerHex::~QsciLexerHex() +{ +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerHex::defaultColor(int style) const +{ + switch (style) + { + case RecordStart: + case RecordType: + case UnknownRecordType: + return QColor(0x7f, 0x00, 0x00); + + case ByteCount: + return QColor(0x7f, 0x7f, 0x00); + + case IncorrectByteCount: + case IncorrectChecksum: + return QColor(0xff, 0xff, 0x00); + + case NoAddress: + case RecordCount: + return QColor(0x7f, 0x00, 0xff); + + case DataAddress: + case StartAddress: + case ExtendedAddress: + return QColor(0x00, 0x7f, 0xff); + + case Checksum: + return QColor(0x00, 0xbf, 0x00); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerHex::defaultFont(int style) const +{ + QFont f = QsciLexer::defaultFont(style); + + if (style == UnknownRecordType || style == UnknownData || style == TrailingGarbage) + f.setItalic(true); + else if (style == OddData) + f.setBold(true); + + return f; +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerHex::defaultPaper(int style) const +{ + if (style == IncorrectByteCount || style == IncorrectChecksum) + return QColor(0xff, 0x00, 0x00); + + return QsciLexer::defaultPaper(style); +} + + +// Returns the user name of a style. +QString QsciLexerHex::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case RecordStart: + return tr("Record start"); + + case RecordType: + return tr("Record type"); + + case UnknownRecordType: + return tr("Unknown record type"); + + case ByteCount: + return tr("Byte count"); + + case IncorrectByteCount: + return tr("Incorrect byte count"); + + case NoAddress: + return tr("No address"); + + case DataAddress: + return tr("Data address"); + + case RecordCount: + return tr("Record count"); + + case StartAddress: + return tr("Start address"); + + case ExtendedAddress: + return tr("Extended address"); + + case OddData: + return tr("Odd data"); + + case EvenData: + return tr("Even data"); + + case UnknownData: + return tr("Unknown data"); + + case Checksum: + return tr("Checksum"); + + case IncorrectChecksum: + return tr("Incorrect checksum"); + + case TrailingGarbage: + return tr("Trailing garbage after a record"); + } + + return QString(); +} diff --git a/libs/qscintilla/Qt4Qt5/qscilexerhtml.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerhtml.cpp similarity index 99% rename from libs/qscintilla/Qt4Qt5/qscilexerhtml.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/qscilexerhtml.cpp index e54ece5b4..0a554c2ea 100644 --- a/libs/qscintilla/Qt4Qt5/qscilexerhtml.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerhtml.cpp @@ -1,6 +1,6 @@ // This module implements the QsciLexerHTML class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexeridl.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexeridl.cpp new file mode 100644 index 000000000..62558950a --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexeridl.cpp @@ -0,0 +1,100 @@ +// This module implements the QsciLexerIDL class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexeridl.h" + +#include +#include + + +// The ctor. +QsciLexerIDL::QsciLexerIDL(QObject *parent) + : QsciLexerCPP(parent) +{ +} + + +// The dtor. +QsciLexerIDL::~QsciLexerIDL() +{ +} + + +// Returns the language name. +const char *QsciLexerIDL::language() const +{ + return "IDL"; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerIDL::defaultColor(int style) const +{ + if (style == UUID) + return QColor(0x80,0x40,0x80); + + return QsciLexerCPP::defaultColor(style); +} + + +// Returns the set of keywords. +const char *QsciLexerIDL::keywords(int set) const +{ + if (set != 1) + return 0; + + return "aggregatable allocate appobject arrays async async_uuid " + "auto_handle bindable boolean broadcast byte byte_count " + "call_as callback char coclass code comm_status const " + "context_handle context_handle_noserialize " + "context_handle_serialize control cpp_quote custom decode " + "default defaultbind defaultcollelem defaultvalue " + "defaultvtable dispinterface displaybind dllname double dual " + "enable_allocate encode endpoint entry enum error_status_t " + "explicit_handle fault_status first_is float handle_t heap " + "helpcontext helpfile helpstring helpstringcontext " + "helpstringdll hidden hyper id idempotent ignore iid_as iid_is " + "immediatebind implicit_handle import importlib in include " + "in_line int __int64 __int3264 interface last_is lcid " + "length_is library licensed local long max_is maybe message " + "methods midl_pragma midl_user_allocate midl_user_free min_is " + "module ms_union ncacn_at_dsp ncacn_dnet_nsp ncacn_http " + "ncacn_ip_tcp ncacn_nb_ipx ncacn_nb_nb ncacn_nb_tcp ncacn_np " + "ncacn_spx ncacn_vns_spp ncadg_ip_udp ncadg_ipx ncadg_mq " + "ncalrpc nocode nonbrowsable noncreatable nonextensible notify " + "object odl oleautomation optimize optional out out_of_line " + "pipe pointer_default pragma properties propget propput " + "propputref ptr public range readonly ref represent_as " + "requestedit restricted retval shape short signed size_is " + "small source strict_context_handle string struct switch " + "switch_is switch_type transmit_as typedef uidefault union " + "unique unsigned user_marshal usesgetlasterror uuid v1_enum " + "vararg version void wchar_t wire_marshal"; +} + + +// Returns the user name of a style. +QString QsciLexerIDL::description(int style) const +{ + if (style == UUID) + return tr("UUID"); + + return QsciLexerCPP::description(style); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerintelhex.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerintelhex.cpp new file mode 100644 index 000000000..8eb2b91e9 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerintelhex.cpp @@ -0,0 +1,59 @@ +// This module implements the QsciLexerIntelHex class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexerintelhex.h" + + +// The ctor. +QsciLexerIntelHex::QsciLexerIntelHex(QObject *parent) + : QsciLexerHex(parent) +{ +} + + +// The dtor. +QsciLexerIntelHex::~QsciLexerIntelHex() +{ +} + + +// Returns the language name. +const char *QsciLexerIntelHex::language() const +{ + return "Intel-Hex"; +} + + +// Returns the lexer name. +const char *QsciLexerIntelHex::lexer() const +{ + return "ihex"; +} + + +// Returns the user name of a style. +QString QsciLexerIntelHex::description(int style) const +{ + // Handle unsupported styles. + if (style == RecordCount) + return QString(); + + return QsciLexerHex::description(style); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerjava.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerjava.cpp new file mode 100644 index 000000000..ad3886653 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerjava.cpp @@ -0,0 +1,57 @@ +// This module implements the QsciLexerJava class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexerjava.h" + + +// The ctor. +QsciLexerJava::QsciLexerJava(QObject *parent) + : QsciLexerCPP(parent) +{ +} + + +// The dtor. +QsciLexerJava::~QsciLexerJava() +{ +} + + +// Returns the language name. +const char *QsciLexerJava::language() const +{ + return "Java"; +} + + +// Returns the set of keywords. +const char *QsciLexerJava::keywords(int set) const +{ + if (set != 1) + return 0; + + return "abstract assert boolean break byte case catch char class " + "const continue default do double else extends final finally " + "float for future generic goto if implements import inner " + "instanceof int interface long native new null operator outer " + "package private protected public rest return short static " + "super switch synchronized this throw throws transient try var " + "void volatile while"; +} diff --git a/libs/qscintilla/Qt4Qt5/qscilexerjavascript.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerjavascript.cpp similarity index 98% rename from libs/qscintilla/Qt4Qt5/qscilexerjavascript.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/qscilexerjavascript.cpp index e5623ead0..56f8e7752 100644 --- a/libs/qscintilla/Qt4Qt5/qscilexerjavascript.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerjavascript.cpp @@ -1,6 +1,6 @@ // This module implements the QsciLexerJavaScript class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/Qt4Qt5/qscilexerjson.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerjson.cpp similarity index 98% rename from libs/qscintilla/Qt4Qt5/qscilexerjson.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/qscilexerjson.cpp index c79ed13cf..bf30e5b22 100644 --- a/libs/qscintilla/Qt4Qt5/qscilexerjson.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerjson.cpp @@ -1,6 +1,6 @@ // This module implements the QsciLexerJSON class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerlua.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerlua.cpp new file mode 100644 index 000000000..0792f295d --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerlua.cpp @@ -0,0 +1,368 @@ +// This module implements the QsciLexerLua class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexerlua.h" + +#include +#include +#include + + +// The ctor. +QsciLexerLua::QsciLexerLua(QObject *parent) + : QsciLexer(parent), fold_compact(true) +{ +} + + +// The dtor. +QsciLexerLua::~QsciLexerLua() +{ +} + + +// Returns the language name. +const char *QsciLexerLua::language() const +{ + return "Lua"; +} + + +// Returns the lexer name. +const char *QsciLexerLua::lexer() const +{ + return "lua"; +} + + +// Return the set of character sequences that can separate auto-completion +// words. +QStringList QsciLexerLua::autoCompletionWordSeparators() const +{ + QStringList wl; + + wl << ":" << "."; + + return wl; +} + + +// Return the list of characters that can start a block. +const char *QsciLexerLua::blockStart(int *style) const +{ + if (style) + *style = Operator; + + return ""; +} + + +// Return the style used for braces. +int QsciLexerLua::braceStyle() const +{ + return Operator; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerLua::defaultColor(int style) const +{ + switch (style) + { + case Default: + return QColor(0x00,0x00,0x00); + + case Comment: + case LineComment: + return QColor(0x00,0x7f,0x00); + + case Number: + return QColor(0x00,0x7f,0x7f); + + case Keyword: + case BasicFunctions: + case StringTableMathsFunctions: + case CoroutinesIOSystemFacilities: + return QColor(0x00,0x00,0x7f); + + case String: + case Character: + case LiteralString: + return QColor(0x7f,0x00,0x7f); + + case Preprocessor: + case Label: + return QColor(0x7f,0x7f,0x00); + + case Operator: + case Identifier: + break; + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the end-of-line fill for a style. +bool QsciLexerLua::defaultEolFill(int style) const +{ + if (style == Comment || style == UnclosedString) + return true; + + return QsciLexer::defaultEolFill(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerLua::defaultFont(int style) const +{ + QFont f; + + switch (style) + { + case Comment: + case LineComment: + case LiteralString: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + break; + + default: + f = QsciLexer::defaultFont(style); + } + + return f; +} + + +// Returns the set of keywords. +const char *QsciLexerLua::keywords(int set) const +{ + if (set == 1) + // Keywords. + return + "and break do else elseif end false for function if " + "in local nil not or repeat return then true until " + "while"; + + if (set == 2) + // Basic functions. + return + "_ALERT _ERRORMESSAGE _INPUT _PROMPT _OUTPUT _STDERR " + "_STDIN _STDOUT call dostring foreach foreachi getn " + "globals newtype rawget rawset require sort tinsert " + "tremove " + + "G getfenv getmetatable ipairs loadlib next pairs " + "pcall rawegal rawget rawset require setfenv " + "setmetatable xpcall string table math coroutine io " + "os debug"; + + if (set == 3) + // String, table and maths functions. + return + "abs acos asin atan atan2 ceil cos deg exp floor " + "format frexp gsub ldexp log log10 max min mod rad " + "random randomseed sin sqrt strbyte strchar strfind " + "strlen strlower strrep strsub strupper tan " + + "string.byte string.char string.dump string.find " + "string.len string.lower string.rep string.sub " + "string.upper string.format string.gfind string.gsub " + "table.concat table.foreach table.foreachi table.getn " + "table.sort table.insert table.remove table.setn " + "math.abs math.acos math.asin math.atan math.atan2 " + "math.ceil math.cos math.deg math.exp math.floor " + "math.frexp math.ldexp math.log math.log10 math.max " + "math.min math.mod math.pi math.rad math.random " + "math.randomseed math.sin math.sqrt math.tan"; + + if (set == 4) + // Coroutine, I/O and system facilities. + return + "openfile closefile readfrom writeto appendto remove " + "rename flush seek tmpfile tmpname read write clock " + "date difftime execute exit getenv setlocale time " + + "coroutine.create coroutine.resume coroutine.status " + "coroutine.wrap coroutine.yield io.close io.flush " + "io.input io.lines io.open io.output io.read " + "io.tmpfile io.type io.write io.stdin io.stdout " + "io.stderr os.clock os.date os.difftime os.execute " + "os.exit os.getenv os.remove os.rename os.setlocale " + "os.time os.tmpname"; + + return 0; +} + + +// Returns the user name of a style. +QString QsciLexerLua::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Comment: + return tr("Comment"); + + case LineComment: + return tr("Line comment"); + + case Number: + return tr("Number"); + + case Keyword: + return tr("Keyword"); + + case String: + return tr("String"); + + case Character: + return tr("Character"); + + case LiteralString: + return tr("Literal string"); + + case Preprocessor: + return tr("Preprocessor"); + + case Operator: + return tr("Operator"); + + case Identifier: + return tr("Identifier"); + + case UnclosedString: + return tr("Unclosed string"); + + case BasicFunctions: + return tr("Basic functions"); + + case StringTableMathsFunctions: + return tr("String, table and maths functions"); + + case CoroutinesIOSystemFacilities: + return tr("Coroutines, i/o and system facilities"); + + case KeywordSet5: + return tr("User defined 1"); + + case KeywordSet6: + return tr("User defined 2"); + + case KeywordSet7: + return tr("User defined 3"); + + case KeywordSet8: + return tr("User defined 4"); + + case Label: + return tr("Label"); + } + + return QString(); +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerLua::defaultPaper(int style) const +{ + switch (style) + { + case Comment: + return QColor(0xd0,0xf0,0xf0); + + case LiteralString: + return QColor(0xe0,0xff,0xff); + + case UnclosedString: + return QColor(0xe0,0xc0,0xe0); + + case BasicFunctions: + return QColor(0xd0,0xff,0xd0); + + case StringTableMathsFunctions: + return QColor(0xd0,0xd0,0xff); + + case CoroutinesIOSystemFacilities: + return QColor(0xff,0xd0,0xd0); + } + + return QsciLexer::defaultPaper(style); +} + + +// Refresh all properties. +void QsciLexerLua::refreshProperties() +{ + setCompactProp(); +} + + +// Read properties from the settings. +bool QsciLexerLua::readProperties(QSettings &qs,const QString &prefix) +{ + int rc = true; + + fold_compact = qs.value(prefix + "foldcompact", true).toBool(); + + return rc; +} + + +// Write properties to the settings. +bool QsciLexerLua::writeProperties(QSettings &qs,const QString &prefix) const +{ + int rc = true; + + qs.setValue(prefix + "foldcompact", fold_compact); + + return rc; +} + + +// Return true if folds are compact. +bool QsciLexerLua::foldCompact() const +{ + return fold_compact; +} + + +// Set if folds are compact. +void QsciLexerLua::setFoldCompact(bool fold) +{ + fold_compact = fold; + + setCompactProp(); +} + + +// Set the "fold.compact" property. +void QsciLexerLua::setCompactProp() +{ + emit propertyChanged("fold.compact",(fold_compact ? "1" : "0")); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexermakefile.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexermakefile.cpp new file mode 100644 index 000000000..7676e8a17 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexermakefile.cpp @@ -0,0 +1,158 @@ +// This module implements the QsciLexerMakefile class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexermakefile.h" + +#include +#include + + +// The ctor. +QsciLexerMakefile::QsciLexerMakefile(QObject *parent) + : QsciLexer(parent) +{ +} + + +// The dtor. +QsciLexerMakefile::~QsciLexerMakefile() +{ +} + + +// Returns the language name. +const char *QsciLexerMakefile::language() const +{ + return "Makefile"; +} + + +// Returns the lexer name. +const char *QsciLexerMakefile::lexer() const +{ + return "makefile"; +} + + +// Return the string of characters that comprise a word. +const char *QsciLexerMakefile::wordCharacters() const +{ + return "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-"; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerMakefile::defaultColor(int style) const +{ + switch (style) + { + case Default: + case Operator: + return QColor(0x00,0x00,0x00); + + case Comment: + return QColor(0x00,0x7f,0x00); + + case Preprocessor: + return QColor(0x7f,0x7f,0x00); + + case Variable: + return QColor(0x00,0x00,0x80); + + case Target: + return QColor(0xa0,0x00,0x00); + + case Error: + return QColor(0xff,0xff,0x00); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the end-of-line fill for a style. +bool QsciLexerMakefile::defaultEolFill(int style) const +{ + if (style == Error) + return true; + + return QsciLexer::defaultEolFill(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerMakefile::defaultFont(int style) const +{ + QFont f; + + if (style == Comment) +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + else + f = QsciLexer::defaultFont(style); + + return f; +} + + +// Returns the user name of a style. +QString QsciLexerMakefile::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Comment: + return tr("Comment"); + + case Preprocessor: + return tr("Preprocessor"); + + case Variable: + return tr("Variable"); + + case Operator: + return tr("Operator"); + + case Target: + return tr("Target"); + + case Error: + return tr("Error"); + } + + return QString(); +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerMakefile::defaultPaper(int style) const +{ + if (style == Error) + return QColor(0xff,0x00,0x00); + + return QsciLexer::defaultPaper(style); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexermarkdown.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexermarkdown.cpp new file mode 100644 index 000000000..97a9f24c5 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexermarkdown.cpp @@ -0,0 +1,289 @@ +// This module implements the QsciLexerMarkdown class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexermarkdown.h" + +#include + + +// The ctor. +QsciLexerMarkdown::QsciLexerMarkdown(QObject *parent) + : QsciLexer(parent) +{ +} + + +// The dtor. +QsciLexerMarkdown::~QsciLexerMarkdown() +{ +} + + +// Returns the language name. +const char *QsciLexerMarkdown::language() const +{ + return "Markdown"; +} + + +// Returns the lexer name. +const char *QsciLexerMarkdown::lexer() const +{ + return "markdown"; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerMarkdown::defaultColor(int style) const +{ + switch (style) + { + case Special: + return QColor(0xcc, 0x00, 0xff); + + case StrongEmphasisAsterisks: + case StrongEmphasisUnderscores: + return QColor(0x22, 0x44, 0x66); + + case EmphasisAsterisks: + case EmphasisUnderscores: + return QColor(0x88, 0x00, 0x88); + + case Header1: + return QColor(0xff, 0x77, 0x00); + + case Header2: + return QColor(0xdd, 0x66, 0x00); + + case Header3: + return QColor(0xbb, 0x55, 0x00); + + case Header4: + return QColor(0x99, 0x44, 0x00); + + case Header5: + return QColor(0x77, 0x33, 0x00); + + case Header6: + return QColor(0x55, 0x22, 0x00); + + case Prechar: + return QColor(0x00, 0x00, 0x00); + + case UnorderedListItem: + return QColor(0x82, 0x5d, 0x00); + + case OrderedListItem: + return QColor(0x00, 0x00, 0x70); + + case BlockQuote: + return QColor(0x00, 0x66, 0x00); + + case StrikeOut: + return QColor(0xdd, 0xdd, 0xdd); + + case HorizontalRule: + return QColor(0x1f, 0x1c, 0x1b); + + case Link: + return QColor(0x00, 0x00, 0xaa); + + case CodeBackticks: + case CodeDoubleBackticks: + return QColor(0x7f, 0x00, 0x7f); + + case CodeBlock: + return QColor(0x00, 0x45, 0x8a); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerMarkdown::defaultFont(int style) const +{ + QFont f; + + switch (style) + { + case StrongEmphasisAsterisks: + case StrongEmphasisUnderscores: + f = QsciLexer::defaultFont(style); + f.setBold(true); + break; + + case EmphasisAsterisks: + case EmphasisUnderscores: + f = QsciLexer::defaultFont(style); + f.setItalic(true); + break; + + case Header1: + case Header2: + case Header3: + case Header4: + case Header5: + case Header6: +#if defined(Q_OS_WIN) + f = QFont("Courier New", 10); +#elif defined(Q_OS_MAC) + f = QFont("Courier", 12); +#else + f = QFont("Bitstream Vera Sans Mono", 9); +#endif + f.setBold(true); + break; + + case HorizontalRule: + case CodeBackticks: + case CodeDoubleBackticks: + case CodeBlock: +#if defined(Q_OS_WIN) + f = QFont("Courier New", 10); +#elif defined(Q_OS_MAC) + f = QFont("Courier", 12); +#else + f = QFont("Bitstream Vera Sans Mono", 9); +#endif + break; + + case Link: + f = QsciLexer::defaultFont(style); + f.setUnderline(true); + break; + + default: + f = QsciLexer::defaultFont(style); + } + + return f; +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerMarkdown::defaultPaper(int style) const +{ + switch (style) + { + case Prechar: + return QColor(0xee, 0xee, 0xaa); + + case UnorderedListItem: + return QColor(0xde, 0xd8, 0xc3); + + case OrderedListItem: + return QColor(0xb8, 0xc3, 0xe1); + + case BlockQuote: + return QColor(0xcb, 0xdc, 0xcb); + + case StrikeOut: + return QColor(0xaa, 0x00, 0x00); + + case HorizontalRule: + return QColor(0xe7, 0xd1, 0xc9); + + case CodeBackticks: + case CodeDoubleBackticks: + return QColor(0xef, 0xff, 0xef); + + case CodeBlock: + return QColor(0xc5, 0xe0, 0xf5); + } + + return QsciLexer::defaultPaper(style); +} + + +// Returns the user name of a style. +QString QsciLexerMarkdown::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Special: + return tr("Special"); + + case StrongEmphasisAsterisks: + return tr("Strong emphasis using double asterisks"); + + case StrongEmphasisUnderscores: + return tr("Strong emphasis using double underscores"); + + case EmphasisAsterisks: + return tr("Emphasis using single asterisks"); + + case EmphasisUnderscores: + return tr("Emphasis using single underscores"); + + case Header1: + return tr("Level 1 header"); + + case Header2: + return tr("Level 2 header"); + + case Header3: + return tr("Level 3 header"); + + case Header4: + return tr("Level 4 header"); + + case Header5: + return tr("Level 5 header"); + + case Header6: + return tr("Level 6 header"); + + case Prechar: + return tr("Pre-char"); + + case UnorderedListItem: + return tr("Unordered list item"); + + case OrderedListItem: + return tr("Ordered list item"); + + case BlockQuote: + return tr("Block quote"); + + case StrikeOut: + return tr("Strike out"); + + case HorizontalRule: + return tr("Horizontal rule"); + + case Link: + return tr("Link"); + + case CodeBackticks: + return tr("Code between backticks"); + + case CodeDoubleBackticks: + return tr("Code between double backticks"); + + case CodeBlock: + return tr("Code block"); + } + + return QString(); +} diff --git a/libs/qscintilla/Qt4Qt5/SciNamespace.h b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexermasm.cpp similarity index 60% rename from libs/qscintilla/Qt4Qt5/SciNamespace.h rename to libs/qscintilla_2.14.1/Qt5Qt6/qscilexermasm.cpp index 7c9242b96..1bed35ad3 100644 --- a/libs/qscintilla/Qt4Qt5/SciNamespace.h +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexermasm.cpp @@ -1,7 +1,6 @@ -// Support for building the Scintilla code in the Scintilla namespace using the -// -DSCI_NAMESPACE compiler flag. +// This module implements the QsciLexerMASM class. // -// Copyright (c) 2018 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -19,17 +18,31 @@ // WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. -#ifndef _SCINAMESPACE_H -#define _SCINAMESPACE_H +#include "Qsci/qscilexermasm.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 +// The ctor. +QsciLexerMASM::QsciLexerMASM(QObject *parent) + : QsciLexerAsm(parent) +{ +} + + +// The dtor. +QsciLexerMASM::~QsciLexerMASM() +{ +} + + +// Returns the language name. +const char *QsciLexerMASM::language() const +{ + return "MASM"; +} + + +// Returns the lexer name. +const char *QsciLexerMASM::lexer() const +{ + return "asm"; +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexermatlab.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexermatlab.cpp new file mode 100644 index 000000000..dbcf77ffa --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexermatlab.cpp @@ -0,0 +1,161 @@ +// This module implements the QsciLexerMatlab class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexermatlab.h" + +#include +#include + + +// The ctor. +QsciLexerMatlab::QsciLexerMatlab(QObject *parent) + : QsciLexer(parent) +{ +} + + +// The dtor. +QsciLexerMatlab::~QsciLexerMatlab() +{ +} + + +// Returns the language name. +const char *QsciLexerMatlab::language() const +{ + return "Matlab"; +} + + +// Returns the lexer name. +const char *QsciLexerMatlab::lexer() const +{ + return "matlab"; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerMatlab::defaultColor(int style) const +{ + switch (style) + { + case Default: + case Operator: + return QColor(0x00,0x00,0x00); + + case Comment: + return QColor(0x00,0x7f,0x00); + + case Command: + return QColor(0x7f,0x7f,0x00); + + case Number: + return QColor(0x00,0x7f,0x7f); + + case Keyword: + return QColor(0x00,0x00,0x7f); + + case SingleQuotedString: + case DoubleQuotedString: + return QColor(0x7f,0x00,0x7f); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerMatlab::defaultFont(int style) const +{ + QFont f; + + switch (style) + { + case Comment: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + break; + + case Keyword: + case Operator: + f = QsciLexer::defaultFont(style); + f.setBold(true); + break; + + default: + f = QsciLexer::defaultFont(style); + } + + return f; +} + + +// Returns the set of keywords. +const char *QsciLexerMatlab::keywords(int set) const +{ + if (set == 1) + return + "break case catch continue else elseif end for function " + "global if otherwise persistent return switch try while"; + + return 0; +} + + +// Returns the user name of a style. +QString QsciLexerMatlab::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Comment: + return tr("Comment"); + + case Command: + return tr("Command"); + + case Number: + return tr("Number"); + + case Keyword: + return tr("Keyword"); + + case SingleQuotedString: + return tr("Single-quoted string"); + + case Operator: + return tr("Operator"); + + case Identifier: + return tr("Identifier"); + + case DoubleQuotedString: + return tr("Double-quoted string"); + } + + return QString(); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexernasm.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexernasm.cpp new file mode 100644 index 000000000..054adf1df --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexernasm.cpp @@ -0,0 +1,48 @@ +// This module implements the QsciLexerNASM class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexernasm.h" + + +// The ctor. +QsciLexerNASM::QsciLexerNASM(QObject *parent) + : QsciLexerAsm(parent) +{ +} + + +// The dtor. +QsciLexerNASM::~QsciLexerNASM() +{ +} + + +// Returns the language name. +const char *QsciLexerNASM::language() const +{ + return "NASM"; +} + + +// Returns the lexer name. +const char *QsciLexerNASM::lexer() const +{ + return "as"; +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexeroctave.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexeroctave.cpp new file mode 100644 index 000000000..192d7e8af --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexeroctave.cpp @@ -0,0 +1,68 @@ +// This module implements the QsciLexerOctave class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexeroctave.h" + +#include +#include + + +// The ctor. +QsciLexerOctave::QsciLexerOctave(QObject *parent) + : QsciLexerMatlab(parent) +{ +} + + +// The dtor. +QsciLexerOctave::~QsciLexerOctave() +{ +} + + +// Returns the language name. +const char *QsciLexerOctave::language() const +{ + return "Octave"; +} + + +// Returns the lexer name. +const char *QsciLexerOctave::lexer() const +{ + return "octave"; +} + + +// Returns the set of keywords. +const char *QsciLexerOctave::keywords(int set) const +{ + if (set == 1) + return + "__FILE__ __LINE__ break case catch classdef continue do else " + "elseif end end_try_catch end_unwind_protect endclassdef " + "endenumeration endevents endfor endfunction endif endmethods " + "endparfor endproperties endswitch endwhile enumeration events " + "for function get global if methods otherwise parfor persistent " + "properties return set static switch try until unwind_protect " + "unwind_protect_cleanup while"; + + return 0; +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerpascal.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerpascal.cpp new file mode 100644 index 000000000..3d7f8162d --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerpascal.cpp @@ -0,0 +1,432 @@ +// This module implements the QsciLexerPascal class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexerpascal.h" + +#include +#include +#include + + +// The ctor. +QsciLexerPascal::QsciLexerPascal(QObject *parent) + : QsciLexer(parent), + fold_comments(false), fold_compact(true), fold_preproc(false), + smart_highlight(true) +{ +} + + +// The dtor. +QsciLexerPascal::~QsciLexerPascal() +{ +} + + +// Returns the language name. +const char *QsciLexerPascal::language() const +{ + return "Pascal"; +} + + +// Returns the lexer name. +const char *QsciLexerPascal::lexer() const +{ + return "pascal"; +} + + +// Return the set of character sequences that can separate auto-completion +// words. +QStringList QsciLexerPascal::autoCompletionWordSeparators() const +{ + QStringList wl; + + wl << "." << "^"; + + return wl; +} + + +// Return the list of keywords that can start a block. +const char *QsciLexerPascal::blockStartKeyword(int *style) const +{ + if (style) + *style = Keyword; + + return + "case class do else for then private protected public published " + "repeat try while type"; +} + + +// Return the list of characters that can start a block. +const char *QsciLexerPascal::blockStart(int *style) const +{ + if (style) + *style = Operator; + + return "begin"; +} + + +// Return the list of characters that can end a block. +const char *QsciLexerPascal::blockEnd(int *style) const +{ + if (style) + *style = Operator; + + return "end"; +} + + +// Return the style used for braces. +int QsciLexerPascal::braceStyle() const +{ + return Operator; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerPascal::defaultColor(int style) const +{ + switch (style) + { + case Default: + return QColor(0x80,0x80,0x80); + + case Identifier: + break; + + case Comment: + case CommentParenthesis: + case CommentLine: + return QColor(0x00,0x7f,0x00); + + case PreProcessor: + case PreProcessorParenthesis: + return QColor(0x7f,0x7f,0x00); + + case Number: + case HexNumber: + return QColor(0x00,0x7f,0x7f); + + case Keyword: + return QColor(0x00,0x00,0x7f); + + case SingleQuotedString: + case Character: + return QColor(0x7f,0x00,0x7f); + + case UnclosedString: + case Operator: + return QColor(0x00,0x00,0x00); + + case Asm: + return QColor(0x80,0x40,0x80); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the end-of-line fill for a style. +bool QsciLexerPascal::defaultEolFill(int style) const +{ + if (style == UnclosedString) + return true; + + return QsciLexer::defaultEolFill(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerPascal::defaultFont(int style) const +{ + QFont f; + + switch (style) + { + case Comment: + case CommentParenthesis: + case CommentLine: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + break; + + case Keyword: + case Operator: + f = QsciLexer::defaultFont(style); + f.setBold(true); + break; + + case SingleQuotedString: +#if defined(Q_OS_WIN) + f = QFont("Times New Roman", 11); +#elif defined(Q_OS_MAC) + f = QFont("Times New Roman", 12); +#else + f = QFont("Bitstream Charter", 10); +#endif + f.setItalic(true); + break; + + case UnclosedString: +#if defined(Q_OS_WIN) + f = QFont("Courier New", 10); +#elif defined(Q_OS_MAC) + f = QFont("Courier", 12); +#else + f = QFont("Bitstream Vera Sans Mono", 9); +#endif + break; + + default: + f = QsciLexer::defaultFont(style); + } + + return f; +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerPascal::defaultPaper(int style) const +{ + if (style == UnclosedString) + return QColor(0xe0,0xc0,0xe0); + + return QsciLexer::defaultPaper(style); +} + + +// Returns the set of keywords. +const char *QsciLexerPascal::keywords(int set) const +{ + if (set == 1) + return + "absolute abstract and array as asm assembler automated begin " + "case cdecl class const constructor delayed deprecated destructor " + "dispid dispinterface div do downto dynamic else end except " + "experimental export exports external far file final finalization " + "finally for forward function goto helper if implementation in " + "inherited initialization inline interface is label library " + "message mod near nil not object of on operator or out overload " + "override packed pascal platform private procedure program " + "property protected public published raise record reference " + "register reintroduce repeat resourcestring safecall sealed set " + "shl shr static stdcall strict string then threadvar to try type " + "unit unsafe until uses var varargs virtual while winapi with xor" + "add default implements index name nodefault read readonly remove " + "stored write writeonly" + "package contains requires"; + + return 0; +} + + +// Returns the user name of a style. +QString QsciLexerPascal::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Identifier: + return tr("Identifier"); + + case Comment: + return tr("'{ ... }' style comment"); + + case CommentParenthesis: + return tr("'(* ... *)' style comment"); + + case CommentLine: + return tr("Line comment"); + + case PreProcessor: + return tr("'{$ ... }' style pre-processor block"); + + case PreProcessorParenthesis: + return tr("'(*$ ... *)' style pre-processor block"); + + case Number: + return tr("Number"); + + case HexNumber: + return tr("Hexadecimal number"); + + case Keyword: + return tr("Keyword"); + + case SingleQuotedString: + return tr("Single-quoted string"); + + case UnclosedString: + return tr("Unclosed string"); + + case Character: + return tr("Character"); + + case Operator: + return tr("Operator"); + + case Asm: + return tr("Inline asm"); + } + + return QString(); +} + + +// Refresh all properties. +void QsciLexerPascal::refreshProperties() +{ + setCommentProp(); + setCompactProp(); + setPreprocProp(); + setSmartHighlightProp(); +} + + +// Read properties from the settings. +bool QsciLexerPascal::readProperties(QSettings &qs,const QString &prefix) +{ + int rc = true; + + fold_comments = qs.value(prefix + "foldcomments", false).toBool(); + fold_compact = qs.value(prefix + "foldcompact", true).toBool(); + fold_preproc = qs.value(prefix + "foldpreprocessor", true).toBool(); + smart_highlight = qs.value(prefix + "smarthighlight", true).toBool(); + + return rc; +} + + +// Write properties to the settings. +bool QsciLexerPascal::writeProperties(QSettings &qs,const QString &prefix) const +{ + int rc = true; + + qs.setValue(prefix + "foldcomments", fold_comments); + qs.setValue(prefix + "foldcompact", fold_compact); + qs.setValue(prefix + "foldpreprocessor", fold_preproc); + qs.setValue(prefix + "smarthighlight", smart_highlight); + + return rc; +} + + +// Return true if comments can be folded. +bool QsciLexerPascal::foldComments() const +{ + return fold_comments; +} + + +// Set if comments can be folded. +void QsciLexerPascal::setFoldComments(bool fold) +{ + fold_comments = fold; + + setCommentProp(); +} + + +// Set the "fold.comment" property. +void QsciLexerPascal::setCommentProp() +{ + emit propertyChanged("fold.comment",(fold_comments ? "1" : "0")); +} + + +// Return true if folds are compact. +bool QsciLexerPascal::foldCompact() const +{ + return fold_compact; +} + + +// Set if folds are compact +void QsciLexerPascal::setFoldCompact(bool fold) +{ + fold_compact = fold; + + setCompactProp(); +} + + +// Set the "fold.compact" property. +void QsciLexerPascal::setCompactProp() +{ + emit propertyChanged("fold.compact",(fold_compact ? "1" : "0")); +} + + +// Return true if preprocessor blocks can be folded. +bool QsciLexerPascal::foldPreprocessor() const +{ + return fold_preproc; +} + + +// Set if preprocessor blocks can be folded. +void QsciLexerPascal::setFoldPreprocessor(bool fold) +{ + fold_preproc = fold; + + setPreprocProp(); +} + + +// Set the "fold.preprocessor" property. +void QsciLexerPascal::setPreprocProp() +{ + emit propertyChanged("fold.preprocessor",(fold_preproc ? "1" : "0")); +} + + +// Return true if smart highlighting is enabled. +bool QsciLexerPascal::smartHighlighting() const +{ + return smart_highlight; +} + + +// Set if smart highlighting is enabled. +void QsciLexerPascal::setSmartHighlighting(bool enabled) +{ + smart_highlight = enabled; + + setSmartHighlightProp(); +} + + +// Set the "lexer.pascal.smart.highlighting" property. +void QsciLexerPascal::setSmartHighlightProp() +{ + emit propertyChanged("lexer.pascal.smart.highlighting", (smart_highlight ? "1" : "0")); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerperl.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerperl.cpp new file mode 100644 index 000000000..cce8f31df --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerperl.cpp @@ -0,0 +1,658 @@ +// This module implements the QsciLexerPerl class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexerperl.h" + +#include +#include +#include + + +// The ctor. +QsciLexerPerl::QsciLexerPerl(QObject *parent) + : QsciLexer(parent), + fold_atelse(false), fold_comments(false), fold_compact(true), + fold_packages(true), fold_pod_blocks(true) +{ +} + + +// The dtor. +QsciLexerPerl::~QsciLexerPerl() +{ +} + + +// Returns the language name. +const char *QsciLexerPerl::language() const +{ + return "Perl"; +} + + +// Returns the lexer name. +const char *QsciLexerPerl::lexer() const +{ + return "perl"; +} + + +// Return the set of character sequences that can separate auto-completion +// words. +QStringList QsciLexerPerl::autoCompletionWordSeparators() const +{ + QStringList wl; + + wl << "::" << "->"; + + return wl; +} + + +// Return the list of characters that can start a block. +const char *QsciLexerPerl::blockStart(int *style) const +{ + if (style) + *style = Operator; + + return "{"; +} + + +// Return the list of characters that can end a block. +const char *QsciLexerPerl::blockEnd(int *style) const +{ + if (style) + *style = Operator; + + return "}"; +} + + +// Return the style used for braces. +int QsciLexerPerl::braceStyle() const +{ + return Operator; +} + + +// Return the string of characters that comprise a word. +const char *QsciLexerPerl::wordCharacters() const +{ + return "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_$@%&"; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerPerl::defaultColor(int style) const +{ + switch (style) + { + case Default: + return QColor(0x80,0x80,0x80); + + case Error: + case Backticks: + case QuotedStringQX: + return QColor(0xff,0xff,0x00); + + case Comment: + return QColor(0x00,0x7f,0x00); + + case POD: + case PODVerbatim: + return QColor(0x00,0x40,0x00); + + case Number: + return QColor(0x00,0x7f,0x7f); + + case Keyword: + return QColor(0x00,0x00,0x7f); + + case DoubleQuotedString: + case SingleQuotedString: + case SingleQuotedHereDocument: + case DoubleQuotedHereDocument: + case BacktickHereDocument: + case QuotedStringQ: + case QuotedStringQQ: + return QColor(0x7f,0x00,0x7f); + + case Operator: + case Identifier: + case Scalar: + case Array: + case Hash: + case SymbolTable: + case Regex: + case Substitution: + case HereDocumentDelimiter: + case QuotedStringQR: + case QuotedStringQW: + case SubroutinePrototype: + case Translation: + return QColor(0x00,0x00,0x00); + + case DataSection: + return QColor(0x60,0x00,0x00); + + case FormatIdentifier: + case FormatBody: + return QColor(0xc0,0x00,0xc0); + + case DoubleQuotedStringVar: + case RegexVar: + case SubstitutionVar: + case BackticksVar: + case DoubleQuotedHereDocumentVar: + case BacktickHereDocumentVar: + case QuotedStringQQVar: + case QuotedStringQXVar: + case QuotedStringQRVar: + return QColor(0xd0, 0x00, 0x00); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the end-of-line fill for a style. +bool QsciLexerPerl::defaultEolFill(int style) const +{ + switch (style) + { + case POD: + case DataSection: + case SingleQuotedHereDocument: + case DoubleQuotedHereDocument: + case BacktickHereDocument: + case PODVerbatim: + case FormatBody: + case DoubleQuotedHereDocumentVar: + case BacktickHereDocumentVar: + return true; + } + + return QsciLexer::defaultEolFill(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerPerl::defaultFont(int style) const +{ + QFont f; + + switch (style) + { + case Comment: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + break; + + case POD: +#if defined(Q_OS_WIN) + f = QFont("Times New Roman",11); +#elif defined(Q_OS_MAC) + f = QFont("Times New Roman", 12); +#else + f = QFont("Bitstream Charter",10); +#endif + break; + + case Keyword: + case Operator: + case DoubleQuotedHereDocument: + case FormatIdentifier: + case RegexVar: + case SubstitutionVar: + case BackticksVar: + case DoubleQuotedHereDocumentVar: + case BacktickHereDocumentVar: + case QuotedStringQXVar: + case QuotedStringQRVar: + f = QsciLexer::defaultFont(style); + f.setBold(true); + break; + + case DoubleQuotedString: + case SingleQuotedString: + case QuotedStringQQ: + case PODVerbatim: +#if defined(Q_OS_WIN) + f = QFont("Courier New",10); +#elif defined(Q_OS_MAC) + f = QFont("Courier", 12); +#else + f = QFont("Bitstream Vera Sans Mono",9); +#endif + break; + + case BacktickHereDocument: + case SubroutinePrototype: + f = QsciLexer::defaultFont(style); + f.setItalic(true); + break; + + case DoubleQuotedStringVar: + case QuotedStringQQVar: +#if defined(Q_OS_WIN) + f = QFont("Courier New",10); +#elif defined(Q_OS_MAC) + f = QFont("Courier", 12); +#else + f = QFont("Bitstream Vera Sans Mono",9); +#endif + f.setBold(true); + break; + + default: + f = QsciLexer::defaultFont(style); + } + + return f; +} + + +// Returns the set of keywords. +const char *QsciLexerPerl::keywords(int set) const +{ + if (set == 1) + return + "NULL __FILE__ __LINE__ __PACKAGE__ __DATA__ __END__ " + "AUTOLOAD BEGIN CORE DESTROY END EQ GE GT INIT LE LT " + "NE CHECK abs accept alarm and atan2 bind binmode " + "bless caller chdir chmod chomp chop chown chr chroot " + "close closedir cmp connect continue cos crypt " + "dbmclose dbmopen defined delete die do dump each " + "else elsif endgrent endhostent endnetent endprotoent " + "endpwent endservent eof eq eval exec exists exit exp " + "fcntl fileno flock for foreach fork format formline " + "ge getc getgrent getgrgid getgrnam gethostbyaddr " + "gethostbyname gethostent getlogin getnetbyaddr " + "getnetbyname getnetent getpeername getpgrp getppid " + "getpriority getprotobyname getprotobynumber " + "getprotoent getpwent getpwnam getpwuid getservbyname " + "getservbyport getservent getsockname getsockopt glob " + "gmtime goto grep gt hex if index int ioctl join keys " + "kill last lc lcfirst le length link listen local " + "localtime lock log lstat lt m map mkdir msgctl " + "msgget msgrcv msgsnd my ne next no not oct open " + "opendir or ord our pack package pipe pop pos print " + "printf prototype push q qq qr quotemeta qu qw qx " + "rand read readdir readline readlink readpipe recv " + "redo ref rename require reset return reverse " + "rewinddir rindex rmdir s scalar seek seekdir select " + "semctl semget semop send setgrent sethostent " + "setnetent setpgrp setpriority setprotoent setpwent " + "setservent setsockopt shift shmctl shmget shmread " + "shmwrite shutdown sin sleep socket socketpair sort " + "splice split sprintf sqrt srand stat study sub " + "substr symlink syscall sysopen sysread sysseek " + "system syswrite tell telldir tie tied time times tr " + "truncate uc ucfirst umask undef unless unlink unpack " + "unshift untie until use utime values vec wait " + "waitpid wantarray warn while write x xor y"; + + return 0; +} + + +// Returns the user name of a style. +QString QsciLexerPerl::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Error: + return tr("Error"); + + case Comment: + return tr("Comment"); + + case POD: + return tr("POD"); + + case Number: + return tr("Number"); + + case Keyword: + return tr("Keyword"); + + case DoubleQuotedString: + return tr("Double-quoted string"); + + case SingleQuotedString: + return tr("Single-quoted string"); + + case Operator: + return tr("Operator"); + + case Identifier: + return tr("Identifier"); + + case Scalar: + return tr("Scalar"); + + case Array: + return tr("Array"); + + case Hash: + return tr("Hash"); + + case SymbolTable: + return tr("Symbol table"); + + case Regex: + return tr("Regular expression"); + + case Substitution: + return tr("Substitution"); + + case Backticks: + return tr("Backticks"); + + case DataSection: + return tr("Data section"); + + case HereDocumentDelimiter: + return tr("Here document delimiter"); + + case SingleQuotedHereDocument: + return tr("Single-quoted here document"); + + case DoubleQuotedHereDocument: + return tr("Double-quoted here document"); + + case BacktickHereDocument: + return tr("Backtick here document"); + + case QuotedStringQ: + return tr("Quoted string (q)"); + + case QuotedStringQQ: + return tr("Quoted string (qq)"); + + case QuotedStringQX: + return tr("Quoted string (qx)"); + + case QuotedStringQR: + return tr("Quoted string (qr)"); + + case QuotedStringQW: + return tr("Quoted string (qw)"); + + case PODVerbatim: + return tr("POD verbatim"); + + case SubroutinePrototype: + return tr("Subroutine prototype"); + + case FormatIdentifier: + return tr("Format identifier"); + + case FormatBody: + return tr("Format body"); + + case DoubleQuotedStringVar: + return tr("Double-quoted string (interpolated variable)"); + + case Translation: + return tr("Translation"); + + case RegexVar: + return tr("Regular expression (interpolated variable)"); + + case SubstitutionVar: + return tr("Substitution (interpolated variable)"); + + case BackticksVar: + return tr("Backticks (interpolated variable)"); + + case DoubleQuotedHereDocumentVar: + return tr("Double-quoted here document (interpolated variable)"); + + case BacktickHereDocumentVar: + return tr("Backtick here document (interpolated variable)"); + + case QuotedStringQQVar: + return tr("Quoted string (qq, interpolated variable)"); + + case QuotedStringQXVar: + return tr("Quoted string (qx, interpolated variable)"); + + case QuotedStringQRVar: + return tr("Quoted string (qr, interpolated variable)"); + } + + return QString(); +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerPerl::defaultPaper(int style) const +{ + switch (style) + { + case Error: + return QColor(0xff,0x00,0x00); + + case POD: + return QColor(0xe0,0xff,0xe0); + + case Scalar: + return QColor(0xff,0xe0,0xe0); + + case Array: + return QColor(0xff,0xff,0xe0); + + case Hash: + return QColor(0xff,0xe0,0xff); + + case SymbolTable: + return QColor(0xe0,0xe0,0xe0); + + case Regex: + return QColor(0xa0,0xff,0xa0); + + case Substitution: + case Translation: + return QColor(0xf0,0xe0,0x80); + + case Backticks: + case BackticksVar: + case QuotedStringQXVar: + return QColor(0xa0,0x80,0x80); + + case DataSection: + return QColor(0xff,0xf0,0xd8); + + case HereDocumentDelimiter: + case SingleQuotedHereDocument: + case DoubleQuotedHereDocument: + case BacktickHereDocument: + case DoubleQuotedHereDocumentVar: + case BacktickHereDocumentVar: + return QColor(0xdd,0xd0,0xdd); + + case PODVerbatim: + return QColor(0xc0,0xff,0xc0); + + case FormatBody: + return QColor(0xff,0xf0,0xff); + } + + return QsciLexer::defaultPaper(style); +} + + +// Refresh all properties. +void QsciLexerPerl::refreshProperties() +{ + setAtElseProp(); + setCommentProp(); + setCompactProp(); + setPackagesProp(); + setPODBlocksProp(); +} + + +// Read properties from the settings. +bool QsciLexerPerl::readProperties(QSettings &qs,const QString &prefix) +{ + int rc = true; + + fold_atelse = qs.value(prefix + "foldatelse", false).toBool(); + fold_comments = qs.value(prefix + "foldcomments", false).toBool(); + fold_compact = qs.value(prefix + "foldcompact", true).toBool(); + fold_packages = qs.value(prefix + "foldpackages", true).toBool(); + fold_pod_blocks = qs.value(prefix + "foldpodblocks", true).toBool(); + + return rc; +} + + +// Write properties to the settings. +bool QsciLexerPerl::writeProperties(QSettings &qs,const QString &prefix) const +{ + int rc = true; + + qs.setValue(prefix + "foldatelse", fold_atelse); + qs.setValue(prefix + "foldcomments", fold_comments); + qs.setValue(prefix + "foldcompact", fold_compact); + qs.setValue(prefix + "foldpackages", fold_packages); + qs.setValue(prefix + "foldpodblocks", fold_pod_blocks); + + return rc; +} + + +// Return true if comments can be folded. +bool QsciLexerPerl::foldComments() const +{ + return fold_comments; +} + + +// Set if comments can be folded. +void QsciLexerPerl::setFoldComments(bool fold) +{ + fold_comments = fold; + + setCommentProp(); +} + + +// Set the "fold.comment" property. +void QsciLexerPerl::setCommentProp() +{ + emit propertyChanged("fold.comment",(fold_comments ? "1" : "0")); +} + + +// Return true if folds are compact. +bool QsciLexerPerl::foldCompact() const +{ + return fold_compact; +} + + +// Set if folds are compact +void QsciLexerPerl::setFoldCompact(bool fold) +{ + fold_compact = fold; + + setCompactProp(); +} + + +// Set the "fold.compact" property. +void QsciLexerPerl::setCompactProp() +{ + emit propertyChanged("fold.compact",(fold_compact ? "1" : "0")); +} + + +// Return true if packages can be folded. +bool QsciLexerPerl::foldPackages() const +{ + return fold_packages; +} + + +// Set if packages can be folded. +void QsciLexerPerl::setFoldPackages(bool fold) +{ + fold_packages = fold; + + setPackagesProp(); +} + + +// Set the "fold.perl.package" property. +void QsciLexerPerl::setPackagesProp() +{ + emit propertyChanged("fold.perl.package",(fold_packages ? "1" : "0")); +} + + +// Return true if POD blocks can be folded. +bool QsciLexerPerl::foldPODBlocks() const +{ + return fold_pod_blocks; +} + + +// Set if POD blocks can be folded. +void QsciLexerPerl::setFoldPODBlocks(bool fold) +{ + fold_pod_blocks = fold; + + setPODBlocksProp(); +} + + +// Set the "fold.perl.pod" property. +void QsciLexerPerl::setPODBlocksProp() +{ + emit propertyChanged("fold.perl.pod",(fold_pod_blocks ? "1" : "0")); +} + + +// Set if else can be folded. +void QsciLexerPerl::setFoldAtElse(bool fold) +{ + fold_atelse = fold; + + setAtElseProp(); +} + + +// Set the "fold.perl.at.else" property. +void QsciLexerPerl::setAtElseProp() +{ + emit propertyChanged("fold.perl.at.else",(fold_atelse ? "1" : "0")); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerpo.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerpo.cpp new file mode 100644 index 000000000..85192593a --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerpo.cpp @@ -0,0 +1,223 @@ +// This module implements the QsciLexerPO class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexerpo.h" + +#include +#include +#include + + +// The ctor. +QsciLexerPO::QsciLexerPO(QObject *parent) + : QsciLexer(parent), fold_comments(false), fold_compact(true) +{ +} + + +// The dtor. +QsciLexerPO::~QsciLexerPO() +{ +} + + +// Returns the language name. +const char *QsciLexerPO::language() const +{ + return "PO"; +} + + +// Returns the lexer name. +const char *QsciLexerPO::lexer() const +{ + return "po"; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerPO::defaultColor(int style) const +{ + switch (style) + { + case Comment: + return QColor(0x00, 0x7f, 0x00); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerPO::defaultFont(int style) const +{ + QFont f; + + switch (style) + { + case Comment: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS", 9); +#elif defined(Q_OS_MAC) + f = QFont("Georgia", 13); +#else + f = QFont("Bitstream Vera Serif", 9); +#endif + break; + + default: + f = QsciLexer::defaultFont(style); + } + + return f; +} + + +// Returns the user name of a style. +QString QsciLexerPO::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Comment: + return tr("Comment"); + + case MessageId: + return tr("Message identifier"); + + case MessageIdText: + return tr("Message identifier text"); + + case MessageString: + return tr("Message string"); + + case MessageStringText: + return tr("Message string text"); + + case MessageContext: + return tr("Message context"); + + case MessageContextText: + return tr("Message context text"); + + case Fuzzy: + return tr("Fuzzy flag"); + + case ProgrammerComment: + return tr("Programmer comment"); + + case Reference: + return tr("Reference"); + + case Flags: + return tr("Flags"); + + case MessageIdTextEOL: + return tr("Message identifier text end-of-line"); + + case MessageStringTextEOL: + return tr("Message string text end-of-line"); + + case MessageContextTextEOL: + return tr("Message context text end-of-line"); + } + + return QString(); +} + + +// Refresh all properties. +void QsciLexerPO::refreshProperties() +{ + setCommentProp(); + setCompactProp(); +} + + +// Read properties from the settings. +bool QsciLexerPO::readProperties(QSettings &qs,const QString &prefix) +{ + int rc = true; + + fold_comments = qs.value(prefix + "foldcomments", false).toBool(); + fold_compact = qs.value(prefix + "foldcompact", true).toBool(); + + return rc; +} + + +// Write properties to the settings. +bool QsciLexerPO::writeProperties(QSettings &qs,const QString &prefix) const +{ + int rc = true; + + qs.setValue(prefix + "foldcomments", fold_comments); + qs.setValue(prefix + "foldcompact", fold_compact); + + return rc; +} + + +// Return true if comments can be folded. +bool QsciLexerPO::foldComments() const +{ + return fold_comments; +} + + +// Set if comments can be folded. +void QsciLexerPO::setFoldComments(bool fold) +{ + fold_comments = fold; + + setCommentProp(); +} + + +// Set the "fold.comment" property. +void QsciLexerPO::setCommentProp() +{ + emit propertyChanged("fold.comment",(fold_comments ? "1" : "0")); +} + + +// Return true if folds are compact. +bool QsciLexerPO::foldCompact() const +{ + return fold_compact; +} + + +// Set if folds are compact +void QsciLexerPO::setFoldCompact(bool fold) +{ + fold_compact = fold; + + setCompactProp(); +} + + +// Set the "fold.compact" property. +void QsciLexerPO::setCompactProp() +{ + emit propertyChanged("fold.compact",(fold_compact ? "1" : "0")); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerpostscript.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerpostscript.cpp new file mode 100644 index 000000000..12c7ed896 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerpostscript.cpp @@ -0,0 +1,448 @@ +// This module implements the QsciLexerPostScript class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexerpostscript.h" + +#include +#include +#include + + +// The ctor. +QsciLexerPostScript::QsciLexerPostScript(QObject *parent) + : QsciLexer(parent), + ps_tokenize(false), ps_level(3), fold_compact(true), fold_atelse(false) +{ +} + + +// The dtor. +QsciLexerPostScript::~QsciLexerPostScript() +{ +} + + +// Returns the language name. +const char *QsciLexerPostScript::language() const +{ + return "PostScript"; +} + + +// Returns the lexer name. +const char *QsciLexerPostScript::lexer() const +{ + return "ps"; +} + + +// Return the style used for braces. +int QsciLexerPostScript::braceStyle() const +{ + return ProcedureParenthesis; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerPostScript::defaultColor(int style) const +{ + switch (style) + { + case Comment: + return QColor(0x00,0x7f,0x00); + + case DSCComment: + return QColor(0x3f,0x70,0x3f); + + case DSCCommentValue: + case DictionaryParenthesis: + return QColor(0x30,0x60,0xa0); + + case Number: + return QColor(0x00,0x7f,0x7f); + + case Name: + case ProcedureParenthesis: + return QColor(0x00,0x00,0x00); + + case Keyword: + case ArrayParenthesis: + return QColor(0x00,0x00,0x7f); + + case Literal: + case ImmediateEvalLiteral: + return QColor(0x7f,0x7f,0x00); + + case Text: + case Base85String: + return QColor(0x7f,0x00,0x7f); + + case HexString: + return QColor(0x3f,0x7f,0x3f); + + case BadStringCharacter: + return QColor(0xff,0xff,0x00); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerPostScript::defaultFont(int style) const +{ + QFont f; + + switch (style) + { + case Comment: + case DSCComment: + case DSCCommentValue: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + break; + + case Keyword: + case ProcedureParenthesis: + f = QsciLexer::defaultFont(style); + f.setBold(true); + + case Text: +#if defined(Q_OS_WIN) + f = QFont("Times New Roman", 11); +#elif defined(Q_OS_MAC) + f = QFont("Times New Roman", 12); +#else + f = QFont("Bitstream Charter", 10); +#endif + break; + + default: + f = QsciLexer::defaultFont(style); + } + + return f; +} + + +// Returns the set of keywords. +const char *QsciLexerPostScript::keywords(int set) const +{ + if (set == 1) + return + "$error = == FontDirectory StandardEncoding UserObjects abs add " + "aload anchorsearch and arc arcn arcto array ashow astore atan " + "awidthshow begin bind bitshift bytesavailable cachestatus " + "ceiling charpath clear cleardictstack cleartomark clip clippath " + "closefile closepath concat concatmatrix copy copypage cos count " + "countdictstack countexecstack counttomark currentcmykcolor " + "currentcolorspace currentdash currentdict currentfile " + "currentflat currentfont currentgray currenthsbcolor " + "currentlinecap currentlinejoin currentlinewidth currentmatrix " + "currentmiterlimit currentpagedevice currentpoint currentrgbcolor " + "currentscreen currenttransfer cvi cvlit cvn cvr cvrs cvs cvx def " + "defaultmatrix definefont dict dictstack div dtransform dup echo " + "end eoclip eofill eq erasepage errordict exch exec execstack " + "executeonly executive exit exp false file fill findfont " + "flattenpath floor flush flushfile for forall ge get getinterval " + "grestore grestoreall gsave gt idetmatrix idiv idtransform if " + "ifelse image imagemask index initclip initgraphics initmatrix " + "inustroke invertmatrix itransform known kshow le length lineto " + "ln load log loop lt makefont mark matrix maxlength mod moveto " + "mul ne neg newpath noaccess nor not null nulldevice or pathbbox " + "pathforall pop print prompt pstack put putinterval quit rand " + "rcheck rcurveto read readhexstring readline readonly readstring " + "rectstroke repeat resetfile restore reversepath rlineto rmoveto " + "roll rotate round rrand run save scale scalefont search " + "setblackgeneration setcachedevice setcachelimit setcharwidth " + "setcolorscreen setcolortransfer setdash setflat setfont setgray " + "sethsbcolor setlinecap setlinejoin setlinewidth setmatrix " + "setmiterlimit setpagedevice setrgbcolor setscreen settransfer " + "setvmthreshold show showpage sin sqrt srand stack start status " + "statusdict stop stopped store string stringwidth stroke " + "strokepath sub systemdict token token transform translate true " + "truncate type ueofill undefineresource userdict usertime version " + "vmstatus wcheck where widthshow write writehexstring writestring " + "xcheck xor"; + + if (set == 2) + return + "GlobalFontDirectory ISOLatin1Encoding SharedFontDirectory " + "UserObject arct colorimage cshow currentblackgeneration " + "currentcacheparams currentcmykcolor currentcolor " + "currentcolorrendering currentcolorscreen currentcolorspace " + "currentcolortransfer currentdevparams currentglobal " + "currentgstate currenthalftone currentobjectformat " + "currentoverprint currentpacking currentpagedevice currentshared " + "currentstrokeadjust currentsystemparams currentundercolorremoval " + "currentuserparams defineresource defineuserobject deletefile " + "execform execuserobject filenameforall fileposition filter " + "findencoding findresource gcheck globaldict glyphshow gstate " + "ineofill infill instroke inueofill inufill inustroke " + "languagelevel makepattern packedarray printobject product " + "realtime rectclip rectfill rectstroke renamefile resourceforall " + "resourcestatus revision rootfont scheck selectfont serialnumber " + "setbbox setblackgeneration setcachedevice2 setcacheparams " + "setcmykcolor setcolor setcolorrendering setcolorscreen " + "setcolorspace setcolortranfer setdevparams setfileposition " + "setglobal setgstate sethalftone setobjectformat setoverprint " + "setpacking setpagedevice setpattern setshared setstrokeadjust " + "setsystemparams setucacheparams setundercolorremoval " + "setuserparams setvmthreshold shareddict startjob uappend ucache " + "ucachestatus ueofill ufill undef undefinefont undefineresource " + "undefineuserobject upath ustroke ustrokepath vmreclaim " + "writeobject xshow xyshow yshow"; + + if (set == 3) + return + "cliprestore clipsave composefont currentsmoothness " + "findcolorrendering setsmoothness shfill"; + + if (set == 4) + return + ".begintransparencygroup .begintransparencymask .bytestring " + ".charboxpath .currentaccuratecurves .currentblendmode " + ".currentcurvejoin .currentdashadapt .currentdotlength " + ".currentfilladjust2 .currentlimitclamp .currentopacityalpha " + ".currentoverprintmode .currentrasterop .currentshapealpha " + ".currentsourcetransparent .currenttextknockout " + ".currenttexturetransparent .dashpath .dicttomark " + ".discardtransparencygroup .discardtransparencymask " + ".endtransparencygroup .endtransparencymask .execn .filename " + ".filename .fileposition .forceput .forceundef .forgetsave " + ".getbitsrect .getdevice .inittransparencymask .knownget " + ".locksafe .makeoperator .namestring .oserrno .oserrorstring " + ".peekstring .rectappend .runandhide .setaccuratecurves " + ".setblendmode .setcurvejoin .setdashadapt .setdebug " + ".setdefaultmatrix .setdotlength .setfilladjust2 .setlimitclamp " + ".setmaxlength .setopacityalpha .setoverprintmode .setrasterop " + ".setsafe .setshapealpha .setsourcetransparent .settextknockout " + ".settexturetransparent .stringbreak .stringmatch .tempfile " + ".type1decrypt .type1encrypt .type1execchar .unread arccos " + "arcsin copydevice copyscanlines currentdevice finddevice " + "findlibfile findprotodevice flushpage getdeviceprops getenv " + "makeimagedevice makewordimagedevice max min putdeviceprops " + "setdevice"; + + return 0; +} + + +// Returns the user name of a style. +QString QsciLexerPostScript::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Comment: + return tr("Comment"); + + case DSCComment: + return tr("DSC comment"); + + case DSCCommentValue: + return tr("DSC comment value"); + + case Number: + return tr("Number"); + + case Name: + return tr("Name"); + + case Keyword: + return tr("Keyword"); + + case Literal: + return tr("Literal"); + + case ImmediateEvalLiteral: + return tr("Immediately evaluated literal"); + + case ArrayParenthesis: + return tr("Array parenthesis"); + + case DictionaryParenthesis: + return tr("Dictionary parenthesis"); + + case ProcedureParenthesis: + return tr("Procedure parenthesis"); + + case Text: + return tr("Text"); + + case HexString: + return tr("Hexadecimal string"); + + case Base85String: + return tr("Base85 string"); + + case BadStringCharacter: + return tr("Bad string character"); + } + + return QString(); +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerPostScript::defaultPaper(int style) const +{ + if (style == BadStringCharacter) + return QColor(0xff,0x00,0x00); + + return QsciLexer::defaultPaper(style); +} + + +// Refresh all properties. +void QsciLexerPostScript::refreshProperties() +{ + setTokenizeProp(); + setLevelProp(); + setCompactProp(); + setAtElseProp(); +} + + +// Read properties from the settings. +bool QsciLexerPostScript::readProperties(QSettings &qs,const QString &prefix) +{ + int rc = true; + + ps_tokenize = qs.value(prefix + "pstokenize", false).toBool(); + ps_level = qs.value(prefix + "pslevel", 3).toInt(); + fold_compact = qs.value(prefix + "foldcompact", true).toBool(); + fold_atelse = qs.value(prefix + "foldatelse", false).toBool(); + + return rc; +} + + +// Write properties to the settings. +bool QsciLexerPostScript::writeProperties(QSettings &qs,const QString &prefix) const +{ + int rc = true; + + qs.setValue(prefix + "pstokenize", ps_tokenize); + qs.setValue(prefix + "pslevel", ps_level); + qs.setValue(prefix + "foldcompact", fold_compact); + qs.setValue(prefix + "foldatelse", fold_atelse); + + return rc; +} + + +// Return true if tokens are marked. +bool QsciLexerPostScript::tokenize() const +{ + return ps_tokenize; +} + + +// Set if tokens are marked. +void QsciLexerPostScript::setTokenize(bool tokenize) +{ + ps_tokenize = tokenize; + + setTokenizeProp(); +} + + +// Set the "ps.tokenize" property. +void QsciLexerPostScript::setTokenizeProp() +{ + emit propertyChanged("ps.tokenize",(ps_tokenize ? "1" : "0")); +} + + +// Return the PostScript level. +int QsciLexerPostScript::level() const +{ + return ps_level; +} + + +// Set the PostScript level. +void QsciLexerPostScript::setLevel(int level) +{ + ps_level = level; + + setLevelProp(); +} + + +// Set the "ps.level" property. +void QsciLexerPostScript::setLevelProp() +{ + emit propertyChanged("ps.level", QByteArray::number(ps_level)); +} + + +// Return true if folds are compact. +bool QsciLexerPostScript::foldCompact() const +{ + return fold_compact; +} + + +// Set if folds are compact +void QsciLexerPostScript::setFoldCompact(bool fold) +{ + fold_compact = fold; + + setCompactProp(); +} + + +// Set the "fold.compact" property. +void QsciLexerPostScript::setCompactProp() +{ + emit propertyChanged("fold.compact",(fold_compact ? "1" : "0")); +} + + +// Return true if else blocks can be folded. +bool QsciLexerPostScript::foldAtElse() const +{ + return fold_atelse; +} + + +// Set if else blocks can be folded. +void QsciLexerPostScript::setFoldAtElse(bool fold) +{ + fold_atelse = fold; + + setAtElseProp(); +} + + +// Set the "fold.at.else" property. +void QsciLexerPostScript::setAtElseProp() +{ + emit propertyChanged("fold.at.else",(fold_atelse ? "1" : "0")); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerpov.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerpov.cpp new file mode 100644 index 000000000..c93a4726f --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerpov.cpp @@ -0,0 +1,464 @@ +// This module implements the QsciLexerPOV class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexerpov.h" + +#include +#include +#include + + +// The ctor. +QsciLexerPOV::QsciLexerPOV(QObject *parent) + : QsciLexer(parent), + fold_comments(false), fold_compact(true), fold_directives(false) +{ +} + + +// The dtor. +QsciLexerPOV::~QsciLexerPOV() +{ +} + + +// Returns the language name. +const char *QsciLexerPOV::language() const +{ + return "POV"; +} + + +// Returns the lexer name. +const char *QsciLexerPOV::lexer() const +{ + return "pov"; +} + + +// Return the style used for braces. +int QsciLexerPOV::braceStyle() const +{ + return Operator; +} + + +// Return the string of characters that comprise a word. +const char *QsciLexerPOV::wordCharacters() const +{ + return "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_#"; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerPOV::defaultColor(int style) const +{ + switch (style) + { + case Default: + return QColor(0xff,0x00,0x80); + + case Comment: + case CommentLine: + return QColor(0x00,0x7f,0x00); + + case Number: + return QColor(0x00,0x7f,0x7f); + + case Operator: + return QColor(0x00,0x00,0x00); + + case String: + return QColor(0x7f,0x00,0x7f); + + case Directive: + return QColor(0x7f,0x7f,0x00); + + case BadDirective: + return QColor(0x80,0x40,0x20); + + case ObjectsCSGAppearance: + case TypesModifiersItems: + case PredefinedIdentifiers: + case PredefinedFunctions: + case KeywordSet6: + case KeywordSet7: + case KeywordSet8: + return QColor(0x00,0x00,0x7f); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the end-of-line fill for a style. +bool QsciLexerPOV::defaultEolFill(int style) const +{ + if (style == UnclosedString) + return true; + + return QsciLexer::defaultEolFill(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerPOV::defaultFont(int style) const +{ + QFont f; + + switch (style) + { + case Comment: + case CommentLine: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + break; + + case UnclosedString: + case PredefinedIdentifiers: + f = QsciLexer::defaultFont(style); + f.setBold(true); + break; + + case BadDirective: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + f.setItalic(true); + break; + + default: + f = QsciLexer::defaultFont(style); + } + + return f; +} + + +// Returns the set of keywords. +const char *QsciLexerPOV::keywords(int set) const +{ + if (set == 1) + return + "declare local include undef fopen fclose read write " + "default version case range break debug error " + "warning if ifdef ifndef switch while macro else end"; + + if (set == 2) + return + "camera light_source light_group object blob sphere " + "cylinder box cone height_field julia_fractal lathe " + "prism sphere_sweep superellipsoid sor text torus " + "bicubic_patch disc mesh mesh2 polygon triangle " + "smooth_triangle plane poly cubic quartic quadric " + "isosurface parametric union intersection difference " + "merge function array spline vertex_vectors " + "normal_vectors uv_vectors face_indices " + "normal_indices uv_indices texture texture_list " + "interior_texture texture_map material_map image_map " + "color_map colour_map pigment_map normal_map " + "slope_map bump_map density_map pigment normal " + "material interior finish reflection irid slope " + "pigment_pattern image_pattern warp media scattering " + "density background fog sky_sphere rainbow " + "global_settings radiosity photons pattern transform " + "looks_like projected_through contained_by " + "clipped_by bounded_by"; + + if (set == 3) + return + "linear_spline quadratic_spline cubic_spline " + "natural_spline bezier_spline b_spline read write " + "append inverse open perspective orthographic " + "fisheye ultra_wide_angle omnimax panoramic " + "spherical spotlight jitter circular orient " + "media_attenuation media_interaction shadowless " + "parallel refraction collect pass_through " + "global_lights hierarchy sturm smooth gif tga iff " + "pot png pgm ppm jpeg tiff sys ttf quaternion " + "hypercomplex linear_sweep conic_sweep type " + "all_intersections split_union cutaway_textures " + "no_shadow no_image no_reflection double_illuminate " + "hollow uv_mapping all use_index use_color " + "use_colour no_bump_scale conserve_energy fresnel " + "average agate boxed bozo bumps cells crackle " + "cylindrical density_file dents facets granite " + "leopard marble onion planar quilted radial ripples " + "spotted waves wood wrinkles solid use_alpha " + "interpolate magnet noise_generator toroidal " + "ramp_wave triangle_wave sine_wave scallop_wave " + "cubic_wave poly_wave once map_type method fog_type " + "hf_gray_16 charset ascii utf8 rotate scale " + "translate matrix location right up direction sky " + "angle look_at aperture blur_samples focal_point " + "confidence variance radius falloff tightness " + "point_at area_light adaptive fade_distance " + "fade_power threshold strength water_level tolerance " + "max_iteration precision slice u_steps v_steps " + "flatness inside_vector accuracy max_gradient " + "evaluate max_trace precompute target ior dispersion " + "dispersion_samples caustics color colour rgb rgbf " + "rgbt rgbft red green blue filter transmit gray hf " + "fade_color fade_colour quick_color quick_colour " + "brick checker hexagon brick_size mortar bump_size " + "ambient diffuse brilliance crand phong phong_size " + "metallic specular roughness reflection_exponent " + "exponent thickness gradient spiral1 spiral2 " + "agate_turb form metric offset df3 coords size " + "mandel exterior julia control0 control1 altitude " + "turbulence octaves omega lambda repeat flip " + "black-hole orientation dist_exp major_radius " + "frequency phase intervals samples ratio absorption " + "emission aa_threshold aa_level eccentricity " + "extinction distance turb_depth fog_offset fog_alt " + "width arc_angle falloff_angle adc_bailout " + "ambient_light assumed_gamma irid_wavelength " + "number_of_waves always_sample brigthness count " + "error_bound gray_threshold load_file " + "low_error_factor max_sample minimum_reuse " + "nearest_count pretrace_end pretrace_start " + "recursion_limit save_file spacing gather " + "max_trace_level autostop expand_thresholds"; + + if (set == 4) + return + "x y z t u v yes no true false on off clock " + "clock_delta clock_on final_clock final_frame " + "frame_number image_height image_width initial_clock " + "initial_frame pi version"; + + if (set == 5) + return + "abs acos acosh asc asin asinh atan atanh atan2 ceil " + "cos cosh defined degrees dimensions dimension_size " + "div exp file_exists floor inside int ln log max min " + "mod pow prod radians rand seed select sin sinh sqrt " + "strcmp strlen sum tan tanh val vdot vlength " + "min_extent max_extent trace vaxis_rotate vcross " + "vrotate vnormalize vturbulence chr concat str " + "strlwr strupr substr vstr sqr cube reciprocal pwr"; + + return 0; +} + + +// Returns the user name of a style. +QString QsciLexerPOV::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Comment: + return tr("Comment"); + + case CommentLine: + return tr("Comment line"); + + case Number: + return tr("Number"); + + case Operator: + return tr("Operator"); + + case Identifier: + return tr("Identifier"); + + case String: + return tr("String"); + + case UnclosedString: + return tr("Unclosed string"); + + case Directive: + return tr("Directive"); + + case BadDirective: + return tr("Bad directive"); + + case ObjectsCSGAppearance: + return tr("Objects, CSG and appearance"); + + case TypesModifiersItems: + return tr("Types, modifiers and items"); + + case PredefinedIdentifiers: + return tr("Predefined identifiers"); + + case PredefinedFunctions: + return tr("Predefined functions"); + + case KeywordSet6: + return tr("User defined 1"); + + case KeywordSet7: + return tr("User defined 2"); + + case KeywordSet8: + return tr("User defined 3"); + } + + return QString(); +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerPOV::defaultPaper(int style) const +{ + switch (style) + { + case UnclosedString: + return QColor(0xe0,0xc0,0xe0); + + case ObjectsCSGAppearance: + return QColor(0xff,0xd0,0xd0); + + case TypesModifiersItems: + return QColor(0xff,0xff,0xd0); + + case PredefinedFunctions: + return QColor(0xd0,0xd0,0xff); + + case KeywordSet6: + return QColor(0xd0,0xff,0xd0); + + case KeywordSet7: + return QColor(0xd0,0xd0,0xd0); + + case KeywordSet8: + return QColor(0xe0,0xe0,0xe0); + } + + return QsciLexer::defaultPaper(style); +} + + +// Refresh all properties. +void QsciLexerPOV::refreshProperties() +{ + setCommentProp(); + setCompactProp(); + setDirectiveProp(); +} + + +// Read properties from the settings. +bool QsciLexerPOV::readProperties(QSettings &qs,const QString &prefix) +{ + int rc = true; + + fold_comments = qs.value(prefix + "foldcomments", false).toBool(); + fold_compact = qs.value(prefix + "foldcompact", true).toBool(); + fold_directives = qs.value(prefix + "folddirectives", false).toBool(); + + return rc; +} + + +// Write properties to the settings. +bool QsciLexerPOV::writeProperties(QSettings &qs,const QString &prefix) const +{ + int rc = true; + + qs.setValue(prefix + "foldcomments", fold_comments); + qs.setValue(prefix + "foldcompact", fold_compact); + qs.setValue(prefix + "folddirectives", fold_directives); + + return rc; +} + + +// Return true if comments can be folded. +bool QsciLexerPOV::foldComments() const +{ + return fold_comments; +} + + +// Set if comments can be folded. +void QsciLexerPOV::setFoldComments(bool fold) +{ + fold_comments = fold; + + setCommentProp(); +} + + +// Set the "fold.comment" property. +void QsciLexerPOV::setCommentProp() +{ + emit propertyChanged("fold.comment",(fold_comments ? "1" : "0")); +} + + +// Return true if folds are compact. +bool QsciLexerPOV::foldCompact() const +{ + return fold_compact; +} + + +// Set if folds are compact +void QsciLexerPOV::setFoldCompact(bool fold) +{ + fold_compact = fold; + + setCompactProp(); +} + + +// Set the "fold.compact" property. +void QsciLexerPOV::setCompactProp() +{ + emit propertyChanged("fold.compact",(fold_compact ? "1" : "0")); +} + + +// Return true if directives can be folded. +bool QsciLexerPOV::foldDirectives() const +{ + return fold_directives; +} + + +// Set if directives can be folded. +void QsciLexerPOV::setFoldDirectives(bool fold) +{ + fold_directives = fold; + + setDirectiveProp(); +} + + +// Set the "fold.directive" property. +void QsciLexerPOV::setDirectiveProp() +{ + emit propertyChanged("fold.directive",(fold_directives ? "1" : "0")); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerproperties.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerproperties.cpp new file mode 100644 index 000000000..0c547c94d --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerproperties.cpp @@ -0,0 +1,213 @@ +// This module implements the QsciLexerProperties class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexerproperties.h" + +#include +#include +#include + + +// The ctor. +QsciLexerProperties::QsciLexerProperties(QObject *parent) + : QsciLexer(parent), fold_compact(true), initial_spaces(true) +{ +} + + +// The dtor. +QsciLexerProperties::~QsciLexerProperties() +{ +} + + +// Returns the language name. +const char *QsciLexerProperties::language() const +{ + return "Properties"; +} + + +// Returns the lexer name. +const char *QsciLexerProperties::lexer() const +{ + return "props"; +} + + +// Return the string of characters that comprise a word. +const char *QsciLexerProperties::wordCharacters() const +{ + return "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-"; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerProperties::defaultColor(int style) const +{ + switch (style) + { + case Comment: + return QColor(0x00,0x7f,0x7f); + + case Section: + return QColor(0x7f,0x00,0x7f); + + case Assignment: + return QColor(0xb0,0x60,0x00); + + case DefaultValue: + return QColor(0x7f,0x7f,0x00); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the end-of-line fill for a style. +bool QsciLexerProperties::defaultEolFill(int style) const +{ + if (style == Section) + return true; + + return QsciLexer::defaultEolFill(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerProperties::defaultFont(int style) const +{ + QFont f; + + if (style == Comment) +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + else + f = QsciLexer::defaultFont(style); + + return f; +} + + +// Returns the user name of a style. +QString QsciLexerProperties::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Comment: + return tr("Comment"); + + case Section: + return tr("Section"); + + case Assignment: + return tr("Assignment"); + + case DefaultValue: + return tr("Default value"); + + case Key: + return tr("Key"); + } + + return QString(); +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerProperties::defaultPaper(int style) const +{ + if (style == Section) + return QColor(0xe0,0xf0,0xf0); + + return QsciLexer::defaultPaper(style); +} + + +// Refresh all properties. +void QsciLexerProperties::refreshProperties() +{ + setCompactProp(); + setInitialSpacesProp(); +} + + +// Read properties from the settings. +bool QsciLexerProperties::readProperties(QSettings &qs,const QString &prefix) +{ + int rc = true; + + fold_compact = qs.value(prefix + "foldcompact", true).toBool(); + initial_spaces = qs.value(prefix + "initialspaces", true).toBool(); + + return rc; +} + + +// Write properties to the settings. +bool QsciLexerProperties::writeProperties(QSettings &qs,const QString &prefix) const +{ + int rc = true; + + qs.setValue(prefix + "foldcompact", fold_compact); + qs.setValue(prefix + "initialspaces", initial_spaces); + + return rc; +} + + +// Set if folds are compact +void QsciLexerProperties::setFoldCompact(bool fold) +{ + fold_compact = fold; + + setCompactProp(); +} + + +// Set the "fold.compact" property. +void QsciLexerProperties::setCompactProp() +{ + emit propertyChanged("fold.compact", (fold_compact ? "1" : "0")); +} + + +// Set if initial spaces are allowed. +void QsciLexerProperties::setInitialSpaces(bool enable) +{ + initial_spaces = enable; + + setInitialSpacesProp(); +} + + +// Set the "lexer.props.allow.initial.spaces" property. +void QsciLexerProperties::setInitialSpacesProp() +{ + emit propertyChanged("lexer.props.allow.initial.spaces", (fold_compact ? "1" : "0")); +} diff --git a/libs/qscintilla/Qt4Qt5/qscilexerpython.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerpython.cpp similarity index 99% rename from libs/qscintilla/Qt4Qt5/qscilexerpython.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/qscilexerpython.cpp index a054aaf95..82f86a942 100644 --- a/libs/qscintilla/Qt4Qt5/qscilexerpython.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerpython.cpp @@ -1,6 +1,6 @@ // This module implements the QsciLexerPython class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerruby.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerruby.cpp new file mode 100644 index 000000000..6165a710d --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerruby.cpp @@ -0,0 +1,445 @@ +// This module implements the QsciLexerRuby class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexerruby.h" + +#include +#include +#include + + +// The ctor. +QsciLexerRuby::QsciLexerRuby(QObject *parent) + : QsciLexer(parent), fold_comments(false), fold_compact(true) +{ +} + + +// The dtor. +QsciLexerRuby::~QsciLexerRuby() +{ +} + + +// Returns the language name. +const char *QsciLexerRuby::language() const +{ + return "Ruby"; +} + + +// Returns the lexer name. +const char *QsciLexerRuby::lexer() const +{ + return "ruby"; +} + + +// Return the list of words that can start a block. +const char *QsciLexerRuby::blockStart(int *style) const +{ + if (style) + *style = Keyword; + + return "do"; +} + + +// Return the list of words that can start end a block. +const char *QsciLexerRuby::blockEnd(int *style) const +{ + if (style) + *style = Keyword; + + return "end"; +} + + +// Return the list of words that can start end a block. +const char *QsciLexerRuby::blockStartKeyword(int *style) const +{ + if (style) + *style = Keyword; + + return "def class if do elsif else case while for"; +} + + +// Return the style used for braces. +int QsciLexerRuby::braceStyle() const +{ + return Operator; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerRuby::defaultColor(int style) const +{ + switch (style) + { + case Default: + return QColor(0x80,0x80,0x80); + + case Comment: + return QColor(0x00,0x7f,0x00); + + case POD: + return QColor(0x00,0x40,0x00); + + case Number: + case FunctionMethodName: + return QColor(0x00,0x7f,0x7f); + + case Keyword: + case DemotedKeyword: + return QColor(0x00,0x00,0x7f); + + case DoubleQuotedString: + case SingleQuotedString: + case HereDocument: + case PercentStringq: + case PercentStringQ: + return QColor(0x7f,0x00,0x7f); + + case ClassName: + return QColor(0x00,0x00,0xff); + + case Regex: + case HereDocumentDelimiter: + case PercentStringr: + case PercentStringw: + return QColor(0x00,0x00,0x00); + + case Global: + return QColor(0x80,0x00,0x80); + + case Symbol: + return QColor(0xc0,0xa0,0x30); + + case ModuleName: + return QColor(0xa0,0x00,0xa0); + + case InstanceVariable: + return QColor(0xb0,0x00,0x80); + + case ClassVariable: + return QColor(0x80,0x00,0xb0); + + case Backticks: + case PercentStringx: + return QColor(0xff,0xff,0x00); + + case DataSection: + return QColor(0x60,0x00,0x00); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the end-of-line fill for a style. +bool QsciLexerRuby::defaultEolFill(int style) const +{ + bool fill; + + switch (style) + { + case POD: + case DataSection: + case HereDocument: + fill = true; + break; + + default: + fill = QsciLexer::defaultEolFill(style); + } + + return fill; +} + + +// Returns the font of the text for a style. +QFont QsciLexerRuby::defaultFont(int style) const +{ + QFont f; + + switch (style) + { + case Comment: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + break; + + case POD: + case DoubleQuotedString: + case SingleQuotedString: + case PercentStringq: + case PercentStringQ: +#if defined(Q_OS_WIN) + f = QFont("Courier New",10); +#elif defined(Q_OS_MAC) + f = QFont("Courier", 12); +#else + f = QFont("Bitstream Vera Sans Mono",9); +#endif + break; + + case Keyword: + case ClassName: + case FunctionMethodName: + case Operator: + case ModuleName: + case DemotedKeyword: + f = QsciLexer::defaultFont(style); + f.setBold(true); + break; + + default: + f = QsciLexer::defaultFont(style); + } + + return f; +} + + +// Returns the set of keywords. +const char *QsciLexerRuby::keywords(int set) const +{ + if (set == 1) + return + "__FILE__ and def end in or self unless __LINE__ " + "begin defined? ensure module redo super until BEGIN " + "break do false next rescue then when END case else " + "for nil require retry true while alias class elsif " + "if not return undef yield"; + + return 0; +} + + +// Returns the user name of a style. +QString QsciLexerRuby::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Error: + return tr("Error"); + + case Comment: + return tr("Comment"); + + case POD: + return tr("POD"); + + case Number: + return tr("Number"); + + case Keyword: + return tr("Keyword"); + + case DoubleQuotedString: + return tr("Double-quoted string"); + + case SingleQuotedString: + return tr("Single-quoted string"); + + case ClassName: + return tr("Class name"); + + case FunctionMethodName: + return tr("Function or method name"); + + case Operator: + return tr("Operator"); + + case Identifier: + return tr("Identifier"); + + case Regex: + return tr("Regular expression"); + + case Global: + return tr("Global"); + + case Symbol: + return tr("Symbol"); + + case ModuleName: + return tr("Module name"); + + case InstanceVariable: + return tr("Instance variable"); + + case ClassVariable: + return tr("Class variable"); + + case Backticks: + return tr("Backticks"); + + case DataSection: + return tr("Data section"); + + case HereDocumentDelimiter: + return tr("Here document delimiter"); + + case HereDocument: + return tr("Here document"); + + case PercentStringq: + return tr("%q string"); + + case PercentStringQ: + return tr("%Q string"); + + case PercentStringx: + return tr("%x string"); + + case PercentStringr: + return tr("%r string"); + + case PercentStringw: + return tr("%w string"); + + case DemotedKeyword: + return tr("Demoted keyword"); + + case Stdin: + return tr("stdin"); + + case Stdout: + return tr("stdout"); + + case Stderr: + return tr("stderr"); + } + + return QString(); +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerRuby::defaultPaper(int style) const +{ + switch (style) + { + case Error: + return QColor(0xff,0x00,0x00); + + case POD: + return QColor(0xc0,0xff,0xc0); + + case Regex: + case PercentStringr: + return QColor(0xa0,0xff,0xa0); + + case Backticks: + case PercentStringx: + return QColor(0xa0,0x80,0x80); + + case DataSection: + return QColor(0xff,0xf0,0xd8); + + case HereDocumentDelimiter: + case HereDocument: + return QColor(0xdd,0xd0,0xdd); + + case PercentStringw: + return QColor(0xff,0xff,0xe0); + + case Stdin: + case Stdout: + case Stderr: + return QColor(0xff,0x80,0x80); + } + + return QsciLexer::defaultPaper(style); +} + + +// Refresh all properties. +void QsciLexerRuby::refreshProperties() +{ + setCommentProp(); + setCompactProp(); +} + + +// Read properties from the settings. +bool QsciLexerRuby::readProperties(QSettings &qs, const QString &prefix) +{ + int rc = true; + + fold_comments = qs.value(prefix + "foldcomments", false).toBool(); + fold_compact = qs.value(prefix + "foldcompact", true).toBool(); + + return rc; +} + + +// Write properties to the settings. +bool QsciLexerRuby::writeProperties(QSettings &qs, const QString &prefix) const +{ + int rc = true; + + qs.value(prefix + "foldcomments", fold_comments); + qs.value(prefix + "foldcompact", fold_compact); + + return rc; +} + + +// Set if comments can be folded. +void QsciLexerRuby::setFoldComments(bool fold) +{ + fold_comments = fold; + + setCommentProp(); +} + + +// Set the "fold.comment" property. +void QsciLexerRuby::setCommentProp() +{ + emit propertyChanged("fold.comment", (fold_comments ? "1" : "0")); +} + + +// Set if folds are compact +void QsciLexerRuby::setFoldCompact(bool fold) +{ + fold_compact = fold; + + setCompactProp(); +} + + +// Set the "fold.compact" property. +void QsciLexerRuby::setCompactProp() +{ + emit propertyChanged("fold.compact", (fold_compact ? "1" : "0")); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerspice.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerspice.cpp new file mode 100644 index 000000000..9c2617c05 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerspice.cpp @@ -0,0 +1,194 @@ +// This module implements the QsciLexerSpice class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexerspice.h" + +#include +#include + + +// The ctor. +QsciLexerSpice::QsciLexerSpice(QObject *parent) + : QsciLexer(parent) +{ +} + + +// The dtor. +QsciLexerSpice::~QsciLexerSpice() +{ +} + + +// Returns the language name. +const char *QsciLexerSpice::language() const +{ + return "Spice"; +} + + +// Returns the lexer name. +const char *QsciLexerSpice::lexer() const +{ + return "spice"; +} + + +// Return the style used for braces. +int QsciLexerSpice::braceStyle() const +{ + return Parameter; +} + + +// Returns the set of keywords. +const char *QsciLexerSpice::keywords(int set) const +{ + if (set == 1) + return + "ac alias alter alterparam append askvalues assertvalid " + "autoscale break compose copy copytodoc dc delete destroy " + "destroyvec diff display disto dowhile echo else end errorstop " + "fftinit filter foreach fourier freqtotime function " + "functionundef goto homecursors if isdisplayed label let " + "linearize listing load loadaccumulator makelabel movelabel " + "makesmithplot movecursorleft movecursorright msgbox nameplot " + "newplot nextparam noise nopoints op plot plotf plotref poly " + "print printcursors printevent printname printplot printstatus " + "printtext printtol printunits printval printvector pwl pz quit " + "removesmithplot rename repeat resume rotate runs rusage save " + "sendplot sendscript sens set setcursor setdoc setlabel " + "setlabeltype setmargins setnthtrigger setunits setvec setparam " + "setplot setquery setscaletype settracecolor settracestyle " + "setsource settrigger setvec setxlimits setylimits show showmod " + "sort status step stop switch tf timetofreq timetowave tran " + "unalias unlet unset unalterparam update version view wavefilter " + "wavetotime where while write"; + + if (set == 2) + return + "abs askvalue atan average ceil cos db differentiate " + "differentiatex exp finalvalue floor getcursorx getcursory " + "getcursory0 getcursory1 getparam im ln initialvalue integrate " + "integratex interpolate isdef isdisplayed j log length mag max " + "maxscale mean meanpts min minscale nextplot nextvector norm " + "operatingpoint ph phase phaseextend pk_pk pos pulse re rms " + "rmspts rnd sameplot sin sqrt stddev stddevpts tan tfall " + "tolerance trise unitvec vector"; + + if (set == 3) + return "param nodeset include options dcconv subckt ends model"; + + return 0; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerSpice::defaultColor(int style) const +{ + switch (style) + { + case Default: + return QColor(0x80,0x80,0x80); + + case Command: + case Function: + return QColor(0x00,0x00,0x7f); + + case Parameter: + return QColor(0x00,0x40,0xe0); + + case Number: + return QColor(0x00,0x7f,0x7f); + + case Delimiter: + return QColor(0x00,0x00,0x00); + + case Value: + return QColor(0x7f,0x00,0x7f); + + case Comment: + return QColor(0x00,0x7f,0x00); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerSpice::defaultFont(int style) const +{ + QFont f; + + if (style == Comment) +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + else + { + f = QsciLexer::defaultFont(style); + + if (style == Function || style == Delimiter) + f.setBold(true); + } + + return f; +} + + +// Returns the user name of a style. +QString QsciLexerSpice::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Identifier: + return tr("Identifier"); + + case Command: + return tr("Command"); + + case Function: + return tr("Function"); + + case Parameter: + return tr("Parameter"); + + case Number: + return tr("Number"); + + case Delimiter: + return tr("Delimiter"); + + case Value: + return tr("Value"); + + case Comment: + return tr("Comment"); + } + + return QString(); +} diff --git a/libs/qscintilla/Qt4Qt5/qscilexersql.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexersql.cpp similarity index 99% rename from libs/qscintilla/Qt4Qt5/qscilexersql.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/qscilexersql.cpp index b8313d6fc..99df5b2ad 100644 --- a/libs/qscintilla/Qt4Qt5/qscilexersql.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexersql.cpp @@ -1,6 +1,6 @@ // This module implements the QsciLexerSQL class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexersrec.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexersrec.cpp new file mode 100644 index 000000000..06fa235dd --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexersrec.cpp @@ -0,0 +1,62 @@ +// This module implements the QsciLexerSRec class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexersrec.h" + +#include +#include + + +// The ctor. +QsciLexerSRec::QsciLexerSRec(QObject *parent) + : QsciLexerHex(parent) +{ +} + + +// The dtor. +QsciLexerSRec::~QsciLexerSRec() +{ +} + + +// Returns the language name. +const char *QsciLexerSRec::language() const +{ + return "S-Record"; +} + + +// Returns the lexer name. +const char *QsciLexerSRec::lexer() const +{ + return "srec"; +} + + +// Returns the user name of a style. +QString QsciLexerSRec::description(int style) const +{ + // Handle unsupported styles. + if (style == ExtendedAddress) + return QString(); + + return QsciLexerHex::description(style); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexertcl.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexertcl.cpp new file mode 100644 index 000000000..070a1ac7f --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexertcl.cpp @@ -0,0 +1,438 @@ +// This module implements the QsciLexerTCL class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexertcl.h" + +#include +#include +#include + + +// The ctor. +QsciLexerTCL::QsciLexerTCL(QObject *parent) + : QsciLexer(parent), fold_comments(false) +{ +} + + +// The dtor. +QsciLexerTCL::~QsciLexerTCL() +{ +} + + +// Returns the language name. +const char *QsciLexerTCL::language() const +{ + return "TCL"; +} + + +// Returns the lexer name. +const char *QsciLexerTCL::lexer() const +{ + return "tcl"; +} + + +// Return the style used for braces. +int QsciLexerTCL::braceStyle() const +{ + return Operator; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerTCL::defaultColor(int style) const +{ + switch (style) + { + case Default: + return QColor(0x80,0x80,0x80); + + case Comment: + case CommentLine: + case CommentBox: + return QColor(0x00,0x7f,0x00); + + case Number: + return QColor(0x00,0x7f,0x7f); + + case QuotedKeyword: + case QuotedString: + case Modifier: + return QColor(0x7f,0x00,0x7f); + + case Operator: + return QColor(0x00,0x00,0x00); + + case Identifier: + case ExpandKeyword: + case TCLKeyword: + case TkKeyword: + case ITCLKeyword: + case TkCommand: + case KeywordSet6: + case KeywordSet7: + case KeywordSet8: + case KeywordSet9: + return QColor(0x00,0x00,0x7f); + + case Substitution: + case SubstitutionBrace: + return QColor(0x7f,0x7f,0x00); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the end-of-line fill for a style. +bool QsciLexerTCL::defaultEolFill(int style) const +{ + switch (style) + { + case QuotedString: + case CommentBox: + return true; + } + + return QsciLexer::defaultEolFill(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerTCL::defaultFont(int style) const +{ + QFont f; + + switch (style) + { + case Comment: + case CommentLine: + case CommentBox: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS", 9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif", 9); +#endif + break; + + case QuotedKeyword: + case Operator: + case ExpandKeyword: + case TCLKeyword: + case TkKeyword: + case ITCLKeyword: + case TkCommand: + f = QsciLexer::defaultFont(style); + f.setBold(true); + break; + + case CommentBlock: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS", 8); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 11); +#else + f = QFont("Serif", 9); +#endif + break; + + default: + f = QsciLexer::defaultFont(style); + } + + return f; +} + + +// Returns the set of keywords. +const char *QsciLexerTCL::keywords(int set) const +{ + if (set == 1) + return + "after append array auto_execok auto_import auto_load " + "auto_load_index auto_qualify beep bgerror binary break case " + "catch cd clock close concat continue dde default echo else " + "elseif encoding eof error eval exec exit expr fblocked " + "fconfigure fcopy file fileevent flush for foreach format gets " + "glob global history http if incr info interp join lappend lindex " + "linsert list llength load loadTk lrange lreplace lsearch lset " + "lsort memory msgcat namespace open package pid pkg::create " + "pkg_mkIndex Platform-specific proc puts pwd re_syntax read " + "regexp registry regsub rename resource return scan seek set " + "socket source split string subst switch tclLog tclMacPkgSearch " + "tclPkgSetup tclPkgUnknown tell time trace unknown unset update " + "uplevel upvar variable vwait while"; + + if (set == 2) + return + "bell bind bindtags bitmap button canvas checkbutton clipboard " + "colors console cursors destroy entry event focus font frame grab " + "grid image Inter-client keysyms label labelframe listbox lower " + "menu menubutton message option options pack panedwindow photo " + "place radiobutton raise scale scrollbar selection send spinbox " + "text tk tk_chooseColor tk_chooseDirectory tk_dialog tk_focusNext " + "tk_getOpenFile tk_messageBox tk_optionMenu tk_popup " + "tk_setPalette tkerror tkvars tkwait toplevel winfo wish wm"; + + if (set == 3) + return + "@scope body class code common component configbody constructor " + "define destructor hull import inherit itcl itk itk_component " + "itk_initialize itk_interior itk_option iwidgets keep method " + "private protected public"; + + if (set == 4) + return + "tk_bisque tk_chooseColor tk_dialog tk_focusFollowsMouse " + "tk_focusNext tk_focusPrev tk_getOpenFile tk_getSaveFile " + "tk_messageBox tk_optionMenu tk_popup tk_setPalette tk_textCopy " + "tk_textCut tk_textPaste tkButtonAutoInvoke tkButtonDown " + "tkButtonEnter tkButtonInvoke tkButtonLeave tkButtonUp " + "tkCancelRepeat tkCheckRadioDown tkCheckRadioEnter " + "tkCheckRadioInvoke tkColorDialog tkColorDialog_BuildDialog " + "tkColorDialog_CancelCmd tkColorDialog_Config " + "tkColorDialog_CreateSelector tkColorDialog_DrawColorScale " + "tkColorDialog_EnterColorBar tkColorDialog_HandleRGB Entry " + "tkColorDialog_HandleSelEntry tkColorDialog_InitValues " + "tkColorDialog_LeaveColorBar tkColorDialog_MoveSelector " + "tkColorDialog_OkCmd tkColorDialog_RedrawColorBars " + "tkColorDialog_RedrawFinalColor tkColorDialog_ReleaseMouse " + "tkColorDialog_ResizeColorBars tkColorDialog_RgbToX " + "tkColorDialog_SetRGBValue tkColorDialog_StartMove " + "tkColorDialog_XToRgb tkConsoleAbout tkConsoleBind tkConsoleExit " + "tkConsoleHistory tkConsoleInit tkConsoleInsert tkConsoleInvoke " + "tkConsoleOutput tkConsolePrompt tkConsoleSource tkDarken " + "tkEntryAutoScan tkEntryBackspace tkEntryButton1 " + "tkEntryClosestGap tkEntryGetSelection tkEntryInsert " + "tkEntryKeySelect tkEntryMouseSelect tkEntryNextWord tkEntryPaste " + "tkEntryPreviousWord tkEntrySeeInsert tkEntrySetCursor " + "tkEntryTranspose tkEventMotifBindings tkFDGetFileTypes " + "tkFirstMenu tkFocusGroup_BindIn tkFocusGroup_BindOut " + "tkFocusGroup_Create tkFocusGroup_Destroy tkFocusGroup_In " + "tkFocusGroup_Out tkFocusOK tkGenerateMenuSelect tkIconList " + "tkIconList_Add tkIconList_Arrange tkIconList_AutoScan " + "tkIconList_Btn1 tkIconList_Config tkIconList_Create " + "tkIconList_CtrlBtn1 tkIconList_Curselection tkIconList_DeleteAll " + "tkIconList_Double1 tkIconList_DrawSelection tkIconList_FocusIn " + "tkIconList_FocusOut tkIconList_Get tkIconList_Goto " + "tkIconList_Index tkIconList_Invoke tkIconList_KeyPress " + "tkIconList_Leave1 tkIconList_LeftRight tkIconList_Motion1 " + "tkIconList_Reset tkIconList_ReturnKey tkIconList_See " + "tkIconList_Select tkIconList_Selection tkIconList_ShiftBtn1 " + "tkIconList_UpDown tkListbox tkListboxAutoScan " + "tkListboxBeginExtend tkListboxBeginSelect tkListboxBeginToggle " + "tkListboxCancel tkListboxDataExtend tkListboxExtendUpDown " + "tkListboxKeyAccel_Goto tkListboxKeyAccel_Key " + "tkListboxKeyAccel_Reset tkListboxKeyAccel_Set " + "tkListboxKeyAccel_Unset tkListboxMotion tkListboxSelectAll " + "tkListboxUpDown tkMbButtonUp tkMbEnter tkMbLeave tkMbMotion " + "tkMbPost tkMenuButtonDown tkMenuDownArrow tkMenuDup tkMenuEscape " + "tkMenuFind tkMenuFindName tkMenuFirstEntry tkMenuInvoke " + "tkMenuLeave tkMenuLeftArrow tkMenuMotion tkMenuNextEntry " + "tkMenuNextMenu tkMenuRightArrow tkMenuUnpost tkMenuUpArrow " + "tkMessageBox tkMotifFDialog tkMotifFDialog_ActivateDList " + "tkMotifFDialog_ActivateFEnt tkMotifFDialog_ActivateFList " + "tkMotifFDialog_ActivateSEnt tkMotifFDialog_BrowseDList " + "tkMotifFDialog_BrowseFList tkMotifFDialog_BuildUI " + "tkMotifFDialog_CancelCmd tkMotifFDialog_Config " + "tkMotifFDialog_Create tkMotifFDialog_FileTypes " + "tkMotifFDialog_FilterCmd tkMotifFDialog_InterpFilter " + "tkMotifFDialog_LoadFiles tkMotifFDialog_MakeSList " + "tkMotifFDialog_OkCmd tkMotifFDialog_SetFilter " + "tkMotifFDialog_SetListMode tkMotifFDialog_Update tkPostOverPoint " + "tkRecolorTree tkRestoreOldGrab tkSaveGrabInfo tkScaleActivate " + "tkScaleButton2Down tkScaleButtonDown tkScaleControlPress " + "tkScaleDrag tkScaleEndDrag tkScaleIncrement tkScreenChanged " + "tkScrollButton2Down tkScrollButtonDown tkScrollButtonDrag " + "tkScrollButtonUp tkScrollByPages tkScrollByUnits tkScrollDrag " + "tkScrollEndDrag tkScrollSelect tkScrollStartDrag " + "tkScrollTopBottom tkScrollToPos tkTabToWindow tkTearOffMenu " + "tkTextAutoScan tkTextButton1 tkTextClosestGap tkTextInsert " + "tkTextKeyExtend tkTextKeySelect tkTextNextPara tkTextNextPos " + "tkTextNextWord tkTextPaste tkTextPrevPara tkTextPrevPos " + "tkTextPrevWord tkTextResetAnchor tkTextScrollPages " + "tkTextSelectTo tkTextSetCursor tkTextTranspose tkTextUpDownLine " + "tkTraverseToMenu tkTraverseWithinMenu"; + + if (set == 5) + return "expand"; + + return 0; +} + + +// Returns the user name of a style. +QString QsciLexerTCL::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Comment: + return tr("Comment"); + + case CommentLine: + return tr("Comment line"); + + case Number: + return tr("Number"); + + case QuotedKeyword: + return tr("Quoted keyword"); + + case QuotedString: + return tr("Quoted string"); + + case Operator: + return tr("Operator"); + + case Identifier: + return tr("Identifier"); + + case Substitution: + return tr("Substitution"); + + case SubstitutionBrace: + return tr("Brace substitution"); + + case Modifier: + return tr("Modifier"); + + case ExpandKeyword: + return tr("Expand keyword"); + + case TCLKeyword: + return tr("TCL keyword"); + + case TkKeyword: + return tr("Tk keyword"); + + case ITCLKeyword: + return tr("iTCL keyword"); + + case TkCommand: + return tr("Tk command"); + + case KeywordSet6: + return tr("User defined 1"); + + case KeywordSet7: + return tr("User defined 2"); + + case KeywordSet8: + return tr("User defined 3"); + + case KeywordSet9: + return tr("User defined 4"); + + case CommentBox: + return tr("Comment box"); + + case CommentBlock: + return tr("Comment block"); + } + + return QString(); +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerTCL::defaultPaper(int style) const +{ + switch (style) + { + case Comment: + return QColor(0xf0,0xff,0xe0); + + case QuotedKeyword: + case QuotedString: + case ITCLKeyword: + return QColor(0xff,0xf0,0xf0); + + case Substitution: + return QColor(0xef,0xff,0xf0); + + case ExpandKeyword: + return QColor(0xff,0xff,0x80); + + case TkKeyword: + return QColor(0xe0,0xff,0xf0); + + case TkCommand: + return QColor(0xff,0xd0,0xd0); + + case CommentBox: + case CommentBlock: + return QColor(0xf0,0xff,0xf0); + } + + return QsciLexer::defaultPaper(style); +} + + +// Refresh all properties. +void QsciLexerTCL::refreshProperties() +{ + setCommentProp(); +} + + +// Read properties from the settings. +bool QsciLexerTCL::readProperties(QSettings &qs, const QString &prefix) +{ + int rc = true; + + fold_comments = qs.value(prefix + "foldcomments", false).toBool(); + + return rc; +} + + +// Write properties to the settings. +bool QsciLexerTCL::writeProperties(QSettings &qs, const QString &prefix) const +{ + int rc = true; + + qs.setValue(prefix + "foldcomments", fold_comments); + + return rc; +} + + +// Set if comments can be folded. +void QsciLexerTCL::setFoldComments(bool fold) +{ + fold_comments = fold; + + setCommentProp(); +} + + +// Set the "fold.comment" property. +void QsciLexerTCL::setCommentProp() +{ + emit propertyChanged("fold.comment", (fold_comments ? "1" : "0")); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexertekhex.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexertekhex.cpp new file mode 100644 index 000000000..ae6d2bddc --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexertekhex.cpp @@ -0,0 +1,59 @@ +// This module implements the QsciLexerTekHex class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexertekhex.h" + + +// The ctor. +QsciLexerTekHex::QsciLexerTekHex(QObject *parent) + : QsciLexerHex(parent) +{ +} + + +// The dtor. +QsciLexerTekHex::~QsciLexerTekHex() +{ +} + + +// Returns the language name. +const char *QsciLexerTekHex::language() const +{ + return "Tektronix-Hex"; +} + + +// Returns the lexer name. +const char *QsciLexerTekHex::lexer() const +{ + return "tehex"; +} + + +// Returns the user name of a style. +QString QsciLexerTekHex::description(int style) const +{ + // Handle unsupported styles. + if (style == NoAddress || style == RecordCount || style == ExtendedAddress || style == UnknownData) + return QString(); + + return QsciLexerHex::description(style); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexertex.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexertex.cpp new file mode 100644 index 000000000..fc33ba5b9 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexertex.cpp @@ -0,0 +1,308 @@ +// This module implements the QsciLexerTeX class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexertex.h" + +#include +#include +#include + + +// The ctor. +QsciLexerTeX::QsciLexerTeX(QObject *parent) + : QsciLexer(parent), + fold_comments(false), fold_compact(true), process_comments(false), + process_if(true) +{ +} + + +// The dtor. +QsciLexerTeX::~QsciLexerTeX() +{ +} + + +// Returns the language name. +const char *QsciLexerTeX::language() const +{ + return "TeX"; +} + + +// Returns the lexer name. +const char *QsciLexerTeX::lexer() const +{ + return "tex"; +} + + +// Return the string of characters that comprise a word. +const char *QsciLexerTeX::wordCharacters() const +{ + return "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ\\@"; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerTeX::defaultColor(int style) const +{ + switch (style) + { + case Default: + return QColor(0x3f,0x3f,0x3f); + + case Special: + return QColor(0x00,0x7f,0x7f); + + case Group: + return QColor(0x7f,0x00,0x00); + + case Symbol: + return QColor(0x7f,0x7f,0x00); + + case Command: + return QColor(0x00,0x7f,0x00); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the set of keywords. +const char *QsciLexerTeX::keywords(int set) const +{ + if (set == 1) + return + "above abovedisplayshortskip abovedisplayskip " + "abovewithdelims accent adjdemerits advance " + "afterassignment aftergroup atop atopwithdelims " + "badness baselineskip batchmode begingroup " + "belowdisplayshortskip belowdisplayskip binoppenalty " + "botmark box boxmaxdepth brokenpenalty catcode char " + "chardef cleaders closein closeout clubpenalty copy " + "count countdef cr crcr csname day deadcycles def " + "defaulthyphenchar defaultskewchar delcode delimiter " + "delimiterfactor delimeters delimitershortfall " + "delimeters dimen dimendef discretionary " + "displayindent displaylimits displaystyle " + "displaywidowpenalty displaywidth divide " + "doublehyphendemerits dp dump edef else " + "emergencystretch end endcsname endgroup endinput " + "endlinechar eqno errhelp errmessage " + "errorcontextlines errorstopmode escapechar everycr " + "everydisplay everyhbox everyjob everymath everypar " + "everyvbox exhyphenpenalty expandafter fam fi " + "finalhyphendemerits firstmark floatingpenalty font " + "fontdimen fontname futurelet gdef global group " + "globaldefs halign hangafter hangindent hbadness " + "hbox hfil horizontal hfill horizontal hfilneg hfuzz " + "hoffset holdinginserts hrule hsize hskip hss " + "horizontal ht hyphenation hyphenchar hyphenpenalty " + "hyphen if ifcase ifcat ifdim ifeof iffalse ifhbox " + "ifhmode ifinner ifmmode ifnum ifodd iftrue ifvbox " + "ifvmode ifvoid ifx ignorespaces immediate indent " + "input inputlineno input insert insertpenalties " + "interlinepenalty jobname kern language lastbox " + "lastkern lastpenalty lastskip lccode leaders left " + "lefthyphenmin leftskip leqno let limits linepenalty " + "line lineskip lineskiplimit long looseness lower " + "lowercase mag mark mathaccent mathbin mathchar " + "mathchardef mathchoice mathclose mathcode mathinner " + "mathop mathopen mathord mathpunct mathrel " + "mathsurround maxdeadcycles maxdepth meaning " + "medmuskip message mkern month moveleft moveright " + "mskip multiply muskip muskipdef newlinechar noalign " + "noboundary noexpand noindent nolimits nonscript " + "scriptscript nonstopmode nulldelimiterspace " + "nullfont number omit openin openout or outer output " + "outputpenalty over overfullrule overline " + "overwithdelims pagedepth pagefilllstretch " + "pagefillstretch pagefilstretch pagegoal pageshrink " + "pagestretch pagetotal par parfillskip parindent " + "parshape parskip patterns pausing penalty " + "postdisplaypenalty predisplaypenalty predisplaysize " + "pretolerance prevdepth prevgraf radical raise read " + "relax relpenalty right righthyphenmin rightskip " + "romannumeral scriptfont scriptscriptfont " + "scriptscriptstyle scriptspace scriptstyle " + "scrollmode setbox setlanguage sfcode shipout show " + "showbox showboxbreadth showboxdepth showlists " + "showthe skewchar skip skipdef spacefactor spaceskip " + "span special splitbotmark splitfirstmark " + "splitmaxdepth splittopskip string tabskip textfont " + "textstyle the thickmuskip thinmuskip time toks " + "toksdef tolerance topmark topskip tracingcommands " + "tracinglostchars tracingmacros tracingonline " + "tracingoutput tracingpages tracingparagraphs " + "tracingrestores tracingstats uccode uchyph " + "underline unhbox unhcopy unkern unpenalty unskip " + "unvbox unvcopy uppercase vadjust valign vbadness " + "vbox vcenter vfil vfill vfilneg vfuzz voffset vrule " + "vsize vskip vsplit vss vtop wd widowpenalty write " + "xdef xleaders xspaceskip year " + "TeX bgroup egroup endgraf space empty null newcount " + "newdimen newskip newmuskip newbox newtoks newhelp " + "newread newwrite newfam newlanguage newinsert newif " + "maxdimen magstephalf magstep frenchspacing " + "nonfrenchspacing normalbaselines obeylines " + "obeyspaces raggedr ight ttraggedright thinspace " + "negthinspace enspace enskip quad qquad smallskip " + "medskip bigskip removelastskip topglue vglue hglue " + "break nobreak allowbreak filbreak goodbreak " + "smallbreak medbreak bigbreak line leftline " + "rightline centerline rlap llap underbar strutbox " + "strut cases matrix pmatrix bordermatrix eqalign " + "displaylines eqalignno leqalignno pageno folio " + "tracingall showhyphens fmtname fmtversion hphantom " + "vphantom phantom smash"; + + return 0; +} + + +// Returns the user name of a style. +QString QsciLexerTeX::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Special: + return tr("Special"); + + case Group: + return tr("Group"); + + case Symbol: + return tr("Symbol"); + + case Command: + return tr("Command"); + + case Text: + return tr("Text"); + } + + return QString(); +} + + +// Refresh all properties. +void QsciLexerTeX::refreshProperties() +{ + setCommentProp(); + setCompactProp(); + setProcessCommentsProp(); + setAutoIfProp(); +} + + +// Read properties from the settings. +bool QsciLexerTeX::readProperties(QSettings &qs, const QString &prefix) +{ + int rc = true; + + fold_comments = qs.value(prefix + "foldcomments", false).toBool(); + fold_compact = qs.value(prefix + "foldcompact", true).toBool(); + process_comments = qs.value(prefix + "processcomments", false).toBool(); + process_if = qs.value(prefix + "processif", true).toBool(); + + return rc; +} + + +// Write properties to the settings. +bool QsciLexerTeX::writeProperties(QSettings &qs, const QString &prefix) const +{ + int rc = true; + + qs.value(prefix + "foldcomments", fold_comments); + qs.value(prefix + "foldcompact", fold_compact); + qs.value(prefix + "processcomments", process_comments); + qs.value(prefix + "processif", process_if); + + return rc; +} + + +// Set if comments can be folded. +void QsciLexerTeX::setFoldComments(bool fold) +{ + fold_comments = fold; + + setCommentProp(); +} + + +// Set the "fold.comment" property. +void QsciLexerTeX::setCommentProp() +{ + emit propertyChanged("fold.comment", (fold_comments ? "1" : "0")); +} + + +// Set if folds are compact. +void QsciLexerTeX::setFoldCompact(bool fold) +{ + fold_compact = fold; + + setCompactProp(); +} + + +// Set the "fold.compact" property. +void QsciLexerTeX::setCompactProp() +{ + emit propertyChanged("fold.compact", (fold_compact ? "1" : "0")); +} + + +// Set if comments are processed +void QsciLexerTeX::setProcessComments(bool enable) +{ + process_comments = enable; + + setProcessCommentsProp(); +} + + +// Set the "lexer.tex.comment.process" property. +void QsciLexerTeX::setProcessCommentsProp() +{ + emit propertyChanged("lexer.tex.comment.process", (process_comments ? "1" : "0")); +} + + +// Set if \if is processed +void QsciLexerTeX::setProcessIf(bool enable) +{ + process_if = enable; + + setAutoIfProp(); +} + + +// Set the "lexer.tex.auto.if" property. +void QsciLexerTeX::setAutoIfProp() +{ + emit propertyChanged("lexer.tex.auto.if", (process_if ? "1" : "0")); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerverilog.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerverilog.cpp new file mode 100644 index 000000000..676a9fe74 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerverilog.cpp @@ -0,0 +1,572 @@ +// This module implements the QsciLexerVerilog class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexerverilog.h" + +#include +#include +#include + + +// The ctor. +QsciLexerVerilog::QsciLexerVerilog(QObject *parent) + : QsciLexer(parent), + fold_atelse(false), fold_comments(false), fold_compact(true), + fold_preproc(false), fold_atmodule(false) +{ +} + + +// The dtor. +QsciLexerVerilog::~QsciLexerVerilog() +{ +} + + +// Returns the language name. +const char *QsciLexerVerilog::language() const +{ + return "Verilog"; +} + + +// Returns the lexer name. +const char *QsciLexerVerilog::lexer() const +{ + return "verilog"; +} + + +// Return the style used for braces. +int QsciLexerVerilog::braceStyle() const +{ + return Operator; +} + + +// Returns the set of keywords. +const char *QsciLexerVerilog::keywords(int set) const +{ + if (set == 1) + return + "always and assign automatic begin buf bufif0 bufif1 case casex " + "casez cell cmos config deassign default defparam design disable " + "edge else end endcase endconfig endfunction endgenerate " + "endmodule endprimitiveendspecify endtable endtask event for " + "force forever fork function generate genvar highz0 highz1 if " + "ifnone incdir include initial inout input instance integer join " + "large liblist library localparam macromodule medium module nand " + "negedge nmos nor noshowcancelled not notif0 notif1 or output " + "parameter pmos posedge primitive pull0 pull1 pulldown pullup " + "pulsestyle_ondetect pulsestyle_onevent rcmos real realtime reg " + "release repeat rnmos rpmos rtran rtranif0 rtranif1 scalared " + "showcancelled signed small specify specparam strong0 strong1 " + "supply0 supply1 table task time tran tranif0 tranif1 tri tri0 " + "tri1 triand trior trireg unsigned use vectored wait wand weak0 " + "weak1 while wire wor xnor xor"; + + if (set == 3) + return + "$async$and$array $async$and$plane $async$nand$array " + "$async$nand$plane $async$nor$array $async$nor$plane " + "$async$or$array $async$or$plane $bitstoreal $countdrivers " + "$display $displayb $displayh $displayo $dist_chi_square " + "$dist_erlang $dist_exponential $dist_normal $dist_poisson " + "$dist_t $dist_uniform $dumpall $dumpfile $dumpflush $dumplimit " + "$dumpoff $dumpon $dumpportsall $dumpportsflush $dumpportslimit " + "$dumpportsoff $dumpportson $dumpvars $fclose $fdisplayh " + "$fdisplay $fdisplayf $fdisplayb $ferror $fflush $fgetc $fgets " + "$finish $fmonitorb $fmonitor $fmonitorf $fmonitorh $fopen " + "$fread $fscanf $fseek $fsscanf $fstrobe $fstrobebb $fstrobef " + "$fstrobeh $ftel $fullskew $fwriteb $fwritef $fwriteh $fwrite " + "$getpattern $history $hold $incsave $input $itor $key $list " + "$log $monitorb $monitorh $monitoroff $monitoron $monitor " + "$monitoro $nochange $nokey $nolog $period $printtimescale " + "$q_add $q_exam $q_full $q_initialize $q_remove $random " + "$readmemb $readmemh $readmemh $realtime $realtobits $recovery " + "$recrem $removal $reset_count $reset $reset_value $restart " + "$rewind $rtoi $save $scale $scope $sdf_annotate $setup " + "$setuphold $sformat $showscopes $showvariables $showvars " + "$signed $skew $sreadmemb $sreadmemh $stime $stop $strobeb " + "$strobe $strobeh $strobeo $swriteb $swriteh $swriteo $swrite " + "$sync$and$array $sync$and$plane $sync$nand$array " + "$sync$nand$plane $sync$nor$array $sync$nor$plane $sync$or$array " + "$sync$or$plane $test$plusargs $time $timeformat $timeskew " + "$ungetc $unsigned $value$plusargs $width $writeb $writeh $write " + "$writeo"; + + return 0; +} + + +// Return the string of characters that comprise a word. +const char *QsciLexerVerilog::wordCharacters() const +{ + return "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_$"; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerVerilog::defaultColor(int style) const +{ + switch (style) + { + case Default: + case InactiveComment: + case InactiveCommentLine: + case InactiveCommentBang: + case InactiveNumber: + case InactiveKeyword: + case InactiveString: + case InactiveKeywordSet2: + case InactiveSystemTask: + case InactivePreprocessor: + case InactiveOperator: + case InactiveIdentifier: + case InactiveUnclosedString: + case InactiveUserKeywordSet: + case InactiveCommentKeyword: + case InactiveDeclareInputPort: + case InactiveDeclareOutputPort: + case InactiveDeclareInputOutputPort: + case InactivePortConnection: + return QColor(0x80, 0x80, 0x80); + + case Comment: + case CommentLine: + return QColor(0x00, 0x7f, 0x00); + + case CommentBang: + return QColor(0x3f, 0x7f, 0x3f); + + case Number: + case KeywordSet2: + return QColor(0x00, 0x7f, 0x7f); + + case Keyword: + case DeclareOutputPort: + return QColor(0x00, 0x00, 0x7f); + + case String: + return QColor(0x7f, 0x00, 0x7f); + + case SystemTask: + return QColor(0x80, 0x40, 0x20); + + case Preprocessor: + return QColor(0x7f, 0x7f, 0x00); + + case Operator: + return QColor(0x00, 0x70, 0x70); + + case UnclosedString: + return QColor(0x00, 0x00, 0x00); + + case UserKeywordSet: + case CommentKeyword: + return QColor(0x2a, 0x00, 0xff); + + case DeclareInputPort: + return QColor(0x7f, 0x00, 0x00); + + case DeclareInputOutputPort: + return QColor(0x00, 0x00, 0xff); + + case PortConnection: + return QColor(0x00, 0x50, 0x32); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the end-of-line fill for a style. +bool QsciLexerVerilog::defaultEolFill(int style) const +{ + switch (style) + { + case CommentBang: + case UnclosedString: + case InactiveDefault: + case InactiveComment: + case InactiveCommentLine: + case InactiveCommentBang: + case InactiveNumber: + case InactiveKeyword: + case InactiveString: + case InactiveKeywordSet2: + case InactiveSystemTask: + case InactivePreprocessor: + case InactiveOperator: + case InactiveIdentifier: + case InactiveUnclosedString: + case InactiveUserKeywordSet: + case InactiveCommentKeyword: + case InactiveDeclareInputPort: + case InactiveDeclareOutputPort: + case InactiveDeclareInputOutputPort: + case InactivePortConnection: + return true; + } + + return QsciLexer::defaultEolFill(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerVerilog::defaultFont(int style) const +{ + QFont f; + + switch (style) + { + case Comment: + case CommentLine: + case CommentBang: + case UserKeywordSet: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + break; + + case Keyword: + case PortConnection: + f = QsciLexer::defaultFont(style); + f.setBold(true); + break; + + case InactiveDefault: + case InactiveComment: + case InactiveCommentLine: + case InactiveCommentBang: + case InactiveNumber: + case InactiveKeyword: + case InactiveString: + case InactiveKeywordSet2: + case InactiveSystemTask: + case InactivePreprocessor: + case InactiveOperator: + case InactiveIdentifier: + case InactiveUnclosedString: + case InactiveUserKeywordSet: + case InactiveCommentKeyword: + case InactiveDeclareInputPort: + case InactiveDeclareOutputPort: + case InactiveDeclareInputOutputPort: + case InactivePortConnection: + f = QsciLexer::defaultFont(style); + f.setItalic(true); + break; + + default: + f = QsciLexer::defaultFont(style); + } + + return f; +} + + +// Returns the user name of a style. +QString QsciLexerVerilog::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case InactiveDefault: + return tr("Inactive default"); + + case Comment: + return tr("Comment"); + + case InactiveComment: + return tr("Inactive comment"); + + case CommentLine: + return tr("Line comment"); + + case InactiveCommentLine: + return tr("Inactive line comment"); + + case CommentBang: + return tr("Bang comment"); + + case InactiveCommentBang: + return tr("Inactive bang comment"); + + case Number: + return tr("Number"); + + case InactiveNumber: + return tr("Inactive number"); + + case Keyword: + return tr("Primary keywords and identifiers"); + + case InactiveKeyword: + return tr("Inactive primary keywords and identifiers"); + + case String: + return tr("String"); + + case InactiveString: + return tr("Inactive string"); + + case KeywordSet2: + return tr("Secondary keywords and identifiers"); + + case InactiveKeywordSet2: + return tr("Inactive secondary keywords and identifiers"); + + case SystemTask: + return tr("System task"); + + case InactiveSystemTask: + return tr("Inactive system task"); + + case Preprocessor: + return tr("Preprocessor block"); + + case InactivePreprocessor: + return tr("Inactive preprocessor block"); + + case Operator: + return tr("Operator"); + + case InactiveOperator: + return tr("Inactive operator"); + + case Identifier: + return tr("Identifier"); + + case InactiveIdentifier: + return tr("Inactive identifier"); + + case UnclosedString: + return tr("Unclosed string"); + + case InactiveUnclosedString: + return tr("Inactive unclosed string"); + + case UserKeywordSet: + return tr("User defined tasks and identifiers"); + + case InactiveUserKeywordSet: + return tr("Inactive user defined tasks and identifiers"); + + case CommentKeyword: + return tr("Keyword comment"); + + case InactiveCommentKeyword: + return tr("Inactive keyword comment"); + + case DeclareInputPort: + return tr("Input port declaration"); + + case InactiveDeclareInputPort: + return tr("Inactive input port declaration"); + + case DeclareOutputPort: + return tr("Output port declaration"); + + case InactiveDeclareOutputPort: + return tr("Inactive output port declaration"); + + case DeclareInputOutputPort: + return tr("Input/output port declaration"); + + case InactiveDeclareInputOutputPort: + return tr("Inactive input/output port declaration"); + + case PortConnection: + return tr("Port connection"); + + case InactivePortConnection: + return tr("Inactive port connection"); + } + + return QString(); +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerVerilog::defaultPaper(int style) const +{ + switch (style) + { + case CommentBang: + return QColor(0xe0, 0xf0, 0xff); + + case UnclosedString: + return QColor(0xe0, 0xc0, 0xe0); + + case InactiveDefault: + case InactiveComment: + case InactiveCommentLine: + case InactiveCommentBang: + case InactiveNumber: + case InactiveKeyword: + case InactiveString: + case InactiveKeywordSet2: + case InactiveSystemTask: + case InactivePreprocessor: + case InactiveOperator: + case InactiveIdentifier: + case InactiveUnclosedString: + case InactiveUserKeywordSet: + case InactiveCommentKeyword: + case InactiveDeclareInputPort: + case InactiveDeclareOutputPort: + case InactiveDeclareInputOutputPort: + case InactivePortConnection: + return QColor(0xe0, 0xe0, 0xe0); + } + + return QsciLexer::defaultPaper(style); +} + + +// Refresh all properties. +void QsciLexerVerilog::refreshProperties() +{ + setAtElseProp(); + setCommentProp(); + setCompactProp(); + setPreprocProp(); + setAtModuleProp(); + + // We don't provide options for these as there doesn't seem much point in + // disabling them. + emit propertyChanged("lexer.verilog.track.preprocessor", "1"); + emit propertyChanged("lexer.verilog.update.preprocessor", "1"); + emit propertyChanged("lexer.verilog.portstyling", "1"); + emit propertyChanged("lexer.verilog.allupperkeywords", "1"); +} + + +// Read properties from the settings. +bool QsciLexerVerilog::readProperties(QSettings &qs,const QString &prefix) +{ + fold_atelse = qs.value(prefix + "foldatelse", false).toBool(); + fold_comments = qs.value(prefix + "foldcomments", false).toBool(); + fold_compact = qs.value(prefix + "foldcompact", true).toBool(); + fold_preproc = qs.value(prefix + "foldpreprocessor", false).toBool(); + fold_atmodule = qs.value(prefix + "foldverilogflags", false).toBool(); + + return true; +} + + +// Write properties to the settings. +bool QsciLexerVerilog::writeProperties(QSettings &qs,const QString &prefix) const +{ + qs.setValue(prefix + "foldatelse", fold_atelse); + qs.setValue(prefix + "foldcomments", fold_comments); + qs.setValue(prefix + "foldcompact", fold_compact); + qs.setValue(prefix + "foldpreprocessor", fold_preproc); + qs.setValue(prefix + "foldverilogflags", fold_atmodule); + + return true; +} + + +// Set if else can be folded. +void QsciLexerVerilog::setFoldAtElse(bool fold) +{ + fold_atelse = fold; + + setAtElseProp(); +} + + +// Set the "fold.at.else" property. +void QsciLexerVerilog::setAtElseProp() +{ + emit propertyChanged("fold.at.else", (fold_atelse ? "1" : "0")); +} + + +// Set if comments can be folded. +void QsciLexerVerilog::setFoldComments(bool fold) +{ + fold_comments = fold; + + setCommentProp(); +} + + +// Set the "fold.comment" property. +void QsciLexerVerilog::setCommentProp() +{ + emit propertyChanged("fold.comment", (fold_comments ? "1" : "0")); +} + + +// Set if folds are compact +void QsciLexerVerilog::setFoldCompact(bool fold) +{ + fold_compact = fold; + + setCompactProp(); +} + + +// Set the "fold.compact" property. +void QsciLexerVerilog::setCompactProp() +{ + emit propertyChanged("fold.compact", (fold_compact ? "1" : "0")); +} + + +// Set if preprocessor blocks can be folded. +void QsciLexerVerilog::setFoldPreprocessor(bool fold) +{ + fold_preproc = fold; + + setPreprocProp(); +} + + +// Set the "fold.preprocessor" property. +void QsciLexerVerilog::setPreprocProp() +{ + emit propertyChanged("fold.preprocessor", (fold_preproc ? "1" : "0")); +} + + +// Set if modules can be folded. +void QsciLexerVerilog::setFoldAtModule(bool fold) +{ + fold_atmodule = fold; + + setAtModuleProp(); +} + + +// Set the "fold.verilog.flags" property. +void QsciLexerVerilog::setAtModuleProp() +{ + emit propertyChanged("fold.verilog.flags", (fold_atmodule ? "1" : "0")); +} diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexervhdl.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexervhdl.cpp new file mode 100644 index 000000000..f1806b9e9 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexervhdl.cpp @@ -0,0 +1,418 @@ +// This module implements the QsciLexerVHDL class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexervhdl.h" + +#include +#include +#include + + +// The ctor. +QsciLexerVHDL::QsciLexerVHDL(QObject *parent) + : QsciLexer(parent), + fold_comments(true), fold_compact(true), fold_atelse(true), + fold_atbegin(true), fold_atparenth(true) +{ +} + + +// The dtor. +QsciLexerVHDL::~QsciLexerVHDL() +{ +} + + +// Returns the language name. +const char *QsciLexerVHDL::language() const +{ + return "VHDL"; +} + + +// Returns the lexer name. +const char *QsciLexerVHDL::lexer() const +{ + return "vhdl"; +} + + +// Return the style used for braces. +int QsciLexerVHDL::braceStyle() const +{ + return Attribute; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerVHDL::defaultColor(int style) const +{ + switch (style) + { + case Default: + return QColor(0x80,0x00,0x80); + + case Comment: + return QColor(0x00,0x7f,0x00); + + case CommentLine: + return QColor(0x3f,0x7f,0x3f); + + case Number: + case StandardOperator: + return QColor(0x00,0x7f,0x7f); + + case String: + return QColor(0x7f,0x00,0x7f); + + case UnclosedString: + return QColor(0x00,0x00,0x00); + + case Keyword: + return QColor(0x00,0x00,0x7f); + + case Attribute: + return QColor(0x80,0x40,0x20); + + case StandardFunction: + return QColor(0x80,0x80,0x20); + + case StandardPackage: + return QColor(0x20,0x80,0x20); + + case StandardType: + return QColor(0x20,0x80,0x80); + + case KeywordSet7: + return QColor(0x80,0x40,0x20); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the end-of-line fill for a style. +bool QsciLexerVHDL::defaultEolFill(int style) const +{ + if (style == UnclosedString) + return true; + + return QsciLexer::defaultEolFill(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerVHDL::defaultFont(int style) const +{ + QFont f; + + switch (style) + { + case Comment: + case CommentLine: + case KeywordSet7: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + break; + + default: + f = QsciLexer::defaultFont(style); + } + + return f; +} + + +// Returns the set of keywords. +const char *QsciLexerVHDL::keywords(int set) const +{ + if (set == 1) + return + "access after alias all architecture array assert attribute begin " + "block body buffer bus case component configuration constant " + "disconnect downto else elsif end entity exit file for function " + "generate generic group guarded if impure in inertial inout is " + "label library linkage literal loop map new next null of on open " + "others out package port postponed procedure process pure range " + "record register reject report return select severity shared " + "signal subtype then to transport type unaffected units until use " + "variable wait when while with"; + + if (set == 2) + return + "abs and mod nand nor not or rem rol ror sla sll sra srl xnor xor"; + + if (set == 3) + return + "left right low high ascending image value pos val succ pred " + "leftof rightof base range reverse_range length delayed stable " + "quiet transaction event active last_event last_active last_value " + "driving driving_value simple_name path_name instance_name"; + + if (set == 4) + return + "now readline read writeline write endfile resolved to_bit " + "to_bitvector to_stdulogic to_stdlogicvector to_stdulogicvector " + "to_x01 to_x01z to_UX01 rising_edge falling_edge is_x shift_left " + "shift_right rotate_left rotate_right resize to_integer " + "to_unsigned to_signed std_match to_01"; + + if (set == 5) + return + "std ieee work standard textio std_logic_1164 std_logic_arith " + "std_logic_misc std_logic_signed std_logic_textio " + "std_logic_unsigned numeric_bit numeric_std math_complex " + "math_real vital_primitives vital_timing"; + + if (set == 6) + return + "boolean bit character severity_level integer real time " + "delay_length natural positive string bit_vector file_open_kind " + "file_open_status line text side width std_ulogic " + "std_ulogic_vector std_logic std_logic_vector X01 X01Z UX01 UX01Z " + "unsigned signed"; + + return 0; +} + + +// Returns the user name of a style. +QString QsciLexerVHDL::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Comment: + return tr("Comment"); + + case CommentLine: + return tr("Comment line"); + + case Number: + return tr("Number"); + + case String: + return tr("String"); + + case Operator: + return tr("Operator"); + + case Identifier: + return tr("Identifier"); + + case UnclosedString: + return tr("Unclosed string"); + + case Keyword: + return tr("Keyword"); + + case StandardOperator: + return tr("Standard operator"); + + case Attribute: + return tr("Attribute"); + + case StandardFunction: + return tr("Standard function"); + + case StandardPackage: + return tr("Standard package"); + + case StandardType: + return tr("Standard type"); + + case KeywordSet7: + return tr("User defined"); + + case CommentBlock: + return tr("Comment block"); + } + + return QString(); +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerVHDL::defaultPaper(int style) const +{ + if (style == UnclosedString) + return QColor(0xe0,0xc0,0xe0); + + return QsciLexer::defaultPaper(style); +} + + +// Refresh all properties. +void QsciLexerVHDL::refreshProperties() +{ + setCommentProp(); + setCompactProp(); + setAtElseProp(); + setAtBeginProp(); + setAtParenthProp(); +} + + +// Read properties from the settings. +bool QsciLexerVHDL::readProperties(QSettings &qs,const QString &prefix) +{ + fold_comments = qs.value(prefix + "foldcomments", true).toBool(); + fold_compact = qs.value(prefix + "foldcompact", true).toBool(); + fold_atelse = qs.value(prefix + "foldatelse", true).toBool(); + fold_atbegin = qs.value(prefix + "foldatbegin", true).toBool(); + fold_atparenth = qs.value(prefix + "foldatparenthesis", true).toBool(); + + return true; +} + + +// Write properties to the settings. +bool QsciLexerVHDL::writeProperties(QSettings &qs,const QString &prefix) const +{ + qs.setValue(prefix + "foldcomments", fold_comments); + qs.setValue(prefix + "foldcompact", fold_compact); + qs.setValue(prefix + "foldatelse", fold_atelse); + qs.setValue(prefix + "foldatbegin", fold_atbegin); + qs.setValue(prefix + "foldatparenthesis", fold_atparenth); + + return true; +} + + +// Return true if comments can be folded. +bool QsciLexerVHDL::foldComments() const +{ + return fold_comments; +} + + +// Set if comments can be folded. +void QsciLexerVHDL::setFoldComments(bool fold) +{ + fold_comments = fold; + + setCommentProp(); +} + + +// Set the "fold.comment" property. +void QsciLexerVHDL::setCommentProp() +{ + emit propertyChanged("fold.comment",(fold_comments ? "1" : "0")); +} + + +// Return true if folds are compact. +bool QsciLexerVHDL::foldCompact() const +{ + return fold_compact; +} + + +// Set if folds are compact +void QsciLexerVHDL::setFoldCompact(bool fold) +{ + fold_compact = fold; + + setCompactProp(); +} + + +// Set the "fold.compact" property. +void QsciLexerVHDL::setCompactProp() +{ + emit propertyChanged("fold.compact",(fold_compact ? "1" : "0")); +} + + +// Return true if else blocks can be folded. +bool QsciLexerVHDL::foldAtElse() const +{ + return fold_atelse; +} + + +// Set if else blocks can be folded. +void QsciLexerVHDL::setFoldAtElse(bool fold) +{ + fold_atelse = fold; + + setAtElseProp(); +} + + +// Set the "fold.at.else" property. +void QsciLexerVHDL::setAtElseProp() +{ + emit propertyChanged("fold.at.else",(fold_atelse ? "1" : "0")); +} + + +// Return true if begin blocks can be folded. +bool QsciLexerVHDL::foldAtBegin() const +{ + return fold_atbegin; +} + + +// Set if begin blocks can be folded. +void QsciLexerVHDL::setFoldAtBegin(bool fold) +{ + fold_atbegin = fold; + + setAtBeginProp(); +} + + +// Set the "fold.at.Begin" property. +void QsciLexerVHDL::setAtBeginProp() +{ + emit propertyChanged("fold.at.Begin",(fold_atelse ? "1" : "0")); +} + + +// Return true if blocks can be folded at a parenthesis. +bool QsciLexerVHDL::foldAtParenthesis() const +{ + return fold_atparenth; +} + + +// Set if blocks can be folded at a parenthesis. +void QsciLexerVHDL::setFoldAtParenthesis(bool fold) +{ + fold_atparenth = fold; + + setAtParenthProp(); +} + + +// Set the "fold.at.Parenthese" property. +void QsciLexerVHDL::setAtParenthProp() +{ + emit propertyChanged("fold.at.Parenthese",(fold_atparenth ? "1" : "0")); +} diff --git a/libs/qscintilla/Qt4Qt5/qscilexerxml.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerxml.cpp similarity index 98% rename from libs/qscintilla/Qt4Qt5/qscilexerxml.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/qscilexerxml.cpp index 16e0a909e..478eb4587 100644 --- a/libs/qscintilla/Qt4Qt5/qscilexerxml.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexerxml.cpp @@ -1,6 +1,6 @@ // This module implements the QsciLexerXML class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscilexeryaml.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexeryaml.cpp new file mode 100644 index 000000000..4a672f265 --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscilexeryaml.cpp @@ -0,0 +1,269 @@ +// This module implements the QsciLexerYAML class. +// +// Copyright (c) 2023 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. + + +#include "Qsci/qscilexeryaml.h" + +#include +#include +#include + + +// The ctor. +QsciLexerYAML::QsciLexerYAML(QObject *parent) + : QsciLexer(parent), fold_comments(false) +{ +} + + +// The dtor. +QsciLexerYAML::~QsciLexerYAML() +{ +} + + +// Returns the language name. +const char *QsciLexerYAML::language() const +{ + return "YAML"; +} + + +// Returns the lexer name. +const char *QsciLexerYAML::lexer() const +{ + return "yaml"; +} + + +// Returns the foreground colour of the text for a style. +QColor QsciLexerYAML::defaultColor(int style) const +{ + switch (style) + { + case Default: + return QColor(0x00,0x00,0x00); + + case Comment: + return QColor(0x00,0x88,0x00); + + case Identifier: + return QColor(0x00,0x00,0x88); + + case Keyword: + return QColor(0x88,0x00,0x88); + + case Number: + return QColor(0x88,0x00,0x00); + + case Reference: + return QColor(0x00,0x88,0x88); + + case DocumentDelimiter: + case SyntaxErrorMarker: + return QColor(0xff,0xff,0xff); + + case TextBlockMarker: + return QColor(0x33,0x33,0x66); + } + + return QsciLexer::defaultColor(style); +} + + +// Returns the end-of-line fill for a style. +bool QsciLexerYAML::defaultEolFill(int style) const +{ + if (style == DocumentDelimiter || style == SyntaxErrorMarker) + return true; + + return QsciLexer::defaultEolFill(style); +} + + +// Returns the font of the text for a style. +QFont QsciLexerYAML::defaultFont(int style) const +{ + QFont f; + + switch (style) + { + case Default: + case TextBlockMarker: +#if defined(Q_OS_WIN) + f = QFont("Times New Roman", 11); +#elif defined(Q_OS_MAC) + f = QFont("Times New Roman", 12); +#else + f = QFont("Bitstream Charter", 10); +#endif + break; + + case Identifier: + f = QsciLexer::defaultFont(style); + f.setBold(true); + break; + + case DocumentDelimiter: +#if defined(Q_OS_WIN) + f = QFont("Comic Sans MS",9); +#elif defined(Q_OS_MAC) + f = QFont("Comic Sans MS", 12); +#else + f = QFont("Bitstream Vera Serif",9); +#endif + f.setBold(true); + break; + + case SyntaxErrorMarker: +#if defined(Q_OS_WIN) + f = QFont("Times New Roman", 11); +#elif defined(Q_OS_MAC) + f = QFont("Times New Roman", 12); +#else + f = QFont("Bitstream Charter", 10); +#endif + f.setBold(true); + f.setItalic(true); + break; + + default: + f = QsciLexer::defaultFont(style); + } + + return f; +} + + +// Returns the set of keywords. +const char *QsciLexerYAML::keywords(int set) const +{ + if (set == 1) + return "true false yes no"; + + return 0; +} + + +// Returns the user name of a style. +QString QsciLexerYAML::description(int style) const +{ + switch (style) + { + case Default: + return tr("Default"); + + case Comment: + return tr("Comment"); + + case Identifier: + return tr("Identifier"); + + case Keyword: + return tr("Keyword"); + + case Number: + return tr("Number"); + + case Reference: + return tr("Reference"); + + case DocumentDelimiter: + return tr("Document delimiter"); + + case TextBlockMarker: + return tr("Text block marker"); + + case SyntaxErrorMarker: + return tr("Syntax error marker"); + + case Operator: + return tr("Operator"); + } + + return QString(); +} + + +// Returns the background colour of the text for a style. +QColor QsciLexerYAML::defaultPaper(int style) const +{ + switch (style) + { + case DocumentDelimiter: + return QColor(0x00,0x00,0x88); + + case SyntaxErrorMarker: + return QColor(0xff,0x00,0x00); + } + + return QsciLexer::defaultPaper(style); +} + + +// Refresh all properties. +void QsciLexerYAML::refreshProperties() +{ + setCommentProp(); +} + + +// Read properties from the settings. +bool QsciLexerYAML::readProperties(QSettings &qs,const QString &prefix) +{ + int rc = true; + + fold_comments = qs.value(prefix + "foldcomments", false).toBool(); + + return rc; +} + + +// Write properties to the settings. +bool QsciLexerYAML::writeProperties(QSettings &qs,const QString &prefix) const +{ + int rc = true; + + qs.setValue(prefix + "foldcomments", fold_comments); + + return rc; +} + + +// Return true if comments can be folded. +bool QsciLexerYAML::foldComments() const +{ + return fold_comments; +} + + +// Set if comments can be folded. +void QsciLexerYAML::setFoldComments(bool fold) +{ + fold_comments = fold; + + setCommentProp(); +} + + +// Set the "fold.comment.yaml" property. +void QsciLexerYAML::setCommentProp() +{ + emit propertyChanged("fold.comment.yaml",(fold_comments ? "1" : "0")); +} diff --git a/libs/qscintilla/Qt4Qt5/qscimacro.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscimacro.cpp similarity index 95% rename from libs/qscintilla/Qt4Qt5/qscimacro.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/qscimacro.cpp index 405a123bb..c216caeef 100644 --- a/libs/qscintilla/Qt4Qt5/qscimacro.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscimacro.cpp @@ -1,6 +1,6 @@ // This module implements the QsciMacro class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -183,9 +183,8 @@ QString QsciMacro::save() const ms += ' '; unsigned len = (*it).text.size(); - QString m; - ms += m.sprintf("%u %lu %u", (*it).msg, (*it).wParam, len); + ms += QString("%1 %2 %3").arg((*it).msg).arg((*it).wParam).arg(len); if (len) { @@ -209,13 +208,10 @@ QString QsciMacro::save() const unsigned char ch = *cp++; if (ch == '\\' || ch == '"' || ch <= ' ' || ch >= 0x7f) - { - QString buf; - - ms += buf.sprintf("\\%02x", ch); - } + ms += QString("\\%1").arg(static_cast(ch), 2, 16, + QLatin1Char('0')); else - ms += ch; + ms += static_cast(ch); } } } diff --git a/libs/qscintilla_2.14.1/Qt5Qt6/qscintilla.pro b/libs/qscintilla_2.14.1/Qt5Qt6/qscintilla.pro new file mode 100644 index 000000000..c6f143afc --- /dev/null +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscintilla.pro @@ -0,0 +1,445 @@ +# The project file for the QScintilla library. +# +# Copyright (c) 2023 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. + + +!win32:VERSION = 15.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} +} + +macx:!CONFIG(staticlib) { + QMAKE_POST_LINK += install_name_tool -id @rpath/$(TARGET1) $(TARGET) +} + +INCLUDEPATH += . ../scintilla/include ../scintilla/lexlib ../scintilla/src + +!CONFIG(staticlib) { + DEFINES += QSCINTILLA_MAKE_DLL + + # Comment this in to build a dynamic library supporting multiple + # architectures on macOS. + #QMAKE_APPLE_DEVICE_ARCHS = x86_64 arm64 +} +DEFINES += SCINTILLA_QT SCI_LEXER INCLUDE_DEPRECATED_FEATURES + +QT += widgets +!ios:QT += printsupport +macx:lessThan(QT_MAJOR_VERSION, 6) { + QT += macextras +} + +# Work around QTBUG-39300. +CONFIG -= android_install + +# 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 + +target.path = $$[QT_INSTALL_LIBS] +INSTALLS += target + +header.path = $$[QT_INSTALL_HEADERS] +header.files = Qsci +INSTALLS += header + +trans.path = $$[QT_INSTALL_TRANSLATIONS] +trans.files = qscintilla_*.qm +INSTALLS += trans + +qsci.path = $$[QT_INSTALL_DATA] +qsci.files = ../qsci +INSTALLS += qsci + +features.path = $$[QT_HOST_DATA]/mkspecs/features +CONFIG(staticlib) { + features.files = $$PWD/features_staticlib/qscintilla2.prf +} else { + features.files = $$PWD/features/qscintilla2.prf +} +INSTALLS += features + +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/qscilexerasm.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/qscilexerhex.h \ + ./Qsci/qscilexerhtml.h \ + ./Qsci/qscilexeridl.h \ + ./Qsci/qscilexerintelhex.h \ + ./Qsci/qscilexerjava.h \ + ./Qsci/qscilexerjavascript.h \ + ./Qsci/qscilexerjson.h \ + ./Qsci/qscilexerlua.h \ + ./Qsci/qscilexermakefile.h \ + ./Qsci/qscilexermarkdown.h \ + ./Qsci/qscilexermasm.h \ + ./Qsci/qscilexermatlab.h \ + ./Qsci/qscilexernasm.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/qscilexersrec.h \ + ./Qsci/qscilexertcl.h \ + ./Qsci/qscilexertekhex.h \ + ./Qsci/qscilexertex.h \ + ./Qsci/qscilexerverilog.h \ + ./Qsci/qscilexervhdl.h \ + ./Qsci/qscilexerxml.h \ + ./Qsci/qscilexeryaml.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 + +!ios:HEADERS += ./Qsci/qsciprinter.h + +SOURCES = \ + qsciscintilla.cpp \ + qsciscintillabase.cpp \ + qsciabstractapis.cpp \ + qsciapis.cpp \ + qscicommand.cpp \ + qscicommandset.cpp \ + qscidocument.cpp \ + qscilexer.cpp \ + qscilexerasm.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 \ + qscilexerhex.cpp \ + qscilexerhtml.cpp \ + qscilexeridl.cpp \ + qscilexerintelhex.cpp \ + qscilexerjava.cpp \ + qscilexerjavascript.cpp \ + qscilexerjson.cpp \ + qscilexerlua.cpp \ + qscilexermakefile.cpp \ + qscilexermarkdown.cpp \ + qscilexermasm.cpp \ + qscilexermatlab.cpp \ + qscilexernasm.cpp \ + qscilexeroctave.cpp \ + qscilexerpascal.cpp \ + qscilexerperl.cpp \ + qscilexerpostscript.cpp \ + qscilexerpo.cpp \ + qscilexerpov.cpp \ + qscilexerproperties.cpp \ + qscilexerpython.cpp \ + qscilexerruby.cpp \ + qscilexerspice.cpp \ + qscilexersql.cpp \ + qscilexersrec.cpp \ + qscilexertcl.cpp \ + qscilexertekhex.cpp \ + qscilexertex.cpp \ + qscilexerverilog.cpp \ + qscilexervhdl.cpp \ + qscilexerxml.cpp \ + qscilexeryaml.cpp \ + qscimacro.cpp \ + qscistyle.cpp \ + qscistyledtext.cpp \ + InputMethod.cpp \ + ListBoxQt.cpp \ + MacPasteboardMime.cpp \ + PlatQt.cpp \ + SciAccessibility.cpp \ + SciClasses.cpp \ + ScintillaQt.cpp \ + ../scintilla/lexers/LexA68k.cpp \ + ../scintilla/lexers/LexAPDL.cpp \ + ../scintilla/lexers/LexASY.cpp \ + ../scintilla/lexers/LexAU3.cpp \ + ../scintilla/lexers/LexAVE.cpp \ + ../scintilla/lexers/LexAVS.cpp \ + ../scintilla/lexers/LexAbaqus.cpp \ + ../scintilla/lexers/LexAda.cpp \ + ../scintilla/lexers/LexAsm.cpp \ + ../scintilla/lexers/LexAsn1.cpp \ + ../scintilla/lexers/LexBaan.cpp \ + ../scintilla/lexers/LexBash.cpp \ + ../scintilla/lexers/LexBasic.cpp \ + ../scintilla/lexers/LexBatch.cpp \ + ../scintilla/lexers/LexBibTeX.cpp \ + ../scintilla/lexers/LexBullant.cpp \ + ../scintilla/lexers/LexCLW.cpp \ + ../scintilla/lexers/LexCOBOL.cpp \ + ../scintilla/lexers/LexCPP.cpp \ + ../scintilla/lexers/LexCSS.cpp \ + ../scintilla/lexers/LexCaml.cpp \ + ../scintilla/lexers/LexCmake.cpp \ + ../scintilla/lexers/LexCoffeeScript.cpp \ + ../scintilla/lexers/LexConf.cpp \ + ../scintilla/lexers/LexCrontab.cpp \ + ../scintilla/lexers/LexCsound.cpp \ + ../scintilla/lexers/LexD.cpp \ + ../scintilla/lexers/LexDMAP.cpp \ + ../scintilla/lexers/LexDMIS.cpp \ + ../scintilla/lexers/LexDiff.cpp \ + ../scintilla/lexers/LexECL.cpp \ + ../scintilla/lexers/LexEDIFACT.cpp \ + ../scintilla/lexers/LexEScript.cpp \ + ../scintilla/lexers/LexEiffel.cpp \ + ../scintilla/lexers/LexErlang.cpp \ + ../scintilla/lexers/LexErrorList.cpp \ + ../scintilla/lexers/LexFlagship.cpp \ + ../scintilla/lexers/LexForth.cpp \ + ../scintilla/lexers/LexFortran.cpp \ + ../scintilla/lexers/LexGAP.cpp \ + ../scintilla/lexers/LexGui4Cli.cpp \ + ../scintilla/lexers/LexHTML.cpp \ + ../scintilla/lexers/LexHaskell.cpp \ + ../scintilla/lexers/LexHex.cpp \ + ../scintilla/lexers/LexIndent.cpp \ + ../scintilla/lexers/LexInno.cpp \ + ../scintilla/lexers/LexJSON.cpp \ + ../scintilla/lexers/LexKVIrc.cpp \ + ../scintilla/lexers/LexKix.cpp \ + ../scintilla/lexers/LexLaTeX.cpp \ + ../scintilla/lexers/LexLisp.cpp \ + ../scintilla/lexers/LexLout.cpp \ + ../scintilla/lexers/LexLua.cpp \ + ../scintilla/lexers/LexMMIXAL.cpp \ + ../scintilla/lexers/LexMPT.cpp \ + ../scintilla/lexers/LexMSSQL.cpp \ + ../scintilla/lexers/LexMagik.cpp \ + ../scintilla/lexers/LexMake.cpp \ + ../scintilla/lexers/LexMarkdown.cpp \ + ../scintilla/lexers/LexMatlab.cpp \ + ../scintilla/lexers/LexMaxima.cpp \ + ../scintilla/lexers/LexMetapost.cpp \ + ../scintilla/lexers/LexModula.cpp \ + ../scintilla/lexers/LexMySQL.cpp \ + ../scintilla/lexers/LexNimrod.cpp \ + ../scintilla/lexers/LexNsis.cpp \ + ../scintilla/lexers/LexNull.cpp \ + ../scintilla/lexers/LexOScript.cpp \ + ../scintilla/lexers/LexOpal.cpp \ + ../scintilla/lexers/LexPB.cpp \ + ../scintilla/lexers/LexPLM.cpp \ + ../scintilla/lexers/LexPO.cpp \ + ../scintilla/lexers/LexPOV.cpp \ + ../scintilla/lexers/LexPS.cpp \ + ../scintilla/lexers/LexPascal.cpp \ + ../scintilla/lexers/LexPerl.cpp \ + ../scintilla/lexers/LexPowerPro.cpp \ + ../scintilla/lexers/LexPowerShell.cpp \ + ../scintilla/lexers/LexProgress.cpp \ + ../scintilla/lexers/LexProps.cpp \ + ../scintilla/lexers/LexPython.cpp \ + ../scintilla/lexers/LexR.cpp \ + ../scintilla/lexers/LexRebol.cpp \ + ../scintilla/lexers/LexRegistry.cpp \ + ../scintilla/lexers/LexRuby.cpp \ + ../scintilla/lexers/LexRust.cpp \ + ../scintilla/lexers/LexSAS.cpp \ + ../scintilla/lexers/LexSML.cpp \ + ../scintilla/lexers/LexSQL.cpp \ + ../scintilla/lexers/LexSTTXT.cpp \ + ../scintilla/lexers/LexScriptol.cpp \ + ../scintilla/lexers/LexSmalltalk.cpp \ + ../scintilla/lexers/LexSorcus.cpp \ + ../scintilla/lexers/LexSpecman.cpp \ + ../scintilla/lexers/LexSpice.cpp \ + ../scintilla/lexers/LexStata.cpp \ + ../scintilla/lexers/LexTACL.cpp \ + ../scintilla/lexers/LexTADS3.cpp \ + ../scintilla/lexers/LexTAL.cpp \ + ../scintilla/lexers/LexTCL.cpp \ + ../scintilla/lexers/LexTCMD.cpp \ + ../scintilla/lexers/LexTeX.cpp \ + ../scintilla/lexers/LexTxt2tags.cpp \ + ../scintilla/lexers/LexVB.cpp \ + ../scintilla/lexers/LexVHDL.cpp \ + ../scintilla/lexers/LexVerilog.cpp \ + ../scintilla/lexers/LexVisualProlog.cpp \ + ../scintilla/lexers/LexYAML.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 + +!ios:SOURCES += qsciprinter.cpp + +TRANSLATIONS = \ + qscintilla_cs.ts \ + qscintilla_de.ts \ + qscintilla_es.ts \ + qscintilla_fr.ts \ + qscintilla_pt_br.ts diff --git a/libs/qscintilla/Qt4Qt5/qscintilla_cs.qm b/libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_cs.qm similarity index 100% rename from libs/qscintilla/Qt4Qt5/qscintilla_cs.qm rename to libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_cs.qm diff --git a/libs/qscintilla/Qt4Qt5/qscintilla_cs.ts b/libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_cs.ts similarity index 85% rename from libs/qscintilla/Qt4Qt5/qscintilla_cs.ts rename to libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_cs.ts index 18eace667..570c5fd50 100644 --- a/libs/qscintilla/Qt4Qt5/qscintilla_cs.ts +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_cs.ts @@ -4,493 +4,493 @@ QsciCommand - + Move down one line Posun o jednu řádku dolů - + Extend selection down one line Rozšířit výběr o jednu řádku dolů - + Scroll view down one line Rolovat pohled o jednu řádku dolů - + Extend rectangular selection down one line Rozšířit obdélníkový výběr o jednu řádku dolů - + Move up one line Posun o jednu řádku nahoru - + Extend selection up one line Rozšířit výběr o jednu řádku nahoru - + Scroll view up one line Rolovat pohled o jednu řádku nahoru - + Extend rectangular selection up one line Rozšířit obdélníkový výběr o jednu řádku nahoru - + Move up one paragraph Posun o jeden odstavec nahoru - + Extend selection up one paragraph Rozšířit výběr o jeden odstavec nahoru - + Move down one paragraph Posun o jeden odstavec dolů - + Scroll to start of document - + Scroll to end of document - + Scroll vertically to centre current line - + Extend selection down one paragraph Rozšířit výběr o jeden odstavec dolů - + Move left one character Posun o jedno písmeno doleva - + Extend selection left one character Rozšířit výběr o jedno písmeno doleva - + Move left one word Posun o jedno slovo vlevo - + Extend selection left one word Rozšířit výběr o jedno slovo doleva - + Extend rectangular selection left one character Rozšířit obdélníkový výběr o jedno písmeno doleva - + Move right one character Posun o jedno písmeno doprava - + Extend selection right one character Rozšířit výběr o jedno písmeno doprava - + Move right one word Posun o jedno slovo doprava - + Extend selection right one word Rozšířit výběr o jedno slovo doprava - + Extend rectangular selection right one character Rozšířit obdélníkový výběr o jedno písmeno doprava - + Move to end of previous word - + Extend selection to end of previous word - + Move to end of next word - + Extend selection to end of next word - + Move left one word part Posun o část slova doleva - + Extend selection left one word part Rozšířit výběr o část slova doleva - + Move right one word part Posun o část slova doprava - + Extend selection right one word part Rozšířit výběr o část slova doprava - + Move up one page Posun na předchozí stranu - + Extend selection up one page Rozšířit výběr na předchozí stranu - + Extend rectangular selection up one page Rozšířit obdélníkový výběr na předchozí stranu - + Move down one page Posun na další stranu - + Extend selection down one page Rozšířit výběr na další stranu - + Extend rectangular selection down one page Rozšířit obdélníkový výběr na další stranu - + Delete current character Smazat aktuální znak - + Cut selection Vyjmout výběr - + Delete word to right Smazat slovo doprava - + Move to start of document line - + Extend selection to start of document line - + Extend rectangular selection to start of document line - + Move to start of display line - + Extend selection to start of display line - + Move to start of display or document line - + Extend selection to start of display or document line - + Move to first visible character in document line - + Extend selection to first visible character in document line - + Extend rectangular selection to first visible character in document line - + Move to first visible character of display in document line - + Extend selection to first visible character in display or document line - + Move to end of document line - + Extend selection to end of document line - + Extend rectangular selection to end of document line - + Move to end of display line - + Extend selection to end of display line - + Move to end of display or document line - + Extend selection to end of display or document line - + Move to start of document - + Extend selection to start of document - + Move to end of document - + Extend selection to end of document - + Stuttered move up one page - + Stuttered extend selection up one page - + Stuttered move down one page - + Stuttered extend selection down one page - + Delete previous character if not at start of line - + Delete right to end of next word - + Delete line to right Smazat řádku doprava - + Transpose current and previous lines - + Duplicate the current line - + Select all Select document - + Move selected lines up one line - + Move selected lines down one line - + Toggle insert/overtype Přepnout vkládání/přepisování - + Paste Vložit - + Copy selection Kopírovat výběr - + Insert newline - + De-indent one level - + Cancel Zrušit - + Delete previous character Smazat předchozí znak - + Delete word to left Smazat slovo doleva - + Delete line to left Smazat řádku doleva - + Undo last command - + Redo last command Znovu použít poslední příkaz - + Indent one level Odsadit o jednu úroveň - + Zoom in Zvětšit - + Zoom out Zmenšit - + Formfeed Vysunout - + Cut current line Vyjmout aktuální řádku - + Delete current line Smazat aktuální řádku - + Copy current line Kopírovat aktuální řádku - + Convert selection to lower case Vybraný text převést na malá písmena - + Convert selection to upper case Vybraný text převést na velká písmena - + Duplicate selection Duplikovat výběr @@ -498,150 +498,233 @@ QsciLexerAVS - + Default Default - + Block comment - + Nested block comment - + Line comment Jednořádkový komentář - + Number Číslo - + Operator Operátor - + Identifier Identifikátor - + Double-quoted string String ve dvojitých uvozovkách - + Triple double-quoted string String ve třech dvojitých uvozovkách - + Keyword Klíčové slovo - + Filter - + Plugin - + Function - + Clip property - + User defined + + QsciLexerAsm + + + Default + Default + + + + Comment + Komentář + + + + Number + Číslo + + + + Double-quoted string + String ve dvojitých uvozovkách + + + + Operator + Operátor + + + + Identifier + Identifikátor + + + + CPU instruction + + + + + FPU instruction + + + + + Register + + + + + Directive + Direktiva + + + + Directive operand + + + + + Block comment + + + + + Single-quoted string + String v jednoduchých uvozovkách + + + + Unclosed string + Neuzavřený string + + + + Extended instruction + + + + + Comment directive + + + QsciLexerBash - + Default Default - + Error Chyba - + Comment Komentář - + Number Číslo - + Keyword Klíčové slovo - + Double-quoted string String ve dvojitých uvozovkách - + Single-quoted string String v jednoduchých uvozovkách - + Operator Operátor - + Identifier Identifikátor - + Scalar Skalár - + Parameter expansion Rozklad parametru - + Backticks Zpětný chod - + Here document delimiter Zde je oddělovač dokumentu - + Single-quoted here document Jednoduché uvozovky zde v dokumentu @@ -649,42 +732,42 @@ QsciLexerBatch - + Default Default - + Comment Komentář - + Keyword Klíčové slovo - + Label Nadpis - + Hide command character Skrýt písmeno příkazu - + External command Externí příkaz - + Variable Proměnná - + Operator Operátor @@ -692,77 +775,77 @@ QsciLexerCMake - + Default Default - + Comment Komentář - + String - + Left quoted string - + Right quoted string - + Function - + Variable Proměnná - + Label Nadpis - + User defined - + WHILE block - + FOREACH block - + IF block - + MACRO block - + Variable within a string - + Number Číslo @@ -770,282 +853,282 @@ QsciLexerCPP - + Default Default - + Inactive default - + C comment C komentář - + Inactive C comment - + C++ comment C++ komentář - + Inactive C++ comment - + JavaDoc style C comment JavaDoc styl C komentáře - + Inactive JavaDoc style C comment - + Number Číslo - + Inactive number - + Keyword Klíčové slovo - + Inactive keyword - + Double-quoted string String ve dvojitých uvozovkách - + Inactive double-quoted string - + Single-quoted string String v jednoduchých uvozovkách - + Inactive single-quoted string - + IDL UUID - + Inactive IDL UUID - + Pre-processor block Pre-procesor blok - + Inactive pre-processor block - + Operator Operátor - + Inactive operator - + Identifier Identifikátor - + Inactive identifier - + Unclosed string Neuzavřený string - + Inactive unclosed string - + C# verbatim string - + Inactive C# verbatim string - + JavaScript regular expression JavaSript regulární výraz - + Inactive JavaScript regular expression - + JavaDoc style C++ comment JavaDoc styl C++ komentáře - + Inactive JavaDoc style C++ comment - + Secondary keywords and identifiers Sekundární klíčová slova a identifikátory - + Inactive secondary keywords and identifiers - + JavaDoc keyword JavaDoc klíčové slovo - + Inactive JavaDoc keyword - + JavaDoc keyword error JavaDoc klíčové slovo chyby - + Inactive JavaDoc keyword error - + Global classes and typedefs Globální třídy a definice typů - + Inactive global classes and typedefs - + C++ raw string - + Inactive C++ raw string - + Vala triple-quoted verbatim string - + Inactive Vala triple-quoted verbatim string - + Pike hash-quoted string - + Inactive Pike hash-quoted string - + Pre-processor C comment - + Inactive pre-processor C comment - + JavaDoc style pre-processor comment - + Inactive JavaDoc style pre-processor comment - + User-defined literal - + Inactive user-defined literal - + Task marker - + Inactive task marker - + Escape sequence - + Inactive escape sequence @@ -1053,117 +1136,122 @@ QsciLexerCSS - + Default Default - + Tag Tag - + Class selector Selektor třídy - + Pseudo-class Pseudotřída - + Unknown pseudo-class Nedefinovaná pseudotřída - + Operator Operátor - + CSS1 property CSS1 vlastnost - + Unknown property Nedefinovaná vlastnost - + Value Hodnota - + + Comment + Komentář + + + ID selector ID selektor - + Important Important - + @-rule @-pravidlo - + Double-quoted string String ve dvojitých uvozovkách - + Single-quoted string String v jednoduchých uvozovkách - + CSS2 property CSS2 vlastnost - + Attribute Atribut - + CSS3 property CSS2 vlastnost {3 ?} - + Pseudo-element - + Extended CSS property - + Extended pseudo-class - + Extended pseudo-element - + Media rule - + Variable Proměnná @@ -1171,7 +1259,7 @@ QsciLexerCSharp - + Verbatim string @@ -1179,122 +1267,122 @@ QsciLexerCoffeeScript - + Default Default - + C-style comment - + C++-style comment - + JavaDoc C-style comment - + Number Číslo - + Keyword Klíčové slovo - + Double-quoted string String ve dvojitých uvozovkách - + Single-quoted string String v jednoduchých uvozovkách - + IDL UUID - + Pre-processor block Pre-procesor blok - + Operator Operátor - + Identifier Identifikátor - + Unclosed string Neuzavřený string - + C# verbatim string - + Regular expression Regulární výraz - + JavaDoc C++-style comment - + Secondary keywords and identifiers Sekundární klíčová slova a identifikátory - + JavaDoc keyword JavaDoc klíčové slovo - + JavaDoc keyword error JavaDoc klíčové slovo chyby - + Global classes - + Block comment - + Block regular expression - + Block regular expression comment - + Instance property @@ -1302,117 +1390,117 @@ QsciLexerD - + Default Default - + Block comment - + Line comment Jednořádkový komentář - + DDoc style block comment - + Nesting comment - + Number Číslo - + Keyword Klíčové slovo - + Secondary keyword - + Documentation keyword - + Type definition - + String - + Unclosed string Neuzavřený string - + Character Znak - + Operator Operátor - + Identifier Identifikátor - + DDoc style line comment - + DDoc keyword - + DDoc keyword error - + Backquoted string - + Raw string - + User defined 1 Definováno uživatelem 1 - + User defined 2 Definováno uživatelem 2 - + User defined 3 Definováno uživatelem 3 @@ -1420,62 +1508,62 @@ QsciLexerDiff - + Default Default - + Comment Komentář - + Command Příkaz - + Header Hlavička - + Position Pozice - + Removed line Odebraná řádka - + Added line Přidaná řádka - + Changed line - + Added adding patch - + Removed adding patch - + Added removing patch - + Removed removing patch @@ -1483,47 +1571,47 @@ QsciLexerEDIFACT - + Default Default - + Segment start - + Segment end - + Element separator - + Composite separator - + Release separator - + UNA segment header - + UNH segment header - + Badly formed segment @@ -1531,77 +1619,77 @@ QsciLexerFortran77 - + Default Default - + Comment Komentář - + Number Číslo - + Single-quoted string String v jednoduchých uvozovkách - + Double-quoted string String ve dvojitých uvozovkách - + Unclosed string Neuzavřený string - + Operator Operátor - + Identifier Identifikátor - + Keyword Klíčové slovo - + Intrinsic function - + Extended function - + Pre-processor block Pre-procesor blok - + Dotted operator - + Label Nadpis - + Continuation @@ -1609,555 +1697,643 @@ QsciLexerHTML - + HTML default - + Tag - + Unknown tag Nedefinovaný tag - + Attribute Atribut - + Unknown attribute Nedefinovaný atribut - + HTML number HTML číslo - + HTML double-quoted string HTML string ve dojtých uvozovkách - + HTML single-quoted string HTML string v jednoduchých uvozovkách - + Other text in a tag Další text v tagu - + HTML comment HTML komentář - + Entity Entita - + End of a tag Konec tagu - + Start of an XML fragment Začátek XML části - + End of an XML fragment Konec XML části - + Script tag Tag skriptu - + Start of an ASP fragment with @ Začátek ASP kódu s @ - + Start of an ASP fragment Začátek ASP kódu - + CDATA - + Start of a PHP fragment Začátek PHP kódu - + Unquoted HTML value HTML hodnota bez uvozovek - + ASP X-Code comment ASP X-Code komentář - + SGML default - + SGML command SGML příkaz - + First parameter of an SGML command První parametr v SGML příkazu - + SGML double-quoted string SGML string ve dvojitých uvozovkách - + SGML single-quoted string SGML string v jednoduchých uvozovkách - + SGML error SGML chyba - + SGML special entity SGML speciální entita - + SGML comment SGML komentář - + First parameter comment of an SGML command Komentář prvního parametru SGML příkazu - + SGML block default SGML defaultní blok - + Start of a JavaScript fragment Začátek JavaScript kódu - + JavaScript default - + JavaScript comment JavaScript komentář - + JavaScript line comment JavaScript jednořádkový komentář - + JavaDoc style JavaScript comment JavaDoc styl JavaScript komentáře - + JavaScript number JavaScript číslo - + JavaScript word JavaSript slovo - + JavaScript keyword JavaSript klíčové slovo - + JavaScript double-quoted string JavaSript string ve dvojitých uvozovkách - + JavaScript single-quoted string JavaSript string v jednoduchých uvozovkách - + JavaScript symbol - + JavaScript unclosed string JavaSript neuzavřený string - + JavaScript regular expression JavaSript regulární výraz - + Start of an ASP JavaScript fragment Začátek ASP JavaScript kódu - + ASP JavaScript default - + ASP JavaScript comment ASP JavaScript komentář - + ASP JavaScript line comment ASP JavaScript jednořádkový komenář - + JavaDoc style ASP JavaScript comment JavaDoc styl ASP JavaScript komentář - + ASP JavaScript number ASP JavaScript číslo - + ASP JavaScript word ASP JavaScript slovo - + ASP JavaScript keyword ASP JavaScript klíčové slovo - + ASP JavaScript double-quoted string ASP JavaScript string ve dvojitých uvozovkách - + ASP JavaScript single-quoted string ASP JavaScript v jednoduchých uvozovkách - + ASP JavaScript symbol - + ASP JavaScript unclosed string ASP JavaScript neuzavřený string - + ASP JavaScript regular expression ASP JavaScript regulární výraz - + Start of a VBScript fragment Začátek VBScript kódu - + VBScript default - + VBScript comment VBScript komentář - + VBScript number VBScript číslo - + VBScript keyword VBScript klíčové slovo - + VBScript string - + VBScript identifier VBScript identifikátor - + VBScript unclosed string VBScript neuzavřený string - + Start of an ASP VBScript fragment Začátek ASP VBScript kódu - + ASP VBScript default - + ASP VBScript comment ASP VBScript komentář - + ASP VBScript number ASP VBScript číslo - + ASP VBScript keyword ASP VBScript klíčové slovo - + ASP VBScript string - + ASP VBScript identifier ASP VBScript identifikátor - + ASP VBScript unclosed string ASP VBScript neuzavřený string - + Start of a Python fragment Začátek Python kódu - + Python default - + Python comment Python komentář - + Python number Python číslo - + Python double-quoted string Python string ve dojtých uvozovkách - + Python single-quoted string Python string v jednoduchých uvozovkách - + Python keyword Python klíčové slovo - + Python triple double-quoted string Python string ve třech dvojitých uvozovkách - + Python triple single-quoted string Python ve třech jednoduchých uvozovkách - + Python class name Python jméno třídy - + Python function or method name Python jméno funkce nebo metody - + Python operator Python operátor - + Python identifier Python identifikátor - + Start of an ASP Python fragment Začátek ASP Python kódu - + ASP Python default - + ASP Python comment ASP Python komentář - + ASP Python number ASP Python číslo - + ASP Python double-quoted string ASP Python string ve dvojitých uvozovkách - + ASP Python single-quoted string ASP Python v jednoduchých uvozovkách - + ASP Python keyword ASP Python klíčové slovo - + ASP Python triple double-quoted string ASP Python ve třech dvojitých uvozovkách - + ASP Python triple single-quoted string ASP Python ve třech jednoduchých uvozovkách - + ASP Python class name ASP Python jméno třídy - + ASP Python function or method name ASP Python jméno funkce nebo metody - + ASP Python operator ASP Python operátor - + ASP Python identifier ASP Python identifikátor - + PHP default - + PHP double-quoted string PHP string ve dvojitých uvozovkách - + PHP single-quoted string PHP v jednoduchých uvozovkách - + PHP keyword PHP klíčové slovo - + PHP number PHP číslo - + PHP variable PHP proměnná - + PHP comment PHP komentář - + PHP line comment PHP jednořádkový komentář - + PHP double-quoted variable PHP proměnná ve dvojitých uvozovkách - + PHP operator PHP operátor + + QsciLexerHex + + + Default + Default + + + + Record start + + + + + Record type + + + + + Unknown record type + + + + + Byte count + + + + + Incorrect byte count + + + + + No address + + + + + Data address + + + + + Record count + + + + + Start address + + + + + Extended address + + + + + Odd data + + + + + Even data + + + + + Unknown data + + + + + Checksum + + + + + Incorrect checksum + + + + + Trailing garbage after a record + + + QsciLexerIDL - + UUID @@ -2165,72 +2341,72 @@ QsciLexerJSON - + Default Default - + Number Číslo - + String - + Unclosed string Neuzavřený string - + Property - + Escape sequence - + Line comment Jednořádkový komentář - + Block comment - + Operator Operátor - + IRI - + JSON-LD compact IRI - + JSON keyword - + JSON-LD keyword - + Parsing error @@ -2238,7 +2414,7 @@ QsciLexerJavaScript - + Regular expression Regulární výraz @@ -2246,102 +2422,102 @@ QsciLexerLua - + Default - + Comment Komentář - + Line comment Jednořádkový komentář - + Number Číslo - + Keyword Klíčové slovo - + String - + Character Znak - + Literal string - + Preprocessor - + Operator Operátor - + Identifier Identifikátor - + Unclosed string Neuzavřený string - + Basic functions Základní funkce - + String, table and maths functions String, tabulka a matematické funkce - + Coroutines, i/o and system facilities - + User defined 1 Definováno uživatelem 1 - + User defined 2 Definováno uživatelem 2 - + User defined 3 Definováno uživatelem 3 - + User defined 4 Definováno uživatelem 4 - + Label Nadpis @@ -2349,37 +2525,37 @@ QsciLexerMakefile - + Default - + Comment Komentář - + Preprocessor - + Variable Proměnná - + Operator Operátor - + Target Cíl - + Error Chyba @@ -2387,112 +2563,112 @@ QsciLexerMarkdown - + Default Default - + Special - + Strong emphasis using double asterisks - + Strong emphasis using double underscores - + Emphasis using single asterisks - + Emphasis using single underscores - + Level 1 header - + Level 2 header - + Level 3 header - + Level 4 header - + Level 5 header - + Level 6 header - + Pre-char - + Unordered list item - + Ordered list item - + Block quote - + Strike out - + Horizontal rule - + Link - + Code between backticks - + Code between double backticks - + Code block @@ -2500,47 +2676,47 @@ QsciLexerMatlab - + Default Default - + Comment Komentář - + Command Příkaz - + Number Číslo - + Keyword Klíčové slovo - + Single-quoted string String v jednoduchých uvozovkách - + Operator Operátor - + Identifier Identifikátor - + Double-quoted string String ve dvojitých uvozovkách @@ -2548,77 +2724,77 @@ QsciLexerPO - + Default Default - + Comment Komentář - + Message identifier - + Message identifier text - + Message string - + Message string text - + Message context - + Message context text - + Fuzzy flag - + Programmer comment - + Reference - + Flags - + Message identifier text end-of-line - + Message string text end-of-line - + Message context text end-of-line @@ -2626,87 +2802,87 @@ QsciLexerPOV - + Default - + Comment Komentář - + Comment line Jednořádkový komentář - + Number Číslo - + Operator Operátor - + Identifier Identifikátor - + String - + Unclosed string Neuzavřený string - + Directive Direktiva - + Bad directive - + Objects, CSG and appearance - + Types, modifiers and items - + Predefined identifiers - + Predefined functions - + User defined 1 - + User defined 2 - + User defined 3 @@ -2714,77 +2890,77 @@ QsciLexerPascal - + Default Default - + Line comment Jednořádkový komentář - + Number Číslo - + Keyword Klíčové slovo - + Single-quoted string String v jednoduchých uvozovkách - + Operator Operátor - + Identifier Identifikátor - + '{ ... }' style comment - + '(* ... *)' style comment - + '{$ ... }' style pre-processor block - + '(*$ ... *)' style pre-processor block - + Hexadecimal number - + Unclosed string Neuzavřený string - + Character Znak - + Inline asm @@ -2792,207 +2968,207 @@ QsciLexerPerl - + Default - + Error Chyba - + Comment Komentář - + POD - + Number Číslo - + Keyword Klíčové slovo - + Double-quoted string String ve dvojitých uvozovkách - + Single-quoted string String v jednoduchých uvozovkách - + Operator Operátor - + Identifier Identifikátor - + Scalar Skalár - + Array Pole - + Hash - + Symbol table - + Regular expression Regulární výraz - + Substitution - + Backticks - + Data section - + Here document delimiter Zde je oddělovač dokumentu - + Single-quoted here document Zde je dokument v jednoduchých uvozovkách - + Double-quoted here document Zde je dokument ve dvojitých uvozovkách - + Backtick here document - + Quoted string (q) - + Quoted string (qq) - + Quoted string (qx) - + Quoted string (qr) - + Quoted string (qw) - + POD verbatim - + Subroutine prototype - + Format identifier - + Format body - + Double-quoted string (interpolated variable) - + Translation - + Regular expression (interpolated variable) - + Substitution (interpolated variable) - + Backticks (interpolated variable) - + Double-quoted here document (interpolated variable) - + Backtick here document (interpolated variable) - + Quoted string (qq, interpolated variable) - + Quoted string (qx, interpolated variable) - + Quoted string (qr, interpolated variable) @@ -3000,82 +3176,82 @@ QsciLexerPostScript - + Default Default - + Comment Komentář - + DSC comment - + DSC comment value - + Number Číslo - + Name - + Keyword Klíčové slovo - + Literal - + Immediately evaluated literal - + Array parenthesis - + Dictionary parenthesis - + Procedure parenthesis - + Text - + Hexadecimal string - + Base85 string - + Bad string character @@ -3083,32 +3259,32 @@ QsciLexerProperties - + Default - + Comment - + Section - + Assignment - + Default value - + Key @@ -3116,102 +3292,102 @@ QsciLexerPython - + Default - + Comment Komentář - + Number Číslo - + Double-quoted string String ve dvojitých uvozovkách - + Single-quoted string String v jednoduchých uvozovkách - + Keyword Klíčové slovo - + Triple single-quoted string String ve třech jednoduchých uvozovkách - + Triple double-quoted string String ve třech dvojitých uvozovkách - + Class name Jméno třídy - + Function or method name Jméno funkce nebo metody - + Operator Operátor - + Identifier Identifikátor - + Comment block Blok komentáře - + Unclosed string Neuzavřený string - + Highlighted identifier Zvýrazněný identifikátor - + Decorator Dekorátor - + Double-quoted f-string - + Single-quoted f-string - + Triple single-quoted f-string - + Triple double-quoted f-string @@ -3219,157 +3395,157 @@ QsciLexerRuby - + Default - + Comment Komentář - + Number Číslo - + Double-quoted string String ve dvojitých uvozovkách - + Single-quoted string String v jednoduchých uvozovkách - + Keyword Klíčové slovo - + Class name Jméno třídy - + Function or method name Jméno funkce nebo metody - + Operator Operátor - + Identifier Identifikátor - + Error Chyba - + POD POD - + Regular expression Regulární výraz - + Global - + Symbol - + Module name Jméno modulu - + Instance variable Proměnná instance - + Class variable Proměnná třídy - + Backticks - + Data section Datová sekce - + Here document delimiter Zde je oddělovač dokumentu - + Here document Zde je dokument - + %q string - + %Q string - + %x string - + %r string - + %w string - + Demoted keyword - + stdin - + stdout - + stderr @@ -3377,112 +3553,112 @@ QsciLexerSQL - + Default - + Comment Komentář - + Number Číslo - + Keyword Klíčové slovo - + Single-quoted string String v jednoduchých uvozovkách - + Operator Operátor - + Identifier Identifikátor - + Comment line Jednořádkový komentář - + JavaDoc style comment JavaDoc styl komentář - + Double-quoted string String ve dvojitých uvozovkách - + SQL*Plus keyword SQL*Plus klíčové slovo - + SQL*Plus prompt - + SQL*Plus comment SQL*Plus komentář - + # comment line # jednořádkový komentář - + JavaDoc keyword JavaDoc klíčové slovo - + JavaDoc keyword error JavaDoc klíčové slovo chyby - + User defined 1 Definováno uživatelem 1 - + User defined 2 Definováno uživatelem 2 - + User defined 3 Definováno uživatelem 3 - + User defined 4 Definováno uživatelem 4 - + Quoted identifier - + Quoted operator @@ -3490,47 +3666,47 @@ QsciLexerSpice - + Default Default - + Identifier Identifikátor - + Command Příkaz - + Function - + Parameter - + Number Číslo - + Delimiter - + Value Hodnota - + Comment Komentář @@ -3538,112 +3714,112 @@ QsciLexerTCL - + Default Default - + Comment Komentář - + Comment line Jednořádkový komentář - + Number Číslo - + Quoted keyword - + Quoted string - + Operator Operátor - + Identifier Identifikátor - + Substitution - + Brace substitution - + Modifier - + Expand keyword - + TCL keyword - + Tk keyword - + iTCL keyword - + Tk command - + User defined 1 Definováno uživatelem 1 - + User defined 2 Definováno uživatelem 2 - + User defined 3 Definováno uživatelem 3 - + User defined 4 Definováno uživatelem 4 - + Comment box - + Comment block Blok komentáře @@ -3651,32 +3827,32 @@ QsciLexerTeX - + Default - + Special - + Group Skupina - + Symbol - + Command Příkaz - + Text @@ -3684,82 +3860,82 @@ QsciLexerVHDL - + Default Default - + Comment Komentář - + Comment line Jednořádkový komentář - + Number Číslo - + String - + Operator Operátor - + Identifier Identifikátor - + Unclosed string Neuzavřený string - + Keyword Klíčové slovo - + Standard operator - + Attribute Atribut - + Standard function - + Standard package - + Standard type - + User defined - + Comment block Blok komentáře @@ -3767,192 +3943,192 @@ QsciLexerVerilog - + Default Default - + Inactive default - + Comment Komentář - + Inactive comment - + Line comment Jednořádkový komentář - + Inactive line comment - + Bang comment - + Inactive bang comment - + Number Číslo - + Inactive number - + Primary keywords and identifiers - + Inactive primary keywords and identifiers - + String - + Inactive string - + Secondary keywords and identifiers Sekundární klíčová slova a identifikátory - + Inactive secondary keywords and identifiers - + System task - + Inactive system task - + Preprocessor block - + Inactive preprocessor block - + Operator Operátor - + Inactive operator - + Identifier Identifikátor - + Inactive identifier - + Unclosed string Neuzavřený string - + Inactive unclosed string - + User defined tasks and identifiers - + Inactive user defined tasks and identifiers - + Keyword comment - + Inactive keyword comment - + Input port declaration - + Inactive input port declaration - + Output port declaration - + Inactive output port declaration - + Input/output port declaration - + Inactive input/output port declaration - + Port connection - + Inactive port connection @@ -3960,52 +4136,52 @@ QsciLexerYAML - + Default Default - + Comment Komentář - + Identifier Identifikátor - + Keyword Klíčové slovo - + Number Číslo - + Reference - + Document delimiter - + Text block marker - + Syntax error marker - + Operator Operátor @@ -4013,37 +4189,37 @@ QsciScintilla - + &Undo - + &Redo - + Cu&t - + &Copy - + &Paste - + Delete - + Select All diff --git a/libs/qscintilla/Qt4Qt5/qscintilla_de.qm b/libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_de.qm similarity index 71% rename from libs/qscintilla/Qt4Qt5/qscintilla_de.qm rename to libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_de.qm index 0fea7ff86..e13236cc2 100644 Binary files a/libs/qscintilla/Qt4Qt5/qscintilla_de.qm and b/libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_de.qm differ diff --git a/libs/qscintilla/Qt4Qt5/qscintilla_de.ts b/libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_de.ts similarity index 85% rename from libs/qscintilla/Qt4Qt5/qscintilla_de.ts rename to libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_de.ts index 18ed80ffc..783e39a95 100644 --- a/libs/qscintilla/Qt4Qt5/qscintilla_de.ts +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_de.ts @@ -4,493 +4,493 @@ QsciCommand - + Move left one character Ein Zeichen nach links - + Move right one character Ein Zeichen nach rechts - + Move up one line Eine Zeile nach oben - + Move down one line Eine Zeile nach unten - + Move left one word part Ein Wortteil nach links - + Move right one word part Ein Wortteil nach rechts - + Move left one word Ein Wort nach links - + Move right one word Ein Wort nach rechts - + Scroll view down one line Eine Zeile nach unten rollen - + Scroll view up one line Eine Zeile nach oben rollen - + Move up one page Eine Seite hoch - + Move down one page Eine Seite nach unten - + Indent one level Eine Ebene einrücken - + Extend selection left one character Auswahl um ein Zeichen nach links erweitern - + Extend selection right one character Auswahl um ein Zeichen nach rechts erweitern - + Extend selection up one line Auswahl um eine Zeile nach oben erweitern - + Extend selection down one line Auswahl um eine Zeile nach unten erweitern - + Extend selection left one word part Auswahl um einen Wortteil nach links erweitern - + Extend selection right one word part Auswahl um einen Wortteil nach rechts erweitern - + Extend selection left one word Auswahl um ein Wort nach links erweitern - + Extend selection right one word Auswahl um ein Wort nach rechts erweitern - + Extend selection up one page Auswahl um eine Seite nach oben erweitern - + Extend selection down one page Auswahl um eine Seite nach unten erweitern - + Delete previous character Zeichen links löschen - + Delete current character Aktuelles Zeichen löschen - + Delete word to left Wort links löschen - + Delete word to right Wort rechts löschen - + Delete line to left Zeile links löschen - + Delete line to right Zeile rechts löschen - + Delete current line Aktuelle Zeile löschen - + Cut current line Aktuelle Zeile ausschneiden - + Cut selection Auswahl ausschneiden - + Copy selection Auswahl kopieren - + Paste Einfügen - + Redo last command Letzten Befehl wiederholen - + Cancel Abbrechen - + Toggle insert/overtype Einfügen/Überschreiben umschalten - + Scroll to start of document Zum Dokumentenanfang rollen - + Scroll to end of document Zum Dokumentenende rollen - + Scroll vertically to centre current line Vertical rollen, um aktuelle Zeile zu zentrieren - + Move to end of previous word Zum Ende des vorigen Wortes springen - + Extend selection to end of previous word Auswahl bis zum Ende des vorigen Wortes erweitern - + Move to end of next word Zum Ende des nächsten Wortes springen - + Extend selection to end of next word Auswahl bis zum Ende des nächsten Wortes erweitern - + Move to start of document line Zum Beginn der Dokumentenzeile springen - + Extend selection to start of document line Auswahl zum Beginn der Dokumentenzeile erweitern - + Extend rectangular selection to start of document line Rechteckige Auswahl zum Beginn der Dokumentenzeile erweitern - + Move to start of display line Zum Beginn der Anzeigezeile springen - + Extend selection to start of display line Auswahl zum Beginn der Anzeigezeile erweitern - + Move to start of display or document line Zum Beginn der Dokumenten- oder Anzeigezeile springen - + Extend selection to start of display or document line Rechteckige Auswahl zum Beginn der Dokumenten- oder Anzeigezeile erweitern - + Move to first visible character in document line Zum ersten sichtbaren Zeichen der Dokumentzeile springen - + Extend selection to first visible character in document line Auswahl zum ersten sichtbaren Zeichen der Dokumentzeile erweitern - + Extend rectangular selection to first visible character in document line Rechteckige Auswahl zum ersten sichtbaren Zeichen der Dokumentzeile erweitern - + Move to first visible character of display in document line Zum ersten angezeigten Zeichen der Dokumentzeile springen - + Extend selection to first visible character in display or document line Auswahl zum ersten sichtbaren Zeichen der Dokument- oder Anzeigezeile erweitern - + Move to end of document line Zum Ende der Dokumentzeile springen - + Extend selection to end of document line Auswahl zum Ende der Dokumentenzeile erweitern - + Extend rectangular selection to end of document line Rechteckige Auswahl zum Ende der Dokumentenzeile erweitern - + Move to end of display line Zum Ende der Anzeigezeile springen - + Extend selection to end of display line Auswahl zum Ende der Anzeigezeile erweitern - + Move to end of display or document line Zum Ende der Dokumenten- oder Anzeigezeile springen - + Extend selection to end of display or document line Rechteckige Auswahl zum Ende der Dokumenten- oder Anzeigezeile erweitern - + Move to start of document Zum Dokumentenanfang springen - + Extend selection to start of document Auswahl zum Dokumentenanfang erweitern - + Move to end of document Zum Dokumentenende springen - + Extend selection to end of document Auswahl zum Dokumentenende erweitern - + Stuttered move up one page "Stotternd" um eine Seite nach oben - + Stuttered extend selection up one page Auswahl "stotternd" um eine Seite nach oben erweitern - + Stuttered move down one page "Stotternd" um eine Seite nach unten - + Stuttered extend selection down one page Auswahl "stotternd" um eine Seite nach unten erweitern - + Delete previous character if not at start of line Zeichen links löschen, wenn nicht am Zeilenanfang - + Delete right to end of next word Rechts bis zum Ende des nächsten Wortes löschen - + Transpose current and previous lines Aktuelle und vorherige Zeile tauschen - + Duplicate the current line Aktuelle Zeile duplizieren - + Select all Select document Alle auswählen - + Move selected lines up one line Ausgewählte Zeilen um eine Zeile nach oben - + Move selected lines down one line Ausgewählte Zeilen um eine Zeile nach unten - + Convert selection to lower case Auswahl in Kleinbuchstaben umwandeln - + Convert selection to upper case Auswahl in Großbuchstaben umwandeln - + Insert newline Neue Zeile einfügen - + De-indent one level Eine Ebene ausrücken - + Undo last command Letzten Befehl rückgängig machen - + Zoom in Vergrößern - + Zoom out Verkleinern - + Move up one paragraph Einen Absatz nach oben - + Move down one paragraph Einen Absatz nach unten - + Extend selection up one paragraph Auswahl um einen Absatz nach oben erweitern - + Extend selection down one paragraph Auswahl um einen Absatz nach unten erweitern - + Copy current line Aktuelle Zeile kopieren - + Extend rectangular selection down one line Rechteckige Auswahl um eine Zeile nach unten erweitern - + Extend rectangular selection up one line Rechteckige Auswahl um eine Zeile nach oben erweitern - + Extend rectangular selection left one character Rechteckige Auswahl um ein Zeichen nach links erweitern - + Extend rectangular selection right one character Rechteckige Auswahl um ein Zeichen nach rechts erweitern - + Extend rectangular selection up one page Rechteckige Auswahl um eine Seite nach oben erweitern - + Extend rectangular selection down one page Rechteckige Auswahl um eine Seite nach unten erweitern - + Formfeed Seitenumbruch - + Duplicate selection Auswahl duplizieren @@ -498,150 +498,233 @@ QsciLexerAVS - + Default Standard - + Block comment Blockkommentar - + Nested block comment Verschachtelter Blockkommentar - + Line comment Zeilenkommentar - + Number Zahl - + Operator Operator - + Identifier Bezeichner - + Double-quoted string Zeichenkette in Anführungszeichen - + Triple double-quoted string Zeichenkette in dreifachen Anführungszeichen - + Keyword Schlüsselwort - + Filter Filter - + Plugin Plugin - + Function Funktion - + Clip property Clip Eigenschaft - + User defined Nutzer definiert + + QsciLexerAsm + + + Default + Standard + + + + Comment + Kommentar + + + + Number + Zahl + + + + Double-quoted string + Zeichenkette in Anführungszeichen + + + + Operator + Operator + + + + Identifier + Bezeichner + + + + CPU instruction + CPU Instruktion + + + + FPU instruction + FPU Instruktion + + + + Register + Register + + + + Directive + Direktive + + + + Directive operand + Richtlinienoperand + + + + Block comment + Blockkommentar + + + + Single-quoted string + Zeichenkette in Hochkommata + + + + Unclosed string + Unbeendete Zeichenkette + + + + Extended instruction + Erweitere Instruktion + + + + Comment directive + Richtlinienkommentar + + QsciLexerBash - + Default Standard - + Error Fehler - + Comment Kommentar - + Number Zahl - + Keyword Schlüsselwort - + Double-quoted string Zeichenkette in Anführungszeichen - + Single-quoted string Zeichenkette in Hochkommata - + Operator Operator - + Identifier Bezeichner - + Scalar Skalar - + Parameter expansion Parametererweiterung - + Backticks Backticks - + Here document delimiter Here Dokument-Begrenzer - + Single-quoted here document Here Dokument in Hochkommata @@ -649,42 +732,42 @@ QsciLexerBatch - + Default Standard - + Comment Kommentar - + Keyword Schlüsselwort - + Label Marke - + Variable Variable - + Operator Operator - + Hide command character "Befehl verbergen" Zeichen - + External command Externer Befehl @@ -692,77 +775,77 @@ QsciLexerCMake - + Default Standard - + Comment Kommentar - + String Zeichenkette - + Left quoted string Links quotierte Zeichenkette - + Right quoted string Rechts quotierte Zeichenkette - + Function Funktion - + Variable Variable - + Label Marke - + User defined Nutzer definiert - + WHILE block WHILE Block - + FOREACH block FOREACH Block - + IF block IF Block - + MACRO block MACRO Block - + Variable within a string Variable in einer Zeichenkette - + Number Zahl @@ -770,282 +853,282 @@ QsciLexerCPP - + Number Zahl - + Keyword Schlüsselwort - + Double-quoted string Zeichenkette in Anführungszeichen - + Single-quoted string Zeichenkette in Hochkommata - + IDL UUID IDL UUID - + Pre-processor block Präprozessorblock - + Operator Operator - + Identifier Bezeichner - + Unclosed string Unbeendete Zeichenkette - + Default Standard - + Inactive default Inaktiver Standard - + C comment C Kommentar - + Inactive C comment Inaktiver C Kommentar - + C++ comment C++ Kommentar - + Inactive C++ comment Inaktiver C++ Kommentar - + JavaDoc style C comment JavaDoc C Kommentar - + Inactive JavaDoc style C comment Inaktiver JavaDoc C Kommentar - + Inactive number Inaktive Zahl - + Inactive keyword Inaktives Schlüsselwort - + Inactive double-quoted string Inaktive Zeichenkette in Anführungszeichen - + Inactive single-quoted string Inaktive Zeichenkette in Hochkommata - + Inactive IDL UUID Inaktive IDL UUID - + Inactive pre-processor block Inaktiver Präprozessorblock - + Inactive operator Inaktiver Operator - + Inactive identifier Inaktiver Bezeichner - + Inactive unclosed string Inaktive unbeendete Zeichenkette - + C# verbatim string Uninterpretierte C# Zeichenkette - + Inactive C# verbatim string Inaktive, Uninterpretierte C# Zeichenkette - + JavaScript regular expression JavaScript Regulärer Ausdruck - + Inactive JavaScript regular expression JavaScript Inaktiver Regulärer Ausdruck - + JavaDoc style C++ comment JavaDoc C++ Kommentar - + Inactive JavaDoc style C++ comment Inaktiver JavaDoc C++ Kommentar - + Inactive secondary keywords and identifiers Inaktive sekundäre Schlusselwörter und Bezeichner - + JavaDoc keyword JavaDoc Schlüsselwort - + Inactive JavaDoc keyword Inaktives JavaDoc Schlüsselwort - + JavaDoc keyword error JavaDoc Schlüsselwortfehler - + Inactive global classes and typedefs Inaktive globale Klassen und Typdefinitionen - + C++ raw string Rohe C++ Zeichenkette - + Inactive C++ raw string Inaktive rohe C++ Zeichenkette - + Vala triple-quoted verbatim string Vala Zeichenkette in dreifachen Hochkommata - + Inactive Vala triple-quoted verbatim string Inaktive Vala Zeichenkette in dreifachen Hochkommata - + Pike hash-quoted string Pike Zeichenkette in '#-Anführungszeichen' - + Inactive Pike hash-quoted string Inaktive Pike Zeichenkette in '#-Anführungszeichen' - + Pre-processor C comment C Präprozessorkommentar - + Inactive pre-processor C comment Inaktiver C Präprozessorkommentar - + JavaDoc style pre-processor comment JavaDoc Präprozessorkommentar - + Inactive JavaDoc style pre-processor comment Inaktiver JavaDoc Präprozessorkommentar - + User-defined literal Nutzer definiertes Literal - + Inactive user-defined literal Inaktives Nutzer definiertes Literal - + Task marker Aufgabenmarkierung - + Inactive task marker Inaktive Aufgabenmarkierung - + Escape sequence Escape-Sequenz - + Inactive escape sequence Inaktive Escape-Sequenz - + Secondary keywords and identifiers Sekundäre Schlusselwörter und Bezeichner - + Inactive JavaDoc keyword error Inaktiver JavaDoc Schlüsselwortfehler - + Global classes and typedefs Globale Klassen und Typdefinitionen @@ -1053,117 +1136,122 @@ QsciLexerCSS - + Default Standard - + Tag Tag - + Class selector Klassenselektor - + Pseudo-class Pseudoklasse - + Unknown pseudo-class Unbekannte Pseudoklasse - + Operator Operator - + CSS1 property CSS1 Eigenschaft - + Unknown property Unbekannte Eigenschaft - + Value Wert - + + Comment + Kommentar + + + ID selector ID-Selektor - + Important Wichtig - + @-rule @-Regel - + Double-quoted string Zeichenkette in Anführungszeichen - + Single-quoted string Zeichenkette in Hochkommata - + CSS2 property CSS2 Eigenschaft - + Attribute Attribut - + CSS3 property CSS3 Eigenschaft - + Pseudo-element Pseudoelement - + Extended CSS property Erweiterte CSS Eigenschaft - + Extended pseudo-class Erweiterte Pseudoklasse - + Extended pseudo-element Erweitertes Pseudoelement - + Media rule Medienregel - + Variable Variable @@ -1171,7 +1259,7 @@ QsciLexerCSharp - + Verbatim string Uninterpretierte Zeichenkette @@ -1179,122 +1267,122 @@ QsciLexerCoffeeScript - + Default Standard - + C-style comment C Kommentar - + C++-style comment C++ Kommentar - + JavaDoc C-style comment JavaDoc C Kommentar - + Number Zahl - + Keyword Schlüsselwort - + Double-quoted string Zeichenkette in Anführungszeichen - + Single-quoted string Zeichenkette in Hochkommata - + IDL UUID IDL UUID - + Pre-processor block Präprozessorblock - + Operator Operator - + Identifier Bezeichner - + Unclosed string Unbeendete Zeichenkette - + C# verbatim string Uninterpretierte C# Zeichenkette - + Regular expression Regulärer Ausdruck - + JavaDoc C++-style comment JavaDoc C++ Kommentar - + Secondary keywords and identifiers Sekundäre Schlusselwörter und Bezeichner - + JavaDoc keyword JavaDoc Schlüsselwort - + JavaDoc keyword error JavaDoc Schlüsselwortfehler - + Global classes Globale Klassen - + Block comment Blockkommentar - + Block regular expression Regulärer Ausdrucksblock - + Block regular expression comment Regulärer Ausdrucksblockkommentar - + Instance property Instanz-Eigenschaft @@ -1302,117 +1390,117 @@ QsciLexerD - + Default Standard - + Block comment Blockkommentar - + Line comment Zeilenkommentar - + DDoc style block comment DDoc Blockkommentar - + Nesting comment schachtelbarer Kommentar - + Number Zahl - + Keyword Schlüsselwort - + Secondary keyword Sekundäres Schlüsselwort - + Documentation keyword Dokumentationsschlüsselwort - + Type definition Typdefinition - + String Zeichenkette - + Unclosed string Unbeendete Zeichenkette - + Character Zeichen - + Operator Operator - + Identifier Bezeichner - + DDoc style line comment DDoc Zeilenkommentar - + DDoc keyword DDoc Schlüsselwort - + DDoc keyword error DDoc Schlüsselwortfehler - + Backquoted string Zeichenkette in Rückwärtsstrichen - + Raw string Rohe Zeichenkette - + User defined 1 Nutzer definiert 1 - + User defined 2 Nutzer definiert 2 - + User defined 3 Nutzer definiert 3 @@ -1420,62 +1508,62 @@ QsciLexerDiff - + Default Standard - + Comment Kommentar - + Command Befehl - + Header Kopfzeilen - + Position Position - + Removed line Entfernte Zeile - + Added line Hinzugefügte Zeile - + Changed line Geänderte Zeile - + Added adding patch Hinzugefügter Ergänzungspatch - + Removed adding patch Entfernter Ergänzungspatch - + Added removing patch Hinzugefügter Entfernungspatch - + Removed removing patch Entfernter Entfernungspatch @@ -1483,47 +1571,47 @@ QsciLexerEDIFACT - + Default Standard - + Segment start Segmentstart - + Segment end Segmentende - + Element separator Elementtrenner - + Composite separator Zusammengesetzter Trenner - + Release separator Freigabetrenner - + UNA segment header UNA Segmentkopf - + UNH segment header UNH Segmentkopf - + Badly formed segment Schlecht geformtes Segment @@ -1531,77 +1619,77 @@ QsciLexerFortran77 - + Default Standard - + Comment Kommentar - + Number Zahl - + Single-quoted string Zeichenkette in Hochkommata - + Double-quoted string Zeichenkette in Anführungszeichen - + Unclosed string Unbeendete Zeichenkette - + Operator Operator - + Identifier Bezeichner - + Keyword Schlüsselwort - + Intrinsic function Intrinsic-Funktion - + Extended function Erweiterte Funktion - + Pre-processor block Präprozessorblock - + Dotted operator Dotted Operator - + Label Marke - + Continuation Fortsetzung @@ -1609,555 +1697,643 @@ QsciLexerHTML - + HTML default HTML Standard - + Tag Tag - + Unknown tag Unbekanntes Tag - + Attribute Attribut - + Unknown attribute Unbekanntes Attribut - + HTML number HTML Zahl - + HTML double-quoted string HTML Zeichenkette in Anführungszeichen - + HTML single-quoted string HTML Zeichenkette in Hochkommata - + Other text in a tag Anderer Text in einem Tag - + HTML comment HTML Kommentar - + Entity Entität - + End of a tag Tagende - + Start of an XML fragment Beginn eines XML Fragmentes - + End of an XML fragment Ende eines XML Fragmentes - + Script tag Skript Tag - + Start of an ASP fragment with @ Beginn eines ASP Fragmentes mit @ - + Start of an ASP fragment Beginn eines ASP Fragmentes - + CDATA CDATA - + Start of a PHP fragment Beginn eines PHP Fragmentes - + Unquoted HTML value HTML Wert ohne Anführungszeichen - + ASP X-Code comment ASP X-Code Kommentar - + SGML default SGML Standard - + SGML command SGML Befehl - + First parameter of an SGML command Erster Parameter eines SGML Befehls - + SGML double-quoted string SGML Zeichenkette in Anführungszeichen - + SGML single-quoted string SGML Zeichenkette in Hochkommata - + SGML error SGML Fehler - + SGML special entity SGML Spezielle Entität - + SGML comment SGML Kommentar - + First parameter comment of an SGML command Kommentar des ersten Parameters eines SGML Befehls - + SGML block default SGML Standardblock - + Start of a JavaScript fragment Beginn eines JavaScript Fragmentes - + JavaScript default JavaScript Standard - + JavaScript comment JavaScript Kommentar - + JavaScript line comment JavaScript Zeilenkommentar - + JavaDoc style JavaScript comment JavaDoc JavaScript Kommentar - + JavaScript number JavaScript Zahl - + JavaScript word JavaScript Wort - + JavaScript keyword JavaScript Schlüsselwort - + JavaScript double-quoted string JavaScript Zeichenkette in Anführungszeichen - + JavaScript single-quoted string JavaScript Zeichenkette in Hochkommata - + JavaScript symbol JavaScript Symbol - + JavaScript unclosed string JavaScript Unbeendete Zeichenkette - + JavaScript regular expression JavaScript Regulärer Ausdruck - + Start of an ASP JavaScript fragment Beginn eines ASP JavaScript Fragmentes - + ASP JavaScript default ASP JavaScript Standard - + ASP JavaScript comment ASP JavaScript Kommentar - + ASP JavaScript line comment ASP JavaScript Zeilenkommentar - + JavaDoc style ASP JavaScript comment JavaDoc ASP JavaScript Kommentar - + ASP JavaScript number ASP JavaScript Zahl - + ASP JavaScript word ASP JavaScript Wort - + ASP JavaScript keyword ASP JavaScript Schlüsselwort - + ASP JavaScript double-quoted string ASP JavaScript Zeichenkette in Anführungszeichen - + ASP JavaScript single-quoted string ASP JavaScript Zeichenkette in Hochkommata - + ASP JavaScript symbol ASP JavaScript Symbol - + ASP JavaScript unclosed string ASP JavaScript Unbeendete Zeichenkette - + ASP JavaScript regular expression ASP JavaScript Regulärer Ausdruck - + Start of a VBScript fragment Beginn eines VBScript Fragmentes - + VBScript default VBScript Standard - + VBScript comment VBScript Kommentar - + VBScript number VBScript Zahl - + VBScript keyword VBScript Schlüsselwort - + VBScript string VBScript Zeichenkette - + VBScript identifier VBScript Bezeichner - + VBScript unclosed string VBScript Unbeendete Zeichenkette - + Start of an ASP VBScript fragment Beginn eines ASP VBScript Fragmentes - + ASP VBScript default ASP VBScript Standard - + ASP VBScript comment ASP VBScript Kommentar - + ASP VBScript number ASP VBScript Zahl - + ASP VBScript keyword ASP VBScript Schlüsselwort - + ASP VBScript string ASP VBScript Zeichenkette - + ASP VBScript identifier ASP VBScript Bezeichner - + ASP VBScript unclosed string ASP VBScript Unbeendete Zeichenkette - + Start of a Python fragment Beginn eines Python Fragmentes - + Python default Python Standard - + Python comment Python Kommentar - + Python number Python Zahl - + Python double-quoted string Python Zeichenkette in Anführungszeichen - + Python single-quoted string Python Zeichenkette in Hochkommata - + Python keyword Python Schlüsselwort - + Python triple double-quoted string Python Zeichenkette in dreifachen Anführungszeichen - + Python triple single-quoted string Python Zeichenkette in dreifachen Hochkommata - + Python class name Python Klassenname - + Python function or method name Python Funktions- oder Methodenname - + Python operator Python Operator - + Python identifier Python Bezeichner - + Start of an ASP Python fragment Beginn eines ASP Python Fragmentes - + ASP Python default ASP Python Standard - + ASP Python comment ASP Python Kommentar - + ASP Python number ASP Python Zahl - + ASP Python double-quoted string ASP Python Zeichenkette in Anführungszeichen - + ASP Python single-quoted string ASP Python Zeichenkette in Hochkommata - + ASP Python keyword ASP Python Schlüsselwort - + ASP Python triple double-quoted string ASP Python Zeichenkette in dreifachen Anführungszeichen - + ASP Python triple single-quoted string ASP Python Zeichenkette in dreifachen Hochkommata - + ASP Python class name ASP Python Klassenname - + ASP Python function or method name ASP Python Funktions- oder Methodenname - + ASP Python operator ASP Python Operator - + ASP Python identifier ASP Python Bezeichner - + PHP default PHP Standard - + PHP double-quoted string PHP Zeichenkette in Anführungszeichen - + PHP single-quoted string PHP Zeichenkette in Hochkommata - + PHP keyword PHP Schlüsselwort - + PHP number PHP Zahl - + PHP comment PHP Kommentar - + PHP line comment PHP Zeilenkommentar - + PHP double-quoted variable PHP Variable in Anführungszeichen - + PHP operator PHP Operator - + PHP variable PHP Variable + + QsciLexerHex + + + Default + Standard + + + + Record start + Datensatzanfang + + + + Record type + Datensatzende + + + + Unknown record type + Unbekanter Datensatztyp + + + + Byte count + Anzahl Bytes + + + + Incorrect byte count + Anzahl inkorrekter Bytes + + + + No address + keine Adresse + + + + Data address + Datenadresse + + + + Record count + Anzahl Datensätze + + + + Start address + Startadresse + + + + Extended address + Erweiterte Adresse + + + + Odd data + Ungerade Daten + + + + Even data + Gerade Daten + + + + Unknown data + Unbekannte Daten + + + + Checksum + Checksumme + + + + Incorrect checksum + Inkorrekte Checksumme + + + + Trailing garbage after a record + Müll nach einem Datensatz + + QsciLexerIDL - + UUID UUID @@ -2165,72 +2341,72 @@ QsciLexerJSON - + Default Standard - + Number Zahl - + String Zeichenkette - + Unclosed string Unbeendete Zeichenkette - + Property Eigenschaft - + Escape sequence Escape-Sequenz - + Line comment Zeilenkommentar - + Block comment Blockkommentar - + Operator Operator - + IRI IRI - + JSON-LD compact IRI JSON-LD kompaktes IRI - + JSON keyword JSON Schlüsselwort - + JSON-LD keyword JSON-LD Schlüsselwort - + Parsing error Analysefehler @@ -2238,7 +2414,7 @@ QsciLexerJavaScript - + Regular expression Regulärer Ausdruck @@ -2246,102 +2422,102 @@ QsciLexerLua - + Default Standard - + Comment Kommentar - + Line comment Zeilenkommentar - + Number Zahl - + Keyword Schlüsselwort - + String Zeichenkette - + Character Zeichen - + Literal string Uninterpretierte Zeichenkette - + Preprocessor Präprozessor - + Operator Operator - + Identifier Bezeichner - + Unclosed string Unbeendete Zeichenkette - + Basic functions Basisfunktionen - + String, table and maths functions Zeichenketten-, Tabelle- und mathematische Funktionen - + Coroutines, i/o and system facilities Koroutinen, I/O- und Systemfunktionen - + User defined 1 Nutzer definiert 1 - + User defined 2 Nutzer definiert 2 - + User defined 3 Nutzer definiert 3 - + User defined 4 Nutzer definiert 4 - + Label Marke @@ -2349,37 +2525,37 @@ QsciLexerMakefile - + Default Standard - + Comment Kommentar - + Preprocessor Präprozessor - + Variable Variable - + Operator Operator - + Target Ziel - + Error Fehler @@ -2387,112 +2563,112 @@ QsciLexerMarkdown - + Default Standard - + Special Spezial - + Strong emphasis using double asterisks Fettschrift mit doppelten Sternen - + Strong emphasis using double underscores Fettschrift mit doppelten Unterstrichen - + Emphasis using single asterisks Kursive Schrift mit einfachen Sternen - + Emphasis using single underscores Kursive Schrift mit einfachen Unterstrichen - + Level 1 header Überschrift Ebene 1 - + Level 2 header Überschrift Ebene 2 - + Level 3 header Überschrift Ebene 3 - + Level 4 header Überschrift Ebene 4 - + Level 5 header Überschrift Ebene 5 - + Level 6 header Überschrift Ebene 6 - + Pre-char Einleitungszeichen - + Unordered list item Nicht nummeriertes Listenelement - + Ordered list item Nummeriertes Listenelement - + Block quote Blockzitat - + Strike out Durchgestrichen - + Horizontal rule Horizontale Linie - + Link Hyperlink - + Code between backticks Code zwischen Backticks - + Code between double backticks Code zwischen doppelten Backticks - + Code block Codeblock @@ -2500,47 +2676,47 @@ QsciLexerMatlab - + Default Standard - + Comment Kommentar - + Command Befehl - + Number Zahl - + Keyword Schlüsselwort - + Single-quoted string Zeichenkette in Hochkommata - + Operator Operator - + Identifier Bezeichner - + Double-quoted string Zeichenkette in Anführungszeichen @@ -2548,77 +2724,77 @@ QsciLexerPO - + Default Standard - + Comment Kommentar - + Message identifier Meldungsbezeichner - + Message identifier text Meldungsbezeichnertext - + Message string Meldungszeichenkette - + Message string text Meldungszeichenkettentext - + Message context Meldungskontext - + Message context text Meldungskontexttext - + Fuzzy flag Unschrfmarkierung - + Programmer comment Programmiererkommentar - + Reference Referenz - + Flags Markierung - + Message identifier text end-of-line Meldungsbezeichnertext Zeilenende - + Message string text end-of-line Meldungszeichenkettentext Zeilenende - + Message context text end-of-line Meldungskontexttext Zeilenende @@ -2626,87 +2802,87 @@ QsciLexerPOV - + Default Standard - + Comment Kommentar - + Comment line Kommentarzeile - + Number Zahl - + Operator Operator - + Identifier Bezeichner - + String Zeichenkette - + Unclosed string Unbeendete Zeichenkette - + Directive Direktive - + Bad directive Ungültige Direktive - + Objects, CSG and appearance Objekte, CSG und Erscheinung - + Types, modifiers and items Typen, Modifizierer und Items - + Predefined identifiers Vordefinierter Bezeichner - + Predefined functions Vordefinierte Funktion - + User defined 1 Nutzer definiert 1 - + User defined 2 Nutzer definiert 2 - + User defined 3 Nutzer definiert 3 @@ -2714,77 +2890,77 @@ QsciLexerPascal - + Default Standard - + Line comment Zeilenkommentar - + Number Zahl - + Keyword Schlüsselwort - + Single-quoted string Zeichenkette in Hochkommata - + Operator Operator - + Identifier Bezeichner - + '{ ... }' style comment '{ ... }' Kommentar - + '(* ... *)' style comment '(* ... *)' Kommentar - + '{$ ... }' style pre-processor block '{$ ... }' Präprozessorblock - + '(*$ ... *)' style pre-processor block '(*$ ... *)' Präprozessorblock - + Hexadecimal number Hexadezimale Zahl - + Unclosed string Unbeendete Zeichenkette - + Character Zeichen - + Inline asm Inline Assembler @@ -2792,207 +2968,207 @@ QsciLexerPerl - + Default Standard - + Error Fehler - + Comment Kommentar - + POD POD - + Number Zahl - + Keyword Schlüsselwort - + Double-quoted string Zeichenkette in Anführungszeichen - + Single-quoted string Zeichenkette in Hochkommata - + Operator Operator - + Identifier Bezeichner - + Scalar Skalar - + Array Feld - + Hash Hash - + Symbol table Symboltabelle - + Regular expression Regulärer Ausdruck - + Substitution Ersetzung - + Backticks Backticks - + Data section Datensektion - + Here document delimiter Here Dokument-Begrenzer - + Single-quoted here document Here Dokument in Hochkommata - + Double-quoted here document Here Dokument in Anführungszeichen - + Backtick here document Here Dokument in Backticks - + Quoted string (q) Zeichenkette (q) - + Quoted string (qq) Zeichenkette (qq) - + Quoted string (qx) Zeichenkette (qx) - + Quoted string (qr) Zeichenkette (qr) - + Quoted string (qw) Zeichenkette (qw) - + POD verbatim POD wörtlich - + Subroutine prototype Subroutinen Prototyp - + Format identifier Formatidentifikator - + Format body Formatzweig - + Double-quoted string (interpolated variable) Zeichenkette in Anführungszeichen (interpolierte Variable) - + Translation Übersetzung - + Regular expression (interpolated variable) Regulärer Ausdruck (interpolierte Variable) - + Substitution (interpolated variable) Ersetzung (interpolierte Variable) - + Backticks (interpolated variable) Backticks (interpolierte Variable) - + Double-quoted here document (interpolated variable) Here Dokument in Anführungszeichen (interpolierte Variable) - + Backtick here document (interpolated variable) Here Dokument in Backticks (interpolierte Variable) - + Quoted string (qq, interpolated variable) Zeichenkette (qq, interpolierte Variable) - + Quoted string (qx, interpolated variable) Zeichenkette (qx, interpolierte Variable) - + Quoted string (qr, interpolated variable) Zeichenkette (qr, interpolierte Variable) @@ -3000,82 +3176,82 @@ QsciLexerPostScript - + Default Standard - + Comment Kommentar - + DSC comment DSC Kommentar - + DSC comment value DSC Kommentarwert - + Number Zahl - + Name Name - + Keyword Schlüsselwort - + Literal Literal - + Immediately evaluated literal Direkt ausgeführtes Literal - + Array parenthesis Feldklammern - + Dictionary parenthesis Dictionary-Klammern - + Procedure parenthesis Prozedurklammern - + Text Text - + Hexadecimal string Hexadezimale Zeichenkette - + Base85 string Base85 Zeichenkette - + Bad string character Ungültiges Zeichen für Zeichenkette @@ -3083,32 +3259,32 @@ QsciLexerProperties - + Default Standard - + Comment Kommentar - + Section Abschnitt - + Assignment Zuweisung - + Default value Standardwert - + Key Schlüssel @@ -3116,102 +3292,102 @@ QsciLexerPython - + Comment Kommentar - + Number Zahl - + Double-quoted string Zeichenkette in Anführungszeichen - + Single-quoted string Zeichenkette in Hochkommata - + Keyword Schlüsselwort - + Triple single-quoted string Zeichenkette in dreifachen Hochkommata - + Triple double-quoted string Zeichenkette in dreifachen Anführungszeichen - + Class name Klassenname - + Function or method name Funktions- oder Methodenname - + Operator Operator - + Identifier Bezeichner - + Comment block Kommentarblock - + Unclosed string Unbeendete Zeichenkette - + Double-quoted f-string F-Zeichenkette in Anführungszeichen - + Single-quoted f-string F-Zeichenkette in Hochkommata - + Triple single-quoted f-string F-Zeichenkette in dreifachen Hochkommata - + Triple double-quoted f-string F-Zeichenkette in dreifachen Anführungszeichen - + Default Standard - + Highlighted identifier Hervorgehobener Bezeichner - + Decorator Dekorator @@ -3219,157 +3395,157 @@ QsciLexerRuby - + Default Standard - + Comment Kommentar - + Number Zahl - + Double-quoted string Zeichenkette in Anführungszeichen - + Single-quoted string Zeichenkette in Hochkommata - + Keyword Schlüsselwort - + Class name Klassenname - + Function or method name Funktions- oder Methodenname - + Operator Operator - + Identifier Bezeichner - + Error Fehler - + POD POD - + Regular expression Regulärer Ausdruck - + Global Global - + Symbol Symbol - + Module name Modulname - + Instance variable Instanzvariable - + Class variable Klassenvariable - + Backticks Backticks - + Data section Datensektion - + Here document delimiter Here Dokument-Begrenzer - + Here document Here Dokument - + %q string %q Zeichenkette - + %Q string %Q Zeichenkette - + %x string %x Zeichenkette - + %r string %r Zeichenkette - + %w string %w Zeichenkette - + Demoted keyword zurückgestuftes Schlüsselwort - + stdin Stdin - + stdout Stdout - + stderr Stderr @@ -3377,112 +3553,112 @@ QsciLexerSQL - + Default Standard - + Comment Kommentar - + Number Zahl - + Keyword Schlüsselwort - + Single-quoted string Zeichenkette in Hochkommata - + Operator Operator - + Identifier Bezeichner - + Comment line Kommentarzeile - + JavaDoc style comment JavaDoc Kommentar - + Double-quoted string Zeichenkette in Anführungszeichen - + SQL*Plus keyword SQL*Plus Schlüsselwort - + SQL*Plus prompt SQL*Plus Eingabe - + SQL*Plus comment SQL*Plus Kommentar - + # comment line # Kommentarzeile - + JavaDoc keyword JavaDoc Schlüsselwort - + JavaDoc keyword error JavaDoc Schlüsselwortfehler - + User defined 1 Nutzer definiert 1 - + User defined 2 Nutzer definiert 2 - + User defined 3 Nutzer definiert 3 - + User defined 4 Nutzer definiert 4 - + Quoted identifier Bezeichner in Anführungszeichen - + Quoted operator Operator in Anführungszeichen @@ -3490,47 +3666,47 @@ QsciLexerSpice - + Default Standard - + Identifier Bezeichner - + Command Befehl - + Function Funktion - + Parameter Parameter - + Number Zahl - + Delimiter Delimiter - + Value Wert - + Comment Kommentar @@ -3538,112 +3714,112 @@ QsciLexerTCL - + Default Standard - + Comment Kommentar - + Comment line Kommentarzeile - + Number Zahl - + Quoted keyword angeführtes Schlüsselwort - + Quoted string Zeichenkette - + Operator Operator - + Identifier Bezeichner - + Substitution Ersetzung - + Brace substitution Klammerersetzung - + Modifier Modifizierer - + Expand keyword Erweiterungsschlüsselwort - + TCL keyword TCL Schlüsselwort - + Tk keyword Tk Schlüsselwort - + iTCL keyword iTCL Schlüsselwort - + Tk command Tk Befehl - + User defined 1 Nutzer definiert 1 - + User defined 2 Nutzer definiert 2 - + User defined 3 Nutzer definiert 3 - + User defined 4 Nutzer definiert 4 - + Comment box Kommentarbox - + Comment block Kommentarblock @@ -3651,32 +3827,32 @@ QsciLexerTeX - + Default Standard - + Special Spezial - + Group Gruppe - + Symbol Symbol - + Command Befehl - + Text Text @@ -3684,82 +3860,82 @@ QsciLexerVHDL - + Default Standard - + Comment Kommentar - + Comment line Kommentarzeile - + Number Zahl - + String Zeichenkette - + Operator Operator - + Identifier Bezeichner - + Unclosed string Unbeendete Zeichenkette - + Keyword Schlüsselwort - + Standard operator Standardoperator - + Attribute Attribut - + Standard function Standardfunktion - + Standard package Standardpaket - + Standard type Standardtyp - + User defined Nutzer definiert - + Comment block Kommentarblock @@ -3767,192 +3943,192 @@ QsciLexerVerilog - + Default Standard - + Inactive default Inaktiver Standard - + Comment Kommentar - + Inactive comment Inaktiver Kommentar - + Line comment Zeilenkommentar - + Inactive line comment Inaktiver Zeilenkommentar - + Bang comment Bang Kommentar - + Inactive bang comment Inaktiver Bang Kommentar - + Number Zahl - + Inactive number Inaktive Zahl - + Primary keywords and identifiers Primäre Schlusselwörter und Bezeichner - + Inactive primary keywords and identifiers Inaktive primäre Schlusselwörter und Bezeichner - + String Zeichenkette - + Inactive string Inaktive Zeichenkette - + Secondary keywords and identifiers Sekundäre Schlusselwörter und Bezeichner - + Inactive secondary keywords and identifiers Inaktive sekundäre Schlusselwörter und Bezeichner - + System task Systemtask - + Inactive system task Inaktiver Systemtask - + Preprocessor block Präprozessorblock - + Inactive preprocessor block Inaktiver Präprozessorblock - + Operator Operator - + Inactive operator Inaktiver Operator - + Identifier Bezeichner - + Inactive identifier Inaktiver Bezeichner - + Unclosed string Unbeendete Zeichenkette - + Inactive unclosed string Inaktive unbeendete Zeichenkette - + User defined tasks and identifiers Nutzerdefinierte Tasks und Bezeichner - + Inactive user defined tasks and identifiers Inaktive nutzerdefinierte Tasks und Bezeichner - + Keyword comment Schlüsselwortkommentar - + Inactive keyword comment Inaktiver Schlüsselwortkommentar - + Input port declaration Eingabeportdefinition - + Inactive input port declaration Inaktive Eingabeportdefinition - + Output port declaration Ausgabeportdefinition - + Inactive output port declaration Inaktive Ausgabeportdefinition - + Input/output port declaration Ein-/Ausgabeportdefinition - + Inactive input/output port declaration Inaktive Ein-/Ausgabeportdefinition - + Port connection Portverbindung - + Inactive port connection Inaktive Portverbindung @@ -3960,52 +4136,52 @@ QsciLexerYAML - + Default Standard - + Comment Kommentar - + Identifier Bezeichner - + Keyword Schlüsselwort - + Number Zahl - + Reference Referenz - + Document delimiter Dokumentbegrenzer - + Text block marker Textblock Markierung - + Syntax error marker Syntaxfehler Markierung - + Operator Operator @@ -4013,37 +4189,37 @@ QsciScintilla - + &Undo &Rückgängig - + &Redo Wieder&herstellen - + Cu&t &Ausschneiden - + &Copy &Kopieren - + &Paste Ein&fügen - + Delete Löschen - + Select All Alle auswählen diff --git a/libs/qscintilla/Qt4Qt5/qscintilla_es.qm b/libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_es.qm similarity index 100% rename from libs/qscintilla/Qt4Qt5/qscintilla_es.qm rename to libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_es.qm diff --git a/libs/qscintilla/Qt4Qt5/qscintilla_es.ts b/libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_es.ts similarity index 85% rename from libs/qscintilla/Qt4Qt5/qscintilla_es.ts rename to libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_es.ts index b401b6a2c..7232c5173 100644 --- a/libs/qscintilla/Qt4Qt5/qscintilla_es.ts +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_es.ts @@ -4,493 +4,493 @@ QsciCommand - + Move down one line Desplazar una línea hacia abajo - + Extend selection down one line Extender la selección una línea hacia abajo - + Scroll view down one line Desplazar la vista una línea hacia abajo - + Extend rectangular selection down one line Extender la selección rectangular una línea hacia abajo - + Move up one line Desplazar una línea hacia arriba - + Extend selection up one line Extender la selección una línea hacia arriba - + Scroll view up one line Desplazar la vista una línea hacia arriba - + Extend rectangular selection up one line Extender la selección rectangular una línea hacia arriba - + Move up one paragraph Desplazar un párrafo hacia arriba - + Extend selection up one paragraph Extender la selección un párrafo hacia arriba - + Move down one paragraph Desplazar un párrafo hacia abajo - + Scroll to start of document Desplazar al principio del documento - + Scroll to end of document Desplazar al final del documento - + Scroll vertically to centre current line Desplazar verticalmente al centro de la línea actual - + Extend selection down one paragraph Extender la selección un párrafo hacia abajo - + Move left one character Mover un carácter hacia la izquierda - + Extend selection left one character Extender la selección un carácter hacia la izquierda - + Move left one word Mover una palabra hacia la izquierda - + Extend selection left one word Extender la selección una palabra a la izquierda - + Extend rectangular selection left one character Extender la selección rectangular un carácter hacia la izquierda - + Move right one character Mover un carácter hacia la derecha - + Extend selection right one character Extender la selección un carácter hacia la derecha - + Move right one word Mover una palabra hacia la derecha - + Extend selection right one word Extender la selección una palabra a la derecha - + Extend rectangular selection right one character Extender la selección rectangular un carácter hacia la derecha - + Move to end of previous word Mover al final de palabra anterior - + Extend selection to end of previous word Extender selección al final de la palabra anterior - + Move to end of next word Mover al final de la palabra siguiente - + Extend selection to end of next word Extender la selección hasta el final de la palabra siguiente - + Move left one word part Mover parte de una palabra hacia la izquierda - + Extend selection left one word part Extender la selección parte de una palabra a la izquierda - + Move right one word part Mover parte de una palabra hacia la derecha - + Extend selection right one word part Extender la selección parte de una palabra a la derecha - + Move up one page Mover hacia arriba una página - + Extend selection up one page Extender la selección hacia arriba una página - + Extend rectangular selection up one page Extender la selección rectangular hacia arriba una página - + Move down one page Mover hacia abajo una página - + Extend selection down one page Extender la selección hacia abajo una página - + Extend rectangular selection down one page Extender la selección rectangular una página hacia abajo - + Delete current character Borrar el carácter actual - + Cut selection Cortar selección - + Delete word to right Borrar palabra hacia la derecha - + Move to start of document line Mover al principio de la línea del documento - + Extend selection to start of document line Extender selección al principio de la línea del documento - + Extend rectangular selection to start of document line Extender selección rectangular al principio de la línea del documento - + Move to start of display line Mover al principio de la línea visualizada - + Extend selection to start of display line Extender selección al principio de la línea visualizada - + Move to start of display or document line Mover al principio de la línea visualizada o del documento - + Extend selection to start of display or document line Extender selección al principio de la línea visualizada o del documento - + Move to first visible character in document line Mover al primer carácter visible en la línea del documento - + Extend selection to first visible character in document line Extender selección al primer carácter visible en la línea del documento - + Extend rectangular selection to first visible character in document line Extender selección rectangular al primer carácter visible en la línea del documento - + Move to first visible character of display in document line Extender selección al primer carácter visualizado en la línea del documento - + Extend selection to first visible character in display or document line Extender selección al primer carácter de línea visualizada o del documento - + Move to end of document line Mover al final de la línea del documento - + Extend selection to end of document line Extender selección al final de la línea del documento - + Extend rectangular selection to end of document line Extender selección rectangular al final de la línea del documento - + Move to end of display line Mover al final de la línea visualizada - + Extend selection to end of display line Extender selección al final de la línea visualizada - + Move to end of display or document line Mover al final de la línea visualizada o del documento - + Extend selection to end of display or document line Extender selección al final de la línea visualizada o del documento - + Move to start of document Mover al principio del documento - + Extend selection to start of document Extender selección al principio del documento - + Move to end of document Mover al final del documento - + Extend selection to end of document Extender selección al final del documento - + Stuttered move up one page Mover progresivamente una página hacia arriba - + Stuttered extend selection up one page Extender progresivamente selección hacia arriba una página - + Stuttered move down one page Mover progresivamente una página hacia abajo - + Stuttered extend selection down one page Extender progresivamente selección hacia abajo una página - + Delete previous character if not at start of line Borrar carácter anterior si no está al principio de una línea - + Delete right to end of next word Borrar a la derecha hasta el final de la siguiente palabra - + Delete line to right Borrar línea hacia la derecha - + Transpose current and previous lines Transponer líneas actual y anterior - + Duplicate the current line Duplicar línea actual - + Select all Select document Seleccionar todo - + Move selected lines up one line Mover las líneas seleccionadas una línea hacia arriba - + Move selected lines down one line Mover las líneas seleccionadas una línea hacia abajo - + Toggle insert/overtype Conmutar insertar/sobreescribir - + Paste Pegar - + Copy selection Copiar selección - + Insert newline Insertar carácter de nueva línea - + De-indent one level Deshacer un nivel de indentado - + Cancel Cancelar - + Delete previous character Borrar carácter anterior - + Delete word to left Borrar palabra hacia la izquierda - + Delete line to left Borrar línea hacia la izquierda - + Undo last command Deshacer último comando - + Redo last command Rehacer último comando - + Indent one level Indentar un nivel - + Zoom in Aumentar zoom - + Zoom out Disminuir zoom - + Formfeed Carga de la página - + Cut current line Cortar línea actual - + Delete current line Borrar línea actual - + Copy current line Copiar línea actual - + Convert selection to lower case Convertir selección a minúsculas - + Convert selection to upper case Convertir selección a mayúsculas - + Duplicate selection Duplicar selección @@ -498,150 +498,233 @@ QsciLexerAVS - + Default Por defecto - + Block comment Comentario de bloque - + Nested block comment Comentario de bloque anidado - + Line comment Comentario de línea - + Number Número - + Operator Operador - + Identifier Identificador - + Double-quoted string Cadena con comillas dobles - + Triple double-quoted string Cadena con triple comilla doble - + Keyword Palabra clave - + Filter Filtro - + Plugin Plugin - + Function Función - + Clip property Propiedad de recorte - + User defined Definido por el usuario + + QsciLexerAsm + + + Default + Por defecto + + + + Comment + Comentario + + + + Number + Número + + + + Double-quoted string + Cadena con comillas dobles + + + + Operator + Operador + + + + Identifier + Identificador + + + + CPU instruction + + + + + FPU instruction + + + + + Register + + + + + Directive + Directiva + + + + Directive operand + + + + + Block comment + Comentario de bloque + + + + Single-quoted string + + + + + Unclosed string + Cadena sin cerrar + + + + Extended instruction + + + + + Comment directive + + + QsciLexerBash - + Default Por defecto - + Error Error - + Comment Comentario - + Number Número - + Keyword Palabra clave - + Double-quoted string Cadena con comillas dobles - + Single-quoted string Cadena con comillas simples - + Operator Operador - + Identifier Identificador - + Scalar Escalar - + Parameter expansion Expansión de parámetros - + Backticks Comilla inversa - + Here document delimiter Delimitador de documento integrado (here document) - + Single-quoted here document Documento integrado (here document) con comilla simple @@ -649,42 +732,42 @@ QsciLexerBatch - + Default Por defecto - + Comment Comentario - + Keyword Palabra clave - + Label Etiqueta - + Hide command character Ocultar caracteres de comando - + External command Comando externo - + Variable Variable - + Operator Operador @@ -692,77 +775,77 @@ QsciLexerCMake - + Default Por defecto - + Comment Comentario - + String Cadena de caracteres - + Left quoted string Cadena con comillas a la izquierda - + Right quoted string Cadena con comillas a la derecha - + Function Función - + Variable Variable - + Label Etiqueta - + User defined Definido por el usuario - + WHILE block Bloque WHILE - + FOREACH block Bloque FOREACH - + IF block Bloque IF - + MACRO block Bloque MACRO - + Variable within a string Variable en una cadena - + Number Número @@ -770,282 +853,282 @@ QsciLexerCPP - + Default Por defecto - + Inactive default Por defecto inactivo - + C comment Comentario C - + Inactive C comment Comentario C inactivo - + C++ comment Comentario C++ - + Inactive C++ comment Comentario C++ inactivo - + JavaDoc style C comment Comentario C de estilo JavaDoc - + Inactive JavaDoc style C comment Comentario C estilo JavaDoc inactivo - + Number Número - + Inactive number Número inactivo - + Keyword Palabra clave - + Inactive keyword Palabra clave inactiva - + Double-quoted string Cadena con comillas dobles - + Inactive double-quoted string Cadena con doble comilla inactiva - + Single-quoted string Cadena con comillas simples - + Inactive single-quoted string Cadena con comilla simple inactiva - + IDL UUID IDL UUID - + Inactive IDL UUID IDL UUID inactivo - + Pre-processor block Bloque de preprocesador - + Inactive pre-processor block Bloque de preprocesador inactivo - + Operator Operador - + Inactive operator Operador inactivo - + Identifier Identificador - + Inactive identifier Identificador inactivo - + Unclosed string Cadena sin cerrar - + Inactive unclosed string Cadena sin cerrar inactiva - + C# verbatim string Cadena C# textual - + Inactive C# verbatim string Cadena C# textual inactiva - + JavaScript regular expression Expresión regular JavaScript - + Inactive JavaScript regular expression Expresión regular JavaScript inactiva - + JavaDoc style C++ comment Comentario C++ de estilo JavaDoc - + Inactive JavaDoc style C++ comment Comentario C++ estilo JavaDoc inactivo - + Secondary keywords and identifiers Identificadores y palabras clave secundarios - + Inactive secondary keywords and identifiers Identificadores y palabras clave secundarios inactivos - + JavaDoc keyword Palabra clave de Javadoc - + Inactive JavaDoc keyword Palabra clave de JavaDoc inactiva - + JavaDoc keyword error Error en palabra clave de Javadoc - + Inactive JavaDoc keyword error Error en palabra clave de Javadoc inactivo - + Global classes and typedefs Clases globales y typedefs - + Inactive global classes and typedefs Clases globales y typedefs inactivos - + C++ raw string Cadena en bruto C++ - + Inactive C++ raw string Cadena inactiva C++ - + Vala triple-quoted verbatim string Cadena Vala con triple comilla textual - + Inactive Vala triple-quoted verbatim string Cadena Vala con triple comilla textual inactiva - + Pike hash-quoted string Cadena Pike con hash entrecomillado - + Inactive Pike hash-quoted string Cadena Pike con hash entrecomillado inactiva - + Pre-processor C comment Comentario C de preprocesador - + Inactive pre-processor C comment Comentario C de preprocesador inactivo - + JavaDoc style pre-processor comment Comentario de preprocesador estilo JavaDoc - + Inactive JavaDoc style pre-processor comment Comentario de preprocesador estilo JavaDoc inactivo - + User-defined literal Literal definido por el usuario - + Inactive user-defined literal Literal inactivo definido por el usuario - + Task marker Marcador de tarea - + Inactive task marker Marcador de tarea inactivo - + Escape sequence Secuencia de escape - + Inactive escape sequence Secuencia de escape inactiva @@ -1053,117 +1136,122 @@ QsciLexerCSS - + Default Por defecto - + Tag Etiqueta - + Class selector Selector de clase - + Pseudo-class Pseudoclase - + Unknown pseudo-class Pseudoclase desconocida - + Operator Operador - + CSS1 property Propiedad CSS1 - + Unknown property Propiedad desconocida - + Value Valor - + + Comment + Comentario + + + ID selector Selector de ID - + Important Importante - + @-rule Regla-@ - + Double-quoted string Cadena con comillas dobles - + Single-quoted string Cadena con comillas simples - + CSS2 property Propiedad CSS2 - + Attribute Atributo - + CSS3 property Propiedad CSS3 - + Pseudo-element Pseudoelemento - + Extended CSS property Propiedad CSS extendida - + Extended pseudo-class Pseudoclase extendida - + Extended pseudo-element Pseudoelemento extendido - + Media rule Regla de '@media' - + Variable Variable @@ -1171,7 +1259,7 @@ QsciLexerCSharp - + Verbatim string Cadena textual @@ -1179,122 +1267,122 @@ QsciLexerCoffeeScript - + Default Por defecto - + C-style comment Comentario de estilo C - + C++-style comment Comentario de estilo C++ - + JavaDoc C-style comment Comentario de estilo JavaDoc C - + Number Número - + Keyword Palabra clave - + Double-quoted string Cadena con comillas dobles - + Single-quoted string Cadena con comilla simple - + IDL UUID IDL UUID - + Pre-processor block Bloque de preprocesador - + Operator Operador - + Identifier Identificador - + Unclosed string Cadena sin cerrar - + C# verbatim string Cadena C# textual - + Regular expression Expresión regular - + JavaDoc C++-style comment Comentario de estilo JavaDoc C++ - + Secondary keywords and identifiers Identificadores y palabras clave secundarios - + JavaDoc keyword Palabra clave de JavaDoc - + JavaDoc keyword error Error en palabra clave de JavaDoc - + Global classes Clases globales - + Block comment Comentario de bloque - + Block regular expression Expresión regular de bloque - + Block regular expression comment Comentario de expresión regular de bloque - + Instance property Propiedad de instancia @@ -1302,117 +1390,117 @@ QsciLexerD - + Default Por defecto - + Block comment Comentario de bloque - + Line comment Comentario de línea - + DDoc style block comment Comentario de bloque estilo DDoc - + Nesting comment Comentario anidado - + Number Número - + Keyword Palabra clave - + Secondary keyword Palabra clave secundaria - + Documentation keyword Palabra clave de documentación - + Type definition Definición de tipo - + String Cadena de caracteres - + Unclosed string Cadena sin cerrar - + Character Carácter - + Operator Operador - + Identifier Identificador - + DDoc style line comment Comentario de línea estilo DDoc - + DDoc keyword Palabra clave DDoc - + DDoc keyword error Error en palabra clave DDOC - + Backquoted string Cadena con comillas hacia atrás - + Raw string Cadena en bruto - + User defined 1 Definido por el usuario 1 - + User defined 2 Definido por el usuario 2 - + User defined 3 Definido por el usuario 3 @@ -1420,62 +1508,62 @@ QsciLexerDiff - + Default Por defecto - + Comment Comentario - + Command Comando - + Header Encabezado - + Position Posición - + Removed line Línea eliminada - + Added line Línea añadida - + Changed line Línea modificada - + Added adding patch - + Removed adding patch - + Added removing patch - + Removed removing patch @@ -1483,47 +1571,47 @@ QsciLexerEDIFACT - + Default Por defecto - + Segment start Inicio de Segmento - + Segment end Final de Segmento - + Element separator Separador de elemento - + Composite separator Separador compuesto - + Release separator Separador de release - + UNA segment header Encabezamiento de segmento UNA - + UNH segment header Encabezamiento de segmento UNH - + Badly formed segment Segmento mal formado @@ -1531,77 +1619,77 @@ QsciLexerFortran77 - + Default Por defecto - + Comment Comentario - + Number Número - + Single-quoted string Cadena con comillas simples - + Double-quoted string Cadena con comillas dobles - + Unclosed string Cadena sin cerrar - + Operator Operador - + Identifier Identificador - + Keyword Palabra clave - + Intrinsic function Función intrínseca - + Extended function Función extendida - + Pre-processor block Bloque de preprocesador - + Dotted operator Operador punteado - + Label Etiqueta - + Continuation Continuación @@ -1609,555 +1697,643 @@ QsciLexerHTML - + HTML default HTML por defecto - + Tag Etiqueta - + Unknown tag Etiqueta desconocida - + Attribute Atributo - + Unknown attribute Atributo desconocido - + HTML number Número HTML - + HTML double-quoted string Cadena HTML con comillas dobles - + HTML single-quoted string Cadena HTML con comillas simples - + Other text in a tag Otro texto en una etiqueta - + HTML comment Comentario HTML - + Entity Entidad - + End of a tag Final de una etiqueta - + Start of an XML fragment Inicio de un fragmento XML - + End of an XML fragment Fin de un fragmento XML - + Script tag Etiqueta de script - + Start of an ASP fragment with @ Inicio de un fragmento ASP con @ - + Start of an ASP fragment Inicio de un fragmento ASP - + CDATA CDATA - + Start of a PHP fragment Inicio de un fragmento PHP - + Unquoted HTML value Valor HTML sin comillas - + ASP X-Code comment Comentario ASP X-Code - + SGML default SGML por defecto - + SGML command Comando SGML - + First parameter of an SGML command Primer parametro de un comando SGML - + SGML double-quoted string Cadena SGML con comillas dobles - + SGML single-quoted string Cadena SGML con comillas simples - + SGML error Error SGML - + SGML special entity Entidad SGML especial - + SGML comment Comentario SGML - + First parameter comment of an SGML command Comentario de primer parametro de un comando SGML - + SGML block default Bloque SGML por defecto - + Start of a JavaScript fragment Inicio de un fragmento JavaScript - + JavaScript default JavaScript por defecto - + JavaScript comment Comentario JavaScript - + JavaScript line comment Comentario de línea de JavaScript - + JavaDoc style JavaScript comment Comentario JavaScript de estilo JavaDoc - + JavaScript number Número JavaScript - + JavaScript word Palabra JavaScript - + JavaScript keyword Palabra clave JavaScript - + JavaScript double-quoted string Cadena JavaScript con comillas dobles - + JavaScript single-quoted string Cadena JavaScript con comillas simples - + JavaScript symbol Símbolo JavaScript - + JavaScript unclosed string Cadena JavaScript sin cerrar - + JavaScript regular expression Expresión regular JavaScript - + Start of an ASP JavaScript fragment Inicio de un fragmento de ASP JavaScript - + ASP JavaScript default ASP JavaScript por defecto - + ASP JavaScript comment Comentario de ASP JavaScript - + ASP JavaScript line comment Comentario de línea de ASP JavaScript - + JavaDoc style ASP JavaScript comment Comentario ASP JavaScript de estilo JavaDoc - + ASP JavaScript number Número ASP JavaScript - + ASP JavaScript word Palabra ASP JavaScript - + ASP JavaScript keyword Palabra clave ASP JavaScript - + ASP JavaScript double-quoted string Cadena ASP JavaScript con comillas dobles - + ASP JavaScript single-quoted string Cadena ASP JavaScript con comillas simples - + ASP JavaScript symbol Símbolo ASP JavaScript - + ASP JavaScript unclosed string Cadena ASP JavaScript sin cerrar - + ASP JavaScript regular expression Expresión regular ASP JavaScript - + Start of a VBScript fragment Inicio de un fragmento VBScript - + VBScript default VBScript por defecto - + VBScript comment Comentario VBScript - + VBScript number Número VBScript - + VBScript keyword Palabra clave VBScript - + VBScript string Cadena de caracteres VBScript - + VBScript identifier Identificador VBScript - + VBScript unclosed string Cadena VBScript sin cerrar - + Start of an ASP VBScript fragment Inicio de un fragmento de ASP VBScript - + ASP VBScript default ASP VBScript por defecto - + ASP VBScript comment Comentario de ASP VBScript - + ASP VBScript number Número ASP VBScript - + ASP VBScript keyword Palabra clave ASP VBScript - + ASP VBScript string Cadena de caracteres ASP VBScript - + ASP VBScript identifier Identificador ASP VBScript - + ASP VBScript unclosed string Cadena ASP VBScript sin cerrar - + Start of a Python fragment Inicio de un fragmento Python - + Python default Python por defecto - + Python comment Comentario Python - + Python number Número Python - + Python double-quoted string Cadena Python con comillas dobles - + Python single-quoted string Cadena Python con comillas simples - + Python keyword Palabra clave de Python - + Python triple double-quoted string Cadena Python con triple comilla doble - + Python triple single-quoted string Cadena Python con triple comilla simple - + Python class name Nombre de clase Python - + Python function or method name Nombre de método o función Python - + Python operator Operador Python - + Python identifier Identificador Python - + Start of an ASP Python fragment Inicio de un fragmento ASP Python - + ASP Python default ASP Python por defecto - + ASP Python comment Comentario ASP Python - + ASP Python number Número ASP Python - + ASP Python double-quoted string Cadena ASP Python con comillas dobles - + ASP Python single-quoted string Cadena ASP Python con comillas simples - + ASP Python keyword Palabra clave de ASP Python - + ASP Python triple double-quoted string Cadena ASP Python con triple comilla doble - + ASP Python triple single-quoted string Cadena ASP Python con triple comilla simple - + ASP Python class name Nombre de clase ASP Python - + ASP Python function or method name Nombre de método o función ASP Python - + ASP Python operator Operador ASP Python - + ASP Python identifier Identificador ASP Python - + PHP default PHP por defecto - + PHP double-quoted string Cadena PHP con comillas dobles - + PHP single-quoted string Cadena PHP con comillas simples - + PHP keyword Palabra clave PHP - + PHP number Número PHP - + PHP variable Variable PHP - + PHP comment Comentario PHP - + PHP line comment Comentario de línea PHP - + PHP double-quoted variable Variable PHP con comillas dobles - + PHP operator Operador PHP + + QsciLexerHex + + + Default + Por defecto + + + + Record start + + + + + Record type + + + + + Unknown record type + + + + + Byte count + + + + + Incorrect byte count + + + + + No address + + + + + Data address + + + + + Record count + + + + + Start address + + + + + Extended address + + + + + Odd data + + + + + Even data + + + + + Unknown data + + + + + Checksum + + + + + Incorrect checksum + + + + + Trailing garbage after a record + + + QsciLexerIDL - + UUID UUID @@ -2165,72 +2341,72 @@ QsciLexerJSON - + Default Por defecto - + Number Número - + String Cadena - + Unclosed string Cadena sin cerrar - + Property Propiedad - + Escape sequence Secuencia de escape - + Line comment Comentario de línea - + Block comment Comentario de bloque - + Operator Operador - + IRI IRI - + JSON-LD compact IRI JSON-LD compact IRI - + JSON keyword Palabra clave JSON - + JSON-LD keyword Palabra clave JSON-LD - + Parsing error Error de intérprete @@ -2238,7 +2414,7 @@ QsciLexerJavaScript - + Regular expression Expresión regular @@ -2246,102 +2422,102 @@ QsciLexerLua - + Default Por defecto - + Comment Comentario - + Line comment Comentario de línea - + Number Número - + Keyword Palabra clave - + String Cadena de caracteres - + Character Carácter - + Literal string Cadena literal - + Preprocessor Preprocesador - + Operator Operador - + Identifier Identificador - + Unclosed string Cadena sin cerrar - + Basic functions Funciones basicas - + String, table and maths functions Funcines de cadena, tabla y matemáticas - + Coroutines, i/o and system facilities Co-rutinas, e/s y funciones del sistema - + User defined 1 Definido por el usuario 1 - + User defined 2 Definido por el usuario 2 - + User defined 3 Definido por el usuario 3 - + User defined 4 Definido por el usuario 4 - + Label Etiqueta @@ -2349,37 +2525,37 @@ QsciLexerMakefile - + Default Por defecto - + Comment Comentario - + Preprocessor Preprocesador - + Variable Variable - + Operator Operador - + Target Objetivo - + Error Error @@ -2387,112 +2563,112 @@ QsciLexerMarkdown - + Default Por defecto - + Special Especial - + Strong emphasis using double asterisks Énfasis fuerte usando doble asterisco - + Strong emphasis using double underscores Énfasis fuerte usando doble guión bajo - + Emphasis using single asterisks Énfasis usando asterisco sencillo - + Emphasis using single underscores Énfasis usando guión bajo sencillo - + Level 1 header Encabezado de nivel 1 - + Level 2 header Encabezado de nivel 2 - + Level 3 header Encabezado de nivel 3 - + Level 4 header Encabezado de nivel 4 - + Level 5 header Encabezado de nivel 5 - + Level 6 header Encabezado de nivel 6 - + Pre-char Pre-char - + Unordered list item Elemento de lista sin ordenar - + Ordered list item Elemento de lista ordenada - + Block quote Bloque de cita - + Strike out Tachar - + Horizontal rule Regla horizontal - + Link Enlace - + Code between backticks Código entre comillas hacia atrás - + Code between double backticks Código entre comillas hacia atrás dobles - + Code block Bloque de código @@ -2500,47 +2676,47 @@ QsciLexerMatlab - + Default Por defecto - + Comment Comentario - + Command Comando - + Number Número - + Keyword Palabra clave - + Single-quoted string Cadena con comillas simples - + Operator Operador - + Identifier Identificador - + Double-quoted string Cadena con comillas dobles @@ -2548,77 +2724,77 @@ QsciLexerPO - + Default Por defecto - + Comment Comentario - + Message identifier Identificador de mensaje - + Message identifier text Texto identificador de mensaje - + Message string Cadena de mensaje - + Message string text Texto de cadena de mensaje - + Message context Contexto de mensaje - + Message context text Texto de contexto de mensaje - + Fuzzy flag Señalador difuso - + Programmer comment Comentario de programador - + Reference Referencia - + Flags Señaladores - + Message identifier text end-of-line Fin de línea de texto identificador de mensaje - + Message string text end-of-line Fin de línea de texto de cadena de mensaje - + Message context text end-of-line Fin de línea de texto de contexto de mensaje @@ -2626,87 +2802,87 @@ QsciLexerPOV - + Default Por defecto - + Comment Comentario - + Comment line Línea de comentario - + Number Número - + Operator Operador - + Identifier Identificador - + String Cadena de caracteres - + Unclosed string Cadena sin cerrar - + Directive Directiva - + Bad directive Mala directiva - + Objects, CSG and appearance Objetos, CSG y apariencia - + Types, modifiers and items Tipos, modificadores y elementos - + Predefined identifiers Identificadores predefinidos - + Predefined functions Funciones predefinidas - + User defined 1 Definido por el usuario 1 - + User defined 2 Definido por el usuario 2 - + User defined 3 Definido por el usuario 3 @@ -2714,77 +2890,77 @@ QsciLexerPascal - + Default Por defecto - + Line comment Comentario de línea - + Number Número - + Keyword Palabra clave - + Single-quoted string Cadena con comillas simples - + Operator Operador - + Identifier Identificador - + '{ ... }' style comment Comentario de estilo '{ ... }' - + '(* ... *)' style comment Comentario de estilo '(* ... *)' - + '{$ ... }' style pre-processor block Bloque de preprocesador de estilo '{$ ... }' - + '(*$ ... *)' style pre-processor block Bloque de preprocesador de estilo '(*$ ... *)' - + Hexadecimal number Número hexadecimal - + Unclosed string Cadena sin cerrar - + Character Carácter - + Inline asm asm inline @@ -2792,207 +2968,207 @@ QsciLexerPerl - + Default Por defecto - + Error Error - + Comment Comentario - + POD POD - + Number Número - + Keyword Palabra clave - + Double-quoted string Cadena con comillas dobles - + Single-quoted string Cadena con comillas simples - + Operator Operador - + Identifier Identificador - + Scalar Escalar - + Array Array - + Hash Hash - + Symbol table Tabla de símbolos - + Regular expression Expresión regular - + Substitution Sustitución - + Backticks Comilla inversa - + Data section Sección de datos - + Here document delimiter Delimitador de documento integrado (here document) - + Single-quoted here document Documento integrado (here document) con comilla simple - + Double-quoted here document Documento integrado (here document) con comilla doble - + Backtick here document Documento integrado (here document) con comilla inversa - + Quoted string (q) Cadena con comillas (q) - + Quoted string (qq) Cadena con comillas (qq) - + Quoted string (qx) Cadena con comillas (qx) - + Quoted string (qr) Cadena con comillas (qr) - + Quoted string (qw) Cadena con comillas (qw) - + POD verbatim POD textual - + Subroutine prototype Prototipo de subrutina - + Format identifier Identificador de formato - + Format body Cuerpo de formato - + Double-quoted string (interpolated variable) Cadena con doble comilla (variable interpolada) - + Translation Traducción - + Regular expression (interpolated variable) Expresión regular (variable interpolada) - + Substitution (interpolated variable) Substitución (variable interpolada) - + Backticks (interpolated variable) Comilla hacia atrás (variable interpolada) - + Double-quoted here document (interpolated variable) Here document con comilla doble (variable interpolada) - + Backtick here document (interpolated variable) Here document con comilla hacia atrás (variable interpolada) - + Quoted string (qq, interpolated variable) Cadena entrecomillada (qq, variable interpolada) - + Quoted string (qx, interpolated variable) Cadena entrecomillada (qx, variable interpolada) - + Quoted string (qr, interpolated variable) Cadena entrecomillada (qr, variable interpolada) @@ -3000,82 +3176,82 @@ QsciLexerPostScript - + Default Por defecto - + Comment Comentario - + DSC comment Comentario DSC - + DSC comment value Valor de comentario DSC - + Number Número - + Name Nombre - + Keyword Palabra clave - + Literal Literal - + Immediately evaluated literal Literal de evaluación inmediata - + Array parenthesis Paréntesis de array - + Dictionary parenthesis Paréntesis de diccionario - + Procedure parenthesis Paréntesis de procedimiento - + Text Texto - + Hexadecimal string Cadena hexadecimal - + Base85 string Cadena Base85 - + Bad string character Carácter de cadena mala @@ -3083,32 +3259,32 @@ QsciLexerProperties - + Default Por defecto - + Comment Comentario - + Section Sección - + Assignment Asignación - + Default value Valor por defecto - + Key Clave @@ -3116,102 +3292,102 @@ QsciLexerPython - + Default Por defecto - + Comment Comentario - + Number Número - + Double-quoted string Cadena con comillas dobles - + Single-quoted string Cadena con comillas simples - + Keyword Palabra clave - + Triple single-quoted string Cadena con triple comilla simple - + Triple double-quoted string Cadena con triple comilla doble - + Class name Nombre de clase - + Function or method name Nombre de método o función - + Operator Operador - + Identifier Identificador - + Comment block Bloque de comentario - + Unclosed string Cadena sin cerrar - + Highlighted identifier Identificador resaltado - + Decorator Decorador - + Double-quoted f-string - + Single-quoted f-string - + Triple single-quoted f-string - + Triple double-quoted f-string @@ -3219,157 +3395,157 @@ QsciLexerRuby - + Default Por defecto - + Comment Comentario - + Number Número - + Double-quoted string Cadena con comillas dobles - + Single-quoted string Cadena con comillas simples - + Keyword Palabra clave - + Class name Nombre de clase - + Function or method name Nombre de método o función - + Operator Operador - + Identifier Identificador - + Error Error - + POD POD - + Regular expression Expresión regular - + Global Global - + Symbol Símbolo - + Module name Nombre de módulo - + Instance variable Variable de instancia - + Class variable Variable de clase - + Backticks Comilla inversa - + Data section Sección de datos - + Here document delimiter Delimitador de documento integrado (here document) - + Here document Documento integrado (here document) - + %q string Cadena %q - + %Q string Cadena %Q - + %x string Cadena %x - + %r string Cadena %r - + %w string Cadena %w - + Demoted keyword Palabra clave degradada - + stdin stdin - + stdout stdout - + stderr stderr @@ -3377,112 +3553,112 @@ QsciLexerSQL - + Default Por defecto - + Comment Comentario - + Number Número - + Keyword Palabra clave - + Single-quoted string Cadena con comillas simples - + Operator Operador - + Identifier Identificador - + Comment line Línea de comentario - + JavaDoc style comment Comentario de estilo JavaDoc - + Double-quoted string Cadena con comillas dobles - + SQL*Plus keyword Palabra clave SQL*Plus - + SQL*Plus prompt Prompt SQL*Plus - + SQL*Plus comment Comentario SQL*Plus - + # comment line # línea de comentario - + JavaDoc keyword Palabra clave de Javadoc - + JavaDoc keyword error Error en palabra clave de Javadoc - + User defined 1 Definido por el usuario 1 - + User defined 2 Definido por el usuario 2 - + User defined 3 Definido por el usuario 3 - + User defined 4 Definido por el usuario 4 - + Quoted identifier Identificador entrecomillado - + Quoted operator Operador entrecomillado @@ -3490,47 +3666,47 @@ QsciLexerSpice - + Default Por defecto - + Identifier Identificador - + Command Comando - + Function Función - + Parameter Parámetro - + Number Número - + Delimiter Delimitador - + Value Valor - + Comment Comentario @@ -3538,112 +3714,112 @@ QsciLexerTCL - + Default Por defecto - + Comment Comentario - + Comment line Línea de comentario - + Number Número - + Quoted keyword Palabra clave entrecomillada - + Quoted string Cadena entrecomillada - + Operator Operador - + Identifier Identificador - + Substitution Sustitución - + Brace substitution Sustitución de corchetes - + Modifier Modificador - + Expand keyword Expandir palabra clave - + TCL keyword Palabra clave TCL - + Tk keyword Palabra clave Tk - + iTCL keyword Palabra clave iTCL - + Tk command Comando Tk - + User defined 1 Definido por el usuario 1 - + User defined 2 Definido por el usuario 2 - + User defined 3 Definido por el usuario 3 - + User defined 4 Definido por el usuario 4 - + Comment box Caja de comentario - + Comment block Bloque de comentario @@ -3651,32 +3827,32 @@ QsciLexerTeX - + Default Por defecto - + Special Especial - + Group Grupo - + Symbol Símbolo - + Command Comando - + Text Texto @@ -3684,82 +3860,82 @@ QsciLexerVHDL - + Default Por defecto - + Comment Comentario - + Comment line Línea de comentario - + Number Número - + String Cadena de caracteres - + Operator Operador - + Identifier Identificador - + Unclosed string Cadena sin cerrar - + Keyword Palabra clave - + Standard operator Operador estándar - + Attribute Atributo - + Standard function Función estándar - + Standard package Paquete estándar - + Standard type Tipo estándar - + User defined Definido por el usuario - + Comment block Bloque de comentario @@ -3767,192 +3943,192 @@ QsciLexerVerilog - + Default Por defecto - + Inactive default Inactivo por defecto - + Comment Comentario - + Inactive comment - + Line comment Comentario de línea - + Inactive line comment Línea de comentario inactiva - + Bang comment Comentario Bang - + Inactive bang comment Comentario Bang inactivo - + Number - + Inactive number Número inactivo - + Primary keywords and identifiers Identificadores y palabras clave primarios - + Inactive primary keywords and identifiers Palabras clave primarias e identificadores inactivos - + String Cadena - + Inactive string Cadena inactiva - + Secondary keywords and identifiers Palabras clave e identificadores secundarios - + Inactive secondary keywords and identifiers Identificadores y palabras clave secundarios inactivos - + System task Tarea de sistema - + Inactive system task Tarea de sistema inactiva - + Preprocessor block Bloque de preprocesador - + Inactive preprocessor block - + Operator Operador - + Inactive operator Operador inactivo - + Identifier Identificador - + Inactive identifier Identificador inactivo - + Unclosed string Cadena sin cerrar - + Inactive unclosed string Cadena sin cerrar inactiva - + User defined tasks and identifiers Tareas definidas por el usuario e identificadores - + Inactive user defined tasks and identifiers Tareas definidas por el usuario e identificadores inactivos - + Keyword comment Comentario de palabra clave - + Inactive keyword comment Comentario de palabra clave inactiva - + Input port declaration Declaración de puerto de input - + Inactive input port declaration Declaración de puerto de input inactivo - + Output port declaration Declaración de puerto de output - + Inactive output port declaration Declaración de puerto de output inactivo - + Input/output port declaration Declaración de puerto de input/output inactivo - + Inactive input/output port declaration Declaración de puerto de input/output inactivo - + Port connection Conexión de puerto - + Inactive port connection Conexión inactiva de puerto @@ -3960,52 +4136,52 @@ QsciLexerYAML - + Default Por defecto - + Comment Comentario - + Identifier Identificador - + Keyword Palabra clave - + Number Número - + Reference Referencia - + Document delimiter Delimitador de documento - + Text block marker Marcador de bloque de texto - + Syntax error marker Marcador de error de sintaxis - + Operator Operador @@ -4013,37 +4189,37 @@ QsciScintilla - + &Undo &Deshacer - + &Redo &Rehacer - + Cu&t Cor&tar - + &Copy &Copiar - + &Paste &Pegar - + Delete Borrar - + Select All Seleccionar todo diff --git a/libs/qscintilla/Qt4Qt5/qscintilla_fr.qm b/libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_fr.qm similarity index 100% rename from libs/qscintilla/Qt4Qt5/qscintilla_fr.qm rename to libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_fr.qm diff --git a/libs/qscintilla/Qt4Qt5/qscintilla_fr.ts b/libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_fr.ts similarity index 85% rename from libs/qscintilla/Qt4Qt5/qscintilla_fr.ts rename to libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_fr.ts index 36c751561..0c115c7d4 100644 --- a/libs/qscintilla/Qt4Qt5/qscintilla_fr.ts +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_fr.ts @@ -4,493 +4,493 @@ QsciCommand - + Move down one line Déplacement d'une ligne vers le bas - + Extend selection down one line Extension de la sélection d'une ligne vers le bas - + Scroll view down one line Decendre la vue d'une ligne - + Extend rectangular selection down one line Extension de la sélection rectangulaire d'une ligne vers le bas - + Move up one line Déplacement d'une ligne vers le haut - + Extend selection up one line Extension de la sélection d'une ligne vers le haut - + Scroll view up one line Remonter la vue d'une ligne - + Extend rectangular selection up one line Extension de la sélection rectangulaire d'une ligne vers le haut - + Move up one paragraph Déplacement d'un paragraphe vers le haut - + Extend selection up one paragraph Extension de la sélection d'un paragraphe vers le haut - + Move down one paragraph Déplacement d'un paragraphe vers le bas - + Scroll to start of document Remonter au début du document - + Scroll to end of document Descendre à la fin du document - + Scroll vertically to centre current line Défiler verticalement pour centrer la ligne courante - + Extend selection down one paragraph Extension de la sélection d'un paragraphe vers le bas - + Move left one character Déplacement d'un caractère vers la gauche - + Extend selection left one character Extension de la sélection d'un caractère vers la gauche - + Move left one word Déplacement d'un mot vers la gauche - + Extend selection left one word Extension de la sélection d'un mot vers la gauche - + Extend rectangular selection left one character Extension de la sélection rectangulaire d'un caractère vers la gauche - + Move right one character Déplacement d'un caractère vers la droite - + Extend selection right one character Extension de la sélection d'un caractère vers la droite - + Move right one word Déplacement d'un mot vers la droite - + Extend selection right one word Extension de la sélection d'un mot vers la droite - + Extend rectangular selection right one character Extension de la sélection rectangulaire d'un caractère vers la droite - + Move to end of previous word Déplacement vers fin du mot précédent - + Extend selection to end of previous word Extension de la sélection vers fin du mot précédent - + Move to end of next word Déplacement vers fin du mot suivant - + Extend selection to end of next word Extension de la sélection vers fin du mot suivant - + Move left one word part Déplacement d'une part de mot vers la gauche - + Extend selection left one word part Extension de la sélection d'une part de mot vers la gauche - + Move right one word part Déplacement d'une part de mot vers la droite - + Extend selection right one word part Extension de la sélection d'une part de mot vers la droite - + Move up one page Déplacement d'une page vers le haut - + Extend selection up one page Extension de la sélection d'une page vers le haut - + Extend rectangular selection up one page Extension de la sélection rectangulaire d'une page vers le haut - + Move down one page Déplacement d'une page vers le bas - + Extend selection down one page Extension de la sélection d'une page vers le bas - + Extend rectangular selection down one page Extension de la sélection rectangulaire d'une page vers le bas - + Delete current character Effacement du caractère courant - + Cut selection Couper la sélection - + Delete word to right Suppression du mot de droite - + Move to start of document line Déplacement vers début de ligne du document - + Extend selection to start of document line Extension de la sélection vers début de ligne du document - + Extend rectangular selection to start of document line - + Move to start of display line - + Extend selection to start of display line - + Move to start of display or document line - + Extend selection to start of display or document line - + Move to first visible character in document line - + Extend selection to first visible character in document line - + Extend rectangular selection to first visible character in document line - + Move to first visible character of display in document line - + Extend selection to first visible character in display or document line - + Move to end of document line - + Extend selection to end of document line - + Extend rectangular selection to end of document line - + Move to end of display line - + Extend selection to end of display line - + Move to end of display or document line - + Extend selection to end of display or document line - + Move to start of document - + Extend selection to start of document - + Move to end of document - + Extend selection to end of document - + Stuttered move up one page - + Stuttered extend selection up one page - + Stuttered move down one page - + Stuttered extend selection down one page - + Delete previous character if not at start of line - + Delete right to end of next word - + Delete line to right Suppression de la partie droite de la ligne - + Transpose current and previous lines - + Duplicate the current line - + Select all Select document - + Move selected lines up one line - + Move selected lines down one line - + Toggle insert/overtype Basculement Insertion /Ecrasement - + Paste Coller - + Copy selection Copier la sélection - + Insert newline - + De-indent one level - + Cancel Annuler - + Delete previous character Suppression du dernier caractère - + Delete word to left Suppression du mot de gauche - + Delete line to left Effacer la partie gauche de la ligne - + Undo last command - + Redo last command Refaire la dernière commande - + Indent one level Indentation d'un niveau - + Zoom in Zoom avant - + Zoom out Zoom arrière - + Formfeed Chargement de la page - + Cut current line Couper la ligne courante - + Delete current line Suppression de la ligne courante - + Copy current line Copier la ligne courante - + Convert selection to lower case Conversion de la ligne courante en minuscules - + Convert selection to upper case Conversion de la ligne courante en majuscules - + Duplicate selection @@ -498,150 +498,233 @@ QsciLexerAVS - + Default Par défaut - + Block comment Block de commentaires - + Nested block comment - + Line comment Commentaire de ligne - + Number Nombre - + Operator Opérateur - + Identifier Identificateur - + Double-quoted string Chaine de caractères (guillemets doubles) - + Triple double-quoted string Chaine de caractères HTML (guillemets simples) - + Keyword Mot-clé - + Filter Filtre - + Plugin Extension - + Function Fonction - + Clip property - + User defined Définition utilisateur + + QsciLexerAsm + + + Default + Par défaut + + + + Comment + Commentaire + + + + Number + Nombre + + + + Double-quoted string + Chaine de caractères (guillemets doubles) + + + + Operator + Opérateur + + + + Identifier + Identificateur + + + + CPU instruction + + + + + FPU instruction + + + + + Register + + + + + Directive + Directive + + + + Directive operand + + + + + Block comment + Block de commentaires + + + + Single-quoted string + Chaine de caractères (guillemets simples) + + + + Unclosed string + Chaine de caractères non refermée + + + + Extended instruction + + + + + Comment directive + + + QsciLexerBash - + Default Par défaut - + Error Erreur - + Comment Commentaire - + Number Nombre - + Keyword Mot-clé - + Double-quoted string Chaine de caractères (guillemets doubles) - + Single-quoted string Chaine de caractères (guillemets simples) - + Operator Opérateur - + Identifier Identificateur - + Scalar Scalaire - + Parameter expansion Extension de paramètre - + Backticks Quotes inverses - + Here document delimiter Ici délimiteur de document - + Single-quoted here document Document intégré guillemets simples @@ -649,42 +732,42 @@ QsciLexerBatch - + Default Par défaut - + Comment Commentaire - + Keyword Mot-clé - + Label Titre - + Hide command character Cacher le caratère de commande - + External command Commande externe - + Variable Variable - + Operator Opérateur @@ -692,77 +775,77 @@ QsciLexerCMake - + Default Par défaut - + Comment Commentaire - + String Chaîne de caractères - + Left quoted string - + Right quoted string - + Function Fonction - + Variable Variable - + Label Titre - + User defined Définition utilisateur - + WHILE block - + FOREACH block - + IF block - + MACRO block - + Variable within a string - + Number Nombre @@ -770,282 +853,282 @@ QsciLexerCPP - + Default Par défaut - + Inactive default - + C comment Commentaire C - + Inactive C comment - + C++ comment Commentaire C++ - + Inactive C++ comment - + JavaDoc style C comment Commentaire C de style JavaDoc - + Inactive JavaDoc style C comment - + Number Nombre - + Inactive number - + Keyword Mot-clé - + Inactive keyword - + Double-quoted string Chaine de caractères (guillemets doubles) - + Inactive double-quoted string - + Single-quoted string Chaine de caractères (guillemets simples) - + Inactive single-quoted string - + IDL UUID - + Inactive IDL UUID - + Pre-processor block Instructions de pré-processing - + Inactive pre-processor block - + Operator Opérateur - + Inactive operator - + Identifier Identificateur - + Inactive identifier - + Unclosed string Chaine de caractères non refermée - + Inactive unclosed string - + C# verbatim string - + Inactive C# verbatim string - + JavaScript regular expression Expression régulière JavaScript - + Inactive JavaScript regular expression - + JavaDoc style C++ comment Commentaire C++ de style JavaDoc - + Inactive JavaDoc style C++ comment - + Secondary keywords and identifiers Seconds mots-clés et identificateurs - + Inactive secondary keywords and identifiers - + JavaDoc keyword Mot-clé JavaDoc - + Inactive JavaDoc keyword - + JavaDoc keyword error Erreur de mot-clé JavaDoc - + Inactive JavaDoc keyword error - + Global classes and typedefs Classes globales et définitions de types - + Inactive global classes and typedefs - + C++ raw string - + Inactive C++ raw string - + Vala triple-quoted verbatim string - + Inactive Vala triple-quoted verbatim string - + Pike hash-quoted string - + Inactive Pike hash-quoted string - + Pre-processor C comment - + Inactive pre-processor C comment - + JavaDoc style pre-processor comment - + Inactive JavaDoc style pre-processor comment - + User-defined literal - + Inactive user-defined literal - + Task marker - + Inactive task marker - + Escape sequence Séquence d'échappement - + Inactive escape sequence @@ -1053,117 +1136,122 @@ QsciLexerCSS - + Default Par défaut - + Tag Balise - + Class selector Classe - + Pseudo-class Pseudo-classe - + Unknown pseudo-class Peudo-classe inconnue - + Operator Opérateur - + CSS1 property Propriété CSS1 - + Unknown property Propriété inconnue - + Value Valeur - + + Comment + Commentaire + + + ID selector ID - + Important Important - + @-rule règle-@ - + Double-quoted string Chaine de caractères (guillemets doubles) - + Single-quoted string Chaine de caractères (guillemets simples) - + CSS2 property Propriété CSS2 - + Attribute Attribut - + CSS3 property Propriété CSS3 - + Pseudo-element - + Extended CSS property - + Extended pseudo-class - + Extended pseudo-element - + Media rule - + Variable Variable @@ -1171,7 +1259,7 @@ QsciLexerCSharp - + Verbatim string Chaine verbatim @@ -1179,122 +1267,122 @@ QsciLexerCoffeeScript - + Default Par défaut - + C-style comment - + C++-style comment - + JavaDoc C-style comment - + Number Nombre - + Keyword Mot-clé - + Double-quoted string Chaine de caractères (guillemets doubles) - + Single-quoted string Chaine de caractères (guillemets simples) - + IDL UUID - + Pre-processor block Instructions de pré-processing - + Operator Opérateur - + Identifier Identificateur - + Unclosed string Chaine de caractères non refermée - + C# verbatim string - + Regular expression Expression régulière - + JavaDoc C++-style comment - + Secondary keywords and identifiers Seconds mots-clés et identificateurs - + JavaDoc keyword Mot-clé JavaDoc - + JavaDoc keyword error Erreur de mot-clé JavaDoc - + Global classes - + Block comment Block de commentaires - + Block regular expression - + Block regular expression comment - + Instance property @@ -1302,117 +1390,117 @@ QsciLexerD - + Default Par défaut - + Block comment Block de commentaires - + Line comment Commentaire de ligne - + DDoc style block comment - + Nesting comment - + Number Nombre - + Keyword Mot-clé - + Secondary keyword - + Documentation keyword - + Type definition - + String Chaîne de caractères - + Unclosed string Chaine de caractères non refermée - + Character Caractère - + Operator Opérateur - + Identifier Identificateur - + DDoc style line comment - + DDoc keyword Mot-clé DDoc - + DDoc keyword error Erreur de mot-clé DDoc - + Backquoted string - + Raw string - + User defined 1 Définition utilisateur 1 - + User defined 2 Définition utilisateur 2 - + User defined 3 Définition utilisateur 3 @@ -1420,62 +1508,62 @@ QsciLexerDiff - + Default Par défaut - + Comment Commentaire - + Command Commande - + Header En-tête - + Position Position - + Removed line Ligne supprimée - + Added line Ligne ajoutée - + Changed line Ligne changée - + Added adding patch - + Removed adding patch - + Added removing patch - + Removed removing patch @@ -1483,47 +1571,47 @@ QsciLexerEDIFACT - + Default Par défaut - + Segment start - + Segment end - + Element separator - + Composite separator - + Release separator - + UNA segment header - + UNH segment header - + Badly formed segment @@ -1531,77 +1619,77 @@ QsciLexerFortran77 - + Default Par défaut - + Comment Commentaire - + Number Nombre - + Single-quoted string Chaine de caractères (guillemets simples) - + Double-quoted string Chaine de caractères (guillemets doubles) - + Unclosed string Chaine de caractères non refermée - + Operator Opérateur - + Identifier Identificateur - + Keyword Mot-clé - + Intrinsic function Fonction intrinsèque - + Extended function Fonction étendue - + Pre-processor block Instructions de pré-processing - + Dotted operator - + Label Titre - + Continuation @@ -1609,555 +1697,643 @@ QsciLexerHTML - + HTML default HTML par défaut - + Tag Balise - + Unknown tag Balise inconnue - + Attribute Attribut - + Unknown attribute Attribut inconnu - + HTML number Nombre HTML - + HTML double-quoted string Chaine de caractères HTML (guillemets doubles) - + HTML single-quoted string Chaine de caractères HTML (guillemets simples) - + Other text in a tag Autre texte dans les balises - + HTML comment Commentaire HTML - + Entity Entité - + End of a tag Balise fermante - + Start of an XML fragment Début de block XML - + End of an XML fragment Fin de block XML - + Script tag Balise de script - + Start of an ASP fragment with @ Début de block ASP avec @ - + Start of an ASP fragment Début de block ASP - + CDATA CDATA - + Start of a PHP fragment Début de block PHP - + Unquoted HTML value Valeur HTML sans guillemets - + ASP X-Code comment Commentaire X-Code ASP - + SGML default SGML par défaut - + SGML command Commande SGML - + First parameter of an SGML command Premier paramètre de commande SGML - + SGML double-quoted string Chaine de caractères SGML (guillemets doubles) - + SGML single-quoted string Chaine de caractères SGML (guillemets simples) - + SGML error Erreur SGML - + SGML special entity Entité SGML spéciale - + SGML comment Commentaire SGML - + First parameter comment of an SGML command Premier paramètre de commentaire de commande SGML - + SGML block default Block SGML par défaut - + Start of a JavaScript fragment Début de block JavaScript - + JavaScript default JavaScript par défaut - + JavaScript comment Commentaire JavaScript - + JavaScript line comment Commentaire de ligne JavaScript - + JavaDoc style JavaScript comment Commentaire JavaScript de style JavaDoc - + JavaScript number Nombre JavaScript - + JavaScript word Mot JavaScript - + JavaScript keyword Mot-clé JavaScript - + JavaScript double-quoted string Chaine de caractères JavaScript (guillemets doubles) - + JavaScript single-quoted string Chaine de caractères JavaScript (guillemets simples) - + JavaScript symbol Symbole JavaScript - + JavaScript unclosed string Chaine de caractères JavaScript non refermée - + JavaScript regular expression Expression régulière JavaScript - + Start of an ASP JavaScript fragment Début de block JavaScript ASP - + ASP JavaScript default JavaScript ASP par défaut - + ASP JavaScript comment Commentaire JavaScript ASP - + ASP JavaScript line comment Commentaire de ligne JavaScript ASP - + JavaDoc style ASP JavaScript comment Commentaire JavaScript ASP de style JavaDoc - + ASP JavaScript number Nombre JavaScript ASP - + ASP JavaScript word Mot JavaScript ASP - + ASP JavaScript keyword Mot-clé JavaScript ASP - + ASP JavaScript double-quoted string Chaine de caractères JavaScript ASP (guillemets doubles) - + ASP JavaScript single-quoted string Chaine de caractères JavaScript ASP (guillemets simples) - + ASP JavaScript symbol Symbole JavaScript ASP - + ASP JavaScript unclosed string Chaine de caractères JavaScript ASP non refermée - + ASP JavaScript regular expression Expression régulière JavaScript ASP - + Start of a VBScript fragment Début de block VBScript - + VBScript default VBScript par défaut - + VBScript comment Commentaire VBScript - + VBScript number Nombre VBScript - + VBScript keyword Mot-clé VBScript - + VBScript string Chaine de caractères VBScript - + VBScript identifier Identificateur VBScript - + VBScript unclosed string Chaine de caractères VBScript non refermée - + Start of an ASP VBScript fragment Début de block VBScript ASP - + ASP VBScript default VBScript ASP par défaut - + ASP VBScript comment Commentaire VBScript ASP - + ASP VBScript number Nombre VBScript ASP - + ASP VBScript keyword Mot-clé VBScript ASP - + ASP VBScript string Chaine de caractères VBScript ASP - + ASP VBScript identifier Identificateur VBScript ASP - + ASP VBScript unclosed string Chaine de caractères VBScript ASP non refermée - + Start of a Python fragment Début de block Python - + Python default Python par défaut - + Python comment Commentaire Python - + Python number Nombre Python - + Python double-quoted string Chaine de caractères Python (guillemets doubles) - + Python single-quoted string Chaine de caractères Python (guillemets simples) - + Python keyword Mot-clé Python - + Python triple double-quoted string Chaine de caractères Python (triples guillemets doubles) - + Python triple single-quoted string Chaine de caractères Python (triples guillemets simples) - + Python class name Nom de classe Python - + Python function or method name Méthode ou fonction Python - + Python operator Opérateur Python - + Python identifier Identificateur Python - + Start of an ASP Python fragment Début de block Python ASP - + ASP Python default Python ASP par défaut - + ASP Python comment Commentaire Python ASP - + ASP Python number Nombre Python ASP - + ASP Python double-quoted string Chaine de caractères Python ASP (guillemets doubles) - + ASP Python single-quoted string Chaine de caractères Python ASP (guillemets simples) - + ASP Python keyword Mot-clé Python ASP - + ASP Python triple double-quoted string Chaine de caractères Python ASP (triples guillemets doubles) - + ASP Python triple single-quoted string Chaine de caractères Python ASP (triples guillemets simples) - + ASP Python class name Nom de classe Python ASP - + ASP Python function or method name Méthode ou fonction Python ASP - + ASP Python operator Opérateur Python ASP - + ASP Python identifier Identificateur Python ASP - + PHP default PHP par défaut - + PHP double-quoted string Chaine de caractères PHP (guillemets doubles) - + PHP single-quoted string Chaine de caractères PHP (guillemets simples) - + PHP keyword Mot-clé PHP - + PHP number Nombre PHP - + PHP variable Variable PHP - + PHP comment Commentaire PHP - + PHP line comment Commentaire de ligne PHP - + PHP double-quoted variable Variable PHP (guillemets doubles) - + PHP operator Opérateur PHP + + QsciLexerHex + + + Default + Par défaut + + + + Record start + + + + + Record type + + + + + Unknown record type + + + + + Byte count + + + + + Incorrect byte count + + + + + No address + + + + + Data address + + + + + Record count + + + + + Start address + + + + + Extended address + + + + + Odd data + + + + + Even data + + + + + Unknown data + + + + + Checksum + + + + + Incorrect checksum + + + + + Trailing garbage after a record + + + QsciLexerIDL - + UUID UUID @@ -2165,72 +2341,72 @@ QsciLexerJSON - + Default Par défaut - + Number Nombre - + String Chaîne de caractères - + Unclosed string Chaine de caractères non refermée - + Property Propriété - + Escape sequence Séquence d'échappement - + Line comment Commentaire de ligne - + Block comment Block de commentaires - + Operator Opérateur - + IRI - + JSON-LD compact IRI - + JSON keyword Mot-clé JSON - + JSON-LD keyword Mot-clé JSON-LD - + Parsing error Erreur d'analyse @@ -2238,7 +2414,7 @@ QsciLexerJavaScript - + Regular expression Expression régulière @@ -2246,102 +2422,102 @@ QsciLexerLua - + Default Par défaut - + Comment Commentaire - + Line comment Commentaire de ligne - + Number Nombre - + Keyword Mot-clé - + String Chaîne de caractères - + Character Caractère - + Literal string Chaîne littérale - + Preprocessor Préprocessing - + Operator Opérateur - + Identifier Identificateur - + Unclosed string Chaine de caractères non refermée - + Basic functions Fonctions de base - + String, table and maths functions Fonctions sur les chaines, tables et fonctions math - + Coroutines, i/o and system facilities Coroutines, i/o et fonctions système - + User defined 1 Définition utilisateur 1 - + User defined 2 Définition utilisateur 2 - + User defined 3 Définition utilisateur 3 - + User defined 4 Définition utilisateur 4 - + Label Titre @@ -2349,37 +2525,37 @@ QsciLexerMakefile - + Default Par défaut - + Comment Commentaire - + Preprocessor Préprocessing - + Variable Variable - + Operator Opérateur - + Target Cible - + Error Erreur @@ -2387,112 +2563,112 @@ QsciLexerMarkdown - + Default Par défaut - + Special Spécial - + Strong emphasis using double asterisks - + Strong emphasis using double underscores - + Emphasis using single asterisks - + Emphasis using single underscores - + Level 1 header - + Level 2 header - + Level 3 header - + Level 4 header - + Level 5 header - + Level 6 header - + Pre-char - + Unordered list item - + Ordered list item - + Block quote - + Strike out - + Horizontal rule - + Link - + Code between backticks - + Code between double backticks - + Code block @@ -2500,47 +2676,47 @@ QsciLexerMatlab - + Default Par défaut - + Comment Commentaire - + Command Commande - + Number Nombre - + Keyword Mot-clé - + Single-quoted string Chaine de caractères (guillemets simples) - + Operator Opérateur - + Identifier Identificateur - + Double-quoted string Chaine de caractères (guillemets doubles) @@ -2548,77 +2724,77 @@ QsciLexerPO - + Default Par défaut - + Comment Commentaire - + Message identifier - + Message identifier text - + Message string - + Message string text - + Message context - + Message context text - + Fuzzy flag - + Programmer comment - + Reference Référence - + Flags - + Message identifier text end-of-line - + Message string text end-of-line - + Message context text end-of-line @@ -2626,87 +2802,87 @@ QsciLexerPOV - + Default Par défaut - + Comment Commentaire - + Comment line Ligne commentée - + Number Nombre - + Operator Opérateur - + Identifier Identificateur - + String Chaîne de caractères - + Unclosed string Chaine de caractères non refermée - + Directive Directive - + Bad directive Mauvaise directive - + Objects, CSG and appearance Objets, CSG et apparence - + Types, modifiers and items Types, modifieurs et éléments - + Predefined identifiers Identifiants prédéfinis - + Predefined functions Fonctions prédéfinies - + User defined 1 Définition utilisateur 1 - + User defined 2 Définition utilisateur 2 - + User defined 3 Définition utilisateur 3 @@ -2714,77 +2890,77 @@ QsciLexerPascal - + Default Par défaut - + Line comment Commentaire de ligne - + Number Nombre - + Keyword Mot-clé - + Single-quoted string Chaine de caractères (guillemets simples) - + Operator Opérateur - + Identifier Identificateur - + '{ ... }' style comment - + '(* ... *)' style comment - + '{$ ... }' style pre-processor block - + '(*$ ... *)' style pre-processor block - + Hexadecimal number Nombre hexadécimal - + Unclosed string Chaine de caractères non refermée - + Character Caractère - + Inline asm Asm en ligne @@ -2792,207 +2968,207 @@ QsciLexerPerl - + Default Par défaut - + Error Erreur - + Comment Commentaire - + POD POD - + Number Nombre - + Keyword Mot-clé - + Double-quoted string Chaine de caractères (guillemets doubles) - + Single-quoted string Chaine de caractères (guillemets simples) - + Operator Opérateur - + Identifier Identificateur - + Scalar Scalaire - + Array Tableau - + Hash Hashage - + Symbol table Table de symboles - + Regular expression Expression régulière - + Substitution Substitution - + Backticks Quotes inverses - + Data section Section de données - + Here document delimiter Ici délimiteur de document - + Single-quoted here document Document intégré guillemets simples - + Double-quoted here document Document intégré guillemets doubles - + Backtick here document Document intégré quotes inverses - + Quoted string (q) Chaine quotée (q) - + Quoted string (qq) Chaine quotée (qq) - + Quoted string (qx) Chaine quotée (qx) - + Quoted string (qr) Chaine quotée (qr) - + Quoted string (qw) Chaine quotée (qw) - + POD verbatim POD verbatim - + Subroutine prototype - + Format identifier - + Format body - + Double-quoted string (interpolated variable) - + Translation Traduction - + Regular expression (interpolated variable) - + Substitution (interpolated variable) - + Backticks (interpolated variable) - + Double-quoted here document (interpolated variable) - + Backtick here document (interpolated variable) - + Quoted string (qq, interpolated variable) - + Quoted string (qx, interpolated variable) - + Quoted string (qr, interpolated variable) @@ -3000,82 +3176,82 @@ QsciLexerPostScript - + Default Par défaut - + Comment Commentaire - + DSC comment Commentaire DSC - + DSC comment value - + Number Nombre - + Name Nom - + Keyword Mot-clé - + Literal - + Immediately evaluated literal - + Array parenthesis - + Dictionary parenthesis - + Procedure parenthesis - + Text Texte - + Hexadecimal string - + Base85 string - + Bad string character @@ -3083,32 +3259,32 @@ QsciLexerProperties - + Default Par défaut - + Comment Commentaire - + Section Section - + Assignment Affectation - + Default value Valeur par défaut - + Key Clé @@ -3116,102 +3292,102 @@ QsciLexerPython - + Default Par défaut - + Comment Commentaire - + Number Nombre - + Double-quoted string Chaine de caractères (guillemets doubles) - + Single-quoted string Chaine de caractères (guillemets simples) - + Keyword Mot-clé - + Triple single-quoted string Chaine de caractères HTML (guillemets simples) - + Triple double-quoted string Chaine de caractères HTML (guillemets simples) - + Class name Nom de classe - + Function or method name Nom de méthode ou de fonction - + Operator Opérateur - + Identifier Identificateur - + Comment block Block de commentaires - + Unclosed string Chaine de caractères non refermée - + Highlighted identifier - + Decorator - + Double-quoted f-string - + Single-quoted f-string - + Triple single-quoted f-string - + Triple double-quoted f-string @@ -3219,157 +3395,157 @@ QsciLexerRuby - + Default Par défaut - + Comment Commentaire - + Number Nombre - + Double-quoted string Chaine de caractères (guillemets doubles) - + Single-quoted string Chaine de caractères (guillemets simples) - + Keyword Mot-clé - + Class name Nom de classe - + Function or method name Nom de méthode ou de fonction - + Operator Opérateur - + Identifier Identificateur - + Error Erreur - + POD POD - + Regular expression Expression régulière - + Global Global - + Symbol Symbole - + Module name Nom de module - + Instance variable - + Class variable - + Backticks Quotes inverses - + Data section Section de données - + Here document delimiter Ici délimiteur de document - + Here document Ici document - + %q string - + %Q string - + %x string - + %r string - + %w string - + Demoted keyword - + stdin - + stdout - + stderr @@ -3377,112 +3553,112 @@ QsciLexerSQL - + Default Par défaut - + Comment Commentaire - + Number Nombre - + Keyword Mot-clé - + Single-quoted string Chaine de caractères (guillemets simples) - + Operator Opérateur - + Identifier Identificateur - + Comment line Ligne commentée - + JavaDoc style comment Commentaire style JavaDoc - + Double-quoted string Chaine de caractères (guillemets doubles) - + SQL*Plus keyword Mot-clé SQL*Plus - + SQL*Plus prompt Prompt SQL*Plus - + SQL*Plus comment Commentaire SQL*Plus - + # comment line # Ligne commentée - + JavaDoc keyword Mot-clé JavaDoc - + JavaDoc keyword error Erreur de mot-clé JavaDoc - + User defined 1 Définition utilisateur 1 - + User defined 2 Définition utilisateur 2 - + User defined 3 Définition utilisateur 3 - + User defined 4 Définition utilisateur 4 - + Quoted identifier - + Quoted operator @@ -3490,47 +3666,47 @@ QsciLexerSpice - + Default Par défaut - + Identifier Identificateur - + Command Commande - + Function Fonction - + Parameter Paramètre - + Number Nombre - + Delimiter Délimiteur - + Value Valeur - + Comment Commentaire @@ -3538,112 +3714,112 @@ QsciLexerTCL - + Default Par défaut - + Comment Commentaire - + Comment line Ligne commentée - + Number Nombre - + Quoted keyword - + Quoted string - + Operator Opérateur - + Identifier Identificateur - + Substitution Substitution - + Brace substitution - + Modifier - + Expand keyword - + TCL keyword - + Tk keyword - + iTCL keyword - + Tk command - + User defined 1 Définition utilisateur 1 - + User defined 2 Définition utilisateur 2 - + User defined 3 Définition utilisateur 3 - + User defined 4 Définition utilisateur 4 - + Comment box - + Comment block Block de commentaires @@ -3651,32 +3827,32 @@ QsciLexerTeX - + Default Par défaut - + Special Spécial - + Group Groupe - + Symbol Symbole - + Command Commande - + Text Texte @@ -3684,82 +3860,82 @@ QsciLexerVHDL - + Default Par défaut - + Comment Commentaire - + Comment line Ligne commentée - + Number Nombre - + String Chaîne de caractères - + Operator Opérateur - + Identifier Identificateur - + Unclosed string Chaine de caractères non refermée - + Keyword Mot-clé - + Standard operator - + Attribute Attribut - + Standard function - + Standard package - + Standard type - + User defined Définition utilisateur - + Comment block Block de commentaires @@ -3767,192 +3943,192 @@ QsciLexerVerilog - + Default Par défaut - + Inactive default - + Comment Commentaire - + Inactive comment - + Line comment Commentaire de ligne - + Inactive line comment - + Bang comment - + Inactive bang comment - + Number Nombre - + Inactive number - + Primary keywords and identifiers - + Inactive primary keywords and identifiers - + String Chaîne de caractères - + Inactive string - + Secondary keywords and identifiers Seconds mots-clés et identificateurs - + Inactive secondary keywords and identifiers - + System task - + Inactive system task - + Preprocessor block - + Inactive preprocessor block - + Operator Opérateur - + Inactive operator - + Identifier Identificateur - + Inactive identifier - + Unclosed string Chaine de caractères non refermée - + Inactive unclosed string - + User defined tasks and identifiers - + Inactive user defined tasks and identifiers - + Keyword comment - + Inactive keyword comment - + Input port declaration - + Inactive input port declaration - + Output port declaration - + Inactive output port declaration - + Input/output port declaration - + Inactive input/output port declaration - + Port connection - + Inactive port connection @@ -3960,52 +4136,52 @@ QsciLexerYAML - + Default Par défaut - + Comment Commentaire - + Identifier Identificateur - + Keyword Mot-clé - + Number Nombre - + Reference Référence - + Document delimiter Délimiteur de document - + Text block marker - + Syntax error marker - + Operator Opérateur @@ -4013,37 +4189,37 @@ QsciScintilla - + &Undo - + &Redo - + Cu&t - + &Copy - + &Paste - + Delete - + Select All diff --git a/libs/qscintilla/Qt4Qt5/qscintilla_pt_br.qm b/libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_pt_br.qm similarity index 100% rename from libs/qscintilla/Qt4Qt5/qscintilla_pt_br.qm rename to libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_pt_br.qm diff --git a/libs/qscintilla/Qt4Qt5/qscintilla_pt_br.ts b/libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_pt_br.ts similarity index 85% rename from libs/qscintilla/Qt4Qt5/qscintilla_pt_br.ts rename to libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_pt_br.ts index 35a8df40b..a649350be 100644 --- a/libs/qscintilla/Qt4Qt5/qscintilla_pt_br.ts +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscintilla_pt_br.ts @@ -1,496 +1,496 @@ - + QsciCommand - + Move down one line Mover uma linha para baixo - + Extend selection down one line Extender a seleção uma linha para baixo - + Scroll view down one line Descer a visão uma linha para baixo - + Extend rectangular selection down one line Extender a seleção retangular uma linha para baixo - + Move up one line Mover uma linha para cima - + Extend selection up one line Extender a seleção uma linha para cima - + Scroll view up one line Subir a visão uma linha para cima - + Extend rectangular selection up one line Extender a seleção retangular uma linha para cima - + Move up one paragraph Mover um paragrafo para cima - + Extend selection up one paragraph Extender a seleção um paragrafo para cima - + Move down one paragraph Mover um paragrafo para baixo - + Scroll to start of document - + Scroll to end of document - + Scroll vertically to centre current line - + Extend selection down one paragraph Extender a seleção um paragrafo para baixo - + Move left one character Mover um caractere para a esquerda - + Extend selection left one character Extender a seleção um caractere para esquerda - + Move left one word Mover uma palavra para esquerda - + Extend selection left one word Extender a seleção uma palavra para esquerda - + Extend rectangular selection left one character Extender a seleção retangular um caractere para esquerda - + Move right one character Mover um caractere para direita - + Extend selection right one character Extender a seleção um caractere para direita - + Move right one word Mover uma palavra para direita - + Extend selection right one word Extender a seleção uma palavra para direita - + Extend rectangular selection right one character Extender a seleção retangular um caractere para direita - + Move to end of previous word - + Extend selection to end of previous word - + Move to end of next word - + Extend selection to end of next word - + Move left one word part Mover uma parte da palavra para esquerda - + Extend selection left one word part Extender a seleção uma parte de palavra para esquerda - + Move right one word part Mover uma parte da palavra para direita - + Extend selection right one word part Extender a seleção uma parte de palavra para direita - + Move up one page Mover uma página para cima - + Extend selection up one page Extender a seleção uma página para cima - + Extend rectangular selection up one page Extender a seleção retangular uma página para cima - + Move down one page Mover uma página para baixo - + Extend selection down one page Extender a seleção uma página para baixo - + Extend rectangular selection down one page Extender a seleção retangular uma página para baixo - + Delete current character Excluir caractere atual - + Cut selection Recortar seleção - + Delete word to right Excluir palavra para direita - + Move to start of document line - + Extend selection to start of document line - + Extend rectangular selection to start of document line - + Move to start of display line - + Extend selection to start of display line - + Move to start of display or document line - + Extend selection to start of display or document line - + Move to first visible character in document line - + Extend selection to first visible character in document line - + Extend rectangular selection to first visible character in document line - + Move to first visible character of display in document line - + Extend selection to first visible character in display or document line - + Move to end of document line - + Extend selection to end of document line - + Extend rectangular selection to end of document line - + Move to end of display line - + Extend selection to end of display line - + Move to end of display or document line - + Extend selection to end of display or document line - + Move to start of document - + Extend selection to start of document - + Move to end of document - + Extend selection to end of document - + Stuttered move up one page - + Stuttered extend selection up one page - + Stuttered move down one page - + Stuttered extend selection down one page - + Delete previous character if not at start of line - + Delete right to end of next word - + Delete line to right Excluir linha para direita - + Transpose current and previous lines - + Duplicate the current line - + Select all Select document - + Move selected lines up one line - + Move selected lines down one line - + Toggle insert/overtype Alternar entre modo de inserir/sobreescrever - + Paste Copiar - + Copy selection Copiar seleção - + Insert newline - + De-indent one level - + Cancel Cancelar - + Delete previous character Excluir caractere anterior - + Delete word to left Excluir palavra a esquerda - + Delete line to left Excluir linha a esquerda - + Undo last command - + Redo last command Refazer último comando - + Indent one level Indentar um nível - + Zoom in Aumentar zoom - + Zoom out Diminuir zoom - + Formfeed Alimentação da Página - + Cut current line Configurar linha atual - + Delete current line Excluir linha atual - + Copy current line Copiar linha atual - + Convert selection to lower case Converter a seleção para minúscula - + Convert selection to upper case Converter a seleção para maiúscula - + Duplicate selection @@ -498,150 +498,233 @@ QsciLexerAVS - + Default Padrão - + Block comment - + Nested block comment - + Line comment Comentar Linha - + Number Número - + Operator Operador - + Identifier Identificador - + Double-quoted string Cadeia de caracteres envolvida por aspas duplas - + Triple double-quoted string Cadeia de caracteres envolvida por três aspas duplas - + Keyword Palavra Chave - + Filter - + Plugin - + Function - + Clip property - + User defined + + QsciLexerAsm + + + Default + Padrão + + + + Comment + Comentário + + + + Number + Número + + + + Double-quoted string + Cadeia de caracteres envolvida por aspas duplas + + + + Operator + Operador + + + + Identifier + Identificador + + + + CPU instruction + + + + + FPU instruction + + + + + Register + + + + + Directive + Diretiva + + + + Directive operand + + + + + Block comment + + + + + Single-quoted string + Cadeia de caracteres envolvida por aspas simples + + + + Unclosed string + Cadeia de caracteres não fechada + + + + Extended instruction + + + + + Comment directive + + + QsciLexerBash - + Default Padrão - + Error Número - + Comment Comentário - + Number Número - + Keyword Palavra Chave - + Double-quoted string Cadeia de caracteres envolvida por aspas duplas - + Single-quoted string Cadeia de caracteres envolvida por aspas simples - + Operator Operador - + Identifier Identificador - + Scalar Escalar - + Parameter expansion Parâmetro de Expansão - + Backticks Aspas Invertidas - + Here document delimiter Delimitador de "here documents" - + Single-quoted here document "here document" envolvido por aspas simples @@ -649,42 +732,42 @@ QsciLexerBatch - + Default Padrão - + Comment Comentário - + Keyword Palavra Chave - + Label Rótulo - + Hide command character Esconder caractere de comando - + External command Comando externo - + Variable Variável - + Operator Operador @@ -692,77 +775,77 @@ QsciLexerCMake - + Default Padrão - + Comment Comentário - + String Cadeia de Caracteres - + Left quoted string - + Right quoted string - + Function - + Variable Variável - + Label Rótulo - + User defined - + WHILE block - + FOREACH block - + IF block - + MACRO block - + Variable within a string - + Number Número @@ -770,282 +853,282 @@ QsciLexerCPP - + Default Padrão - + Inactive default - + C comment Comentário C - + Inactive C comment - + C++ comment Comentário C++ - + Inactive C++ comment - + JavaDoc style C comment Comentário JavaDoc estilo C - + Inactive JavaDoc style C comment - + Number Número - + Inactive number - + Keyword Palavra Chave - + Inactive keyword - + Double-quoted string Cadeia de caracteres envolvida por aspas duplas - + Inactive double-quoted string - + Single-quoted string Cadeia de caracteres envolvida por aspas simples - + Inactive single-quoted string - + IDL UUID - + Inactive IDL UUID - + Pre-processor block Instruções de pré-processamento - + Inactive pre-processor block - + Operator Operador - + Inactive operator - + Identifier Identificador - + Inactive identifier - + Unclosed string Cadeia de caracteres não fechada - + Inactive unclosed string - + C# verbatim string - + Inactive C# verbatim string - + JavaScript regular expression Expressão regular JavaScript - + Inactive JavaScript regular expression - + JavaDoc style C++ comment Comentário JavaDoc estilo C++ - + Inactive JavaDoc style C++ comment - + Secondary keywords and identifiers Identificadores e palavras chave secundárias - + Inactive secondary keywords and identifiers - + JavaDoc keyword Palavra chave JavaDoc - + Inactive JavaDoc keyword - + JavaDoc keyword error Erro de palavra chave do JavaDoc - + Inactive JavaDoc keyword error - + Global classes and typedefs Classes e definições de tipo globais - + Inactive global classes and typedefs - + C++ raw string - + Inactive C++ raw string - + Vala triple-quoted verbatim string - + Inactive Vala triple-quoted verbatim string - + Pike hash-quoted string - + Inactive Pike hash-quoted string - + Pre-processor C comment - + Inactive pre-processor C comment - + JavaDoc style pre-processor comment - + Inactive JavaDoc style pre-processor comment - + User-defined literal - + Inactive user-defined literal - + Task marker - + Inactive task marker - + Escape sequence - + Inactive escape sequence @@ -1053,117 +1136,122 @@ QsciLexerCSS - + Default Padrão - + Tag Marcador - + Class selector Seletor de classe - + Pseudo-class Pseudo-classe - + Unknown pseudo-class Pseudo-classe desconhecida - + Operator Operador - + CSS1 property Propriedade CSS1 - + Unknown property Propriedade desconhecida - + Value Valor - + + Comment + Comentário + + + ID selector Seletor de ID - + Important Importante - + @-rule regra-@ - + Double-quoted string Cadeia de caracteres envolvida por aspas duplas - + Single-quoted string Cadeia de caracteres envolvida por aspas simples - + CSS2 property Propriedade CSS2 - + Attribute Atributo - + CSS3 property Propriedade CSS2 {3 ?} - + Pseudo-element - + Extended CSS property - + Extended pseudo-class - + Extended pseudo-element - + Media rule - + Variable Variável @@ -1171,7 +1259,7 @@ QsciLexerCSharp - + Verbatim string Cadeia de caracteres no formato verbatim @@ -1179,122 +1267,122 @@ QsciLexerCoffeeScript - + Default Padrão - + C-style comment - + C++-style comment - + JavaDoc C-style comment - + Number Número - + Keyword Palavra Chave - + Double-quoted string Cadeia de caracteres envolvida por aspas duplas - + Single-quoted string Cadeia de caracteres envolvida por aspas simples - + IDL UUID - + Pre-processor block Instruções de pré-processamento - + Operator Operador - + Identifier Identificador - + Unclosed string Cadeia de caracteres não fechada - + C# verbatim string - + Regular expression Expressão Regular - + JavaDoc C++-style comment - + Secondary keywords and identifiers Identificadores e palavras chave secundárias - + JavaDoc keyword Palavra chave JavaDoc - + JavaDoc keyword error Erro de palavra chave do JavaDoc - + Global classes - + Block comment - + Block regular expression - + Block regular expression comment - + Instance property @@ -1302,117 +1390,117 @@ QsciLexerD - + Default Padrão - + Block comment - + Line comment Comentar Linha - + DDoc style block comment - + Nesting comment - + Number Número - + Keyword Palavra Chave - + Secondary keyword - + Documentation keyword - + Type definition - + String Cadeia de Caracteres - + Unclosed string Cadeia de caracteres não fechada - + Character Caractere - + Operator Operador - + Identifier Identificador - + DDoc style line comment - + DDoc keyword Palavra chave JavaDoc - + DDoc keyword error Erro de palavra chave do JavaDoc - + Backquoted string - + Raw string - + User defined 1 Definição de usuário 1 - + User defined 2 Definição de usuário 2 - + User defined 3 Definição de usuário 3 @@ -1420,62 +1508,62 @@ QsciLexerDiff - + Default Padrão - + Comment Comentário - + Command Comando - + Header Cabeçalho - + Position Posição - + Removed line Linha Removida - + Added line Linha Adicionada - + Changed line - + Added adding patch - + Removed adding patch - + Added removing patch - + Removed removing patch @@ -1483,47 +1571,47 @@ QsciLexerEDIFACT - + Default Padrão - + Segment start - + Segment end - + Element separator - + Composite separator - + Release separator - + UNA segment header - + UNH segment header - + Badly formed segment @@ -1531,77 +1619,77 @@ QsciLexerFortran77 - + Default Padrão - + Comment Comentário - + Number Número - + Single-quoted string Cadeia de caracteres envolvida por aspas simples - + Double-quoted string Cadeia de caracteres envolvida por aspas duplas - + Unclosed string Cadeia de caracteres não fechada - + Operator Operador - + Identifier Identificador - + Keyword Palavra Chave - + Intrinsic function - + Extended function - + Pre-processor block Instruções de pré-processamento - + Dotted operator - + Label Rótulo - + Continuation @@ -1609,555 +1697,643 @@ QsciLexerHTML - + HTML default HTML por padrão - + Tag Marcador - + Unknown tag Marcador desconhecido - + Attribute Atributo - + Unknown attribute Atributo desconhecido - + HTML number Número HTML - + HTML double-quoted string Cadeia de caracteres HTML envolvida por aspas duplas - + HTML single-quoted string Cadeia de caracteres HTML envolvida por aspas simples - + Other text in a tag Outro texto em um marcador - + HTML comment Comentário HTML - + Entity Entidade - + End of a tag Final de um marcador - + Start of an XML fragment Início de um bloco XML - + End of an XML fragment Final de um bloco XML - + Script tag Marcador de script - + Start of an ASP fragment with @ Início de um bloco ASP com @ - + Start of an ASP fragment Início de um bloco ASP - + CDATA CDATA - + Start of a PHP fragment Início de um bloco PHP - + Unquoted HTML value Valor HTML não envolvido por aspas - + ASP X-Code comment Comentário ASP X-Code - + SGML default SGML por padrão - + SGML command Comando SGML - + First parameter of an SGML command Primeiro parâmetro em um comando SGML - + SGML double-quoted string Cadeia de caracteres SGML envolvida por aspas duplas - + SGML single-quoted string Cadeia de caracteres SGML envolvida por aspas simples - + SGML error Erro SGML - + SGML special entity Entidade especial SGML - + SGML comment Comando SGML - + First parameter comment of an SGML command Primeiro comentário de parâmetro de uma comando SGML - + SGML block default Bloco SGML por padrão - + Start of a JavaScript fragment Início de um bloco Javascript - + JavaScript default JavaScript por padrão - + JavaScript comment Comentário JavaScript - + JavaScript line comment Comentário de linha JavaScript - + JavaDoc style JavaScript comment Comentário JavaScript no estilo JavaDoc - + JavaScript number Número JavaScript - + JavaScript word Palavra JavaScript - + JavaScript keyword Palavra chave JavaScript - + JavaScript double-quoted string Cadeia de caracteres JavaScript envolvida por aspas duplas - + JavaScript single-quoted string Cadeia de caracteres JavaScript envolvida por aspas simples - + JavaScript symbol Símbolo JavaScript - + JavaScript unclosed string Cadeia de caracteres JavaScript não fechada - + JavaScript regular expression Expressão regular JavaScript - + Start of an ASP JavaScript fragment Início de um bloco Javascript ASP - + ASP JavaScript default JavaScript ASP por padrão - + ASP JavaScript comment Comentário JavaScript ASP - + ASP JavaScript line comment Comentário de linha JavaScript ASP - + JavaDoc style ASP JavaScript comment Comentário JavaScript ASP no estilo JavaDoc - + ASP JavaScript number Número JavaScript ASP - + ASP JavaScript word Palavra chave JavaScript ASP - + ASP JavaScript keyword Palavra chave JavaScript ASP - + ASP JavaScript double-quoted string Cadeia de caracteres JavaScript ASP envolvida por aspas duplas - + ASP JavaScript single-quoted string Cadeia de caracteres JavaScript ASP envolvida por aspas simples - + ASP JavaScript symbol Símbolo JavaScript ASP - + ASP JavaScript unclosed string Cadeia de caracteres JavaScript ASP não fechada - + ASP JavaScript regular expression Expressão regular JavaScript ASP - + Start of a VBScript fragment Início de um bloco VBScript - + VBScript default VBScript por padrão - + VBScript comment Comentário VBScript - + VBScript number Número VBScript - + VBScript keyword Palavra chave VBScript - + VBScript string Cadeia de caracteres VBScript - + VBScript identifier Identificador VBScript - + VBScript unclosed string Cadeia de caracteres VBScript não fechada - + Start of an ASP VBScript fragment Início de um bloco VBScript ASP - + ASP VBScript default VBScript ASP por padrão - + ASP VBScript comment Comentário VBScript ASP - + ASP VBScript number Número VBScript ASP - + ASP VBScript keyword Palavra chave VBScript ASP - + ASP VBScript string Cadeia de caracteres VBScript ASP - + ASP VBScript identifier Identificador VBScript ASP - + ASP VBScript unclosed string Cadeia de caracteres VBScript ASP não fechada - + Start of a Python fragment Início de um bloco Python - + Python default Python por padrão - + Python comment Comentário Python - + Python number Número Python - + Python double-quoted string Cadeia de caracteres Python envolvida por aspas duplas - + Python single-quoted string Cadeia de caracteres Python envolvida por aspas simples - + Python keyword Palavra chave Python - + Python triple double-quoted string Cadeia de caracteres Python envolvida por aspas triplas duplas - + Python triple single-quoted string Cadeia de caracteres Python envolvida por aspas triplas simples - + Python class name Nome de classe Python - + Python function or method name Nome de método ou função Python - + Python operator Operador Python - + Python identifier Identificador Python - + Start of an ASP Python fragment Início de um bloco Python ASP - + ASP Python default Python ASP por padrão - + ASP Python comment Comentário Python ASP - + ASP Python number Número Python ASP - + ASP Python double-quoted string Cadeia de caracteres Python ASP envolvida por aspas duplas - + ASP Python single-quoted string Cadeia de caracteres Python ASP envolvida por aspas simples - + ASP Python keyword Palavra chave Python ASP - + ASP Python triple double-quoted string Cadeia de caracteres Python ASP envolvida por aspas triplas duplas - + ASP Python triple single-quoted string Cadeia de caracteres Python ASP envolvida por aspas triplas simples - + ASP Python class name Nome de classe Python ASP - + ASP Python function or method name Nome de método ou função Python ASP - + ASP Python operator Operador Python ASP - + ASP Python identifier Identificador Python ASP - + PHP default PHP por padrão - + PHP double-quoted string Cadeia de caracteres PHP envolvida por aspas duplas - + PHP single-quoted string Cadeia de caracteres PHP envolvida por aspas simples - + PHP keyword Palavra chave PHP - + PHP number Número PHP - + PHP variable Variável PHP - + PHP comment Comentário PHP - + PHP line comment Comentário de linha PHP - + PHP double-quoted variable Variável PHP envolvida por aspas duplas - + PHP operator Operador PHP + + QsciLexerHex + + + Default + Padrão + + + + Record start + + + + + Record type + + + + + Unknown record type + + + + + Byte count + + + + + Incorrect byte count + + + + + No address + + + + + Data address + + + + + Record count + + + + + Start address + + + + + Extended address + + + + + Odd data + + + + + Even data + + + + + Unknown data + + + + + Checksum + + + + + Incorrect checksum + + + + + Trailing garbage after a record + + + QsciLexerIDL - + UUID UUID @@ -2165,72 +2341,72 @@ QsciLexerJSON - + Default Padrão - + Number Número - + String Cadeia de Caracteres - + Unclosed string Cadeia de caracteres não fechada - + Property - + Escape sequence - + Line comment Comentar Linha - + Block comment - + Operator Operador - + IRI - + JSON-LD compact IRI - + JSON keyword - + JSON-LD keyword - + Parsing error @@ -2238,7 +2414,7 @@ QsciLexerJavaScript - + Regular expression Expressão Regular @@ -2246,102 +2422,102 @@ QsciLexerLua - + Default Padrão - + Comment Comentário - + Line comment Comentar Linha - + Number Número - + Keyword Palavra Chave - + String Cadeia de Caracteres - + Character Caractere - + Literal string Cadeia de caracteres literal - + Preprocessor Preprocessador - + Operator Operador - + Identifier Identificador - + Unclosed string Cadeia de caracteres não fechada - + Basic functions Funções básicas - + String, table and maths functions Funções de cadeia de caracteres e de tabelas matemáticas - + Coroutines, i/o and system facilities Funções auxiiares, e/s e funções de sistema - + User defined 1 Definição de usuário 1 - + User defined 2 Definição de usuário 2 - + User defined 3 Definição de usuário 3 - + User defined 4 Definição de usuário 4 - + Label Rótulo @@ -2349,37 +2525,37 @@ QsciLexerMakefile - + Default Padrão - + Comment Comentário - + Preprocessor Preprocessador - + Variable Variável - + Operator Operador - + Target Destino - + Error Erro @@ -2387,112 +2563,112 @@ QsciLexerMarkdown - + Default Padrão - + Special Especial - + Strong emphasis using double asterisks - + Strong emphasis using double underscores - + Emphasis using single asterisks - + Emphasis using single underscores - + Level 1 header - + Level 2 header - + Level 3 header - + Level 4 header - + Level 5 header - + Level 6 header - + Pre-char - + Unordered list item - + Ordered list item - + Block quote - + Strike out - + Horizontal rule - + Link - + Code between backticks - + Code between double backticks - + Code block @@ -2500,47 +2676,47 @@ QsciLexerMatlab - + Default Padrão - + Comment Comentário - + Command Comando - + Number Número - + Keyword Palavra Chave - + Single-quoted string Cadeia de caracteres envolvida por aspas simples - + Operator Operador - + Identifier Identificador - + Double-quoted string Cadeia de caracteres envolvida por aspas duplas @@ -2548,77 +2724,77 @@ QsciLexerPO - + Default Padrão - + Comment Comentário - + Message identifier - + Message identifier text - + Message string - + Message string text - + Message context - + Message context text - + Fuzzy flag - + Programmer comment - + Reference - + Flags - + Message identifier text end-of-line - + Message string text end-of-line - + Message context text end-of-line @@ -2626,87 +2802,87 @@ QsciLexerPOV - + Default Padrão - + Comment Comentário - + Comment line Comentar Linha - + Number Número - + Operator Operador - + Identifier Identificador - + String Cadeia de Caracteres - + Unclosed string Cadeia de caracteres não fechada - + Directive Diretiva - + Bad directive Diretiva ruim - + Objects, CSG and appearance Objetos, CSG e aparência - + Types, modifiers and items Tipos, modificadores e itens - + Predefined identifiers Identificadores predefinidos - + Predefined functions Funções predefinidas - + User defined 1 Definição de usuário 1 - + User defined 2 Definição de usuário 2 - + User defined 3 Definição de usuário 3 @@ -2714,77 +2890,77 @@ QsciLexerPascal - + Default Padrão - + Line comment Comentar Linha - + Number Número - + Keyword Palavra Chave - + Single-quoted string Cadeia de caracteres envolvida por aspas simples - + Operator Operador - + Identifier Identificador - + '{ ... }' style comment - + '(* ... *)' style comment - + '{$ ... }' style pre-processor block - + '(*$ ... *)' style pre-processor block - + Hexadecimal number - + Unclosed string Cadeia de caracteres não fechada - + Character Caractere - + Inline asm @@ -2792,207 +2968,207 @@ QsciLexerPerl - + Default Padrão - + Error Erro - + Comment Comentário - + POD POD - + Number Número - + Keyword Palavra Chave - + Double-quoted string Cadeia de caracteres envolvida por aspas duplas - + Single-quoted string Cadeia de caracteres envolvida por aspas simples - + Operator Operador - + Identifier Identificador - + Scalar Escalar - + Array Vetor - + Hash Hash - + Symbol table Tabela de Símbolos - + Regular expression Expressão Regular - + Substitution Substituição - + Backticks Aspas Invertidas - + Data section Seção de dados - + Here document delimiter Delimitador de documentos criados através de redicionadores (>> e >) - + Single-quoted here document "here document" envolvido por aspas simples - + Double-quoted here document "here document" envolvido por aspas duplas - + Backtick here document "here document" envolvido por aspas invertidas - + Quoted string (q) Cadeia de caracteres envolvida por aspas (q) - + Quoted string (qq) Cadeia de caracteres envolvida por aspas (qq) - + Quoted string (qx) Cadeia de caracteres envolvida por aspas (qx) - + Quoted string (qr) Cadeia de caracteres envolvida por aspas (qr) - + Quoted string (qw) Cadeia de caracteres envolvida por aspas (qw) - + POD verbatim POD em formato verbatim - + Subroutine prototype - + Format identifier - + Format body - + Double-quoted string (interpolated variable) - + Translation - + Regular expression (interpolated variable) - + Substitution (interpolated variable) - + Backticks (interpolated variable) - + Double-quoted here document (interpolated variable) - + Backtick here document (interpolated variable) - + Quoted string (qq, interpolated variable) - + Quoted string (qx, interpolated variable) - + Quoted string (qr, interpolated variable) @@ -3000,82 +3176,82 @@ QsciLexerPostScript - + Default Padrão - + Comment Comentário - + DSC comment - + DSC comment value - + Number Número - + Name - + Keyword Palavra Chave - + Literal - + Immediately evaluated literal - + Array parenthesis - + Dictionary parenthesis - + Procedure parenthesis - + Text Texto - + Hexadecimal string - + Base85 string - + Bad string character @@ -3083,32 +3259,32 @@ QsciLexerProperties - + Default Padrão - + Comment Comentário - + Section Seção - + Assignment Atribuição - + Default value Valor Padrão - + Key @@ -3116,102 +3292,102 @@ QsciLexerPython - + Default Padrão - + Comment Comentário - + Number Número - + Double-quoted string Cadeia de caracteres envolvida por aspas duplas - + Single-quoted string Cadeia de caracteres envolvida por aspas simples - + Keyword Palavra Chave - + Triple single-quoted string Cadeia de caracteres envolvida por três aspas simples - + Triple double-quoted string Cadeia de caracteres envolvida por três aspas duplas - + Class name Nome da classe - + Function or method name Nome da função ou método - + Operator Operador - + Identifier Identificador - + Comment block Bloco de comentários - + Unclosed string Cadeia de caracteres não fechada - + Highlighted identifier - + Decorator - + Double-quoted f-string - + Single-quoted f-string - + Triple single-quoted f-string - + Triple double-quoted f-string @@ -3219,157 +3395,157 @@ QsciLexerRuby - + Default Padrão - + Comment Comentário - + Number Número - + Double-quoted string Cadeia de caracteres envolvida por aspas duplas - + Single-quoted string Cadeia de caracteres envolvida por aspas simples - + Keyword Palavra Chave - + Class name Nome da classe - + Function or method name Nome da função ou método - + Operator Operador - + Identifier Identificador - + Error - + POD POD - + Regular expression Expressão Regular - + Global - + Symbol Símbolo - + Module name - + Instance variable - + Class variable - + Backticks Aspas Invertidas - + Data section Seção de dados - + Here document delimiter - + Here document - + %q string - + %Q string - + %x string - + %r string - + %w string - + Demoted keyword - + stdin - + stdout - + stderr @@ -3377,112 +3553,112 @@ QsciLexerSQL - + Default Padrão - + Comment Comentário - + Number Número - + Keyword Palavra Chave - + Single-quoted string Cadeia de caracteres envolvida por aspas simples - + Operator Operador - + Identifier Identificador - + Comment line Comentário de Linha - + JavaDoc style comment Comentário estilo JavaDoc - + Double-quoted string Cadeia de caracteres envolvida por aspas duplas - + SQL*Plus keyword Palavra chave do SQL*Plus - + SQL*Plus prompt Prompt do SQL*Plus - + SQL*Plus comment Comentário do SQL*Plus - + # comment line Comentário de linha usando # - + JavaDoc keyword Palavra chave JavaDoc - + JavaDoc keyword error Erro de palavra chave do JavaDoc - + User defined 1 Definição de usuário 1 - + User defined 2 Definição de usuário 2 - + User defined 3 Definição de usuário 3 - + User defined 4 Definição de usuário 4 - + Quoted identifier - + Quoted operator @@ -3490,47 +3666,47 @@ QsciLexerSpice - + Default Padrão - + Identifier Identificador - + Command Comando - + Function - + Parameter - + Number Número - + Delimiter - + Value Valor - + Comment Comentário @@ -3538,112 +3714,112 @@ QsciLexerTCL - + Default Padrão - + Comment Comentário - + Comment line - + Number Número - + Quoted keyword - + Quoted string - + Operator Operador - + Identifier Identificador - + Substitution Substituição - + Brace substitution - + Modifier - + Expand keyword - + TCL keyword - + Tk keyword - + iTCL keyword - + Tk command - + User defined 1 Definição de usuário 1 - + User defined 2 Definição de usuário 2 - + User defined 3 Definição de usuário 3 - + User defined 4 Definição de usuário 4 - + Comment box - + Comment block Bloco de comentários @@ -3651,32 +3827,32 @@ QsciLexerTeX - + Default Padrão - + Special Especial - + Group Grupo - + Symbol Símbolo - + Command Comando - + Text Texto @@ -3684,82 +3860,82 @@ QsciLexerVHDL - + Default Padrão - + Comment Comentário - + Comment line - + Number Número - + String Cadeia de Caracteres - + Operator Operador - + Identifier Identificador - + Unclosed string Cadeia de caracteres não fechada - + Keyword Palavra Chave - + Standard operator - + Attribute Atributo - + Standard function - + Standard package - + Standard type - + User defined - + Comment block Bloco de comentários @@ -3767,192 +3943,192 @@ QsciLexerVerilog - + Default Padrão - + Inactive default - + Comment Comentário - + Inactive comment - + Line comment Comentar Linha - + Inactive line comment - + Bang comment - + Inactive bang comment - + Number Número - + Inactive number - + Primary keywords and identifiers - + Inactive primary keywords and identifiers - + String Cadeia de Caracteres - + Inactive string - + Secondary keywords and identifiers Identificadores e palavras chave secundárias - + Inactive secondary keywords and identifiers - + System task - + Inactive system task - + Preprocessor block - + Inactive preprocessor block - + Operator Operador - + Inactive operator - + Identifier Identificador - + Inactive identifier - + Unclosed string Cadeia de caracteres não fechada - + Inactive unclosed string - + User defined tasks and identifiers - + Inactive user defined tasks and identifiers - + Keyword comment - + Inactive keyword comment - + Input port declaration - + Inactive input port declaration - + Output port declaration - + Inactive output port declaration - + Input/output port declaration - + Inactive input/output port declaration - + Port connection - + Inactive port connection @@ -3960,52 +4136,52 @@ QsciLexerYAML - + Default Padrão - + Comment Comentário - + Identifier Identificador - + Keyword Palavra Chave - + Number Número - + Reference - + Document delimiter - + Text block marker - + Syntax error marker - + Operator Operador @@ -4013,37 +4189,37 @@ QsciScintilla - + &Undo - + &Redo - + Cu&t - + &Copy - + &Paste - + Delete - + Select All diff --git a/libs/qscintilla/Qt4Qt5/qsciprinter.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qsciprinter.cpp similarity index 91% rename from libs/qscintilla/Qt4Qt5/qsciprinter.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/qsciprinter.cpp index c95c0fc71..7f40fde46 100644 --- a/libs/qscintilla/Qt4Qt5/qsciprinter.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qsciprinter.cpp @@ -1,6 +1,6 @@ // This module implements the QsciPrinter class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -48,8 +48,9 @@ void QsciPrinter::formatPage(QPainter &, bool, QRect &, int) } -// Print a range of lines to a printer. -int QsciPrinter::printRange(QsciScintillaBase *qsb, int from, int to) +// Print a range of lines to a printer using a supplied QPainter. +int QsciPrinter::printRange(QsciScintillaBase *qsb, QPainter &painter, + int from, int to) { // Sanity check. if (!qsb) @@ -87,14 +88,14 @@ int QsciPrinter::printRange(QsciScintillaBase *qsb, int from, int to) 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 <= numCopies(); ++i) + for (int i = 1; i <= nr_copies; ++i) { // If we are printing in reverse page order then remember the start // position of each page. @@ -170,6 +171,15 @@ int QsciPrinter::printRange(QsciScintillaBase *qsb, int from, int to) } +// 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/Qt4Qt5/qsciscintilla.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qsciscintilla.cpp similarity index 97% rename from libs/qscintilla/Qt4Qt5/qsciscintilla.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/qsciscintilla.cpp index d261ba408..d167a9901 100644 --- a/libs/qscintilla/Qt4Qt5/qsciscintilla.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/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) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -390,8 +390,8 @@ void QsciScintilla::callTip() ct = ct_entries.join("\n"); } - ScintillaBytes ct_bytes = textAsBytes(ct); - const char *cts = ScintillaBytesConstData(ct_bytes); + QByteArray ct_bytes = textAsBytes(ct); + const char *cts = ct_bytes.constData(); SendScintilla(SCI_CALLTIPSHOW, adjustedCallTipPosition(shift), cts); @@ -470,10 +470,8 @@ void QsciScintilla::handleCallTipClick(int dir) if (ct_cursor > 0) ct.prepend('\001'); - ScintillaBytes ct_bytes = textAsBytes(ct); - const char *cts = ScintillaBytesConstData(ct_bytes); - - SendScintilla(SCI_CALLTIPSHOW, adjustedCallTipPosition(shift), cts); + SendScintilla(SCI_CALLTIPSHOW, adjustedCallTipPosition(shift), + textAsBytes(ct).constData()); } @@ -676,8 +674,8 @@ void QsciScintilla::startAutoCompletion(AutoCompletionSource acs, return; // Get the last word's raw data and length. - ScintillaBytes s = textAsBytes(context.last()); - const char *last_data = ScintillaBytesConstData(s); + QByteArray s = textAsBytes(context.last()); + const char *last_data = s.constData(); int last_len = s.length(); if (checkThresh && last_len < acThresh) @@ -777,8 +775,8 @@ void QsciScintilla::startAutoCompletion(AutoCompletionSource acs, SendScintilla(SCI_AUTOCSETCHOOSESINGLE, choose_single); SendScintilla(SCI_AUTOCSETSEPARATOR, acSeparator); - ScintillaBytes wlist_s = textAsBytes(wlist.join(QChar(acSeparator))); - SendScintilla(SCI_AUTOCSHOW, last_len, ScintillaBytesConstData(wlist_s)); + SendScintilla(SCI_AUTOCSHOW, last_len, + textAsBytes(wlist.join(QChar(acSeparator))).constData()); } @@ -1883,10 +1881,9 @@ int QsciScintilla::simpleFind() SendScintilla(SCI_SETTARGETSTART, findState.startpos); SendScintilla(SCI_SETTARGETEND, findState.endpos); - ScintillaBytes s = textAsBytes(findState.expr); + QByteArray s = textAsBytes(findState.expr); - return SendScintilla(SCI_SEARCHINTARGET, s.length(), - ScintillaBytesConstData(s)); + return SendScintilla(SCI_SEARCHINTARGET, s.length(), s.constData()); } @@ -1903,8 +1900,7 @@ void QsciScintilla::replace(const QString &replaceStr) int cmd = (findState.flags & SCFIND_REGEXP) ? SCI_REPLACETARGETRE : SCI_REPLACETARGET; - ScintillaBytes s = textAsBytes(replaceStr); - long len = SendScintilla(cmd, -1, ScintillaBytesConstData(s)); + long len = SendScintilla(cmd, -1, textAsBytes(replaceStr).constData()); // Reset the selection. SendScintilla(SCI_SETSELECTIONSTART, start); @@ -1914,7 +1910,10 @@ void QsciScintilla::replace(const QString &replaceStr) findState.endpos_orig += (len - orig_len); if (findState.forward) + { findState.startpos = start + len; + findState.endpos += (len - orig_len); + } } @@ -2183,8 +2182,8 @@ void QsciScintilla::append(const QString &text) { bool ro = ensureRW(); - ScintillaBytes s = textAsBytes(text); - SendScintilla(SCI_APPENDTEXT, s.length(), ScintillaBytesConstData(s)); + QByteArray s = textAsBytes(text); + SendScintilla(SCI_APPENDTEXT, s.length(), s.constData()); SendScintilla(SCI_EMPTYUNDOBUFFER); @@ -2212,8 +2211,7 @@ void QsciScintilla::insertAtPos(const QString &text, int pos) bool ro = ensureRW(); SendScintilla(SCI_BEGINUNDOACTION); - SendScintilla(SCI_INSERTTEXT, pos, - ScintillaBytesConstData(textAsBytes(text))); + SendScintilla(SCI_INSERTTEXT, pos, textAsBytes(text).constData()); SendScintilla(SCI_ENDUNDOACTION); setReadOnly(ro); @@ -2308,7 +2306,7 @@ void QsciScintilla::removeSelectedText() // Replace any selected text. void QsciScintilla::replaceSelectedText(const QString &text) { - SendScintilla(SCI_REPLACESEL, ScintillaBytesConstData(textAsBytes(text))); + SendScintilla(SCI_REPLACESEL, textAsBytes(text).constData()); } @@ -2318,11 +2316,12 @@ QString QsciScintilla::selectedText() const if (!selText) return QString(); - char *buf = new char[SendScintilla(SCI_GETSELECTIONEND) - SendScintilla(SCI_GETSELECTIONSTART) + 1]; + int size = SendScintilla(SCI_GETSELECTIONEND) - SendScintilla(SCI_GETSELECTIONSTART); + char *buf = new char[size + 1]; SendScintilla(SCI_GETSELTEXT, buf); - QString qs = bytesAsText(buf); + QString qs = bytesAsText(buf, size); delete[] buf; return qs; @@ -2332,12 +2331,14 @@ QString QsciScintilla::selectedText() const // Return the current text. QString QsciScintilla::text() const { - int buflen = length() + 1; - char *buf = new char[buflen]; + int size = length(); + char *buf = new char[size + 1]; - SendScintilla(SCI_GETTEXT, buflen, buf); + // Note that the docs seem to be wrong and we need to ask for the length + // plus the '\0'. + SendScintilla(SCI_GETTEXT, size + 1, buf); - QString qs = bytesAsText(buf); + QString qs = bytesAsText(buf, size); delete[] buf; return qs; @@ -2347,17 +2348,16 @@ QString QsciScintilla::text() const // Return the text of a line. QString QsciScintilla::text(int line) const { - int line_len = lineLength(line); + int size = lineLength(line); - if (line_len < 1) + if (size < 1) return QString(); - char *buf = new char[line_len + 1]; + char *buf = new char[size]; SendScintilla(SCI_GETLINE, line, buf); - buf[line_len] = '\0'; - QString qs = bytesAsText(buf); + QString qs = bytesAsText(buf, size); delete[] buf; return qs; @@ -2367,9 +2367,10 @@ QString QsciScintilla::text(int line) const // Return the text between two positions. QString QsciScintilla::text(int start, int end) const { - char *buf = new char[end - start + 1]; + int size = end - start; + char *buf = new char[size + 1]; SendScintilla(SCI_GETTEXTRANGE, start, end, buf); - QString text = bytesAsText(buf); + QString text = bytesAsText(buf, size); delete[] buf; return text; @@ -2392,7 +2393,9 @@ void QsciScintilla::setText(const QString &text) { bool ro = ensureRW(); - SendScintilla(SCI_SETTEXT, ScintillaBytesConstData(textAsBytes(text))); + SendScintilla(SCI_CLEARALL); + QByteArray bytes = textAsBytes(text); + SendScintilla(SCI_ADDTEXT, bytes.size(), bytes.constData()); SendScintilla(SCI_EMPTYUNDOBUFFER); setReadOnly(ro); @@ -2463,9 +2466,8 @@ void QsciScintilla::clear() { bool ro = ensureRW(); - SendScintilla(SCI_BEGINUNDOACTION); SendScintilla(SCI_CLEARALL); - SendScintilla(SCI_ENDUNDOACTION); + SendScintilla(SCI_EMPTYUNDOBUFFER); setReadOnly(ro); } @@ -2704,9 +2706,7 @@ void QsciScintilla::setMarginText(int line, const QString &text, int style) { int style_offset = SendScintilla(SCI_MARGINGETSTYLEOFFSET); - SendScintilla(SCI_MARGINSETTEXT, line, - ScintillaBytesConstData(textAsBytes(text))); - + SendScintilla(SCI_MARGINSETTEXT, line, textAsBytes(text).constData()); SendScintilla(SCI_MARGINSETSTYLE, line, style - style_offset); } @@ -2733,11 +2733,10 @@ void QsciScintilla::setMarginText(int line, const QsciStyledText &text) void QsciScintilla::setMarginText(int line, const QList &text) { char *styles; - ScintillaBytes styled_text = styleText(text, &styles, + QByteArray styled_text = styleText(text, &styles, SendScintilla(SCI_MARGINGETSTYLEOFFSET)); - SendScintilla(SCI_MARGINSETTEXT, line, - ScintillaBytesConstData(styled_text)); + SendScintilla(SCI_MARGINSETTEXT, line, styled_text.constData()); SendScintilla(SCI_MARGINSETSTYLES, line, styles); delete[] styles; @@ -2805,7 +2804,7 @@ void QsciScintilla::setMarginWidth(int margin, int width) void QsciScintilla::setMarginWidth(int margin, const QString &s) { int width = SendScintilla(SCI_TEXTWIDTH, STYLE_LINENUMBER, - ScintillaBytesConstData(textAsBytes(s))); + textAsBytes(s).constData()); setMarginWidth(margin, width); } @@ -3641,7 +3640,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()); @@ -4056,8 +4055,8 @@ void QsciScintilla::showUserList(int id, const QStringList &list) SendScintilla(SCI_AUTOCSETSEPARATOR, userSeparator); - ScintillaBytes s = textAsBytes(list.join(QChar(userSeparator))); - SendScintilla(SCI_USERLISTSHOW, id, ScintillaBytesConstData(s)); + SendScintilla(SCI_USERLISTSHOW, id, + textAsBytes(list.join(QChar(userSeparator))).constData()); } @@ -4227,9 +4226,7 @@ void QsciScintilla::annotate(int line, const QString &text, int style) { int style_offset = SendScintilla(SCI_ANNOTATIONGETSTYLEOFFSET); - ScintillaBytes s = textAsBytes(text); - - SendScintilla(SCI_ANNOTATIONSETTEXT, line, ScintillaBytesConstData(s)); + SendScintilla(SCI_ANNOTATIONSETTEXT, line, textAsBytes(text).constData()); SendScintilla(SCI_ANNOTATIONSETSTYLE, line, style - style_offset); setScrollBars(); @@ -4258,11 +4255,10 @@ void QsciScintilla::annotate(int line, const QsciStyledText &text) void QsciScintilla::annotate(int line, const QList &text) { char *styles; - ScintillaBytes styled_text = styleText(text, &styles, + QByteArray styled_text = styleText(text, &styles, SendScintilla(SCI_ANNOTATIONGETSTYLEOFFSET)); - SendScintilla(SCI_ANNOTATIONSETTEXT, line, - ScintillaBytesConstData(styled_text)); + SendScintilla(SCI_ANNOTATIONSETTEXT, line, styled_text.constData()); SendScintilla(SCI_ANNOTATIONSETSTYLES, line, styles); delete[] styles; @@ -4272,11 +4268,10 @@ void QsciScintilla::annotate(int line, const QList &text) // Get the annotation for a line, if any. QString QsciScintilla::annotation(int line) const { - char *buf = new char[SendScintilla(SCI_ANNOTATIONGETTEXT, line, (const char *)0) + 1]; - - buf[SendScintilla(SCI_ANNOTATIONGETTEXT, line, buf)] = '\0'; + int size = SendScintilla(SCI_ANNOTATIONGETTEXT, line, (const char *)0); + char *buf = new char[size + 1]; - QString qs = bytesAsText(buf); + QString qs = bytesAsText(buf, size); delete[] buf; return qs; @@ -4284,7 +4279,8 @@ QString QsciScintilla::annotation(int line) const // Convert a list of styled text to the low-level arrays. -QsciScintillaBase::ScintillaBytes QsciScintilla::styleText(const QList &styled_text, char **styles, int style_offset) +QByteArray QsciScintilla::styleText(const QList &styled_text, + char **styles, int style_offset) { QString text; int i; @@ -4299,7 +4295,7 @@ QsciScintillaBase::ScintillaBytes QsciScintilla::styleText(const QListmodifiers() & zoom_modifier) != 0) { - if (e->delta() > 0) + QPoint ad = e->angleDelta(); + int delta = (qAbs(ad.x()) > qAbs(ad.y())) ? ad.x() : ad.y(); + + if (delta > 0) zoomIn(); else zoomOut(); diff --git a/libs/qscintilla/Qt4Qt5/qsciscintillabase.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qsciscintillabase.cpp similarity index 94% rename from libs/qscintilla/Qt4Qt5/qsciscintillabase.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/qsciscintillabase.cpp index 6e1018c2b..2e3f06348 100644 --- a/libs/qscintilla/Qt4Qt5/qsciscintillabase.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qsciscintillabase.cpp @@ -1,6 +1,6 @@ // This module implements the "official" low-level API. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // @@ -36,7 +36,6 @@ #include #include #include -#include #include "SciAccessibility.h" #include "ScintillaQt.h" @@ -80,17 +79,15 @@ static const QLatin1String mimeTextPlain("text/plain"); static const QLatin1String mimeRectangularWin("MSDEVColumnSelect"); static const QLatin1String mimeRectangular("text/x-qscintilla-rectangular"); -#if (QT_VERSION >= 0x040200 && QT_VERSION < 0x050000 && defined(Q_OS_MAC)) || (QT_VERSION >= 0x050200 && defined(Q_OS_OSX)) +#if QT_VERSION < 0x060000 && defined(Q_OS_OSX) extern void initialiseRectangularPasteboardMime(); #endif // The ctor. QsciScintillaBase::QsciScintillaBase(QWidget *parent) - : QAbstractScrollArea(parent), preeditPos(-1), preeditNrBytes(0) -#if QT_VERSION >= 0x050000 - , clickCausedFocus(false) -#endif + : QAbstractScrollArea(parent), preeditPos(-1), preeditNrBytes(0), + clickCausedFocus(false) { #if !defined(QT_NO_ACCESSIBILITY) QsciAccessibleScintillaBase::initialise(); @@ -103,12 +100,8 @@ 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); @@ -116,7 +109,7 @@ QsciScintillaBase::QsciScintillaBase(QWidget *parent) triple_click.setSingleShot(true); -#if (QT_VERSION >= 0x040200 && QT_VERSION < 0x050000 && defined(Q_OS_MAC)) || (QT_VERSION >= 0x050200 && defined(Q_OS_OSX)) +#if QT_VERSION < 0x060000 && defined(Q_OS_OSX) initialiseRectangularPasteboardMime(); #endif @@ -131,11 +124,6 @@ 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); } @@ -326,11 +314,7 @@ 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); } @@ -369,14 +353,6 @@ 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) { @@ -413,7 +389,7 @@ void QsciScintillaBase::keyPressEvent(QKeyEvent *e) if (!text.isEmpty() && text[0].isPrint()) { - ScintillaBytes bytes = textAsBytes(text); + QByteArray bytes = textAsBytes(text); sci->AddCharUTF(bytes.data(), bytes.length()); e->accept(); } @@ -516,7 +492,7 @@ int QsciScintillaBase::commandKey(int qt_key, int &modifiers) // Encode a QString as bytes. -QsciScintillaBase::ScintillaBytes QsciScintillaBase::textAsBytes(const QString &text) const +QByteArray QsciScintillaBase::textAsBytes(const QString &text) const { if (sci->IsUnicodeMode()) return text.toUtf8(); @@ -526,12 +502,12 @@ QsciScintillaBase::ScintillaBytes QsciScintillaBase::textAsBytes(const QString & // Decode bytes as a QString. -QString QsciScintillaBase::bytesAsText(const char *bytes) const +QString QsciScintillaBase::bytesAsText(const char *bytes, int size) const { if (sci->IsUnicodeMode()) - return QString::fromUtf8(bytes); + return QString::fromUtf8(bytes, size); - return QString::fromLatin1(bytes); + return QString::fromLatin1(bytes, size); } @@ -608,7 +584,7 @@ void QsciScintillaBase::mousePressEvent(QMouseEvent *e) sci->RightButtonDownWithModifiers(pt, clickTime, QsciScintillaQt::ModifierFlags(shift, ctrl, alt)); } - else if (e->button() == Qt::MidButton) + else if (e->button() == Qt::MiddleButton) { QClipboard *cb = QApplication::clipboard(); @@ -641,7 +617,6 @@ 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)); @@ -651,7 +626,6 @@ void QsciScintillaBase::mouseReleaseEvent(QMouseEvent *e) } clickCausedFocus = false; -#endif } diff --git a/libs/qscintilla/Qt4Qt5/qscistyle.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscistyle.cpp similarity index 98% rename from libs/qscintilla/Qt4Qt5/qscistyle.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/qscistyle.cpp index 0e984563f..b863ada6f 100644 --- a/libs/qscintilla/Qt4Qt5/qscistyle.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscistyle.cpp @@ -1,6 +1,6 @@ // This module implements the QsciStyle class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/Qt4Qt5/qscistyledtext.cpp b/libs/qscintilla_2.14.1/Qt5Qt6/qscistyledtext.cpp similarity index 96% rename from libs/qscintilla/Qt4Qt5/qscistyledtext.cpp rename to libs/qscintilla_2.14.1/Qt5Qt6/qscistyledtext.cpp index 6534128d8..8aa37f53c 100644 --- a/libs/qscintilla/Qt4Qt5/qscistyledtext.cpp +++ b/libs/qscintilla_2.14.1/Qt5Qt6/qscistyledtext.cpp @@ -1,6 +1,6 @@ // This module implements the QsciStyledText class. // -// Copyright (c) 2019 Riverbank Computing Limited +// Copyright (c) 2023 Riverbank Computing Limited // // This file is part of QScintilla. // diff --git a/libs/qscintilla/include/ILexer.h b/libs/qscintilla_2.14.1/scintilla/include/ILexer.h similarity index 100% rename from libs/qscintilla/include/ILexer.h rename to libs/qscintilla_2.14.1/scintilla/include/ILexer.h diff --git a/libs/qscintilla/include/ILoader.h b/libs/qscintilla_2.14.1/scintilla/include/ILoader.h similarity index 100% rename from libs/qscintilla/include/ILoader.h rename to libs/qscintilla_2.14.1/scintilla/include/ILoader.h diff --git a/libs/qscintilla/include/License.txt b/libs/qscintilla_2.14.1/scintilla/include/License.txt similarity index 100% rename from libs/qscintilla/include/License.txt rename to libs/qscintilla_2.14.1/scintilla/include/License.txt diff --git a/libs/qscintilla/include/Platform.h b/libs/qscintilla_2.14.1/scintilla/include/Platform.h similarity index 100% rename from libs/qscintilla/include/Platform.h rename to libs/qscintilla_2.14.1/scintilla/include/Platform.h diff --git a/libs/qscintilla/include/SciLexer.h b/libs/qscintilla_2.14.1/scintilla/include/SciLexer.h similarity index 100% rename from libs/qscintilla/include/SciLexer.h rename to libs/qscintilla_2.14.1/scintilla/include/SciLexer.h diff --git a/libs/qscintilla/include/Sci_Position.h b/libs/qscintilla_2.14.1/scintilla/include/Sci_Position.h similarity index 100% rename from libs/qscintilla/include/Sci_Position.h rename to libs/qscintilla_2.14.1/scintilla/include/Sci_Position.h diff --git a/libs/qscintilla/include/Scintilla.h b/libs/qscintilla_2.14.1/scintilla/include/Scintilla.h similarity index 100% rename from libs/qscintilla/include/Scintilla.h rename to libs/qscintilla_2.14.1/scintilla/include/Scintilla.h diff --git a/libs/qscintilla/include/Scintilla.iface b/libs/qscintilla_2.14.1/scintilla/include/Scintilla.iface similarity index 100% rename from libs/qscintilla/include/Scintilla.iface rename to libs/qscintilla_2.14.1/scintilla/include/Scintilla.iface diff --git a/libs/qscintilla/include/ScintillaWidget.h b/libs/qscintilla_2.14.1/scintilla/include/ScintillaWidget.h similarity index 100% rename from libs/qscintilla/include/ScintillaWidget.h rename to libs/qscintilla_2.14.1/scintilla/include/ScintillaWidget.h diff --git a/libs/qscintilla_2.14.1/scintilla/lexers/LexA68k.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexA68k.cpp new file mode 100644 index 000000000..1475ad078 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexA68k.cpp @@ -0,0 +1,345 @@ +// 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_2.14.1/scintilla/lexers/LexAPDL.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexAPDL.cpp new file mode 100644 index 000000000..447e40d58 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexAPDL.cpp @@ -0,0 +1,257 @@ +// 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_2.14.1/scintilla/lexers/LexASY.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexASY.cpp new file mode 100644 index 000000000..3ec522729 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexASY.cpp @@ -0,0 +1,269 @@ +// 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_2.14.1/scintilla/lexers/LexAU3.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexAU3.cpp new file mode 100644 index 000000000..b4029413c --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexAU3.cpp @@ -0,0 +1,908 @@ +// 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_2.14.1/scintilla/lexers/LexAVE.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexAVE.cpp new file mode 100644 index 000000000..b976734ae --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexAVE.cpp @@ -0,0 +1,229 @@ +// 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_2.14.1/scintilla/lexers/LexAVS.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexAVS.cpp new file mode 100644 index 000000000..df5223f8d --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexAVS.cpp @@ -0,0 +1,291 @@ +// 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_2.14.1/scintilla/lexers/LexAbaqus.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexAbaqus.cpp new file mode 100644 index 000000000..96a7b886e --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexAbaqus.cpp @@ -0,0 +1,603 @@ +// 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_2.14.1/scintilla/lexers/LexAda.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexAda.cpp new file mode 100644 index 000000000..9d7f5d0f7 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexAda.cpp @@ -0,0 +1,513 @@ +// 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_2.14.1/scintilla/lexers/LexAsm.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexAsm.cpp new file mode 100644 index 000000000..bd82b1621 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexAsm.cpp @@ -0,0 +1,466 @@ +// 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_2.14.1/scintilla/lexers/LexAsn1.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexAsn1.cpp new file mode 100644 index 000000000..0ec2a0636 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexAsn1.cpp @@ -0,0 +1,186 @@ +// 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_2.14.1/scintilla/lexers/LexBaan.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexBaan.cpp new file mode 100644 index 000000000..fa8b46302 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexBaan.cpp @@ -0,0 +1,988 @@ +// 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_2.14.1/scintilla/lexers/LexBash.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexBash.cpp new file mode 100644 index 000000000..5bbd563d5 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexBash.cpp @@ -0,0 +1,907 @@ +// 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_2.14.1/scintilla/lexers/LexBasic.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexBasic.cpp new file mode 100644 index 000000000..4ec58dcdd --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexBasic.cpp @@ -0,0 +1,565 @@ +// 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_2.14.1/scintilla/lexers/LexBatch.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexBatch.cpp new file mode 100644 index 000000000..db7e37688 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexBatch.cpp @@ -0,0 +1,498 @@ +// 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_2.14.1/scintilla/lexers/LexBibTeX.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexBibTeX.cpp new file mode 100644 index 000000000..7e4cb9fc1 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexBibTeX.cpp @@ -0,0 +1,308 @@ +// 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_2.14.1/scintilla/lexers/LexBullant.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexBullant.cpp new file mode 100644 index 000000000..2386d2252 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexBullant.cpp @@ -0,0 +1,231 @@ +// 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_2.14.1/scintilla/lexers/LexCLW.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexCLW.cpp new file mode 100644 index 000000000..d469d6bfd --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexCLW.cpp @@ -0,0 +1,680 @@ +// 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_2.14.1/scintilla/lexers/LexCOBOL.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexCOBOL.cpp new file mode 100644 index 000000000..f0374824f --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexCOBOL.cpp @@ -0,0 +1,379 @@ +// 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_2.14.1/scintilla/lexers/LexCPP.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexCPP.cpp new file mode 100644 index 000000000..3dac142ab --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexCPP.cpp @@ -0,0 +1,1725 @@ +// 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_2.14.1/scintilla/lexers/LexCSS.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexCSS.cpp new file mode 100644 index 000000000..c1a86f537 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexCSS.cpp @@ -0,0 +1,567 @@ +// 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_2.14.1/scintilla/lexers/LexCaml.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexCaml.cpp new file mode 100644 index 000000000..1339b5dcc --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexCaml.cpp @@ -0,0 +1,460 @@ +// 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_2.14.1/scintilla/lexers/LexCmake.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexCmake.cpp new file mode 100644 index 000000000..b8fe15496 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexCmake.cpp @@ -0,0 +1,455 @@ +// 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_2.14.1/scintilla/lexers/LexCoffeeScript.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexCoffeeScript.cpp new file mode 100644 index 000000000..a00162335 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexCoffeeScript.cpp @@ -0,0 +1,483 @@ +// 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_2.14.1/scintilla/lexers/LexConf.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexConf.cpp new file mode 100644 index 000000000..73fbe46ef --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexConf.cpp @@ -0,0 +1,190 @@ +// 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_2.14.1/scintilla/lexers/LexCrontab.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexCrontab.cpp new file mode 100644 index 000000000..7f6d5fb0c --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexCrontab.cpp @@ -0,0 +1,224 @@ +// 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_2.14.1/scintilla/lexers/LexCsound.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexCsound.cpp new file mode 100644 index 000000000..24603801e --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexCsound.cpp @@ -0,0 +1,212 @@ +// 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_2.14.1/scintilla/lexers/LexD.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexD.cpp new file mode 100644 index 000000000..acbf462ed --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexD.cpp @@ -0,0 +1,567 @@ +/** @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_2.14.1/scintilla/lexers/LexDMAP.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexDMAP.cpp new file mode 100644 index 000000000..91b10c29b --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexDMAP.cpp @@ -0,0 +1,226 @@ +// 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_2.14.1/scintilla/lexers/LexDMIS.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexDMIS.cpp new file mode 100644 index 000000000..fa024e9e7 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexDMIS.cpp @@ -0,0 +1,354 @@ +// 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_2.14.1/scintilla/lexers/LexDiff.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexDiff.cpp new file mode 100644 index 000000000..dd008c5cb --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexDiff.cpp @@ -0,0 +1,161 @@ +// 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_2.14.1/scintilla/lexers/LexECL.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexECL.cpp new file mode 100644 index 000000000..6c916bce4 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexECL.cpp @@ -0,0 +1,519 @@ +// 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_2.14.1/scintilla/lexers/LexEDIFACT.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexEDIFACT.cpp new file mode 100644 index 000000000..6da0759a0 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexEDIFACT.cpp @@ -0,0 +1,336 @@ +// 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_2.14.1/scintilla/lexers/LexEScript.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexEScript.cpp new file mode 100644 index 000000000..0cba29858 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexEScript.cpp @@ -0,0 +1,274 @@ +// 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_2.14.1/scintilla/lexers/LexEiffel.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexEiffel.cpp new file mode 100644 index 000000000..d1d42a960 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexEiffel.cpp @@ -0,0 +1,239 @@ +// 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_2.14.1/scintilla/lexers/LexErlang.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexErlang.cpp new file mode 100644 index 000000000..4ca5962c3 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexErlang.cpp @@ -0,0 +1,624 @@ +// 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_2.14.1/scintilla/lexers/LexErrorList.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexErrorList.cpp new file mode 100644 index 000000000..b3dcd2a59 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexErrorList.cpp @@ -0,0 +1,393 @@ +// 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_2.14.1/scintilla/lexers/LexFlagship.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexFlagship.cpp new file mode 100644 index 000000000..b73c1aa1e --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexFlagship.cpp @@ -0,0 +1,352 @@ +// 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_2.14.1/scintilla/lexers/LexForth.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexForth.cpp new file mode 100644 index 000000000..80842097d --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexForth.cpp @@ -0,0 +1,168 @@ +// 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_2.14.1/scintilla/lexers/LexFortran.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexFortran.cpp new file mode 100644 index 000000000..28298b3ed --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexFortran.cpp @@ -0,0 +1,721 @@ +// 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_2.14.1/scintilla/lexers/LexGAP.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexGAP.cpp new file mode 100644 index 000000000..a2eca95ab --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexGAP.cpp @@ -0,0 +1,264 @@ +// 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_2.14.1/scintilla/lexers/LexGui4Cli.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexGui4Cli.cpp new file mode 100644 index 000000000..e321a5b85 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexGui4Cli.cpp @@ -0,0 +1,311 @@ +// 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/lexers/LexHTML.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexHTML.cpp similarity index 100% rename from libs/qscintilla/lexers/LexHTML.cpp rename to libs/qscintilla_2.14.1/scintilla/lexers/LexHTML.cpp diff --git a/libs/qscintilla_2.14.1/scintilla/lexers/LexHaskell.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexHaskell.cpp new file mode 100644 index 000000000..680a0f296 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexHaskell.cpp @@ -0,0 +1,1110 @@ +/****************************************************************** + * 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_2.14.1/scintilla/lexers/LexHex.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexHex.cpp new file mode 100644 index 000000000..6e1099786 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexHex.cpp @@ -0,0 +1,1045 @@ +// 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_2.14.1/scintilla/lexers/LexIndent.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexIndent.cpp new file mode 100644 index 000000000..053bdd928 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexIndent.cpp @@ -0,0 +1,71 @@ +// 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_2.14.1/scintilla/lexers/LexInno.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexInno.cpp new file mode 100644 index 000000000..5d01c0588 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexInno.cpp @@ -0,0 +1,288 @@ +// 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/lexers/LexJSON.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexJSON.cpp similarity index 100% rename from libs/qscintilla/lexers/LexJSON.cpp rename to libs/qscintilla_2.14.1/scintilla/lexers/LexJSON.cpp diff --git a/libs/qscintilla_2.14.1/scintilla/lexers/LexKVIrc.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexKVIrc.cpp new file mode 100644 index 000000000..0cae2a234 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexKVIrc.cpp @@ -0,0 +1,471 @@ +// 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_2.14.1/scintilla/lexers/LexKix.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexKix.cpp new file mode 100644 index 000000000..bcd68137e --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexKix.cpp @@ -0,0 +1,134 @@ +// 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_2.14.1/scintilla/lexers/LexLPeg.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexLPeg.cpp new file mode 100644 index 000000000..dfba76188 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexLPeg.cpp @@ -0,0 +1,799 @@ +/** + * 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_2.14.1/scintilla/lexers/LexLaTeX.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexLaTeX.cpp new file mode 100644 index 000000000..ed9e6a6b3 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexLaTeX.cpp @@ -0,0 +1,538 @@ +// 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_2.14.1/scintilla/lexers/LexLisp.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexLisp.cpp new file mode 100644 index 000000000..8e7586355 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexLisp.cpp @@ -0,0 +1,283 @@ +// 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_2.14.1/scintilla/lexers/LexLout.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexLout.cpp new file mode 100644 index 000000000..abba91ad1 --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexLout.cpp @@ -0,0 +1,213 @@ +// 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_2.14.1/scintilla/lexers/LexLua.cpp b/libs/qscintilla_2.14.1/scintilla/lexers/LexLua.cpp new file mode 100644 index 000000000..9e6e8a70c --- /dev/null +++ b/libs/qscintilla_2.14.1/scintilla/lexers/LexLua.cpp @@ -0,0 +1,502 @@ +// 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 == ':') { // ::