function outInfo=edatinfo
%DATINFO Helper function for keeping list data
%        for the Eval software

%    Yama Habibzai
%    Copyright (c) 1984-98 by The MathWorks, Inc. All Rights Reserved
%    $Revision: 1.17 $  $Date: 1998/08/19 19:33:53 $ 

% Flag to show if a Toolbox is installed. Initially, assume none are installed

% Data Analysis and Visualization
financial = 0;
image = 0;
nag = 0;
mapping=0;
nnet =0;
optim =0;
pde = 0;
splines =0;
signal=0;
stats =0;
sysid = 0;
wavelets =0;

mathdemos = matinfo;

param = get(gcf, 'userdata');
toolboxes = param.toolboxes;

siz = size(mathdemos);

n = 1;

% *******************
tbxList(n).DemoList = {' '
' '
'   Select a subcategory from'
'   the left for MATLAB demos'};

tbxList(n).Name = 'MATLAB';
tbxList(n).FcnList = ' ';
List(n).Help = ' ';
% *******************

n = n+1;
for i = 1:siz(1,2)
  if strcmp(mathdemos(i).Name, 'Numerics')
    tbxList(n).Help = mathdemos(i).Help;
    tbxList(n).DemoList = mathdemos(i).DemoList;
    tbxList(n).FcnList = mathdemos(i).FcnList;
    tbxList(n).Name = ['   ','Data Analysis'];
    n = n+1;
  end
end

for i = 1:siz(1,2)
  if strcmp(mathdemos(i).Name,  'Visualization')
    tbxList(n).Name = ['   ',mathdemos(i).Name];
    tbxList(n).Help = mathdemos(i).Help;
    tbxList(n).DemoList = mathdemos(i).DemoList;
    tbxList(n).FcnList = mathdemos(i).FcnList;
  end
end

% *******************
%   Blank space
n  = n+1;
tbxList(n).DemoList = ' ';
tbxList(n).Name = ' ';
tbxList(n).FcnList = ' ';
List(n).Help = ' ';
% *******************

%%%%%%% START OF TOOLBOX LIST %%%%%
n = n+1;
tbxList(n).DemoList = {' '
' '
'  The products on the left are'
'  installed on your system and'
'  have demos available.'};

tbxList(n).Name = 'Products installed with demos:';
tbxList(n).FcnList = ' ';
tbxList(n).Help = ' ';

%%%%%%% INSTALLED TOOLBOXES %%%%%%%%

for i = 1:size(toolboxes, 2);
  if  strcmp(toolboxes(i).Name, 'Financial')
    n = n+1;
    financial = 1;
    tbxList(n).Name = ['   ', toolboxes(i).Name];
    tbxList(n).Help = toolboxes(i).Help;
    tbxList(n).DemoList = toolboxes(i).DemoList;
    tbxList(n).FcnList = toolboxes(i).FcnList;
    tbxList(n).DemoList{size(toolboxes(i).DemoList, 2)+1} = 'More on the Financial Toolbox';
    tbxList(n).DemoList{size(toolboxes(i).DemoList, 2)+1} = 'Help on this Toolbox';
    tbxList(n).FcnList{size(toolboxes(i).FcnList, 2)+1} = 'evalcb(''toolInfo'')';
    tbxList(n).FcnList{size(toolboxes(i).FcnList, 2)+1} = 'helpwin(help(''finance''))';
  end 
end
%--------------
for i = 1:size(toolboxes, 2);
  if  strcmp(toolboxes(i).Name, 'Image Processing')
    n = n+1;
    image = 1;
    tbxList(n).Name = ['   ', toolboxes(i).Name];
    tbxList(n).Help = toolboxes(i).Help;
    tbxList(n).DemoList = toolboxes(i).DemoList;
    tbxList(n).FcnList = toolboxes(i).FcnList;
    tbxList(n).DemoList{size(toolboxes(i).DemoList, 2)+1} = 'More on Image Processing Toolbox';
    tbxList(n).DemoList{size(toolboxes(i).DemoList, 2)+1} = 'Help on this Toolbox';
    tbxList(n).FcnList{size(toolboxes(i).FcnList, 2)+1} = 'evalcb(''toolInfo'')';
    tbxList(n).FcnList{size(toolboxes(i).FcnList, 2)+1} = 'helpwin(help(''images''))';
 end
end

