rouge-alda 3.3.0
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- checksums.yaml +7 -0
- data/Gemfile +28 -0
- data/LICENSE +186 -0
- data/bin/rougify +18 -0
- data/lib/rouge/cli.rb +432 -0
- data/lib/rouge/demos/abap +6 -0
- data/lib/rouge/demos/actionscript +4 -0
- data/lib/rouge/demos/alda +10 -0
- data/lib/rouge/demos/apache +21 -0
- data/lib/rouge/demos/apiblueprint +33 -0
- data/lib/rouge/demos/applescript +2 -0
- data/lib/rouge/demos/awk +4 -0
- data/lib/rouge/demos/biml +38 -0
- data/lib/rouge/demos/bsl +7 -0
- data/lib/rouge/demos/c +8 -0
- data/lib/rouge/demos/ceylon +7 -0
- data/lib/rouge/demos/cfscript +18 -0
- data/lib/rouge/demos/clojure +5 -0
- data/lib/rouge/demos/cmake +7 -0
- data/lib/rouge/demos/coffeescript +5 -0
- data/lib/rouge/demos/common_lisp +1 -0
- data/lib/rouge/demos/conf +4 -0
- data/lib/rouge/demos/console +6 -0
- data/lib/rouge/demos/coq +13 -0
- data/lib/rouge/demos/cpp +8 -0
- data/lib/rouge/demos/crystal +45 -0
- data/lib/rouge/demos/csharp +5 -0
- data/lib/rouge/demos/css +4 -0
- data/lib/rouge/demos/d +16 -0
- data/lib/rouge/demos/dart +6 -0
- data/lib/rouge/demos/diff +7 -0
- data/lib/rouge/demos/digdag +19 -0
- data/lib/rouge/demos/docker +9 -0
- data/lib/rouge/demos/dot +5 -0
- data/lib/rouge/demos/eiffel +30 -0
- data/lib/rouge/demos/elixir +1 -0
- data/lib/rouge/demos/elm +4 -0
- data/lib/rouge/demos/erb +1 -0
- data/lib/rouge/demos/erlang +7 -0
- data/lib/rouge/demos/factor +5 -0
- data/lib/rouge/demos/fortran +22 -0
- data/lib/rouge/demos/fsharp +12 -0
- data/lib/rouge/demos/gherkin +17 -0
- data/lib/rouge/demos/glsl +14 -0
- data/lib/rouge/demos/go +7 -0
- data/lib/rouge/demos/gradle +10 -0
- data/lib/rouge/demos/graphql +17 -0
- data/lib/rouge/demos/groovy +9 -0
- data/lib/rouge/demos/hack +5 -0
- data/lib/rouge/demos/haml +5 -0
- data/lib/rouge/demos/handlebars +7 -0
- data/lib/rouge/demos/haskell +6 -0
- data/lib/rouge/demos/hcl +7 -0
- data/lib/rouge/demos/html +8 -0
- data/lib/rouge/demos/http +14 -0
- data/lib/rouge/demos/hylang +10 -0
- data/lib/rouge/demos/idlang +8 -0
- data/lib/rouge/demos/igorpro +9 -0
- data/lib/rouge/demos/ini +4 -0
- data/lib/rouge/demos/io +11 -0
- data/lib/rouge/demos/irb +4 -0
- data/lib/rouge/demos/irb_output +2 -0
- data/lib/rouge/demos/java +5 -0
- data/lib/rouge/demos/javascript +1 -0
- data/lib/rouge/demos/jinja +9 -0
- data/lib/rouge/demos/json +1 -0
- data/lib/rouge/demos/json-doc +1 -0
- data/lib/rouge/demos/jsonnet +28 -0
- data/lib/rouge/demos/jsp +29 -0
- data/lib/rouge/demos/jsx +17 -0
- data/lib/rouge/demos/julia +11 -0
- data/lib/rouge/demos/kotlin +3 -0
- data/lib/rouge/demos/lasso +12 -0
- data/lib/rouge/demos/liquid +11 -0
- data/lib/rouge/demos/literate_coffeescript +3 -0
- data/lib/rouge/demos/literate_haskell +7 -0
- data/lib/rouge/demos/llvm +20 -0
- data/lib/rouge/demos/lua +12 -0
- data/lib/rouge/demos/m68k +16 -0
- data/lib/rouge/demos/make +6 -0
- data/lib/rouge/demos/markdown +4 -0
- data/lib/rouge/demos/mathematica +8 -0
- data/lib/rouge/demos/matlab +6 -0
- data/lib/rouge/demos/moonscript +16 -0
- data/lib/rouge/demos/mosel +10 -0
- data/lib/rouge/demos/mxml +22 -0
- data/lib/rouge/demos/nasm +26 -0
- data/lib/rouge/demos/nginx +5 -0
- data/lib/rouge/demos/nim +27 -0
- data/lib/rouge/demos/nix +19 -0
- data/lib/rouge/demos/objective_c +18 -0
- data/lib/rouge/demos/ocaml +12 -0
- data/lib/rouge/demos/pascal +14 -0
- data/lib/rouge/demos/perl +5 -0
- data/lib/rouge/demos/php +3 -0
- data/lib/rouge/demos/plaintext +1 -0
- data/lib/rouge/demos/plist +142 -0
- data/lib/rouge/demos/pony +17 -0
- data/lib/rouge/demos/powershell +49 -0
- data/lib/rouge/demos/praat +26 -0
- data/lib/rouge/demos/prolog +9 -0
- data/lib/rouge/demos/prometheus +9 -0
- data/lib/rouge/demos/properties +7 -0
- data/lib/rouge/demos/protobuf +5 -0
- data/lib/rouge/demos/puppet +6 -0
- data/lib/rouge/demos/python +6 -0
- data/lib/rouge/demos/q +2 -0
- data/lib/rouge/demos/qml +9 -0
- data/lib/rouge/demos/r +8 -0
- data/lib/rouge/demos/racket +24 -0
- data/lib/rouge/demos/ruby +9 -0
- data/lib/rouge/demos/rust +12 -0
- data/lib/rouge/demos/sass +3 -0
- data/lib/rouge/demos/scala +3 -0
- data/lib/rouge/demos/scheme +4 -0
- data/lib/rouge/demos/scss +5 -0
- data/lib/rouge/demos/sed +4 -0
- data/lib/rouge/demos/shell +2 -0
- data/lib/rouge/demos/sieve +10 -0
- data/lib/rouge/demos/slim +17 -0
- data/lib/rouge/demos/smalltalk +6 -0
- data/lib/rouge/demos/smarty +12 -0
- data/lib/rouge/demos/sml +4 -0
- data/lib/rouge/demos/sqf +14 -0
- data/lib/rouge/demos/sql +1 -0
- data/lib/rouge/demos/swift +5 -0
- data/lib/rouge/demos/tap +5 -0
- data/lib/rouge/demos/tcl +1 -0
- data/lib/rouge/demos/terraform +31 -0
- data/lib/rouge/demos/tex +1 -0
- data/lib/rouge/demos/toml +9 -0
- data/lib/rouge/demos/tsx +17 -0
- data/lib/rouge/demos/tulip +13 -0
- data/lib/rouge/demos/turtle +26 -0
- data/lib/rouge/demos/twig +9 -0
- data/lib/rouge/demos/typescript +1 -0
- data/lib/rouge/demos/vala +8 -0
- data/lib/rouge/demos/vb +4 -0
- data/lib/rouge/demos/verilog +27 -0
- data/lib/rouge/demos/vhdl +23 -0
- data/lib/rouge/demos/viml +14 -0
- data/lib/rouge/demos/vue +11 -0
- data/lib/rouge/demos/wollok +11 -0
- data/lib/rouge/demos/xml +2 -0
- data/lib/rouge/demos/yaml +4 -0
- data/lib/rouge/formatter.rb +76 -0
- data/lib/rouge/formatters/html.rb +38 -0
- data/lib/rouge/formatters/html_inline.rb +31 -0
- data/lib/rouge/formatters/html_legacy.rb +45 -0
- data/lib/rouge/formatters/html_linewise.rb +28 -0
- data/lib/rouge/formatters/html_pygments.rb +18 -0
- data/lib/rouge/formatters/html_table.rb +62 -0
- data/lib/rouge/formatters/null.rb +20 -0
- data/lib/rouge/formatters/terminal256.rb +181 -0
- data/lib/rouge/guesser.rb +57 -0
- data/lib/rouge/guessers/disambiguation.rb +106 -0
- data/lib/rouge/guessers/filename.rb +27 -0
- data/lib/rouge/guessers/glob_mapping.rb +45 -0
- data/lib/rouge/guessers/mimetype.rb +16 -0
- data/lib/rouge/guessers/modeline.rb +46 -0
- data/lib/rouge/guessers/source.rb +31 -0
- data/lib/rouge/guessers/util.rb +34 -0
- data/lib/rouge/lexer.rb +462 -0
- data/lib/rouge/lexers/abap.rb +240 -0
- data/lib/rouge/lexers/actionscript.rb +196 -0
- data/lib/rouge/lexers/alda.rb +43 -0
- data/lib/rouge/lexers/apache/keywords.yml +764 -0
- data/lib/rouge/lexers/apache.rb +73 -0
- data/lib/rouge/lexers/apiblueprint.rb +49 -0
- data/lib/rouge/lexers/apple_script.rb +369 -0
- data/lib/rouge/lexers/awk.rb +162 -0
- data/lib/rouge/lexers/biml.rb +43 -0
- data/lib/rouge/lexers/bsl.rb +82 -0
- data/lib/rouge/lexers/c.rb +213 -0
- data/lib/rouge/lexers/ceylon.rb +124 -0
- data/lib/rouge/lexers/cfscript.rb +154 -0
- data/lib/rouge/lexers/clojure.rb +113 -0
- data/lib/rouge/lexers/cmake.rb +207 -0
- data/lib/rouge/lexers/coffeescript.rb +175 -0
- data/lib/rouge/lexers/common_lisp.rb +346 -0
- data/lib/rouge/lexers/conf.rb +25 -0
- data/lib/rouge/lexers/console.rb +137 -0
- data/lib/rouge/lexers/coq.rb +188 -0
- data/lib/rouge/lexers/cpp.rb +79 -0
- data/lib/rouge/lexers/crystal.rb +430 -0
- data/lib/rouge/lexers/csharp.rb +115 -0
- data/lib/rouge/lexers/css.rb +274 -0
- data/lib/rouge/lexers/d.rb +177 -0
- data/lib/rouge/lexers/dart.rb +105 -0
- data/lib/rouge/lexers/diff.rb +33 -0
- data/lib/rouge/lexers/digdag.rb +70 -0
- data/lib/rouge/lexers/docker.rb +51 -0
- data/lib/rouge/lexers/dot.rb +69 -0
- data/lib/rouge/lexers/eiffel.rb +66 -0
- data/lib/rouge/lexers/elixir.rb +134 -0
- data/lib/rouge/lexers/elm.rb +90 -0
- data/lib/rouge/lexers/erb.rb +53 -0
- data/lib/rouge/lexers/erlang.rb +115 -0
- data/lib/rouge/lexers/factor.rb +303 -0
- data/lib/rouge/lexers/fortran.rb +178 -0
- data/lib/rouge/lexers/fsharp.rb +119 -0
- data/lib/rouge/lexers/gherkin/keywords.rb +16 -0
- data/lib/rouge/lexers/gherkin.rb +138 -0
- data/lib/rouge/lexers/glsl.rb +136 -0
- data/lib/rouge/lexers/go.rb +175 -0
- data/lib/rouge/lexers/gradle.rb +38 -0
- data/lib/rouge/lexers/graphql.rb +254 -0
- data/lib/rouge/lexers/groovy.rb +113 -0
- data/lib/rouge/lexers/hack.rb +49 -0
- data/lib/rouge/lexers/haml.rb +230 -0
- data/lib/rouge/lexers/handlebars.rb +80 -0
- data/lib/rouge/lexers/haskell.rb +198 -0
- data/lib/rouge/lexers/hcl.rb +163 -0
- data/lib/rouge/lexers/html.rb +140 -0
- data/lib/rouge/lexers/http.rb +81 -0
- data/lib/rouge/lexers/hylang.rb +94 -0
- data/lib/rouge/lexers/idlang.rb +312 -0
- data/lib/rouge/lexers/igorpro.rb +664 -0
- data/lib/rouge/lexers/ini.rb +54 -0
- data/lib/rouge/lexers/io.rb +69 -0
- data/lib/rouge/lexers/irb.rb +67 -0
- data/lib/rouge/lexers/java.rb +88 -0
- data/lib/rouge/lexers/javascript.rb +283 -0
- data/lib/rouge/lexers/jinja.rb +138 -0
- data/lib/rouge/lexers/json.rb +30 -0
- data/lib/rouge/lexers/json_doc.rb +24 -0
- data/lib/rouge/lexers/jsonnet.rb +152 -0
- data/lib/rouge/lexers/jsp.rb +120 -0
- data/lib/rouge/lexers/jsx.rb +104 -0
- data/lib/rouge/lexers/julia.rb +167 -0
- data/lib/rouge/lexers/kotlin.rb +127 -0
- data/lib/rouge/lexers/lasso/keywords.yml +446 -0
- data/lib/rouge/lexers/lasso.rb +215 -0
- data/lib/rouge/lexers/liquid.rb +288 -0
- data/lib/rouge/lexers/literate_coffeescript.rb +34 -0
- data/lib/rouge/lexers/literate_haskell.rb +37 -0
- data/lib/rouge/lexers/llvm.rb +81 -0
- data/lib/rouge/lexers/lua/builtins.rb +24 -0
- data/lib/rouge/lexers/lua.rb +126 -0
- data/lib/rouge/lexers/m68k.rb +144 -0
- data/lib/rouge/lexers/make.rb +113 -0
- data/lib/rouge/lexers/markdown.rb +155 -0
- data/lib/rouge/lexers/mathematica/builtins.rb +13 -0
- data/lib/rouge/lexers/mathematica.rb +96 -0
- data/lib/rouge/lexers/matlab/builtins.rb +13 -0
- data/lib/rouge/lexers/matlab.rb +72 -0
- data/lib/rouge/lexers/moonscript.rb +115 -0
- data/lib/rouge/lexers/mosel.rb +232 -0
- data/lib/rouge/lexers/mxml.rb +69 -0
- data/lib/rouge/lexers/nasm.rb +199 -0
- data/lib/rouge/lexers/nginx.rb +72 -0
- data/lib/rouge/lexers/nim.rb +153 -0
- data/lib/rouge/lexers/nix.rb +211 -0
- data/lib/rouge/lexers/objective_c.rb +195 -0
- data/lib/rouge/lexers/ocaml.rb +101 -0
- data/lib/rouge/lexers/pascal.rb +67 -0
- data/lib/rouge/lexers/perl.rb +201 -0
- data/lib/rouge/lexers/php/builtins.rb +196 -0
- data/lib/rouge/lexers/php.rb +194 -0
- data/lib/rouge/lexers/plain_text.rb +27 -0
- data/lib/rouge/lexers/plist.rb +47 -0
- data/lib/rouge/lexers/pony.rb +94 -0
- data/lib/rouge/lexers/powershell.rb +679 -0
- data/lib/rouge/lexers/praat.rb +351 -0
- data/lib/rouge/lexers/prolog.rb +61 -0
- data/lib/rouge/lexers/prometheus.rb +123 -0
- data/lib/rouge/lexers/properties.rb +52 -0
- data/lib/rouge/lexers/protobuf.rb +71 -0
- data/lib/rouge/lexers/puppet.rb +129 -0
- data/lib/rouge/lexers/python.rb +247 -0
- data/lib/rouge/lexers/q.rb +125 -0
- data/lib/rouge/lexers/qml.rb +74 -0
- data/lib/rouge/lexers/r.rb +90 -0
- data/lib/rouge/lexers/racket.rb +545 -0
- data/lib/rouge/lexers/ruby.rb +439 -0
- data/lib/rouge/lexers/rust.rb +198 -0
- data/lib/rouge/lexers/sass/common.rb +181 -0
- data/lib/rouge/lexers/sass.rb +75 -0
- data/lib/rouge/lexers/scala.rb +143 -0
- data/lib/rouge/lexers/scheme.rb +113 -0
- data/lib/rouge/lexers/scss.rb +35 -0
- data/lib/rouge/lexers/sed.rb +173 -0
- data/lib/rouge/lexers/shell.rb +190 -0
- data/lib/rouge/lexers/sieve.rb +97 -0
- data/lib/rouge/lexers/slim.rb +229 -0
- data/lib/rouge/lexers/smalltalk.rb +117 -0
- data/lib/rouge/lexers/smarty.rb +81 -0
- data/lib/rouge/lexers/sml.rb +345 -0
- data/lib/rouge/lexers/sqf/commands.rb +15 -0
- data/lib/rouge/lexers/sqf.rb +109 -0
- data/lib/rouge/lexers/sql.rb +141 -0
- data/lib/rouge/lexers/swift.rb +182 -0
- data/lib/rouge/lexers/tap.rb +89 -0
- data/lib/rouge/lexers/tcl.rb +193 -0
- data/lib/rouge/lexers/terraform.rb +105 -0
- data/lib/rouge/lexers/tex.rb +70 -0
- data/lib/rouge/lexers/toml.rb +68 -0
- data/lib/rouge/lexers/tsx.rb +20 -0
- data/lib/rouge/lexers/tulip.rb +108 -0
- data/lib/rouge/lexers/turtle.rb +64 -0
- data/lib/rouge/lexers/twig.rb +40 -0
- data/lib/rouge/lexers/typescript/common.rb +34 -0
- data/lib/rouge/lexers/typescript.rb +23 -0
- data/lib/rouge/lexers/vala.rb +78 -0
- data/lib/rouge/lexers/vb.rb +165 -0
- data/lib/rouge/lexers/verilog.rb +165 -0
- data/lib/rouge/lexers/vhdl.rb +98 -0
- data/lib/rouge/lexers/viml/keywords.rb +14 -0
- data/lib/rouge/lexers/viml.rb +102 -0
- data/lib/rouge/lexers/vue.rb +124 -0
- data/lib/rouge/lexers/wollok.rb +104 -0
- data/lib/rouge/lexers/xml.rb +58 -0
- data/lib/rouge/lexers/yaml.rb +374 -0
- data/lib/rouge/plugins/redcarpet.rb +31 -0
- data/lib/rouge/regex_lexer.rb +442 -0
- data/lib/rouge/template_lexer.rb +21 -0
- data/lib/rouge/text_analyzer.rb +50 -0
- data/lib/rouge/theme.rb +214 -0
- data/lib/rouge/themes/base16.rb +131 -0
- data/lib/rouge/themes/colorful.rb +68 -0
- data/lib/rouge/themes/github.rb +72 -0
- data/lib/rouge/themes/gruvbox.rb +168 -0
- data/lib/rouge/themes/igor_pro.rb +21 -0
- data/lib/rouge/themes/molokai.rb +83 -0
- data/lib/rouge/themes/monokai.rb +93 -0
- data/lib/rouge/themes/monokai_sublime.rb +92 -0
- data/lib/rouge/themes/pastie.rb +70 -0
- data/lib/rouge/themes/thankful_eyes.rb +75 -0
- data/lib/rouge/themes/tulip.rb +70 -0
- data/lib/rouge/token.rb +183 -0
- data/lib/rouge/util.rb +102 -0
- data/lib/rouge/version.rb +8 -0
- data/lib/rouge.rb +84 -0
- data/rouge.gemspec +25 -0
- metadata +384 -0
|
@@ -0,0 +1,303 @@
|
|
|
1
|
+
# -*- coding: utf-8 -*- #
|
|
2
|
+
# frozen_string_literal: true
|
|
3
|
+
|
|
4
|
+
module Rouge
|
|
5
|
+
module Lexers
|
|
6
|
+
class Factor < RegexLexer
|
|
7
|
+
title "Factor"
|
|
8
|
+
desc "Factor, the practical stack language (factorcode.org)"
|
|
9
|
+
tag 'factor'
|
|
10
|
+
filenames '*.factor'
|
|
11
|
+
mimetypes 'text/x-factor'
|
|
12
|
+
|
|
13
|
+
def self.detect?(text)
|
|
14
|
+
return true if text.shebang? 'factor'
|
|
15
|
+
end
|
|
16
|
+
|
|
17
|
+
def self.builtins
|
|
18
|
+
@builtins ||= {}.tap do |builtins|
|
|
19
|
+
builtins[:kernel] = Set.new %w(
|
|
20
|
+
or 2bi 2tri while wrapper nip 4dip wrapper? bi*
|
|
21
|
+
callstack>array both? hashcode die dupd callstack
|
|
22
|
+
callstack? 3dup tri@ pick curry build ?execute 3bi prepose
|
|
23
|
+
>boolean if clone eq? tri* ? = swapd 2over 2keep 3keep clear
|
|
24
|
+
2dup when not tuple? dup 2bi* 2tri* call tri-curry object bi@
|
|
25
|
+
do unless* if* loop bi-curry* drop when* assert= retainstack
|
|
26
|
+
assert? -rot execute 2bi@ 2tri@ boa with either? 3drop bi
|
|
27
|
+
curry? datastack until 3dip over 3curry tri-curry* tri-curry@
|
|
28
|
+
swap and 2nip throw bi-curry (clone) hashcode* compose 2dip if
|
|
29
|
+
3tri unless compose? tuple keep 2curry equal? assert tri 2drop
|
|
30
|
+
most <wrapper> boolean? identity-hashcode identity-tuple?
|
|
31
|
+
null new dip bi-curry@ rot xor identity-tuple boolean
|
|
32
|
+
)
|
|
33
|
+
|
|
34
|
+
builtins[:assocs] = Set.new %w(
|
|
35
|
+
?at assoc? assoc-clone-like assoc= delete-at* assoc-partition
|
|
36
|
+
extract-keys new-assoc value? assoc-size map>assoc push-at
|
|
37
|
+
assoc-like key? assoc-intersect assoc-refine update
|
|
38
|
+
assoc-union assoc-combine at* assoc-empty? at+ set-at
|
|
39
|
+
assoc-all? assoc-subset? assoc-hashcode change-at assoc-each
|
|
40
|
+
assoc-diff zip values value-at rename-at inc-at enum? at cache
|
|
41
|
+
assoc>map <enum> assoc assoc-map enum value-at* assoc-map-as
|
|
42
|
+
>alist assoc-filter-as clear-assoc assoc-stack maybe-set-at
|
|
43
|
+
substitute assoc-filter 2cache delete-at assoc-find keys
|
|
44
|
+
assoc-any? unzip
|
|
45
|
+
)
|
|
46
|
+
|
|
47
|
+
builtins[:combinators] = Set.new %w(
|
|
48
|
+
case execute-effect no-cond no-case? 3cleave>quot 2cleave
|
|
49
|
+
cond>quot wrong-values? no-cond? cleave>quot no-case case>quot
|
|
50
|
+
3cleave wrong-values to-fixed-point alist>quot case-find
|
|
51
|
+
cond cleave call-effect 2cleave>quot recursive-hashcode
|
|
52
|
+
linear-case-quot spread spread>quot
|
|
53
|
+
)
|
|
54
|
+
|
|
55
|
+
builtins[:math] = Set.new %w(
|
|
56
|
+
number= if-zero next-power-of-2 each-integer ?1+
|
|
57
|
+
fp-special? imaginary-part unless-zero float>bits number?
|
|
58
|
+
fp-infinity? bignum? fp-snan? denominator fp-bitwise= *
|
|
59
|
+
+ power-of-2? - u>= / >= bitand log2-expects-positive <
|
|
60
|
+
log2 > integer? number bits>double 2/ zero? (find-integer)
|
|
61
|
+
bits>float float? shift ratio? even? ratio fp-sign bitnot
|
|
62
|
+
>fixnum complex? /i /f byte-array>bignum when-zero sgn >bignum
|
|
63
|
+
next-float u< u> mod recip rational find-last-integer >float
|
|
64
|
+
(all-integers?) 2^ times integer fixnum? neg fixnum sq bignum
|
|
65
|
+
(each-integer) bit? fp-qnan? find-integer complex <fp-nan>
|
|
66
|
+
real double>bits bitor rem fp-nan-payload all-integers?
|
|
67
|
+
real-part log2-expects-positive? prev-float align unordered?
|
|
68
|
+
float fp-nan? abs bitxor u<= odd? <= /mod rational? >integer
|
|
69
|
+
real? numerator
|
|
70
|
+
)
|
|
71
|
+
|
|
72
|
+
builtins[:sequences] = Set.new %w(
|
|
73
|
+
member-eq? append assert-sequence= find-last-from
|
|
74
|
+
trim-head-slice clone-like 3sequence assert-sequence? map-as
|
|
75
|
+
last-index-from reversed index-from cut* pad-tail
|
|
76
|
+
remove-eq! concat-as but-last snip trim-tail nths
|
|
77
|
+
nth 2selector sequence slice? <slice> partition
|
|
78
|
+
remove-nth tail-slice empty? tail* if-empty
|
|
79
|
+
find-from virtual-sequence? member? set-length
|
|
80
|
+
drop-prefix unclip unclip-last-slice iota map-sum
|
|
81
|
+
bounds-error? sequence-hashcode-step selector-for
|
|
82
|
+
accumulate-as map start midpoint@ (accumulate) rest-slice
|
|
83
|
+
prepend fourth sift accumulate! new-sequence follow map! like
|
|
84
|
+
first4 1sequence reverse slice unless-empty padding virtual@
|
|
85
|
+
repetition? set-last index 4sequence max-length set-second
|
|
86
|
+
immutable-sequence first2 first3 replicate-as reduce-index
|
|
87
|
+
unclip-slice supremum suffix! insert-nth trim-tail-slice
|
|
88
|
+
tail 3append short count suffix concat flip filter sum
|
|
89
|
+
immutable? reverse! 2sequence map-integers delete-all start*
|
|
90
|
+
indices snip-slice check-slice sequence? head map-find
|
|
91
|
+
filter! append-as reduce sequence= halves collapse-slice
|
|
92
|
+
interleave 2map filter-as binary-reduce slice-error? product
|
|
93
|
+
bounds-check? bounds-check harvest immutable virtual-exemplar
|
|
94
|
+
find produce remove pad-head last replicate set-fourth
|
|
95
|
+
remove-eq shorten reversed? map-find-last 3map-as
|
|
96
|
+
2unclip-slice shorter? 3map find-last head-slice pop* 2map-as
|
|
97
|
+
tail-slice* but-last-slice 2map-reduce iota? collector-for
|
|
98
|
+
accumulate each selector append! new-resizable cut-slice
|
|
99
|
+
each-index head-slice* 2reverse-each sequence-hashcode
|
|
100
|
+
pop set-nth ?nth <flat-slice> second join when-empty
|
|
101
|
+
collector immutable-sequence? <reversed> all? 3append-as
|
|
102
|
+
virtual-sequence subseq? remove-nth! push-either new-like
|
|
103
|
+
length last-index push-if 2all? lengthen assert-sequence
|
|
104
|
+
copy map-reduce move third first 3each tail? set-first prefix
|
|
105
|
+
bounds-error any? <repetition> trim-slice exchange surround
|
|
106
|
+
2reduce cut change-nth min-length set-third produce-as
|
|
107
|
+
push-all head? delete-slice rest sum-lengths 2each head*
|
|
108
|
+
infimum remove! glue slice-error subseq trim replace-slice
|
|
109
|
+
push repetition map-index trim-head unclip-last mismatch
|
|
110
|
+
)
|
|
111
|
+
|
|
112
|
+
builtins[:namespaces] = Set.new %w(
|
|
113
|
+
global +@ change set-namestack change-global init-namespaces
|
|
114
|
+
on off set-global namespace set with-scope bind with-variable
|
|
115
|
+
inc dec counter initialize namestack get get-global make-assoc
|
|
116
|
+
)
|
|
117
|
+
|
|
118
|
+
builtins[:arrays] = Set.new %w(
|
|
119
|
+
<array> 2array 3array pair >array 1array 4array pair?
|
|
120
|
+
array resize-array array?
|
|
121
|
+
)
|
|
122
|
+
|
|
123
|
+
builtins[:io] = Set.new %w(
|
|
124
|
+
+character+ bad-seek-type? readln each-morsel
|
|
125
|
+
stream-seek read print with-output-stream contents
|
|
126
|
+
write1 stream-write1 stream-copy stream-element-type
|
|
127
|
+
with-input-stream stream-print stream-read stream-contents
|
|
128
|
+
stream-tell tell-output bl seek-output bad-seek-type nl
|
|
129
|
+
stream-nl write flush stream-lines +byte+ stream-flush
|
|
130
|
+
read1 seek-absolute? stream-read1 lines stream-readln
|
|
131
|
+
stream-read-until each-line seek-end with-output-stream*
|
|
132
|
+
seek-absolute with-streams seek-input seek-relative?
|
|
133
|
+
input-stream stream-write read-partial seek-end?
|
|
134
|
+
seek-relative error-stream read-until with-input-stream*
|
|
135
|
+
with-streams* tell-input each-block output-stream
|
|
136
|
+
stream-read-partial each-stream-block each-stream-line
|
|
137
|
+
)
|
|
138
|
+
|
|
139
|
+
builtins[:strings] = Set.new %w(
|
|
140
|
+
resize-string >string <string> 1string string string?
|
|
141
|
+
)
|
|
142
|
+
|
|
143
|
+
builtins[:vectors] = Set.new %w(
|
|
144
|
+
with-return restarts return-continuation with-datastack
|
|
145
|
+
recover rethrow-restarts <restart> ifcc set-catchstack
|
|
146
|
+
>continuation< cleanup ignore-errors restart?
|
|
147
|
+
compute-restarts attempt-all-error error-thread
|
|
148
|
+
continue <continuation> attempt-all-error? condition?
|
|
149
|
+
<condition> throw-restarts error catchstack continue-with
|
|
150
|
+
thread-error-hook continuation rethrow callcc1
|
|
151
|
+
error-continuation callcc0 attempt-all condition
|
|
152
|
+
continuation? restart return
|
|
153
|
+
)
|
|
154
|
+
|
|
155
|
+
builtins[:continuations] = Set.new %w(
|
|
156
|
+
with-return restarts return-continuation with-datastack
|
|
157
|
+
recover rethrow-restarts <restart> ifcc set-catchstack
|
|
158
|
+
>continuation< cleanup ignore-errors restart?
|
|
159
|
+
compute-restarts attempt-all-error error-thread
|
|
160
|
+
continue <continuation> attempt-all-error? condition?
|
|
161
|
+
<condition> throw-restarts error catchstack continue-with
|
|
162
|
+
thread-error-hook continuation rethrow callcc1
|
|
163
|
+
error-continuation callcc0 attempt-all condition
|
|
164
|
+
continuation? restart return
|
|
165
|
+
)
|
|
166
|
+
end
|
|
167
|
+
end
|
|
168
|
+
|
|
169
|
+
state :root do
|
|
170
|
+
rule /\s+/m, Text
|
|
171
|
+
|
|
172
|
+
rule /(:|::|MACRO:|MEMO:|GENERIC:|HELP:)(\s+)(\S+)/m do
|
|
173
|
+
groups Keyword, Text, Name::Function
|
|
174
|
+
end
|
|
175
|
+
|
|
176
|
+
rule /(M:|HOOK:|GENERIC#)(\s+)(\S+)(\s+)(\S+)/m do
|
|
177
|
+
groups Keyword, Text, Name::Class, Text, Name::Function
|
|
178
|
+
end
|
|
179
|
+
|
|
180
|
+
rule /\((?=\s)/, Name::Function, :stack_effect
|
|
181
|
+
rule /;(?=\s)/, Keyword
|
|
182
|
+
|
|
183
|
+
rule /(USING:)((?:\s|\\\s)+)/m do
|
|
184
|
+
groups Keyword::Namespace, Text
|
|
185
|
+
push :import
|
|
186
|
+
end
|
|
187
|
+
|
|
188
|
+
rule /(IN:|USE:|UNUSE:|QUALIFIED:|QUALIFIED-WITH:)(\s+)(\S+)/m do
|
|
189
|
+
groups Keyword::Namespace, Text, Name::Namespace
|
|
190
|
+
end
|
|
191
|
+
|
|
192
|
+
rule /(FROM:|EXCLUDE:)(\s+)(\S+)(\s+)(=>)/m do
|
|
193
|
+
groups Keyword::Namespace, Text, Name::Namespace, Text, Punctuation
|
|
194
|
+
end
|
|
195
|
+
|
|
196
|
+
rule /(?:ALIAS|DEFER|FORGET|POSTPONE):/, Keyword::Namespace
|
|
197
|
+
|
|
198
|
+
rule /(TUPLE:)(\s+)(\S+)(\s+)(<)(\s+)(\S+)/m do
|
|
199
|
+
groups(
|
|
200
|
+
Keyword, Text,
|
|
201
|
+
Name::Class, Text,
|
|
202
|
+
Punctuation, Text,
|
|
203
|
+
Name::Class
|
|
204
|
+
)
|
|
205
|
+
push :slots
|
|
206
|
+
end
|
|
207
|
+
|
|
208
|
+
rule /(TUPLE:)(\s+)(\S+)/m do
|
|
209
|
+
groups Keyword, Text, Name::Class
|
|
210
|
+
push :slots
|
|
211
|
+
end
|
|
212
|
+
|
|
213
|
+
rule /(UNION:|INTERSECTION:)(\s+)(\S+)/m do
|
|
214
|
+
groups Keyword, Text, Name::Class
|
|
215
|
+
end
|
|
216
|
+
|
|
217
|
+
rule /(PREDICATE:)(\s+)(\S+)(\s+)(<)(\s+)(\S+)/m do
|
|
218
|
+
groups(
|
|
219
|
+
Keyword, Text,
|
|
220
|
+
Name::Class, Text,
|
|
221
|
+
Punctuation, Text,
|
|
222
|
+
Name::Class
|
|
223
|
+
)
|
|
224
|
+
end
|
|
225
|
+
|
|
226
|
+
rule /(C:)(\s+)(\S+)(\s+)(\S+)/m do
|
|
227
|
+
groups(
|
|
228
|
+
Keyword, Text,
|
|
229
|
+
Name::Function, Text,
|
|
230
|
+
Name::Class
|
|
231
|
+
)
|
|
232
|
+
end
|
|
233
|
+
|
|
234
|
+
rule %r(
|
|
235
|
+
(INSTANCE|SLOT|MIXIN|SINGLETONS?|CONSTANT|SYMBOLS?|ERROR|SYNTAX
|
|
236
|
+
|ALIEN|TYPEDEF|FUNCTION|STRUCT):
|
|
237
|
+
)x, Keyword
|
|
238
|
+
|
|
239
|
+
rule /(?:<PRIVATE|PRIVATE>)/, Keyword::Namespace
|
|
240
|
+
|
|
241
|
+
rule /(MAIN:)(\s+)(\S+)/ do
|
|
242
|
+
groups Keyword::Namespace, Text, Name::Function
|
|
243
|
+
end
|
|
244
|
+
|
|
245
|
+
# strings
|
|
246
|
+
rule /"""\s+.*?\s+"""/, Str
|
|
247
|
+
rule /"(\\.|[^\\])*?"/, Str
|
|
248
|
+
rule /(CHAR:)(\s+)(\\[\\abfnrstv]*|\S)(?=\s)/, Str::Char
|
|
249
|
+
|
|
250
|
+
# comments
|
|
251
|
+
rule /!\s+.*$/, Comment
|
|
252
|
+
rule /#!\s+.*$/, Comment
|
|
253
|
+
|
|
254
|
+
# booleans
|
|
255
|
+
rule /[tf](?=\s)/, Name::Constant
|
|
256
|
+
|
|
257
|
+
# numbers
|
|
258
|
+
rule /-?\d+\.\d+(?=\s)/, Num::Float
|
|
259
|
+
rule /-?\d+(?=\s)/, Num::Integer
|
|
260
|
+
|
|
261
|
+
rule /HEX:\s+[a-fA-F\d]+(?=\s)/m, Num::Hex
|
|
262
|
+
rule /BIN:\s+[01]+(?=\s)/, Num::Bin
|
|
263
|
+
rule /OCT:\s+[0-7]+(?=\s)/, Num::Oct
|
|
264
|
+
|
|
265
|
+
rule %r([-+/*=<>^](?=\s)), Operator
|
|
266
|
+
|
|
267
|
+
rule /(?:deprecated|final|foldable|flushable|inline|recursive)(?=\s)/,
|
|
268
|
+
Keyword
|
|
269
|
+
|
|
270
|
+
rule /\S+/ do |m|
|
|
271
|
+
name = m[0]
|
|
272
|
+
|
|
273
|
+
if self.class.builtins.values.any? { |b| b.include? name }
|
|
274
|
+
token Name::Builtin
|
|
275
|
+
else
|
|
276
|
+
token Name
|
|
277
|
+
end
|
|
278
|
+
end
|
|
279
|
+
end
|
|
280
|
+
|
|
281
|
+
state :stack_effect do
|
|
282
|
+
rule /\s+/, Text
|
|
283
|
+
rule /\(/, Name::Function, :stack_effect
|
|
284
|
+
rule /\)/, Name::Function, :pop!
|
|
285
|
+
|
|
286
|
+
rule /--/, Name::Function
|
|
287
|
+
rule /\S+/, Name::Variable
|
|
288
|
+
end
|
|
289
|
+
|
|
290
|
+
state :slots do
|
|
291
|
+
rule /\s+/, Text
|
|
292
|
+
rule /;(?=\s)/, Keyword, :pop!
|
|
293
|
+
rule /\S+/, Name::Variable
|
|
294
|
+
end
|
|
295
|
+
|
|
296
|
+
state :import do
|
|
297
|
+
rule /;(?=\s)/, Keyword, :pop!
|
|
298
|
+
rule /\s+/, Text
|
|
299
|
+
rule /\S+/, Name::Namespace
|
|
300
|
+
end
|
|
301
|
+
end
|
|
302
|
+
end
|
|
303
|
+
end
|
|
@@ -0,0 +1,178 @@
|
|
|
1
|
+
# -*- coding: utf-8 -*- #
|
|
2
|
+
# frozen_string_literal: true
|
|
3
|
+
|
|
4
|
+
# vim: set ts=2 sw=2 et:
|
|
5
|
+
|
|
6
|
+
# TODO: Implement format list support.
|
|
7
|
+
|
|
8
|
+
module Rouge
|
|
9
|
+
module Lexers
|
|
10
|
+
class Fortran < RegexLexer
|
|
11
|
+
title "Fortran"
|
|
12
|
+
desc "Fortran 2008 (free-form)"
|
|
13
|
+
|
|
14
|
+
tag 'fortran'
|
|
15
|
+
filenames '*.f', '*.f90', '*.f95', '*.f03', '*.f08',
|
|
16
|
+
'*.F', '*.F90', '*.F95', '*.F03', '*.F08'
|
|
17
|
+
mimetypes 'text/x-fortran'
|
|
18
|
+
|
|
19
|
+
name = /[A-Z][_A-Z0-9]*/i
|
|
20
|
+
kind_param = /(\d+|#{name})/
|
|
21
|
+
exponent = /[ED][+-]?\d+/i
|
|
22
|
+
|
|
23
|
+
def self.keywords
|
|
24
|
+
# Special rules for two-word keywords are defined further down.
|
|
25
|
+
# Note: Fortran allows to omit whitespace between certain keywords.
|
|
26
|
+
@keywords ||= Set.new %w(
|
|
27
|
+
abstract allocatable allocate assign assignment associate asynchronous
|
|
28
|
+
backspace bind block blockdata call case class close codimension
|
|
29
|
+
common concurrent contains contiguous continue critical cycle data
|
|
30
|
+
deallocate deferred dimension do elemental else elseif elsewhere end
|
|
31
|
+
endassociate endblock endblockdata enddo endenum endfile endforall
|
|
32
|
+
endfunction endif endinterface endmodule endprogram endselect
|
|
33
|
+
endsubmodule endsubroutine endtype endwhere endwhile entry enum
|
|
34
|
+
enumerator equivalence exit extends external final flush forall format
|
|
35
|
+
function generic goto if implicit import in include inout inquire
|
|
36
|
+
intent interface intrinsic is lock module namelist non_overridable
|
|
37
|
+
none nopass nullify only open operator optional out parameter pass
|
|
38
|
+
pause pointer print private procedure program protected public pure
|
|
39
|
+
read recursive result return rewind save select selectcase sequence
|
|
40
|
+
stop submodule subroutine target then type unlock use value volatile
|
|
41
|
+
wait where while write
|
|
42
|
+
)
|
|
43
|
+
end
|
|
44
|
+
|
|
45
|
+
def self.types
|
|
46
|
+
# A special rule for the two-word version "double precision" is
|
|
47
|
+
# defined further down.
|
|
48
|
+
@types ||= Set.new %w(
|
|
49
|
+
character complex doubleprecision integer logical real
|
|
50
|
+
)
|
|
51
|
+
end
|
|
52
|
+
|
|
53
|
+
def self.intrinsics
|
|
54
|
+
@intrinsics ||= Set.new %w(
|
|
55
|
+
abs achar acos acosh adjustl adjustr aimag aint all allocated anint
|
|
56
|
+
any asin asinh associated atan atan2 atanh atomic_define atomic_ref
|
|
57
|
+
bessel_j0 bessel_j1 bessel_jn bessel_y0 bessel_y1 bessel_yn bge bgt
|
|
58
|
+
bit_size ble blt btest c_associated c_f_pointer c_f_procpointer
|
|
59
|
+
c_funloc c_loc c_sizeof ceiling char cmplx command_argument_count
|
|
60
|
+
compiler_options compiler_version conjg cos cosh count cpu_time cshift
|
|
61
|
+
date_and_time dble digits dim dot_product dprod dshiftl dshiftr
|
|
62
|
+
eoshift epsilon erf erfc_scaled erfc execute_command_line exp exponent
|
|
63
|
+
extends_type_of findloc floor fraction gamma get_command_argument
|
|
64
|
+
get_command get_environment_variable huge hypot iachar iall iand iany
|
|
65
|
+
ibclr ibits ibset ichar ieee_class ieee_copy_sign ieee_get_flag
|
|
66
|
+
ieee_get_halting_mode ieee_get_rounding_mode ieee_get_status
|
|
67
|
+
ieee_get_underflow_mode ieee_is_finite ieee_is_nan ieee_is_normal
|
|
68
|
+
ieee_logb ieee_next_after ieee_rem ieee_rint ieee_scalb
|
|
69
|
+
ieee_selected_real_kind ieee_set_flag ieee_set_halting_mode
|
|
70
|
+
ieee_set_rounding_mode ieee_set_status ieee_set_underflow_mode
|
|
71
|
+
ieee_support_datatype ieee_support_denormal ieee_support_divide
|
|
72
|
+
ieee_support_flag ieee_support_halting ieee_support_inf
|
|
73
|
+
ieee_support_io ieee_support_nan ieee_support_rounding
|
|
74
|
+
ieee_support_sqrt ieee_support_standard ieee_support_underflow_control
|
|
75
|
+
ieee_unordered ieee_value ieor image_index index int ior iparity
|
|
76
|
+
is_contiguous is_iostat_end is_iostat_eor ishft ishftc kind lbound
|
|
77
|
+
lcobound leadz len_trim len lge lgt lle llt log_gamma log log10
|
|
78
|
+
logical maskl maskr matmul max maxexponent maxloc maxval merge_bits
|
|
79
|
+
merge min minexponent minloc minval mod modulo move_alloc mvbits
|
|
80
|
+
nearest new_line nint norm2 not null num_images pack parity popcnt
|
|
81
|
+
poppar present product radix random_number random_seed range real
|
|
82
|
+
repeat reshape rrspacing same_type_as scale scan selected_char_kind
|
|
83
|
+
selected_int_kind selected_real_kind set_exponent shape shifta shiftl
|
|
84
|
+
shiftr sign sin sinh size spacing spread sqrt storage_size sum
|
|
85
|
+
system_clock tan tanh this_image tiny trailz transfer transpose trim
|
|
86
|
+
ubound ucobound unpack verify
|
|
87
|
+
)
|
|
88
|
+
end
|
|
89
|
+
|
|
90
|
+
state :root do
|
|
91
|
+
rule /[\s\n]+/, Text::Whitespace
|
|
92
|
+
rule /!.*$/, Comment::Single
|
|
93
|
+
rule /^#.*$/, Comment::Preproc
|
|
94
|
+
|
|
95
|
+
rule /::|[()\/;,:&\[\]]/, Punctuation
|
|
96
|
+
|
|
97
|
+
# TODO: This does not take into account line continuation.
|
|
98
|
+
rule /^(\s*)([0-9]+)\b/m do |m|
|
|
99
|
+
token Text::Whitespace, m[1]
|
|
100
|
+
token Name::Label, m[2]
|
|
101
|
+
end
|
|
102
|
+
|
|
103
|
+
# Format statements are quite a strange beast.
|
|
104
|
+
# Better process them in their own state.
|
|
105
|
+
rule /\b(FORMAT)(\s*)(\()/mi do |m|
|
|
106
|
+
token Keyword, m[1]
|
|
107
|
+
token Text::Whitespace, m[2]
|
|
108
|
+
token Punctuation, m[3]
|
|
109
|
+
push :format_spec
|
|
110
|
+
end
|
|
111
|
+
|
|
112
|
+
rule %r(
|
|
113
|
+
[+-]? # sign
|
|
114
|
+
(
|
|
115
|
+
(\d+[.]\d*|[.]\d+)(#{exponent})?
|
|
116
|
+
| \d+#{exponent} # exponent is mandatory
|
|
117
|
+
)
|
|
118
|
+
(_#{kind_param})? # kind parameter
|
|
119
|
+
)xi, Num::Float
|
|
120
|
+
|
|
121
|
+
rule /[+-]?\d+(_#{kind_param})?/i, Num::Integer
|
|
122
|
+
rule /B'[01]+'|B"[01]+"/i, Num::Bin
|
|
123
|
+
rule /O'[0-7]+'|O"[0-7]+"/i, Num::Oct
|
|
124
|
+
rule /Z'[0-9A-F]+'|Z"[0-9A-F]+"/i, Num::Hex
|
|
125
|
+
rule /(#{kind_param}_)?'/, Str::Single, :string_single
|
|
126
|
+
rule /(#{kind_param}_)?"/, Str::Double, :string_double
|
|
127
|
+
rule /[.](TRUE|FALSE)[.](_#{kind_param})?/i, Keyword::Constant
|
|
128
|
+
|
|
129
|
+
rule %r{\*\*|//|==|/=|<=|>=|=>|[-+*/<>=%]}, Operator
|
|
130
|
+
rule /\.(?:EQ|NE|LT|LE|GT|GE|NOT|AND|OR|EQV|NEQV|[A-Z]+)\./i, Operator::Word
|
|
131
|
+
|
|
132
|
+
# Special rules for two-word keywords and types.
|
|
133
|
+
# Note: "doubleprecision" is covered by the normal keyword rule.
|
|
134
|
+
rule /double\s+precision\b/i, Keyword::Type
|
|
135
|
+
rule /go\s+to\b/i, Keyword
|
|
136
|
+
rule /sync\s+(all|images|memory)\b/i, Keyword
|
|
137
|
+
rule /error\s+stop\b/i, Keyword
|
|
138
|
+
|
|
139
|
+
rule /#{name}/m do |m|
|
|
140
|
+
match = m[0].downcase
|
|
141
|
+
if self.class.keywords.include? match
|
|
142
|
+
token Keyword
|
|
143
|
+
elsif self.class.types.include? match
|
|
144
|
+
token Keyword::Type
|
|
145
|
+
elsif self.class.intrinsics.include? match
|
|
146
|
+
token Name::Builtin
|
|
147
|
+
else
|
|
148
|
+
token Name
|
|
149
|
+
end
|
|
150
|
+
end
|
|
151
|
+
|
|
152
|
+
end
|
|
153
|
+
|
|
154
|
+
state :string_single do
|
|
155
|
+
rule /[^']+/, Str::Single
|
|
156
|
+
rule /''/, Str::Escape
|
|
157
|
+
rule /'/, Str::Single, :pop!
|
|
158
|
+
end
|
|
159
|
+
|
|
160
|
+
state :string_double do
|
|
161
|
+
rule /[^"]+/, Str::Double
|
|
162
|
+
rule /""/, Str::Escape
|
|
163
|
+
rule /"/, Str::Double, :pop!
|
|
164
|
+
end
|
|
165
|
+
|
|
166
|
+
state :format_spec do
|
|
167
|
+
rule /'/, Str::Single, :string_single
|
|
168
|
+
rule /"/, Str::Double, :string_double
|
|
169
|
+
rule /\(/, Punctuation, :format_spec
|
|
170
|
+
rule /\)/, Punctuation, :pop!
|
|
171
|
+
rule /,/, Punctuation
|
|
172
|
+
rule /[\s\n]+/, Text::Whitespace
|
|
173
|
+
# Edit descriptors could be seen as a kind of "format literal".
|
|
174
|
+
rule /[^\s'"(),]+/, Literal
|
|
175
|
+
end
|
|
176
|
+
end
|
|
177
|
+
end
|
|
178
|
+
end
|
|
@@ -0,0 +1,119 @@
|
|
|
1
|
+
# -*- coding: utf-8 -*- #
|
|
2
|
+
# frozen_string_literal: true
|
|
3
|
+
|
|
4
|
+
module Rouge
|
|
5
|
+
module Lexers
|
|
6
|
+
class FSharp < RegexLexer
|
|
7
|
+
title "FSharp"
|
|
8
|
+
desc 'F# (fsharp.net)'
|
|
9
|
+
tag 'fsharp'
|
|
10
|
+
filenames '*.fs', '*.fsi', '*.fsx'
|
|
11
|
+
mimetypes 'application/fsharp-script', 'text/x-fsharp', 'text/x-fsi'
|
|
12
|
+
|
|
13
|
+
def self.keywords
|
|
14
|
+
@keywords ||= Set.new %w(
|
|
15
|
+
abstract and as assert base begin class default delegate do
|
|
16
|
+
done downcast downto elif else end exception extern false
|
|
17
|
+
finally for fun function global if in inherit inline interface
|
|
18
|
+
internal lazy let let! match member module mutable namespace
|
|
19
|
+
new not null of open or override private public rec return
|
|
20
|
+
return! select static struct then to true try type upcast
|
|
21
|
+
use use! val void when while with yield yield! sig atomic
|
|
22
|
+
break checked component const constraint constructor
|
|
23
|
+
continue eager event external fixed functor include method
|
|
24
|
+
mixin object parallel process protected pure sealed tailcall
|
|
25
|
+
trait virtual volatile
|
|
26
|
+
)
|
|
27
|
+
end
|
|
28
|
+
|
|
29
|
+
def self.keyopts
|
|
30
|
+
@keyopts ||= Set.new %w(
|
|
31
|
+
!= # & && ( ) * \+ , - -. -> . .. : :: := :> ; ;; < <- =
|
|
32
|
+
> >] >} ? ?? [ [< [> [| ] _ ` { {< | |] } ~ |> <| <>
|
|
33
|
+
)
|
|
34
|
+
end
|
|
35
|
+
|
|
36
|
+
def self.word_operators
|
|
37
|
+
@word_operators ||= Set.new %w(and asr land lor lsl lxor mod or)
|
|
38
|
+
end
|
|
39
|
+
|
|
40
|
+
def self.primitives
|
|
41
|
+
@primitives ||= Set.new %w(unit int float bool string char list array)
|
|
42
|
+
end
|
|
43
|
+
|
|
44
|
+
operator = %r([\[\];,{}_()!$%&*+./:<=>?@^|~#-]+)
|
|
45
|
+
id = /([a-z][\w']*)|(``[^`\n\r\t]+``)/i
|
|
46
|
+
upper_id = /[A-Z][\w']*/
|
|
47
|
+
|
|
48
|
+
state :root do
|
|
49
|
+
rule /\s+/m, Text
|
|
50
|
+
rule /false|true|[(][)]|\[\]/, Name::Builtin::Pseudo
|
|
51
|
+
rule /#{upper_id}(?=\s*[.])/, Name::Namespace, :dotted
|
|
52
|
+
rule upper_id, Name::Class
|
|
53
|
+
rule /[(][*](?![)])/, Comment, :comment
|
|
54
|
+
rule %r(//.*?$), Comment::Single
|
|
55
|
+
rule id do |m|
|
|
56
|
+
match = m[0]
|
|
57
|
+
if self.class.keywords.include? match
|
|
58
|
+
token Keyword
|
|
59
|
+
elsif self.class.word_operators.include? match
|
|
60
|
+
token Operator::Word
|
|
61
|
+
elsif self.class.primitives.include? match
|
|
62
|
+
token Keyword::Type
|
|
63
|
+
else
|
|
64
|
+
token Name
|
|
65
|
+
end
|
|
66
|
+
end
|
|
67
|
+
|
|
68
|
+
rule operator do |m|
|
|
69
|
+
match = m[0]
|
|
70
|
+
if self.class.keyopts.include? match
|
|
71
|
+
token Punctuation
|
|
72
|
+
else
|
|
73
|
+
token Operator
|
|
74
|
+
end
|
|
75
|
+
end
|
|
76
|
+
|
|
77
|
+
rule /-?\d[\d_]*(.[\d_]*)?(e[+-]?\d[\d_]*)/i, Num::Float
|
|
78
|
+
rule /0x\h[\h_]*/i, Num::Hex
|
|
79
|
+
rule /0o[0-7][0-7_]*/i, Num::Oct
|
|
80
|
+
rule /0b[01][01_]*/i, Num::Bin
|
|
81
|
+
rule /\d[\d_]*/, Num::Integer
|
|
82
|
+
|
|
83
|
+
rule /'(?:(\\[\\"'ntbr ])|(\\[0-9]{3})|(\\x\h{2}))'/, Str::Char
|
|
84
|
+
rule /'[.]'/, Str::Char
|
|
85
|
+
rule /'/, Keyword
|
|
86
|
+
rule /"/, Str::Double, :string
|
|
87
|
+
rule /[~?]#{id}/, Name::Variable
|
|
88
|
+
end
|
|
89
|
+
|
|
90
|
+
state :comment do
|
|
91
|
+
rule /[^(*)]+/, Comment
|
|
92
|
+
rule(/[(][*]/) { token Comment; push }
|
|
93
|
+
rule /[*][)]/, Comment, :pop!
|
|
94
|
+
rule /[(*)]/, Comment
|
|
95
|
+
end
|
|
96
|
+
|
|
97
|
+
state :string do
|
|
98
|
+
rule /[^\\"]+/, Str::Double
|
|
99
|
+
mixin :escape_sequence
|
|
100
|
+
rule /\\\n/, Str::Double
|
|
101
|
+
rule /"/, Str::Double, :pop!
|
|
102
|
+
end
|
|
103
|
+
|
|
104
|
+
state :escape_sequence do
|
|
105
|
+
rule /\\[\\"'ntbr]/, Str::Escape
|
|
106
|
+
rule /\\\d{3}/, Str::Escape
|
|
107
|
+
rule /\\x\h{2}/, Str::Escape
|
|
108
|
+
end
|
|
109
|
+
|
|
110
|
+
state :dotted do
|
|
111
|
+
rule /\s+/m, Text
|
|
112
|
+
rule /[.]/, Punctuation
|
|
113
|
+
rule /#{upper_id}(?=\s*[.])/, Name::Namespace
|
|
114
|
+
rule upper_id, Name::Class, :pop!
|
|
115
|
+
rule id, Name, :pop!
|
|
116
|
+
end
|
|
117
|
+
end
|
|
118
|
+
end
|
|
119
|
+
end
|
|
@@ -0,0 +1,16 @@
|
|
|
1
|
+
# -*- coding: utf-8 -*- #
|
|
2
|
+
# frozen_string_literal: true
|
|
3
|
+
|
|
4
|
+
# automatically generated by `rake builtins:gherkin`
|
|
5
|
+
module Rouge
|
|
6
|
+
module Lexers
|
|
7
|
+
def Gherkin.keywords
|
|
8
|
+
@keywords ||= {}.tap do |k|
|
|
9
|
+
k[:feature] = Set.new ["Ability", "Ahoy matey!", "Arwedd", "Aspekt", "Besigheid Behoefte", "Biznis potreba", "Business Need", "Caracteristica", "Característica", "Carauterística", "Egenskab", "Egenskap", "Eiginleiki", "Feature", "Fitur", "Fonctionnalité", "Fonksyonalite", "Funcionalidade", "Funcionalitat", "Functionalitate", "Functionaliteit", "Funcţionalitate", "Funcționalitate", "Fungsi", "Funkcia", "Funkcija", "Funkcionalitāte", "Funkcionalnost", "Funkcja", "Funksie", "Funktionalität", "Funktionalitéit", "Funzionalità", "Fīča", "Gné", "Hwaet", "Hwæt", "Jellemző", "Karakteristik", "Karakteristika", "Lastnost", "Mak", "Mogucnost", "Mogućnost", "Mozhnost", "Moznosti", "Možnosti", "OH HAI", "Omadus", "Ominaisuus", "Osobina", "Potrzeba biznesowa", "Požadavek", "Požiadavka", "Pretty much", "Qap", "Qu'meH 'ut", "Savybė", "Trajto", "Tính năng", "Vermoë", "Vlastnosť", "Właściwość", "Značilnost", "laH", "perbogh", "poQbogh malja'", "Özellik", "Özəllik", "Δυνατότητα", "Λειτουργία", "Бизнис потреба", "Могућност", "Можност", "Мөмкинлек", "Особина", "Свойство", "Функц", "Функционал", "Функционалност", "Функциональность", "Функция", "Функціонал", "Үзенчәлеклелек", "Հատկություն", "Ֆունկցիոնալություն", "תכונה", "خاصية", "خصوصیت", "صلاحیت", "وِیژگی", "کاروبار کی ضرورت", "रूप लेख", "ਖਾਸੀਅਤ", "ਨਕਸ਼ ਨੁਹਾਰ", "ਮੁਹਾਂਦਰਾ", "ક્ષમતા", "લક્ષણ", "વ્યાપાર જરૂર", "அம்சம்", "திறன்", "வணிக தேவை", "గుణము", "ಹೆಚ್ಚಳ", "ความต้องการทางธุรกิจ", "ความสามารถ", "โครงหลัก", "თვისება", "フィーチャ", "功能", "機能", "기능", "📚"]
|
|
10
|
+
k[:element] = Set.new ["Abstract Scenario", "Abstrakt Scenario", "Achtergrond", "Aer", "Agtergrond", "Antecedentes", "Antecedents", "Atburðarás", "Awww, look mate", "B4", "Background", "Baggrund", "Bakgrund", "Bakgrunn", "Bakgrunnur", "Bối cảnh", "Casu", "Cefndir", "Cenario", "Cenario de Fundo", "Cenário", "Cenário de Fundo", "Contesto", "Context", "Contexte", "Contexto", "Cás", "Cás Achomair", "Cúlra", "Dasar", "Delineacao do Cenario", "Delineação do Cenário", "Dis is what went down", "Dyagram Senaryo", "Dyagram senaryo", "Esbozo do escenario", "Esbozu del casu", "Escenari", "Escenario", "Esquema de l'escenari", "Esquema del escenario", "Esquema do Cenario", "Esquema do Cenário", "First off", "Fono", "Forgatókönyv", "Forgatókönyv vázlat", "Fundo", "Garis Panduan Senario", "Geçmiş", "Grundlage", "Hannergrond", "Heave to", "Háttér", "Istorik", "Kazo", "Kazo-skizo", "Keadaan", "Kerangka Keadaan", "Kerangka Senario", "Kerangka Situasi", "Keçmiş", "Khung kịch bản", "Khung tình huống", "Koncept", "Konsep skenario", "Kontekst", "Kontekstas", "Konteksts", "Kontext", "Konturo de la scenaro", "Kontèks", "Kịch bản", "Latar Belakang", "Lýsing Atburðarásar", "Lýsing Dæma", "MISHUN", "MISHUN SRSLY", "Na primer", "Náčrt Scenára", "Náčrt Scenáru", "Náčrt Scénáře", "Oris scenarija", "Osnova", "Osnova Scenára", "Osnova scénáře", "Osnutek", "Ozadje", "Plan Senaryo", "Plan du Scénario", "Plan du scénario", "Plan senaryo", "Plang vum Szenario", "Pozadie", "Pozadina", "Pozadí", "Pregled na scenarija", "Primer", "Raamstsenaarium", "Reckon it's like", "Rerefons", "Scenarie", "Scenarij", "Scenarijaus šablonas", "Scenariju", "Scenariju-obris", "Scenarijus", "Scenario", "Scenario Amlinellol", "Scenario Outline", "Scenario Template", "Scenario-outline", "Scenariomal", "Scenariomall", "Scenariu", "Scenariusz", "Scenaro", "Scenár", "Scenārijs", "Scenārijs pēc parauga", "Schema dello scenario", "Scénario", "Scénář", "Senario", "Senaryo", "Senaryo Deskripsyon", "Senaryo deskripsyon", "Senaryo taslağı", "Shiver me timbers", "Situasi", "Situasie", "Situasie Uiteensetting", "Situācija", "Skenario", "Skenario konsep", "Skica", "Skizo", "Sodrzhina", "Ssenari", "Ssenarinin strukturu", "Structura scenariu", "Structură scenariu", "Struktura scenarija", "Stsenaarium", "Swa", "Swa hwaer swa", "Swa hwær swa", "Szablon scenariusza", "Szenario", "Szenariogrundriss", "Tapaus", "Tapausaihio", "Taust", "Tausta", "The thing of it is", "Tình huống", "Wharrimean is", "Yo-ho-ho", "Założenia", "lut", "lut chovnatlh", "mo'", "Ær", "Περιγραφή Σεναρίου", "Σενάριο", "Υπόβαθρο", "Агуулга", "Кереш", "Контекст", "Концепт", "На пример", "Основа", "Передумова", "Позадина", "Преглед на сценарија", "Предистория", "Предыстория", "Пример", "Рамка на сценарий", "Скица", "Содржина", "Структура сценария", "Структура сценарија", "Структура сценарію", "Сценар", "Сценарий", "Сценарий структураси", "Сценарийның төзелеше", "Сценарио", "Сценарын төлөвлөгөө", "Сценарій", "Тарих", "Կոնտեքստ", "Սցենար", "Սցենարի կառուցվացքը", "רקע", "תבנית תרחיש", "תרחיש", "الخلفية", "الگوی سناریو", "زمینه", "سناریو", "سيناريو", "سيناريو مخطط", "منظر نامے کا خاکہ", "منظرنامہ", "پس منظر", "परिदृश्य", "परिदृश्य रूपरेखा", "पृष्ठभूमि", "ਪਟਕਥਾ", "ਪਟਕਥਾ ਢਾਂਚਾ", "ਪਟਕਥਾ ਰੂਪ ਰੇਖਾ", "ਪਿਛੋਕੜ", "પરિદ્દશ્ય ઢાંચો", "પરિદ્દશ્ય રૂપરેખા", "બેકગ્રાઉન્ડ", "સ્થિતિ", "காட்சி", "காட்சி சுருக்கம்", "காட்சி வார்ப்புரு", "பின்னணி", "కథనం", "నేపథ్యం", "సన్నివేశం", "ಕಥಾಸಾರಾಂಶ", "ವಿವರಣೆ", "ಹಿನ್ನೆಲೆ", "สรุปเหตุการณ์", "เหตุการณ์", "แนวคิด", "โครงสร้างของเหตุการณ์", "კონტექსტი", "სცენარის", "სცენარის ნიმუში", "シナリオ", "シナリオアウトライン", "シナリオテンプレ", "シナリオテンプレート", "テンプレ", "剧本", "剧本大纲", "劇本", "劇本大綱", "场景", "场景大纲", "場景", "場景大綱", "背景", "배경", "시나리오", "시나리오 개요", "💤", "📕", "📖"]
|
|
11
|
+
k[:examples] = Set.new [" நிலைமைகளில்", "Atburðarásir", "Beispiele", "Beispiller", "Cenarios", "Cenários", "Conto", "Contoh", "Contone", "Dead men tell no tales", "Dæmi", "Dữ liệu", "EXAMPLZ", "Egzanp", "Ejemplos", "Eksempler", "Ekzemploj", "Enghreifftiau", "Esempi", "Examples", "Exempel", "Exemple", "Exemples", "Exemplos", "Juhtumid", "Nümunələr", "Paraugs", "Pavyzdžiai", "Piemēri", "Primeri", "Primjeri", "Przykłady", "Príklady", "Példák", "Příklady", "Samplaí", "Scenaria", "Scenarijai", "Scenariji", "Scenarios", "Se the", "Se ðe", "Se þe", "Tapaukset", "Variantai", "Voorbeelde", "Voorbeelden", "You'll wanna", "ghantoH", "lutmey", "Örnekler", "Παραδείγματα", "Σενάρια", "Мисаллар", "Мисоллар", "Приклади", "Примери", "Примеры", "Сценарија", "Сценарији", "Тухайлбал", "Үрнәкләр", "Օրինակներ", "דוגמאות", "امثلة", "مثالیں", "نمونه ها", "उदाहरण", "ਉਦਾਹਰਨਾਂ", "ઉદાહરણો", "எடுத்துக்காட்டுகள்", "காட்சிகள்", "ఉదాహరణలు", "ಉದಾಹರಣೆಗಳು", "ชุดของตัวอย่าง", "ชุดของเหตุการณ์", "მაგალითები", "サンプル", "例", "例子", "예", "📓"]
|
|
12
|
+
k[:step] = Set.new ["'a ", "'ach ", "'ej ", "* ", "7 ", "A ", "A taktiež ", "A také ", "A tiež ", "A zároveň ", "AN ", "Aber ", "Ac ", "Ach", "Adott ", "Agus", "Ak ", "Akkor ", "Ale ", "Aleshores ", "Ali ", "Allora ", "Alors ", "Als ", "Ama ", "Amennyiben ", "Amikor ", "Amma ", "Ampak ", "An ", "Ananging ", "Ancaq ", "And ", "Angenommen ", "Anrhegedig a ", "Ansin", "Apabila ", "Atesa ", "Atunci ", "Atès ", "Avast! ", "Aye ", "BUT ", "Bagi ", "Banjur ", "Bet ", "Biết ", "Blimey! ", "Buh ", "But ", "But at the end of the day I reckon ", "Cal ", "Cand ", "Cando ", "Ce ", "Cho ", "Cuando ", "Cuir i gcás go", "Cuir i gcás gur", "Cuir i gcás nach", "Cuir i gcás nár", "Când ", "DEN ", "DaH ghu' bejlu' ", "Dada ", "Dadas ", "Dadena ", "Dadeno ", "Dado ", "Dados ", "Daes ", "Dan ", "Dann ", "Dano ", "Daos ", "Dar ", "Dat fiind ", "Data ", "Date ", "Date fiind ", "Dati ", "Dati fiind ", "Dato ", "Daţi fiind ", "Dați fiind ", "De ", "Den youse gotta ", "Dengan ", "Diberi ", "Diyelim ki ", "Do ", "Donada ", "Donat ", "Donitaĵo ", "Dun ", "Duota ", "Dáu ", "E ", "Eeldades ", "Ef ", "En ", "Entao ", "Entonces ", "Então ", "Entón ", "Entós ", "Epi ", "Et ", "Et qu'", "Et que ", "Etant donné ", "Etant donné qu'", "Etant donné que ", "Etant donnée ", "Etant données ", "Etant donnés ", "Eğer ki ", "Fakat ", "Gangway! ", "Gdy ", "Gegeben sei ", "Gegeben seien ", "Gegeven ", "Gegewe ", "Gitt ", "Given ", "Givet ", "Givun ", "Ha ", "Həm ", "I ", "I CAN HAZ ", "In ", "Ir ", "It's just unbelievable ", "Ja ", "Jeśli ", "Jeżeli ", "Kad ", "Kada ", "Kadar ", "Kai ", "Kaj ", "Když ", "Kemudian ", "Ketika ", "Keď ", "Khi ", "Kiedy ", "Ko ", "Koga ", "Komence ", "Kui ", "Kuid ", "Kun ", "Lan ", "Le ", "Le sa a ", "Let go and haul ", "Logo ", "Lorsqu'", "Lorsque ", "Lè ", "Lè sa a ", "Ma ", "Maar ", "Mais ", "Mais qu'", "Mais que ", "Majd ", "Mając ", "Maka ", "Manawa ", "Mas ", "Men ", "Menawa ", "Mutta ", "Nalika ", "Nalikaning ", "Nanging ", "Nato ", "Nhưng ", "Niin ", "Njuk ", "No ", "Nuair a", "Nuair ba", "Nuair nach", "Nuair nár", "När ", "Når ", "Nə vaxt ki ", "O halda ", "O zaman ", "Och ", "Og ", "Oletetaan ", "Ond ", "Onda ", "Oraz ", "Pak ", "Pero ", "Peru ", "Però ", "Podano ", "Pokiaľ ", "Pokud ", "Potem ", "Potom ", "Privzeto ", "Pryd ", "Quan ", "Quand ", "Quando ", "Se ", "Sed ", "Si ", "Siis ", "Sipoze ", "Sipoze Ke ", "Sipoze ke ", "Soit ", "Stel ", "Så ", "Tad ", "Tada ", "Tak ", "Takrat ", "Tapi ", "Ter ", "Tetapi ", "Tha ", "Tha the ", "Then ", "Thurh ", "Thì ", "Toda ", "Togash ", "Too right ", "Tutaq ki ", "Un ", "Und ", "Ve ", "Vendar ", "Verilir ", "Và ", "Və ", "WEN ", "Wanneer ", "Wenn ", "When ", "Wtedy ", "Wun ", "Y ", "Y'know ", "Ya ", "Yeah nah ", "Yna ", "Youse know like when ", "Youse know when youse got ", "Za date ", "Za dati ", "Za dato ", "Za predpokladu ", "Za předpokladu ", "Zadan ", "Zadani ", "Zadano ", "Zakładając ", "Zakładając, że ", "Zaradi ", "Zatim ", "a ", "an ", "awer ", "dann ", "ghu' noblu' ", "latlh ", "mä ", "qaSDI' ", "ugeholl ", "vaj ", "wann ", "És ", "Étant donné ", "Étant donné qu'", "Étant donné que ", "Étant donnée ", "Étant données ", "Étant donnés ", "Ða ", "Ða ðe ", "Ðurh ", "Þa ", "Þa þe ", "Þegar ", "Þurh ", "Þá ", "Če ", "Şi ", "Əgər ", "Și ", "Όταν ", "Αλλά ", "Δεδομένου ", "Και ", "Τότε ", "І ", "А ", "А також ", "Агар ", "Але ", "Али ", "Аммо ", "Анх ", "Бирок ", "Ва ", "Вә ", "Гэхдээ ", "Дадена ", "Дадено ", "Дано ", "Допустим ", "Если ", "За дате ", "За дати ", "За дато ", "Затем ", "И ", "К тому же ", "Кад ", "Када ", "Кога ", "Когато ", "Когда ", "Коли ", "Лекин ", "Ләкин ", "Мөн ", "Нехай ", "Но ", "Нәтиҗәдә ", "Онда ", "Припустимо ", "Припустимо, що ", "Пусть ", "Та ", "Также ", "То ", "Тогаш ", "Тогда ", "Тоді ", "Тэгэхэд ", "Тэгээд ", "Унда ", "Харин ", "Хэрэв ", "Якщо ", "Үүний дараа ", "Һәм ", "Әгәр ", "Әйтик ", "Әмма ", "Өгөгдсөн нь ", "Ապա ", "Բայց ", "Դիցուք ", "Եթե ", "Եվ ", "Երբ ", "אבל ", "אז ", "אזי ", "בהינתן ", "וגם ", "כאשר ", "آنگاه ", "اذاً ", "اما ", "اور ", "اگر ", "با فرض ", "بالفرض ", "بفرض ", "تب ", "ثم ", "جب ", "عندما ", "فرض کیا ", "لكن ", "لیکن ", "متى ", "هنگامی ", "و ", "پھر ", "अगर ", "और ", "कदा ", "किन्तु ", "चूंकि ", "जब ", "तथा ", "तदा ", "तब ", "पर ", "परन्तु ", "यदि ", "ਅਤੇ ", "ਜਦੋਂ ", "ਜਿਵੇਂ ਕਿ ", "ਜੇਕਰ ", "ਤਦ ", "ਪਰ ", "અને ", "આપેલ છે ", "ક્યારે ", "પછી ", "પણ ", "அப்பொழுது ", "ஆனால் ", "எப்போது ", "கொடுக்கப்பட்ட ", "மற்றும் ", "மேலும் ", "అప్పుడు ", "ఈ పరిస్థితిలో ", "కాని ", "చెప్పబడినది ", "మరియు ", "ಆದರೆ ", "ನಂತರ ", "ನೀಡಿದ ", "ಮತ್ತು ", "ಸ್ಥಿತಿಯನ್ನು ", "กำหนดให้ ", "ดังนั้น ", "เมื่อ ", "แต่ ", "และ ", "და", "მაგრამ", "მაშინ", "მოცემული", "როდესაც", "かつ", "しかし", "ただし", "ならば", "もし", "並且", "但し", "但是", "假如", "假定", "假設", "假设", "前提", "同时", "同時", "并且", "当", "當", "而且", "那么", "那麼", "그러면", "그리고", "단", "만약", "만일", "먼저", "조건", "하지만", "🎬", "😂", "😐", "😔", "🙏"]
|
|
13
|
+
end
|
|
14
|
+
end
|
|
15
|
+
end
|
|
16
|
+
end
|