Sfoglia il codice sorgente

re-enable %ENV_VAR% substitution in HXML

Nicolas Cannasse 16 anni fa
parent
commit
45ba087cc3
1 ha cambiato i file con 3 aggiunte e 4 eliminazioni
  1. 3 4
      main.ml

+ 3 - 4
main.ml

@@ -140,12 +140,11 @@ let parse_hxml file =
 	IO.close_in ch;
 	List.concat (List.map (fun l ->
 		let l = ExtString.String.strip l in
-		(*// disabled - need additional str.cmxa linkage
-			let renv = Str.regexp "%\\([A-Za-z0-9_]+\\)%" in
-			let l = Str.global_substitute renv (fun _ ->
+		let renv = Str.regexp "%\\([A-Za-z0-9_]+\\)%" in
+		let l = Str.global_substitute renv (fun _ ->
 			let e = Str.matched_group 1 l in
 			try Sys.getenv e with Not_found -> "%" ^ e ^ "%"
-		) l in  *)
+		) l in
 		if l = "" || l.[0] = '#' then
 			[]
 		else if l.[0] = '-' then