src/utils/lib/autoconf.ml.new.in

   1 let perl_path = "@PERL@"
   2 let check_bounds = @CHECKBOUNDS@
   3 let current_version = "@MLDONKEY_VERSION@"
   4 let major_version = "@MAJOR_VERSION@"
   5 let minor_version = "@MINOR_VERSION@"
   6 let sub_version = "@SUB_VERSION@"
   7 let scm_version = "@SCM_VERSION@"
   8 let glibc_version = "@GLIBC_VERSION@"
   9 let cc_version = "@CC_VERSION@"
  10 let cxx_version = "@CXX_VERSION@"
  11 let build_system = "@BUILD_SYSTEM@"
  12 let configure_arguments = "@CONFIGURE_ARGUMENTS@"
  13
  14 let system = "@SYSTEM@"
  15 let windows = system = "cygwin" || system = "mingw"
  16
  17 let opennapster = "@OPEN_NAPSTER@"
  18 let gnutella = "@GNUTELLA@"
  19 let gnutella2 = "@GNUTELLA2@"
  20 let direct_connect = "@DIRECT_CONNECT@"
  21 let soulseek = "@SOULSEEK@"
  22 let openft = "@OPENFT@"
  23 let fasttrack = "@FASTTRACK@"
  24 let filetp = "@FILETP@"
  25 let bittorrent = "@BITTORRENT@"
  26 let donkey = "@DONKEY@"
  27 let donkey_sui = "@DONKEY_SUI@"
  28 let donkey_sui_urandom = ref false
  29 let donkey_sui_works () = donkey_sui = "yes" && !donkey_sui_urandom
  30
  31 exception OutOfBoundsAccess
  32 let outofboundsaccess = OutOfBoundsAccess
  33
  34 let check_string s pos =
  35   if check_bounds && pos >= String.length s then
  36     raise outofboundsaccess
  37
  38 let check_array s pos =
  39   if check_bounds && pos >= Array.length s then
  40     raise outofboundsaccess
  41
  42 let has_iconv = "@ICONV@" = "yes"
  43
  44 let has_gd = "@GD@" = "yes"
  45 let has_gd_png = "@GD_PNG@" = "yes"
  46 let has_gd_jpg = "@GD_JPG@" = "yes"
  47
  48 let bzip2 = "@BZIP2@" = "yes"
  49 let magic = "@MAGIC@" = "yes"
  50 let magic_works = ref false
  51 let upnp_natpmp = "@UPNP_NATPMP@" = "yes"