%--------------
for i = 1:size(toolboxes, 2);
  if  strcmp(toolboxes(i).Name, 'Mapping')
    n = n+1;
    mapping = 1;
    tbxList(n).DemoList = toolboxes(i).DemoList;
    tbxList(n).DemoList{size(tbxList(n).DemoList, 2)+1} = 'More on Mapping Toolbox' ;
    tbxList(n).DemoList{size(tbxList(n).DemoList, 2)+1} = 'Help on this Toolbox';
    tbxList(n).FcnList = toolboxes(i).FcnList;
    tbxList(n).FcnList{size(tbxList(n).FcnList, 2)+1} = 'evalcb(''toolInfo'')';
    tbxList(n).FcnList{size(tbxList(n).FcnList, 2)+1} = 'helpwin(help(''map''))';
    tbxList(n).Help = toolboxes(i).Help;
    tbxList(n).Name =['   ', toolboxes(i).Name];
  end
end

%--------------
for i = 1:size(toolboxes, 2);
  if  strcmp(toolboxes(i).Name, 'NAG')
    n = n+1;
    nag =1;
    tbxList(n).Name =['   ', toolboxes(i).Name];
    tbxList(n).Help = toolboxes(i).Help;
    tbxList(n).DemoList = toolboxes(i).DemoList;
    tbxList(n).FcnList = toolboxes(i).FcnList;
    tbxList(n).DemoList{size(toolboxes(i).DemoList, 2)+1} = 'More on NAG Toolbox';
    tbxList(n).FcnList{size(toolboxes(i).FcnList, 2)+1} = 'evalcb(''toolInfo'')';
  end
end
%--------------
for i = 1:size(toolboxes, 2);
  if  strcmp(toolboxes(i).Name, 'Neural Networks')
    n = n+1;
    nnet = 1;
    tbxList(n).Name =['   ', toolboxes(i).Name];
    tbxList(n).Help = toolboxes(i).Help;
    tbxList(n).DemoList = toolboxes(i).DemoList;
    tbxList(n).FcnList = toolboxes(i).FcnList;
    tbxList(n).DemoList{size(toolboxes(i).DemoList, 2)+1} = 'More on Neural Network Toolbox';
    tbxList(n).DemoList{size(toolboxes(i).DemoList, 2)+1} = 'Help on this Toolbox';
    tbxList(n).FcnList{size(toolboxes(i).FcnList, 2)+1} = 'evalcb(''toolInfo'')';
     tbxList(n).FcnList{size(toolboxes(i).FcnList, 2)+1} = 'helpwin(help(''nnet''))'; 
  end
end
%--------------
for i = 1:size(toolboxes, 2);
  if  strcmp(toolboxes(i).Name, 'Optimization')
   n = n+1;
   optim = 1;
   tbxList(n).Name =['   ', toolboxes(i).Name];
   tbxList(n).Help = toolboxes(i).Help;
   tbxList(n).DemoList = toolboxes(i).DemoList;
   tbxList(n).FcnList = toolboxes(i).FcnList;
   tbxList(n).DemoList{size(toolboxes(i).DemoList, 2)+1} = 'More on Optimization Toolbox';
   tbxList(n).DemoList{size(toolboxes(i).DemoList, 2)+1} = 'Help on this Toolbox';
   tbxList(n).FcnList{size(toolboxes(i).FcnList, 2)+1} = 'evalcb(''toolInfo'')';
   tbxList(n).FcnList{size(toolboxes(i).FcnList, 2)+1} = 'helpwin(help(''optim''))';
  end
end
%--------------
for i = 1:size(toolboxes, 2);
  if  strcmp(toolboxes(i).Name, 'Partial Differential Equation')
    n = n+1;
    pde =1;
    tbxList(n).Name = ['   ',toolboxes(i).Name];
    tbxList(n).Help = toolboxes(i).Help;
    tbxList(n).DemoList = toolboxes(i).DemoList;
    tbxList(n).FcnList = toolboxes(i).FcnList;
    tbxList(n).DemoList{size(toolboxes(i).DemoList, 2)+1} = 'More on PDE Toolbox';
    tbxList(n).DemoList{size(toolboxes(i).DemoList, 2)+1} = 'Help on this Toolbox';
    tbxList(n).FcnList{size(toolboxes(i).FcnList, 2)+1} = 'evalcb(''toolInfo'')';
    tbxList(n).FcnList{size(toolboxes(i).FcnList, 2)+1} = 'helpwin(help(''pde''))';
  end
end

