function varargout = sptexport(varargin)
%SPTEXPORT  Export Dialog box for SPTool.

%   Copyright 1988-2004 The MathWorks, Inc.
% $Revision: 1.12.4.2 $

if nargin == 0 | ~isstr(varargin{1})
    action = 'init';
else
    action = varargin{1};
end

switch action
%-----------------------------------------------------------------------------
% [prefs,componentSelect,fname,wd] = ...
%    sptexport(prefs,components,session,{selectionInd},wd,componentSelect,fname)
% Inputs:
%   prefs           - preferences as stored in SPTool
%   selectionInd    - is a cell array with one element for each column in the SPTool.
%                     Each element of the cell array contains an index vector which 
%                     indicates which items in that column are currently selected.
%   componentSelect - optional, default to 1 
%   fname           - optional, default to 1; fname is a string or 0
%   wd              - working directory; directory string for exporting files
%
% Outputs:
%   prefs           - preferences structure containing new choices user has made.
%   componentSelect - integer;  1==>All components
%                               2-N ==>export component componentSelect-1
%                     this is the value of the popup menu for masking certain types
%                     of objects
%   fname           - string; name of the file to which the objects are exported
%   wd              - working directory; updated directory string for exporting files
%
case 'init'
    prefs = varargin{1};
    components = varargin{2};
    session = varargin{3};
    selectionInd = varargin{4};
    wd = varargin{5};
    if nargin > 5
        componentSelect = varargin{6};
    else
        componentSelect = 1;
    end
    if nargin > 6
        fname = varargin{7};
    else
        fname = 0;
    end
    figname = 'Export from SPTool';
    cancelstring = 'Cancel';
    fus = 5;     % frame / uicontrol spacing
    ffs = 8; 
    uh  = 20;    % uicontrol height
    bw  = 180;   % button width
    lfs = 5;     %label / frame spacing
    lbs = 3;     % label / box spacing
    lh  = 16;    % label height
    listh = 300; % listbox height
    pw  = 120;   % popup width
    
    fp = get(0,'defaultfigureposition');
    w  = 3*ffs+2*fus+2*bw;
    h  = 2*fus+listh+uh+lh/2+ffs+ffs;
    fp = [fp(1) fp(2)+fp(4)-h w h];  % keep upper left corner fixed

    fig_props = { ...
       'name'                   figname ...
       'units'                  'pixels' ...
       'resize'                 'off' ...
       'numbertitle'            'off' ...
       'menubar'                'none' ...
       'windowStyle'            'modal' ...
       'createfcn'              ''    ...
       'position'               fp   ...
       'closerequestfcn'        'sbswitch(''sptexport'',''cancel'')' ...
       'dockcontrols',          'off',...
       'color'                  get(0,'defaultuicontrolbackgroundcolor') ...
        };

    fig = figure(fig_props{:});
    
    exportFramePos = [ffs ffs 2*fus+bw 2*fus+lh/2+uh+listh];
    ud.exportFrame = uicontrol('units','pixels',...
              'style','frame','position',exportFramePos);
    ud.exportLabel = framelab(ud.exportFrame, xlate('Export List'),lfs,lh);

    % Tweak position of label & popup: [horz_pos ver_pos width height]
    switch computer
    case 'MAC2'
       slTweak   = [0 0 0 0];
       spupTweak = [0 0 0 0];
    case 'PCWIN'
       slTweak   = [0 -2 0 0];
       spupTweak = [0  2 0 0];
    otherwise  % UNIX
       slTweak   = [0 -3 0 0];
       spupTweak = [0  0 0 0];    
    end

    ud.showLabel = uicontrol('style','text',...
                    'units','pixels',...
                    'string','Show:',...
                    'horizontalalignment','right',...
                    'position',[exportFramePos(1)+fus ...
                        exportFramePos(2)+fus...
                        exportFramePos(3)-2*fus-pw-lbs uh]+slTweak );
    
    ud.showPopup = uicontrol('style','popupmenu',...
                    'backgroundcolor','white',...
                    'units','pixels',...
                    'string',{'All' components.name},...
                    'value',componentSelect,...
                    'position',[exportFramePos(1)+exportFramePos(3)-fus-pw ...
                        exportFramePos(2)+fus pw uh]+spupTweak,...
                    'callback','sbswitch(''sptexport'',''popup'')');
        
    [fontname,fontsize] = fixedfont;
    ud.exportList = uicontrol('style','listbox','backgroundcolor','w',...
                        'units','pixels',...
                        'position',exportFramePos+[fus 2*fus+uh ...
                                 -2*fus  -(2*fus+uh+lh/2)],...
                        'fontname',fontname,...
                        'fontsize',fontsize,...
                        'max',2,...
                        'callback','sbswitch(''sptexport'',''list'')');
          
    button1Pos = [2*ffs+2*fus+bw fp(4)-ffs-uh bw uh];
    nui=1;
    
    % Set uicontrol visible iif the Control Toolbox is installed
    visFlag='off';
    allPanels = {prefs.panelName};
    exportInd = findcstr(allPanels,'export');
    if ~isempty(exportInd),
        tfObjFlag = prefs(exportInd).currentValue{1};
    else
        tfObjFlag = 0;
    end
    
    if is_ctrltbx_avail,
        visFlag = 'on';
        nui=nui+2;     % Leave some space
    end    
    ud.tfButton = uicontrol('style','Checkbox',...
        'units','pixels',...
        'visible',visFlag,...
        'value',tfObjFlag,...
        'string',['Export filters as TF objects'],...
        'position',button1Pos-1*[0 uh+fus 0 0],...
        'callback','sbswitch(''sptexport'',''tfObjButton_cb'')');
       
    ud.diskButton = uicontrol('style','pushbutton',...
      'string','Export to disk...',...
      'units','pixels',...
      'position',button1Pos-nui*[0 uh+fus 0 0],...
      'callback','sbswitch(''sptexport'',''disk'')');
    nui=nui+1;
          
    ud.workspaceButton = uicontrol('style','pushbutton',...
      'units','pixels',...
      'string','Export to workspace',...
      'position',button1Pos-nui*[0 uh+fus 0 0],...
      'callback','sbswitch(''sptexport'',''workspace'')');
    nui=nui+1;
  
    ud.spacer = uicontrol('style','frame',...
      'units','pixels',...
      'position',button1Pos-nui*[0 uh+fus 0 0]+[0 uh/2-1 0 -uh+2]);
    nui=nui+1;
  
    ud.cancelButton = uicontrol('style','pushbutton',...
      'units','pixels',...
      'string',cancelstring,...
      'position',button1Pos-nui*[0 uh+fus 0 0],...
      'callback','sbswitch(''sptexport'',''cancel'')');
    nui=nui+1;
  
    ud.helpButton = uicontrol('style','pushbutton',...
      'units','pixels',...
      'string','Help',...
      'position',button1Pos-nui*[0 uh+fus 0 0],...
      'callback','sbswitch(''sptexport'',''help'')');
    nui=nui+1;
  
    ud.flag = '';
    ud.session = session;
    ud.components = components;
    ud.selectionInd = selectionInd;
    for i = 1:length(ud.selectionInd)
        if isempty(ud.session{i})
            ud.selectionInd{i} = [];
        end
    end
    
    set(fig,'userdata',ud)
    
    sptexport('popup')  % sets listbox string and value
    
    done = 0;
    while ~done
        waitfor(fig,'userdata')

        ud = get(fig,'userdata');
        
        switch ud.flag
        case 'help'
        case 'disk'
            if isequal(fname,0) | isempty(fname)
                fname = 'export.mat';
            end
            matlab_wd = pwd;
            cd(wd)
            [fname,p]=uiputfile(fname,'Export to Disk');
            cd(matlab_wd)
            if ~isequal(fname,0)
                sessionIndex = get(ud.exportList,'userdata');
                ind = get(ud.exportList,'value');
                i = sessionIndex(ind(1),1);
                j = sessionIndex(ind(1),2);
                fname = fullfile(p,fname);
                
                component = ud.session{i}(j);                
                % Check if Control Toolbox exists and if the "Export as TF Object" check box is selected.
                % Also make sure that it's a filter, then set the flag to create an LTI TF Object.
                if is_ctrltbx_avail & get(ud.tfButton,'Value')==1 & ...
                        strcmp(component.SPTIdentifier.type,'Filter');                
                    component = createLTIobj(ud.session{i}(j).label,component);                    
                end
                assigninMat(fname,ud.session{i}(j).label,component);
                
                for k = 2:length(ind)
                    i = sessionIndex(ind(k),1);
                    j = sessionIndex(ind(k),2);                    
                    
                    component = ud.session{i}(j);
                    % Check if Control Toolbox exists and if the "Export as TF Object" check box is selected.
                    % Also make sure that it's a filter, then set the flag to create an LTI TF Object.
                    if is_ctrltbx_avail & get(ud.tfButton,'Value')==1 & ...
                            strcmp(component.SPTIdentifier.type,'Filter'),
                        component = createLTIobj(ud.session{i}(j).label,component);
                    end
                    assigninMat(fname,ud.session{i}(j).label,component,'-append');
                end
                wd = p;
                done = 1;
            end
            
               
        case 'workspace'           
            w = evalin('base','whos');
            wname = {w.name};
            sessionIndex = get(ud.exportList,'userdata');
            ind = get(ud.exportList,'value');
            
            overwrite = 0;
            for k=1:length(ind)
                i = sessionIndex(ind(k),1);
                j = sessionIndex(ind(k),2);
                if findcstr(wname,ud.session{i}(j).label)
                    overwrite = 1;
                    break
                end
            end
            if overwrite
                switch questdlg(...
                         {'At least one of the items you are exporting to'
                          'the workspace already exists in the workspace ' 
                          'as a variable.'
                          'By exporting you are replacing any existing'
                          'variables that have conflicting names.'
                          ' '
                          'Are you sure you want to export?'},...
                          'Variable Name Conflict','Yes','No','No')
                case 'Yes'
                   overwriteOK = 1;
                case 'No'
                   overwriteOK = 0;
                end
            else
                overwriteOK = 1;
            end
            
            if overwriteOK 
                for k = 1:length(ind)
                    i = sessionIndex(ind(k),1);
                    j = sessionIndex(ind(k),2);
                    
                    component = ud.session{i}(j);                    
                    % Check if Control Toolbox exists and if the "Export as TF Object" check box is selected.
                    % Also make sure that it's a filter, then set the flag to create an LTI TF Object.
                    if is_ctrltbx_avail & get(ud.tfButton,'Value')==1 & ...
                            strcmp(component.SPTIdentifier.type,'Filter'),
                        component = createLTIobj(ud.session{i}(j).label,component);
                    end
                    assignin('base',ud.session{i}(j).label,component);
                end
                done = 1;
            end
            
        case 'cancel'
            %   do nothing and return
            done = 1;
        end

        if ~done
            ud.flag = [];
            set(fig,'userdata',ud)
        end
    end
    
    varargout{1} = prefs;
    varargout{2} = get(ud.showPopup,'value');
    varargout{3} = fname;
    varargout{4} = wd;
    
    delete(fig)
    
