1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
program teststream;
{$mode objfpc}
{$H+}
uses
Classes, libsee, mod_stream;
Var
interp : TSEE_interpreter;
ainput : PSEE_INPUT;
res : TSEE_Value;
const
Program_text = 's = new Stream("test.txt",Stream.fmCreate); '+
's.Write("something"); '+
's.Free(); '+
'delete s;';
begin
see_init;
RegisterStreamModule;
SEE_interpreter_init(@interp);
ainput :=SEE_input_utf8(@interp, pchar(program_text));
See_global_eval(@interp,ainput,@res);
see_input_close(ainput);
end.
|
