* revert last change : removal of dos unit

compiler/scanner.pas

@@ -203,7 +203,11 @@ interface
 implementation
 
     uses
-      SysUtils,
+{$ifdef delphi}
+      dmisc,
+{$else}
+      dos,
+{$endif delphi}
       cutils,
       systems,
       switches,
@@ -976,9 +980,9 @@ implementation
         args,
         foundfile,
         hs    : string;
-        path  : String;
-        name  : String;
-        ext   : String;
+        path  : dirstr;
+        name  : namestr;
+        ext   : extstr;
         hp    : tinputfile;
         found : boolean;
       begin
@@ -1022,7 +1026,7 @@ implementation
             if hs='FPCTARGETOS' then
              hs:=target_info.shortname
            else
-             hs:=GetEnvironmentVariable(hs);
+             hs:=getenv(hs);
            if hs='' then
             Message1(scan_w_include_env_not_found,path);
            { make it a stringconst }
@@ -1033,9 +1037,7 @@ implementation
         else
          begin
            hs:=FixFileName(hs);
-           path := SplitPath(hs);
-           name := SplitName(hs);
-           ext := SplitExtension(hs);
+           fsplit(hs,path,name,ext);
            { try to find the file }
            found:=findincludefile(path,name,ext,foundfile);
            if (ext='') then
@@ -3265,8 +3267,8 @@ exit_label:
 end.
 {
   $Log$
-  Revision 1.89  2004-09-28 16:00:52  mazen
-  - remove Dos unit dependency
+  Revision 1.90  2004-09-29 06:52:43  mazen
+  * revert last change : removal of dos unit
 
   Revision 1.88  2004/09/12 20:46:58  olle
     * Minor bugfix in $IFOPT