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