浏览代码

Convert first character of class name to upper case

杨博 11 年之前
父节点
当前提交
9940724cec
共有 1 个文件被更改,包括 6 次插入1 次删除
  1. 6 1
      genjava.ml

+ 6 - 1
genjava.ml

@@ -2245,7 +2245,12 @@ let jname_to_hx name =
 		else
 			Buffer.add_string sb (Printf.sprintf "_%X" (Char.code c))
 	) name;
-	Buffer.contents sb
+	let ret = Buffer.contents sb in
+	let first_char = ret.[0] in
+	if first_char >= 'a' || first_char <= 'z' then begin
+		ret.[0] <- (Char.uppercase first_char)
+	end;
+	ret
 
 let normalize_pack pack =
 	List.map (function