rouge 3.17.0

data/lib/rouge/lexers/rust.rb

@@ -0,0 +1,193 @@
+# -*- coding: utf-8 -*- #
+# frozen_string_literal: true
+
+module Rouge
+  module Lexers
+    class Rust < RegexLexer
+      title "Rust"
+      desc 'The Rust programming language (rust-lang.org)'
+      tag 'rust'
+      aliases 'rs',
+        # So that directives from https://github.com/budziq/rust-skeptic
+        # do not prevent highlighting.
+        'rust,no_run', 'rs,no_run',
+        'rust,ignore', 'rs,ignore',
+        'rust,should_panic', 'rs,should_panic'
+      filenames '*.rs'
+      mimetypes 'text/x-rust'
+
+      def self.detect?(text)
+        return true if text.shebang? 'rustc'
+      end
+
+      def self.keywords
+        @keywords ||= %w(
+          as assert async await break const copy do drop else enum extern fail false
+          fn for if impl let log loop match mod move mut priv pub pure
+          ref return self static struct true trait type unsafe use where
+          while box
+        )
+      end
+
+      def self.builtins
+        @builtins ||= Set.new %w(
+          Add BitAnd BitOr BitXor bool c_char c_double c_float char
+          c_int clock_t c_long c_longlong Cons Const Copy c_schar c_short
+          c_uchar c_uint c_ulong c_ulonglong c_ushort c_void dev_t DIR
+          dirent Div Either Eq Err f32 f64 Failure FILE float fpos_t
+          i16 i32 i64 i8 isize Index ino_t int intptr_t Left mode_t Modulo Mul
+          Neg Nil None Num off_t Ok Option Ord Owned pid_t Ptr ptrdiff_t
+          Right Send Shl Shr size_t Some ssize_t str Sub Success time_t
+          u16 u32 u64 u8 usize uint uintptr_t
+          Box Vec String Gc Rc Arc
+        )
+      end
+
+      def macro_closed?
+        @macro_delims.values.all?(&:zero?)
+      end
+
+      start {
+        @macro_delims = { ']' => 0, ')' => 0, '}' => 0 }
+        push :bol
+      }
+
+      delim_map = { '[' => ']', '(' => ')', '{' => '}' }
+
+      id = /[a-z_]\w*/i
+      hex = /[0-9a-f]/i
+      escapes = %r(
+        \\ ([nrt'"\\0] | x#{hex}{2} | u#{hex}{4} | U#{hex}{8})
+      )x
+      size = /8|16|32|64/
+
+      # Although not officially part of Rust, the rustdoc tool allows code in
+      # comments to begin with `#`. Code like this will be evaluated but not
+      # included in the HTML output produced by rustdoc. So that code intended
+      # for these comments can be higlighted with Rouge, the  Rust lexer needs
+      # to check if the beginning of the line begins with a `# `.
+      state :bol do
+        mixin :whitespace
+        rule %r/#\s[^\n]*/, Comment::Special
+        rule(//) { pop! }
+      end
+
+      state :attribute do
+        mixin :whitespace
+        mixin :has_literals
+        rule %r/[(,)=:]/, Name::Decorator
+        rule %r/\]/, Name::Decorator, :pop!
+        rule id, Name::Decorator
+      end
+
+      state :whitespace do
+        rule %r/\s+/, Text
+        rule %r(//[^\n]*), Comment
+        rule %r(/[*].*?[*]/)m, Comment::Multiline
+      end
+
+      state :root do
+        rule %r/\n/, Text, :bol
+        mixin :whitespace
+        rule %r/#!?\[/, Name::Decorator, :attribute
+        rule %r/\b(?:#{Rust.keywords.join('|')})\b/, Keyword
+        mixin :has_literals
+
+        rule %r([=-]>), Keyword
+        rule %r(<->), Keyword
+        rule %r/[()\[\]{}|,:;]/, Punctuation
+        rule %r/[*\/!@~&+%^<>=\?-]|\.{2,3}/, Operator
+
+        rule %r/([.]\s*)?#{id}(?=\s*[(])/m, Name::Function
+        rule %r/[.]\s*#{id}/, Name::Property
+        rule %r/(#{id})(::)/m do
+          groups Name::Namespace, Punctuation
+        end
+
+        # macros
+        rule %r/\bmacro_rules!/, Name::Decorator, :macro_rules
+        rule %r/#{id}!/, Name::Decorator, :macro
+
+        rule %r/'#{id}/, Name::Variable
+        rule %r/#{id}/ do |m|
+          name = m[0]
+          if self.class.builtins.include? name
+            token Name::Builtin
+          else
+            token Name
+          end
+        end
+      end
+
+      state :macro do
+        mixin :has_literals
+
+        rule %r/[\[{(]/ do |m|
+          @macro_delims[delim_map[m[0]]] += 1
+          puts "    macro_delims: #{@macro_delims.inspect}" if @debug
+          token Punctuation
+        end
+
+        rule %r/[\]})]/ do |m|
+          @macro_delims[m[0]] -= 1
+          puts "    macro_delims: #{@macro_delims.inspect}" if @debug
+          pop! if macro_closed?
+          token Punctuation
+        end
+
+        # same as the rule in root, but don't push another macro state
+        rule %r/#{id}!/, Name::Decorator
+        mixin :root
+
+        # No syntax errors in macros
+        rule %r/./, Text
+      end
+
+      state :macro_rules do
+        rule %r/[$]#{id}(:#{id})?/, Name::Variable
+        rule %r/[$]/, Name::Variable
+
+        mixin :macro
+      end
+
+      state :has_literals do
+        # constants
+        rule %r/\b(?:true|false|nil)\b/, Keyword::Constant
+        # characters
+        rule %r(
+          ' (?: #{escapes} | [^\\] ) '
+        )x, Str::Char
+
+        rule %r/"/, Str, :string
+        rule %r/r(#*)".*?"\1/m, Str
+
+        # numbers
+        dot = /[.][0-9_]+/
+        exp = /e[-+]?[0-9_]+/
+        flt = /f32|f64/
+
+        rule %r(
+          [0-9]+
+          (#{dot}  #{exp}? #{flt}?
+          |#{dot}? #{exp}  #{flt}?
+          |#{dot}? #{exp}? #{flt}
+          )
+        )x, Num::Float
+
+        rule %r(
+          ( 0b[10_]+
+          | 0x[0-9a-fA-F_]+
+          | [0-9_]+
+          ) (u#{size}?|i#{size})?
+        )x, Num::Integer
+
+      end
+
+      state :string do
+        rule %r/"/, Str, :pop!
+        rule escapes, Str::Escape
+        rule %r/[^"\\]+/m, Str
+      end
+    end
+  end
+end

data/lib/rouge/lexers/sas.rb

@@ -0,0 +1,563 @@
+# -*- coding: utf-8 -*- #
+
+module Rouge
+  module Lexers
+    class SAS < RegexLexer
+      title "SAS"
+      desc "SAS (Statistical Analysis Software)"
+      tag 'sas'
+      filenames '*.sas'
+      mimetypes 'application/x-sas', 'application/x-stat-sas', 'application/x-sas-syntax'
+
+      def self.data_step_statements
+        # from Data step statements - SAS 9.4 Statements reference
+        # http://support.sas.com/documentation/cdl/en/lestmtsref/68024/PDF/default/lestmtsref.pdf
+        @data_step_statements ||= Set.new %w(
+          ABORT ARRAY ATTRIB BY CALL CARDS CARDS4 CATNAME CHECKPOINT 
+          EXECUTE_ALWAYS CONTINUE DATA DATALINES DATALINES4 DELETE DESCRIBE
+          DISPLAY DM DO UNTIL WHILE DROP END ENDSAS ERROR EXECUTE FILE FILENAME
+          FOOTNOTE FORMAT GO TO IF THEN ELSE INFILE INFORMAT INPUT
+          KEEP LABEL LEAVE LENGTH LIBNAME LINK LIST LOCK LOSTCARD MERGE
+          MISSING MODIFY OPTIONS OUTPUT PAGE PUT PUTLOG REDIRECT REMOVE RENAME
+          REPLACE RESETLINE RETAIN RETURN RUN SASFILE SELECT SET SKIP STOP         
+          SYSECHO TITLE UPDATE WHERE WINDOW X
+         )
+      # label:
+      # Sum
+      end
+
+      def self.sas_functions
+        # from SAS 9.4 Functions and CALL Routines reference
+        # http://support.sas.com/documentation/cdl/en/lefunctionsref/67960/PDF/default/lefunctionsref.pdf
+        @sas_functions ||= Set.new %w(
+          ABS ADDR ADDRLONG AIRY ALLCOMB ALLPERM ANYALNUM ANYALPHA ANYCNTRL
+          ANYDIGIT ANYFIRST ANYGRAPH ANYLOWER ANYNAME ANYPRINT ANYPUNCT
+          ANYSPACE ANYUPPER ANYXDIGIT ARCOS ARCOSH ARSIN ARSINH ARTANH ATAN
+          ATAN2 ATTRC ATTRN BAND BETA BETAINV BLACKCLPRC BLACKPTPRC
+          BLKSHCLPRC BLKSHPTPRC BLSHIFT BNOT BOR BRSHIFT BXOR BYTE CAT CATQ
+          CATS CATT CATX CDF CEIL CEILZ CEXIST CHAR CHOOSEC CHOOSEN CINV
+          CLOSE CMISS CNONCT COALESCE COALESCEC COLLATE COMB COMPARE COMPBL
+          COMPFUZZ COMPGED COMPLEV COMPOUND COMPRESS CONSTANT CONVX CONVXP
+          COS COSH COT COUNT COUNTC COUNTW CSC CSS CUMIPMT CUMPRINC CUROBS
+          CV DACCDB DACCDBSL DACCSL DACCSYD DACCTAB DAIRY DATDIF DATE
+          DATEJUL DATEPART DATETIME DAY DCLOSE DCREATE DEPDB DEPDBSL DEPSL
+          DEPSYD DEPTAB DEQUOTE DEVIANCE DHMS DIF DIGAMMA DIM DINFO DIVIDE
+          DNUM DOPEN DOPTNAME DOPTNUM DOSUBL DREAD DROPNOTE DSNAME
+          DSNCATLGD DUR DURP EFFRATE ENVLEN ERF ERFC EUCLID EXIST EXP FACT
+          FAPPEND FCLOSE FCOL FCOPY FDELETE FETCH FETCHOBS FEXIST FGET
+          FILEEXIST FILENAME FILEREF FINANCE FIND FINDC FINDW FINFO FINV
+          FIPNAME FIPNAMEL FIPSTATE FIRST FLOOR FLOORZ FMTINFO FNONCT FNOTE
+          FOPEN FOPTNAME FOPTNUM FPOINT FPOS FPUT FREAD FREWIND FRLEN FSEP
+          FUZZ FWRITE GAMINV GAMMA GARKHCLPRC GARKHPTPRC GCD GEODIST
+          GEOMEAN GEOMEANZ GETOPTION GETVARC GETVARN GRAYCODE HARMEAN
+          HARMEANZ HBOUND HMS HOLIDAY HOLIDAYCK HOLIDAYCOUNT HOLIDAYNAME
+          HOLIDAYNX HOLIDAYNY HOLIDAYTEST HOUR HTMLDECODE HTMLENCODE
+          IBESSEL IFC IFN INDEX INDEXC INDEXW INPUT INPUTC INPUTN INT
+          INTCINDEX INTCK INTCYCLE INTFIT INTFMT INTGET INTINDEX INTNX
+          INTRR INTSEAS INTSHIFT INTTEST INTZ IORCMSG IPMT IQR IRR JBESSEL
+          JULDATE JULDATE7 KURTOSIS LAG LARGEST LBOUND LCM LCOMB LEFT
+          LENGTH LENGTHC LENGTHM LENGTHN LEXCOMB LEXCOMBI LEXPERK LEXPERM
+          LFACT LGAMMA LIBNAME LIBREF LOG LOG1PX LOG10 LOG2 LOGBETA LOGCDF
+          LOGISTIC LOGPDF LOGSDF LOWCASE LPERM LPNORM MAD MARGRCLPRC
+          MARGRPTPRC MAX MD5 MDY MEAN MEDIAN MIN MINUTE MISSING MOD
+          MODEXIST MODULE MODULEC MODULEN MODZ MONTH MOPEN MORT MSPLINT
+          MVALID N NETPV NLITERAL NMISS NOMRATE NORMAL NOTALNUM NOTALPHA
+          NOTCNTRL NOTDIGIT NOTE NOTFIRST NOTGRAPH NOTLOWER NOTNAME
+          NOTPRINT NOTPUNCT NOTSPACE NOTUPPER NOTXDIGIT NPV NVALID NWKDOM
+          OPEN ORDINAL PATHNAME PCTL PDF PEEK PEEKC PEEKCLONG PEEKLONG PERM
+          PMT POINT POISSON PPMT PROBBETA PROBBNML PROBBNRM PROBCHI PROBF
+          PROBGAM PROBHYPR PROBIT PROBMC PROBNEGB PROBNORM PROBT PROPCASE
+          PRXCHANGE PRXMATCH PRXPAREN PRXPARSE PRXPOSN PTRLONGADD PUT PUTC
+          PUTN PVP QTR QUANTILE QUOTE RANBIN RANCAU RAND RANEXP RANGAM
+          RANGE RANK RANNOR RANPOI RANTBL RANTRI RANUNI RENAME REPEAT
+          RESOLVE REVERSE REWIND RIGHT RMS ROUND ROUNDE ROUNDZ SAVING
+          SAVINGS SCAN SDF SEC SECOND SHA256 SHA256HEX SHA256HMACHEX SIGN
+          SIN SINH SKEWNESS SLEEP SMALLEST SOAPWEB SOAPWEBMETA
+          SOAPWIPSERVICE SOAPWIPSRS SOAPWS SOAPWSMETA SOUNDEX SPEDIS SQRT
+          SQUANTILE STD STDERR STFIPS STNAME STNAMEL STRIP SUBPAD SUBSTR
+          SUBSTRN SUM SUMABS SYMEXIST SYMGET SYMGLOBL SYMLOCAL SYSEXIST
+          SYSGET SYSMSG SYSPARM SYSPROCESSID SYSPROCESSNAME SYSPROD SYSRC
+          SYSTEM TAN TANH TIME TIMEPART TIMEVALUE TINV TNONCT TODAY
+          TRANSLATE TRANSTRN TRANWRD TRIGAMMA TRIM TRIMN TRUNC TSO TYPEOF
+          TZONEID TZONENAME TZONEOFF TZONES2U TZONEU2S UNIFORM UPCASE
+          URLDECODE URLENCODE USS UUIDGEN VAR VARFMT VARINFMT VARLABEL
+          VARLEN VARNAME VARNUM VARRAY VARRAYX VARTYPE VERIFY VFORMAT
+          VFORMATD VFORMATDX VFORMATN VFORMATNX VFORMATW VFORMATWX VFORMATX
+          VINARRAY VINARRAYX VINFORMAT VINFORMATD VINFORMATDX VINFORMATN
+          VINFORMATNX VINFORMATW VINFORMATWX VINFORMATX VLABEL VLABELX
+          VLENGTH VLENGTHX VNAME VNAMEX VTYPE VTYPEX VVALUE VVALUEX WEEK
+          WEEKDAY WHICHC WHICHN WTO YEAR YIELDP YRDIF YYQ ZIPCITY
+          ZIPCITYDISTANCE ZIPFIPS ZIPNAME ZIPNAMEL ZIPSTATE
+         )
+      end
+
+      def self.sas_macro_statements
+        # from SAS 9.4 Macro Language Reference
+        # Chapter 12
+        @sas_macro_statements ||= Set.new %w(
+          %COPY %DISPLAY %GLOBAL %INPUT %LET %MACRO %PUT %SYMDEL %SYSCALL
+          %SYSEXEC %SYSLPUT %SYSMACDELETE %SYSMSTORECLEAR %SYSRPUT %WINDOW
+          %ABORT %DO %TO %UNTIL %WHILE %END %GOTO %IF %THEN %ELSE %LOCAL
+          %RETURN
+          %INCLUDE %LIST %RUN
+        )
+        # Omitted:
+        # %label: Identifies the destination of a %GOTO statement.
+        # %MEND
+      end
+
+      def self.sas_macro_functions
+        # from SAS 9.4 Macro Language Reference
+        # Chapter 12
+
+        @sas_macro_functions ||= Set.new %w(
+          %BQUOTE %NRBQUOTE %EVAL %INDEX %LENGTH %QUOTE %NRQUOTE %SCAN
+          %QSCAN %STR %NRSTR %SUBSTR %QSUBSTR %SUPERQ %SYMEXIST %SYMGLOBL
+          %SYMLOCAL %SYSEVALF %SYSFUNC %QSYSFUNC %SYSGET %SYSMACEXEC
+          %SYSMACEXIST %SYSMEXECDEPTH %SYSMEXECNAME %SYSPROD %UNQUOTE
+          %UPCASE %QUPCASE
+        )
+      end
+
+      def self.sas_auto_macro_vars
+        # from SAS 9.4 Macro Language Reference
+        # Chapter 12
+
+        @sas_auto_macro_vars ||= Set.new %w(
+          &SYSADDRBITS &SYSBUFFR &SYSCC &SYSCHARWIDTH &SYSCMD &SYSDATASTEPPHASE &SYSDATE
+          &SYSDATE9 &SYSDAY &SYSDEVIC &SYSDMG &SYSDSN &SYSENCODING &SYSENDIAN &SYSENV
+          &SYSERR &SYSERRORTEXT &SYSFILRC &SYSHOSTINFOLONG &SYSHOSTNAME &SYSINDEX
+          &SYSINFO &SYSJOBID &SYSLAST &SYSLCKRC &SYSLIBRC &SYSLOGAPPLNAME &SYSMACRONAME
+          &SYSMENV &SYSMSG &SYSNCPU &SYSNOBS &SYSODSESCAPECHAR &SYSODSPATH &SYSPARM
+          &SYSPBUFF &SYSPRINTTOLIST &SYSPRINTTOLOG &SYSPROCESSID &SYSPROCESSMODE
+          &SYSPROCESSNAME &SYSPROCNAME &SYSRC &SYSSCP &SYSSCPL &SYSSITE &SYSSIZEOFLONG
+          &SYSSIZEOFPTR &SYSSIZEOFUNICODE &SYSSTARTID &SYSSTARTNAME &SYSTCPIPHOSTNAME
+          &SYSTIME &SYSTIMEZONE &SYSTIMEZONEIDENT &SYSTIMEZONEOFFSET &SYSUSERID &SYSVER
+          &SYSVLONG &SYSVLONG4 &SYSWARNINGTEXT
+        )
+      end
+
+      def self.proc_keywords 
+        # Create a hash with keywords for common PROCs, keyed by PROC name
+        @proc_keywords ||= {}
+
+	@proc_keywords["SQL"] ||= Set.new %w(
+            ALTER TABLE CONNECT CREATE INDEX VIEW DELETE DESCRIBE DISCONNECT DROP EXECUTE
+            INSERT RESET SELECT UPDATE VALIDATE ADD CONSTRAINT DROP FOREIGN KEY PRIMARY
+            MODIFY LIKE AS ORDER BY USING FROM INTO SET VALUES RESET DISTINCT UNIQUE
+            WHERE GROUP HAVING LEFT RIGHT INNER JOIN ON
+          )
+        # from SAS 9.4 SQL Procedure User's Guide
+
+	@proc_keywords["MEANS"] ||= Set.new %w(
+            BY CLASS FREQ ID OUTPUT OUT TYPES VAR WAYS WEIGHT
+            ATTRIB FORMAT LABEL WHERE
+            DESCENDING NOTSORTED 
+            NOTHREADS NOTRAP PCTLDEF SUMSIZE THREADS CLASSDATA COMPLETETYPES
+            EXCLUSIVE MISSING FW MAXDEC NONOBS NOPRINT ORDER FORMATTED FREQ
+            UNFORMATTED PRINT PRINTALLTYPES PRINTIDVARS STACKODSOUTPUT
+            CHARTYPE DESCENDTYPES IDMIN
+            ALPHA EXCLNPWGT QMARKERS QMETHOD QNTLDEF VARDEF
+            CLM CSS CV KURTOSIS KURT LCLM MAX MEAN MIN MODE N
+            NMISS RANGE SKEWNESS SKEW STDDEV STD STDERR SUM SUMWGT UCLM USS VAR
+            MEDIAN P50 Q1 P25 Q3 P75 P1 P90 P5 P95 P10 P99 P20 P30 P40 P60 P70
+            P80 QRANGE
+            PROBT PRT T
+            ASCENDING GROUPINTERNAL MLF PRELOADFMT
+            MAXID AUTOLABEL AUTONAME KEEPLEN LEVELS NOINHERIT
+          )
+        # from BASE SAS 9.4 Procedures Guide, Fifth Edition
+
+	@proc_keywords["DATASETS"] ||= Set.new %w(
+            AGE APPEND ATTRIB AUDIT CHANGE CONTENTS COPY DELETE EXCHANGE
+            EXCLUDE FORMAT IC CREATE DELETE REACTIVATE INDEX CENTILES INFORMAT
+            INITIATE LABEL LOG MODIFY REBUILD RENAME REPAIR RESUME SAVE SELECT
+            SUSPEND TERMINATE USER_VAR XATTR ADD OPTIONS REMOVE SET
+          )
+        # from BASE SAS 9.4 Procedures Guide, Fifth Edition
+
+	@proc_keywords["SORT"] ||= Set.new %w(
+            BY DESCENDING KEY ASCENDING ASC DESC DATECOPY FORCE OVERWRITE 
+            PRESORTED SORTSIZE TAGSORT DUPOUT OUT UNIQUEOUT NODUPKEY NOUNIQUEKEY 
+            NOTHREADS THREADS EQUALS NOEQUALS
+            ATTRIB FORMAT LABEL WHERE
+          )
+        # from BASE SAS 9.4 Procedures Guide, Fifth Edition
+
+	@proc_keywords["PRINT"] ||= Set.new %w(
+            BY DESCENDING NOTSORTED PAGEBY SUMBY ID STYLE SUM VAR CONTENTS DATA
+            GRANDTOTAL_LABEL HEADING LABEL SPLIT SUMLABEL NOSUMLABEL
+            BLANKLINE COUNT DOUBLE N NOOBS OBS ROUND
+            ROWS UNIFORM WIDTH
+            ATTRIB FORMAT LABEL WHERE
+          )
+        # from BASE SAS 9.4 Procedures Guide, Fifth Edition
+
+	@proc_keywords["APPEND"] ||= Set.new %w(
+            BASE APPENDVER DATA ENCRYPTKEY FORCE GETSORT NOWARN
+            ATTRIB FORMAT LABEL WHERE
+          )
+        # from BASE SAS 9.4 Procedures Guide, Fifth Edition
+
+	@proc_keywords["TRANSPOSE"] ||= Set.new %w(
+            DELIMITER LABEL LET NAME OUT PREFIX SUFFIX BY DESCENDING NOTSORTED
+            COPY ID IDLABEL VAR INDB
+            ATTRIB FORMAT LABEL WHERE
+          )
+        # from BASE SAS 9.4 Procedures Guide, Fifth Edition
+
+	@proc_keywords["FREQ"] ||= Set.new %w(
+            BY EXACT OUTPUT TABLES TEST WEIGHT
+            COMPRESS DATA FORMCHAR NLEVELS NOPRINT ORDER PAGE FORMATTED FREQ 
+            INTERNAL
+            AGREE BARNARD BINOMIAL BIN CHISQ COMOR EQOR ZELEN FISHER JT KAPPA
+            KENTB TAUB LRCHI MCNEM MEASURES MHCHI OR ODDSRATIO PCHI PCORR RELRISK
+            RISKDIFF SCORR SMDCR SMDRC STUTC TAUC TREND WTKAP WTKAPPA
+            OUT AJCHI ALL BDCHI CMH CMH1 CMH2 CMHCOR CMHGA CMHRMS COCHQ CONTGY
+            CRAMV EQKAP EQWKP GAMMA GS GAILSIMON LAMCR LAMDAS LAMRC LGOR LGRRC1
+            LGRRC2 MHOR MHRRC1 MHRRC2 N NMISS PHI PLCORR RDIF1 RDIF2 RISKDIFF1
+            RISKDIFF2 RRC1 RELRISK1 RRC2 RELRISK2 RSK1 RISK1 RSK11 RISK11 RSK12
+            RISK12 RSK21 RISK21 RSK22 RISK22 TSYMM BOWKER U UCR URC
+            CELLCHI2 CUMCOL DEVIATION EXPECTED MISSPRINT PEARSONREF PRINTWKTS
+            SCOROUT SPARSE STDRES TOTPCT
+            CONTENTS CROSSLIST FORMAT LIST MAXLEVELS NOCOL NOCUM NOFREQ NOPERCENT
+            NOPRINT NOROW NOSPARSE NOWARN PLOTS OUT OUTCUM OUTEXPECT OUTPCT
+            ZEROS
+          )
+        # from Base SAS 9.4 Procedures Guide: Statistical Procedures, Fourth Edition
+
+	@proc_keywords["CORR"] ||= Set.new %w(
+            BY FREQ ID PARTIAL VAR WEIGHT WITH
+            DATA OUTH OUTK OUTP OUTPLC OUTPLS OUTS
+            EXCLNPWGHT FISHER HOEFFDING KENDALL NOMISS PEARSON POLYCHORIC
+            POLYSERIAL ALPHA COV CSSCP SINGULAR SSCP VARDEF PLOTS MATRIX SCATTER
+            BEST NOCORR NOPRINT NOPROB NOSIMPLE RANK
+          )
+        # from Base SAS 9.4 Procedures Guide: Statistical Procedures, Fourth Edition
+
+	@proc_keywords["REPORT"] ||= Set.new %w(
+            BREAK BY DESCENDING NOTSORTED COLUMN COMPUTE STYLE LINE ENDCOMP
+            CALL DEFINE _ROW_ FREQ RBREAK WEIGHT
+            ATTRIB FORMAT LABEL WHERE
+            DATA NOALIAS NOCENTER NOCOMPLETECOLS NOCOMPLETEROWS NOTHREADS 
+            NOWINDOWS OUT PCTLDEF THREADS WINDOWS COMPLETECOLS NOCOMPLETECOLS
+            COMPLETEROWS NOCOMPLETEROWS CONTENTS SPANROWS COMMAND HELP PROMPT
+            BOX BYPAGENO CENTER NOCENTER COLWIDTH FORMCHAR LS MISSING PANELS PS
+            PSPACE SHOWALL SPACING WRAP EXCLNPWGT QMARKERS QMETHOD QNTLDEF VARDEF
+            NAMED NOHEADER SPLIT HEADLINE HEADSKIP LIST NOEXEC OUTREPT PROFILE
+            REPORT
+            COLOR DOL DUL OL PAGE SKIP SUMMARIZE SUPPRESS UL
+            BLINK COMMAND HIGHLIGHT RVSVIDEO MERGE REPLACE URL URLBP URLP
+            AFTER BEFORE _PAGE_ LEFT RIGHT CHARACTER LENGTH
+            EXCLUSIVE MISSING MLF ORDER DATA FORMATTED FREQ INTERNAL PRELOADFMT
+            WIDTH
+            ACROSS ANALYSIS COMPUTED DISPLAY GROUP ORDER
+            CONTENTS FLOW ID NOPRINT NOZERO PAGE
+            CSS CV MAX MEAN MIN MODE N NMISS PCTN PCTSUM RANGE STD STDERR SUM
+            SUMWGT USS VAR
+            MEDIAN P50 Q1 P25 Q3 P75 P1 P90 P5 P95 P10 P99 P20 P30 P40 P60 P70
+            P80 QRANGE
+            PROBT PRT T
+          )
+        # from BASE SAS 9.4 Procedures Guide, Fifth Edition
+
+	@proc_keywords["METALIB"] ||= Set.new %w(
+            OMR DBAUTH DBUSER DBPASSWORD EXCLUDE SELECT READ FOLDER FOLDERID
+            IMPACT_LIMIT NOEXEC PREFIX REPORT UPDATE_RULE DELETE NOADD NODELDUP
+            NOUPDATE
+            LIBID LIBRARY LIBURI
+            TYPE DETAIL SUMMARY
+          )
+        # from SAS 9.4 Language Interfaces to Metadata, Third Edition
+
+	@proc_keywords["GCHART"] ||= Set.new %w(
+            DATA ANNOTATE GOUT IMAGEMAP BLOCK HBAR HBAR3D VBAR VBAR3D PIE PIE3D
+            DONUT STAR ANNO
+            BY NOTE FORMAT LABEL WHERE
+            BLOCKMAX CAXIS COUTLINE CTEXT LEGEND NOHEADING NOLEGEND PATTERNID
+            GROUP MIDPOINT SUBGROUP WOUTLINE DESCRIPTION NAME DISCRETE LEVELS
+            OLD MISSING HTML_LEGEND HTML URL FREQ G100 SUMVAR TYPE
+            CAUTOREF CERROR CFRAME CLM CREF FRAME NOFRAME GSPACE IFRAME
+            IMAGESTYLE TILE FIT LAUTOREF NOSYMBOL PATTERNID SHAPE SPACE
+            SUBOUTSIDE WAUTOREF WIDTH WOUTLINE WREF
+            ASCENDING AUTOREF CLIPREF DESCENDING FRONTREF GAXIS MAXIS MINOR
+            NOAXIS NOBASEREF NOZERO RANGE AXIS REF CFREQ CFREQLABEL NONE CPERCENT
+            CPERCENTLABEL ERRORBAR BARS BOTH TOP FREQLABEL INSIDE MEAN MEANLABEL
+            NOSTATS OUTSIDE PERCENT PERCENTLABEL PERCENTSUM SUM
+            CFILL COUTLINE DETAIL_RADIUS EXPLODE FILL SOLID X INVISIBLE NOHEADING
+            RADIUS WOUTLINE DETAIL_THRESHOLD DETAIL_PERCENT DETAIL_SLICE
+            DETAIL_VALUE DONUTPCT LABEL ACROSS DOWN GROUP NOGROUPHEADING SUBGROUP
+            MATCHCOLOR OTHERCOLOR OTHERLABEL PERCENT ARROW PLABEL PPERCENT SLICE
+            VALUE
+            ANGLE ASCENDING CLOCKWISE DESCENDING JSTYLE
+            NOCONNECT STARMAX STARMIN 
+          )
+        # from SAS GRAPH 9.4 Reference, Fourth Edition
+
+	@proc_keywords["GPLOT"] ||= Set.new %w(
+            DATA ANNOTATE GOUT IMAGEMAP UNIFORM BUBBLE BUBBLE2 PLOT PLOT2
+            BCOLOR BFILL BFONT BLABEL BSCALE AREA RADIUS BSIZE DESCRIPTION NAME
+            AUTOHREF CAUTOHREF CHREF HAXIS HMINOR HREF HREVERSE HZERO LAUTOHREF
+            LHREF WAUTOHREF WHREF HTML URL
+            CAXIS CFRAME CTEXT DATAORDER FRAME NOFRAME FRONTREF GRID IFRAME
+            IMAGESTYLE TILE FIT NOAXIS
+            AUTOVREF CAUTOVREF CVREF LAUTOVREF LVREF VAXIS VMINOR VREF VREVERSE
+            VZERO WAUTOVREF WVREF
+            CBASELINE COUTLINE
+            AREAS GRID LEGEND NOLASTAREA NOLEGEND OVERLAY REGEQN SKIPMISS
+          )
+        # from SAS GRAPH 9.4 Reference, Fourth Edition
+
+	@proc_keywords["REG"] ||= Set.new %w(
+            MODEL BY FREQ ID VAR WEIGHT ADD CODE DELETE MTEST OUTPUT PAINT
+            PLOT PRINT REFIT RESTRICT REWEIGHT STORE TEST
+          )
+         # from SAS/STAT 15.1 User's Guide
+
+	@proc_keywords["SGPLOT"] ||= Set.new %w(
+            STYLEATTRS BAND X Y UPPER LOWER BLOCK BUBBLE DENSITY DOT DROPLINE
+            ELLIPSE ELLIPSEPARM FRINGE GRADLEGEND HBAR HBARBASIC HBARPARM
+            HBOX HEATMAP HEATMAPPARM HIGHLOW HISTOGRAM HLINE INSET KEYLEGEND
+            LINEPARM LOESS NEEDLE PBSPLINE POLYGON REFLINE REG SCATTER SERIES
+            SPLINE STEP SYMBOLCHAR SYMBOLIMAGE TEXT VBAR VBARBASIC VBARPARM
+            VBOX VECTOR VLINE WATERFALL XAXIS X2AXIS XAXISTABLE YAXIS Y2AXIS
+            YAXISTABLE
+          )
+         # from ODS Graphics: Procedures Guide, Sixth Edition
+        return @proc_keywords
+      end
+
+      def self.sas_proc_names
+        # from SAS Procedures by Name
+        # http://support.sas.com/documentation/cdl/en/allprodsproc/68038/HTML/default/viewer.htm#procedures.htm
+
+        @sas_proc_names ||= Set.new %w(
+          ACCESS ACECLUS ADAPTIVEREG ALLELE ANOM ANOVA APPEND APPSRV ARIMA
+          AUTHLIB AUTOREG BCHOICE BOM BOXPLOT BTL BUILD CALENDAR CALIS CALLRFC
+          CANCORR CANDISC CAPABILITY CASECONTROL CATALOG CATMOD CDISC CDISC
+          CHART CIMPORT CLP CLUSTER COMPARE COMPILE COMPUTAB CONTENTS CONVERT
+          COPULA COPY CORR CORRESP COUNTREG CPM CPORT CUSUM CV2VIEW DATEKEYS
+          DATASETS DATASOURCE DB2EXT DB2UTIL DBCSTAB DBF DBLOAD DELETE DIF
+          DISCRIM DISPLAY DISTANCE DMSRVADM DMSRVDATASVC DMSRVPROCESSSVC
+          DOCUMENT DOWNLOAD DQLOCLST DQMATCH DQSCHEME DS2 DTREE ENTROPY ESM
+          EXPAND EXPLODE EXPORT FACTEX FACTOR FAMILY FASTCLUS FCMP FEDSQL FMM
+          FONTREG FORECAST FORMAT FORMS FREQ FSBROWSE FSEDIT FSLETTER FSLIST
+          FSVIEW G3D G3GRID GA GAM GAMPL GANNO GANTT GAREABAR GBARLINE GCHART
+          GCONTOUR GDEVICE GEE GENESELECT GENMOD GEOCODE GFONT GINSIDE GIS GKPI
+          GLIMMIX GLM GLMMOD GLMPOWER GLMSELECT GMAP GOPTIONS GPLOT GPROJECT
+          GRADAR GREDUCE GREMOVE GREPLAY GROOVY GSLIDE GTILE HADOOP HAPLOTYPE
+          HDMD HPBIN HPCANDISC HPCDM HPCOPULA HPCORR HPCOUNTREG HPDMDB HPDS2
+          HPFMM HPGENSELECT HPIMPUTE HPLMIXED HPLOGISTIC HPMIXED HPNLMOD
+          HPPANEL HPPLS HPPRINCOMP HPQUANTSELECT HPQLIM HPREG HPSAMPLE
+          HPSEVERITY HPSPLIT HPSUMMARY HTSNP HTTP ICLIFETEST ICPHREG IML IMPORT
+          IMSTAT IMXFER INBREED INFOMAPS INTPOINT IOMOPERATE IRT ISHIKAWA ITEMS
+          JAVAINFO JSON KDE KRIGE2D LASR LATTICE LIFEREG LIFETEST LOAN
+          LOCALEDATA LOESS LOGISTIC LP LUA MACONTROL MAPIMPORT MCMC MDC MDDB
+          MDS MEANS METADATA METALIB METAOPERATE MI MIANALYZE MIGRATE MIXED
+          MODECLUS MODEL MSCHART MULTTEST MVPDIAGNOSE MVPMODEL MVPMONITOR
+          NESTED NETDRAW NETFLOW NLIN NLMIXED NLP NPAR1WAY ODSLIST ODSTABLE
+          ODSTEXT OLAP OLAPCONTENTS OLAPOPERATE OPERATE OPTEX OPTGRAPH OPTIONS
+          OPTLOAD OPTLP OPTLSO OPTMILP OPTMODEL OPTNET OPTQP OPTSAVE ORTHOREG
+          PANEL PARETO PDLREG PDS PDSCOPY PHREG PLAN PLM PLOT PLS PM PMENU
+          POWER PRESENV PRINCOMP PRINQUAL PRINT PRINTTO PROBIT PROTO PRTDEF
+          PRTEXP PSMOOTH PWENCODE QDEVICE QLIM QUANTLIFE QUANTREG QUANTSELECT
+          QUEST RANK RAREEVENTS RDC RDPOOL RDSEC RECOMMEND REG REGISTRY RELEASE
+          RELIABILITY REPORT RISK ROBUSTREG RSREG SCAPROC SCORE SEQDESIGN
+          SEQTEST SERVER SEVERITY SGDESIGN SGPANEL SGPLOT SGRENDER SGSCATTER
+          SHEWHART SIM2D SIMILARITY SIMLIN SIMNORMAL SOAP SORT SOURCE SPECTRA
+          SPP SQL SQOOP SSM STANDARD STATESPACE STDIZE STDRATE STEPDISC STP
+          STREAM SUMMARY SURVEYFREQ SURVEYIMPUTE SURVEYLOGISTIC SURVEYMEANS
+          SURVEYPHREG SURVEYREG SURVEYSELECT SYSLIN TABULATE TAPECOPY TAPELABEL
+          TEMPLATE TIMEDATA TIMEID TIMEPLOT TIMESERIES TPSPLINE TRANSPOSE
+          TRANSREG TRANTAB TREE TSCSREG TTEST UCM UNIVARIATE UPLOAD VARCLUS
+          VARCOMP VARIOGRAM VARMAX VASMP X11 X12 X13 XSL
+        )
+      end
+
+      state :basics do
+        # Rules to be parsed before the keywords (which are different depending
+        # on the context)
+
+        rule %r/\s+/m, Text
+
+        # Single-line comments (between * and ;) - these can actually go onto multiple lines
+        # case 1 - where it starts a line
+        rule %r/^\s*%?\*[^;]*;/m, Comment::Single
+        # case 2 - where it follows the previous statement on the line (after a semicolon)
+        rule %r/(;)(\s*)(%?\*[^;]*;)/m do
+          groups Punctuation, Text, Comment::Single
+        end
+
+        # True multiline comments!
+        rule %r(/[*].*?[*]/)m, Comment::Multiline
+
+        # date/time constants (Language Reference pp91-2)
+        rule %r/'[0-9a-z]+?'d/i, Literal::Date
+        rule %r/'.+?'dt/i, Literal::Date
+        rule %r/'[0-9:]+?([a|p]m)?'t/i, Literal::Date
+
+        rule %r/'/, Str::Single, :single_string
+        rule %r/"/, Str::Double, :double_string
+        rule %r/&[a-z0-9_&.]+/i, Name::Variable
+
+        # numeric constants (Language Reference p91)
+        rule %r/\d[0-9a-f]*x/i, Num::Hex
+        rule %r/\d[0-9e\-.]+/i, Num # scientific notation
+
+        # auto variables from DATA step (Language Reference p46, p37)
+        rule %r/\b(_n_|_error_|_file_|_infile_|_msg_|_iorc_|_cmd_)\b/i, Name::Builtin::Pseudo
+
+        # auto variable list names
+        rule %r/\b(_character_|_numeric_|_all_)\b/i, Name::Builtin
+
+        # datalines/cards etc
+        rule %r/\b(datalines|cards)(\s*)(;)/i do
+          groups Keyword, Text, Punctuation
+          push :datalines
+        end
+        rule %r/\b(datalines4|cards4)(\s*)(;)/i do
+          groups Keyword, Text, Punctuation
+          push :datalines4
+        end
+
+
+        # operators (Language Reference p96)
+        rule %r(\*\*|[\*/\+-]), Operator
+        rule %r/[^¬~]?=:?|[<>]=?:?/, Operator
+        rule %r/\b(eq|ne|gt|lt|ge|le|in)\b/i, Operator::Word
+        rule %r/[&|!¦¬∘~]/, Operator
+        rule %r/\b(and|or|not)\b/i, Operator::Word
+        rule %r/(<>|><)/, Operator # min/max
+        rule %r/\|\|/, Operator # concatenation
+
+        # The OF operator should also be highlighted (Language Reference p49)
+        rule %r/\b(of)\b/i, Operator::Word
+        rule %r/\b(like)\b/i, Operator::Word # Language Ref p181
+      
+        rule %r/\d+/, Num::Integer
+
+        rule %r/\$/, Keyword::Type
+
+        # Macro definitions
+        rule %r/(%macro|%mend)(\s*)(\w+)/i do
+          groups Keyword, Text, Name::Function
+        end
+        rule %r/%mend/, Keyword
+
+        rule %r/%\w+/ do |m|
+          if self.class.sas_macro_statements.include? m[0].upcase
+            token Keyword
+          elsif self.class.sas_macro_functions.include? m[0].upcase
+            token Keyword
+          else
+            token Name
+          end
+        end
+      end
+
+      state :basics2 do
+        # Rules to be parsed after the keywords (which are different depending
+        # on the context)
+
+        # Missing values (Language Reference p81)
+        rule %r/\s\.[;\s]/, Keyword::Constant # missing
+        rule %r/\s\.[a-z_]/, Name::Constant # user-defined missing
+
+        rule %r/[\(\),;:\{\}\[\]\\\.]/, Punctuation
+
+        rule %r/@/, Str::Symbol # line hold specifiers
+        rule %r/\?/, Str::Symbol # used for format modifiers
+        
+        rule %r/[^\s]+/, Text # Fallback for anything we haven't matched so far
+      end
+
+      state :root do
+        mixin :basics
+
+        # PROC definitions
+        rule %r!(proc)(\s+)(\w+)!ix do |m|
+          @proc_name = m[3].upcase
+          puts "    proc name: #{@proc_name}" if @debug
+          if self.class.sas_proc_names.include? @proc_name
+            groups Keyword, Text, Keyword
+          else
+            groups Keyword, Text, Name
+          end
+        
+          push :proc
+        end
+
+        # Data step definitions
+        rule %r/(data)(\s+)([\w\.]+)/i do
+          groups Keyword, Text, Name::Variable
+        end
+        # Libname definitions
+        rule %r/(libname)(\s+)(\w+)/i do
+          groups Keyword, Text, Name::Variable
+        end
+
+        rule %r/\w+/ do |m|
+          if self.class.data_step_statements.include? m[0].upcase
+            token Keyword
+          elsif self.class.sas_functions.include? m[0].upcase
+            token Keyword
+          else
+            token Name
+          end
+        end
+
+         mixin :basics2
+      end
+
+
+      state :single_string do
+        rule %r/''/, Str::Escape
+        rule %r/'/, Str::Single, :pop!
+        rule %r/[^']+/, Str::Single
+      end
+
+      state :double_string do
+        rule %r/&[a-z0-9_&]+\.?/i, Str::Interpol
+        rule %r/""/, Str::Escape
+        rule %r/"/, Str::Double, :pop!
+
+        rule %r/[^&"]+/, Str::Double
+        # Allow & to be used as character if not already matched as macro variable
+        rule %r/&/, Str::Double
+      end
+
+      state :datalines do
+        rule %r/[^;]/, Literal::String::Heredoc
+        rule %r/;/, Punctuation, :pop!
+      end
+
+      state :datalines4 do
+        rule %r/;{4}/, Punctuation, :pop!
+        rule %r/[^;]/, Literal::String::Heredoc
+        rule %r/;{,3}/, Literal::String::Heredoc
+      end
+
+
+      # PROCS
+      state :proc do
+        rule %r/(quit|run)/i, Keyword, :pop!
+        
+        mixin :basics
+        rule %r/\w+/ do |m|
+          if self.class.data_step_statements.include? m[0].upcase
+            token Keyword
+          elsif self.class.sas_functions.include? m[0].upcase
+            token Keyword
+          elsif self.class.proc_keywords.has_key?(@proc_name) and self.class.proc_keywords[@proc_name].include? m[0].upcase
+            token Keyword
+          else
+            token Name
+          end
+        end
+
+         mixin :basics2
+      end
+
+    end #class SAS
+  end #module Lexers
+end #module Rouge