Counting lines of code

Question

Does anyone know a way to count the lines code in a package
excluding comments? The following are commenting styles:
* comment1
-- comment 2
/* comment 3 */
comment 4

Answer 1

CREATE OR REPLACE PROCEDURE count_code(p VARCHAR2) Is
CURSOR c1 IS SELECT * FROM user_source WHERE name=UPPER(P);
l_count number :=0;
l_tot_count number:=0;
comment_flag boolean:=false;
BEGIN
for crec in c1 loop
l_tot_count := l_tot_count+1;
IF substr(trim(crec.text),1,2) not IN ('--','/*') and not
comment_flag THEN
l_count := l_count+1;
ELSIF substr(trim(crec.text),1,2)='/*' THEN
comment_flag := true;
end if;
IF comment_flag and instr(trim(crec.text),'*/')>0 THEN
comment_flag:=false;
end if;
END LOOP;
dbms_output.enable(100000);
dbms_output.put_line('Object
Name : '||p);
dbms_output.put_line('Total number of lines
Code : '||l_tot_count);
dbms_output.put_line('Total number of lines Code with out
comments : '||l_count);
END;
Suresh Vemulapalli