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