lines(0); | |
ilib_verbose(0); | |
ierr = exec('loader.sce', 'errcatch'); | |
if ierr <> 0 then | |
disp(lasterror()); | |
exit(ierr); | |
end | |
example_Init(); | |
printf("\nTest constants\n"); | |
printf("ICONST = %i (should be 42)\n", ICONST); | |
printf("FCONST = %5.4f (should be 2.1828)\n", FCONST); | |
printf("SCONST = ''%s'' (should be ''Hello World'')\n", SCONST); | |
printf("EXPR = %5.4f (should be 48.5484)\n", EXPR); | |
printf("iconst = %i (should be 37)\n", iconst); | |
printf("fconst = %3.2f (should be 3.14)\n", fconst); | |
exit |