%--------------
for i = 1:size(toolboxes, 2);
 if  strcmp(toolboxes(i).Name, 'Splines')
   n = n+1;
   splines = 1;
   tbxList(n).Name =['   ', toolboxes(i).Name];
   tbxList(n).Help = toolboxes(i).Help;
   tbxList(n).DemoList = toolboxes(i).DemoList;
   tbxList(n).FcnList = toolboxes(i).FcnList;
   tbxList(n).DemoList{size(toolboxes(i).DemoList, 2)+1} = 'More on Splines Toolbox';
   tbxList(n).DemoList{size(toolboxes(i).DemoList, 2)+1} = 'Help on this Toolbox';
   tbxList(n).FcnList{size(toolboxes(i).FcnList, 2)+1} = 'evalcb(''toolInfo'')';
   tbxList(n).FcnList{size(toolboxes(i).FcnList, 2)+1} = 'helpwin(help(''splines''))';
 end
end

%--------------
for i = 1:size(toolboxes, 2);
  if  strcmp(toolboxes(i).Name, 'Signal Processing')
    n = n + 1;
    signal = 1;
    tbxList(n).DemoList = toolboxes(i).DemoList;
    tbxList(n).DemoList{size(tbxList(n).DemoList, 2)+1} = 'More on the Signal Processing Toolbox';
    tbxList(n).DemoList{size(tbxList(n).DemoList, 2)+1} = 'Help on this Toolbox';
    tbxList(n).FcnList = toolboxes(i).FcnList;
    tbxList(n).FcnList{size(tbxList(n).FcnList, 2)+1} = 'evalcb(''toolInfo'')';
    tbxList(n).FcnList{size(tbxList(n).FcnList, 2)+1} = 'helpwin(help(''signal''))';
    tbxList(n).Help = toolboxes(i).Help;
    tbxList(n).Name = ['   ',toolboxes(i).Name];
  end
end
%---------------
for i = 1:size(toolboxes, 2);
  if  strcmp(toolboxes(i).Name, 'Statistics')
    n = n+1;
    stats = 1;
    tbxList(n).Name =['   ', toolboxes(i).Name];
    tbxList(n).Help = toolboxes(i).Help;
    tbxList(n).DemoList = toolboxes(i).DemoList;
    tbxList(n).FcnList = toolboxes(i).FcnList;
    tbxList(n).DemoList{size(toolboxes(i).DemoList, 2)+1} = 'More on Statistics Toolbox';
    tbxList(n).DemoList{size(toolboxes(i).DemoList, 2)+1} = 'Help on this Toolbox';
    tbxList(n).FcnList{size(toolboxes(i).FcnList, 2)+1} = 'evalcb(''toolInfo'')';
    tbxList(n).FcnList{size(toolboxes(i).FcnList, 2)+1} = 'helpwin(help(''stats''))';
  end
end

%--------------
for i = 1:size(toolboxes, 2);
  if  strcmp(toolboxes(i).Name, 'System Identification')
    n = n+1;
    sysid = 1;
    tbxList(n).Name = ['   ', toolboxes(i).Name];
    tbxList(n).Help = toolboxes(i).Help;
    tbxList(n).DemoList = toolboxes(i).DemoList;
    tbxList(n).FcnList = toolboxes(i).FcnList;
    tbxList(n).DemoList{size(toolboxes(i).DemoList, 2)+1} = 'More on System Identification';
    tbxList(n).DemoList{size(toolboxes(i).DemoList, 2)+1} = 'Help on this Toolbox';
    tbxList(n).FcnList{size(toolboxes(i).FcnList, 2)+1} = 'evalcb(''toolInfo'')';
    tbxList(n).FcnList{size(toolboxes(i).FcnList, 2)+1} = 'helpwin(help(''ident''))';
  end
end

%--------------
for i = 1:size(toolboxes, 2);
  if  strcmp(toolboxes(i).Name, 'Wavelet')
    n = n+1;
    wavelets =1;
    tbxList(n).Name =['   ', toolboxes(i).Name];
    tbxList(n).Help = toolboxes(i).Help;
    tbxList(n).DemoList = toolboxes(i).DemoList;
    tbxList(n).FcnList = toolboxes(i).FcnList;
    tbxList(n).DemoList{size(toolboxes(i).DemoList, 2)+1} = 'More on Waveletes Toolbox';
    tbxList(n).DemoList{size(toolboxes(i).DemoList, 2)+1} = 'Help on this Toolbox';
    tbxList(n).FcnList{size(toolboxes(i).FcnList, 2)+1} = 'evalcb(''toolInfo'')';
    tbxList(n).FcnList{size(toolboxes(i).FcnList, 2)+1} = 'helpwin(help(''wavelet''))';
  end
end

% *******************
%   Blank space
n  = n+1;
tbxList(n).DemoList = ' ';
tbxList(n).Name = ' ';
tbxList(n).FcnList = ' ';
List(n).Help = ' ';
% *******************

