%w.rack tilt backports INT TERM..map{|l|trap(l){$r.stop}rescue require l}
$n=Sinatra=Module.new
{
  extend Rack;
  a = Builder.new
  D = Object.method(:define_method)
  $p = 4567
  S = /@@ *([^\n]+)\n(((?!@@)[^\n]*\n)*)/m;
  q,Application=a

  %w[get post put delete].map{|m|
    D.(m){|u,&b|
      a.map(u){run->(e){[200,{"Content-Type"=>"text/html"},[a.instance_eval(&b)]]}}
    }
  }
  Tilt.mappings.map{|k,v|
    D.(k){|n,*o|
        $t||=(h={};File.read(caller[0][/^[^:]+/]).scan(S){|a,b|h[a]=b};h);
        v.new(*o){n.to_s==n ?n:$t[n.to_s]}.render(a,o[0].try(:[],:locals)||{})
    }
  }

  %w[set enable disable configure helpers use register].map{|m|
    D.(m){|*_,&b|b.try :[]}
  };

  END{Handler.get("webrick").run(a,Port:$p){|s|$r=s}}

  %w[params session].map{|m|
    D.(m){q.send m}
  };

  a.use Session::Cookie;
  a.use Lock
  D.(:before){|&b|
    a.use Rack::Config,&b
  };
  before{|e|q=Request.new e;q.params.dup.map{|k,v|params[k.to_sym]=v}}
}
puts "== almost #$n/No Version has taken the stage on #$p for development with backup from Webrick"