Browse Source

* support target netware

armin 21 years ago
parent
commit
784ec6c038
3 changed files with 30 additions and 7 deletions
  1. 10 1
      ide/fpredir.pas
  2. 7 4
      ide/wconsole.pas
  3. 13 2
      ide/whelp.pas

+ 10 - 1
ide/fpredir.pas

@@ -46,6 +46,9 @@ Interface
 {$ifdef netwlibc}
 {$ifdef netwlibc}
 {$define implemented}
 {$define implemented}
 {$endif}
 {$endif}
+{$ifdef netware_clib}
+{$define implemented}
+{$endif}
 
 
 { be sure msdos is not set for FPC compiler }
 { be sure msdos is not set for FPC compiler }
 {$ifdef FPC}
 {$ifdef FPC}
@@ -91,6 +94,9 @@ Uses
 {$ifdef netwlibc}
 {$ifdef netwlibc}
   Libc,
   Libc,
 {$endif netwlibc}
 {$endif netwlibc}
+{$ifdef netware_clib}
+  nwserv,
+{$endif netware_clib}
 {$ifdef win32}
 {$ifdef win32}
   windows,
   windows,
 {$endif win32}
 {$endif win32}
@@ -974,7 +980,10 @@ finalization
 End.
 End.
 {
 {
   $Log$
   $Log$
-  Revision 1.8  2004-09-21 14:55:45  armin
+  Revision 1.9  2004-11-06 19:56:14  armin
+  * support target netware
+
+  Revision 1.8  2004/09/21 14:55:45  armin
   * added uses windows for win32 (deleted that with my last change)
   * added uses windows for win32 (deleted that with my last change)
 
 
   Revision 1.7  2004/09/19 14:51:03  armin
   Revision 1.7  2004/09/19 14:51:03  armin

+ 7 - 4
ide/wconsole.pas

@@ -40,9 +40,9 @@ interface
 {$ifdef go32v2}
 {$ifdef go32v2}
       longint
       longint
 {$endif go32v2}
 {$endif go32v2}
-{$ifdef netwlibc}
+{$ifdef netware}
       longint
       longint
-{$endif netwlibc}
+{$endif netware}
     ;
     ;
 
 
 Procedure SaveConsoleMode(var ConsoleMode : TConsoleMode);
 Procedure SaveConsoleMode(var ConsoleMode : TConsoleMode);
@@ -65,7 +65,7 @@ Begin
 {$ifdef go32v2}
 {$ifdef go32v2}
   ConsoleMode:=0;
   ConsoleMode:=0;
 {$endif go32v2}
 {$endif go32v2}
-{$ifdef netwlibc}
+{$ifdef netware}
   ConsoleMode:=0;
   ConsoleMode:=0;
 {$endif}
 {$endif}
 End;
 End;
@@ -86,7 +86,10 @@ end.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.7  2004-09-19 14:51:03  armin
+  Revision 1.8  2004-11-06 19:56:14  armin
+  * support target netware
+
+  Revision 1.7  2004/09/19 14:51:03  armin
   * added support for target netwlibc
   * added support for target netwlibc
 
 
   Revision 1.6  2003/11/19 17:11:40  marco
   Revision 1.6  2003/11/19 17:11:40  marco

+ 13 - 2
ide/whelp.pas

@@ -197,6 +197,9 @@ uses
 {$ENDIF OS2}
 {$ENDIF OS2}
 {$ifdef netwlibc}
 {$ifdef netwlibc}
   Libc,
   Libc,
+{$endif}
+{$ifdef netware_clib}
+  nwserv,
 {$endif}
 {$endif}
   Strings,
   Strings,
   WConsts;
   WConsts;
@@ -340,7 +343,12 @@ begin
   GetDosTicks:=((tv.tv_sec mod 86400) div 60)*1092+((tv.tv_Sec mod 60)*1000000+tv.tv_USec) div 549
   GetDosTicks:=((tv.tv_sec mod 86400) div 60)*1092+((tv.tv_Sec mod 60)*1000000+tv.tv_USec) div 549
 end;
 end;
 {$endif}
 {$endif}
-	      
+{$ifdef netware_clib}
+begin
+  GetDosTicks := Nwserv.GetCurrentTicks;
+end;
+{$endif}
+
 
 
 procedure DisposeRecord(var R: TRecord);
 procedure DisposeRecord(var R: TRecord);
 begin
 begin
@@ -970,7 +978,10 @@ end;
 END.
 END.
 {
 {
   $Log$
   $Log$
-  Revision 1.11  2004-09-16 22:08:13  armin
+  Revision 1.12  2004-11-06 19:56:14  armin
+  * support target netware
+
+  Revision 1.11  2004/09/16 22:08:13  armin
   * added target netwlibc
   * added target netwlibc
 
 
   Revision 1.10  2003/09/27 14:03:45  peter
   Revision 1.10  2003/09/27 14:03:45  peter