[Prolint-cvs] SF.net SVN: prolint: [268] trunk/prolint/turbolint

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

Revision: 268
Author:   jurjen
Date:     2006-03-16 15:37:43 -0800 (Thu, 16 Mar 2006)
ViewCVS:  http://svn.sourceforge.net/prolint/?rev=268&view=rev

Log Message:
-----------
function RelativeFilename in Turbolint.dll did not behave identical to RelativeFilename in lintsuper.p when a Propath root-element did not start with a drive letter. This affected the regression test.

Modified Paths:
--------------
    trunk/prolint/help/rules/prolint.htxt
    trunk/prolint/turbolint/lintsuper.pas
    trunk/prolint/turbolint/turbolint.dll
Modified: trunk/prolint/help/rules/prolint.htxt
===================================================================
--- trunk/prolint/help/rules/prolint.htxt	2006-03-16 21:48:02 UTC (rev 267)
+++ trunk/prolint/help/rules/prolint.htxt	2006-03-16 23:37:43 UTC (rev 268)
@@ -3,4 +3,4 @@
 Prolint did not find the file you wanted to lint.
 <h1>Prolint is installed more than once</h1>
 Prolint found more than one directory where Prolint is installed. The list of directories where Prolint is installed, is in registry 
-"HKEY_LOCAL_MACHINE/SOFTWARE/prolint" key "found_in"
+"HKEY_CURRENT_USER/SOFTWARE/prolint" key "found_in"

Modified: trunk/prolint/turbolint/lintsuper.pas
===================================================================
--- trunk/prolint/turbolint/lintsuper.pas	2006-03-16 21:48:02 UTC (rev 267)
+++ trunk/prolint/turbolint/lintsuper.pas	2006-03-16 23:37:43 UTC (rev 268)
@@ -324,11 +324,26 @@
     tmp : string;
     shortpath : string;
 begin
+   { if a path in the PROPATH was specified without drive letter, then the fullpath
+     will also have no driveletter and this function fails. So, add a drive letter now: }
+
+   // if fullpath starts in a root without drive letter
+   if (fullpath[1]='\') or (fullpath[1]='/') then
+   begin
+      tmp := ExpandFilename(fullpath);  // adds the drive letter
+      if tmp<>'' then
+         fullpath := tmp;
+   end;
+
    for i:=1 to length(fullpath) do
       if fullpath[i]='\' then fullpath[i]:='/';
    fullpath  := lowercase(fullpath);
    shortpath := fullpath;
 
+   if length(shortpath)>2 then
+      if copy(shortpath,1,2)='./' then
+         delete(shortpath,1,2);
+
    for i:=1 to num_entries(propath, ';') do
      begin
         dir := entry(i, propath, ';');

Modified: trunk/prolint/turbolint/turbolint.dll
===================================================================
(Binary files differ)


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.