function makedll
% function makedll
% makedll makes the mexDDGrab dll which is used by mmread.
% makedll requires Microsoft Visual Studio.  It may work with other
% compilers, but this is the only one that is supported.  It also requires
% the DirectX SDK to be installed as well as the DirectShow extensions to
% DirectX.  Currently the DirectShow extensions are included in the Extras for 
% the DirectX SDK (a separate download).
%
% Go to http://msdn.microsoft.com/directx/directxdownloads/default.aspx
% Download and install the SDK.
% Download the Extras and expand it.  Take the contents (DirectShow and DirectSound)
%  out of the Extras directory and move them to the \Samples\C++ directory
%  under the DirectX SDK.
% Build the baseclasses.vcproj under the DirectX SDK+Extras in
%  \Samples\C++\DirectShow\Samples\C++\DirectShow\BaseClasses
%  this will make strmbase.lib and quartz.lib.  Make sure to build the
%  Release version.
% Configure mex to use Visual Studio as its compiler.  Type mex -setup at 
%  the matlab prompt to do this if needed.
% Run makedll.  It will search for the required .h and .lib files.  If it
% can't find them it will ask you for the directory (or root directory to
% search under).

DirectX_SDK_Include_dir = 'C:\Program Files'; %\Microsoft DirectX 9.0 SDK (June 2005)
VisualStudio_Include_dir = 'C:\Program Files'; %\Microsoft Visual Studio .NET
DirectX_SDK_Include_dir = getpath('DirectX_SDK_Include_dir', DirectX_SDK_Include_dir, 'ddraw.h');
disp(['Using ' DirectX_SDK_Include_dir]);
DirectX_SDK_DirectShow_Include_dir = fileparts(DirectX_SDK_Include_dir);
DirectX_SDK_DirectShow_Include_dir = getpath('DirectX_SDK_DirectShow_Include_dir', DirectX_SDK_DirectShow_Include_dir, 'dshow.h');
disp(['Using ' DirectX_SDK_DirectShow_Include_dir]);
Quartz_Lib_dir = fileparts(DirectX_SDK_DirectShow_Include_dir);
Quartz_Lib_dir = getpath('Quartz_Lib_dir', Quartz_Lib_dir, 'Quartz.lib');
disp(['Using ' Quartz_Lib_dir]);
Strmbase_Lib_dir = fileparts(DirectX_SDK_DirectShow_Include_dir);
Strmbase_Lib_dir = getpath('Strmbase_Lib_dir', Strmbase_Lib_dir, 'STRMBASE.lib');
disp(['Using ' Strmbase_Lib_dir]);
VisualStudio_Include_dir = getpath('VisualStudio_Include_dir', VisualStudio_Include_dir, 'atlbase.h');
disp(['Using ' VisualStudio_Include_dir]);
VisualStudio_Lib_dir = fileparts(VisualStudio_Include_dir);
VisualStudio_Lib_dir = getpath('VisualStudio_Lib_dir', VisualStudio_Lib_dir, 'atl.lib');
disp(['Using ' VisualStudio_Lib_dir]);

mexCmd = ['mex -I''' DirectX_SDK_Include_dir ''' -I''' DirectX_SDK_DirectShow_Include_dir ...
        ''' -I''' VisualStudio_Include_dir ''' mexDDGrab.cpp DDGrab.cpp ''' ...
        Strmbase_Lib_dir '\Strmbase.lib'' ''' ...
        Quartz_Lib_dir '\Quartz.lib'''];
        
% if atls.lib exists it will be in the same directory as atl.lib
if (exist([VisualStudio_Lib_dir '\atls.lib'],'file'))
    mexCmd = [mexCmd ' ''' VisualStudio_Lib_dir '\atls.lib'''];
end

try
    fid = fopen([fileparts(mfilename('fullpath')) '\build.m'],'wt+'); 
    fwrite(fid,mexCmd,'char')
    disp('Generated build.m  Run this in the future to compile.');
    flcose(fid);
catch
end
disp(['Running: ' mexCmd]);
eval(mexCmd);

function path = getpath(pathname, default, testfile)
path = findpath(default, testfile);
while isempty(path)
    path = findpath(input([pathname ' does not contain the file ''' testfile ''', enter new path to search under: '],'s'),testfile);
end
path = path{choose(pathname,path)};

function path = findpath(startdir, filename)
files = dir(startdir);
files = files(~ismember({files.name},{'.','..'})); % remove . and .. from the list
path = {};
if (any(strcmpi(filename,{files.name})))
    path{1} = startdir;
end
for i=1:length(files)
    if (files(i).isdir)
        tmppath = findpath([startdir filesep files(i).name],filename);
        path = {path{:}, tmppath{:}};
    end
end

function opt = choose(pathname,options)
if (length(options) > 1)
    disp(['There are multiple options for ' pathname ' please choose one of the following:']);
    for i=1:length(options)
        disp([num2str(i) '   ' options{i}]);
    end
    opt = 0;
    while opt < 1 || opt > length(options)
        opt = str2double(input('','s'));
        if opt < 1 || opt > length(options)
            disp(['Invalid response, must enter a number between 1 and ' num2str(length(options))]);
        end
    end
else
    opt = 1;
end