ソースを参照

Allow aliases for names that contain mutiple dollars.

杨博 11 年 前
コミット
31ef40eb01
1 ファイル変更3 行追加3 行削除
  1. 3 3
      genjava.ml

+ 3 - 3
genjava.ml

@@ -3200,9 +3200,9 @@ let add_java_lib com file std =
 							| (EClass c, pos) -> begin
 								let parts = String.nsplit c.d_name "_24" in
 								match parts with
-									| [outer;inner] ->
-										let alias_name = outer ^ "_" ^ inner in
-										if (not (SS.mem alias_name !inner_alias)) then begin
+									| _ :: _ ->
+										let alias_name = String.concat "_" parts in
+										if (not (SS.mem alias_name !inner_alias)) && (not (String.exists (snd path) "_24")) then begin
 											let alias_def = ETypedef {
 												d_name = alias_name;
 												d_doc = None;