* added targets netware and netwlibc

fv/drivers.pas

@@ -83,6 +83,13 @@ USES
      {$endif}
    {$ENDIF}
 
+   {$IFDEF OS_NETWARE_LIBC}
+      libc,
+   {$ENDIF}
+   {$IFDEF OS_NETWARE_CLIB}
+      nwserv,
+   {$ENDIF}
+
    video,
    SysMsg,
    FVCommon, Objects;                                 { GFV standard units }
@@ -721,6 +728,21 @@ Function GetDosTicks:longint; { returns ticks at 18.2 Hz, just like DOS }
     GetDosTicks:=MemL[$40:$6c];
   end;
 {$ENDIF OS_DOS}
+{$IFDEF OS_NETWARE_LIBC}
+var
+  tv : TTimeVal;
+  tz : TTimeZone;
+  begin
+    fpGetTimeOfDay(tv,tz);
+    GetDosTicks:=((tv.tv_sec mod 86400) div 60)*1092+((tv.tv_Sec mod 60)*1000000+tv.tv_USec) div 549
+  end;
+{$ENDIF}
+{$IFDEF OS_NETWARE_CLIB}
+  begin
+    GetDosTicks := Nwserv.GetCurrentTicks;
+  end;
+{$ENDIF}
+
 
 {---------------------------------------------------------------------------}
 {                UNINITIALIZED DOS/DPMI/WIN/NT/OS2 VARIABLES                }
@@ -1443,7 +1465,10 @@ BEGIN
 END.
 {
  $Log$
- Revision 1.43  2004-11-06 17:08:48  peter
+ Revision 1.44  2004-11-06 19:19:30  armin
+ * added targets netware and netwlibc
+
+ Revision 1.43  2004/11/06 17:08:48  peter
    * drawing of tview merged from old fv code
 
 }

fv/platform.inc

@@ -198,6 +198,20 @@ FOR FPC THESE ARE THE TRANSLATIONS
   {$DEFINE OS_UNIX}
 {$ENDIF}
 
+{------------------------------------------------}
+{  FPC Netware COMPILER changes operating system }
+{------------------------------------------------}
+{$IFDEF Netware}
+  {$UNDEF OS_DOS}
+  {$DEFINE OS_NETWARE}
+  {$IFDEF NETWARE_LIBC}
+    {$DEFINE OS_NETWARE_LIBC}
+  {$ELSE}
+    {$DEFINE OS_NETWARE_CLIB}
+  {$ENDIF}
+  {$DEFINE HasSysMsgUnit}
+{$ENDIF}
+
 {---------------------------------------------------------------------------}
 {  FPC GO32V2 COMPILER changes operating system - Updated 27Aug98 LdB       }
 {---------------------------------------------------------------------------}
@@ -386,7 +400,10 @@ FOR FPC THESE ARE THE TRANSLATIONS
 
 {
  $Log$
- Revision 1.13  2004-11-04 20:57:58  peter
+ Revision 1.14  2004-11-06 19:19:31  armin
+ * added targets netware and netwlibc
+
+ Revision 1.13  2004/11/04 20:57:58  peter
  sysmsgs is always available
 
  Revision 1.12  2004/11/03 20:33:05  peter

fv/time.pas

@@ -185,6 +185,10 @@ PROCEDURE SecondsToTime (Sd: LongInt; Var Hour24, Minute, Second: Word);
   USES Dos;
 {$endif OS_GO32}
 
+{$ifdef OS_NETWARE}
+  USES Dos;
+{$endif OS_GO32}
+
 {***************************************************************************}
 {                            INTERFACE ROUTINES                             }
 {***************************************************************************}
@@ -317,6 +321,11 @@ BEGIN
  {settime is dummy in Linux}
 END;
 {$endif OS_UNIX}
+{$IFDEF OS_NETWARE}
+BEGIN
+ {settime is dummy in Netware (Libc and Clib) }
+END;
+{$ENDIF OS_NETWARE}
 
 {---------------------------------------------------------------------------}
 {  GetTime -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 06Nov97 LdB           }
@@ -429,6 +438,11 @@ BEGIN
   Dos.GetTime(Hour,Minute,Second,Sec100);
 END;
 {$endif OS_UNIX}
+{$IFDEF OS_NETWARE}
+BEGIN
+  Dos.GetTime(Hour,Minute,Second,Sec100);
+END;
+{$ENDIF OS_NETWARE}
 
 {---------------------------------------------------------------------------}
 {  MinutesToTime -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 19Jun97 LdB     }
@@ -453,7 +467,10 @@ END.
 
 {
  $Log$
- Revision 1.12  2004-11-06 17:08:48  peter
+ Revision 1.13  2004-11-06 19:19:31  armin
+ * added targets netware and netwlibc
+
+ Revision 1.12  2004/11/06 17:08:48  peter
    * drawing of tview merged from old fv code
 
 }