SuperStrict

Type TComments
	Field Lines%
	Field Comments%
	Field Size%
End Type

Function ReadComments:TComments(File_name$)
	Local file:TStream = ReadFile(File_name)
	Local comments:TComments = New TComments
	Local line$
	ChangeDir(CurrentDir() +"/"+ ExtractDir(File_name))
	comments.Size = file.size()
	While Not Eof(file)
		line$ = Lower(Trim(ReadLine(file)))
		If Instr(line,"'") Then 
			comments.Comments:+1
		Else
			If Instr(line,"include "+Chr(34)) Then
				Local line2$ = Replace(line,"include "+Chr(34),"")
				line2 = Replace(line2,Chr(34),"")
				line2 = Trim(line2)
				Local dir$ = CurrentDir()
				Local com:TComments = ReadComments(line2)
				comments.Lines:+com.Lines
				comments.Comments:+com.Comments
				comments.Size:+com.Size
				ChangeDir(dir)		
			End If
		End If
		comments.Lines:+1
	Wend
	CloseFile(file)
	Return comments
End Function


Function Calculate(File$)

	Local coms:TComments = ReadComments(File)

	DebugLog "---------"
	DebugLog "File : " + File
	DebugLog "Size : " + coms.Size + " bytes"
	DebugLog "Lines : " + coms.Lines
	DebugLog "Comments : " + coms.Comments
	DebugLog "Percents : " + ((Float(coms.Comments)/Float(coms.Lines))*100) + " %" 
	
End Function

Calculate("jAqua.bmx")
Calculate("jEditor.bmx")