add a function to classify the first line of block with level=1

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/profiledisplay@250 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
revise the function for newly added function classfirstline

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/profiledisplay@251 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
revise the bug with <-

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/profiledisplay@252 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
fix the function when uline==0

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/profiledisplay@253 edb9625f-4e0d-4859-8d74-9fd3b1da38cb