rel write(Any x) c::write(x) rel writeln(Any x) write(x) write('\n') /* rel rawWrite(Any x) pl::write(x) rel rawWriteln(Any x) rawWrite(x) rawWrite('\n') */ /* files */ /* rel openWrite(String name, File f) pl::fopen(name,'write',f) rel fileWrite(File f, x) pl::write(f,x) rel fileReadAll(File f, String s) pl::fread_all(f,s) */ /* file utilities */ rel read(String x) c::ioread(x) rel readFile(String name, String s) pl::fread_all(f,s)//c::readFile(name, s) rel open(String name, String mode, f) c::fopen(str(name),mode,f) rel close(File f) c::close(f) t={ //files rel fwrite(File f, x) c::write(f,x) rel fread(File f, String s) c::read(f,s) rel fileReadLine(File f, String s) pl::fread(f,s) rel fileReadChar(File f, String s) pl::read_string(f,int(1),s) //binary rel exists(String name) c::fopen_binary(name,mode,f) rel openBinary(String name, String mode, f) c::fopen_binary(name,mode,f) rel write8(f, x) //pl::put_byte(f, x) c::check(x) c::write8(f, x) rel write16(f, n) c::check(n) c::write16(f, n) rel write32(f, n) //pl::writeInt32(f, n) c::check(n) c::write32(f, n) // /* rel appendToFile(String name, String s) open(name,'append',f) fileWrite(f,s) close(f) //require('table.bc', table) */ rel writeToFile(String name, String s) open(name,'write',f) c::write(f,s) c::close(f) rel writeFormat(Any x) c::write_format(x) rel readFile(String name, String s) open(name,'read',f) pl::fread_all(f,s) close(f) 'write'=write 'read'=read 'writeln'=writeln 'open'=open close=close } //c::table_set(t5,'code',code,t) export(t) //t.readFile('test0.co',s) //print(s)