produce a list of tuples which describes the chunks adjusted to the nearest newline

gistfile1.erl

getChunkDivisions(File, 0, Chunksize, ChunkDivisions) ->
	[{chunk,0,Chunksize}|ChunkDivisions];
getChunkDivisions(File, Size, Chunksize, ChunkDivisions) ->
	if
		Size-Chunksize=<0 -> 
			ComputedChunkEnd = Chunksize-(Chunksize-Size),
			CorrectedChunkEnd = walkToNextLineBreak(File, ComputedChunkEnd),
			getChunkDivisions(File, 0, CorrectedChunkEnd, ChunkDivisions);
		true		 -> 
			ComputedChunkEnd = Size-Chunksize,
			CorrectedChunkEnd = walkToNextLineBreak(File, ComputedChunkEnd),
			getChunkDivisions(File, CorrectedChunkEnd, Chunksize, [{chunk,CorrectedChunkEnd,Size}|ChunkDivisions])
	end.

walkToNextLineBreak(File,Start) ->
	file:position(File, Start-1),
	{ok, Data} = file:read(File, 1024),
	Start+string:chr(Data, $\n).