From 2b7ec95551296a6dc74eaba491521ec7f2e754c9 Mon Sep 17 00:00:00 2001 From: Paul Fitzpatrick Date: Fri, 18 Sep 2015 09:27:18 -0400 Subject: [PATCH] small fixes, including string upcase/downcase --- genrb.ml | 3 ++- std/rb/_std/String.hx | 11 +++++++++-- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/genrb.ml b/genrb.ml index 724fff3f3ea..6558cc4318c 100644 --- a/genrb.ml +++ b/genrb.ml @@ -120,6 +120,7 @@ let reserved = "begin";"rescue";"end"; "Sys";"File"; + "next"; ]; h @@ -1465,7 +1466,7 @@ let generate_field ctx static f = print ctx "def %s(" (loop f.cf_meta); concat ctx "," (fun (arg,o,t) -> let tstr = type_str ctx t p in - print ctx "%s" arg; + print ctx "%s" (s_ident arg); if o then print ctx " = %s" (default_value tstr); ) args; print ctx ") puts \"Abstract %s.%s called\" end" (tweak_class_name (snd ctx.curclass.cl_path)) (loop f.cf_meta); diff --git a/std/rb/_std/String.hx b/std/rb/_std/String.hx index 730d2911e62..06ad87b112e 100644 --- a/std/rb/_std/String.hx +++ b/std/rb/_std/String.hx @@ -23,8 +23,15 @@ var length(default,null) : Int; function new(string:String) : Void; - function toUpperCase() : String; - function toLowerCase() : String; + + inline function toUpperCase() : String { + return untyped __dotcall__(this,"upcase"); + } + + inline function toLowerCase() : String { + return untyped __dotcall__(this,"downcase"); + } + inline function charAt( index : Int) : String { return untyped __get__(this,index); }