[Prolint-cvs] SF.net SVN: prolint: [265] trunk/prolint/lintsuper.p

[<ju...@us...>]

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.