Przeglądaj źródła

Allow aliases for names that contain mutiple dollars.

杨博 11 lat temu
rodzic
commit
31ef40eb01
1 zmienionych plików z 3 dodań i 3 usunięć
  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;