Devel.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.
 */

class Devel
  :public handle {
    public: /* ( Dependent ) */

        char Author;
        char AuthorShort;
        Date;
    public: /* ( Dependent ) */

        
#if 0 //mtoc++: 'set.Author'
function  Author(value) {
            setpref(" KERMOR_DEVEL "," author ",value);
        }

#endif

        
#if 0 //mtoc++: 'set.AuthorShort'
function  AuthorShort(value) {
            setpref(" KERMOR_DEVEL "," authorshort ",value);
        }

#endif


        
#if 0 //mtoc++: 'get.Author'
function v = Author() {
            v = getpref(" KERMOR_DEVEL "," author "," <No author set> ");
        }

#endif

        
#if 0 //mtoc++: 'get.AuthorShort'
function v = AuthorShort() {
            v = getpref(" KERMOR_DEVEL "," authorshort "," <No author short set> ");
        }

#endif

        
#if 0 //mtoc++: 'get.Date'
function v = Date() {
            v = datestr(now, " yyyy-mm-dd ");
        }

#endif

    
    public: /* ( Static ) */ /* ( Dependent ) */


        static function Develinst = Instance() {
            inst = Devel;
        }
        static function  setup() {
            d = Devel.Instance;
            fprintf(" Running KerMor developer setup...\n ");
            str = sprintf(" Please enter your full name:  ");
            d.Author= input(str," s ");
            str = sprintf(" Please enter your author "" s short tag:  ");
            d.AuthorShort= input(str," s ");
            fprintf(" Finished!\n ");
        }
        static function  newClass(name,varargin) {
            if ~isa(name," char ")
                error(" The class name must be a string ");
            end
            Devel.process(name, " template_class ", varargin[:]);
        }
        static function  newFun(name,varargin) {

            if ~isa(name," char ")
                error(" The class name must be a string ");
            end

            Devel.process(name, " template_fun ", varargin[:]);
        }
    private: /* ( Static ) */ /* ( Dependent ) */

        static function  process(name,template_file,dir) {
            if nargin < 3
                dir = pwd;
            end
            fname = fullfile(dir,[name " .m "]);
            if exist(fname," file ")
                error(" File %s already exists. ",fname);
            end

            /*  Open template */
            fh = fopen(template_file);
            str = fscanf(fh," %c ");
            fclose(fh);

            /*  Replace occurences
             *str = strrep(str,'%','%%') */
            d = Devel.Instance;
            str = strrep(str," $name ",name);
            str = strrep(str," $date ",d.Date);
            str = strrep(str," $authorshort ",d.AuthorShort);
            str = strrep(str," $author ",d.Author);
            str = strrep(str," $mainver ",KerMor.MainVersion);
            str = strrep(str," $subver ",KerMor.SubVersion);

            /*  Write to file */
            fh = fopen(fname, " w+ ");
            fprintf(fh, " %c ", str);
            fclose(fh);

            /*  Open for editing */
            edit(fname);
        }

    
};