mattn mattn

View gist:10250159
1 2 3 4 5 6 7 8 9 10
diff -r dd44a527c2bd src/eval.c
--- a/src/eval.c Sun Apr 06 21:34:04 2014 +0200
+++ b/src/eval.c Wed Apr 09 19:05:42 2014 +0900
@@ -18356,6 +18356,7 @@
list_append(list, li);
}
+ ++list->lv_refcount;
rettv->v_type = VAR_LIST;
rettv->vval.v_list = list;
View canon.pl
1 2 3 4 5 6 7 8 9 10
use strict;
use warnings;
 
sub canonpath {
my $path = shift;
my @ret = ();
for my $tok (split(/\/+/, $path)) {
next if $tok eq '.';
if ($tok eq '..') {
pop @ret;
View f.ank
1 2 3 4 5 6 7 8 9
#!anko
 
func(x) {
return func(y) {
x(y)
}
}(func(z) {
println("Yay!", z)
})("hello world")
View mod.rb
1 2 3 4 5 6 7
class Module
def module_function(*args)
args.each do |x|
self.class.send(:define_method, x) {|*args| Class.new.send(:include, self).new.send(x, *args)}
end
end
end
View ff.rb
1 2 3 4 5 6 7 8 9 10
#! bin/mruby
data =<<"@EOF"
{
"results" : [
{
"address_components" : [
{
"long_name" : "1600",
"short_name" : "1600",
"types" : [ "street_number" ]
View gist:9641684
1 2 3 4 5 6 7 8 9 10
diff --git a/lib/Ukigumo/Server/Web/Dispatcher.pm b/lib/Ukigumo/Server/Web/Dispatcher.pm
index f417210..17b04e8 100644
--- a/lib/Ukigumo/Server/Web/Dispatcher.pm
+++ b/lib/Ukigumo/Server/Web/Dispatcher.pm
@@ -42,12 +42,35 @@ get '/cc.xml' => sub {
push @{$projects{$project->{project}}}, $project;
}
- $c->render( 'cc.xml.tx',
+ my $res = $c->render( 'cc.xml.tx',
View gist:9641662
1 2 3 4 5 6 7 8 9 10
diff --git a/lib/Ukigumo/Server/Web/Dispatcher.pm b/lib/Ukigumo/Server/Web/Dispatcher.pm
index f417210..17b04e8 100644
--- a/lib/Ukigumo/Server/Web/Dispatcher.pm
+++ b/lib/Ukigumo/Server/Web/Dispatcher.pm
@@ -42,12 +42,35 @@ get '/cc.xml' => sub {
push @{$projects{$project->{project}}}, $project;
}
- $c->render( 'cc.xml.tx',
+ my $res = $c->render( 'cc.xml.tx',
View gist:9641629
1 2 3 4 5 6 7 8 9 10
diff --git a/lib/Ukigumo/Server/Web/Dispatcher.pm b/lib/Ukigumo/Server/Web/Dispatcher.pm
index f417210..64b028f 100644
--- a/lib/Ukigumo/Server/Web/Dispatcher.pm
+++ b/lib/Ukigumo/Server/Web/Dispatcher.pm
@@ -24,12 +24,14 @@ any '/' => sub {
push @{$projects{$project->{project}}}, $project;
}
- $c->render( 'index.tx',
+ my $res = $c->render( 'index.tx',
View real.pl
1 2 3 4 5
use strict;
use warnings;
use FindBin::libs;
use Cwd;
warn Cwd::realpath(".");
View gist:9640157
1 2 3 4 5 6 7 8 9 10
Plack/Loader
Plack/Middleware/Lint
Plack/Middleware/StackTrace
Plack/Middleware/AccessLog
ここまでは出ない
 
Amon2/Plugin/ShareDir
ここから出る
 
Amon2/Plugin/Web/JSON
Something went wrong with that request. Please try again.