* IDE compiles with for Win32 and basic things are working

ide/text/fpredir.pas

@@ -536,19 +536,22 @@ end;
                                  Linux
 *****************************************************************************}
 
-function ExecuteRedir (Const ProgName, ComLine, RedirStdOut, RedirStdErr : String) : boolean;
-begin
-  ExecuteRedir:=false;
-end;
+function ExecuteRedir (Const ProgName, ComLine, RedirStdIn, RedirStdOut, RedirStdErr : String) : boolean;
+
+  begin
+     ExecuteRedir:=false;
+  end;
 
 function ChangeRedir(Const Redir : String; AppendToFile : Boolean) : Boolean;
-begin
-  ChangeRedir:=false;
-end;
+
+  begin
+     ChangeRedir:=false;
+  end;
 
 procedure RestoreRedir;
-begin
-end;
+
+  begin
+  end;
 
 function ChangeErrorRedir(Const Redir : String; AppendToFile : Boolean) : Boolean;
 begin
@@ -556,12 +559,87 @@ begin
 end;
 
 procedure RestoreErrorRedir;
-begin
-end;
+
+  begin
+  end;
 
 procedure InitRedir;
-begin
-end;
+
+  begin
+  end;
+
+function  ChangeRedirOut(Const Redir : String; AppendToFile : Boolean) : Boolean;
+
+  begin
+     ChangeReDirOut:=false;
+  end;
+
+procedure RestoreRedirOut;
+
+  begin
+  end;
+
+procedure DisableRedirOut;
+
+  begin
+  end;
+
+procedure EnableRedirOut;
+
+  begin
+  end;
+
+function  ChangeRedirIn(Const Redir : String) : Boolean;
+
+  begin
+     ChangeRedirIn:=false;
+  end;
+
+procedure RestoreRedirIn;
+
+  begin
+  end;
+
+procedure DisableRedirIn;
+
+  begin
+  end;
+
+procedure EnableRedirIn;
+
+  begin
+  end;
+
+function  ChangeRedirError(Const Redir : String; AppendToFile : Boolean) : Boolean;
+
+  begin
+     ChangeRedirError:=false;
+  end;
+
+procedure RestoreRedirError;
+
+  begin
+  end;
+
+procedure DisableRedirError;
+
+  begin
+  end;
+
+procedure EnableRedirError;
+
+  begin
+  end;
+
+procedure RedirDisableAll;
+
+  begin
+  end;
+
+procedure RedirEnableAll;
+
+  begin
+  end;
 
 {$endif not implemented}
 
@@ -569,7 +647,7 @@ end;
 {*****************************************************************************
                                   Initialize
 *****************************************************************************}
-
+{$ifdef implemented}
 var oldexit : pointer;
 
 procedure RedirExit;
@@ -583,9 +661,15 @@ Begin
   exitproc:=@RedirExit;
   New(FIn); New(FOut); New(FErr);
 End.
+{$else implemented}
+end.
+{$endif implemented}
 {
   $Log$
-  Revision 1.17  1999-05-01 23:45:07  pierre
+  Revision 1.18  1999-07-18 16:26:39  florian
+    * IDE compiles with for Win32 and basic things are working
+
+  Revision 1.17  1999/05/01 23:45:07  pierre
    * FIn FOut FErr dispsoed at exit
 
   Revision 1.16  1999/04/29 22:57:09  pierre

ide/text/globdir.inc

@@ -20,7 +20,7 @@
 {$endif}
 
 { --- Include VESA support --- }
-{$ifndef LINUX}
+{$ifdef GO32V2}
   {$ifndef FV20}
     {$define VESA}
   {$endif}

ide/text/whelp.pas

@@ -239,6 +239,9 @@ uses
 {$ifdef Linux}
   linux,
 {$endif Linux}
+{$ifdef Win32}
+  windows,
+{$endif Win32}
   WUtils,WHTMLHlp;
 
 
@@ -251,11 +254,17 @@ Function GetDosTicks:longint; { returns ticks at 18.2 Hz, just like DOS }
     GetTimeOfDay(tv,tz);
     GetDosTicks:=((tv.Sec mod 86400) div 60)*1092+((tv.Sec mod 60)*1000000+tv.USec) div 54945;
   end;
-{$ELSE}
+{$endif Linux}
+{$ifdef Win32}
+  begin
+    GetDosTicks:=(Windows.GetTickCount*5484) div 100;
+  end;
+{$endif Win32}
+{$ifdef go32v2}
   begin
     GetDosTicks:=MemL[$40:$6c];
   end;
-{$endIF}
+{$endif go32v2}
 
 procedure DisposeRecord(var R: TRecord);
 begin
@@ -940,7 +949,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.13  1999-04-13 10:47:51  daniel
+  Revision 1.14  1999-07-18 16:26:42  florian
+    * IDE compiles with for Win32 and basic things are working
+
+  Revision 1.13  1999/04/13 10:47:51  daniel
   * Fixed for Linux
 
   Revision 1.12  1999/04/07 21:56:00  peter