.NAME File length

.DESCRIPTION
A source file shall not contain more than a maximum number of lines.

The maximum number of lines is the value of the parameter of the rule.

.SEVERITY Advisory

.COMMAND tcl

.CODE

proc compute {standardName tree} {
	variable CurrentParameterList

	set chan [open "[::logiscope::fileName]"]
	set line 0
	while {[gets $chan content] >= 0} {
		incr line
	}
	close $chan
	if { "$line" > "$CurrentParameterList" } {
		::logiscope::addViolation $tree
	}
	return 1
}

