mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 17:21:20 +02:00
+ file belonging to r13518
git-svn-id: trunk@13520 -
This commit is contained in:
Jonas Maebe
parent
b44bdaa07b
commit
0ee167af14
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -4700,6 +4700,7 @@ packages/univint/src/CFPlugIn.pas svneol=native#text/plain
|
||||
packages/univint/src/CFPlugInCOM.pas svneol=native#text/plain
|
||||
packages/univint/src/CFPreferences.pas svneol=native#text/plain
|
||||
packages/univint/src/CFPropertyList.pas svneol=native#text/plain
|
||||
packages/univint/src/CFProxySupport.pas svneol=native#text/plain
|
||||
packages/univint/src/CFRunLoop.pas svneol=native#text/plain
|
||||
packages/univint/src/CFSet.pas svneol=native#text/plain
|
||||
packages/univint/src/CFSocket.pas svneol=native#text/plain
|
||||
|
||||
401
packages/univint/src/CFProxySupport.pas
Normal file
401
packages/univint/src/CFProxySupport.pas
Normal file
@ -0,0 +1,401 @@
|
||||
{
|
||||
File: CFNetwork/CFProxySupport.h
|
||||
|
||||
Contains: Support for computing which proxy applies when
|
||||
|
||||
Version: CFNetwork-219~1
|
||||
|
||||
Copyright: © 2006 by Apple Computer, Inc., all rights reserved
|
||||
|
||||
}
|
||||
|
||||
{ Pascal Translation: Gale R Paeper, <gpaeper@empirenet.com>, 2008 }
|
||||
|
||||
{
|
||||
Modified for use with Free Pascal
|
||||
Version 210
|
||||
Please report any bugs to <gpc@microbizz.nl>
|
||||
}
|
||||
|
||||
{$mode macpas}
|
||||
{$packenum 1}
|
||||
{$macro on}
|
||||
{$inline on}
|
||||
{$calling mwpascal}
|
||||
|
||||
unit CFProxySupport;
|
||||
interface
|
||||
{$setc UNIVERSAL_INTERFACES_VERSION := $0342}
|
||||
{$setc GAP_INTERFACES_VERSION := $0210}
|
||||
|
||||
{$ifc not defined USE_CFSTR_CONSTANT_MACROS}
|
||||
{$setc USE_CFSTR_CONSTANT_MACROS := TRUE}
|
||||
{$endc}
|
||||
|
||||
{$ifc defined CPUPOWERPC and defined CPUI386}
|
||||
{$error Conflicting initial definitions for CPUPOWERPC and CPUI386}
|
||||
{$endc}
|
||||
{$ifc defined FPC_BIG_ENDIAN and defined FPC_LITTLE_ENDIAN}
|
||||
{$error Conflicting initial definitions for FPC_BIG_ENDIAN and FPC_LITTLE_ENDIAN}
|
||||
{$endc}
|
||||
|
||||
{$ifc not defined __ppc__ and defined CPUPOWERPC}
|
||||
{$setc __ppc__ := 1}
|
||||
{$elsec}
|
||||
{$setc __ppc__ := 0}
|
||||
{$endc}
|
||||
{$ifc not defined __i386__ and defined CPUI386}
|
||||
{$setc __i386__ := 1}
|
||||
{$elsec}
|
||||
{$setc __i386__ := 0}
|
||||
{$endc}
|
||||
|
||||
{$ifc defined __ppc__ and __ppc__ and defined __i386__ and __i386__}
|
||||
{$error Conflicting definitions for __ppc__ and __i386__}
|
||||
{$endc}
|
||||
|
||||
{$ifc defined __ppc__ and __ppc__}
|
||||
{$setc TARGET_CPU_PPC := TRUE}
|
||||
{$setc TARGET_CPU_X86 := FALSE}
|
||||
{$elifc defined __i386__ and __i386__}
|
||||
{$setc TARGET_CPU_PPC := FALSE}
|
||||
{$setc TARGET_CPU_X86 := TRUE}
|
||||
{$elsec}
|
||||
{$error Neither __ppc__ nor __i386__ is defined.}
|
||||
{$endc}
|
||||
{$setc TARGET_CPU_PPC_64 := FALSE}
|
||||
|
||||
{$ifc defined FPC_BIG_ENDIAN}
|
||||
{$setc TARGET_RT_BIG_ENDIAN := TRUE}
|
||||
{$setc TARGET_RT_LITTLE_ENDIAN := FALSE}
|
||||
{$elifc defined FPC_LITTLE_ENDIAN}
|
||||
{$setc TARGET_RT_BIG_ENDIAN := FALSE}
|
||||
{$setc TARGET_RT_LITTLE_ENDIAN := TRUE}
|
||||
{$elsec}
|
||||
{$error Neither FPC_BIG_ENDIAN nor FPC_LITTLE_ENDIAN are defined.}
|
||||
{$endc}
|
||||
{$setc ACCESSOR_CALLS_ARE_FUNCTIONS := TRUE}
|
||||
{$setc CALL_NOT_IN_CARBON := FALSE}
|
||||
{$setc OLDROUTINENAMES := FALSE}
|
||||
{$setc OPAQUE_TOOLBOX_STRUCTS := TRUE}
|
||||
{$setc OPAQUE_UPP_TYPES := TRUE}
|
||||
{$setc OTCARBONAPPLICATION := TRUE}
|
||||
{$setc OTKERNEL := FALSE}
|
||||
{$setc PM_USE_SESSION_APIS := TRUE}
|
||||
{$setc TARGET_API_MAC_CARBON := TRUE}
|
||||
{$setc TARGET_API_MAC_OS8 := FALSE}
|
||||
{$setc TARGET_API_MAC_OSX := TRUE}
|
||||
{$setc TARGET_CARBON := TRUE}
|
||||
{$setc TARGET_CPU_68K := FALSE}
|
||||
{$setc TARGET_CPU_MIPS := FALSE}
|
||||
{$setc TARGET_CPU_SPARC := FALSE}
|
||||
{$setc TARGET_OS_MAC := TRUE}
|
||||
{$setc TARGET_OS_UNIX := FALSE}
|
||||
{$setc TARGET_OS_WIN32 := FALSE}
|
||||
{$setc TARGET_RT_MAC_68881 := FALSE}
|
||||
{$setc TARGET_RT_MAC_CFM := FALSE}
|
||||
{$setc TARGET_RT_MAC_MACHO := TRUE}
|
||||
{$setc TYPED_FUNCTION_POINTERS := TRUE}
|
||||
{$setc TYPE_BOOL := FALSE}
|
||||
{$setc TYPE_EXTENDED := FALSE}
|
||||
{$setc TYPE_LONGLONG := TRUE}
|
||||
uses MacTypes, CFArray, CFBase, CFDictionary, CFURL, CFError, CFRunLoop, CFStream;
|
||||
{$ALIGN POWER}
|
||||
|
||||
|
||||
{
|
||||
These APIs return arrays of dictionaries, where each dictionary describes a single proxy.
|
||||
The arrays represent the order in which the proxies should be tried - try to download the URL
|
||||
using the first entry in the array, and if that fails, try using the second entry, and so on.
|
||||
|
||||
The keys to the proxy dictionaries follow the function declarations; every proxy dictionary
|
||||
will have an entry for kCFProxyTypeKey. If the type is anything except
|
||||
kCFProxyTypeAutoConfigurationURL, the dictionary will also have entries for the proxy's host
|
||||
and port (under kCFProxyHostNameKey and kCFProxyPortNumberKey respectively). If the type is
|
||||
kCFProxyTypeAutoConfigurationURL, it will have an entry for kCFProxyAutoConfigurationURLKey.
|
||||
|
||||
The keys for username and password are optional and will only be present if the username
|
||||
or password could be extracted from the information passed in (i.e. either the URL itself
|
||||
or the proxy dictionary supplied). These APIs do not consult any external credential stores
|
||||
(such as the Keychain).
|
||||
}
|
||||
|
||||
|
||||
{
|
||||
* CFNetworkCopyProxiesForURL()
|
||||
*
|
||||
* Discussion:
|
||||
* Given a URL and a proxy dictionary, determines the ordered list
|
||||
* of proxies that should be used to download the given URL.
|
||||
*
|
||||
* Parameters:
|
||||
*
|
||||
* url:
|
||||
* The URL to be accessed
|
||||
*
|
||||
* proxySettings:
|
||||
* A dictionary describing the available proxy settings; the
|
||||
* dictionary's format should match that described in and returned
|
||||
* by SystemConfiguration.framework
|
||||
*
|
||||
* Result:
|
||||
* An array of dictionaries; each dictionary describes a single
|
||||
* proxy. See the comment at the top of this file for how to
|
||||
* interpret the returned dictionaries.
|
||||
*
|
||||
* Availability:
|
||||
* Mac OS X: in version 10.5 and later in CoreServices.framework
|
||||
* CarbonLib: not available
|
||||
* Non-Carbon CFM: not available
|
||||
}
|
||||
function CFNetworkCopyProxiesForURL( url: CFURLRef; proxySettings: CFDictionaryRef ): CFArrayRef; external name '_CFNetworkCopyProxiesForURL';
|
||||
(* AVAILABLE_MAC_OS_X_VERSION_10_5_AND_LATER *)
|
||||
|
||||
|
||||
{
|
||||
* CFProxyAutoConfigurationResultCallback
|
||||
*
|
||||
* Discussion:
|
||||
* Callback function to be called when a PAC file computation
|
||||
* (initiated by either CFNetworkExecuteProxyAutoConfigurationScript
|
||||
* or CFNetworkExecuteProxyAutoConfigurationURL) has completed.
|
||||
*
|
||||
* Parameters:
|
||||
*
|
||||
* client:
|
||||
* The client reference passed in to
|
||||
* CFNetworkExecuteProxyAutoConfigurationScript or
|
||||
* CFNetworkExecuteProxyAutoConfigurationURL
|
||||
*
|
||||
* proxyList:
|
||||
* Upon success, the list of proxies returned by the
|
||||
* autoconfiguration script. The list has the same format as
|
||||
* returned by CFProxyCopyProxiesForURL, above, except that no
|
||||
* entry may be of type kCFProxyTypeAutoConfigurationURL. Note
|
||||
* that if the client wishes to keep this list, they must retain
|
||||
* it when they receive this callback.
|
||||
*
|
||||
* error:
|
||||
* Upon failure, an error object explaining the failure.
|
||||
}
|
||||
type
|
||||
CFProxyAutoConfigurationResultCallback = procedure( client: UnivPtr; proxyList: CFArrayRef; error: CFErrorRef );
|
||||
{
|
||||
* CFNetworkCopyProxiesForAutoConfigurationScript()
|
||||
*
|
||||
* Discussion:
|
||||
* Begins the process of executing proxyAutoConfigurationScript to
|
||||
* determine the correct proxy to use to retrieve targetURL. The
|
||||
* caller should schedule the returned run loop source; when the
|
||||
* results are found, the caller's callback will be called via the
|
||||
* run loop, passing a valid proxyList and NULL error upon success,
|
||||
* or a NULL proxyList and valid error on failure. The caller
|
||||
* should invalidate the returned run loop source if it wishes to
|
||||
* terminate the request before completion.
|
||||
*
|
||||
* Parameters:
|
||||
*
|
||||
* proxyAutoConfigurationScript:
|
||||
* A CFString containing the code of the script to be executed.
|
||||
*
|
||||
* targetURL:
|
||||
* The URL that should be input in to the autoconfiguration script
|
||||
*
|
||||
* Result:
|
||||
* An array of dictionaries describing the proxies returned by the
|
||||
* script.
|
||||
*
|
||||
* Availability:
|
||||
* Mac OS X: in version 10.5 and later in CoreServices.framework
|
||||
* CarbonLib: not available
|
||||
* Non-Carbon CFM: not available
|
||||
}
|
||||
function CFNetworkCopyProxiesForAutoConfigurationScript( proxyAutoConfigurationScript: CFStringRef; targetURL: CFURLRef ): CFArrayRef; external name '_CFNetworkCopyProxiesForAutoConfigurationScript';
|
||||
(* AVAILABLE_MAC_OS_X_VERSION_10_5_AND_LATER *)
|
||||
|
||||
|
||||
{
|
||||
* CFNetworkExecuteProxyAutoConfigurationURL()
|
||||
*
|
||||
* Discussion:
|
||||
* As CFNetworkExecuteProxyAutoConfigurationScript(), above, except
|
||||
* that CFNetworkExecuteProxyAutoConfigurationURL will additionally
|
||||
* download the contents of proxyAutoConfigURL, convert it to a
|
||||
* JavaScript string, and then execute that script.
|
||||
*
|
||||
* Availability:
|
||||
* Mac OS X: in version 10.5 and later in CoreServices.framework
|
||||
* CarbonLib: not available
|
||||
* Non-Carbon CFM: not available
|
||||
}
|
||||
function CFNetworkExecuteProxyAutoConfigurationURL( proxyAutoConfigURL: CFURLRef; targetURL: CFURLRef; cb: CFProxyAutoConfigurationResultCallback; var clientContext: CFStreamClientContext ): CFRunLoopSourceRef; external name '_CFNetworkExecuteProxyAutoConfigurationURL';
|
||||
(* AVAILABLE_MAC_OS_X_VERSION_10_5_AND_LATER *)
|
||||
|
||||
|
||||
{
|
||||
* kCFProxyTypeKey
|
||||
*
|
||||
* Discussion:
|
||||
* Key for the type of proxy being represented; value will be one of
|
||||
* the kCFProxyType constants listed below.
|
||||
*
|
||||
* Availability:
|
||||
* Mac OS X: in version 10.5 and later in CoreServices.framework
|
||||
* CarbonLib: not available
|
||||
* Non-Carbon CFM: not available
|
||||
}
|
||||
var kCFProxyTypeKey: CFStringRef; external name '_kCFProxyTypeKey'; (* attribute const *)
|
||||
(* AVAILABLE_MAC_OS_X_VERSION_10_5_AND_LATER *)
|
||||
|
||||
{
|
||||
* kCFProxyHostNameKey
|
||||
*
|
||||
* Discussion:
|
||||
* Key for the proxy's hostname; value is a CFString. Note that
|
||||
* this may be an IPv4 or IPv6 dotted-IP string.
|
||||
*
|
||||
* Availability:
|
||||
* Mac OS X: in version 10.5 and later in CoreServices.framework
|
||||
* CarbonLib: not available
|
||||
* Non-Carbon CFM: not available
|
||||
}
|
||||
var kCFProxyHostNameKey: CFStringRef; external name '_kCFProxyHostNameKey'; (* attribute const *)
|
||||
(* AVAILABLE_MAC_OS_X_VERSION_10_5_AND_LATER *)
|
||||
|
||||
{
|
||||
* kCFProxyPortNumberKey
|
||||
*
|
||||
* Discussion:
|
||||
* Key for the proxy's port number; value is a CFNumber specifying
|
||||
* the port on which to contact the proxy
|
||||
*
|
||||
* Availability:
|
||||
* Mac OS X: in version 10.5 and later in CoreServices.framework
|
||||
* CarbonLib: not available
|
||||
* Non-Carbon CFM: not available
|
||||
}
|
||||
var kCFProxyPortNumberKey: CFStringRef; external name '_kCFProxyPortNumberKey'; (* attribute const *)
|
||||
(* AVAILABLE_MAC_OS_X_VERSION_10_5_AND_LATER *)
|
||||
|
||||
{
|
||||
* kCFProxyAutoConfigurationURLKey
|
||||
*
|
||||
* Discussion:
|
||||
* Key for the proxy's PAC file location; this key is only present
|
||||
* if the proxy's type is kCFProxyTypeAutoConfigurationURL. Value
|
||||
* is a CFURL specifying the location of a proxy auto-configuration
|
||||
* file
|
||||
*
|
||||
* Availability:
|
||||
* Mac OS X: in version 10.5 and later in CoreServices.framework
|
||||
* CarbonLib: not available
|
||||
* Non-Carbon CFM: not available
|
||||
}
|
||||
var kCFProxyAutoConfigurationURLKey: CFStringRef; external name '_kCFProxyAutoConfigurationURLKey'; (* attribute const *)
|
||||
(* AVAILABLE_MAC_OS_X_VERSION_10_5_AND_LATER *)
|
||||
|
||||
{
|
||||
* kCFProxyUsernameKey
|
||||
*
|
||||
* Discussion:
|
||||
* Key for the username to be used with the proxy; value is a
|
||||
* CFString. Note that this key will only be present if the username
|
||||
* could be extracted from the information passed in. No external
|
||||
* credential stores (like the Keychain) are consulted.
|
||||
*
|
||||
* Availability:
|
||||
* Mac OS X: in version 10.5 and later in CoreServices.framework
|
||||
* CarbonLib: not available
|
||||
* Non-Carbon CFM: not available
|
||||
}
|
||||
var kCFProxyUsernameKey: CFStringRef; external name '_kCFProxyUsernameKey'; (* attribute const *)
|
||||
(* AVAILABLE_MAC_OS_X_VERSION_10_5_AND_LATER *)
|
||||
|
||||
{
|
||||
* kCFProxyPasswordKey
|
||||
*
|
||||
* Discussion:
|
||||
* Key for the password to be used with the proxy; value is a
|
||||
* CFString. Note that this key will only be present if the username
|
||||
* could be extracted from the information passed in. No external
|
||||
* credential stores (like the Keychain) are consulted.
|
||||
*
|
||||
* Availability:
|
||||
* Mac OS X: in version 10.5 and later in CoreServices.framework
|
||||
* CarbonLib: not available
|
||||
* Non-Carbon CFM: not available
|
||||
}
|
||||
var kCFProxyPasswordKey: CFStringRef; external name '_kCFProxyPasswordKey'; (* attribute const *)
|
||||
(* AVAILABLE_MAC_OS_X_VERSION_10_5_AND_LATER *)
|
||||
|
||||
{
|
||||
Possible values for kCFProxyTypeKey:
|
||||
kCFProxyTypeNone - no proxy should be used; contact the origin server directly
|
||||
kCFProxyTypeHTTP - the proxy is an HTTP proxy
|
||||
kCFProxyTypeHTTPS - the proxy is a tunneling proxy as used for HTTPS
|
||||
kCFProxyTypeSOCKS - the proxy is a SOCKS proxy
|
||||
kCFProxyTypeFTP - the proxy is an FTP proxy
|
||||
kCFProxyTypeAutoConfigurationURL - the proxy is specified by a proxy autoconfiguration (PAC) file
|
||||
}
|
||||
{
|
||||
* kCFProxyTypeNone
|
||||
*
|
||||
* Availability:
|
||||
* Mac OS X: in version 10.5 and later in CoreServices.framework
|
||||
* CarbonLib: not available
|
||||
* Non-Carbon CFM: not available
|
||||
}
|
||||
var kCFProxyTypeNone: CFStringRef; external name '_kCFProxyTypeNone'; (* attribute const *)
|
||||
(* AVAILABLE_MAC_OS_X_VERSION_10_5_AND_LATER *)
|
||||
{
|
||||
* kCFProxyTypeHTTP
|
||||
*
|
||||
* Availability:
|
||||
* Mac OS X: in version 10.5 and later in CoreServices.framework
|
||||
* CarbonLib: not available
|
||||
* Non-Carbon CFM: not available
|
||||
}
|
||||
var kCFProxyTypeHTTP: CFStringRef; external name '_kCFProxyTypeHTTP'; (* attribute const *)
|
||||
(* AVAILABLE_MAC_OS_X_VERSION_10_5_AND_LATER *)
|
||||
{
|
||||
* kCFProxyTypeHTTPS
|
||||
*
|
||||
* Availability:
|
||||
* Mac OS X: in version 10.5 and later in CoreServices.framework
|
||||
* CarbonLib: not available
|
||||
* Non-Carbon CFM: not available
|
||||
}
|
||||
var kCFProxyTypeHTTPS: CFStringRef; external name '_kCFProxyTypeHTTPS'; (* attribute const *)
|
||||
(* AVAILABLE_MAC_OS_X_VERSION_10_5_AND_LATER *)
|
||||
{
|
||||
* kCFProxyTypeSOCKS
|
||||
*
|
||||
* Availability:
|
||||
* Mac OS X: in version 10.5 and later in CoreServices.framework
|
||||
* CarbonLib: not available
|
||||
* Non-Carbon CFM: not available
|
||||
}
|
||||
var kCFProxyTypeSOCKS: CFStringRef; external name '_kCFProxyTypeSOCKS'; (* attribute const *)
|
||||
(* AVAILABLE_MAC_OS_X_VERSION_10_5_AND_LATER *)
|
||||
{
|
||||
* kCFProxyTypeFTP
|
||||
*
|
||||
* Availability:
|
||||
* Mac OS X: in version 10.5 and later in CoreServices.framework
|
||||
* CarbonLib: not available
|
||||
* Non-Carbon CFM: not available
|
||||
}
|
||||
var kCFProxyTypeFTP: CFStringRef; external name '_kCFProxyTypeFTP'; (* attribute const *)
|
||||
(* AVAILABLE_MAC_OS_X_VERSION_10_5_AND_LATER *)
|
||||
{
|
||||
* kCFProxyTypeAutoConfigurationURL
|
||||
*
|
||||
* Availability:
|
||||
* Mac OS X: in version 10.5 and later in CoreServices.framework
|
||||
* CarbonLib: not available
|
||||
* Non-Carbon CFM: not available
|
||||
}
|
||||
var kCFProxyTypeAutoConfigurationURL: CFStringRef; external name '_kCFProxyTypeAutoConfigurationURL'; (* attribute const *)
|
||||
(* AVAILABLE_MAC_OS_X_VERSION_10_5_AND_LATER *)
|
||||
|
||||
end.
|
||||
Loading…
Reference in New Issue
Block a user