1# 2# Script that parses Unix style build environment and generates build files 3# for building with Visual Studio. 4# 5# src/tools/msvc/mkvcbuild.pl 6# 7use strict; 8use warnings; 9 10use File::Basename; 11use File::Spec; 12BEGIN { use lib File::Spec->rel2abs(dirname(__FILE__)); } 13 14use Mkvcbuild; 15 16chdir('..\..\..') if (-d '..\msvc' && -d '..\..\..\src'); 17die 'Must run from root or msvc directory' 18 unless (-d 'src\tools\msvc' && -d 'src'); 19 20die 'Could not find config_default.pl' 21 unless (-f 'src/tools/msvc/config_default.pl'); 22print "Warning: no config.pl found, using default.\n" 23 unless (-f 'src/tools/msvc/config.pl'); 24 25our $config; 26do './src/tools/msvc/config_default.pl'; 27do './src/tools/msvc/config.pl' if (-f 'src/tools/msvc/config.pl'); 28 29Mkvcbuild::mkvcbuild($config); 30