/usr/share/doc/swig4.0-examples/Examples/scilab/contract/runme.sci

lines(0);
ilib_verbose(0);
ierr = exec('loader.sce', 'errcatch');
if ierr <> 0 then
  disp(lasterror());
  exit(ierr);
end


// Call our gcd() function
x = 42;
y = 105;
g = gcd(x, y);
printf("The gcd of %d and %d is %d\n", x, y, g);

// Call our fact() function
x = 5;
g = fact(x);
printf("The fact of %d is %d\n", x, g);

// Manipulate the Foo global variable

// Output its current value
printf("Foo = %f\n", Foo_get());

// Change its value
Foo_set(3.1415926);

// See if the change took effect
printf("Foo = %f\n", Foo_get());

// Check error messages when violating contract
ierr = execstr('gcd(-42, 105)', 'errcatch');
if ierr <> 20003 then
  error("gcd(-42, 105) must provoke a RunTimeError")
end

ierr = execstr('fact(-4)', 'errcatch');
if ierr <> 20003 then
  error("fact(-4) must provoke a RunTimeError")
end

exit

Generated by dwww version 1.15 on Tue Jul 2 00:18:27 CEST 2024.