class Rouge::Lexers::FSharp

def self.keyopts
  @keyopts ||= Set.new %w(
    != # & && ( ) * \+ , - -. -> . .. : :: := :> ; ;; < <- =
    > >] >} ? ?? [ [< [> [| ] _ ` { {< | |] } ~ |> <| <>
  )
end

def self.keywords
  @keywords ||= Set.new %w(
    abstract and as assert base begin class default delegate do
    done downcast downto elif else end exception extern false
    finally for fun function global if in inherit inline interface
    internal lazy let let! match member module mutable namespace
    new not null of open or override private public rec return
    return! select static struct then to true try type upcast
    use use! val void when while with yield yield! sig atomic 
    break checked component const constraint constructor 
    continue eager event external fixed functor include method 
    mixin object parallel process protected pure sealed tailcall 
    trait virtual volatile
  )
end

def self.primitives
  @primitives ||= Set.new %w(unit int float bool string char list array)
end

def self.word_operators
  @word_operators ||= Set.new %w(and asr land lor lsl lxor mod or)
end