typecastx.m

Go to the documentation of this file.

/* (Autoinserted by mtoc++)
 * This source code has been filtered by the mtoc++ executable,
 * which generates code that can be processed by the doxygen documentation tool.
 *
 * On the other hand, it can neither be interpreted by MATLAB, nor can it be compiled with a C++ compiler.
 * Except for the comments, the function bodies of your M-file functions are untouched.
 * Consequently, the FILTER_SOURCE_FILES doxygen switch (default in our Doxyfile.template) will produce
 * attached source files that are highly readable by humans.
 *
 * Additionally, links in the doxygen generated documentation to the source code of functions and class members refer to
 * the correct locations in the source code browser.
 * However, the line numbers most likely do not correspond to the line numbers in the original MATLAB source files.
 */

function varargout = typecastx(varargin) {
fname = " typecastx ";
disp("   ");
disp([" Detected that the mex routine for  " fname "  is not yet built. "]);
disp(" Attempting to do so now ... ");
disp("   ");
try
    mname = mfilename(" fullpath ");
catch
    mname = fname;
end
cname = [mname " .c "];
if( isempty(dir(cname)) )
    disp([" Cannot find the file  " fname " .c in the same directory as the "]);
    disp([" file  " fname " .m. Please ensure that they are in the same "]);
    disp(" directory and try again. The following file was not found: ");
    disp("   ");
    disp(cname);
    disp("   ");
    error([" Unable to compile  " fname " .c "]);
else
    disp([" Found file  " fname " .c in  " cname]);
    disp("   ");
    disp(" Now attempting to compile ... ");
    disp(" (If prompted, please press the Enter key and then select any C/C++ ");
    disp(" compiler that is available, such as lcc.) ");
    disp("   ");
    disp([" mex( " cname " , "" -output "" , ",mname," ) "]);
    disp("   ");
    try
        mex(cname," -output ",mname);
        disp([ fname "  mex build completed ... you may now use  " fname " . "]);
        disp("   ");
    catch
        disp("   ");
        error([" Unable to compile  " fname "  ... Contact author. "]);
    end
    [varargout[1:nargout]] = typecastx(varargin[:]);
end
end

}