From 93949137166b1571ac5c23f2cbabce88afffd665 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 24 Dec 2002 23:32:02 +0000
Subject: [PATCH]   * support quotes around include filenames

---
 compiler/scanner.pas | 34 ++++++++++++++++++++++++++++------
 1 file changed, 28 insertions(+), 6 deletions(-)

diff --git a/compiler/scanner.pas b/compiler/scanner.pas
index 917669a7f9..40ae95118b 100644
--- a/compiler/scanner.pas
+++ b/compiler/scanner.pas
@@ -692,11 +692,30 @@ implementation
         found : boolean;
       begin
         current_scanner.skipspace;
-        hs:=current_scanner.readcomment;
-        i:=length(hs);
-        while (i>0) and (hs[i]=' ') do
-         dec(i);
-        Delete(hs,i+1,length(hs)-i);
+        hs:=Trimspace(current_scanner.readcomment);
+        if hs[1]='''' then
+         begin
+           i:=1;
+           while (i<length(hs)) do
+            begin
+              inc(i);
+              if hs[i]='''' then
+               begin
+                 { Remove double quote }
+                 if (i<length(hs)) and
+                    (hs[i+1]='''') then
+                  begin
+                    Delete(hs,i,1);
+                    inc(i);
+                  end
+                 else
+                  begin
+                    hs:=Copy(hs,2,i-2);
+                    break;
+                  end;
+               end;
+            end;
+         end;
         if hs='' then
          exit;
         if (hs[1]='%') then
@@ -2801,7 +2820,10 @@ exit_label:
 end.
 {
   $Log$
-  Revision 1.51  2002-12-05 19:27:00  carl
+  Revision 1.52  2002-12-24 23:32:02  peter
+    * support quotes around include filenames
+
+  Revision 1.51  2002/12/05 19:27:00  carl
     * remove a stupid thing that i commited
 
   Revision 1.50  2002/11/29 22:31:19  carl