From: Avery Pennarun Date: Fri, 01 Aug 2008 19:45:15 GMT Subject: [PATCH] Add Pascal/Delphi (.pas file) funcname pattern. Message-ID: <1217619915-9331-1-git-send-email-apenwarr@gmail.com> Finds classes, records, functions, procedures, and sections. Most lines need to start at the first column, or else there's no way to differentiate a procedure's definition from its declaration. Signed-off-by: Avery Pennarun --- The Ruby funcname pattern patch inspired me. Although unlike him, I didn't check with anyone else for confirmation. How many Pascal programmers can there possibly be? :) diff.c | 4 ++++ 1 files changed, 4 insertions(+), 0 deletions(-) diff --git a/diff.c b/diff.c index cbf2547..c73ba69 100644 --- a/diff.c +++ b/diff.c @@ -1380,6 +1380,10 @@ static struct builtin_funcname_pattern { "^[ ]*\\(\\([ ]*" "[A-Za-z_][A-Za-z_0-9]*\\)\\{2,\\}" "[ ]*([^;]*\\)$" }, + { "pas", "\\(^\\(procedure\\|function\\|constructor\\|" + "destructor\\|interface\\|implementation\\|" + "type|initialization|finalization\\).*$\\)" + "\\|\\(^.*=[ \t]*\\(class\\|record\\).*$\\)" }, { "tex", "^\\(\\\\\\(sub\\)*section{.*\\)$" }, }; -- 1.6.0.rc1.34.g23b24.dirty