small fixes, including string upcase/downcase

paulfitz · Sep 18, 2015 · 2b7ec95 · 2b7ec95
1 parent c4ea310
commit 2b7ec95
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 3 deletions.
diff --git 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
@@ -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);
   }