test1.xreate
No OneTemporary
Actions

Subscribers

None

File Metadata

	test1 = function :: int; entry {
	appendA() + appendB
	}

	appendA = function:: int {
	append("a", "/tmp/test1.txt")
	}

	appendB = function:: int {
	append("b", "/tmp/test1.txt")
	}

	append:: function(message::string, filename::string):: int,
	{
	f = initialize(filename):: FILE.

	fprintf(f, message)
	}

	======================================================
	initialize(filename:: string; exploitation_file_initialized)
	{
	// get cached descriptor for FileName:
	files:: cached(exploitation_files).

	files[filename]
	}

	attach scope:: openFile(FileName) {
	fid = fopen(FileName).
	(FileName, fid):: cached(exploitation_files).
	}

	attach scope:: closeFile(FileName){
	files:: cached(exploitation_files).
	fid = files[FileName].
	fclose(fid)
	}