Class: WLang::Compiler::DialectEnforcer

Inherits:
Filter
  • Object
show all
Defined in:
lib/wlang/compiler/dialect_enforcer.rb

Instance Method Summary collapse

Methods included from Filter::ClassMethods

#recurse_on

Methods included from Filter::InstanceMethods

#recurse

Instance Method Details

#dialect ⇒ Object 



7
 
# File 'lib/wlang/compiler/dialect_enforcer.rb', line 7

def dialect; options[:dialect]; end

#on_wlang(symbols, *fns) ⇒ Object 



9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
# File 'lib/wlang/compiler/dialect_enforcer.rb', line 9

def on_wlang(symbols, *fns)
  extra, meth = find_dispatching_method(symbols, :unbound_method)
  if meth
    argsize, arity = fns.size, meth.arity - 1
    if extra.size > 0
      rewrite_extra_symbols(extra, symbols[extra.length..-1], fns)
    elsif argsize > arity
      rewrite_trailing_fns(symbols, fns[0...arity], fns[arity..-1])
    elsif argsize < arity
      rewrite_missing_fns(symbols, fns, arity - argsize)
    else
      enforce_sub_dialects(symbols, fns)
    end
  else
    rewrite_unknown_tag(symbols, fns)
  end
end