ghostscript.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 = ghostscript(cmd) {
shell_cmd = ;
if isunix
    shell_cmd = " export LD_LIBRARY_PATH='';  "; /*  Avoids an error on Linux with GS 9.07 */

end
/*  Call ghostscript */
[varargout[1:nargout]] = system(sprintf(" %s'%s' %s ", shell_cmd, gs_path, cmd));
return

}
function path_ = ghostscript>gs_path() {
path_ = user_string(" ghostscript ");
/*  Check the path works */
if check_gs_path(path_)
    return
end
/*  Check whether the binary is on the path */
if ispc
    bin = [" gswin32c.exe ", " gswin64c.exe ", " gs "];
else
    bin = [" gs "];
end
for a = 1:numel(bin)
    path_ = bin[a];
    if check_store_gs_path(path_)
        return
    end
end
/*  Search the obvious places */
if ispc
    default_location = " C:\Program Files\gs\ ";
    dir_list = dir(default_location);
    if isempty(dir_list)
        default_location = " C:\Program Files (x86)\gs\ "; /*  Possible location on 64-bit systems  */

        dir_list = dir(default_location);
    end
    executable = [" \bin\gswin32c.exe ", " \bin\gswin64c.exe "];
    ver_num = 0;
    /*  If there are multiple versions, use the newest */
    for a = 1:numel(dir_list)
        ver_num2 = sscanf(dir_list(a).name, " gs%g ");
        if ~isempty(ver_num2) && ver_num2 > ver_num
            for b = 1:numel(executable)
                path2 = [default_location dir_list(a).name executable[b]];
                if exist(path2, " file ") == 2
                    path_ = path2;
                    ver_num = ver_num2;
                end
            end
        end
    end
    if check_store_gs_path(path_)
        return
    end
else
    bin = [" /usr/bin/gs ", " /usr/local/bin/gs "];
    for a = 1:numel(bin)
        path_ = bin[a];
        if check_store_gs_path(path_)
            return
        end
    end
end
/*  Ask the user to enter the path */
while 1
    if strncmp(computer, " MAC ", 3) /*  Is a Mac
         * Give separate warning as the uigetdir dialogue box doesn't have a
         * title */

        uiwait(warndlg(" Ghostscript not found. Please locate the program. "))
    end
    base = uigetdir(" / ", " Ghostcript not found. Please locate the program. ");
    if isequal(base, 0)
        /*  User hit cancel or closed window */
        break;
    end
    base = [base filesep];
    bin_dir = [, [" bin " filesep], [" lib " filesep]];
    for a = 1:numel(bin_dir)
        for b = 1:numel(bin)
            path_ = [base bin_dir[a] bin[b]];
            if exist(path_, " file ") == 2
                if check_store_gs_path(path_)
                    return
                end
            end
        end
    end
end
error(" Ghostscript not found. Have you installed it from www.ghostscript.com? ");

}

function good = ghostscript>check_store_gs_path(path_) {
good = check_gs_path(path_);
if ~good
    return
end
/*  Update the current default path to the path found */
if ~user_string(" ghostscript ", path_)
    warning(" Path to ghostscript installation could not be saved. Enter it manually in ghostscript.txt. ");
    return
end
return

}

function good = ghostscript>check_gs_path(path_) {
[good, message] = system(sprintf(" '%s' -h ", path_));
good = good == 0;
return
}