expr/test-resources/file-reader.expr

builtin ["os.file", "base"];

readInt=func(fh){
	line=fileRead(fh);
	line ? [nil] {nil} :: {int(line)}
};

ds={
	"init":func(filename){
		fh=fileOpen(filename);
		fh ? [nil] {nil} :: { @current=readInt(fh); @prev=@current };
		fh
	},
	"current":func(){
		prev
	},
	"next":func(fh){
		current ? 
			[nil] {current}
			:: {@prev=current; @current=readInt(fh) but current}
	},
	"clean":func(fh){
		fileClose(fh)
	}
}

//;f=$(ds, "int.list")
/*
;f++
;f++
;f++
*/
//;add(f)