msvc32-fixup.pl

   1 #! e:/program files/perl/bin/perl.exe
   2 #  version info can be found in 'TO BE CONFIRMED'
   3
   4 require "../gnu-windows/src/local-paths.lib";
   5
   6 $msvc_mixbus_version = "5.00.0";
   7 $major = 5;
   8 $minor = 0;
   9 $micro = 0;
  10 $interface_age = 0;
  11 $scanner_app_version = "2.00.0";
  12 $scanner_major = 2;
  13 $scanner_minor = 0;
  14 $scanner_micro = 0;
  15 $scanner_interface_age = 0;
  16 $binary_age = 5000;
  17 $current_minus_age = 0;
  18 $exec_prefix = "lib";
  19 $dll_suffix = "32";
  20 $lib_ext = ".dll";
  21 $monospace = "ArdourMono";
  22 $font_small = 8.5;
  23 $font_smaller = 8;
  24 $font_normal = 9;
  25 $font_big = 11;
  26 $font_large = 14.5;
  27 $font_larger = 19;
  28 $font_huger = 27;
  29 $font_massive = 48;
  30
  31 sub process_file
  32 {
  33         my $outfilename = shift;
  34         my $infilename = $outfilename . ".in";
  35
  36         open (INPUT, "< $infilename") || exit 1;
  37         open (OUTPUT, "> $outfilename") || exit 1;
  38
  39         while (<INPUT>) {
  40             s/\@GLIB_API_VERSION@/$glib_api_version/g;
  41             s/\@GTK_API_VERSION@/$gtk_api_version/g;
  42             s/\@ATK_API_VERSION@/$atk_api_version/g;
  43             s/\@PANGO_API_VERSION@/$pango_api_version/g;
  44             s/\@GDK_PIXBUF_API_VERSION@/$gdk_pixbuf_api_version/g;
  45             s/\@MSVC_MIXBUS_VERSION@/$msvc_mixbus_version/g;
  46             s/\@MSVC_MIXBUS_MAJOR\@/$major/g;
  47             s/\@MSVC_MIXBUS_MINOR\@/$minor/g;
  48             s/\@MSVC_MIXBUS_MICRO\@/$micro/g;
  49             s/\@MSVC_MIXBUS_INTERFACE_AGE\@/$interface_age/g;
  50             s/\@MSVC_SCANNER_APP_VERSION@/$scanner_app_version/g;
  51             s/\@MSVC_SCANNER_APP_MAJOR\@/$scanner_major/g;
  52             s/\@MSVC_SCANNER_APP_MINOR\@/$scanner_minor/g;
  53             s/\@MSVC_SCANNER_APP_MICRO\@/$scanner_micro/g;
  54             s/\@MSVC_SCANNER_APP_INTERFACE_AGE\@/$scanner_interface_age/g;
  55             s/\@LT_CURRENT_MINUS_AGE@/$current_minus_age/g;
  56             s/\@VERSION@/$msvc_mixbus_version/g;
  57             s/\@DLL_SUFFIX\@/$dll_suffix/g;
  58             s/\@LIB_EXT\@/$lib_ext/g;
  59             s/\@MONOSPACE\@/$monospace/g;
  60             s/\@FONT_SMALL\@/$font_small/g;
  61             s/\@FONT_SMALLER\@/$font_smaller/g;
  62             s/\@FONT_NORMAL\@/$font_normal/g;
  63             s/\@FONT_BIG\@/$font_big/g;
  64             s/\@FONT_LARGE\@/$font_large/g;
  65             s/\@FONT_LARGER\@/$font_larger/g;
  66             s/\@FONT_HUGER\@/$font_huger/g;
  67             s/\@FONT_MASSIVE\@/$font_massive/g;
  68             s/\@GETTEXT_PACKAGE\@/$gettext_package/g;
  69             s/\@PERL_PATH@/$perl_path/g;
  70             s/\@PackagerFolderLocal@/$packager_folder_local/g;
  71             s/\@JackBuildRootFolder@/$jack_build_root_folder/g;
  72             s/\@GlibBuildRootFolder@/$glib_build_root_folder/g;
  73             s/\@GdkPixbufBuildRootFolder@/$gdk_pixbuf_build_root_folder/g;
  74             s/\@GtkBuildProjectFolder@/$gtk_build_project_folder/g;
  75             s/\@GenericIncludeFolder@/$generic_include_folder/g;
  76             s/\@GenericLibraryFolder@/$generic_library_folder/g;
  77             s/\@GenericWin32LibraryFolder@/$generic_win32_library_folder/g;
  78             s/\@GenericWin32BinaryFolder@/$generic_win32_binary_folder/g;
  79             s/\@Debug32TestSuiteFolder@/$debug32_testsuite_folder/g;
  80             s/\@Release32TestSuiteFolder@/$release32_testsuite_folder/g;
  81             s/\@Debug32TargetFolder@/$debug32_target_folder/g;
  82             s/\@Release32TargetFolder@/$release32_target_folder/g;
  83             s/\@Debug32PixbufLoadersFolder@/$debug32_pixbuf_loaders_folder/g;
  84             s/\@Release32PixbufLoadersFolder@/$release32_pixbuf_loaders_folder/g;
  85             s/\@TargetSxSFolder@/$target_sxs_folder/g;
  86             s/\@prefix@/$prefix/g;
  87             s/\@exec_prefix@/$exec_prefix/g;
  88             s/\@includedir@/$generic_include_folder/g;
  89             s/\@libdir@/$generic_library_folder/g;
  90             print OUTPUT;
  91         }
  92 }
  93
  94 process_file ("libs/plugins/reasonablesynth.lv2/manifest.ttl");
  95 process_file ("gtk2_ardour/default_ui_config");
  96
  97 my $command=join(' ',@ARGV);
  98 if ($command eq -buildall) {
  99         process_file ("MSVCardour3/MSVCArdour5.vsprops");
 100         process_file ("MSVCMixbus3/MSVCMixbus5.vsprops");
 101         process_file ("MSVCvst_scan/vst_scan.rc");
 102         process_file ("gtk2_ardour/win32/msvc_resources.rc");
 103 }