Browse Source

Merge pull request #2326 from nadako/2132_dont_flatten_extern

[js-flatten] Always use dot path for extern classes and enums (closes #2132)
Bruno Garcia 11 years ago
parent
commit
92cb71fce8
1 changed files with 7 additions and 1 deletions
  1. 7 1
      genjs.ml

+ 7 - 1
genjs.ml

@@ -1105,7 +1105,13 @@ let alloc_ctx com =
 		separator = false;
 		separator = false;
 		found_expose = false;
 		found_expose = false;
 	} in
 	} in
-	ctx.type_accessor <- (fun t -> s_path ctx (t_path t));
+	ctx.type_accessor <- (fun t -> 
+		let p = t_path t in
+		match t with
+		| TClassDecl { cl_extern = true } 
+		| TEnumDecl { e_extern = true }
+			-> dot_path p
+		| _ -> s_path ctx p);
 	ctx
 	ctx
 
 
 let gen_single_expr ctx e expr =
 let gen_single_expr ctx e expr =