user_string.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 string = user_string(string_name,string) {
if ~ischar(string_name)
    error(" string_name must be a string. ");
end
/*  Create the full filename */
string_name = fullfile(fileparts(mfilename(" fullpath ")), " .ignore ", [string_name " .txt "]);
if nargin > 1
    /*  Set string */
    if ~ischar(string)
        error(" new_string must be a string. ");
    end
    /*  Make sure the save directory exists */
    dname = fileparts(string_name);
    if ~exist(dname, " dir ")
        /*  Create the directory */
        try
            if ~mkdir(dname)                
                string = false;
                return
            end
        catch
            string = false;
            return
        end
        /*  Make it hidden */
        try
            fileattrib(dname, " +h ");
        catch
        end
    end
    /*  Write the file */
    fid = fopen(string_name, " wt ");
    if fid == -1
        string = false;
        return
    end
    try
        fprintf(fid, " %s ", string);
    catch
        fclose(fid);
        string = false;
        return
    end
    fclose(fid);
    string = true;
else
    /*  Get string */
    fid = fopen(string_name, " rt ");
    if fid == -1
        string = ;
        return
    end
    string = fgetl(fid);
    fclose(fid);
end
return
}