1program testwrite; 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 = 'writeln("Hello, world!");'; 16 17begin 18 see_init; 19 RegisterWriteModule; 20 SEE_interpreter_init(@interp); 21 ainput :=SEE_input_utf8(@interp, pchar(program_text)); 22 See_global_eval(@interp,ainput,@res); 23 see_input_close(ainput); 24end. 25 26