wine.ml

   1 let native_convert_slashes = ref false
   2
   3 let native = Sys.os_type = "Win32"
   4
   5 let wine_command s = "wine " ^ s
   6 let native_command s = s
   7
   8 let command =
   9   if native
  10   then
  11     native_command
  12   else
  13     wine_command
  14
  15 let root_path =
  16   if native
  17   then
  18     "/"
  19   else
  20     try
  21       Sys.getenv "WINE_PREFIX"
  22     with
  23       | Not_found ->
  24           begin
  25             try
  26               Filename.concat (Sys.getenv "HOME") ".wine"
  27             with
  28               | Not_found ->
  29                   failwith "Can not find wine's root path"
  30           end