parse_lines.txt

METHOD GET PATHS(Path all objects;$methods)

$codes:=New collection
$comments:=New collection
$empties:=New collection

$len:=0

For ($m;1;Size of array($methods))
	$method:=$methods{$m}
	If (Current method path#$method)
		METHOD GET CODE($method;code;Code with tokens)
		$lines:=Split string(code;"\r";sk trim spaces)
		$lines.shift()  //remove %attributes
		$len:=$len+$lines.length
		For each ($line;$lines)
			Case of 
				: (Match regex("\\s*";$line))
					$empties.push($line)
				: (Match regex("^//.*";$line))
					$comments.push($line)
				Else 
					$codes.push($line)
			End case 
		End for each 
	End if 
End for 

$total:=$codes.length+$comments.length+$empties.length

$counts:=New collection

$count:=New collection
$count.push("code";$codes.length;100*$codes.length/$total)
$counts.push($count.join("\t"))

$count:=New collection
$count.push("comment";$comments.length;100*$comments.length/$total)
$counts.push($count.join("\t"))

$count:=New collection
$count.push("enpty";$empties.length;100*$empties.length/$total)
$counts.push($count.join("\t"))

SET TEXT TO PASTEBOARD($counts.join("\r";ck ignore null or empty))