//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