%%%%%%%% TOOLBOXES NOT INSTALLED %%%%%%%%%%
n = n+1;
tbxList(n).DemoList = {' '
' '
'  The MATLAB Tour could not find'
'  demos for these products on your'
'  system.'
' '
'  However, information for these'
'  products is provided.'
'  '};

tbxList(n).Name = 'Information only:';
tbxList(n).FcnList = ' ';
tbxList(n).Help = ' ';

% *******************

if financial == 0
  n = n+1;
  tbxList(n).DemoList={'More on Financial Toolbox',
  'Partial functions help'};
  tbxList(n).FcnList={'evalcb(''toolInfo'')',
  'fin_con'};
  tbxList(n).Help=  about('financial');
  tbxList(n).Name=['   ','Financial Toolbox'];

end

if image== 0
  n = n+1;
  tbxList(n).DemoList={'More on The Image Processing Toolbo x',
  'Partial functions help'};
  tbxList(n).FcnList={'evalcb(''toolInfo'')',
  'img_con'};
  tbxList(n).Help= about('image');

  tbxList(n).Name=['   ','Image Processing'];

end

if mapping== 0
  n = n+1;
  tbxList(n).DemoList={'More on Mapping Toolbox'
  'Partial functions help'};
  tbxList(n).FcnList={'evalcb(''toolInfo'')'
  'map_con'};
  tbxList(n).Help= about('mapping');
  tbxList(n).Name=['   ','Mapping Toolbox'];
end

if nag == 0
  n = n+1;

  tbxList(n).DemoList={'More on The NAG Foundation',
  'Partial functions help'};
  tbxList(n).FcnList={'evalcb(''toolInfo'')',
  'nag_con'};
  tbxList(n).Help= about('nag');
  tbxList(n).Name= ['   ','NAG Foundation Toolbox'];

end

if nnet== 0
  n = n+1;
  tbxList(n).DemoList={'More on Neural Network Toolbox',
  'Partial functions help'};
  tbxList(n).FcnList={'evalcb(''toolInfo'')',
  'nnt_con'};
  tbxList(n).Help= about('nnet');

  tbxList(n).Name=['   ','Neural Networks'];

end


if optim== 0
  n = n+1;
  tbxList(n).DemoList={'More on the Optimization Toolbox',
  'Partial functions help'};
  tbxList(n).FcnList={'evalcb(''toolInfo'')',
  'opt_con'};
  tbxList(n).Help= about('optim');
  tbxList(n).Name=['   ','Optimization'];
end

if pde== 0
  n = n+1;
  tbxList(n).DemoList={'More on the PDE Toolbox',
  'Partial functions help'};
  tbxList(n).FcnList={'evalcb(''toolInfo'')',
  'pde_con'};
  tbxList(n).Help= about('pde');
  tbxList(n).Name=['   ','Partial Differential Equation Toolbox'];
end


if splines== 0
  n = n+1;
  tbxList(n).DemoList={'More on the Splines Toolbox',
  'Partial functions help'};
  tbxList(n).FcnList={'evalcb(''toolInfo'')',
  'spl_con'};
  tbxList(n).Help= about('spline');
  tbxList(n).Name=['   ','Splines'];
end

if signal== 0
  n = n+1;
  tbxList(n).DemoList={'More on the Signal Processing',
  'Partial functions help'};
  tbxList(n).FcnList={'evalcb(''toolInfo'')', 'sig_con'};
  tbxList(n).Help= about('signal');
  tbxList(n).Name=['   ','Signal Processing'];
end

if stats== 0
  n = n+1;
  tbxList(n).DemoList={'More on the Statistics Toolbox',
  'Partial functions help'};
  tbxList(n).FcnList={'evalcb(''toolInfo'')',
  'stat_con'};
  tbxList(n).Help= about('stats');
  tbxList(n).Name=['   ','Statistics'];
end

if sysid== 0
  n = n+1;
  tbxList(n).DemoList={'More on the System Identification Toolbox',
  'Partial functions help'};
  tbxList(n).FcnList={'evalcb(''toolInfo'')',
  'idn_con'};
  tbxList(n).Help= about('sysid');
  tbxList(n).Name=['   ','System Identification'];
end

if wavelets== 0
  n = n+1;
  tbxList(n).DemoList={'More on The Wavelet Toolbox'
  'Partial functions help'};
  tbxList(n).FcnList={'evalcb(''toolInfo'')',
  'wav_con'};
  tbxList(n).Help= about('wavelets');
  tbxList(n).Name=['   ','Wavelets Toolbox'];
end

outInfo = tbxList;