%------------------------------------------------------------------------
% sptexport('popup')
case 'popup'
    fig = gcf;
    ud = get(fig,'userdata');
    
    val = get(ud.showPopup,'value');
    
    if val>1
        session = ud.session(val-1);
        components = ud.components(val-1);
        selectionInd = ud.selectionInd(val-1);
    else
        session = ud.session;
        components = ud.components;
        selectionInd = ud.selectionInd;
    end
    
    listStr = {};
    sessionIndex = [];
    for i=1:length(session)
        for j=1:length(session{i})
            str = [components(i).structName ': ' session{i}(j).label ' [' ...
                   session{i}(j).type ']'];
            listStr = {listStr{:} str};
            if val>1
                sessionIndex = [sessionIndex; val-1 j];
            else
                sessionIndex = [sessionIndex; i j];
            end
        end
    end

    if val == 1
        listVal = selectionInd{1}(:);
        cumulativeTotal = 0;
        for i=2:length(selectionInd)
            cumulativeTotal = cumulativeTotal + length(ud.session{i-1});
            listVal = [listVal(:); selectionInd{i}(:)+cumulativeTotal];
        end
    else
        listVal = selectionInd{1};
    end
    set(ud.exportList,'string',listStr,'value',listVal,'userdata',sessionIndex);
    sptexport('list')
    
