function do_heading(%path)
{
	%success = false;
	
	if(isFile(%path))
	{
		%success = true;
		%f = new fileObject();
		%f.openForRead(%path);
		%lc = 0;
		%ls = -1;
		
		while(!%f.isEof())
		{
			%line = %f.readLine();
			
			if(strStr(%line,"//@@") >= 0)
				continue;
				
			%line[%lc++] = %line;
			
			if(%line[%lc] !$= "" && getWord(trim(%line[%lc]),0) $= "function")
			{
				%lineStart[%ls++] = %lc;
				%lineName[%ls] = getSubStr(%line[%lc],strStr(strLwr(%line[%lc]),"function") + 9, strLen(%line[%lc]));
				%lineName[%ls] = getSubStr(%lineName[%ls],0,strStr(%lineName[%ls],"("));
			}
		}
		
		%f.close();
		%f.delete();
		
		fileDelete(%path);
		
		%f = new fileObject();
		%f.openForWrite(filePath(%path) @ "/" @ fileName(%path));
		
		for(%i=0;%i<%ls;%i++)
		{
			%f.writeLine("//@@ LINE " @ %lineStart[%i] + %ls @ " => " @ %lineName[%i] @ "");
		}
		
		for(%i=1;%i<%lc+1;%i++)
		{
			%f.writeLine(%line[%i]);
		}
		
		%f.close();
		%f.delete();
	}
	
	echo(%path @ " successfully headed: " @ %success);
}