/usr/share/doc/fp-units-misc/2.6.4/examples/libsee/tlibsee.pp is in fp-units-misc-2.6.4 2.6.4+dfsg-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | program tlibsee;
uses libsee;
Var
Interp : TSEE_interpreter;
ainput : PSEE_INPUT;
res : TSEE_Value;
Const
Program_text = 'Math.sqrt(3 + 4 * 7)+9;';
begin
see_init;
SEE_interpreter_init(@Interp);
ainput :=SEE_input_utf8(@Interp, pchar(program_text));
See_global_eval(@interp,ainput,@res);
if (res._type=SEE_NUMBER) then
Writeln('Result is : ',res.u.number)
else
Writeln('Result is not a number');
see_input_close(ainput);
end.
|