case 'list'
% callback of listbox
    fig = gcf;
    ud = get(fig,'userdata');
    val = get(ud.exportList,'value');
    if isempty(val)
        set([ud.diskButton ud.workspaceButton],'enable','off')
    else
        set([ud.diskButton ud.workspaceButton],'enable','on')
    end
    
case 'help'
    % Callback code for pushbutton with Tag "Help"
    fig = gcf;
    uiList = findobj(fig,'type','uicontrol');
    saveVis = get(uiList,'visible');
    if strcmp(computer,'PCWIN')
        set(uiList,'visible','off')
    end
    ud = get(fig,'userdata');
    fp = get(fig,'position');
    sz = sptsizes;
    f = uicontrol('style','frame',...
           'position',[sz.fus sz.fus fp(3)-2*sz.fus fp(4)-sz.fus-1],...
           'tag','exporthelp');
    tp = [2*sz.fus 4*sz.fus+sz.uh fp(3)-4*sz.fus fp(4)-(6*sz.fus+sz.uh)];
       % text position
    [fontname,fontsize]=fixedfont;
    t = uicontrol('style','listbox','position',tp,'string',exportHelpStr,'max',2,...
         'tag','exporthelp','horizontalalignment','left',...
         'backgroundcolor','w','fontname',fontname,'fontsize',fontsize);
    bp = [fp(3)/2-sz.fus-sz.bw/2 2*sz.fus sz.bw sz.uh];  % button position
    b = uicontrol('style','pushbutton','position',bp,...
         'tag','exporthelp','string','OK',...
         'callback','delete(findobj(gcf,''tag'',''exporthelp''))');
    waitfor(b)
    if all(ishandle(uiList))
        if strcmp(computer,'PCWIN')
            set(uiList,{'visible'},saveVis)
        end
    end
    
