/usr/lib/ruby/vendor_ruby/rugments/lexers/scheme.rb is in ruby-rugments 1.0.0~beta8-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 | module Rugments
module Lexers
class Scheme < RegexLexer
title 'Scheme'
desc 'The Scheme variant of Lisp'
tag 'scheme'
filenames '*.scm', '*.ss'
mimetypes 'text/x-scheme', 'application/x-scheme'
def self.keywords
@keywords ||= Set.new %w(
lambda define if else cond and or case let let* letrec begin
do delay set! => quote quasiquote unquote unquote-splicing
define-syntax let-syntax letrec-syntax syntax-rules
)
end
def self.builtins
@builtins ||= Set.new %w(
* + - / < <= = > >= abs acos angle append apply asin
assoc assq assv atan boolean? caaaar caaadr caaar caadar
caaddr caadr caar cadaar cadadr cadar caddar cadddr caddr
cadr call-with-current-continuation call-with-input-file
call-with-output-file call-with-values call/cc car cdaaar cdaadr
cdaar cdadar cdaddr cdadr cdar cddaar cddadr cddar cdddar cddddr
cdddr cddr cdr ceiling char->integer char-alphabetic? char-ci<=?
char-ci<? char-ci=? char-ci>=? char-ci>? char-downcase
char-lower-case? char-numeric? char-ready? char-upcase
char-upper-case? char-whitespace? char<=? char<? char=? char>=?
char>? char? close-input-port close-output-port complex? cons
cos current-input-port current-output-port denominator
display dynamic-wind eof-object? eq? equal? eqv? eval
even? exact->inexact exact? exp expt floor for-each force gcd
imag-part inexact->exact inexact? input-port? integer->char
integer? interaction-environment lcm length list list->string
list->vector list-ref list-tail list? load log magnitude
make-polar make-rectangular make-string make-vector map
max member memq memv min modulo negative? newline not
null-environment null? number->string number? numerator odd?
open-input-file open-output-file output-port? pair? peek-char
port? positive? procedure? quotient rational? rationalize
read read-char real-part real? remainder reverse round
scheme-report-environment set-car! set-cdr! sin sqrt string
string->list string->number string->symbol string-append
string-ci<=? string-ci<? string-ci=? string-ci>=? string-ci>?
string-copy string-fill! string-length string-ref
string-set! string<=? string<? string=? string>=?
string>? string? substring symbol->string symbol?
tan transcript-off transcript-on truncate values vector
vector->list vector-fill! vector-length vector-ref
vector-set! vector? with-input-from-file with-output-to-file
write write-char zero?
)
end
id = /[a-z0-9!$\%&*+,\/:<=>?@^_~|-]+/i
state :root do
# comments
rule /;.*$/, Comment::Single
rule /\s+/m, Text
rule /-?\d+\.\d+/, Num::Float
rule /-?\d+/, Num::Integer
# Racket infinitites
rule /[+-]inf[.][f0]/, Num
rule /#b[01]+/, Num::Bin
rule /#o[0-7]+/, Num::Oct
rule /#d[0-9]+/, Num::Integer
rule /#x[0-9a-f]+/i, Num::Hex
rule /#[ei][\d.]+/, Num::Other
rule /"(\\\\|\\"|[^"])*"/, Str
rule /'#{id}/i, Str::Symbol
rule /#\\([()\/'"._!\$%& ?=+-]{1}|[a-z0-9]+)/i,
Str::Char
rule /#t|#f/, Name::Constant
rule /(?:'|#|`|,@|,|\.)/, Operator
rule /(['#])(\s*)(\()/m do
groups Str::Symbol, Text, Punctuation
end
rule /\(/, Punctuation, :command
rule /\)/, Punctuation
rule id, Name::Variable
end
state :command do
rule id, Name::Function do |m|
if self.class.keywords.include? m[0]
token Keyword
elsif self.class.builtins.include? m[0]
token Name::Builtin
else
token Name::Function
end
pop!
end
rule(//) { pop! }
end
end
end
end
|