sglib_settings.m

function settings=sglib_settings( action )

% before running the setup should have been performed at least partly
sglib_check_setup;

% set default for action
if nargin==0 || isempty(action)
    action='dialog';
end

% init currently known settings
% maybe, but only maybe, we should have some registering mechanism
m_solver_showmessage = {'never', 'always', 'error', 'nooutputarg'};
m_shading_types = {'none', 'faceted', 'interp'};
m_userwaitmodes = {'keyboard','mouse','continue'};
m_munit_output = {'long','medium','compact'};

setters={};
setters{end+1}={'list', 'userwaitmode', setuserwaitmode('getmode'), m_userwaitmodes  };
setters{end+1}={'bool', 'show_greeting', true };
setters{end+1}={'bool', 'munit_jump_debugger', true };
setters{end+1}={'list', 'munit_output', 'compact', m_munit_output };

setters{end+1}={'text', 'medit_author', '<author>' };
setters{end+1}={'text', 'medit_institution', '<institution>' };
setters{end+1}={'bool', 'medit_options_and_notes', false };

if exist( 'we_dont_need_that_stuff_yet', 'var' )
    setters{end+1}={'list', 'shading', 'faceted', m_shading_types };
    setters{end+1}={'list', 'solver_show_message', 'error', m_solver_showmessage };
end

% do action
switch action
    case 'load'
        settings_file=sglib_get_appdata('settings_file');
        try
            settings=read( settings_file );
        catch %#ok<CTCH>
            settings=struct();
        end
        % for loop setting all defaults on non existent fields
        for i=1:length(setters)
            setter=setters{i};
            if ~isfield( settings, setter{2} )
                settings.(setter{2})=setter{3};
            end
        end
        do_set( settings, setters, false )
    case 'dialog'
        settings=sglib_get_appdata('settings', struct() );
        settings=settings_dialog( setters, settings, 'title', 'SGLib settings', 'set_callback', @do_set );
    case 'save'
        settings_file=sglib_get_appdata('settings_file');
        settings=sglib_get_appdata('settings', struct() );
        write( settings_file, settings );
end

% set output var if requested
if nargout==0
    clear settings;
end
%



function do_set( settings, setters, write_to_file )
if nargin<3
    write_to_file = true;
end
setuserwaitmode( settings.userwaitmode );
munit_set_debug( settings.munit_jump_debugger );

S.type='()';
S.subs={2};
ind=find( strcmp( 'munit_output', cellfun( @(x)(subsref(x,S)), setters) ), 1, 'first' );
oind=find( strcmp( settings.munit_output, setters{ind}{4} ), 1, 'first' )-1;
munit_options( 'set', 'compact', oind );

if write_to_file
    settings_file=sglib_get_appdata( 'settings_file' );
    write( settings_file, settings );
end
sglib_set_appdata( settings, 'settings' );



function write( filename, settings )
%save( filename, '-struct', 'settings', '-mat' );
write_struct_ascii( filename, settings );

function settings=read( filename )
%settings=load( filename, '-mat' );
settings=read_struct_ascii( filename );


function write_struct_ascii( filename, s )
fid=fopen( filename, 'w' );
fields=fieldnames(s);
for i=1:length(fields)
    name=fields{i};
    value=s.(name);
    switch class(value)
        case {'logical', 'double' }
            stringval=mat2str(value);
        case 'char'
            % mat2str works correctly for matlab version >= 7.4 but not
            % below (and I don't want to rely on that)
            stringval=strescape(value);
        otherwise
            error('Unsupported datatype %s for write_struct_ascii', class(value) );
    end
    fprintf( fid, '%s:%s\n', name, stringval );
end
fclose(fid);

function stringval=strescape(value)
bracket=false;
stringval='';
for i=1:size(value,1)
    if i>1
        stringval=[stringval ''';''']; %#ok<AGROW>
        bracket=true;
    end
    for j=1:size(value,2)
        c=value(i,j);
        if (c>=32 && c<=126) || (c>=161 && c<=255) 
            stringval=[stringval c]; %#ok<AGROW>
        else
            stringval=[stringval sprintf(''' char(%d) ''',c)]; %#ok<AGROW>
            bracket=true;
        end
    end
end

stringval=['''' stringval ''''];
if bracket
    stringval=['[' stringval ']'];
end

function s=read_struct_ascii( filename )
fid=fopen( filename, 'r' );
n=0;
s=struct();
while true
    n=n+1;
    str = fgetl(fid);
    if isnumeric(str); break; end
    str=strtrim(str);
    if isempty(str) || str(1)=='#'; continue; end
    x=strfind(str,':');
    if isempty(x); 
        warning( 'read_struct_ascii:format', 'Bad formatting in line %d of %s: %s', n, filename, str );
    else
        x=x(1);
    end
    name=str(1:x-1);
    value=eval(str(x+1:end));
    s.(name)=value;
end
fclose(fid);