fpcsrc/packages/libsee/examples/tlibsee.pp


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.