nano-max-hub 0.0.1

data/rouge-5.0.0/lib/rouge/lexers/clojure.rb

@@ -0,0 +1,113 @@
+# -*- coding: utf-8 -*- #
+# frozen_string_literal: true
+
+module Rouge
+  module Lexers
+    class Clojure < RegexLexer
+      title "Clojure"
+      desc "The Clojure programming language (clojure.org)"
+
+      tag 'clojure'
+      aliases 'clj', 'cljs'
+
+      filenames '*.clj', '*.cljs', '*.cljc', 'build.boot', '*.edn'
+
+      mimetypes 'text/x-clojure', 'application/x-clojure'
+
+      def self.keywords
+        @keywords ||= Set.new %w(
+          fn def defn defmacro defmethod defmulti defn- defstruct if
+          cond let for
+        )
+      end
+
+      def self.builtins
+        @builtins ||= Set.new %w(
+          . ..  * + - -> / < <= = == > >= accessor agent agent-errors
+          aget alength all-ns alter and append-child apply array-map
+          aset aset-boolean aset-byte aset-char aset-double aset-float
+          aset-int aset-long aset-short assert assoc await await-for bean
+          binding bit-and bit-not bit-or bit-shift-left bit-shift-right
+          bit-xor boolean branch?  butlast byte cast char children
+          class clear-agent-errors comment commute comp comparator
+          complement concat conj cons constantly construct-proxy
+          contains? count create-ns create-struct cycle dec  deref
+          difference disj dissoc distinct doall doc dorun doseq dosync
+          dotimes doto double down drop drop-while edit end? ensure eval
+          every? false? ffirst file-seq filter find find-doc find-ns
+          find-var first float flush fnseq frest gensym get-proxy-class
+          get hash-map hash-set identical? identity if-let import in-ns
+          inc index insert-child insert-left insert-right inspect-table
+          inspect-tree instance? int interleave intersection into
+          into-array iterate join key keys keyword keyword? last lazy-cat
+          lazy-cons left lefts line-seq list* list load load-file locking
+          long loop macroexpand macroexpand-1 make-array make-node map
+          map-invert map? mapcat max max-key memfn merge merge-with meta
+          min min-key name namespace neg? new newline next nil? node not
+          not-any? not-every? not= ns-imports ns-interns ns-map ns-name
+          ns-publics ns-refers ns-resolve ns-unmap nth nthrest or parse
+          partial path peek pop pos? pr pr-str print print-str println
+          println-str prn prn-str project proxy proxy-mappings quot
+          rand rand-int range re-find re-groups re-matcher re-matches
+          re-pattern re-seq read read-line reduce ref ref-set refer rem
+          remove remove-method remove-ns rename rename-keys repeat replace
+          replicate resolve rest resultset-seq reverse rfirst right
+          rights root rrest rseq second select select-keys send send-off
+          seq seq-zip seq? set short slurp some sort sort-by sorted-map
+          sorted-map-by sorted-set special-symbol? split-at split-with
+          str string?  struct struct-map subs subvec symbol symbol?
+          sync take take-nth take-while test time to-array to-array-2d
+          tree-seq true? union up update-proxy val vals var-get var-set
+          var? vector vector-zip vector? when when-first when-let
+          when-not with-local-vars with-meta with-open with-out-str
+          xml-seq xml-zip zero? zipmap zipper'
+        )
+      end
+
+      identifier = %r([\w!$%*+,<=>?/.-]+)
+      keyword = %r([\w!\#$%*+,<=>?/.-]+)
+
+      def name_token(name)
+        return Keyword if self.class.keywords.include?(name)
+        return Name::Builtin if self.class.builtins.include?(name)
+        nil
+      end
+
+      state :root do
+        rule %r/;.*?$/, Comment::Single
+        rule %r/\s+/m, Text::Whitespace
+
+        rule %r/-?\d+\.\d+/, Num::Float
+        rule %r/-?\d+/, Num::Integer
+        rule %r/0x-?[0-9a-fA-F]+/, Num::Hex
+
+        rule %r/"(\\.|[^"])*"/, Str
+        rule %r/'#{keyword}/, Str::Symbol
+        rule %r/::?#{keyword}/, Name::Constant
+        rule %r/\\(.|[a-z]+)/i, Str::Char
+
+
+        rule %r/~@|[`\'#^~&@]/, Operator
+
+        rule %r/(\()(\s*)(#{identifier})/m do |m|
+          token Punctuation, m[1]
+          token Text::Whitespace, m[2]
+          token(name_token(m[3]) || Name::Function, m[3])
+        end
+
+        rule identifier do |m|
+          token name_token(m[0]) || Name
+        end
+
+        # vectors
+        rule %r/[\[\]]/, Punctuation
+
+        # maps
+        rule %r/[{}]/, Punctuation
+
+        # parentheses
+        rule %r/[()]/, Punctuation
+      end
+    end
+  end
+end

data/rouge-5.0.0/lib/rouge/lexers/cmake.rb

@@ -0,0 +1,218 @@
+# -*- coding: utf-8 -*- #
+# frozen_string_literal: true
+
+module Rouge
+  module Lexers
+    class CMake < RegexLexer
+      title 'CMake'
+      desc 'The cross-platform, open-source build system'
+      tag 'cmake'
+      filenames 'CMakeLists.txt', '*.cmake'
+      mimetypes 'text/x-cmake'
+
+      SPACE = '[ \t]'
+      BRACKET_OPEN = '\[=*\['
+
+      STATES_MAP = {
+        :root => Text,
+        :bracket_string => Str::Double,
+        :quoted_argument => Str::Double,
+        :bracket_comment => Comment::Multiline,
+        :variable_reference => Name::Variable,
+      }
+
+      BUILTIN_COMMANDS = Set.new %w[
+        add_compile_definitions
+        add_compile_options
+        add_custom_command
+        add_custom_target
+        add_definitions
+        add_dependencies
+        add_executable
+        add_library
+        add_link_options
+        add_subdirectory
+        add_test
+        aux_source_directory
+        break
+        build_command
+        build_name
+        cmake_host_system_information
+        cmake_language
+        cmake_minimum_required
+        cmake_parse_arguments
+        cmake_policy
+        configure_file
+        create_test_sourcelist
+        define_property
+        else
+        elseif
+        enable_language
+        enable_testing
+        endforeach
+        endfunction
+        endif
+        endmacro
+        endwhile
+        exec_program
+        execute_process
+        export
+        export_library_dependencies
+        file
+        find_file
+        find_library
+        find_package
+        find_path
+        find_program
+        fltk_wrap_ui
+        foreach
+        function
+        get_cmake_property
+        get_directory_property
+        get_filename_component
+        get_property
+        get_source_file_property
+        get_target_property
+        get_test_property
+        if
+        include
+        include_directories
+        include_external_msproject
+        include_guard
+        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
+        return
+        separate_arguments
+        set
+        set_directory_properties
+        set_property
+        set_source_files_properties
+        set_target_properties
+        set_tests_properties
+        site_name
+        source_group
+        string
+        subdir_depends
+        subdirs
+        target_compile_definitions
+        target_compile_features
+        target_compile_options
+        target_include_directories
+        target_link_directories
+        target_link_libraries
+        target_link_options
+        target_precompile_headers
+        target_sources
+        try_compile
+        try_run
+        unset
+        use_mangled_mesa
+        utility_source
+        variable_requires
+        variable_watch
+        while
+        write_file
+      ]
+
+      state :default do
+        rule %r/\r\n?|\n/ do
+          token STATES_MAP[state.name.to_sym]
+        end
+        rule %r/./ do
+          token STATES_MAP[state.name.to_sym]
+        end
+      end
+
+      state :variable_interpolation do
+        rule %r/\$\{/ do
+          token Str::Interpol
+          push :variable_reference
+        end
+      end
+
+      state :bracket_close do
+        rule %r/\]=*\]/ do |m|
+          token STATES_MAP[state.name.to_sym]
+          goto :root if m[0].length == @bracket_len
+        end
+      end
+
+      state :root do
+        mixin :variable_interpolation
+
+        rule %r/#{SPACE}/, Text
+        rule %r/[()]/, Punctuation
+
+        rule %r/##{BRACKET_OPEN}/ do |m|
+          token Comment::Multiline
+          @bracket_len = m[0].length - 1 # decount '#'
+          goto :bracket_comment
+        end
+        rule %r/#{BRACKET_OPEN}/ do |m|
+          token Str::Double
+          @bracket_len = m[0].length
+          goto :bracket_string
+        end
+
+        rule %r/\\"/, Text
+        rule %r/"/, Str::Double, :quoted_argument
+
+        rule %r/([A-Za-z_][A-Za-z0-9_]*)(#{SPACE}*)(\()/ do |m|
+          groups BUILTIN_COMMANDS.include?(m[1]) ? Name::Builtin : Name::Function, Text, Punctuation
+        end
+
+        rule %r/#.*/, Comment::Single
+
+        mixin :default
+      end
+
+      state :bracket_string do
+        mixin :bracket_close
+        mixin :variable_interpolation
+        mixin :default
+      end
+
+      state :bracket_comment do
+        mixin :bracket_close
+        mixin :default
+      end
+
+      state :variable_reference do
+        mixin :variable_interpolation
+
+        rule %r/}/, Str::Interpol, :pop!
+
+        mixin :default
+      end
+
+      state :quoted_argument do
+        mixin :variable_interpolation
+
+        rule %r/"/, Str::Double, :root
+        rule %r/\\[()#" \\$@^trn;]/, Str::Escape
+
+        mixin :default
+      end
+    end
+  end
+end

data/rouge-5.0.0/lib/rouge/lexers/cmhg.rb

@@ -0,0 +1,34 @@
+# -*- coding: utf-8 -*- #
+# frozen_string_literal: true
+
+module Rouge
+  module Lexers
+    class CMHG < RegexLexer
+      title "CMHG"
+      desc "RISC OS C module header generator source file"
+      tag 'cmhg'
+      filenames '*.cmhg'
+
+      def self.preproc_keyword
+        @preproc_keyword ||= %w(
+          define elif else endif error if ifdef ifndef include line pragma undef warning
+        )
+      end
+
+      state :root do
+        rule %r/;[^\n]*/, Comment
+        rule %r/^([ \t]*)(#[ \t]*(?:(?:#{CMHG.preproc_keyword.join('|')})(?:[ \t].*)?)?)(?=\n)/ do
+          groups Text, Comment::Preproc
+        end
+        rule %r/[-a-z]+:/, Keyword::Declaration
+        rule %r/[a-z_]\w+/i, Name::Entity
+        rule %r/"[^"]*"/, Literal::String
+        rule %r/(?:&|0x)\h+/, Literal::Number::Hex
+        rule %r/\d+/, Literal::Number
+        rule %r/[,\/()]/, Punctuation
+        rule %r/[ \t]+/, Text
+        rule %r/\n+/, Text
+      end
+    end
+  end
+end

data/rouge-5.0.0/lib/rouge/lexers/cobol.rb

@@ -0,0 +1,137 @@
+# -*- coding: utf-8 -*- #
+# frozen_string_literal: true
+
+module Rouge
+  module Lexers
+    class COBOL < RegexLexer
+      title 'COBOL'
+      desc 'COBOL (Common Business-Oriented Language) programming language'
+      tag 'cobol'
+      filenames '*.cob', '*.cbl', '*.cpy', '*.cpb'
+      mimetypes 'text/x-cobol'
+
+      identifier = /\p{Alpha}[\p{Alnum}-]*/
+
+      def self.divisions
+        @divisions ||= %w(
+          IDENTIFICATION ENVIRONMENT DATA PROCEDURE DIVISION
+        )
+      end
+
+      def self.sections
+        @sections ||= %w(
+          CONFIGURATION INPUT-OUTPUT FILE WORKING-STORAGE LOCAL-STORAGE LINKAGE SECTION
+        )
+      end
+
+      # List of COBOL keywords
+      # sourced from https://www.ibm.com/docs/en/cobol-zos/6.4?topic=appendixes-reserved-words
+      def self.keywords
+        @keywords ||= Set.new(%w(
+          ACCEPT ACCESS ACTIVE-CLASS ADD ADDRESS ADVANCING AFTER ALIGNED ALL ALLOCATE ALPHABET ALPHABETIC ALPHABETIC-LOWER
+          ALPHABETIC-UPPER ALPHANUMERIC ALPHANUMERIC-EDITED ALSO ALTER ALTERNATE AND ANYCASE ANY APPLY ARE AREA AREAS
+          ASCENDING ASSIGN AT AUTHOR B-AND B-NOT B-OR B-XOR BASED BASIS BEFORE BEGINNING BINARY BINARY-CHAR BINARY-DOUBLE
+          BINARY-LONG BINARY-SHORT BIT BLANK BLOCK BOOLEAN BOTTOM BY BYTE-LENGTH CALL CANCEL CBL CD CF CH CHARACTER
+          CHARACTERS CLASS CLASS-ID CLOCK-UNITS CLOSE COBOL CODE CODE-SET COL COLLATING COLS COLUMN COLUMNS COM-REG COMMA
+          COMMON COMMUNICATION COMP-1 COMP-2 COMP-3 COMP-4 COMP-5 COMP COMPUTATIONAL-1 COMPUTATIONAL-2
+          COMPUTATIONAL-3 COMPUTATIONAL-4 COMPUTATIONAL-5 COMPUTATIONAL COMPUTE CONDITION CONSTANT CONTAINS CONTENT
+          CONTINUE CONTROL CONTROLS CONVERTING COPY CORR CORRESPONDING COUNT CRT CURRENCY CURSOR DATA-POINTER DATE
+          DATE-COMPILED DATE-WRITTEN DAY DAY-OF-WEEK DBCS DE DEBUG-CONTENTS DEBUG-ITEM DEBUG-LINE DEBUG-NAME DEBUG-SUB-1
+          DEBUG-SUB-2 DEBUG-SUB-3 DEBUGGING DECIMAL-POINT DECLARATIVES DEFAULT DELETE DELIMITED DELIMITER DEPENDING
+          DESCENDING DESTINATION DETAIL DISABLE DISPLAY-1 DISPLAY DIVIDE DOWN DUPLICATES DYNAMIC EC EGCS EGI
+          EJECT ELSE EMI ENABLE END-ACCEPT END-ADD END-CALL END-COMPUTE END-DELETE END-DISPLAY END-DIVIDE END-EVALUATE
+          END-EXEC END-IF END-INVOKE END-JSON END-MULTIPLY END-OF-PAGE END-PERFORM END-READ END-RECEIVE END-RETURN
+          END-REWRITE END-SEARCH END-START END-STRING END-SUBTRACT END-UNSTRING END-WRITE END-XML ENDING END ENTER ENTRY
+          EO EOP EQUAL ERROR ESI EVALUATE EVERY EXCEPTION EXCEPTION-OBJECT EXEC EXECUTE EXIT EXTEND EXTERNAL
+          FACTORY FALSE FD FILE-CONTROL FILLER FINAL FIRST FLOAT-EXTENDED FLOAT-LONG FLOAT-SHORT FOOTING FOR FORMAT
+          FREE FROM FUNCTION FUNCTION-ID FUNCTION-POINTER GENERATE GET GIVING GLOBAL GO GOBACK GREATER GROUP GROUP-USAGE
+          HEADING HIGH-VALUE HIGH-VALUES I-O-CONTROL I-O ID IF IN INDEX INDEXED INDICATE INHERITS INITIAL
+          INITIALIZE INITIATE INPUT INSERT INSPECT INSTALLATION INTERFACE INTERFACE-ID INTO INVALID INVOKE
+          IS JAVA JNIENVPTR JSON JSON-CODE JSON-STATUS JUST JUSTIFIED KANJI KEY LABEL LAST LEADING LEFT LENGTH LESS LIMIT
+          LIMITS LINAGE-COUNTER LINAGE LINE-COUNTER LINES LINE LOCALE LOCK LOW-VALUE LOW-VALUES
+          MEMORY MERGE MESSAGE METHOD METHOD-ID MINUS MODE MODULES MORE-LABELS MOVE MULTIPLE MULTIPLY NATIONAL
+          NATIONAL-EDITED NATIVE NEGATIVE NESTED NEXT NO NOT NULL NULLS NUMBER NUMERIC NUMERIC-EDITED OBJECT
+          OBJECT-COMPUTER OBJECT-REFERENCE OCCURS OF OFF OMITTED ON OPEN OPTIONAL OPTIONS OR ORDER ORGANIZATION
+          OTHER OUTPUT OVERFLOW OVERRIDE PACKED-DECIMAL PADDING PAGE PAGE-COUNTER PASSWORD PERFORM PF PH PIC PICTURE
+          PLUS POINTER- POINTER-31 POINTER-32 POINTER-64 POINTER POSITION POSITIVE PRESENT PRINTING
+          PROCEDURE-POINTER PROCEDURES PROCEED PROCESSING PROGRAM-ID PROGRAM-POINTER PROGRAM PROPERTY PROTOTYPE
+          PURGE QUEUE QUOTE QUOTES RAISE RAISING RANDOM RD READ READY RECEIVE RECORD RECORDING RECORDS RECURSIVE REDEFINES
+          REEL REFERENCE REFERENCES RELATIVE RELEASE RELOAD REMAINDER REMOVAL RENAMES REPLACE REPLACING REPORT REPORTING
+          REPORTS REPOSITORY RERUN RESERVE RESET RESUME RETRY RETURN RETURN-CODE RETURNING REVERSED REWIND REWRITE RF RH
+          RIGHT ROUNDED RUN SAME SCREEN SD SEARCH SECTION SECURITY SEGMENT SEGMENT-LIMIT SELECT SELF SEND SENTENCE
+          SEPARATE SEQUENCE SEQUENTIAL SERVICE SET SHARING SHIFT-IN SHIFT-OUT SIGN SIZE SKIP1 SKIP2 SKIP3
+          SORT-CONTROL SORT-CORE-SIZE SORT-FILE-SIZE SORT-MERGE SORT-MESSAGE SORT-MODE-SIZE SORT-RETURN SORT
+          SOURCE-COMPUTER SOURCES SOURCE SPACE SPACES SPECIAL-NAMES SQL SQLIMS STANDARD-1 STANDARD-2 STANDARD START STATUS STOP
+          STRING SUB-QUEUE-1 SUB-QUEUE-2 SUB-QUEUE-3 SUBTRACT SUM SUPER SUPPRESS SYMBOLIC SYNC SYNCHRONIZED SYSTEM-DEFAULT
+          TABLE TALLY TALLYING TAPE TERMINAL TERMINATE TEST TEXT THAN THEN THROUGH THRU TIME TIMES TITLE TO TOP TRACE
+          TRAILING TRUE TYPE TYPEDEF UNIT UNIVERSAL UNLOCK UNSTRING UNTIL UP UPON USAGE USE USER-DEFAULT USING UTF-8
+          VAL-STATUS VALID VALIDATE VALIDATE-STATUS VALUE VALUES VARYING VOLATILE WHEN WHEN-COMPILED WITH WORDS
+          WRITE WRITE-ONLY XML-CODE XML-EVENT XML-INFORMATION XML-NAMESPACE XML-NAMESPACE-PREFIX
+          XML-NNAMESPACE XML-NNAMESPACE-PREFIX XML-NTEXT XML-SCHEMA XML-TEXT XML ZERO ZEROES ZEROS
+        ))
+      end
+
+      state :root do
+        # First detect the comments
+        rule %r/^(      \*).*|^(^Debug \*).*/, Comment::Special
+
+        # Strings
+        rule %r/"/, Str::Double, :string_double
+        rule %r/'/, Str::Single, :string_single
+
+        # Keywords and divisions
+        rule  %r/(?<![\w-])#{identifier}(?![\w-])/i do |m|
+          if self.class.divisions.include?(m[0].upcase)
+            token Keyword::Declaration
+          elsif self.class.sections.include?(m[0].upcase)
+            token Keyword::Namespace
+          elsif self.class.keywords.include?(m[0].upcase)
+            token Keyword
+          else
+            token Name
+          end
+        end
+
+        # Numbers
+        rule %r/[-+]?\b\d+(\.\d+)?\b/, Num
+
+        # Punctuation
+        rule %r/[.,;:()]/, Punctuation
+
+        # Comments
+        rule %r/\*>.*/, Comment::Single
+
+        # Operators
+        rule %r/[+\-*\/><=]/, Operator
+
+        # Whitespace remaining
+        rule %r/\s/, Text::Whitespace
+
+        # Anything else remaining
+        rule %r/.+/, Text
+      end
+
+      # TODO double check string escaping in COBOL
+      # TODO Fix that a string opened by " can't be closed by '
+      # TODO Fix that strings can't be multi-line
+
+      # Handle strings where " opens a string and must be closed by "
+      state :string_double do
+        # Ensure strings can't span multiple lines
+        rule %r/[^"\\\n]+/, Str
+        rule %r/\\./, Str::Escape
+        rule %r/"/, Str::Double, :pop!
+        rule %r/\n/, Error # Flag an error if a string goes to the next line
+      end
+
+      # Handle strings where ' opens a string and must be closed by '
+      state :string_single do
+        # Ensure strings can't span multiple lines
+        rule %r/[^'\\\n]+/, Str
+        rule %r/\\./, Str::Escape
+        rule %r/'/, Str::Single, :pop!
+        rule %r/\n/, Error # Flag an error if a string goes to the next line
+      end
+    end
+  end
+end

data/rouge-5.0.0/lib/rouge/lexers/codeowners.rb

@@ -0,0 +1,30 @@
+# -*- coding: utf-8 -*- #
+# frozen_string_literal: true
+
+module Rouge
+  module Lexers
+    class Codeowners < RegexLexer
+      title 'CODEOWNERS'
+      desc 'Code Owners syntax (https://docs.gitlab.com/ee/user/project/codeowners/reference.html)'
+      tag 'codeowners'
+      filenames 'CODEOWNERS'
+
+      state :root do
+        rule %r/[ \t\r\n]+/, Text::Whitespace
+        rule %r/^\s*#.*$/, Comment::Single
+
+        rule %r(
+          (\^?\[(?!\d+\])[^\]]+\])
+          (\[\d+\])?
+        )x do
+          groups Name::Namespace, Literal::Number
+        end
+
+        rule %r/\S*@\S+/, Name::Function
+
+        rule %r/[\p{Word}\.\/\-\*]+/, Name
+        rule %r/.*\\[\#\s]/, Name
+      end
+    end
+  end
+end