function aout=install;
% INSTALL Install script for CSE_SQLDBLib.
% INSTALL creates the CSE_SQLDBLib folder and the needed
% entries in the startup.m file.
%
% This installation script was generated by using
% the MAKEINSTALL tool. For further information
% visit http://matlab.pucicu.de
% Copyright (c) 2001-2003 by AMRON
% Norbert Marwan, Potsdam University, Germany
% http://www.agnld.uni-potsdam.de
%
% THIS IS A GENERATED INSTALL-FILE, DO NOT EDIT!
% Generation date: 08-Oct-2003 12:56:42
% Last Revision of the template: 2003-06-20
% Version: 3.9.3
install_file='';installfile_info.date='';installfile_info.bytes=[];
time_stamp='';checksum='';checksum_file='';
errcode=0;
try
warning('off')
if exist('install.log')==2, delete('install.log'), end
%rehash
disp('-----------------------------')
disp(' INSTALLATION CSE_SQLDBLib');
disp('-----------------------------')
install_file=[mfilename,'.m'];
currentpath=pwd; time_stamp='time_stamp not yet obtained'; checksum='checksum not yet obtained';
%%%%%%% read the archive
%%%%%%% and look for checksum and date in archive
errcode=90;
disp(' Reading the archiv ')
fid=fopen(install_file,'r');
fseek(fid,0,'eof'); eofbyte=ftell(fid);
fseek(fid,16806,'bof');
while 1
temp=fgetl(fid);
startbyte=ftell(fid);
if length(temp)>1
if strcmpi(temp,'%<-- Header begins here -->')
errcode=90.1;
checksum=fgetl(fid);
temp1=fgetl(fid);
temp2=fgetl(fid);
end
if strcmpi(temp,'%<-- Header ends here -->')
startbyte=ftell(fid);
break
end
end
end
checksum(1:2)=[];
fseek(fid,startbyte,'bof');
errcode=90.2;
A=fread(fid,eofbyte,'char');
errcode=90.3;
checksum_file=dec2hex(sum((1:length(A))'.*A));
if ~strcmpi(checksum_file,checksum)
error(['The installation file is corrupt!',10,'Ensure that the archive container were ',...
'not modified',10,'(check FTP settings, anti-virus scanner for emails etc.)!'])
else
disp([' Checksum test passed (', checksum,')'])
end
fclose(fid);
disp([' CSE_SQLDBLib version ', temp2(3:end),''])
time_stamp=temp1(3:end); disp([' CSE_SQLDBLib time stamp ', time_stamp,'']);
errcode=91;
if isunix
error('CSE:Install', 'Sorry, this library can be used only on PC, as it uses dlls.');
toolboxpath='noUnixSupport';
else
toolboxpath='CSE_SQLDBLib';
end
%%%%%%% check for older versions
p=path; i1=0;
while [findstr([lower(toolboxpath),'demo'],lower(p)) findstr(lower(toolboxpath),lower(p)) findstr('',lower(p))]>i1;
errcode=92;
i1=[findstr([lower(toolboxpath),'demo'],lower(p)) findstr(lower(toolboxpath),lower(p)) findstr('',lower(p))];
if ~isempty(i1)
i1=i1(1);
if isunix, i2=findstr(':',p); else, i2=findstr(';',p); end
i3=i2(i2>i1); % last index pathname
if ~isempty(i3), i3=i3(1)-1; else, i3=length(p); end
i4=i2(i2<i1); % first index pathname
if ~isempty(i4), i4=i4(end)+1; else, i4=1; end
oldtoolboxpath=p(i4:i3);
disp([' Old CSE_SQLDBLib found in ', oldtoolboxpath,''])
i = input('> Delete old toolbox? Y/N [Y]: ','s');
if isempty(i), i = 'Y'; end
if strcmpi('Y',i)
%%%%%%% removing old entries in startup-file
errcode=94;
rmpath(oldtoolboxpath)
if i4>1, p(i4-1:i3)=''; else, p(i4:i3)=''; end
if exist('startup')
startupfile=which('startup');
startuppath=startupfile(1:findstr('startup.m',startupfile)-1);
if ~isunix
toolboxroot=fullfile(matlabroot,'toolbox');
else
toolboxroot=startuppath;
end
instpaths=textread(startupfile,'%[^\n]');
k=1;
while k<=length(instpaths)
if findstr(oldtoolboxpath,instpaths{k})
instpaths(k)=[];
end
k=k+1;
end
fid=fopen(startupfile,'w');
for i2=1:size(instpaths,1),
err=fprintf(fid,'%s\n', char(instpaths{i2}));
end
err=fclose(fid);
end
%%%%%%% removing old paths
errcode=93;
if exist(oldtoolboxpath)==7
disp([' Change to ',oldtoolboxpath,''])
cd(oldtoolboxpath)
dirnames='';filenames='';
temp='.:';
while ~isempty(temp)
[temp1 temp]=strtok(temp,':');
if ~isempty(temp1)
dirnames=[dirnames; {temp1}];
x2=dir(temp1);
for i=1:length(x2)
if ~x2(i).isdir, filenames=[filenames; {[temp1,'/', x2(i).name]}]; end
if x2(i).isdir & ~strcmp(x2(i).name,'.') & ~strcmp(x2(i).name,'..'), temp=[temp,temp1,filesep,x2(i).name,':']; end
end
end
end
dirnames=strrep(dirnames,['.',filesep],'');
for i=1:length(dirnames),l(i)=length(dirnames{i});;end
[i i4]=sort(l);
dirnames=dirnames(fliplr(i4));
for i=1:length(dirnames)
delete([dirnames{i}, filesep,'*']),
delete(dirnames{i}),
disp([' Removing files in ',char(dirnames{i}),''])
end
cd(currentpath)
delete(oldtoolboxpath)
disp([' Removing ',oldtoolboxpath,''])
end
%%%%%%%
end
end
end
clear p i i1 i2 i3 i4 temp* x2
%%%%%%% add entry into startpath in startup.m
i=findstr(toolboxpath,path);
if isempty(i)
errcode=95;
disp(' Adding Toolbox into the startup.m file')
if exist('startup')
startupfile=which('startup');
startuppath=startupfile(1:findstr('startup.m',startupfile)-1);
if ~isunix
toolboxroot=fullfile(matlabroot,'toolbox');
else
toolboxroot=startuppath;
end
instpaths=textread(startupfile,'%[^\n]');
else
if ~isunix
startupfile=fullfile(matlabroot,'toolbox','local','startup.m');
toolboxroot=fullfile(matlabroot,'toolbox');
instpaths={''};
else
cd ~
if exist('matlab')~=7, mkdir matlab, end
cd matlab
startuppath=[pwd,'/'];
startupfile=[startuppath,'startup.m'];
toolboxroot=startuppath;
instpaths={''};
end
end
TBfullpath=fullfile(toolboxroot,toolboxpath);
if ~exist(TBfullpath), err=mkdir(toolboxroot,toolboxpath); end
instpaths{end+1,1}={['addpath ',TBfullpath]};
fid=fopen(startupfile,'w');
for i2=1:size(instpaths,1), err=fprintf(fid,'%s\n', char(instpaths{i2}));end
err=fclose(fid);
else
errcode=96;
startupfile=which('startup');
startuppath=startupfile(1:findstr('startup.m',startupfile)-1);
if ~isunix
toolboxroot=fullfile(matlabroot,'toolbox');
else
toolboxroot=startuppath;
end
TBfullpath=fullfile(toolboxroot,toolboxpath);
if ~exist(TBfullpath), err=mkdir(toolboxroot,toolboxpath); end
end
%%%%%%% read the archive
errcode=97;
fprintf(' Importing the archiv ')
cd(currentpath)
max_sc=30;
scale=[sprintf('%3.0f',0),'% |',repmat(' ',1,max_sc),'|'];
fprintf('%s',scale)
b=''; c.file=''; c.data=''; bfile=''; folder=''; i2=0;
% read ASCII
errcode=97.1;
i1=findstr(char(A'),'%<-- ASCII begins here');
i2=findstr(char(A'),'%<-- ASCII ends here -->');
for k=1:length(i1),
wb=round(i1(k)*max_sc/eofbyte);
errcode=97.11;
scale=[sprintf('%3.0f',100*wb/max_sc),'% |',repmat('*',1,wb),repmat(' ',1,max_sc-wb),'|'];
fprintf([repmat('\b',1,max_sc+7),'%s'],scale)
B=A(i1(k):i2(k)-2);
i4=find(B==10);
i3=[0;i4(1:end-1)]+1;
filename=strrep(...
strrep(char(B(i3(1):i4(1)-1)'),'%<-- ASCII begins here: __',''),...
'__ -->','');
errcode=['97.1',reshape(dec2hex(double(filename))',1,length(filename)*2)];
i6=findstr(filename,'/');
if i6>0
folder=[folder; {filename(1:i6(end)-1)}];
end
c(k).file={filename};
c(k).data=strrep(char(B(i4(1)+3:end)'),[char(10),'%#'],char(10));;
end
% read binary
errcode=97.2;
i1=findstr(char(A'),'%<-- Binary begins here');
i2=findstr(char(A'),'%<-- Binary ends here -->');
for k=1:length(i1),
wb=round(i1(k)*max_sc/eofbyte);
errcode=97.21;
scale=[sprintf('%3.0f',100*wb/max_sc),'% |',repmat('*',1,wb),repmat(' ',1,max_sc-wb),'|'];
fprintf([repmat('\b',1,max_sc+7),'%s'],scale)
B=A(i1(k):i2(k));
i4=find(B==10);
i3=[0;i4(1:end-1)]+1;
i5=findstr(char(B(i3(1):i4(1))'),'__');
filename=char(B(i5(1)+2:i5(2)-1)');
errcode=['97.2',reshape(dec2hex(double(filename))',1,length(filename)*2)];
i6=findstr(filename,'/');
if i6>0
folder=[folder; {filename(1:i6(end)-1)}];
end
bfile=[bfile; {filename}];
nbytes=str2num(char(B(i5(3)+2:i5(4)-1)'));
temp=reshape(B(i4(1)+1:i4(1)+nbytes),2,nbytes/2);
b=[b;{temp(2,:)}];
end
wb=max_sc;
scale=[sprintf('%3.0f',100*wb/max_sc),'% |',repmat('*',1,wb),repmat(' ',1,max_sc-wb),'|'];
fprintf([repmat('\b',1,max_sc+7),'%s'],scale)
fprintf('\n')
clear temp* i i1 i2 i3 i4 i5 i6 A B
cd(TBfullpath)
disp([' Toolbox folder is ',TBfullpath,''])
%%%%%%% make sub-directories
errcode='97.3';
for i=1:length(folder);
i1=folder{i}; i2='.'; olddir=pwd;
if exist([TBfullpath, filesep, i1])~=7
while ~isempty(i2) & ~isempty(i1)
cd(i2)
[i2 i1]=strtok(i1,'/');
if exist([pwd, filesep, i2])~=7 & exist([pwd, filesep, i2])
warning(['Found ', i2, ' will be overwritten.'])
errcode=['97.4',reshape(dec2hex(double(i2))',1,length(i2)*2)];
delete(i2)
end
if ~exist([pwd, filesep, i2])
disp([' Make directory ',pwd, filesep, i2,''])
errcode=['97.5',reshape(dec2hex(double(i2))',1,length(i2)*2)];
mkdir(i2)
end
end
cd(olddir)
end
end
%%%%%%% write the programme files
errcode=98;
for i=1:length(c),
disp([' Creating ',char(c(i).file),''])
fid=fopen(char(c(i).file),'w');
if strcmpi(c(i).file,'info.xml')
v=version;
release=str2num(v(findstr(v,'(R')+2:findstr(v,')')-1));
if release>12, area='toolbox'; icon_path='$toolbox/matlab/icons'; else area='matlab'; icon_path='$toolbox/matlab/general'; end
i3=findstr(c(i).data,'<matlabrelease>'); i4=findstr(c(i).data,'</matlabrelease>');
if ~isempty(i3) & i4>i3;
c(i).data=strrep(c(i).data,c(i).data(i3:i4-1),['<matlabrelease>',num2str(release)]);
end
i3=findstr(c(i).data,'<area>'); i4=findstr(c(i).data,'</area>');
if ~isempty(i3) & i4>i3;
c(i).data=strrep(c(i).data,c(i).data(i3:i4-1),['<area>',area]);
end
c(i).data=strrep(c(i).data,'<icon>$toolbox/matlab/general',['<icon>',icon_path]);
c(i).data=strrep(c(i).data,'<icon>$toolbox/matlab/icons',['<icon>',icon_path]);
end
err=fprintf(fid,'%s',char(c(i).data));
err=fclose(fid);
end
%%%%%%% pcode the programme files
for i=1:length(c),
try
[tPath tFile tExt]=fileparts(char(c(i).file));
if strcmpi(tExt,'.m') & ~strcmpi(tFile,'Readme') & ~strcmpi(tFile,'Contents')
if mislocked(char(c(i).file)), munlock(char(c(i).file)); clear(char(c(i).file)); end
disp([' Pcode ',char(c(i).file),''])
pcode(char(c(i).file),'-inplace')
end
catch
end
end
%%%%%%% write the binary files
for i=1:length(b),
disp([' Creating ',char(bfile(i)),''])
fid=fopen(char(bfile(i)),'w');
err=fwrite(fid,b{i});
err=fclose(fid);
end
tx=version; i1=findstr(tx,'('); i2=findstr(tx,')');
if str2num(tx(i1+2:i2-1))>=12, rehash, end
if str2num(tx(i1+2:i2-1))>=13, rehash toolboxcache, end
clear i i3
%%%%%%% removing installation file
errcode=99;
cd(currentpath)
i = input('> Delete installation file? Y/N [Y]: ','s');
if isempty(i), i = 'Y'; end
if strcmpi('Y',i)
disp(' Removing installation file')
delete(install_file)
end
%%%%%%% make toolbox accessible in the current matlab session
addpath(TBfullpath);
disp(' Installation finished!')
disp('-----------------------------')
disp('For an overview type:')
disp(['helpwin ',toolboxpath])
warning('on')
%%%%%%% error handling
catch
z2=whos;x=lasterr;y=lastwarn;
if ~strcmpi(x,'Interrupt')
if fid>-1,
try, z=ferror(fid); catch, z='No error in the installation I/O process.'; end
else
z='File not found.';
end
installfile_info=dir([currentpath,filesep,install_file]);
fid=fopen(fullfile(currentpath,'install.log'),'w');
checksum_test=findstr(x,'The installation file is corrupt!');
if isempty(checksum_test),checksum_test=0; end
if ~checksum_test
err=fprintf(fid,'%s\n','This script is under development and your assistance is');
err=fprintf(fid,'%s\n','urgently welcome. Please inform the distributor of the');
err=fprintf(fid,'%s\n','toolbox, where the error occured and send us the following');
err=fprintf(fid,'%s\n','error report and the informations about the toolbox (distributor,');
err=fprintf(fid,'%s\n','name etc.). Provide a brief description of what you were');
err=fprintf(fid,'%s\n','doing when this problem occurred.');
err=fprintf(fid,'%s\n','E-mail or FAX this information to us at:');
err=fprintf(fid,'%s\n',' E-mail: marwan@agnld.uni-potsdam.de');
err=fprintf(fid,'%s\n',' Fax: ++49 +331 977 1142');
err=fprintf(fid,'%s\n\n\n','Thank you for your assistance.');
err=fprintf(fid,'%s\n',repmat('-',50,1));
err=fprintf(fid,'%s\n',datestr(now,0));
err=fprintf(fid,'%s\n',['Matlab ',char(version),' on ',computer]);
err=fprintf(fid,'%s\n',repmat('-',50,1));
err=fprintf(fid,'%s\n','Makeinstall Version ==> 3.3.9');
err=fprintf(fid,'%s\n',['Install File ==> ',install_file,'/',installfile_info.date,'/',num2str(installfile_info.bytes)]);
err=fprintf(fid,'%s\n',['Container ==> ',time_stamp,'/',checksum]);
err=fprintf(fid,'%s\n\n',repmat('-',50,1));
err=fprintf(fid,'%s\n',x);
err=fprintf(fid,'%s\n',y);
err=fprintf(fid,'%s\n',z);
err=fprintf(fid,'%s\n',[' errorcode ==> ',num2str(errcode)]);
err=fprintf(fid,'%s\n',' workspace dump ==>');
if ~isempty(z2),
err=fprintf(fid,'%s\n',['Name',char(9),'Size',char(9),'Bytes',char(9),'Class']);
for j=1:length(z2);
err=fprintf(fid,'%s',[z2(j).name,char(9),num2str(z2(j).size),char(9),num2str(z2(j).bytes),char(9),z2(j).class]);
if ~strcmp(z2(j).class,'cell') & ~strcmp(z2(j).class,'struct')
content=eval(z2(j).name);
content=mat2str(content(1:min([size(content,1),100]),1:min([size(content,2),100])));
err=fprintf(fid,'\t%s',content(1:min([length(content),500])));
elseif strcmp(z2(j).class,'struct')
content=fieldnames(eval(z2(j).name));
content=char(content); content(:,end+1)=' '; content=content';
err=fprintf(fid,'\t%s',content(:)');
end
err=fprintf(fid,'%s\n','');
end
end
else
err=fprintf(fid,'%s\n','Installation aborted due to a failed checksum test!');
err=fprintf(fid,'%s\n',['Checksum should be: ', checksum]);
err=fprintf(fid,'%s\n\n',['Checksum of archive is: ', checksum_file]);
err=fprintf(fid,'%s\n','Ensure that the installation file was not modified by any');
err=fprintf(fid,'%s\n','other programme, as an anti-virus scanner for emails or a');
err=fprintf(fid,'%s\n','mis-configured FTP programme.');
end
err=fclose(fid);
disp('----------------------------');
disp(' ERROR OCCURED ');
disp(' during installation');
disp('----------------------------');
disp(x);
if ~checksum_test
disp(z);
disp([' errorcode is ',num2str(errcode)]);
disp('----------------------------');
disp(' This script is under development and your assistance is ')
disp(' urgently welcome. Please inform the distributor of the')
disp(' toolbox, where the error occured and send us the error')
disp(' report and the informations about the toolbox (distributor,')
disp(' name etc.). For your convenience, this information has been')
disp(' recorded in: ')
disp([' ',fullfile(currentpath,'install.log')]), disp(' ')
disp(' Provide a brief description of what you were doing when ')
disp(' this problem occurred.'), disp(' ')
disp(' E-mail or FAX this information to us at:')
disp(' E-mail: marwan@agnld.uni-potsdam.de')
disp(' Fax: ++49 +331 977 1142'), disp(' ')
disp(' Thank you for your assistance.')
end
end
warning('on')
cd(currentpath)
end
% -------------------------------------------
% GENERATED ENTRIES - DO NOT MODIFY ANYTHING!
%<-- Header begins here -->
%#4AF47D77A
%#08-Oct-2003 12:56:42
%#1.0 (R1)
%<-- Header ends here -->
%<-- ASCII begins here: __Contents.m__ -->
%#% CSE SQL Database Library
%#% Version 1.0 (R1) 08-Oct-2003
%#%
%#% General Functions:
%#% DBInitialize - Initialize toolbox
%#% DBOpen - Open SQL Database
%#% DBClose - Release SQL Database
%#% DBFinish - Finish all SQL connections
%#%
%#% Table Management:
%#% DBTableDef - Get information about a Table
%#% DBRead - Read a Table
%#% DBWrite - Write a Table
%#%
%#% Query Management:
%#% DBQuery - Run an SQL query and obtain resulting table
%#% DBCreateQuery - Creates an SQL query table for permanent use
%#% DBDeleteQuery - Deletes a previously created permanent query
%#%
%#% SQL Execution:
%#% DBExecute - Execute an SQL command
%#%
%#% (c) CSE - L.Cavin, 2003
%#% CSE SQL Database Library uses Access' ActiveX components and therefore
%#% must run on a PC where MS Access is installed.
%#% The library is free to use and distribute as long as the copyrights
%#% notices are kept intact. It is also free to increase and make better;
%#% please send to the author any improvements.
%#%
%#% Contact address: laurent.cavin(a)ethz.ch
%#% Web: http://ltcmail.ethz.ch/cavin/CSEDBLib.html
%#% Modified at 08-Oct-2003 12:56:42 by MAKEINSTALL
%#
%<-- ASCII ends here -->
%<-- ASCII begins here: __DBClose.m__ -->
%#function DBClose(DB);
%#% DBClose Release an SQL database
%#%
%#% DBClose(DB);
%#%
%#% Close an SQL database DB.
%#% The variable DB still exists in the caller (and its callers) workspaces.
%#% However, the attached ressources have been released, hence it is not
%#% usable anymore. You should follow this command with a clear DB;
%#%
%#% (c) 2003, CSE; see library header for more information.
%#
%#DB.Close
%#
%#
%<-- ASCII ends here -->
%<-- ASCII begins here: __DBCreateQuery.m__ -->
%#function ErrorCode = DBCreateQuery(DB, QueryName, SQLQuery);
%#% DBCreateQuery Creates a permanent query (without getting data)
%#%
%#% ErrorCode = DBCreateQuery(DB, QueryName, SQLQuery);
%#%
%#% DB is obtained with DBOpen.
%#% QueryName is a string.
%#% SQLQuery is a SELECT-SQL query, a string.
%#%
%#% ErrorCode is zero for successful completion. After completion, the query
%#% "QueryName" can be used as a normal Table. It is negative if
%#% unsuccessful.
%#%
%#% (c) 2003, CSE; see library header for more information.
%#
%#ErrorCode = 0;
%#
%#if strcmp(SQLQuery(1:6), 'SELECT')
%# try
%# DB.CreateQueryDef(QueryName, SQLQuery);
%# catch
%# ErrorCode = -1;
%# blop = lasterr;
%# warning('CSE:DBLibrary', ['CSE DB Library Error\nUnable to execute query definition:\n%s'], blop);
%# end
%#else
%# ErrorCode = -1;
%# warning('CSE:DBLibrary', ['CSE DB Library Error\nQuery must begin with ''SELECT''. Invalid query:\n%s'], SQLQuery);
%#end
%<-- ASCII ends here -->
%<-- ASCII begins here: __DBDeleteQuery.m__ -->
%#function ErrorCode = DBDeleteQuery(DB, QueryName);
%#% DBDeleteQuery Deletes a permanent query (without getting data)
%#%
%#% ErrorCode = DBDeleteQuery(DB, QueryName);
%#%
%#% DB is obtained with DBOpen.
%#% QueryName is a string.
%#%
%#% ErrorCode is zero for successful completion. After completion, the query
%#% "QueryName" is destroyed - the underlying data remains of course available.
%#% It is negative if unsuccessful.
%#%
%#% WARNING: This function can also be used to delete tables. Take care, as if
%#% you delete tables, the underlying data will be irremediably destroyed.
%#% No control is done that it is indeed a query you are deleting...
%#%
%#% (c) 2003, CSE; see library header for more information.
%#
%#ErrorCode = 0;
%#
%#try
%# DB.Execute(['DROP TABLE ' QueryName]);
%#catch
%# ErrorCode = -1;
%# blop = lasterr;
%# warning('CSE:DBLibrary', ['CSE DB Library Error\nUnable to delete query definition:\n%s'], blop);
%#end
%<-- ASCII ends here -->
%<-- ASCII begins here: __DBExecute.m__ -->
%#function ErrorCode = DBExecute(DB, SQLCommand);
%#% DBExecute Execute an arbitrary SQL command
%#%
%#% ErrorCode = DBExecute(DB, SQLCommand);;
%#%
%#% DB is obtained with DBOpen.
%#% SQLQuery is a any SQL query, a string.
%#%
%#% ErrorCode is zero for successful completion. It is negative if
%#% unsuccessful.
%#%
%#% (c) 2003, CSE; see library header for more information.
%#
%#ErrorCode = 0;
%#
%#try
%# DB.Execute(SQLCommand);
%#catch
%# ErrorCode = -1;
%# blop = lasterr;
%# warning('CSE:DBLibrary', ['CSE DB Library Error\nUnable to execute SQL command\n"%s":\n%s'], SQLCommand, blop);
%#end
%<-- ASCII ends here -->
%<-- ASCII begins here: __DBFinish.m__ -->
%#% DBFinish Terminates the use of the SQL database Library
%#%
%#% DBFinish; (no input or output arguments)
%#%
%#% DBFinish will delete all DB Library-related objects.
%#% Of course, only objects present in the caller will be removed; this
%#% function should hence be called in the same function that called
%#% DBInitialize, or from the prompt.
%#%
%#% All objects of the class 'access.application' and children object will be
%#% deleted. If this is not the intended behavior, i.e. if you use other
%#% object of those classes, do not call DBFinish, use clear on each of the
%#% DB Library elements instead.
%#%
%#% (c) 2003, CSE; see library header for more information.
%#
%#temp_var_incl_whos_vars_432325 = whos;
%#for temp_var_incl_whos_vars_299325 = 1:size(temp_var_incl_whos_vars_432325,1)
%# temp_var_incl_whos_vars_298465 = strfind(temp_var_incl_whos_vars_432325(temp_var_incl_whos_vars_299325).class, 'access.application');
%# if ~isempty(temp_var_incl_whos_vars_298465)
%# clear(temp_var_incl_whos_vars_432325(temp_var_incl_whos_vars_299325).name);
%# end
%#end
%#clear temp_var_incl_whos_vars_298465;
%#clear temp_var_incl_whos_vars_299325;
%#clear temp_var_incl_whos_vars_432325;
%<-- ASCII ends here -->
%<-- ASCII begins here: __DBInitialize.m__ -->
%#function SQLServer = DBInitialize;
%#% DBInitialize Initialize SQL database Library
%#%
%#% SQLServer = DBInitialize;
%#%
%#% Initialization of database operation; the SQLServer is a handle
%#% to MS Access, that will act as SQL Server.
%#% Pass SQLServer as argument to open a databases.
%#%
%#% DO NOT USE DBInitialize without output argument, the ActiveX link would
%#% be working, but show unpredictable behaviors, for instance an Access
%#% window would keep opening... Therefore, do not use
%#% db = DBOpen(DBInitialize, 'C:\blah\myDB.ips');
%#%
%#% Multiple Servers can be open simultaneously, but one is generally enough,
%#% as many databases can be open at the same time on the same server.
%#%
%#% (c) 2003, CSE; see library header for more information.
%#
%#if isPC
%# if nargout ~= 1
%# blop = '';
%# error('CSE:DBLibrary', 'CSE DB Library Fatal Error\nOne output argument is necessary.%s', blop);
%# else
%# try
%# SQLServer = actxserver('Access.Application');
%# catch
%# blop = lasterr;
%# error('CSE:DBLibrary', ['CSE DB Library Fatal Error\nThis Library is based on MS Access ActiveX engine.\nAccess is not availble on this PC, ' ...
%# 'hence the library cannot run:\n%s'], blop(28:end));
%# end
%# end
%#else
%# blop = '';
%# error('CSE:DBLibrary', 'CSE DB Library Fatal Error\nSorry, this library if for PC only - it uses ActiveX functionalties.%s', blop);
%#end
%#
%<-- ASCII ends here -->
%<-- ASCII begins here: __DBOpen.m__ -->
%#function DB = DBOpen(SQLServer, DBName);
%#% DBOpen Open an SQL database
%#%
%#% DB = DBOpen(SQLServer, DBName);
%#%
%#% Open an SQL database based on the partial or full path DBName.
%#% SQLServer is obtained with DBInitialize.
%#%
%#% DO NOT USE: db = DBOpen(DBInitialize, 'C:\blah\myDB.ips');
%#% An explicit output argument must be used for DBInitialize.
%#%
%#% Multiple databases can be open at the same time on the same server.
%#%
%#% See also DBINITIALIZE and other library functions
%#%
%#% (c) 2003, CSE; see library header for more information.
%#
%#if strcmp(class(SQLServer), 'COM.access.application')
%# try
%# DB = SQLServer.DBEngine.OpenDatabase(DBName);
%# catch
%# blop = lasterr;
%# error('CSE:DBLibrary', ['CSE DB Library Error\nUnable to open database:\n%s'], blop);
%# end
%#else
%# error('CSE:DBLibrary', 'CSE DB Library Fatal Error\nThe server object passed in argument is not valid.\nIt is of class "%s" instead of "COM.access.application".', class(SQLServer));
%#end
%<-- ASCII ends here -->
%<-- ASCII begins here: __DBQuery.m__ -->
%#function DataTable = DBQuery(DB, SQLQuery, varargin);
%#% DBQuery Execute a query and get resulting data from an SQL database
%#%
%#% DataTable = DBQuery(DB, SQLQuery);
%#% DataTable = DBQuery(DB, SQLQuery, format);
%#%
%#% SQLQuery is a SELECT-SQL query, a string.
%#% DB is obtained with DBOpen.
%#% format is either 'All' or 'Numeric'. If format is 'All' (default), the
%#% return element DataTable is a cell array. If format is 'Numeric', the
%#% return element is a matrix and non-numeric columns (if any) are dropped.
%#%
%#% (c) 2003, CSE; see library header for more information.
%#
%#if nargin < 3
%# formatstr = 'All';
%#else
%# formatstr = varargin{1};
%#end
%#
%#if strcmp(SQLQuery(1:6), 'SELECT')
%# try
%# tmp_data = DB.OpenRecordset(SQLQuery);
%# tmp_DataTable = tmp_data.GetRows(32000)';
%# catch
%# tmp_DataTable = [];
%# blop = lasterr;
%# warning('CSE:DBLibrary', ['CSE DB Library Error\nUnable to execute and read query:\n%s'], blop);
%# end
%#
%# if strcmpi(formatstr, 'Numeric')
%# for i = 1:size(tmp_DataTable,1)
%# for j = 1:size(tmp_DataTable,2)
%# if isnumeric(tmp_DataTable{i, j})
%# DataTable(i, j) = tmp_DataTable{i, j};
%# end
%# end
%# end
%# else
%# DataTable = tmp_DataTable;
%# end
%#else
%# DataTable = [];
%# warning('CSE:DBLibrary', ['CSE DB Library Error\nQuery must begin with ''SELECT''. Invalid query:\n%s'], SQLQuery);
%#end
%<-- ASCII ends here -->
%<-- ASCII begins here: __DBRead.m__ -->
%#function DataTable = DBRead(DB, TableName, varargin);
%#% DBRead Read a Table from an SQL database
%#%
%#% DataTable = DBRead(DB, TableName);
%#% DataTable = DBRead(DB, TableName, format);
%#%
%#% TableName is a string.
%#% DB is obtained with DBOpen.
%#% format is either 'All' or 'Numeric'. If format is 'All' (default), the
%#% return element DataTable is a cell array. If format is 'Numeric', the
%#% return element is a matrix and non-numeric columns (if any) are dropped.
%#%
%#% (c) 2003, CSE; see library header for more information.
%#
%#if nargin < 3
%# formatstr = 'All';
%#else
%# formatstr = varargin{1};
%#end
%#
%#try
%# tmp_data = DB.OpenRecordset(['SELECT * FROM ' TableName ';']);
%# tmp_DataTable = tmp_data.GetRows(32000)';
%#catch
%# tmp_DataTable = [];
%# blop = lasterr;
%# warning('CSE:DBLibrary', ['CSE DB Library Error\nUnable to read table:\n%s'], blop);
%#end
%#
%#if strcmpi(formatstr, 'Numeric')
%# for i = 1:size(tmp_DataTable,1)
%# for j = 1:size(tmp_DataTable,2)
%# if isnumeric(tmp_DataTable{i, j})
%# DataTable(i, j) = tmp_DataTable{i, j};
%# end
%# end
%# end
%#else
%# DataTable = tmp_DataTable;
%#end
%#
%<-- ASCII ends here -->
%<-- ASCII begins here: __DBTableDef.m__ -->
%#function TableDef = DBTableDef(DB, TableName);
%#% DBTableDef Analyze Table from an SQL database
%#%
%#% TableDef = DBTableDef(DB, TableName);
%#%
%#% TableName is a string.
%#% DB is obtained with DBOpen.
%#%
%#% TableDef contains the fields
%#% columns = number of columns
%#% records = number of records in table
%#% TypeN(:) = type of the different columns (coded, see below)
%#% Type(:) = type of the different columns (3 char text, see below)
%#%
%#% TypeN Type Explanation:
%#% -----------------------
%#% 0 ??? Unknown
%#% 1 INT integer
%#% 2 NUM numeric (float)
%#% 3 TXT text
%#% 4 LOG logical
%#%
%#% (c) 2003, CSE; see library header for more information.
%#
%#try
%# tmp_data = DB.OpenRecordset(['SELECT * FROM ' TableName ';']);
%# tmp_DataTable = tmp_data.GetRows(1)';
%#catch
%# tmp_DataTable = [];
%# blop = lasterr;
%# warning('CSE:DBLibrary', ['CSE DB Library Error\nUnable to access table:\n%s'], blop);
%#end
%#
%#TableDef.columns = size(tmp_DataTable,2);
%#TableDef.records = size(tmp_DataTable,1);
%#
%#for j = 1:size(tmp_DataTable,2)
%# if isnumeric(tmp_DataTable{1, j})
%# if ~isempty(findstr(class(tmp_DataTable{1, j}), 'int'))
%# TableDef.Type(j,:) = 'INT';
%# TableDef.TypeN(j) = 1;
%# else
%# TableDef.Type(j,:) = 'NUM';
%# TableDef.TypeN(j) = 2;
%# end
%# elseif islogical(tmp_DataTable{1, j})
%# TableDef.Type(j,:) = 'LOG';
%# TableDef.TypeN(j) = 4;
%# elseif ischar(tmp_DataTable{1, j})
%# TableDef.Type(j,:) = 'TXT';
%# TableDef.TypeN(j) = 3;
%# else
%# TableDef.Type(j,:) = '???';
%# TableDef.TypeN(j) = 0;
%# end
%#end
%#
%<-- ASCII ends here -->
%<-- ASCII begins here: __DBWrite.m__ -->
%#function errorcode = DBWrite(DB, TableName, DataTable, varargin);
%#% DBWrite Write a matrix or a cell matrix in a table
%#%
%#% errorcode = DBWrite(DB, TableName, DataTable);
%#% errorcode = DBWrite(DB, TableName, DataTable, option);
%#%
%#% DB is obtained with DBOpen.
%#% TableName is a string.
%#% DataTable must contain the data formated for the table, i.e. ALL columns
%#% of the table must be provided. Usually, it will be a cell array, but it
%#% can be a matrix if the table contains only numerical data.
%#% Option is either 'Append' or 'Replace'. If format is 'Append' (default), the
%#% data is appended to the Table. If format is 'Replace', the table is first
%#% deleted, and the data is then written.
%#% errorcode is zero for successful operation, and negative for errors.
%#%
%#% The behaviors for fields with enforced integrity (usually keys, format
%#% "Auto-Number" in MS Access) is the following:
%#% If the key field to write is unique, the line is added
%#% If it is pre-existent, the addition is ignored.
%#%
%#% (c) 2003, CSE; see library header for more information.
%#
%#if nargin < 4
%# formatstr = 'Append';
%#else
%# formatstr = varargin{1};
%#end
%#
%#if strcmpi(formatstr, 'Replace')
%# % delete all table
%# DB.Execute(['DELETE FROM ' TableName]);
%#end
%#
%#errorcode = 0;
%#
%#for i = 1:size(DataTable,1)
%# SQLCommand = ['INSERT INTO ' TableName ' VALUES ('];
%# for j = 1:size(DataTable,2)
%# if iscell(DataTable)
%# data = DataTable{i, j};
%# else
%# data = DataTable(i, j);
%# end
%# if isnumeric(data)
%# if ~isempty(findstr(class(data), 'int'))
%# SQLCommand = [SQLCommand int2str(double(data)) ', '];
%# else
%# SQLCommand = [SQLCommand num2str(data) ', '];
%# end
%# elseif islogical(data)
%# if data
%# SQLCommand = [SQLCommand 'TRUE, '];
%# else
%# SQLCommand = [SQLCommand 'FALSE, '];
%# end
%# else
%# SQLCommand = [SQLCommand '''' data ''', '];
%# end
%# end
%# SQLCommand = [SQLCommand(1:end-2) ')'];
%# try
%# DB.Execute(SQLCommand);
%# catch
%# errorcode = -1;
%# blop = lasterr;
%# warning('CSE:DBLibrary', ['CSE DB Library Error\nUnable to execute command\n"%s":\n%s'], SQLCommand, blop);
%# end
%#end
%#
%<-- ASCII ends here -->
%<-- ASCII begins here: __info.xml__ -->
%#<productinfo>
%#
%#<matlabrelease>13</matlabrelease>
%#<name>CSE_DBLibrary</name>
%#<area>toolbox</area>
%#<icon>$toolbox/matlab/icons/matlabicon.gif</icon>
%#
%#<list>
%#
%#<listitem>
%#<label>Start CSE SQL DB Library</label>
%#<callback>DBInitialize.m</callback>
%#<icon>$toolbox/matlab/icons/figureicon.gif</icon>
%#</listitem>
%#
%#<listitem>
%#<label>Help</label>
%#<callback>helpwin CSE_SQLDBLib/</callback>
%#<icon>$toolbox/matlab/icons/bookicon.gif</icon>
%#</listitem>
%#
%#<listitem>
%#<label>Product Page (Web)</label>
%#<callback>web http://ltcmail.ethz.ch/cavin/CSEDBLib.html -browser;</callback>
%#<icon>$toolbox/matlab/icons/webicon.gif</icon>
%#</listitem>
%#
%#</list>
%#
%#</productinfo>
%<-- ASCII ends here -->
%<-- ASCII begins here: __tbclean.m__ -->
%#function tbclean
%#%TBCLEAN Removes CSE_SQLDBLib.
%#% TBCLEAN removes all files of CSE_SQLDBLib from
%#% the filesystem and its entry from the Matlab
%#% startup file.
%#%
%#% This installation script was generated by using
%#% the MAKEINSTALL tool. For further information
%#% visit http://matlab.pucicu.de
%#
%#% Copyright (c) 2002-2003 by AMRON
%#% Norbert Marwan, Potsdam University, Germany
%#% http://www.agnld.uni-potsdam.de
%#%
%#% Generation date: 08-Oct-2003 12:56:42
%#% Last Revision of the template: 2003-01-31
%#% Version: 2.2
%#
%#error(nargchk(0,0,nargin));
%#
%#try
%# warning('off')
%# disp('-----------------------------')
%# disp(' REMOVING CSE_SQLDBLib ')
%# disp('-----------------------------')
%# currentpath=pwd;
%#
%#%%%%%%% check for older versions
%#
%# p=path; i1=0;
%#
%# while findstr(upper('CSE_SQLDBLib'),upper(p))>i1;
%# i1=findstr(upper('CSE_SQLDBLib'),upper(p));
%# if ~isempty(i1)
%# i1=i1(1);
%# if isunix, i2=findstr(':',p); else, i2=findstr(';',p); end
%# i3=i2(i2>i1); % last index pathname
%# if ~isempty(i3), i3=i3(1)-1; else, i3=length(p); end
%# i4=i2(i2<i1); % first index pathname
%# if ~isempty(i4), i4=i4(end)+1; else, i4=1; end
%# oldtoolboxpath=p(i4:i3);
%# disp([' CSE_SQLDBLib found in ', oldtoolboxpath,''])
%# i = input('> Delete CSE_SQLDBLib? Y/N [Y]: ','s');
%# if isempty(i), i = 'Y'; end
%# if strcmpi('Y',i)
%#%%%%%%% removing old paths
%# if exist(oldtoolboxpath)==7
%# disp([' Removing files in ',oldtoolboxpath,''])
%# cd(oldtoolboxpath)
%# dirnames='';filenames='';
%# temp='.:';
%# while ~isempty(temp)
%# [temp1 temp]=strtok(temp,':');
%# if ~isempty(temp1)
%# dirnames=[dirnames; {temp1}];
%# x2=dir(temp1);
%# for i=1:length(x2)
%# if ~x2(i).isdir, filenames=[filenames; {[temp1,'/', x2(i).name]}]; end
%# if x2(i).isdir & ~strcmp(x2(i).name,'.') & ~strcmp(x2(i).name,'..'), temp=[temp,temp1,filesep,x2(i).name,':']; end
%# end
%# end
%# end
%# dirnames=strrep(dirnames,['.',filesep],'');
%# for i=1:length(dirnames),l(i)=length(dirnames{i});;end
%# [i i4]=sort(l);
%# dirnames=dirnames(fliplr(i4));
%# for i=1:length(dirnames)
%# delete([dirnames{i}, filesep,'*'])
%# delete(dirnames{i})
%# disp([' Removing files in ',char(dirnames{i}),''])
%# end
%# cd(currentpath)
%# delete(oldtoolboxpath)
%# disp([' Removing folder ',oldtoolboxpath,''])
%# end
%#%%%%%%% removing entry in startup-file
%# rmpath(oldtoolboxpath)
%# if i4>1, p(i4-1:i3)=''; else, p(i4:i3)=''; end
%# if exist('startup')
%# disp([' Removing startup entry'])
%# startupfile=which('startup');
%# startuppath=startupfile(1:findstr('startup.m',startupfile)-1);
%# instpaths=textread(startupfile,'%[^\n]');
%# k=1;
%# while k<=length(instpaths)
%# if ~isempty(findstr(oldtoolboxpath,instpaths{k}))
%# instpaths(k)=[];
%# end
%# k=k+1;
%# end
%# fid=fopen(startupfile,'w');
%# for i2=1:size(instpaths,1),
%# err=fprintf(fid,'%s\n', char(instpaths(i2,:)));
%# end
%# err=fclose(fid);
%# disp([' CSE_SQLDBLib now removed.'])
%# end
%# end
%# end
%# end
%# tx=version; i1=findstr(tx,'('); i2=findstr(tx,')'); if str2num(tx(i1+2:i2-1))>=12, rehash, end
%# warning on
%#
%#%%%%%%% error handling
%#
%#catch
%# x=lasterr;y=lastwarn;
%# if ~strcmpi(lasterr,'Interrupt')
%# if fid>-1,
%# try, z=ferror(fid); catch, z='No error in the installation I/O process.'; end
%# else
%# z='File not found.';
%# end
%# fid=fopen('deinstall.log','w');
%# err=fprintf(fid,'%s\n','This script is under development and your assistance is');
%# err=fprintf(fid,'%s\n','urgently welcome. Please inform the distributor of the');
%# err=fprintf(fid,'%s\n','toolbox, where the error occured and send us the following');
%# err=fprintf(fid,'%s\n','error report and the informations about the toolbox (distributor,');
%# err=fprintf(fid,'%s\n','name etc.). Provide a brief description of what you were');
%# err=fprintf(fid,'%s\n','doing when this problem occurred.');
%# err=fprintf(fid,'%s\n','E-mail or FAX this information to us at:');
%# err=fprintf(fid,'%s\n',' E-mail: marwan@agnld.uni-potsdam.de');
%# err=fprintf(fid,'%s\n',' Fax: ++49 +331 977 1142');
%# err=fprintf(fid,'%s\n\n\n','Thank you for your assistance.');
%# err=fprintf(fid,'%s\n',repmat('-',50,1));
%# err=fprintf(fid,'%s\n',datestr(now,0));
%# err=fprintf(fid,'%s\n',['Matlab ',char(version),' on ',computer]);
%# err=fprintf(fid,'%s\n',repmat('-',50,1));
%# err=fprintf(fid,'%s\n','CSE_SQLDBLib');
%# err=fprintf(fid,'%s\n',x);
%# err=fprintf(fid,'%s\n',y);
%# err=fprintf(fid,'%s\n',z);
%# err=fclose(fid);
%# disp('----------------------------');
%# disp(' ERROR OCCURED ');
%# disp(' during deinstallation');
%# disp('----------------------------');
%# disp(x);
%# disp(z);
%# disp('----------------------------');
%# disp(' This script is under development and your assistance is ')
%# disp(' urgently welcome. Please inform the distributor of the')
%# disp(' toolbox, where the error occured and send us the error')
%# disp(' report and the informations about the toolbox (distributor,')
%# disp(' name etc.). For your convenience, this information has been')
%# disp(' recorded in: ')
%# disp([' ',fullfile(pwd,'deinstall.log')]), disp(' ')
%# disp(' Provide a brief description of what you were doing when ')
%# disp(' this problem occurred.'), disp(' ')
%# disp(' E-mail or FAX this information to us at:')
%# disp(' E-mail: marwan@agnld.uni-potsdam.de')
%# disp(' Fax: ++49 +331 977 1142'), disp(' ')
%# disp(' Thank you for your assistance.')
%# end
%# warning('on')
%# cd(currentpath)
%#end
%#
%<-- ASCII ends here -->
