pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Re-generated .inc files with new version from the idlparser.

Browse Source 
* Some string-types are now not returned as function result but as parameter. Solves several string issues.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2357 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
loesje_
2012-03-19 14:43:54 +00:00
parent 63822c9462
commit 9c2b80b5c4
60 changed files with 193 additions and 300 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/geckoport/version2/Components/GeckoBrowser.pas
View File

@ -1016,7 +1016,7 @@ begin
{$ELSE} {$ELSE}
{$PUSH} {$PUSH}
{$R-} {$R-}
browser.RemoveWebBrowserListener(weak, table.Entries[i].IID); browser.RemoveWebBrowserListener(weak, table.Entries[i].IID^);
{$POP} {$POP}
{$ENDIF} {$ENDIF}
end; end;
@ -1040,7 +1040,7 @@ begin
if Assigned(FDOMEvents) then if Assigned(FDOMEvents) then
begin begin
str := NewString; str := NewString;
str.assign(aEvent.GetType()); aEvent.GetType(str.AString);
eventType := str.ToString; eventType := str.ToString;
I := 0; I := 0;
while FDOMEvents[I].eventType <>etNone do while FDOMEvents[I].eventType <>etNone do
@ -1755,8 +1755,7 @@ begin
UseParameter(aWebProgress); UseParameter(aWebProgress);
UseParameter(aRequest); UseParameter(aRequest);
str := NewCString; str := NewCString;
// This leads to crashes. Seems to be a problem in the calling-convention. location.GetSpec(str.ACString);
//str.assign(location.GetSpec());
{$IFDEF DEBUG} {$IFDEF DEBUG}
{ {
OutputDebugStringA(PAnsiChar( OutputDebugStringA(PAnsiChar(
@ -2145,7 +2144,7 @@ begin
str :=NewUTF8String; str :=NewUTF8String;
//URI //URI
if Self.WebNavigation <> nil then if Self.WebNavigation <> nil then
str.assign(Self.WebNavigation.CurrentURI.GetSpec); Self.WebNavigation.CurrentURI.GetSpec(str.AUtf8String);
Result := str.ToString; Result := str.ToString;
end; end;
@ -2296,7 +2295,7 @@ begin
try try
str := NewUTF8String; str := NewUTF8String;
uri := FInfo.GetImageSrc(); uri := FInfo.GetImageSrc();
str.assign(uri.GetSpec); uri.GetSpec(str.Autf8String);
Result := str.ToString; Result := str.ToString;
except except
end; end;
@ -2310,7 +2309,7 @@ begin
try try
str := NewUTF8String; str := NewUTF8String;
uri := FInfo.GetBackgroundImageSrc(); uri := FInfo.GetBackgroundImageSrc();
str.assign(uri.GetSpec); uri.GetSpec(str.AUtf8String);
Result := str.ToString; Result := str.ToString;
except except
end; end;

8
components/geckoport/version2/Components/GeckoPromptService.pas
View File

@ -49,7 +49,7 @@ type
{ IPromptServiceFactory } { IPromptServiceFactory }
IPromptServiceFactory = class(TInterfacedObject,nsIFactory) IPromptServiceFactory = class(TInterfacedObject,nsIFactory)
procedure CreateInstance(aOuter: nsISupports; iid: nsIIDRef; out result); safecall; procedure CreateInstance(aOuter: nsISupports; constref iid: Tguid; out result); safecall;
procedure LockFactory(lock: longbool); safecall; procedure LockFactory(lock: longbool); safecall;
end; end;
@ -184,7 +184,7 @@ begin
if not Assigned(GeckoPromptServiceFactory) then begin if not Assigned(GeckoPromptServiceFactory) then begin
NS_GetComponentRegistrar(ComponentRegistrar); NS_GetComponentRegistrar(ComponentRegistrar);
GeckoPromptServiceFactory:=IPromptServiceFactory.Create; GeckoPromptServiceFactory:=IPromptServiceFactory.Create;
ComponentRegistrar.RegisterFactory(@NS_PROMPT_SERVICE_CID,'Prompt Service',nil,GeckoPromptServiceFactory); ComponentRegistrar.RegisterFactory(NS_PROMPT_SERVICE_CID,'Prompt Service',nil,GeckoPromptServiceFactory);
end; end;
end; end;
@ -341,11 +341,11 @@ end;
{ IPromptServiceFactory } { IPromptServiceFactory }
procedure IPromptServiceFactory.CreateInstance(aOuter: nsISupports; iid: nsIIDRef; out result); safecall; procedure IPromptServiceFactory.CreateInstance(aOuter: nsISupports; constref iid: Tguid; out result); safecall;
begin begin
if not Assigned(ThisGeckoPromptService) then if not Assigned(ThisGeckoPromptService) then
ThisGeckoPromptService:=IPromptService.Create; ThisGeckoPromptService:=IPromptService.Create;
ThisGeckoPromptService.QueryInterface(IID^,result); ThisGeckoPromptService.QueryInterface(IID,result);
end; end;
procedure IPromptServiceFactory.LockFactory(lock: longbool); safecall; procedure IPromptServiceFactory.LockFactory(lock: longbool); safecall;

2
components/geckoport/version2/domstubs.inc
View File

@ -1,5 +1,5 @@
type type
DOMTimeMilliSec = culonglong; DOMTimeMilliSec = qword;
type type
// nsIDOMAttr = interface; // nsIDOMAttr = interface;

12
components/geckoport/version2/gecko10/idltypemap.cfg
View File

@ -2,3 +2,15 @@ wstring=PWideChar
string=PAnsiChar string=PAnsiChar
boolean=longbool boolean=longbool
FILE=PFILE FILE=PFILE
nsQIResult,out=
nsCIDRef,in=TGuid,constref
nsIIDRef,in=TGuid,constref
long=idllong
short=idlshort
float=idlfloat
long,unsigned=idlulong
short,unsigned=idlushort
float,unsigned=idlufloat
AUTF8String,f=AUTF8String,
ACString,f=ACString,
DOMString,f=DOMString,

2
components/geckoport/version2/gecko10/nsiatom.inc
View File

@ -3,7 +3,7 @@ type
nsIAtom = interface(nsISupports) nsIAtom = interface(nsISupports)
['{1f341018-521a-49de-b806-1bef5c9a00b0}'] ['{1f341018-521a-49de-b806-1bef5c9a00b0}']
function toString() : AString; safecall; function toString() : AString; safecall;
function toUTF8String() : AUTF8String; safecall; procedure toUTF8String( result_: AUTF8String); safecall;
function equals(aString: AString) : longbool; safecall; function equals(aString: AString) : longbool; safecall;
function equalsUTF8(aString: AUTF8String) : longbool; safecall; function equalsUTF8(aString: AUTF8String) : longbool; safecall;
function isStaticAtom() : longbool; safecall; function isStaticAtom() : longbool; safecall;

3
components/geckoport/version2/gecko10/nsiauthinformation.inc
View File

@ -6,8 +6,7 @@ type
property flags : idlulong read Getflags; property flags : idlulong read Getflags;
function Getrealm(): AString; safecall; function Getrealm(): AString; safecall;
property realm : AString read Getrealm; property realm : AString read Getrealm;
function GetauthenticationScheme(): AUTF8String; safecall; procedure GetauthenticationScheme( result_: AUTF8String); safecall;
property authenticationScheme : AUTF8String read GetauthenticationScheme;
function Getusername(): AString; safecall; function Getusername(): AString; safecall;
procedure Setusername(ausername: AString); safecall; procedure Setusername(ausername: AString); safecall;
property username : AString read Getusername write Setusername; property username : AString read Getusername write Setusername;

2
components/geckoport/version2/gecko10/nsibinaryinputstream.inc
View File

@ -10,7 +10,7 @@ type
function read64() : PRUint64; safecall; function read64() : PRUint64; safecall;
function readFloat() : idlfloat; safecall; function readFloat() : idlfloat; safecall;
function readDouble() : double; safecall; function readDouble() : double; safecall;
function readCString() : ACString; safecall; procedure readCString( result_: ACString); safecall;
function readString() : AString; safecall; function readString() : AString; safecall;
procedure readBytes(aLength: PRUint32; out aString: PAnsiChar); safecall; procedure readBytes(aLength: PRUint32; out aString: PAnsiChar); safecall;
procedure readByteArray(aLength: PRUint32; out aBytes: PRUint8); safecall; procedure readByteArray(aLength: PRUint32; out aBytes: PRUint8); safecall;

9
components/geckoport/version2/gecko10/nsichannel.inc
View File

@ -15,12 +15,10 @@ type
property notificationCallbacks : nsIInterfaceRequestor read GetnotificationCallbacks write SetnotificationCallbacks; property notificationCallbacks : nsIInterfaceRequestor read GetnotificationCallbacks write SetnotificationCallbacks;
function GetsecurityInfo(): nsISupports; safecall; function GetsecurityInfo(): nsISupports; safecall;
property securityInfo : nsISupports read GetsecurityInfo; property securityInfo : nsISupports read GetsecurityInfo;
function GetcontentType(): ACString; safecall; procedure GetcontentType( result_: ACString); safecall;
procedure SetcontentType(acontentType: ACString); safecall; procedure SetcontentType(acontentType: ACString); safecall;
property contentType : ACString read GetcontentType write SetcontentType; procedure GetcontentCharset( result_: ACString); safecall;
function GetcontentCharset(): ACString; safecall;
procedure SetcontentCharset(acontentCharset: ACString); safecall; procedure SetcontentCharset(acontentCharset: ACString); safecall;
property contentCharset : ACString read GetcontentCharset write SetcontentCharset;
function GetcontentLength(): idllong; safecall; function GetcontentLength(): idllong; safecall;
procedure SetcontentLength(acontentLength: idllong); safecall; procedure SetcontentLength(acontentLength: idllong); safecall;
property contentLength : idllong read GetcontentLength write SetcontentLength; property contentLength : idllong read GetcontentLength write SetcontentLength;
@ -30,8 +28,7 @@ type
property contentDisposition : idlulong read GetcontentDisposition; property contentDisposition : idlulong read GetcontentDisposition;
function GetcontentDispositionFilename(): AString; safecall; function GetcontentDispositionFilename(): AString; safecall;
property contentDispositionFilename : AString read GetcontentDispositionFilename; property contentDispositionFilename : AString read GetcontentDispositionFilename;
function GetcontentDispositionHeader(): ACString; safecall; procedure GetcontentDispositionHeader( result_: ACString); safecall;
property contentDispositionHeader : ACString read GetcontentDispositionHeader;
end; end;

2
components/geckoport/version2/gecko10/nsicollection.inc
View File

@ -4,7 +4,7 @@ type
['{83b6019c-cbc4-11d2-8cca-0060b0fc14a3}'] ['{83b6019c-cbc4-11d2-8cca-0060b0fc14a3}']
function Count() : PRUint32; safecall; function Count() : PRUint32; safecall;
function GetElementAt(index: PRUint32) : nsISupports; safecall; function GetElementAt(index: PRUint32) : nsISupports; safecall;
procedure QueryElementAt(index: PRUint32; uuid: nsIIDRef; out result: nsQIResult); safecall; procedure QueryElementAt(index: PRUint32; constref uuid: TGuid; out result); safecall;
procedure SetElementAt(index: PRUint32; item: nsISupports); safecall; procedure SetElementAt(index: PRUint32; item: nsISupports); safecall;
procedure AppendElement(item: nsISupports); safecall; procedure AppendElement(item: nsISupports); safecall;
procedure RemoveElement(item: nsISupports); safecall; procedure RemoveElement(item: nsISupports); safecall;

8
components/geckoport/version2/gecko10/nsicomponentmanager.inc
View File

@ -2,10 +2,10 @@ type
nsIComponentManager = interface(nsISupports) nsIComponentManager = interface(nsISupports)
['{1d940426-5fe5-42c3-84ae-a300f2d9ebd5}'] ['{1d940426-5fe5-42c3-84ae-a300f2d9ebd5}']
procedure getClassObject(aClass: nsCIDRef; aIID: nsIIDRef; out result); safecall; procedure getClassObject(constref aClass: TGuid; constref aIID: TGuid; out result); safecall;
procedure getClassObjectByContractID(aContractID: PAnsiChar; aIID: nsIIDRef; out result); safecall; procedure getClassObjectByContractID(aContractID: PAnsiChar; constref aIID: TGuid; out result); safecall;
procedure createInstance(aClass: nsCIDRef; aDelegate: nsISupports; aIID: nsIIDRef; out result); safecall; procedure createInstance(constref aClass: TGuid; aDelegate: nsISupports; constref aIID: TGuid; out result); safecall;
procedure createInstanceByContractID(aContractID: PAnsiChar; aDelegate: nsISupports; aIID: nsIIDRef; out result); safecall; procedure createInstanceByContractID(aContractID: PAnsiChar; aDelegate: nsISupports; constref aIID: TGuid; out result); safecall;
procedure addBootstrappedManifestLocation(aLocation: nsILocalFile); safecall; procedure addBootstrappedManifestLocation(aLocation: nsILocalFile); safecall;
procedure removeBootstrappedManifestLocation(aLocation: nsILocalFile); safecall; procedure removeBootstrappedManifestLocation(aLocation: nsILocalFile); safecall;

12
components/geckoport/version2/gecko10/nsicomponentregistrar.inc
View File

@ -4,15 +4,15 @@ type
['{2417cbfe-65ad-48a6-b4b6-eb84db174392}'] ['{2417cbfe-65ad-48a6-b4b6-eb84db174392}']
procedure autoRegister(aSpec: nsIFile); safecall; procedure autoRegister(aSpec: nsIFile); safecall;
procedure autoUnregister(aSpec: nsIFile); safecall; procedure autoUnregister(aSpec: nsIFile); safecall;
procedure registerFactory(aClass: nsCIDRef; aClassName: PAnsiChar; aContractID: PAnsiChar; aFactory: nsIFactory); safecall; procedure registerFactory(constref aClass: TGuid; aClassName: PAnsiChar; aContractID: PAnsiChar; aFactory: nsIFactory); safecall;
procedure unregisterFactory(aClass: nsCIDRef; aFactory: nsIFactory); safecall; procedure unregisterFactory(constref aClass: TGuid; aFactory: nsIFactory); safecall;
procedure registerFactoryLocation(aClass: nsCIDRef; aClassName: PAnsiChar; aContractID: PAnsiChar; aFile: nsIFile; aLoaderStr: PAnsiChar; aType: PAnsiChar); safecall; procedure registerFactoryLocation(constref aClass: TGuid; aClassName: PAnsiChar; aContractID: PAnsiChar; aFile: nsIFile; aLoaderStr: PAnsiChar; aType: PAnsiChar); safecall;
procedure unregisterFactoryLocation(aClass: nsCIDRef; aFile: nsIFile); safecall; procedure unregisterFactoryLocation(constref aClass: TGuid; aFile: nsIFile); safecall;
function isCIDRegistered(aClass: nsCIDRef) : longbool; safecall; function isCIDRegistered(constref aClass: TGuid) : longbool; safecall;
function isContractIDRegistered(aContractID: PAnsiChar) : longbool; safecall; function isContractIDRegistered(aContractID: PAnsiChar) : longbool; safecall;
function enumerateCIDs() : nsISimpleEnumerator; safecall; function enumerateCIDs() : nsISimpleEnumerator; safecall;
function enumerateContractIDs() : nsISimpleEnumerator; safecall; function enumerateContractIDs() : nsISimpleEnumerator; safecall;
function CIDToContractID(aClass: nsCIDRef) : PAnsiChar; safecall; function CIDToContractID(constref aClass: TGuid) : PAnsiChar; safecall;
function contractIDToCID(aContractID: PAnsiChar) : nsCIDPtr; safecall; function contractIDToCID(aContractID: PAnsiChar) : nsCIDPtr; safecall;
end; end;

6
components/geckoport/version2/gecko10/nsidomattr.inc
View File

@ -2,13 +2,11 @@ type
nsIDOMAttr = interface(nsIDOMNode) nsIDOMAttr = interface(nsIDOMNode)
['{03da4bc9-1b9a-41dc-a1a4-32414d48d704}'] ['{03da4bc9-1b9a-41dc-a1a4-32414d48d704}']
function Getname(): DOMString; safecall; procedure Getname( result_: DOMString); safecall;
property name : DOMString read Getname;
function Getspecified(): longbool; safecall; function Getspecified(): longbool; safecall;
property specified : longbool read Getspecified; property specified : longbool read Getspecified;
function Getvalue(): DOMString; safecall; procedure Getvalue( result_: DOMString); safecall;
procedure Setvalue(avalue: DOMString); safecall; procedure Setvalue(avalue: DOMString); safecall;
property value : DOMString read Getvalue write Setvalue;
function GetownerElement(): nsIDOMElement; safecall; function GetownerElement(): nsIDOMElement; safecall;
property ownerElement : nsIDOMElement read GetownerElement; property ownerElement : nsIDOMElement read GetownerElement;
function GetisId(): longbool; safecall; function GetisId(): longbool; safecall;

5
components/geckoport/version2/gecko10/nsidomcharacterdata.inc
View File

@ -2,12 +2,11 @@ type
nsIDOMCharacterData = interface(nsIDOMNode) nsIDOMCharacterData = interface(nsIDOMNode)
['{cb75c251-afc7-444f-b2d6-b9635555f3ed}'] ['{cb75c251-afc7-444f-b2d6-b9635555f3ed}']
function Getdata(): DOMString; safecall; procedure Getdata( result_: DOMString); safecall;
procedure Setdata(adata: DOMString); safecall; procedure Setdata(adata: DOMString); safecall;
property data : DOMString read Getdata write Setdata;
function Getlength(): idlulong; safecall; function Getlength(): idlulong; safecall;
property length : idlulong read Getlength; property length : idlulong read Getlength;
function substringData(offset: idlulong; count: idlulong) : DOMString; safecall; procedure substringData(offset: idlulong; count: idlulong; result_: DOMString); safecall;
procedure appendData(arg: DOMString); safecall; procedure appendData(arg: DOMString); safecall;
procedure insertData(offset: idlulong; arg: DOMString); safecall; procedure insertData(offset: idlulong; arg: DOMString); safecall;
procedure deleteData(offset: idlulong; count: idlulong); safecall; procedure deleteData(offset: idlulong; count: idlulong); safecall;

11
components/geckoport/version2/gecko10/nsidomcrypto.inc
View File

@ -2,16 +2,15 @@ type
nsIDOMCrypto = interface(nsISupports) nsIDOMCrypto = interface(nsISupports)
['{12b6d899-2aed-4ea9-8c02-2223ab7ab592}'] ['{12b6d899-2aed-4ea9-8c02-2223ab7ab592}']
function Getversion(): DOMString; safecall; procedure Getversion( result_: DOMString); safecall;
property version : DOMString read Getversion;
function GetenableSmartCardEvents(): longbool; safecall; function GetenableSmartCardEvents(): longbool; safecall;
procedure SetenableSmartCardEvents(aenableSmartCardEvents: longbool); safecall; procedure SetenableSmartCardEvents(aenableSmartCardEvents: longbool); safecall;
property enableSmartCardEvents : longbool read GetenableSmartCardEvents write SetenableSmartCardEvents; property enableSmartCardEvents : longbool read GetenableSmartCardEvents write SetenableSmartCardEvents;
function generateCRMFRequest() : nsIDOMCRMFObject; safecall; function generateCRMFRequest() : nsIDOMCRMFObject; safecall;
function importUserCertificates(nickname: DOMString; cmmfResponse: DOMString; doForcedBackup: longbool) : DOMString; safecall; procedure importUserCertificates(nickname: DOMString; cmmfResponse: DOMString; doForcedBackup: longbool; result_: DOMString); safecall;
function popChallengeResponse(challenge: DOMString) : DOMString; safecall; procedure popChallengeResponse(challenge: DOMString; result_: DOMString); safecall;
function random(numBytes: idllong) : DOMString; safecall; procedure random(numBytes: idllong; result_: DOMString); safecall;
function signText(stringToSign: DOMString; caOption: DOMString) : DOMString; safecall; procedure signText(stringToSign: DOMString; caOption: DOMString; result_: DOMString); safecall;
procedure logout(); safecall; procedure logout(); safecall;
procedure disableRightClick(); safecall; procedure disableRightClick(); safecall;

39
components/geckoport/version2/gecko10/nsidomdocument.inc
View File

@ -21,10 +21,8 @@ type
function createAttributeNS(anamespaceURI: DOMString; aqualifiedName: DOMString) : nsIDOMAttr; safecall; function createAttributeNS(anamespaceURI: DOMString; aqualifiedName: DOMString) : nsIDOMAttr; safecall;
function getElementsByTagNameNS(anamespaceURI: DOMString; alocalName: DOMString) : nsIDOMNodeList; safecall; function getElementsByTagNameNS(anamespaceURI: DOMString; alocalName: DOMString) : nsIDOMNodeList; safecall;
function getElementById(anelementId: DOMString) : nsIDOMElement; safecall; function getElementById(anelementId: DOMString) : nsIDOMElement; safecall;
function GetinputEncoding(): DOMString; safecall; procedure GetinputEncoding( result_: DOMString); safecall;
property inputEncoding : DOMString read GetinputEncoding; procedure GetdocumentURI( result_: DOMString); safecall;
function GetdocumentURI(): DOMString; safecall;
property documentURI : DOMString read GetdocumentURI;
function adoptNode(asource: nsIDOMNode) : nsIDOMNode; safecall; function adoptNode(asource: nsIDOMNode) : nsIDOMNode; safecall;
function createRange() : nsIDOMRange; safecall; function createRange() : nsIDOMRange; safecall;
function createNodeIterator(aroot: nsIDOMNode; awhatToShow: idlulong; afilter: nsIDOMNodeFilter; anentityReferenceExpansion: longbool) : nsIDOMNodeIterator; safecall; function createNodeIterator(aroot: nsIDOMNode; awhatToShow: idlulong; afilter: nsIDOMNodeFilter; anentityReferenceExpansion: longbool) : nsIDOMNodeIterator; safecall;
@ -32,41 +30,31 @@ type
function createEvent(aneventType: DOMString) : nsIDOMEvent; safecall; function createEvent(aneventType: DOMString) : nsIDOMEvent; safecall;
function GetdefaultView(): nsIDOMWindow; safecall; function GetdefaultView(): nsIDOMWindow; safecall;
property defaultView : nsIDOMWindow read GetdefaultView; property defaultView : nsIDOMWindow read GetdefaultView;
function GetcharacterSet(): DOMString; safecall; procedure GetcharacterSet( result_: DOMString); safecall;
property characterSet : DOMString read GetcharacterSet; procedure Getdir( result_: DOMString); safecall;
function Getdir(): DOMString; safecall;
procedure Setdir(adir: DOMString); safecall; procedure Setdir(adir: DOMString); safecall;
property dir : DOMString read Getdir write Setdir;
function Getlocation(): nsIDOMLocation; safecall; function Getlocation(): nsIDOMLocation; safecall;
property location : nsIDOMLocation read Getlocation; property location : nsIDOMLocation read Getlocation;
function Gettitle(): DOMString; safecall; procedure Gettitle( result_: DOMString); safecall;
procedure Settitle(atitle: DOMString); safecall; procedure Settitle(atitle: DOMString); safecall;
property title : DOMString read Gettitle write Settitle; procedure GetreadyState( result_: DOMString); safecall;
function GetreadyState(): DOMString; safecall; procedure GetlastModified( result_: DOMString); safecall;
property readyState : DOMString read GetreadyState; procedure Getreferrer( result_: DOMString); safecall;
function GetlastModified(): DOMString; safecall;
property lastModified : DOMString read GetlastModified;
function Getreferrer(): DOMString; safecall;
property referrer : DOMString read Getreferrer;
function hasFocus() : longbool; safecall; function hasFocus() : longbool; safecall;
function GetactiveElement(): nsIDOMElement; safecall; function GetactiveElement(): nsIDOMElement; safecall;
property activeElement : nsIDOMElement read GetactiveElement; property activeElement : nsIDOMElement read GetactiveElement;
function getElementsByClassName(aclasses: DOMString) : nsIDOMNodeList; safecall; function getElementsByClassName(aclasses: DOMString) : nsIDOMNodeList; safecall;
function GetstyleSheets(): nsIDOMStyleSheetList; safecall; function GetstyleSheets(): nsIDOMStyleSheetList; safecall;
property styleSheets : nsIDOMStyleSheetList read GetstyleSheets; property styleSheets : nsIDOMStyleSheetList read GetstyleSheets;
function GetpreferredStyleSheetSet(): DOMString; safecall; procedure GetpreferredStyleSheetSet( result_: DOMString); safecall;
property preferredStyleSheetSet : DOMString read GetpreferredStyleSheetSet; procedure GetselectedStyleSheetSet( result_: DOMString); safecall;
function GetselectedStyleSheetSet(): DOMString; safecall;
procedure SetselectedStyleSheetSet(aselectedStyleSheetSet: DOMString); safecall; procedure SetselectedStyleSheetSet(aselectedStyleSheetSet: DOMString); safecall;
property selectedStyleSheetSet : DOMString read GetselectedStyleSheetSet write SetselectedStyleSheetSet; procedure GetlastStyleSheetSet( result_: DOMString); safecall;
function GetlastStyleSheetSet(): DOMString; safecall;
property lastStyleSheetSet : DOMString read GetlastStyleSheetSet;
function GetstyleSheetSets(): nsIDOMDOMStringList; safecall; function GetstyleSheetSets(): nsIDOMDOMStringList; safecall;
property styleSheetSets : nsIDOMDOMStringList read GetstyleSheetSets; property styleSheetSets : nsIDOMDOMStringList read GetstyleSheetSets;
procedure enableStyleSheetsForSet(aname: DOMString); safecall; procedure enableStyleSheetsForSet(aname: DOMString); safecall;
function elementFromPoint(ax: idlfloat; ay: idlfloat) : nsIDOMElement; safecall; function elementFromPoint(ax: idlfloat; ay: idlfloat) : nsIDOMElement; safecall;
function GetcontentType(): DOMString; safecall; procedure GetcontentType( result_: DOMString); safecall;
property contentType : DOMString read GetcontentType;
function GetmozSyntheticDocument(): longbool; safecall; function GetmozSyntheticDocument(): longbool; safecall;
property mozSyntheticDocument : longbool read GetmozSyntheticDocument; property mozSyntheticDocument : longbool read GetmozSyntheticDocument;
function GetcurrentScript(): nsIDOMElement; safecall; function GetcurrentScript(): nsIDOMElement; safecall;
@ -91,8 +79,7 @@ type
property onmouseleave : jsval read Getonmouseleave write Setonmouseleave; property onmouseleave : jsval read Getonmouseleave write Setonmouseleave;
function GetmozHidden(): longbool; safecall; function GetmozHidden(): longbool; safecall;
property mozHidden : longbool read GetmozHidden; property mozHidden : longbool read GetmozHidden;
function GetmozVisibilityState(): DOMString; safecall; procedure GetmozVisibilityState( result_: DOMString); safecall;
property mozVisibilityState : DOMString read GetmozVisibilityState;
end; end;

12
components/geckoport/version2/gecko10/nsidomdocumenttype.inc
View File

@ -2,14 +2,10 @@ type
nsIDOMDocumentType = interface(nsIDOMNode) nsIDOMDocumentType = interface(nsIDOMNode)
['{ac5fd4c5-6c5d-4dfc-878c-7d661aa676de}'] ['{ac5fd4c5-6c5d-4dfc-878c-7d661aa676de}']
function Getname(): DOMString; safecall; procedure Getname( result_: DOMString); safecall;
property name : DOMString read Getname; procedure GetpublicId( result_: DOMString); safecall;
function GetpublicId(): DOMString; safecall; procedure GetsystemId( result_: DOMString); safecall;
property publicId : DOMString read GetpublicId; procedure GetinternalSubset( result_: DOMString); safecall;
function GetsystemId(): DOMString; safecall;
property systemId : DOMString read GetsystemId;
function GetinternalSubset(): DOMString; safecall;
property internalSubset : DOMString read GetinternalSubset;
end; end;

2
components/geckoport/version2/gecko10/nsidomdomstringlist.inc
View File

@ -2,7 +2,7 @@ type
nsIDOMDOMStringList = interface(nsISupports) nsIDOMDOMStringList = interface(nsISupports)
['{0bbae65c-1dde-11d9-8c46-000a95dc234c}'] ['{0bbae65c-1dde-11d9-8c46-000a95dc234c}']
function item(index: idlulong) : DOMString; safecall; procedure item(index: idlulong; result_: DOMString); safecall;
function Getlength(): idlulong; safecall; function Getlength(): idlulong; safecall;
property length : idlulong read Getlength; property length : idlulong read Getlength;
function contains(str: DOMString) : longbool; safecall; function contains(str: DOMString) : longbool; safecall;

7
components/geckoport/version2/gecko10/nsidomelement.inc
View File

@ -2,16 +2,15 @@ type
nsIDOMElement = interface(nsIDOMNode) nsIDOMElement = interface(nsIDOMNode)
['{1f249e8b-7b41-44c0-a8d5-15298c1198cd}'] ['{1f249e8b-7b41-44c0-a8d5-15298c1198cd}']
function GettagName(): DOMString; safecall; procedure GettagName( result_: DOMString); safecall;
property tagName : DOMString read GettagName; procedure getAttribute(aname: DOMString; result_: DOMString); safecall;
function getAttribute(aname: DOMString) : DOMString; safecall;
procedure setAttribute(aname: DOMString; avalue: DOMString); safecall; procedure setAttribute(aname: DOMString; avalue: DOMString); safecall;
procedure removeAttribute(aname: DOMString); safecall; procedure removeAttribute(aname: DOMString); safecall;
function getAttributeNode(aname: DOMString) : nsIDOMAttr; safecall; function getAttributeNode(aname: DOMString) : nsIDOMAttr; safecall;
function setAttributeNode(anewAttr: nsIDOMAttr) : nsIDOMAttr; safecall; function setAttributeNode(anewAttr: nsIDOMAttr) : nsIDOMAttr; safecall;
function removeAttributeNode(anoldAttr: nsIDOMAttr) : nsIDOMAttr; safecall; function removeAttributeNode(anoldAttr: nsIDOMAttr) : nsIDOMAttr; safecall;
function getElementsByTagName(aname: DOMString) : nsIDOMNodeList; safecall; function getElementsByTagName(aname: DOMString) : nsIDOMNodeList; safecall;
function getAttributeNS(anamespaceURI: DOMString; alocalName: DOMString) : DOMString; safecall; procedure getAttributeNS(anamespaceURI: DOMString; alocalName: DOMString; result_: DOMString); safecall;
procedure setAttributeNS(anamespaceURI: DOMString; aqualifiedName: DOMString; avalue: DOMString); safecall; procedure setAttributeNS(anamespaceURI: DOMString; aqualifiedName: DOMString; avalue: DOMString); safecall;
procedure removeAttributeNS(anamespaceURI: DOMString; alocalName: DOMString); safecall; procedure removeAttributeNS(anamespaceURI: DOMString; alocalName: DOMString); safecall;
function getAttributeNodeNS(anamespaceURI: DOMString; alocalName: DOMString) : nsIDOMAttr; safecall; function getAttributeNodeNS(anamespaceURI: DOMString; alocalName: DOMString) : nsIDOMAttr; safecall;

3
components/geckoport/version2/gecko10/nsidomevent.inc
View File

@ -2,8 +2,7 @@ type
nsIDOMEvent = interface(nsISupports) nsIDOMEvent = interface(nsISupports)
['{e85cff74-951f-45c1-be0c-89442ea2f500}'] ['{e85cff74-951f-45c1-be0c-89442ea2f500}']
function Gettype(): DOMString; safecall; procedure Gettype( result_: DOMString); safecall;
property atype : DOMString read Gettype;
function Gettarget(): nsIDOMEventTarget; safecall; function Gettarget(): nsIDOMEventTarget; safecall;
property target : nsIDOMEventTarget read Gettarget; property target : nsIDOMEventTarget read Gettarget;
function GetcurrentTarget(): nsIDOMEventTarget; safecall; function GetcurrentTarget(): nsIDOMEventTarget; safecall;

14
components/geckoport/version2/gecko10/nsidomfile.inc
View File

@ -4,11 +4,10 @@ type
['{d5237f31-443a-460b-9e42-449a135346f0}'] ['{d5237f31-443a-460b-9e42-449a135346f0}']
function Getsize(): idlulong; safecall; function Getsize(): idlulong; safecall;
property size : idlulong read Getsize; property size : idlulong read Getsize;
function Gettype(): DOMString; safecall; procedure Gettype( result_: DOMString); safecall;
property atype : DOMString read Gettype;
function GetinternalStream(): nsIInputStream; safecall; function GetinternalStream(): nsIInputStream; safecall;
property internalStream : nsIInputStream read GetinternalStream; property internalStream : nsIInputStream read GetinternalStream;
function getInternalUrl(principal: nsIPrincipal) : DOMString; safecall; procedure getInternalUrl(principal: nsIPrincipal; result_: DOMString); safecall;
function mozSlice(start: idllong; anend: idllong; contentType: DOMString) : nsIDOMBlob; safecall; function mozSlice(start: idllong; anend: idllong; contentType: DOMString) : nsIDOMBlob; safecall;
end; end;
@ -16,12 +15,9 @@ type
nsIDOMFile = interface(nsIDOMBlob) nsIDOMFile = interface(nsIDOMBlob)
['{b096ef67-7b77-47f8-8e70-5d8ee36416bf}'] ['{b096ef67-7b77-47f8-8e70-5d8ee36416bf}']
function Getname(): DOMString; safecall; procedure Getname( result_: DOMString); safecall;
property name : DOMString read Getname; procedure GetmozFullPath( result_: DOMString); safecall;
function GetmozFullPath(): DOMString; safecall; procedure GetmozFullPathInternal( result_: DOMString); safecall;
property mozFullPath : DOMString read GetmozFullPath;
function GetmozFullPathInternal(): DOMString; safecall;
property mozFullPathInternal : DOMString read GetmozFullPathInternal;
end; end;

11
components/geckoport/version2/gecko10/nsidomhistory.inc
View File

@ -4,16 +4,13 @@ type
['{d5a3006b-dd6b-4ba3-81be-6559f8889e60}'] ['{d5a3006b-dd6b-4ba3-81be-6559f8889e60}']
function Getlength(): idllong; safecall; function Getlength(): idllong; safecall;
property length : idllong read Getlength; property length : idllong read Getlength;
function Getcurrent(): DOMString; safecall; procedure Getcurrent( result_: DOMString); safecall;
property current : DOMString read Getcurrent; procedure Getprevious( result_: DOMString); safecall;
function Getprevious(): DOMString; safecall; procedure Getnext( result_: DOMString); safecall;
property previous : DOMString read Getprevious;
function Getnext(): DOMString; safecall;
property next : DOMString read Getnext;
procedure back(); safecall; procedure back(); safecall;
procedure forward(); safecall; procedure forward(); safecall;
procedure go(aDelta: idllong); safecall; procedure go(aDelta: idllong); safecall;
function item(index: idlulong) : DOMString; safecall; procedure item(index: idlulong; result_: DOMString); safecall;
procedure pushState(aData: nsIVariant; aTitle: DOMString; aURL: DOMString); safecall; procedure pushState(aData: nsIVariant; aTitle: DOMString; aURL: DOMString); safecall;
procedure replaceState(aData: nsIVariant; aTitle: DOMString; aURL: DOMString); safecall; procedure replaceState(aData: nsIVariant; aTitle: DOMString; aURL: DOMString); safecall;
function Getstate(): nsIVariant; safecall; function Getstate(): nsIVariant; safecall;

26
components/geckoport/version2/gecko10/nsidomlocation.inc
View File

@ -2,34 +2,26 @@ type
nsIDOMLocation = interface(nsISupports) nsIDOMLocation = interface(nsISupports)
['{a6cf906d-15b3-11d2-932e-00805f8add32}'] ['{a6cf906d-15b3-11d2-932e-00805f8add32}']
function Gethash(): DOMString; safecall; procedure Gethash( result_: DOMString); safecall;
procedure Sethash(ahash: DOMString); safecall; procedure Sethash(ahash: DOMString); safecall;
property hash : DOMString read Gethash write Sethash; procedure Gethost( result_: DOMString); safecall;
function Gethost(): DOMString; safecall;
procedure Sethost(ahost: DOMString); safecall; procedure Sethost(ahost: DOMString); safecall;
property host : DOMString read Gethost write Sethost; procedure Gethostname( result_: DOMString); safecall;
function Gethostname(): DOMString; safecall;
procedure Sethostname(ahostname: DOMString); safecall; procedure Sethostname(ahostname: DOMString); safecall;
property hostname : DOMString read Gethostname write Sethostname; procedure Gethref( result_: DOMString); safecall;
function Gethref(): DOMString; safecall;
procedure Sethref(ahref: DOMString); safecall; procedure Sethref(ahref: DOMString); safecall;
property href : DOMString read Gethref write Sethref; procedure Getpathname( result_: DOMString); safecall;
function Getpathname(): DOMString; safecall;
procedure Setpathname(apathname: DOMString); safecall; procedure Setpathname(apathname: DOMString); safecall;
property pathname : DOMString read Getpathname write Setpathname; procedure Getport( result_: DOMString); safecall;
function Getport(): DOMString; safecall;
procedure Setport(aport: DOMString); safecall; procedure Setport(aport: DOMString); safecall;
property port : DOMString read Getport write Setport; procedure Getprotocol( result_: DOMString); safecall;
function Getprotocol(): DOMString; safecall;
procedure Setprotocol(aprotocol: DOMString); safecall; procedure Setprotocol(aprotocol: DOMString); safecall;
property protocol : DOMString read Getprotocol write Setprotocol; procedure Getsearch( result_: DOMString); safecall;
function Getsearch(): DOMString; safecall;
procedure Setsearch(asearch: DOMString); safecall; procedure Setsearch(asearch: DOMString); safecall;
property search : DOMString read Getsearch write Setsearch;
procedure reload(forceget: longbool); safecall; procedure reload(forceget: longbool); safecall;
procedure replace(url: DOMString); safecall; procedure replace(url: DOMString); safecall;
procedure assign(url: DOMString); safecall; procedure assign(url: DOMString); safecall;
function toString() : DOMString; safecall; procedure toString( result_: DOMString); safecall;
end; end;

5
components/geckoport/version2/gecko10/nsidommedialist.inc
View File

@ -2,12 +2,11 @@ type
nsIDOMMediaList = interface(nsISupports) nsIDOMMediaList = interface(nsISupports)
['{9b0c2ed7-111c-4824-adf9-ef0da6dad371}'] ['{9b0c2ed7-111c-4824-adf9-ef0da6dad371}']
function GetmediaText(): DOMString; safecall; procedure GetmediaText( result_: DOMString); safecall;
procedure SetmediaText(amediaText: DOMString); safecall; procedure SetmediaText(amediaText: DOMString); safecall;
property mediaText : DOMString read GetmediaText write SetmediaText;
function Getlength(): idlulong; safecall; function Getlength(): idlulong; safecall;
property length : idlulong read Getlength; property length : idlulong read Getlength;
function item(index: idlulong) : DOMString; safecall; procedure item(index: idlulong; result_: DOMString); safecall;
procedure deleteMedium(oldMedium: DOMString); safecall; procedure deleteMedium(oldMedium: DOMString); safecall;
procedure appendMedium(newMedium: DOMString); safecall; procedure appendMedium(newMedium: DOMString); safecall;

3
components/geckoport/version2/gecko10/nsidommediaquerylist.inc
View File

@ -2,8 +2,7 @@ type
nsIDOMMediaQueryList = interface(nsISupports) nsIDOMMediaQueryList = interface(nsISupports)
['{e0e49c52-915b-40f9-9cba-6026305cdf3e}'] ['{e0e49c52-915b-40f9-9cba-6026305cdf3e}']
function Getmedia(): DOMString; safecall; procedure Getmedia( result_: DOMString); safecall;
property media : DOMString read Getmedia;
function Getmatches(): longbool; safecall; function Getmatches(): longbool; safecall;
property matches : longbool read Getmatches; property matches : longbool read Getmatches;
procedure addListener(listener: nsIDOMMediaQueryListListener); safecall; procedure addListener(listener: nsIDOMMediaQueryListListener); safecall;

9
components/geckoport/version2/gecko10/nsidommimetype.inc
View File

@ -2,14 +2,11 @@ type
nsIDOMMimeType = interface(nsISupports) nsIDOMMimeType = interface(nsISupports)
['{f6134682-f28b-11d2-8360-c90899049c3c}'] ['{f6134682-f28b-11d2-8360-c90899049c3c}']
function Getdescription(): DOMString; safecall; procedure Getdescription( result_: DOMString); safecall;
property description : DOMString read Getdescription;
function GetenabledPlugin(): nsIDOMPlugin; safecall; function GetenabledPlugin(): nsIDOMPlugin; safecall;
property enabledPlugin : nsIDOMPlugin read GetenabledPlugin; property enabledPlugin : nsIDOMPlugin read GetenabledPlugin;
function Getsuffixes(): DOMString; safecall; procedure Getsuffixes( result_: DOMString); safecall;
property suffixes : DOMString read Getsuffixes; procedure Gettype( result_: DOMString); safecall;
function Gettype(): DOMString; safecall;
property atype : DOMString read Gettype;
end; end;

39
components/geckoport/version2/gecko10/nsidomnavigator.inc
View File

@ -2,40 +2,27 @@ type
nsIDOMNavigator = interface(nsISupports) nsIDOMNavigator = interface(nsISupports)
['{c5acd187-bf76-4b26-9329-41c798e47fb6}'] ['{c5acd187-bf76-4b26-9329-41c798e47fb6}']
function GetappCodeName(): DOMString; safecall; procedure GetappCodeName( result_: DOMString); safecall;
property appCodeName : DOMString read GetappCodeName; procedure GetappName( result_: DOMString); safecall;
function GetappName(): DOMString; safecall; procedure GetappVersion( result_: DOMString); safecall;
property appName : DOMString read GetappName; procedure Getlanguage( result_: DOMString); safecall;
function GetappVersion(): DOMString; safecall;
property appVersion : DOMString read GetappVersion;
function Getlanguage(): DOMString; safecall;
property language : DOMString read Getlanguage;
function GetmimeTypes(): nsIDOMMimeTypeArray; safecall; function GetmimeTypes(): nsIDOMMimeTypeArray; safecall;
property mimeTypes : nsIDOMMimeTypeArray read GetmimeTypes; property mimeTypes : nsIDOMMimeTypeArray read GetmimeTypes;
function Getplatform(): DOMString; safecall; procedure Getplatform( result_: DOMString); safecall;
property platform : DOMString read Getplatform; procedure Getoscpu( result_: DOMString); safecall;
function Getoscpu(): DOMString; safecall; procedure Getvendor( result_: DOMString); safecall;
property oscpu : DOMString read Getoscpu; procedure GetvendorSub( result_: DOMString); safecall;
function Getvendor(): DOMString; safecall; procedure Getproduct( result_: DOMString); safecall;
property vendor : DOMString read Getvendor; procedure GetproductSub( result_: DOMString); safecall;
function GetvendorSub(): DOMString; safecall;
property vendorSub : DOMString read GetvendorSub;
function Getproduct(): DOMString; safecall;
property product : DOMString read Getproduct;
function GetproductSub(): DOMString; safecall;
property productSub : DOMString read GetproductSub;
function Getplugins(): nsIDOMPluginArray; safecall; function Getplugins(): nsIDOMPluginArray; safecall;
property plugins : nsIDOMPluginArray read Getplugins; property plugins : nsIDOMPluginArray read Getplugins;
function GetuserAgent(): DOMString; safecall; procedure GetuserAgent( result_: DOMString); safecall;
property userAgent : DOMString read GetuserAgent;
function GetcookieEnabled(): longbool; safecall; function GetcookieEnabled(): longbool; safecall;
property cookieEnabled : longbool read GetcookieEnabled; property cookieEnabled : longbool read GetcookieEnabled;
function GetonLine(): longbool; safecall; function GetonLine(): longbool; safecall;
property onLine : longbool read GetonLine; property onLine : longbool read GetonLine;
function GetbuildID(): DOMString; safecall; procedure GetbuildID( result_: DOMString); safecall;
property buildID : DOMString read GetbuildID; procedure GetdoNotTrack( result_: DOMString); safecall;
function GetdoNotTrack(): DOMString; safecall;
property doNotTrack : DOMString read GetdoNotTrack;
function javaEnabled() : longbool; safecall; function javaEnabled() : longbool; safecall;
function taintEnabled() : longbool; safecall; function taintEnabled() : longbool; safecall;

25
components/geckoport/version2/gecko10/nsidomnode.inc
View File

@ -2,11 +2,9 @@ type
nsIDOMNode = interface(nsISupports) nsIDOMNode = interface(nsISupports)
['{ce82fb71-60f2-4c38-be31-de5f2f90dada}'] ['{ce82fb71-60f2-4c38-be31-de5f2f90dada}']
function GetnodeName(): DOMString; safecall; procedure GetnodeName( result_: DOMString); safecall;
property nodeName : DOMString read GetnodeName; procedure GetnodeValue( result_: DOMString); safecall;
function GetnodeValue(): DOMString; safecall;
procedure SetnodeValue(anodeValue: DOMString); safecall; procedure SetnodeValue(anodeValue: DOMString); safecall;
property nodeValue : DOMString read GetnodeValue write SetnodeValue;
function GetnodeType(): idlushort; safecall; function GetnodeType(): idlushort; safecall;
property nodeType : idlushort read GetnodeType; property nodeType : idlushort read GetnodeType;
function GetparentNode(): nsIDOMNode; safecall; function GetparentNode(): nsIDOMNode; safecall;
@ -35,22 +33,17 @@ type
function cloneNode(deep: longbool) : nsIDOMNode; safecall; function cloneNode(deep: longbool) : nsIDOMNode; safecall;
procedure normalize(); safecall; procedure normalize(); safecall;
function isSupported(feature: DOMString; version: DOMString) : longbool; safecall; function isSupported(feature: DOMString; version: DOMString) : longbool; safecall;
function GetnamespaceURI(): DOMString; safecall; procedure GetnamespaceURI( result_: DOMString); safecall;
property namespaceURI : DOMString read GetnamespaceURI; procedure Getprefix( result_: DOMString); safecall;
function Getprefix(): DOMString; safecall; procedure GetlocalName( result_: DOMString); safecall;
property prefix : DOMString read Getprefix;
function GetlocalName(): DOMString; safecall;
property localName : DOMString read GetlocalName;
function hasAttributes() : longbool; safecall; function hasAttributes() : longbool; safecall;
function GetbaseURI(): DOMString; safecall; procedure GetbaseURI( result_: DOMString); safecall;
property baseURI : DOMString read GetbaseURI;
function compareDocumentPosition(other: nsIDOMNode) : idlushort; safecall; function compareDocumentPosition(other: nsIDOMNode) : idlushort; safecall;
function GettextContent(): DOMString; safecall; procedure GettextContent( result_: DOMString); safecall;
procedure SettextContent(atextContent: DOMString); safecall; procedure SettextContent(atextContent: DOMString); safecall;
property textContent : DOMString read GettextContent write SettextContent; procedure lookupPrefix(anamespaceURI: DOMString; result_: DOMString); safecall;
function lookupPrefix(anamespaceURI: DOMString) : DOMString; safecall;
function isDefaultNamespace(anamespaceURI: DOMString) : longbool; safecall; function isDefaultNamespace(anamespaceURI: DOMString) : longbool; safecall;
function lookupNamespaceURI(aprefix: DOMString) : DOMString; safecall; procedure lookupNamespaceURI(aprefix: DOMString; result_: DOMString); safecall;
function isEqualNode(arg: nsIDOMNode) : longbool; safecall; function isEqualNode(arg: nsIDOMNode) : longbool; safecall;
function setUserData(key: DOMString; data: nsIVariant; handler: nsIDOMUserDataHandler) : nsIVariant; safecall; function setUserData(key: DOMString; data: nsIVariant; handler: nsIDOMUserDataHandler) : nsIVariant; safecall;
function getUserData(key: DOMString) : nsIVariant; safecall; function getUserData(key: DOMString) : nsIVariant; safecall;

2
components/geckoport/version2/gecko10/nsidomofflineresourcelist.inc
View File

@ -7,7 +7,7 @@ type
function mozHasItem(uri: DOMString) : longbool; safecall; function mozHasItem(uri: DOMString) : longbool; safecall;
function GetmozLength(): idlulong; safecall; function GetmozLength(): idlulong; safecall;
property mozLength : idlulong read GetmozLength; property mozLength : idlulong read GetmozLength;
function mozItem(index: idlulong) : DOMString; safecall; procedure mozItem(index: idlulong; result_: DOMString); safecall;
procedure mozAdd(uri: DOMString); safecall; procedure mozAdd(uri: DOMString); safecall;
procedure mozRemove(uri: DOMString); safecall; procedure mozRemove(uri: DOMString); safecall;
function Getstatus(): idlushort; safecall; function Getstatus(): idlushort; safecall;

2
components/geckoport/version2/gecko10/nsidomperformancenavigation.inc
View File

@ -1,5 +1,5 @@
type type
nsDOMPerformanceNavigationType = cushort; nsDOMPerformanceNavigationType = idlushort;
type type

12
components/geckoport/version2/gecko10/nsidomplugin.inc
View File

@ -2,14 +2,10 @@ type
nsIDOMPlugin = interface(nsISupports) nsIDOMPlugin = interface(nsISupports)
['{ff69a292-c74d-4ef5-9d0f-86112fff2d5b}'] ['{ff69a292-c74d-4ef5-9d0f-86112fff2d5b}']
function Getdescription(): DOMString; safecall; procedure Getdescription( result_: DOMString); safecall;
property description : DOMString read Getdescription; procedure Getfilename( result_: DOMString); safecall;
function Getfilename(): DOMString; safecall; procedure Getversion( result_: DOMString); safecall;
property filename : DOMString read Getfilename; procedure Getname( result_: DOMString); safecall;
function Getversion(): DOMString; safecall;
property version : DOMString read Getversion;
function Getname(): DOMString; safecall;
property name : DOMString read Getname;
function Getlength(): idlulong; safecall; function Getlength(): idlulong; safecall;
property length : idlulong read Getlength; property length : idlulong read Getlength;
function item(index: idlulong) : nsIDOMMimeType; safecall; function item(index: idlulong) : nsIDOMMimeType; safecall;

3
components/geckoport/version2/gecko10/nsidomprocessinginstruction.inc
View File

@ -2,8 +2,7 @@ type
nsIDOMProcessingInstruction = interface(nsIDOMCharacterData) nsIDOMProcessingInstruction = interface(nsIDOMCharacterData)
['{d754433f-4637-4a5f-9034-0388173ea254}'] ['{d754433f-4637-4a5f-9034-0388173ea254}']
function Gettarget(): DOMString; safecall; procedure Gettarget( result_: DOMString); safecall;
property target : DOMString read Gettarget;
end; end;

4
components/geckoport/version2/gecko10/nsidomstorage.inc
View File

@ -4,8 +4,8 @@ type
['{43E5EDAD-1E02-42c4-9D99-C3D9DEE22A20}'] ['{43E5EDAD-1E02-42c4-9D99-C3D9DEE22A20}']
function Getlength(): idlulong; safecall; function Getlength(): idlulong; safecall;
property length : idlulong read Getlength; property length : idlulong read Getlength;
function key(index: idlulong) : DOMString; safecall; procedure key(index: idlulong; result_: DOMString); safecall;
function getItem(akey: DOMString) : DOMString; safecall; procedure getItem(akey: DOMString; result_: DOMString); safecall;
procedure setItem(akey: DOMString; data: DOMString); safecall; procedure setItem(akey: DOMString; data: DOMString); safecall;
procedure removeItem(akey: DOMString); safecall; procedure removeItem(akey: DOMString); safecall;
procedure clear(); safecall; procedure clear(); safecall;

3
components/geckoport/version2/gecko10/nsidomstorageitem.inc
View File

@ -5,9 +5,8 @@ type
function Getsecure(): longbool; safecall; function Getsecure(): longbool; safecall;
procedure Setsecure(asecure: longbool); safecall; procedure Setsecure(asecure: longbool); safecall;
property secure : longbool read Getsecure write Setsecure; property secure : longbool read Getsecure write Setsecure;
function Getvalue(): DOMString; safecall; procedure Getvalue( result_: DOMString); safecall;
procedure Setvalue(avalue: DOMString); safecall; procedure Setvalue(avalue: DOMString); safecall;
property value : DOMString read Getvalue write Setvalue;
end; end;

2
components/geckoport/version2/gecko10/nsidomstorageobsolete.inc
View File

@ -4,7 +4,7 @@ type
['{18013CF9-B104-49cf-9484-C2A7A845457E}'] ['{18013CF9-B104-49cf-9484-C2A7A845457E}']
function Getlength(): idlulong; safecall; function Getlength(): idlulong; safecall;
property length : idlulong read Getlength; property length : idlulong read Getlength;
function key(index: idlulong) : DOMString; safecall; procedure key(index: idlulong; result_: DOMString); safecall;
function getItem(akey: DOMString) : nsIDOMStorageItem; safecall; function getItem(akey: DOMString) : nsIDOMStorageItem; safecall;
procedure setItem(akey: DOMString; data: DOMString); safecall; procedure setItem(akey: DOMString; data: DOMString); safecall;
procedure removeItem(akey: DOMString); safecall; procedure removeItem(akey: DOMString); safecall;

9
components/geckoport/version2/gecko10/nsidomstylesheet.inc
View File

@ -2,8 +2,7 @@ type
nsIDOMStyleSheet = interface(nsISupports) nsIDOMStyleSheet = interface(nsISupports)
['{a6cf9080-15b3-11d2-932e-00805f8add32}'] ['{a6cf9080-15b3-11d2-932e-00805f8add32}']
function Gettype(): DOMString; safecall; procedure Gettype( result_: DOMString); safecall;
property atype : DOMString read Gettype;
function Getdisabled(): longbool; safecall; function Getdisabled(): longbool; safecall;
procedure Setdisabled(adisabled: longbool); safecall; procedure Setdisabled(adisabled: longbool); safecall;
property disabled : longbool read Getdisabled write Setdisabled; property disabled : longbool read Getdisabled write Setdisabled;
@ -11,10 +10,8 @@ type
property ownerNode : nsIDOMNode read GetownerNode; property ownerNode : nsIDOMNode read GetownerNode;
function GetparentStyleSheet(): nsIDOMStyleSheet; safecall; function GetparentStyleSheet(): nsIDOMStyleSheet; safecall;
property parentStyleSheet : nsIDOMStyleSheet read GetparentStyleSheet; property parentStyleSheet : nsIDOMStyleSheet read GetparentStyleSheet;
function Gethref(): DOMString; safecall; procedure Gethref( result_: DOMString); safecall;
property href : DOMString read Gethref; procedure Gettitle( result_: DOMString); safecall;
function Gettitle(): DOMString; safecall;
property title : DOMString read Gettitle;
function Getmedia(): nsIDOMMediaList; safecall; function Getmedia(): nsIDOMMediaList; safecall;
property media : nsIDOMMediaList read Getmedia; property media : nsIDOMMediaList read Getmedia;

3
components/geckoport/version2/gecko10/nsidomtext.inc
View File

@ -3,8 +3,7 @@ type
nsIDOMText = interface(nsIDOMCharacterData) nsIDOMText = interface(nsIDOMCharacterData)
['{437ed60c-febd-4bd0-892f-cf358adc3c96}'] ['{437ed60c-febd-4bd0-892f-cf358adc3c96}']
function splitText(offset: idlulong) : nsIDOMText; safecall; function splitText(offset: idlulong) : nsIDOMText; safecall;
function GetwholeText(): DOMString; safecall; procedure GetwholeText( result_: DOMString); safecall;
property wholeText : DOMString read GetwholeText;
end; end;

17
components/geckoport/version2/gecko10/nsidomwindow.inc
View File

@ -2,7 +2,7 @@ type
nsIDOMMozURLProperty = interface(nsISupports) nsIDOMMozURLProperty = interface(nsISupports)
['{8fc58f56-f769-4368-a098-edd08550cf1a}'] ['{8fc58f56-f769-4368-a098-edd08550cf1a}']
function createObjectURL(blob: nsIDOMBlob) : DOMString; safecall; procedure createObjectURL(blob: nsIDOMBlob; result_: DOMString); safecall;
procedure revokeObjectURL(URL: DOMString); safecall; procedure revokeObjectURL(URL: DOMString); safecall;
end; end;
@ -16,9 +16,8 @@ type
property self : nsIDOMWindow read Getself; property self : nsIDOMWindow read Getself;
function Getdocument(): nsIDOMDocument; safecall; function Getdocument(): nsIDOMDocument; safecall;
property document : nsIDOMDocument read Getdocument; property document : nsIDOMDocument read Getdocument;
function Getname(): DOMString; safecall; procedure Getname( result_: DOMString); safecall;
procedure Setname(aname: DOMString); safecall; procedure Setname(aname: DOMString); safecall;
property name : DOMString read Getname write Setname;
function Getlocation(): nsIDOMLocation; safecall; function Getlocation(): nsIDOMLocation; safecall;
property location : nsIDOMLocation read Getlocation; property location : nsIDOMLocation read Getlocation;
function Gethistory(): nsIDOMHistory; safecall; function Gethistory(): nsIDOMHistory; safecall;
@ -35,9 +34,8 @@ type
property statusbar : nsIDOMBarProp read Getstatusbar; property statusbar : nsIDOMBarProp read Getstatusbar;
function Gettoolbar(): nsIDOMBarProp; safecall; function Gettoolbar(): nsIDOMBarProp; safecall;
property toolbar : nsIDOMBarProp read Gettoolbar; property toolbar : nsIDOMBarProp read Gettoolbar;
function Getstatus(): DOMString; safecall; procedure Getstatus( result_: DOMString); safecall;
procedure Setstatus(astatus: DOMString); safecall; procedure Setstatus(astatus: DOMString); safecall;
property status : DOMString read Getstatus write Setstatus;
procedure close(); safecall; procedure close(); safecall;
procedure stop(); safecall; procedure stop(); safecall;
procedure focus(); safecall; procedure focus(); safecall;
@ -59,12 +57,12 @@ type
property applicationCache : nsIDOMOfflineResourceList read GetapplicationCache; property applicationCache : nsIDOMOfflineResourceList read GetapplicationCache;
procedure alert(text: DOMString); safecall; procedure alert(text: DOMString); safecall;
function confirm(text: DOMString) : longbool; safecall; function confirm(text: DOMString) : longbool; safecall;
function prompt(aMessage: DOMString; aInitial: DOMString) : DOMString; safecall; procedure prompt(aMessage: DOMString; aInitial: DOMString; result_: DOMString); safecall;
procedure print(); safecall; procedure print(); safecall;
function showModalDialog(aURI: DOMString; aArgs: nsIVariant; aOptions: DOMString) : nsIVariant; safecall; function showModalDialog(aURI: DOMString; aArgs: nsIVariant; aOptions: DOMString) : nsIVariant; safecall;
procedure postMessage(message: jsval; targetOrigin: DOMString); safecall; procedure postMessage(message: jsval; targetOrigin: DOMString); safecall;
function atob(aAsciiString: DOMString) : DOMString; safecall; procedure atob(aAsciiString: DOMString; result_: DOMString); safecall;
function btoa(aBase64Data: DOMString) : DOMString; safecall; procedure btoa(aBase64Data: DOMString; result_: DOMString); safecall;
function GetsessionStorage(): nsIDOMStorage; safecall; function GetsessionStorage(): nsIDOMStorage; safecall;
property sessionStorage : nsIDOMStorage read GetsessionStorage; property sessionStorage : nsIDOMStorage read GetsessionStorage;
function GetlocalStorage(): nsIDOMStorage; safecall; function GetlocalStorage(): nsIDOMStorage; safecall;
@ -125,9 +123,8 @@ type
property pkcs11 : nsIDOMPkcs11 read Getpkcs11; property pkcs11 : nsIDOMPkcs11 read Getpkcs11;
function Getcontrollers(): nsIControllers; safecall; function Getcontrollers(): nsIControllers; safecall;
property controllers : nsIControllers read Getcontrollers; property controllers : nsIControllers read Getcontrollers;
function GetdefaultStatus(): DOMString; safecall; procedure GetdefaultStatus( result_: DOMString); safecall;
procedure SetdefaultStatus(adefaultStatus: DOMString); safecall; procedure SetdefaultStatus(adefaultStatus: DOMString); safecall;
property defaultStatus : DOMString read GetdefaultStatus write SetdefaultStatus;
function GetmozInnerScreenX(): idlfloat; safecall; function GetmozInnerScreenX(): idlfloat; safecall;
property mozInnerScreenX : idlfloat read GetmozInnerScreenX; property mozInnerScreenX : idlfloat read GetmozInnerScreenX;
function GetmozInnerScreenY(): idlfloat; safecall; function GetmozInnerScreenY(): idlfloat; safecall;

3
components/geckoport/version2/gecko10/nsieventsource.inc
View File

@ -2,8 +2,7 @@ type
nsIEventSource = interface(nsISupports) nsIEventSource = interface(nsISupports)
['{755e2d2d-a836-4539-83f4-16b51156341f}'] ['{755e2d2d-a836-4539-83f4-16b51156341f}']
function Geturl(): DOMString; safecall; procedure Geturl( result_: DOMString); safecall;
property url : DOMString read Geturl;
function GetreadyState(): idllong; safecall; function GetreadyState(): idllong; safecall;
property readyState : idllong read GetreadyState; property readyState : idllong read GetreadyState;
function Getonopen(): nsIDOMEventListener; safecall; function Getonopen(): nsIDOMEventListener; safecall;

2
components/geckoport/version2/gecko10/nsifactory.inc
View File

@ -2,7 +2,7 @@ type
nsIFactory = interface(nsISupports) nsIFactory = interface(nsISupports)
['{00000001-0000-0000-c000-000000000046}'] ['{00000001-0000-0000-c000-000000000046}']
procedure createInstance(aOuter: nsISupports; iid: nsIIDRef; out result); safecall; procedure createInstance(aOuter: nsISupports; constref iid: TGuid; out result); safecall;
procedure lockFactory(lock: longbool); safecall; procedure lockFactory(lock: longbool); safecall;
end; end;

9
components/geckoport/version2/gecko10/nsifile.inc
View File

@ -9,9 +9,8 @@ type
function GetleafName(): AString; safecall; function GetleafName(): AString; safecall;
procedure SetleafName(aleafName: AString); safecall; procedure SetleafName(aleafName: AString); safecall;
property leafName : AString read GetleafName write SetleafName; property leafName : AString read GetleafName write SetleafName;
function GetnativeLeafName(): ACString; safecall; procedure GetnativeLeafName( result_: ACString); safecall;
procedure SetnativeLeafName(anativeLeafName: ACString); safecall; procedure SetnativeLeafName(anativeLeafName: ACString); safecall;
property nativeLeafName : ACString read GetnativeLeafName write SetnativeLeafName;
procedure copyTo(newParentDir: nsIFile; newName: AString); safecall; procedure copyTo(newParentDir: nsIFile; newName: AString); safecall;
procedure CopyToNative(newParentDir: nsIFile; newName: ACString); safecall; procedure CopyToNative(newParentDir: nsIFile; newName: ACString); safecall;
procedure copyToFollowingLinks(newParentDir: nsIFile; newName: AString); safecall; procedure copyToFollowingLinks(newParentDir: nsIFile; newName: AString); safecall;
@ -38,12 +37,10 @@ type
property fileSizeOfLink : PRInt64 read GetfileSizeOfLink; property fileSizeOfLink : PRInt64 read GetfileSizeOfLink;
function Gettarget(): AString; safecall; function Gettarget(): AString; safecall;
property target : AString read Gettarget; property target : AString read Gettarget;
function GetnativeTarget(): ACString; safecall; procedure GetnativeTarget( result_: ACString); safecall;
property nativeTarget : ACString read GetnativeTarget;
function Getpath(): AString; safecall; function Getpath(): AString; safecall;
property path : AString read Getpath; property path : AString read Getpath;
function GetnativePath(): ACString; safecall; procedure GetnativePath( result_: ACString); safecall;
property nativePath : ACString read GetnativePath;
function exists() : longbool; safecall; function exists() : longbool; safecall;
function isWritable() : longbool; safecall; function isWritable() : longbool; safecall;
function isReadable() : longbool; safecall; function isReadable() : longbool; safecall;

10
components/geckoport/version2/gecko10/nsihttpchannel.inc
View File

@ -2,13 +2,12 @@ type
nsIHttpChannel = interface(nsIChannel) nsIHttpChannel = interface(nsIChannel)
['{9277fe09-f0cc-4cd9-bbce-581dd94b0260}'] ['{9277fe09-f0cc-4cd9-bbce-581dd94b0260}']
function GetrequestMethod(): ACString; safecall; procedure GetrequestMethod( result_: ACString); safecall;
procedure SetrequestMethod(arequestMethod: ACString); safecall; procedure SetrequestMethod(arequestMethod: ACString); safecall;
property requestMethod : ACString read GetrequestMethod write SetrequestMethod;
function Getreferrer(): nsIURI; safecall; function Getreferrer(): nsIURI; safecall;
procedure Setreferrer(areferrer: nsIURI); safecall; procedure Setreferrer(areferrer: nsIURI); safecall;
property referrer : nsIURI read Getreferrer write Setreferrer; property referrer : nsIURI read Getreferrer write Setreferrer;
function getRequestHeader(aHeader: ACString) : ACString; safecall; procedure getRequestHeader(aHeader: ACString; result_: ACString); safecall;
procedure setRequestHeader(aHeader: ACString; aValue: ACString; aMerge: longbool); safecall; procedure setRequestHeader(aHeader: ACString; aValue: ACString; aMerge: longbool); safecall;
procedure visitRequestHeaders(aVisitor: nsIHttpHeaderVisitor); safecall; procedure visitRequestHeaders(aVisitor: nsIHttpHeaderVisitor); safecall;
function GetallowPipelining(): longbool; safecall; function GetallowPipelining(): longbool; safecall;
@ -19,11 +18,10 @@ type
property redirectionLimit : idlulong read GetredirectionLimit write SetredirectionLimit; property redirectionLimit : idlulong read GetredirectionLimit write SetredirectionLimit;
function GetresponseStatus(): idlulong; safecall; function GetresponseStatus(): idlulong; safecall;
property responseStatus : idlulong read GetresponseStatus; property responseStatus : idlulong read GetresponseStatus;
function GetresponseStatusText(): ACString; safecall; procedure GetresponseStatusText( result_: ACString); safecall;
property responseStatusText : ACString read GetresponseStatusText;
function GetrequestSucceeded(): longbool; safecall; function GetrequestSucceeded(): longbool; safecall;
property requestSucceeded : longbool read GetrequestSucceeded; property requestSucceeded : longbool read GetrequestSucceeded;
function getResponseHeader(header: ACString) : ACString; safecall; procedure getResponseHeader(header: ACString; result_: ACString); safecall;
procedure setResponseHeader(header: ACString; value: ACString; merge: longbool); safecall; procedure setResponseHeader(header: ACString; value: ACString; merge: longbool); safecall;
procedure visitResponseHeaders(aVisitor: nsIHttpHeaderVisitor); safecall; procedure visitResponseHeaders(aVisitor: nsIHttpHeaderVisitor); safecall;
function isNoStoreResponse() : longbool; safecall; function isNoStoreResponse() : longbool; safecall;

2
components/geckoport/version2/gecko10/nsiinterfacerequestor.inc
View File

@ -2,8 +2,6 @@ type
nsIInterfaceRequestor = interface(nsISupports) nsIInterfaceRequestor = interface(nsISupports)
['{033A1470-8B2A-11d3-AF88-00A024FFC08C}'] ['{033A1470-8B2A-11d3-AF88-00A024FFC08C}']
// uuid parameter is manually converted to constref/TGuid, so
// that it is possible to assign an interface to this parameter.
procedure getInterface(constref uuid: TGuid; out result); safecall; procedure getInterface(constref uuid: TGuid; out result); safecall;
end; end;

2
components/geckoport/version2/gecko10/nsiioservice.inc
View File

@ -12,7 +12,7 @@ type
procedure Setoffline(aoffline: longbool); safecall; procedure Setoffline(aoffline: longbool); safecall;
property offline : longbool read Getoffline write Setoffline; property offline : longbool read Getoffline write Setoffline;
function allowPort(aPort: idllong; aScheme: PAnsiChar) : longbool; safecall; function allowPort(aPort: idllong; aScheme: PAnsiChar) : longbool; safecall;
function extractScheme(urlString: AUTF8String) : ACString; safecall; procedure extractScheme(urlString: AUTF8String; result_: ACString); safecall;
end; end;

5
components/geckoport/version2/gecko10/nsilocalfile.inc
View File

@ -15,12 +15,11 @@ type
property diskSpaceAvailable : PRInt64 read GetdiskSpaceAvailable; property diskSpaceAvailable : PRInt64 read GetdiskSpaceAvailable;
procedure appendRelativePath(relativeFilePath: AString); safecall; procedure appendRelativePath(relativeFilePath: AString); safecall;
procedure appendRelativeNativePath(relativeFilePath: ACString); safecall; procedure appendRelativeNativePath(relativeFilePath: ACString); safecall;
function GetpersistentDescriptor(): ACString; safecall; procedure GetpersistentDescriptor( result_: ACString); safecall;
procedure SetpersistentDescriptor(apersistentDescriptor: ACString); safecall; procedure SetpersistentDescriptor(apersistentDescriptor: ACString); safecall;
property persistentDescriptor : ACString read GetpersistentDescriptor write SetpersistentDescriptor;
procedure reveal(); safecall; procedure reveal(); safecall;
procedure launch(); safecall; procedure launch(); safecall;
function getRelativeDescriptor(fromFile: nsILocalFile) : ACString; safecall; procedure getRelativeDescriptor(fromFile: nsILocalFile; result_: ACString); safecall;
procedure setRelativeDescriptor(fromFile: nsILocalFile; relativeDesc: ACString); safecall; procedure setRelativeDescriptor(fromFile: nsILocalFile; relativeDesc: ACString); safecall;
end; end;

2
components/geckoport/version2/gecko10/nsimodule.inc
View File

@ -2,7 +2,7 @@ type
nsIModule = interface(nsISupports) nsIModule = interface(nsISupports)
['{7392D032-5371-11d3-994E-00805FD26FEE}'] ['{7392D032-5371-11d3-994E-00805FD26FEE}']
procedure getClassObject(aCompMgr: nsIComponentManager; aClass: nsCIDRef; aIID: nsIIDRef; out aResult: nsQIResult); safecall; procedure getClassObject(aCompMgr: nsIComponentManager; constref aClass: TGuid; constref aIID: TGuid; out aResult); safecall;
procedure registerSelf(aCompMgr: nsIComponentManager; aLocation: nsIFile; aLoaderStr: PAnsiChar; aType: PAnsiChar); safecall; procedure registerSelf(aCompMgr: nsIComponentManager; aLocation: nsIFile; aLoaderStr: PAnsiChar; aType: PAnsiChar); safecall;
procedure unregisterSelf(aCompMgr: nsIComponentManager; aLocation: nsIFile; aLoaderStr: PAnsiChar); safecall; procedure unregisterSelf(aCompMgr: nsIComponentManager; aLocation: nsIFile; aLoaderStr: PAnsiChar); safecall;
function canUnload(aCompMgr: nsIComponentManager) : longbool; safecall; function canUnload(aCompMgr: nsIComponentManager) : longbool; safecall;

2
components/geckoport/version2/gecko10/nsiobjectoutputstream.inc
View File

@ -4,7 +4,7 @@ type
['{92c898ac-5fde-4b99-87b3-5d486422094b}'] ['{92c898ac-5fde-4b99-87b3-5d486422094b}']
procedure writeObject(aObject: nsISupports; aIsStrongRef: longbool); safecall; procedure writeObject(aObject: nsISupports; aIsStrongRef: longbool); safecall;
procedure writeSingleRefObject(aObject: nsISupports); safecall; procedure writeSingleRefObject(aObject: nsISupports); safecall;
procedure writeCompoundObject(aObject: nsISupports; aIID: nsIIDRef; aIsStrongRef: longbool); safecall; procedure writeCompoundObject(aObject: nsISupports; constref aIID: TGuid; aIsStrongRef: longbool); safecall;
procedure writeID(aID: nsIDRef); safecall; procedure writeID(aID: nsIDRef); safecall;
function getBuffer(aLength: PRUint32; aAlignMask: PRUint32) : charPtr; safecall; function getBuffer(aLength: PRUint32; aAlignMask: PRUint32) : charPtr; safecall;
procedure putBuffer(aBuffer: charPtr; aLength: PRUint32); safecall; procedure putBuffer(aBuffer: charPtr; aLength: PRUint32); safecall;

9
components/geckoport/version2/gecko10/nsiprincipal.inc
View File

@ -26,14 +26,11 @@ type
property origin : PAnsiChar read Getorigin; property origin : PAnsiChar read Getorigin;
function GethasCertificate(): longbool; safecall; function GethasCertificate(): longbool; safecall;
property hasCertificate : longbool read GethasCertificate; property hasCertificate : longbool read GethasCertificate;
function Getfingerprint(): AUTF8String; safecall; procedure Getfingerprint( result_: AUTF8String); safecall;
property fingerprint : AUTF8String read Getfingerprint; procedure GetprettyName( result_: AUTF8String); safecall;
function GetprettyName(): AUTF8String; safecall;
property prettyName : AUTF8String read GetprettyName;
function subsumes(other: nsIPrincipal) : longbool; safecall; function subsumes(other: nsIPrincipal) : longbool; safecall;
procedure checkMayLoad(anuri: nsIURI; report: longbool); safecall; procedure checkMayLoad(anuri: nsIURI; report: longbool); safecall;
function GetsubjectName(): AUTF8String; safecall; procedure GetsubjectName( result_: AUTF8String); safecall;
property subjectName : AUTF8String read GetsubjectName;
function Getcertificate(): nsISupports; safecall; function Getcertificate(): nsISupports; safecall;
property certificate : nsISupports read Getcertificate; property certificate : nsISupports read Getcertificate;
function Getcsp(): nsIContentSecurityPolicy; safecall; function Getcsp(): nsIContentSecurityPolicy; safecall;

2
components/geckoport/version2/gecko10/nsiproperties.inc
View File

@ -2,8 +2,6 @@ type
nsIProperties = interface(nsISupports) nsIProperties = interface(nsISupports)
['{78650582-4e93-4b60-8e85-26ebd3eb14ca}'] ['{78650582-4e93-4b60-8e85-26ebd3eb14ca}']
// iid parameter is manually converted to constref/TGuid, so
// that it is possible to assign an interface to this parameter.
procedure get(prop: PAnsiChar; constref iid: TGuid; out result); safecall; procedure get(prop: PAnsiChar; constref iid: TGuid; out result); safecall;
procedure aset(prop: PAnsiChar; value: nsISupports); safecall; procedure aset(prop: PAnsiChar; value: nsISupports); safecall;
function has(prop: PAnsiChar) : longbool; safecall; function has(prop: PAnsiChar) : longbool; safecall;

3
components/geckoport/version2/gecko10/nsiprotocolhandler.inc
View File

@ -2,8 +2,7 @@ type
nsIProtocolHandler = interface(nsISupports) nsIProtocolHandler = interface(nsISupports)
['{15fd6940-8ea7-11d3-93ad-00104ba0fd40}'] ['{15fd6940-8ea7-11d3-93ad-00104ba0fd40}']
function Getscheme(): ACString; safecall; procedure Getscheme( result_: ACString); safecall;
property scheme : ACString read Getscheme;
function GetdefaultPort(): idllong; safecall; function GetdefaultPort(): idllong; safecall;
property defaultPort : idllong read GetdefaultPort; property defaultPort : idllong read GetdefaultPort;
function GetprotocolFlags(): idlulong; safecall; function GetprotocolFlags(): idlulong; safecall;

3
components/geckoport/version2/gecko10/nsirequest.inc
View File

@ -2,8 +2,7 @@ type
nsIRequest = interface(nsISupports) nsIRequest = interface(nsISupports)
['{ef6bfbd2-fd46-48d8-96b7-9f8f0fd387fe}'] ['{ef6bfbd2-fd46-48d8-96b7-9f8f0fd387fe}']
function Getname(): AUTF8String; safecall; procedure Getname( result_: AUTF8String); safecall;
property name : AUTF8String read Getname;
function isPending() : longbool; safecall; function isPending() : longbool; safecall;
function Getstatus(): nsresult; safecall; function Getstatus(): nsresult; safecall;
property status : nsresult read Getstatus; property status : nsresult read Getstatus;

8
components/geckoport/version2/gecko10/nsiservicemanager.inc
View File

@ -2,12 +2,10 @@ type
nsIServiceManager = interface(nsISupports) nsIServiceManager = interface(nsISupports)
['{8bb35ed9-e332-462d-9155-4a002ab5c958}'] ['{8bb35ed9-e332-462d-9155-4a002ab5c958}']
// aIID and aClass parameters are manually converted to constref/TGuid, so
// that it is possible to assign an interface to this parameter.
procedure getService(constref aClass: TGuid; constref aIID: TGuid; out result); safecall; procedure getService(constref aClass: TGuid; constref aIID: TGuid; out result); safecall;
procedure getServiceByContractID(aContractID: PAnsiChar; aIID: nsIIDRef; out result); safecall; procedure getServiceByContractID(aContractID: PAnsiChar; constref aIID: TGuid; out result); safecall;
function isServiceInstantiated(aClass: nsCIDRef; aIID: nsIIDRef) : longbool; safecall; function isServiceInstantiated(constref aClass: TGuid; constref aIID: TGuid) : longbool; safecall;
function isServiceInstantiatedByContractID(aContractID: PAnsiChar; aIID: nsIIDRef) : longbool; safecall; function isServiceInstantiatedByContractID(aContractID: PAnsiChar; constref aIID: TGuid) : longbool; safecall;
end; end;

3
components/geckoport/version2/gecko10/nsishentry.inc
View File

@ -49,9 +49,8 @@ type
function GetexpirationStatus(): longbool; safecall; function GetexpirationStatus(): longbool; safecall;
procedure SetexpirationStatus(aexpirationStatus: longbool); safecall; procedure SetexpirationStatus(aexpirationStatus: longbool); safecall;
property expirationStatus : longbool read GetexpirationStatus write SetexpirationStatus; property expirationStatus : longbool read GetexpirationStatus write SetexpirationStatus;
function GetcontentType(): ACString; safecall; procedure GetcontentType( result_: ACString); safecall;
procedure SetcontentType(acontentType: ACString); safecall; procedure SetcontentType(acontentType: ACString); safecall;
property contentType : ACString read GetcontentType write SetcontentType;
function GetURIWasModified(): longbool; safecall; function GetURIWasModified(): longbool; safecall;
procedure SetURIWasModified(aURIWasModified: longbool); safecall; procedure SetURIWasModified(aURIWasModified: longbool); safecall;
property URIWasModified : longbool read GetURIWasModified write SetURIWasModified; property URIWasModified : longbool read GetURIWasModified write SetURIWasModified;

44
components/geckoport/version2/gecko10/nsiuri.inc
View File

@ -2,52 +2,38 @@ type
nsIURI = interface(nsISupports) nsIURI = interface(nsISupports)
['{395fe045-7d18-4adb-a3fd-af98c8a1af11}'] ['{395fe045-7d18-4adb-a3fd-af98c8a1af11}']
function Getspec(): AUTF8String; safecall; procedure Getspec( result_: AUTF8String); safecall;
procedure Setspec(aspec: AUTF8String); safecall; procedure Setspec(aspec: AUTF8String); safecall;
property spec : AUTF8String read Getspec write Setspec; procedure GetprePath( result_: AUTF8String); safecall;
function GetprePath(): AUTF8String; safecall; procedure Getscheme( result_: ACString); safecall;
property prePath : AUTF8String read GetprePath;
function Getscheme(): ACString; safecall;
procedure Setscheme(ascheme: ACString); safecall; procedure Setscheme(ascheme: ACString); safecall;
property scheme : ACString read Getscheme write Setscheme; procedure GetuserPass( result_: AUTF8String); safecall;
function GetuserPass(): AUTF8String; safecall;
procedure SetuserPass(auserPass: AUTF8String); safecall; procedure SetuserPass(auserPass: AUTF8String); safecall;
property userPass : AUTF8String read GetuserPass write SetuserPass; procedure Getusername( result_: AUTF8String); safecall;
function Getusername(): AUTF8String; safecall;
procedure Setusername(ausername: AUTF8String); safecall; procedure Setusername(ausername: AUTF8String); safecall;
property username : AUTF8String read Getusername write Setusername; procedure Getpassword( result_: AUTF8String); safecall;
function Getpassword(): AUTF8String; safecall;
procedure Setpassword(apassword: AUTF8String); safecall; procedure Setpassword(apassword: AUTF8String); safecall;
property password : AUTF8String read Getpassword write Setpassword; procedure GethostPort( result_: AUTF8String); safecall;
function GethostPort(): AUTF8String; safecall;
procedure SethostPort(ahostPort: AUTF8String); safecall; procedure SethostPort(ahostPort: AUTF8String); safecall;
property hostPort : AUTF8String read GethostPort write SethostPort; procedure Gethost( result_: AUTF8String); safecall;
function Gethost(): AUTF8String; safecall;
procedure Sethost(ahost: AUTF8String); safecall; procedure Sethost(ahost: AUTF8String); safecall;
property host : AUTF8String read Gethost write Sethost;
function Getport(): idllong; safecall; function Getport(): idllong; safecall;
procedure Setport(aport: idllong); safecall; procedure Setport(aport: idllong); safecall;
property port : idllong read Getport write Setport; property port : idllong read Getport write Setport;
function Getpath(): AUTF8String; safecall; procedure Getpath( result_: AUTF8String); safecall;
procedure Setpath(apath: AUTF8String); safecall; procedure Setpath(apath: AUTF8String); safecall;
property path : AUTF8String read Getpath write Setpath;
function equals(other: nsIURI) : longbool; safecall; function equals(other: nsIURI) : longbool; safecall;
function schemeIs(ascheme: PAnsiChar) : longbool; safecall; function schemeIs(ascheme: PAnsiChar) : longbool; safecall;
function clone() : nsIURI; safecall; function clone() : nsIURI; safecall;
function resolve(relativePath: AUTF8String) : AUTF8String; safecall; procedure resolve(relativePath: AUTF8String; result_: AUTF8String); safecall;
function GetasciiSpec(): ACString; safecall; procedure GetasciiSpec( result_: ACString); safecall;
property asciiSpec : ACString read GetasciiSpec; procedure GetasciiHost( result_: ACString); safecall;
function GetasciiHost(): ACString; safecall; procedure GetoriginCharset( result_: ACString); safecall;
property asciiHost : ACString read GetasciiHost; procedure Getref( result_: AUTF8String); safecall;
function GetoriginCharset(): ACString; safecall;
property originCharset : ACString read GetoriginCharset;
function Getref(): AUTF8String; safecall;
procedure Setref(aref: AUTF8String); safecall; procedure Setref(aref: AUTF8String); safecall;
property ref : AUTF8String read Getref write Setref;
function equalsExceptRef(other: nsIURI) : longbool; safecall; function equalsExceptRef(other: nsIURI) : longbool; safecall;
function cloneIgnoringRef() : nsIURI; safecall; function cloneIgnoringRef() : nsIURI; safecall;
function GetspecIgnoringRef(): AUTF8String; safecall; procedure GetspecIgnoringRef( result_: AUTF8String); safecall;
property specIgnoringRef : AUTF8String read GetspecIgnoringRef;
function GethasRef(): longbool; safecall; function GethasRef(): longbool; safecall;
property hasRef : longbool read GethasRef; property hasRef : longbool read GethasRef;

8
components/geckoport/version2/gecko10/nsivariant.inc
View File

@ -55,9 +55,9 @@ type
function getAsWChar() : wchar; safecall; function getAsWChar() : wchar; safecall;
function getAsID(out retval: nsID) : nsresult; safecall; function getAsID(out retval: nsID) : nsresult; safecall;
function getAsAString() : AString; safecall; function getAsAString() : AString; safecall;
function getAsDOMString() : DOMString; safecall; procedure getAsDOMString( result_: DOMString); safecall;
function getAsACString() : ACString; safecall; procedure getAsACString( result_: ACString); safecall;
function getAsAUTF8String() : AUTF8String; safecall; procedure getAsAUTF8String( result_: AUTF8String); safecall;
function getAsString() : PAnsiChar; safecall; function getAsString() : PAnsiChar; safecall;
function getAsWString() : PWideChar; safecall; function getAsWString() : PWideChar; safecall;
function getAsISupports() : nsISupports; safecall; function getAsISupports() : nsISupports; safecall;
@ -96,7 +96,7 @@ type
procedure setAsString(aValue: PAnsiChar); safecall; procedure setAsString(aValue: PAnsiChar); safecall;
procedure setAsWString(aValue: PWideChar); safecall; procedure setAsWString(aValue: PWideChar); safecall;
procedure setAsISupports(aValue: nsISupports); safecall; procedure setAsISupports(aValue: nsISupports); safecall;
procedure setAsInterface(iid: nsIIDRef; iface: nsQIResult); safecall; procedure setAsInterface(constref iid: TGuid; iface: nsQIResult); safecall;
procedure setAsArray(atype: PRUint16; iid: nsIIDPtr; count: PRUint32; ptr: voidPtr); safecall; procedure setAsArray(atype: PRUint16; iid: nsIIDPtr; count: PRUint32; ptr: voidPtr); safecall;
procedure setAsStringWithSize(size: PRUint32; str: PAnsiChar); safecall; procedure setAsStringWithSize(size: PRUint32; str: PAnsiChar); safecall;
procedure setAsWStringWithSize(size: PRUint32; str: PWideChar); safecall; procedure setAsWStringWithSize(size: PRUint32; str: PWideChar); safecall;

2
components/geckoport/version2/gecko10/nsiweakreference.inc
View File

@ -2,8 +2,6 @@ type
nsIWeakReference = interface(nsISupports) nsIWeakReference = interface(nsISupports)
['{9188bc85-f92e-11d2-81ef-0060083a0bcf}'] ['{9188bc85-f92e-11d2-81ef-0060083a0bcf}']
// uuid parameter is manually converted to constref/TGuid, so
// that it is possible to assign an interface to this parameter.
procedure QueryReferent(constref uuid: TGuid; out result); safecall; procedure QueryReferent(constref uuid: TGuid; out result); safecall;
end; end;

4
components/geckoport/version2/gecko10/nsiwebbrowser.inc
View File

@ -2,10 +2,8 @@ type
nsIWebBrowser = interface(nsISupports) nsIWebBrowser = interface(nsISupports)
['{33e9d001-caab-4ba9-8961-54902f197202}'] ['{33e9d001-caab-4ba9-8961-54902f197202}']
// aIID parameter is manually converted to constref/TGuid, so that it is possible
// to assign an interface to this parameter.
procedure addWebBrowserListener(aListener: nsIWeakReference; constref aIID: TGuid); safecall; procedure addWebBrowserListener(aListener: nsIWeakReference; constref aIID: TGuid); safecall;
procedure removeWebBrowserListener(aListener: nsIWeakReference; aIID: nsIIDRef); safecall; procedure removeWebBrowserListener(aListener: nsIWeakReference; constref aIID: TGuid); safecall;
function GetcontainerWindow(): nsIWebBrowserChrome; safecall; function GetcontainerWindow(): nsIWebBrowserChrome; safecall;
procedure SetcontainerWindow(acontainerWindow: nsIWebBrowserChrome); safecall; procedure SetcontainerWindow(acontainerWindow: nsIWebBrowserChrome); safecall;
property containerWindow : nsIWebBrowserChrome read GetcontainerWindow write SetcontainerWindow; property containerWindow : nsIWebBrowserChrome read GetcontainerWindow write SetcontainerWindow;

4
components/geckoport/version2/genincludefiles.sh
View File

@ -13,7 +13,7 @@ fi
idltopas $1/nsIDOMDocument.idl \ idltopas $1/nsIDOMDocument.idl \
$1/nsIDOMElement.idl \ $1/nsIDOMElement.idl \
$1/nsISHEntry.idl \ $1/nsISHEntry.idl \
-c idlctypes.cfg -m idltypemap.cfg -p -f forwarddecl.inc -o -m idltypemap.cfg -p -f forwarddecl.inc -o
idltopas $1/nsIWebProgressListener.idl \ idltopas $1/nsIWebProgressListener.idl \
$1/nsIDOMNodeIterator.idl \ $1/nsIDOMNodeIterator.idl \
@ -151,4 +151,4 @@ idltopas $1/nsIWebProgressListener.idl \
$1/nsIDOMStorage.idl \ $1/nsIDOMStorage.idl \
$1/nsIContextMenuListener2.idl \ $1/nsIContextMenuListener2.idl \
$1/nsIDOMText.idl \ $1/nsIDOMText.idl \
-c idlctypes.cfg -m idltypemap.cfg -f forwarddecl.inc -o -m idltypemap.cfg -f forwarddecl.inc -o

12
components/geckoport/version2/nsNetUtil.pas
View File

@ -166,7 +166,7 @@ begin
Result := grip.NewFileURI(spec); Result := grip.NewFileURI(spec);
except except
str := NewUTF8String; str := NewUTF8String;
str.assign(spec.GetNativePath()); spec.GetNativePath(str.AUTF8String);
raise EGeckoError.CreateResFmt(PResStringRec(@SNewFileURIError), [str.ToString]); raise EGeckoError.CreateResFmt(PResStringRec(@SNewFileURIError), [str.ToString]);
end; end;
end; end;
@ -211,7 +211,7 @@ begin
Result := st; Result := st;
except except
str := NewCString; str := NewCString;
str.assign(uri.GetSpec()); uri.GetSpec(str.ACString);
raise EGeckoError.CreateResFmt(PResStringRec(@SOpenURIError), [str.ToString]); raise EGeckoError.CreateResFmt(PResStringRec(@SOpenURIError), [str.ToString]);
end; end;
end; end;
@ -231,7 +231,7 @@ begin
channel.AsyncOpen(listener, context); channel.AsyncOpen(listener, context);
except except
str := NewCString; str := NewCString;
str.assign(uri.GetSpec); uri.GetSpec(str.ACString);
raise EGeckoError.CreateResFmt(PResStringRec(@SOpenURIError), [str.ToString]); raise EGeckoError.CreateResFmt(PResStringRec(@SOpenURIError), [str.ToString]);
end; end;
end; end;
@ -252,7 +252,7 @@ begin
end else end else
if uri2.Length()>0 then if uri2.Length()>0 then
try try
uri2.assign(baseURI.Resolve(spec2.AUTF8String)); baseURI.Resolve(spec2.AUTF8String, uri2.AUTF8String);
except except
raise EGeckoError.CreateRes(PResStringRec(@SMakeAbsoluteURIError)); raise EGeckoError.CreateRes(PResStringRec(@SMakeAbsoluteURIError));
end else end else
@ -276,11 +276,11 @@ begin
end else end else
try try
if uri2.Length()=0 then if uri2.Length()=0 then
buf1.assign(baseURI.GetSpec()) baseURI.GetSpec(buf1.AUTF8String)
else else
begin begin
NS_UTF16ToCString(spec,NS_ENCODING_UTF8,buf2.AUTF8String); NS_UTF16ToCString(spec,NS_ENCODING_UTF8,buf2.AUTF8String);
buf1.assign(baseURI.Resolve(buf2.AUTF8String)); baseURI.Resolve(buf2.AUTF8String, buf1.AUTF8String);
end; end;
rv := NS_CStringToUTF16(buf1.AUTF8String, NS_ENCODING_UTF8, uri); rv := NS_CStringToUTF16(buf1.AUTF8String, NS_ENCODING_UTF8, uri);
if NS_FAILED(rv) then if NS_FAILED(rv) then

1
components/geckoport/version2/nsXPCOM.pas
View File

@ -14,7 +14,6 @@ unit nsXPCOM;
interface interface
uses uses
BaseUnix,
nsTypes; nsTypes;
{$i forwarddecl.inc} {$i forwarddecl.inc}

6
components/geckoport/version2/nsXPCOMGlue.pas
View File

@ -354,7 +354,7 @@ begin
raise EGeckoError.CreateRes(PResStringRec(@SGetComponentManagerError)); raise EGeckoError.CreateRes(PResStringRec(@SGetComponentManagerError));
try try
sCompMgr.CreateInstance(@CID, nil, @IID, Intf); sCompMgr.CreateInstance(CID, nil, IID, Intf);
except except
raise EGeckoError.CreateResFmt(PResStringRec(@SCreateInstanceError), [GUIDToString(CID)]); raise EGeckoError.CreateResFmt(PResStringRec(@SCreateInstanceError), [GUIDToString(CID)]);
end; end;
@ -371,7 +371,7 @@ begin
raise EGeckoError.CreateRes(PResStringRec(@SGetComponentManagerError)); raise EGeckoError.CreateRes(PResStringRec(@SGetComponentManagerError));
try try
sCompMgr.CreateInstanceByContractID(ContractID, nil, @IID, Intf); sCompMgr.CreateInstanceByContractID(ContractID, nil, IID, Intf);
except except
raise EGeckoError.CreateResFmt(PResStringRec(@SCreateInstanceError), [String(ContractID)]); raise EGeckoError.CreateResFmt(PResStringRec(@SCreateInstanceError), [String(ContractID)]);
end; end;
@ -405,7 +405,7 @@ begin
raise EGeckoError.CreateRes(PResStringRec(@SGetServiceManagerError)); raise EGeckoError.CreateRes(PResStringRec(@SGetServiceManagerError));
try try
sSrvMgr.GetServiceByContractID(ContractID, @IID, Intf); sSrvMgr.GetServiceByContractID(ContractID, IID, Intf);
except except
raise EGeckoError.CreateResFmt(PResStringRec(@SGetServiceError), [ContractID]); raise EGeckoError.CreateResFmt(PResStringRec(@SGetServiceError), [ContractID]);
end; end;