* added unixtype unit in addition to baseunix unit (currently baseunix contains all types of unixtype)

git-svn-id: trunk@11782 -
This commit is contained in:
ivost 2008-09-14 18:54:55 +00:00
parent cd6b57c733
commit 2439dbd5a6
14 changed files with 17 additions and 14 deletions

View File

@ -39,7 +39,7 @@ type
implementation implementation
uses baseunix, Unix; uses unixtype, baseunix, Unix;
const const
MaxHandle = SizeOf(TFDSet) * 8 - 1; MaxHandle = SizeOf(TFDSet) * 8 - 1;

View File

@ -95,7 +95,7 @@ USES
Libc, // MvdV: Nothing is used from this??? Libc, // MvdV: Nothing is used from this???
{$ENDIF} {$ENDIF}
{$ifdef Unix} {$ifdef Unix}
BaseUnix, Unix, UnixType, BaseUnix, Unix,
{$endif} {$endif}
(*$IFDEF MSWINDOWS *) (*$IFDEF MSWINDOWS *)
Windows, Windows,

View File

@ -108,7 +108,7 @@ implementation
uses LibTar, uses LibTar,
{$IFDEF UNIX} {$IFDEF UNIX}
Unix,BaseUnix, UnixType,Unix,BaseUnix,
{$ENDIF} {$ENDIF}
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
windows, windows,

View File

@ -145,6 +145,8 @@ Uses
{$endif WINDOWS} {$endif WINDOWS}
{$ifdef UNIX} {$ifdef UNIX}
uses uses
ctypes,
UnixType,
Unix, Unix,
Baseunix; Baseunix;
{$endif UNIX} {$endif UNIX}

View File

@ -86,7 +86,7 @@ USES
{$ifdef VER1_0} {$ifdef VER1_0}
linux, linux,
{$else} {$else}
baseunix,unix, unixtype,baseunix,unix,
{$endif} {$endif}
{$ENDIF} {$ENDIF}

View File

@ -25,7 +25,7 @@ unit gdk2x;
interface interface
uses uses
Classes, SysUtils, Unix, BaseUnix, glib2, gdk2, XLib, X, XRender; Classes, SysUtils, UnixType, Unix, BaseUnix, glib2, gdk2, XLib, X, XRender;
{$ifdef FREEBSD} {$ifdef FREEBSD}
{$linklib pthread} {$linklib pthread}

View File

@ -22,7 +22,7 @@ interface
{DEFINE LOADDYNAMIC} {DEFINE LOADDYNAMIC}
uses uses
baseunix, ctypes,unixtype,baseunix,
{$ifdef LOADDYNAMIC} {$ifdef LOADDYNAMIC}
dl, dl,
{$endif} {$endif}

View File

@ -14,7 +14,7 @@ uses
windows, windows,
{$ENDIF} {$ENDIF}
{$IFDEF UNIX} {$IFDEF UNIX}
baseunix, unixtype,
{$ENDIF} {$ENDIF}
ctypes; ctypes;

View File

@ -41,7 +41,7 @@ interface
uses uses
{$ifdef UNIX} {$ifdef UNIX}
BaseUnix, UnixType,BaseUnix,
{$endif} {$endif}
{$ifdef Windows} {$ifdef Windows}
WinSock, Windows, WinSock, Windows,

View File

@ -25,16 +25,16 @@ uses initc,BaseUnix, unixtype;
{$i pthrbsd.inc} {$i pthrbsd.inc}
{$else} {$else}
{$ifdef linux} {$ifdef linux}
uses initc,unixtype; uses initc, ctypes, unixtype;
{$i pthrlinux.inc} {$i pthrlinux.inc}
{$else} {$else}
{$ifdef sunos} {$ifdef sunos}
uses initc,unixtype; uses initc, ctypes, unixtype;
{$i pthrsnos.inc} {$i pthrsnos.inc}
{$else} {$else}
{$ifdef beos} {$ifdef beos}
uses initc, baseunix, unixtype; uses initc, ctypes, baseunix, unixtype;
{$i pthrbeos.inc} {$i pthrbeos.inc}
{$else} {$else}
{$error operating system not detected} {$error operating system not detected}

View File

@ -300,6 +300,7 @@ uses
{$IFDEF UNIX} {$IFDEF UNIX}
{$IFDEF FPC} {$IFDEF FPC}
pthreads, pthreads,
unixtype,
baseunix, baseunix,
{$IFNDEF GP2X} {$IFNDEF GP2X}
unix, unix,

View File

@ -3,7 +3,7 @@ unit grp;
interface interface
uses uses
initc,baseunix,ctypes; initc,unixtype,baseunix,ctypes;
{$IFDEF FPC} {$IFDEF FPC}
{$PACKRECORDS C} {$PACKRECORDS C}

View File

@ -3,7 +3,7 @@ unit pwd;
interface interface
uses uses
initc,baseunix,ctypes; initc,unixtype,baseunix,ctypes;
{$IFDEF FPC} {$IFDEF FPC}
{$PACKRECORDS C} {$PACKRECORDS C}

View File

@ -2,7 +2,7 @@ unit users;
Interface Interface
{$mode delphi} {$mode delphi}
uses BaseUnix,pwd,grp, {$ifdef Linux} shadow,{$endif}SysUtils,Classes; uses UnixType,BaseUnix,pwd,grp, {$ifdef Linux} shadow,{$endif}SysUtils,Classes;
Type Type
EUserLookupError = Class(Exception); EUserLookupError = Class(Exception);