Scilab Function
eng

find_scilab_ver

File content

//find_scilab_ver
function ok=find_scilab_ver()
 ok=%t
 printf("... Search Scilab version ...\n")
 tt=getversion()
 printf("Version of scicoslab is : %s\n",tt)

 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