case 'tfObjButton_cb'
    % Callback code for the "Export as TF Object" checkbox
    fig = findobj(0,'Tag','sptool');
    ud = get(fig,'userdata');
    allPanels = {ud.prefs.panelName};
    exportInd = findcstr(allPanels,'export');
    if ~isempty(exportInd),    
        ud.prefs(exportInd).currentValue{1} = get(gcbo,'Value');
        set(fig,'userdata',ud);
    end
    
otherwise
    fig = gcf;
    ud = get(fig,'userdata');
    ud.flag = action;
    set(fig,'userdata',ud)

    delete(findobj(fig,'tag','exporthelp'))

end


function assigninMat(varargin)
% assigninMat - assign variable names in Mat file
% assigninMat(fname,varname,var) overwrites fname with the variable named
%   varname with value var
% assigninMat(fname,varname,var,'-append') appends var to MAT file fname

eval([varargin{2} '= varargin{3};'])
if nargin<=3
    save(varargin{1},varargin{2})
else
    save(varargin{1},varargin{2},'-append')
end

function s = exportHelpStr
% return cell array of strings which describes the export dialog

s = {
'EXPORTING DATA FROM SPTOOL'
' '
'EXPORT LIST   This is a list of objects in the'
'SPTool. Click on an unselected object to select'
'that object alone.  To add or remove a single '
'object to or from the selection, Control click'
'(Command click on the Mac) on that object.  To'
'add or remove a range of objects to the selection,'
'Shift click.'
' '
'EXPORT BUTTONS (TO DISK and TO WORKSPACE)'
'By clicking one of these buttons you will export the'
'selected objects.  Each selected object will be'
'saved as a 1-by-1 structure variable.  You can '
'use and modify the fields of these structures, but'
'be careful since the SPTool and its clients might'
'not be able to recognize an object once you''ve'
'modified it.'
'   TO DISK - asks you for a file name and saves'
'    the variables in a MAT-file.'
'   TO WORKSPACE - saves the variables in the '
'    base MATLAB workspace.'
' '
'SHOW POPUP MENU  Select the type of objects you would'
'like to choose from in this menu.  Only objects of'
'the selected type will appear in the ''Export'
'List''. '
};

function ctrltbxAvail = is_ctrltbx_avail
% IS_CTRLTBX_AVAIL Determines if the Control Toolbox is available
%                  in SPTool's Export facility.
%
% Input:
%    none
% Output:
%    ctrltbxAvail - status indicating whether or not the Control Toolbox
%                   is available.
%     0 = don't render "Export as TF Object" uicontrol
%     1 = available, render the "Export as TF Object" uicontrol

% Determine if Control Toolbox is available by finding the TF method.
ctrltbxAvail = ~isempty(which('tf/tf'));
return

function SYS = createLTIobj(label,filt)
% CREATELTIOBJ Returns the filter transfer function coefficients and sampling frequency
%              as an LTI TF Object (to be used by the Controls toolbox)

SYS = tf(filt.tf.num,filt.tf.den,'variable','z^-1','Ts',1/filt.Fs);
%SYS = SS(A,B,C,D,Ts); 
%SYS = ZPK(Z,P,K,Ts);
return