126 lines
3.4 KiB
ObjectPascal

(* ***** BEGIN LICENSE BLOCK *****
* Version: MPL 1.1/GPL 2.0/LGPL 2.1
*
* The contents of this file are subject to the Mozilla Public License Version
* 1.1 (the "License"); you may not use this file except in compliance with
* the License. You may obtain a copy of the License at
* http://www.mozilla.org/MPL/
*
* Software distributed under the License is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
* for the specific language governing rights and limitations under the
* License.
*
* The Original Code is mozilla.org.
*
* The Initial Developer of the Original Code is
* Netscape Communications Corpotation.
* Portions created by the Initial Developer are Copyright (C) 1998
* the Initial Developer. All Rights Reserved.
*
* Contributor(s):
* Takanori Itou <necottie@nesitive.net>
*
* Alternatively, the contents of this file may be used under the terms of
* either the GNU General Public License Version 2 or later (the "GPL"), or
* the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
* in which case the provisions of the GPL or the LGPL are applicable instead
* of those above. If you wish to allow use of your version of this file only
* under the terms of either the GPL or the LGPL, and not to allow others to
* use your version of this file under the terms of the MPL, indicate your
* decision by deleting the provisions above and replace them with the notice
* and other provisions required by the GPL or the LGPL. If you do not delete
* the provisions above, a recipient may use your version of this file under
* the terms of any one of the MPL, the GPL or the LGPL.
*
* ***** END LICENSE BLOCK ***** *)
unit nsTypes;
interface
type
PRBool = LongBool;
PRUint8 = Byte;
PRUint16 = Word;
PRUint32 = Longword;
PRUint64 = Int64;
PRTime = Int64;
PRInt8 = Shortint;
PRInt16 = Smallint;
PRInt32 = Longint;
PRInt64 = Int64;
nsresult = PRint32;
nsrefcnt = PRint32;
{$IFNDEF FPC}
size_t = SizeUint;
{$ENDIF}
{$IFDEF CPU64}
PRSize = PtrUInt;
{$ELSE}
PRSize = PRUint32;
{$ENDIF}
PRFileDesc = type Pointer;
PRLibrary = type Pointer;
nsCoord = PRInt32;
nsPoint = record
x, y: nsCoord;
end;
nsRect = record
left, top, right, bottom: nsCoord;
end;
nsMargin = record
left, top, right, bottom: nsCoord;
end;
TGUIDArray = array[0..16383] of TGUID;
nsHashKey = type Pointer;
// not FROZEN interfaces
nsIDOMCounter = interface end;
nsIDOMRect = interface end;
nsIDOMRGBColor = interface end;
nsIPrintSession = interface end;
nsIAuthPrompt = interface end;
nsIWidget = interface end;
PPWideCharArray = ^PWideCharArray;
PWideCharArray = array[0..16383] of PWideChar;
PPAnsiCharArray = ^PAnsiCharArray;
PAnsiCharArray = array[0..16383] of PAnsiChar;
PGUIDArray = array[0..16383] of PGUID;
PPRFileDesc = type Pointer;
PFile = type Pointer;
PPRLibrary = type Pointer;
PRUint8Array = ^PRUint8;
GREVersionRange = record
lower: PAnsiChar;
lowerInclusive: PRBool;
upper: PAnsiChar;
upperInclusive: PRBool;
end;
PGREVersionRangeArray = ^GREVersionRangeArray;
GREVersionRangeArray = array [0..SizeOf(GREVersionRange)] of GREVersionRange;
GREProperty = record
property_: PAnsiChar;
value: PAnsiChar;
end;
PGREPropertyArray = ^GREPropertyArray;
GREPropertyArray = array[0..SizeOf(GREProperty)] of GREProperty;
implementation
end.