Răsfoiți Sursa

Allow aliases for names that contain mutiple dollars.

杨博 11 ani în urmă
părinte
comite
31ef40eb01
1 a modificat fișierele cu 3 adăugiri și 3 ștergeri
  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;