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