Revision: 265
Author: jurjen
Date: 2006-03-15 14:14:45 -0800 (Wed, 15 Mar 2006)
ViewCVS: http://svn.sourceforge.net/prolint/?rev=265&view=rev
Log Message:
-----------
strip leading "./" from filenames
Modified Paths:
--------------
trunk/prolint/lintsuper.p
Modified: trunk/prolint/lintsuper.p
===================================================================
--- trunk/prolint/lintsuper.p 2006-03-14 22:19:11 UTC (rev 264)
+++ trunk/prolint/lintsuper.p 2006-03-15 22:14:45 UTC (rev 265)
@@ -126,7 +126,10 @@
FIND tt_cacheRelativeName WHERE tt_cacheRelativeName.longname = pFileName NO-ERROR.
IF AVAILABLE tt_cacheRelativeName THEN
RETURN tt_cacheRelativeName.relativename.
-
+
+ IF SUBSTRING(pFileName, 1, 2) = './':U THEN
+ pFileName = SUBSTRING(pFileName, 3).
+
DO i=1 to num-entries(SearchPath) :
subdir = entry(i, SearchPath).
if length(subdir)<length(pFileName) then
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
