rouge 3.18.0

data/lib/rouge/lexers/mosel.rb

@@ -0,0 +1,232 @@
+# -*- coding: utf-8 -*- #
+# frozen_string_literal: true
+
+module Rouge
+  module Lexers
+    class Mosel < RegexLexer
+      tag 'mosel'
+      filenames '*.mos'
+      title "Mosel"
+      desc "An optimization language used by Fico's Xpress."
+      # http://www.fico.com/en/products/fico-xpress-optimization-suite
+      filenames '*.mos'
+
+      mimetypes 'text/x-mosel'
+
+      def self.detect?(text)
+        return true if text =~ /^\s*(model|package)\s+/
+      end
+
+      id = /[a-zA-Z_][a-zA-Z0-9_]*/
+
+      ############################################################################################################################
+      #  General language lements
+      ############################################################################################################################
+
+      core_keywords = %w(
+        and array as
+        boolean break
+        case count counter
+        declarations div do dynamic
+        elif else end evaluation exit
+        false forall forward from function
+        if imports in include initialisations initializations integer inter is_binary is_continuous is_free is_integer is_partint is_semcont is_semint is_sos1 is_sos2
+        linctr list
+        max min mod model mpvar
+        next not of options or
+        package parameters procedure
+        public prod range real record repeat requirements
+        set string sum
+        then to true
+        union until uses
+        version
+        while with
+      )
+
+      core_functions = %w(
+        abs arctan assert
+        bitflip bitneg bitset bitshift bittest bitval
+        ceil cos create currentdate currenttime cuthead cuttail
+        delcell exists exit exp exportprob
+        fclose fflush finalize findfirst findlast floor fopen fselect fskipline
+        getact getcoeff getcoeffs getdual getfid getfirst gethead getfname getlast getobjval getparam getrcost getreadcnt getreverse getsize getslack getsol gettail gettype getvars
+        iseof ishidden isodd ln log
+        makesos1 makesos2 maxlist minlist
+        publish
+        random read readln reset reverse round
+        setcoeff sethidden setioerr setname setparam setrandseed settype sin splithead splittail sqrt strfmt substr
+        timestamp
+        unpublish
+        write writeln
+      )
+
+      ############################################################################################################################
+      # mmxprs module elements
+      ############################################################################################################################
+
+      mmxprs_functions = %w(
+        addmipsol
+        basisstability
+        calcsolinfo clearmipdir clearmodcut command copysoltoinit
+        defdelayedrows defsecurevecs
+        estimatemarginals
+        fixglobal
+        getbstat getdualray getiis getiissense getiistype getinfcause getinfeas getlb getloadedlinctrs getloadedmpvars getname getprimalray getprobstat getrange getsensrng getsize getsol getub getvars
+        implies indicator isiisvalid isintegral loadbasis
+        loadmipsol loadprob
+        maximize minimize
+        postsolve
+        readbasis readdirs readsol refinemipsol rejectintsol repairinfeas resetbasis resetiis resetsol
+        savebasis savemipsol savesol savestate selectsol setbstat setcallback setcbcutoff setgndata setlb setmipdir setmodcut setsol setub setucbdata stopoptimize
+        unloadprob
+        writebasis writedirs writeprob writesol
+        xor
+      )
+
+      mmxpres_constants = %w(XPRS_OPT  XPRS_UNF  XPRS_INF XPRS_UNB XPRS_OTH)
+
+      mmxprs_parameters = %w(XPRS_colorder XPRS_enumduplpol XPRS_enummaxsol XPRS_enumsols XPRS_fullversion XPRS_loadnames XPRS_problem XPRS_probname XPRS_verbose)
+
+
+      ############################################################################################################################
+      # mmsystem module elements
+      ############################################################################################################################
+
+      mmsystem_functions = %w(
+        addmonths
+        copytext cuttext
+        deltext
+        endswith expandpath
+        fcopy fdelete findfiles findtext fmove
+        getasnumber getchar getcwd getdate getday getdaynum getdays getdirsep
+        getendparse setendparse
+        getenv getfsize getfstat getftime gethour getminute getmonth getmsec getpathsep
+        getqtype setqtype
+        getsecond
+        getsepchar setsepchar
+        getsize
+        getstart setstart
+        getsucc setsucc
+        getsysinfo getsysstat gettime
+        gettmpdir
+        gettrim settrim
+        getweekday getyear
+        inserttext isvalid
+        makedir makepath newtar
+        newzip nextfield
+        openpipe
+        parseextn parseint parsereal parsetext pastetext pathmatch pathsplit
+        qsort quote
+        readtextline regmatch regreplace removedir removefiles
+        setchar setdate setday setenv sethour
+        setminute setmonth setmsec setsecond settime setyear sleep startswith system
+        tarlist textfmt tolower toupper trim
+        untar unzip
+        ziplist
+      )
+
+      mmsystem_parameters = %w(datefmt datetimefmt monthnames sys_endparse sys_fillchar sys_pid sys_qtype sys_regcache sys_sepchar)
+
+      ############################################################################################################################
+      # mmjobs  module elements
+      ############################################################################################################################
+
+      mmjobs_instance_mgmt_functions = %w(
+        clearaliases connect
+        disconnect
+        findxsrvs
+        getaliases getbanner gethostalias
+        sethostalias
+      )
+
+      mmjobs_model_mgmt_functions = %w(
+        compile
+        detach
+        getannidents getannotations getexitcode getgid getid getnode getrmtid getstatus getuid
+        load
+        reset resetmodpar run
+        setcontrol setdefstream setmodpar setworkdir stop
+        unload
+      )
+
+      mmjobs_synchornization_functions = %w(
+        dropnextevent
+        getclass getfromgid getfromid getfromuid getnextevent getvalue
+        isqueueempty
+        nullevent
+        peeknextevent
+        send setgid setuid
+        wait waitfor
+      )
+
+      mmjobs_functions = mmjobs_instance_mgmt_functions + mmjobs_model_mgmt_functions + mmjobs_synchornization_functions
+
+      mmjobs_parameters = %w(conntmpl defaultnode fsrvdelay fsrvnbiter fsrvport jobid keepalive nodenumber parentnumber)
+
+
+      state :whitespace do
+        # Spaces
+        rule %r/\s+/m, Text
+        # ! Comments
+        rule %r((!).*$\n?), Comment::Single
+        # (! Comments !)
+        rule %r(\(!.*?!\))m, Comment::Multiline
+
+      end
+
+
+      # From Mosel documentation:
+      # Constant strings of characters must be quoted with single (') or double quote (") and may extend over several lines. Strings enclosed in double quotes may contain C-like escape sequences introduced by the 'backslash'
+      # character (\a \b \f \n \r \t \v \xxx with xxx being the character code as an octal number).
+      # Each sequence is replaced by the corresponding control character (e.g. \n is the `new line' command) or, if no control character exists, by the second character of the sequence itself (e.g. \\ is replaced by '\').
+      # The escape sequences are not interpreted if they are contained in strings that are enclosed in single quotes.
+
+      state :single_quotes do
+        rule %r/'/, Str::Single, :pop!
+        rule %r/[^']+/, Str::Single
+      end
+
+      state :double_quotes do
+        rule %r/"/, Str::Double, :pop!
+        rule %r/(\\"|\\[0-7]{1,3}\D|\\[abfnrtv]|\\\\)/, Str::Escape
+        rule %r/[^"]/, Str::Double
+      end
+
+      state :base do
+
+        rule %r{"}, Str::Double, :double_quotes
+        rule %r{'}, Str::Single, :single_quotes
+
+        rule %r{((0(x|X)[0-9a-fA-F]*)|(([0-9]+\.?[0-9]*)|(\.[0-9]+))((e|E)(\+|-)?[0-9]+)?)(L|l|UL|ul|u|U|F|f|ll|LL|ull|ULL)?}, Num
+        rule %r{[~!@#\$%\^&\*\(\)\+`\-={}\[\]:;<>\?,\.\/\|\\]}, Punctuation
+#        rule %r{'([^']|'')*'}, Str
+#        rule %r/"(\\\\|\\"|[^"])*"/, Str
+
+
+
+        rule %r/(true|false)\b/i, Name::Builtin
+        rule %r/\b(#{core_keywords.join('|')})\b/i, Keyword
+        rule %r/\b(#{core_functions.join('|')})\b/, Name::Builtin
+
+
+
+        rule %r/\b(#{mmxprs_functions.join('|')})\b/, Name::Function
+        rule %r/\b(#{mmxpres_constants.join('|')})\b/, Name::Constant
+        rule %r/\b(#{mmxprs_parameters.join('|')})\b/i, Name::Property
+
+        rule %r/\b(#{mmsystem_functions.join('|')})\b/i, Name::Function
+        rule %r/\b(#{mmsystem_parameters.join('|')})\b/, Name::Property
+
+        rule %r/\b(#{mmjobs_functions.join('|')})\b/i, Name::Function
+        rule %r/\b(#{mmjobs_parameters.join('|')})\b/, Name::Property
+
+        rule id, Name
+      end
+
+      state :root do
+        mixin :whitespace
+        mixin :base
+      end
+    end
+  end
+end

data/lib/rouge/lexers/msgtrans.rb

@@ -0,0 +1,26 @@
+# -*- coding: utf-8 -*- #
+# frozen_string_literal: true
+
+module Rouge
+  module Lexers
+    class MsgTrans < RegexLexer
+      title "MessageTrans"
+      desc "RISC OS message translator messages file"
+      tag 'msgtrans'
+      filenames 'Messages', 'Message[0-9]', 'Message[1-9][0-9]', 'Message[1-9][0-9][0-9]'
+
+      state :root do
+        rule %r/^#[^\n]*/, Comment
+        rule %r/[^\t\n\r ,):?\/]+/, Name::Variable
+        rule %r/[\n\/?]/, Operator
+        rule %r/:/, Operator, :value
+      end
+
+      state :value do
+        rule %r/\n/, Text, :pop!
+        rule %r/%[0-3%]/, Operator
+        rule %r/[^\n%]/, Literal::String
+      end
+    end
+  end
+end

data/lib/rouge/lexers/mxml.rb

@@ -0,0 +1,69 @@
+# -*- coding: utf-8 -*- #
+# frozen_string_literal: true
+
+module Rouge
+  module Lexers
+    class MXML < RegexLexer
+      title "MXML"
+      desc "MXML"
+      tag 'mxml'
+      filenames '*.mxml'
+      mimetypes 'application/xv+xml'
+
+      state :root do
+        rule %r/[^<&]+/, Text
+        rule %r/&\S*?;/, Name::Entity
+
+        rule %r/<!\[CDATA\[/m do
+          token Comment::Preproc
+          push :actionscript_content
+        end
+
+        rule %r/<!--/, Comment, :comment
+        rule %r/<\?.*?\?>/, Comment::Preproc
+        rule %r/<![^>]*>/, Comment::Preproc
+
+        rule %r(<\s*[\w:.-]+)m, Name::Tag, :tag # opening tags
+        rule %r(<\s*/\s*[\w:.-]+\s*>)m, Name::Tag # closing tags
+      end
+
+      state :comment do
+        rule %r/[^-]+/m, Comment
+        rule %r/-->/, Comment, :pop!
+        rule %r/-/, Comment
+      end
+
+      state :tag do
+        rule %r/\s+/m, Text
+        rule %r/[\w.:-]+\s*=/m, Name::Attribute, :attribute
+        rule %r(/?\s*>), Name::Tag, :root
+      end
+
+      state :attribute do
+        rule %r/\s+/m, Text
+        rule %r/(")({|@{)/m do
+          groups Str, Punctuation
+          push :actionscript_attribute
+        end
+        rule %r/".*?"|'.*?'|[^\s>]+/, Str, :tag
+      end
+
+      state :actionscript_content do
+        rule %r/\]\]\>/m, Comment::Preproc, :pop!
+        rule %r/.*?(?=\]\]\>)/m do
+          delegate Actionscript
+        end
+      end
+
+      state :actionscript_attribute do
+        rule %r/(})(")/m do
+          groups Punctuation, Str
+          push :tag
+        end
+        rule %r/.*?(?=}")/m do
+          delegate Actionscript
+        end
+      end
+    end
+  end
+end

data/lib/rouge/lexers/nasm.rb

@@ -0,0 +1,72 @@
+# -*- coding: utf-8 -*- #
+# frozen_string_literal: true
+
+# Based on Chroma's NASM lexer implementation
+# https://github.com/alecthomas/chroma/blob/498eaa690f5ac6ab0e3d6f46237e547a8935cdc7/lexers/n/nasm.go
+module Rouge
+  module Lexers
+    class Nasm < RegexLexer
+      title "Nasm"
+      desc "Netwide Assembler"
+
+      tag 'nasm'
+      filenames '*.asm'
+      mimetypes 'text/x-nasm'
+
+      state :root do
+			  rule %r/^\s*%/, Comment::Preproc, :preproc
+
+			  mixin :whitespace
+
+			  rule %r/[a-z$._?][\w$.?#@~]*:/i, Name::Label
+
+        rule %r/([a-z$._?][\w$.?#@~]*)(\s+)(equ)/i do
+          groups Name::Constant, Keyword::Declaration, Keyword::Declaration
+          push :instruction_args
+        end
+        rule %r/BITS|USE16|USE32|SECTION|SEGMENT|ABSOLUTE|EXTERN|GLOBAL|ORG|ALIGN|STRUC|ENDSTRUC|COMMON|CPU|GROUP|UPPERCASE|IMPORT|EXPORT|LIBRARY|MODULE/, Keyword, :instruction_args
+        rule %r/(?:res|d)[bwdqt]|times/i, Keyword::Declaration, :instruction_args
+        rule %r/[a-z$._?][\w$.?#@~]*/i, Name::Function, :instruction_args
+
+        rule %r/[\r\n]+/, Text
+      end
+
+      state :instruction_args do
+			  rule %r/"(\\\\"|[^"\\n])*"|'(\\\\'|[^'\\n])*'|`(\\\\`|[^`\\n])*`/, Str
+        rule %r/(?:0x[\da-f]+|$0[\da-f]*|\d+[\da-f]*h)/i, Num::Hex
+        rule %r/[0-7]+q/i, Num::Oct
+        rule %r/[01]+b/i, Num::Bin
+        rule %r/\d+\.e?\d+/i, Num::Float
+        rule %r/\d+/, Num::Integer
+
+        mixin :punctuation
+
+        rule %r/r\d[0-5]?[bwd]|[a-d][lh]|[er]?[a-d]x|[er]?[sb]p|[er]?[sd]i|[c-gs]s|st[0-7]|mm[0-7]|cr[0-4]|dr[0-367]|tr[3-7]/i, Name::Builtin
+        rule %r/[a-z$._?][\w$.?#@~]*/i, Name::Variable
+        rule %r/[\r\n]+/, Text, :pop!
+
+        mixin :whitespace
+      end
+
+      state :preproc do
+        rule %r/[^;\n]+/, Comment::Preproc
+        rule %r/;.*?\n/, Comment::Single, :pop!
+        rule %r/\n/, Comment::Preproc, :pop!
+      end
+
+      state :whitespace do
+        rule %r/\n/, Text
+        rule %r/[ \t]+/, Text
+        rule %r/;.*/, Comment::Single
+      end
+
+      state :punctuation do
+        rule %r/[,():\[\]]+/, Punctuation
+        rule %r/[&|^<>+*\/%~-]+/, Operator
+        rule %r/\$+/, Keyword::Constant
+        rule %r/seg|wrt|strict/i, Operator::Word
+        rule %r/byte|[dq]?word/i, Keyword::Type
+      end
+    end
+  end
+end

data/lib/rouge/lexers/nesasm.rb

@@ -0,0 +1,78 @@
+# -*- coding: utf-8 -*- #
+# frozen_string_literal: true
+
+module Rouge
+  module Lexers
+    class NesAsm < RegexLexer
+      title "NesAsm"
+      desc "Nesasm3 assembly (6502 asm)"
+      tag 'nesasm'
+      aliases 'nes'
+      filenames '*.nesasm'
+
+      def self.keywords
+        @keywords ||= %w(
+          ADC AND ASL BIT BRK CMP CPX CPY DEC EOR INC JMP JSR LDA LDX LDY LSR
+          NOP ORA ROL ROR RTI RTS SBC STA STX STY TAX TXA DEX INX TAY TYA DEY
+          INY BPL BMI BVC BVS BCC BCS BNE BEQ CLC SEC CLI SEI CLV CLD SED TXS
+          TSX PHA PLA PHP PLP
+        )
+      end
+
+      def self.keywords_type
+        @keywords_type ||= %w(
+          DB DW BYTE WORD 
+        )
+      end
+
+      def self.keywords_reserved
+        @keywords_reserved ||= %w(
+          INCBIN INCLUDE ORG BANK RSSET RS MACRO ENDM DS PROC ENDP PROCGROUP
+          ENDPROCGROUP INCCHR DEFCHR ZP BSS CODE DATA IF IFDEF IFNDEF ELSE
+          ENDIF FAIL INESPRG INESCHR INESMAP INESMIR FUNC
+        )
+      end
+      
+      state :root do
+        rule %r/\s+/m, Text
+        rule %r(;.*), Comment::Single
+
+        rule %r/[\(\)\,\.\[\]]/, Punctuation 
+        rule %r/\#?\%[0-1]+/, Num::Bin # #%00110011 %00110011
+        rule %r/\#?\$\h+/, Num::Hex  # $1f #$1f
+        rule %r/\#?\d+/, Num # 10 #10
+        rule %r([~&*+=\|?:<>/-]), Operator
+
+        rule %r/\#?\w+:?/i do |m|
+          name = m[0].upcase
+          
+          if self.class.keywords.include? name
+            token Keyword
+          elsif self.class.keywords_type.include? name
+            token Keyword::Type
+          elsif self.class.keywords_reserved.include? name
+            token Keyword::Reserved
+          else
+            token Name::Function
+          end
+        end
+
+        rule %r/\#?(?:LOW|HIGH)\(.*\)/i, Keyword::Reserved # LOW() #HIGH()
+        
+        rule %r/\#\(/, Punctuation # #()
+
+        rule %r/"/, Str, :string
+
+        rule %r/'\w'/, Str::Char # 'A' for example
+        
+        rule %r/\\\??[\d@#]/, Name::Builtin # builtin parameters for use inside macros and functions:   \1-\9 , \?1-\?9 , \# , \@
+      end
+
+      state :string do
+        rule %r/"/, Str, :pop!
+        rule %r/\\"?/, Str::Escape
+        rule %r/[^"\\]+/m, Str
+      end
+    end
+  end
+end