1 let emit_endline = ref prerr_endline
3 let process_link_output s
=
4 if s
<> "LINK : warning LNK4044: unrecognized option '/nologo'; ignored"
8 let invoke argv arg_start
=
11 if i
= String.length s
15 if s
.[i
] = ' '
|| s
.[i
] = '
\t'
25 if Utils.array_find_from
26 (fun s
-> s
= "/dump" || s
= "-dump" || Utils.question_pred s
)
29 emit_endline := print_endline
32 let args = Utils.make_arg_string
Path.check_and_modify_absolute argv arg_start
in
33 let tool = Utils.tool_name
"link" in
39 Wine.command tool ^
" " ^
args ^
" /nologo"
41 let ic = Unix.open_process_in
command in
42 Utils.iter_crlf_chan
ic process_link_output;
43 let code = Utils.close_process_in
ic in