rougegal 2.1.2

data/lib/rouge/lexers/html.rb

@@ -0,0 +1,138 @@
+# -*- coding: utf-8 -*- #
+
+module Rouge
+  module Lexers
+    class HTML < RegexLexer
+      title "HTML"
+      desc "HTML, the markup language of the web"
+      tag 'html'
+      filenames '*.htm', '*.html', '*.xhtml'
+      mimetypes 'text/html', 'application/xhtml+xml'
+
+      def self.analyze_text(text)
+        return 1 if text.doctype?(/\bhtml\b/i)
+        return 1 if text =~ /<\s*html\b/
+      end
+
+      start do
+        @javascript = Javascript.new(options)
+        @css = CSS.new(options)
+      end
+
+      state :root do
+        rule /[^<&]+/m, Text
+        rule /&\S*?;/, Name::Entity
+        rule /<!DOCTYPE .*?>/im, Comment::Preproc
+        rule /<!\[CDATA\[.*?\]\]>/m, Comment::Preproc
+        rule /<!--/, Comment, :comment
+        rule /<\?.*?\?>/m, Comment::Preproc # php? really?
+
+        rule /<\s*script\s*/m do
+          token Name::Tag
+          @javascript.reset!
+          push :script_content
+          push :tag
+        end
+
+        rule /<\s*style\s*/m do
+          token Name::Tag
+          @css.reset!
+          push :style_content
+          push :tag
+        end
+
+        rule /<\//, Name::Tag, :tag_end
+        rule /</, Name::Tag, :tag_start
+
+        rule %r(<\s*[a-zA-Z0-9:-]+), Name::Tag, :tag # opening tags
+        rule %r(<\s*/\s*[a-zA-Z0-9:-]+\s*>), Name::Tag # closing tags
+      end
+
+      state :tag_end do
+        mixin :tag_end_end
+        rule /[a-zA-Z0-9:-]+/ do
+          token Name::Tag
+          goto :tag_end_end
+        end
+      end
+
+      state :tag_end_end do
+        rule /\s+/, Text
+        rule />/, Name::Tag, :pop!
+      end
+
+      state :tag_start do
+        rule /\s+/, Text
+
+        rule /[a-zA-Z0-9:-]+/ do
+          token Name::Tag
+          goto :tag
+        end
+
+        rule(//) { goto :tag }
+      end
+
+      state :comment do
+        rule /[^-]+/, Comment
+        rule /-->/, Comment, :pop!
+        rule /-/, Comment
+      end
+
+      state :tag do
+        rule /\s+/m, Text
+        rule /[a-zA-Z0-9_:-]+\s*=/m, Name::Attribute, :attr
+        rule /[a-zA-Z0-9_:-]+/, Name::Attribute
+        rule %r(/?\s*>)m, Name::Tag, :pop!
+      end
+
+      state :attr do
+        # TODO: are backslash escapes valid here?
+        rule /"/ do
+          token Str
+          goto :dq
+        end
+
+        rule /'/ do
+          token Str
+          goto :sq
+        end
+
+        rule /[^\s>]+/, Str, :pop!
+      end
+
+      state :dq do
+        rule /"/, Str, :pop!
+        rule /[^"]+/, Str
+      end
+
+      state :sq do
+        rule /'/, Str, :pop!
+        rule /[^']+/, Str
+      end
+
+      state :script_content do
+        rule %r([^<]+) do
+          delegate @javascript
+        end
+
+        rule %r(<\s*/\s*script\s*>)m, Name::Tag, :pop!
+
+        rule %r(<) do
+          delegate @javascript
+        end
+      end
+
+      state :style_content do
+        rule /[^<]+/ do
+          delegate @css
+        end
+
+        rule %r(<\s*/\s*style\s*>)m, Name::Tag, :pop!
+
+        rule /</ do
+          delegate @css
+        end
+      end
+    end
+  end
+end

data/lib/rouge/lexers/http.rb

@@ -0,0 +1,80 @@
+# -*- coding: utf-8 -*- #
+
+module Rouge
+  module Lexers
+    class HTTP < RegexLexer
+      tag 'http'
+      title "HTTP"
+      desc 'http requests and responses'
+
+      def self.http_methods
+        @http_methods ||= %w(GET POST PUT DELETE HEAD OPTIONS TRACE PATCH)
+      end
+
+      def content_lexer
+        return Lexers::PlainText unless @content_type
+
+        @content_lexer ||= Lexer.guess_by_mimetype(@content_type)
+      rescue Lexer::AmbiguousGuess
+        @content_lexer = Lexers::PlainText
+      end
+
+      start { @content_type = 'text/plain' }
+
+      state :root do
+        # request
+        rule %r(
+          (#{HTTP.http_methods.join('|')})([ ]+) # method
+          ([^ ]+)([ ]+)                     # path
+          (HTTPS?)(/)(1[.][01])(\r?\n|$)  # http version
+        )ox do
+          groups(
+            Name::Function, Text,
+            Name::Namespace, Text,
+            Keyword, Operator, Num, Text
+          )
+
+          push :headers
+        end
+
+        # response
+        rule %r(
+          (HTTPS?)(/)(1[.][01])([ ]+) # http version
+          (\d{3})([ ]+)               # status
+          ([^\r\n]+)(\r?\n|$)       # status message
+        )x do
+          groups(
+            Keyword, Operator, Num, Text,
+            Num, Text,
+            Name::Exception, Text
+          )
+          push :headers
+        end
+      end
+
+      state :headers do
+        rule /([^\s:]+)( *)(:)( *)([^\r\n]+)(\r?\n|$)/ do |m|
+          key = m[1]
+          value = m[5]
+          if key.strip.casecmp('content-type').zero?
+            @content_type = value.split(';')[0].downcase
+          end
+
+          groups Name::Attribute, Text, Punctuation, Text, Str, Text
+        end
+
+        rule /([^\r\n]+)(\r?\n|$)/ do
+          groups Str, Text
+        end
+
+        rule /\r?\n/, Text, :content
+      end
+
+      state :content do
+        rule /.+/m do |m|
+          delegate(content_lexer)
+        end
+      end
+    end
+  end
+end

data/lib/rouge/lexers/hylang.rb

@@ -0,0 +1,93 @@
+# -*- coding: utf-8 -*- #
+
+module Rouge
+  module Lexers
+    class HyLang < RegexLexer
+      title "HyLang"
+      desc "The HyLang programming language (hylang.org)"
+
+      tag 'hylang'
+      aliases 'hy'
+
+      filenames '*.hy'
+
+      mimetypes 'text/x-hy', 'application/x-hy'
+
+      def self.keywords
+        @keywords ||= Set.new %w(
+          False None True and as assert break class continue def
+          del elif else except finally for from global if import
+          in is lambda nonlocal not or pass raise return try
+        )
+      end
+
+      def self.builtins
+        @builtins ||= Set.new %w(
+          != % %= & &= * ** **= *= *map
+          + += , - -= -> ->> . / //
+          //= /= < << <<= <= = > >= >>
+          >>= @ @= ^ ^= accumulate apply as-> assoc butlast
+          calling-module-name car cdr chain coll? combinations comp complement compress cond
+          cons cons? constantly count cut cycle dec defclass defmacro defmacro!
+          defmacro/g! defmain defn defreader dict-comp disassemble dispatch-reader-macro distinct do doto
+          drop drop-last drop-while empty? eval eval-and-compile eval-when-compile even? every? filter
+          first flatten float? fn for* fraction genexpr gensym get group-by
+          identity if* if-not if-python2 inc input instance? integer integer-char? integer?
+          interleave interpose islice iterable? iterate iterator? juxt keyword keyword? last
+          let lif lif-not list* list-comp macro-error macroexpand macroexpand-1 map merge-with
+          multicombinations name neg? none? not-in not? nth numeric? odd? partition
+          permutations pos? product quasiquote quote range read read-str reduce remove
+          repeat repeatedly require rest second set-comp setv some string string?
+          symbol? take take-nth take-while tee unless unquote unquote-splicing when with*
+          with-decorator with-gensyms xor yield-from zero? zip zip-longest | |= ~
+        )
+      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 /;.*?$/, Comment::Single
+        rule /\s+/m, Text::Whitespace
+
+        rule /-?\d+\.\d+/, Num::Float
+        rule /-?\d+/, Num::Integer
+        rule /0x-?[0-9a-fA-F]+/, Num::Hex
+
+        rule /"(\\.|[^"])*"/, Str
+        rule /'#{keyword}/, Str::Symbol
+        rule /::?#{keyword}/, Name::Constant
+        rule /\\(.|[a-z]+)/i, Str::Char
+
+
+        rule /~@|[`\'#^~&@]/, Operator
+
+        rule /(\()(\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 /[\[\]]/, Punctuation
+
+        # maps
+        rule /[{}]/, Punctuation
+
+        # parentheses
+        rule /[()]/, Punctuation
+      end
+    end
+  end
+end
+

data/lib/rouge/lexers/idlang.rb

@@ -0,0 +1,316 @@
+# -*- coding: utf-8 -*- #
+# vim: set ts=2 sw=2 et:
+
+module Rouge
+  module Lexers
+    class IDLang < RegexLexer
+      title "IDL"
+      desc "Interactive Data Language"
+
+      tag 'idlang'
+      filenames '*.idl'
+
+      def self.analyze_text(text)
+        # Does there exist a statement that starts with 'pro' or
+        # 'function'?
+        return 0.4 if text =~ /^\s+(pro|function)\z/
+      end
+
+      name = /[_A-Z]\w*/i
+      kind_param = /(\d+|#{name})/
+      exponent = /[dDeE][+-]\d+/
+
+      def self.exec_unit
+        @exec_unit ||= Set.new %w(
+          PRO FUNCTION
+        )
+      end
+
+      def self.keywords
+        @keywords ||= Set.new %w(
+          STRUCT INHERITS
+          RETURN CONTINUE BEGIN END BREAK GOTO
+        )
+      end
+
+      def self.standalone_statements
+        # Must not have a comma afterwards
+        @standalone_statements ||= Set.new %w(
+          COMMON FORWARD_FUNCTION
+        )
+      end
+
+      def self.decorators
+        # Must not have a comma afterwards
+        @decorators ||= Set.new %w(
+          COMPILE_OPT
+        )
+      end
+
+      def self.operators
+        @operators ||= Set.new %w(
+          AND= EQ= GE= GT= LE= LT= MOD= NE= OR= XOR= NOT=
+        )
+      end
+
+      def self.conditionals
+        @conditionals ||= Set.new %w(
+          OF DO ENDIF ENDELSE ENDFOR ENDFOREACH ENDWHILE ENDREP ENDCASE ENDSWITCH
+          IF THEN ELSE FOR FOREACH WHILE REPEAT UNTIL CASE SWITCH
+          AND EQ GE GT LE LT MOD NE OR XOR NOT
+        )
+      end
+
+      def self.routines
+        @routines ||= Set.new %w(
+          A_CORRELATE ABS ACOS ADAPT_HIST_EQUAL ALOG ALOG10
+          AMOEBA ANNOTATE ARG_PRESENT ARRAY_EQUAL
+          ARRAY_INDICES ARROW ASCII_TEMPLATE ASIN ASSOC ATAN
+          AXIS BAR_PLOT BESELI BESELJ BESELK BESELY BETA
+          BILINEAR BIN_DATE BINARY_TEMPLATE BINDGEN BINOMIAL
+          BLAS_AXPY BLK_CON BOX_CURSOR BREAK BREAKPOINT
+          BROYDEN BYTARR BYTE BYTEORDER BYTSCL C_CORRELATE
+          CALDAT CALENDAR CALL_EXTERNAL CALL_FUNCTION
+          CALL_METHOD CALL_PROCEDURE CATCH CD CEIL CHEBYSHEV
+          CHECK_MATH CHISQR_CVF CHISQR_PDF CHOLDC CHOLSOL
+          CINDGEN CIR_3PNT CLOSE CLUST_WTS CLUSTER
+          COLOR_CONVERT COLOR_QUAN COLORMAP_APPLICABLE COMFIT
+          COMPLEX COMPLEXARR COMPLEXROUND
+          COMPUTE_MESH_NORMALS COND CONGRID CONJ
+          CONSTRAINED_MIN CONTOUR CONVERT_COORD CONVOL
+          COORD2TO3 CORRELATE COS COSH CRAMER CREATE_STRUCT
+          CREATE_VIEW CROSSP CRVLENGTH CT_LUMINANCE CTI_TEST
+          CURSOR CURVEFIT CV_COORD CVTTOBM CW_ANIMATE
+          CW_ANIMATE_GETP CW_ANIMATE_LOAD CW_ANIMATE_RUN
+          CW_ARCBALL CW_BGROUP CW_CLR_INDEX CW_COLORSEL
+          CW_DEFROI CW_FIELD CW_FILESEL CW_FORM CW_FSLIDER
+          CW_LIGHT_EDITOR CW_LIGHT_EDITOR_GET
+          CW_LIGHT_EDITOR_SET CW_ORIENT CW_PALETTE_EDITOR
+          CW_PALETTE_EDITOR_GET CW_PALETTE_EDITOR_SET
+          CW_PDMENU CW_RGBSLIDER CW_TMPL CW_ZOOM DBLARR
+          DCINDGEN DCOMPLEX DCOMPLEXARR DEFINE_KEY DEFROI
+          DEFSYSV DELETE_SYMBOL DELLOG DELVAR DERIV DERIVSIG
+          DETERM DEVICE DFPMIN DIALOG_MESSAGE
+          DIALOG_PICKFILE DIALOG_PRINTERSETUP
+          DIALOG_PRINTJOB DIALOG_READ_IMAGE
+          DIALOG_WRITE_IMAGE DICTIONARY DIGITAL_FILTER DILATE DINDGEN
+          DISSOLVE DIST DLM_LOAD DLM_REGISTER
+          DO_APPLE_SCRIPT DOC_LIBRARY DOUBLE DRAW_ROI EFONT
+          EIGENQL EIGENVEC ELMHES EMPTY ENABLE_SYSRTN EOF
+          ERASE ERODE ERRORF ERRPLOT EXECUTE EXIT EXP EXPAND
+          EXPAND_PATH EXPINT EXTRAC EXTRACT_SLICE F_CVF
+          F_PDF FACTORIAL FFT FILE_CHMOD FILE_DELETE
+          FILE_EXPAND_PATH FILE_MKDIR FILE_TEST FILE_WHICH
+          FILE_SEARCH PATH_SEP FILE_DIRNAME FILE_BASENAME
+          FILE_INFO FILE_MOVE FILE_COPY FILE_LINK FILE_POLL_INPUT
+          FILEPATH FINDFILE FINDGEN FINITE FIX FLICK FLOAT
+          FLOOR FLOW3 FLTARR FLUSH FORMAT_AXIS_VALUES
+          FORWARD_FUNCTION FREE_LUN FSTAT FULSTR FUNCT
+          FV_TEST FX_ROOT FZ_ROOTS GAMMA GAMMA_CT
+          GAUSS_CVF GAUSS_PDF GAUSS2DFIT GAUSSFIT GAUSSINT
+          GET_DRIVE_LIST GET_KBRD GET_LUN GET_SCREEN_SIZE
+          GET_SYMBOL GETENV GOTO GREG2JUL GRID_TPS GRID3 GS_ITER
+          H_EQ_CT H_EQ_INT HANNING HASH HEAP_GC HELP HILBERT
+          HIST_2D HIST_EQUAL HISTOGRAM HLS HOUGH HQR HSV
+          IBETA IDENTITY IDL_CONTAINER IDLANROI
+          IDLANROIGROUP IDLFFDICOM IDLFFDXF IDLFFLANGUAGECAT
+          IDLFFSHAPE IDLGRAXIS IDLGRBUFFER IDLGRCLIPBOARD
+          IDLGRCOLORBAR IDLGRCONTOUR IDLGRFONT IDLGRIMAGE
+          IDLGRLEGEND IDLGRLIGHT IDLGRMODEL IDLGRMPEG
+          IDLGRPALETTE IDLGRPATTERN IDLGRPLOT IDLGRPOLYGON
+          IDLGRPOLYLINE IDLGRPRINTER IDLGRROI IDLGRROIGROUP
+          IDLGRSCENE IDLGRSURFACE IDLGRSYMBOL
+          IDLGRTESSELLATOR IDLGRTEXT IDLGRVIEW
+          IDLGRVIEWGROUP IDLGRVOLUME IDLGRVRML IDLGRWINDOW
+          IGAMMA IMAGE_CONT IMAGE_STATISTICS IMAGINARY
+          INDGEN INT_2D INT_3D INT_TABULATED INTARR INTERPOL
+          INTERPOLATE INVERT IOCTL ISA ISHFT ISOCONTOUR
+          ISOSURFACE JOURNAL JUL2GREG JULDAY KEYWORD_SET KRIG2D
+          KURTOSIS KW_TEST L64INDGEN LABEL_DATE LABEL_REGION
+          LADFIT LAGUERRE LEEFILT LEGENDRE LINBCG LINDGEN
+          LINFIT LINKIMAGE LIST LIVE_CONTOUR LIVE_CONTROL
+          LIVE_DESTROY LIVE_EXPORT LIVE_IMAGE LIVE_INFO
+          LIVE_LINE LIVE_LOAD LIVE_OPLOT LIVE_PLOT
+          LIVE_PRINT LIVE_RECT LIVE_STYLE LIVE_SURFACE
+          LIVE_TEXT LJLCT LL_ARC_DISTANCE LMFIT LMGR LNGAMMA
+          LNP_TEST LOADCT LOCALE_GET LON64ARR LONARR LONG
+          LONG64 LSODE LU_COMPLEX LUDC LUMPROVE LUSOL
+          M_CORRELATE MACHAR MAKE_ARRAY MAKE_DLL MAP_2POINTS
+          MAP_CONTINENTS MAP_GRID MAP_IMAGE MAP_PATCH
+          MAP_PROJ_INFO MAP_SET MAX MATRIX_MULTIPLY MD_TEST MEAN
+          MEANABSDEV MEDIAN MEMORY MESH_CLIP MESH_DECIMATE
+          MESH_ISSOLID MESH_MERGE MESH_NUMTRIANGLES MESH_OBJ
+          MESH_SMOOTH MESH_SURFACEAREA MESH_VALIDATE
+          MESH_VOLUME MESSAGE MIN MIN_CURVE_SURF MK_HTML_HELP
+          MODIFYCT MOMENT MORPH_CLOSE MORPH_DISTANCE
+          MORPH_GRADIENT MORPH_HITORMISS MORPH_OPEN
+          MORPH_THIN MORPH_TOPHAT MPEG_CLOSE MPEG_OPEN
+          MPEG_PUT MPEG_SAVE MSG_CAT_CLOSE MSG_CAT_COMPILE
+          MSG_CAT_OPEN MULTI N_ELEMENTS N_PARAMS N_TAGS
+          NEWTON NORM OBJ_CLASS OBJ_DESTROY OBJ_ISA OBJ_NEW
+          OBJ_VALID OBJARR ON_ERROR ON_IOERROR ONLINE_HELP
+          OPEN OPENR OPENW OPENU OPLOT OPLOTERR ORDEREDHASH P_CORRELATE
+          PARTICLE_TRACE PCOMP PLOT PLOT_3DBOX PLOT_FIELD
+          PLOTERR PLOTS PNT_LINE POINT_LUN POLAR_CONTOUR
+          POLAR_SURFACE POLY POLY_2D POLY_AREA POLY_FIT
+          POLYFILL POLYFILLV POLYSHADE POLYWARP POPD POWELL
+          PRIMES PRINT PRINTF PRINTD PRODUCT PROFILE PROFILER
+          PROFILES PROJECT_VOL PS_SHOW_FONTS PSAFM PSEUDO
+          PTR_FREE PTR_NEW PTR_VALID PTRARR PUSHD QROMB
+          QROMO QSIMP QUERY_CSV R_CORRELATE R_TEST RADON RANDOMN
+          RANDOMU RANKS RDPIX READ READF READ_ASCII
+          READ_BINARY READ_BMP READ_CSV READ_DICOM READ_IMAGE
+          READ_INTERFILE READ_JPEG READ_PICT READ_PNG
+          READ_PPM READ_SPR READ_SRF READ_SYLK READ_TIFF
+          READ_WAV READ_WAVE READ_X11_BITMAP READ_XWD READS
+          READU REBIN RECALL_COMMANDS RECON3 REDUCE_COLORS
+          REFORM REGRESS REPLICATE REPLICATE_INPLACE
+          RESOLVE_ALL RESOLVE_ROUTINE RESTORE RETALL
+          REVERSE REWIND RK4 ROBERTS ROT ROTATE ROUND
+          ROUTINE_INFO RS_TEST S_TEST SAVE SAVGOL SCALE3
+          SCALE3D SCOPE_LEVEL SCOPE_TRACEBACK SCOPE_VARFETCH
+          SCOPE_VARNAME SEARCH2D SEARCH3D SET_PLOT SET_SHADING
+          SET_SYMBOL SETENV SETLOG SETUP_KEYS SFIT
+          SHADE_SURF SHADE_SURF_IRR SHADE_VOLUME SHIFT SHOW3
+          SHOWFONT SIGNUM SIN SINDGEN SINH SIZE SKEWNESS SKIPF
+          SLICER3 SLIDE_IMAGE SMOOTH SOBEL SOCKET SORT SPAWN
+          SPH_4PNT SPH_SCAT SPHER_HARM SPL_INIT SPL_INTERP
+          SPLINE SPLINE_P SPRSAB SPRSAX SPRSIN SPRSTP SQRT
+          STANDARDIZE STDDEV STOP STRARR STRCMP STRCOMPRESS
+          STREAMLINE STREGEX STRETCH STRING STRJOIN STRLEN
+          STRLOWCASE STRMATCH STRMESSAGE STRMID STRPOS
+          STRPUT STRSPLIT STRTRIM STRUCT_ASSIGN STRUCT_HIDE
+          STRUPCASE SURFACE SURFR SVDC SVDFIT SVSOL
+          SWAP_ENDIAN SWITCH SYSTIME T_CVF T_PDF T3D
+          TAG_NAMES TAN TANH TAPRD TAPWRT TEK_COLOR
+          TEMPORARY TETRA_CLIP TETRA_SURFACE TETRA_VOLUME
+          THIN THREED TIME_TEST2 TIMEGEN TM_TEST TOTAL TRACE
+          TRANSPOSE TRI_SURF TRIANGULATE TRIGRID TRIQL
+          TRIRED TRISOL TRNLOG TS_COEF TS_DIFF TS_FCAST
+          TS_SMOOTH TV TVCRS TVLCT TVRD TVSCL TYPENAME UINDGEN UINT
+          UINTARR UL64INDGEN ULINDGEN ULON64ARR ULONARR
+          ULONG ULONG64 UNIQ USERSYM VALUE_LOCATE VARIANCE
+          VAX_FLOAT VECTOR_FIELD VEL VELOVECT VERT_T3D VOIGT
+          VORONOI VOXEL_PROJ WAIT WARP_TRI WATERSHED WDELETE
+          WEOF WF_DRAW WHERE WIDGET_BASE WIDGET_BUTTON
+          WIDGET_CONTROL WIDGET_DRAW WIDGET_DROPLIST
+          WIDGET_EVENT WIDGET_INFO WIDGET_LABEL WIDGET_LIST
+          WIDGET_SLIDER WIDGET_TABLE WIDGET_TEXT WINDOW
+          WRITE_BMP WRITE_CSV WRITE_IMAGE WRITE_JPEG WRITE_NRIF
+          WRITE_PICT WRITE_PNG WRITE_PPM WRITE_SPR WRITE_SRF
+          WRITE_SYLK WRITE_TIFF WRITE_WAV WRITE_WAVE WRITEU
+          WSET WSHOW WTN WV_APPLET WV_CW_WAVELET WV_CWT
+          WV_DENOISE WV_DWT WV_FN_COIFLET WV_FN_DAUBECHIES
+          WV_FN_GAUSSIAN WV_FN_HAAR WV_FN_MORLET WV_FN_PAUL
+          WV_FN_SYMLET WV_IMPORT_DATA WV_IMPORT_WAVELET
+          WV_PLOT3D_WPS WV_PLOT_MULTIRES WV_PWT
+          WV_TOOL_DENOISE XBM_EDIT XDISPLAYFILE XDXF XFONT
+          XINTERANIMATE XLOADCT XMANAGER XMNG_TMPL XMTOOL
+          XOBJVIEW XPALETTE XPCOLOR XPLOT3D XREGISTERED XROI
+          XSQ_TEST XSURFACE XVAREDIT XVOLUME XVOLUME_ROTATE
+          XVOLUME_WRITE_IMAGE XYOUTS ZOOM ZOOM_24
+        )
+      end
+
+      state :root do
+        rule /[\s\n]+/, Text::Whitespace
+        # Normal comments
+        rule /;.*$/, Comment::Single
+        rule /\,\s*\,/, Error
+        rule /\!#{name}/, Name::Variable::Global
+
+        rule /[(),:\&\$]/, Punctuation
+
+        ## Format statements are quite a strange beast.
+        ## Better process them in their own state.
+        #rule /\b(FORMAT)(\s*)(\()/mi do |m|
+        #  token Keyword, m[1]
+        #  token Text::Whitespace, m[2]
+        #  token Punctuation, m[3]
+        #  push :format_spec
+        #end
+
+        rule %r(
+          [+-]? # sign
+          (
+            (\d+[.]\d*|[.]\d+)(#{exponent})?
+            | \d+#{exponent} # exponent is mandatory
+          )
+          (_#{kind_param})? # kind parameter
+        )xi, Num::Float
+
+        rule /\d+(B|S|U|US|LL|L|ULL|UL)?/i, Num::Integer
+        rule /"[0-7]+(B|O|U|ULL|UL|LL|L)?/i, Num::Oct
+        rule /'[0-9A-F]+'X(B|S|US|ULL|UL|U|LL|L)?/i, Num::Hex
+        rule /(#{kind_param}_)?'/, Str::Single, :string_single
+        rule /(#{kind_param}_)?"/, Str::Double, :string_double
+
+        rule %r{\#\#|\#|\&\&|\|\||/=|<=|>=|->|\@|\?|[-+*/<=~^{}]}, Operator
+        # Structures and the like
+        rule /(#{name})(\.)([^\s,]*)/i do |m|
+          groups Name, Operator, Name
+          #delegate IDLang, m[3]
+        end
+
+        rule /(function|pro)((?:\s|\$\s)+)/i do
+          groups Keyword, Text::Whitespace
+          push :funcname
+        end
+
+        rule /#{name}/m do |m|
+          match = m[0].upcase
+          if self.class.keywords.include? match
+            token Keyword
+          elsif self.class.conditionals.include? match
+            token Keyword
+          elsif self.class.decorators.include? match
+            token Name::Decorator
+          elsif self.class.standalone_statements.include? match
+            token Keyword::Reserved
+          elsif self.class.operators.include? match
+            token Operator::Word
+          elsif self.class.routines.include? match
+            token Name::Builtin
+          else
+            token Name
+          end
+        end
+
+      end
+
+      state :funcname do
+        rule /#{name}/, Name::Function
+
+        rule /\s+/, Text::Whitespace
+        rule /(:+|\$)/, Operator
+        rule /;.*/, Comment::Single
+
+        # Be done with this state if we hit EOL or comma
+        rule /$/, Text::Whitespace, :pop!
+        rule /,/, Operator, :pop!
+      end
+
+      state :string_single do
+        rule /[^']+/, Str::Single
+        rule /''/, Str::Escape
+        rule /'/, Str::Single, :pop!
+      end
+
+      state :string_double do
+        rule /[^"]+/, Str::Double
+        rule /"/, Str::Double, :pop!
+      end
+
+      state :format_spec do
+        rule /'/, Str::Single, :string_single
+        rule /"/, Str::Double, :string_double
+        rule /\(/, Punctuation, :format_spec
+        rule /\)/, Punctuation, :pop!
+        rule /,/, Punctuation
+        rule /[\s\n]+/, Text::Whitespace
+        # Edit descriptors could be seen as a kind of "format literal".
+        rule /[^\s'"(),]+/, Literal
+      end
+    end
+  end
+end