Scilab Function
eng


find_scilab_ver

File content


//find_scilab_ver
function [ok,ver]=find_scilab_ver()
 ok=%t
 printf("... Version checking ...\n")
 [OS,ver]=getos()
 printf("OS is : %s-%s\n",OS,ver)
 ver=get_modnumsci_version()
 printf("Version of Modnum is : %s\n",ver)
 ver=getversion()
 printf("Version of ScicosLab is : %s\n",ver)

 ierr=execstr('getversion(''string'')','errcatch')
 if ierr == 0 then
   a1=' Scilab >=5 doesn''t work with Modnum.'
   a2='        Please use ScicosLab !'
   printf("====================================\n");
   for i=2:length(a1)
     printf(part(a1,i));
     tic();
     while toc()<0.05,end
   end
   printf("\n");
   for i=2:length(a2)
     printf(part(a2,i));
     tic();
     while toc()<0.05,end
   end
   printf("\n====================================\n");
  ok=%f
  return
 end

 ierr = execstr('tt=get_scicos_version()','errcatch')
 if ierr<>0 then
  ok=%f
 else
   printf("Version of Scicos is : %s\n",tt)
 end
endfunction