mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-06 08:07:01 +02:00

unit has been renamed ObjCRuntime, to avoid a name clash with the the other Objective-C translation, and this unit is also not included in the MacOSAll unit * warning: the FPCMacOSAll unit is now called MacOSAll, to avoid requiring ifdefs when keeping a program compilable between e.g. GPC and FPC ... r211 | gale | 2008-03-19 07:41:36 +0100 (Wed, 19 Mar 2008) | 6 lines Changed paths: A /metaPascal/trunc/MPPInterfaces/CGLTypes.pas A /metaPascal/trunc/MPPInterfaces/CVBase.pas A /metaPascal/trunc/MPPInterfaces/CVBuffer.pas A /metaPascal/trunc/MPPInterfaces/CVDisplayLink.pas A /metaPascal/trunc/MPPInterfaces/CVHostTime.pas A /metaPascal/trunc/MPPInterfaces/CVImageBuffer.pas A /metaPascal/trunc/MPPInterfaces/CVPixelBuffer.pas A /metaPascal/trunc/MPPInterfaces/CVPixelBufferPool.pas A /metaPascal/trunc/MPPInterfaces/CVPixelFormatDescription.pas A /metaPascal/trunc/MPPInterfaces/CVReturns.pas Initial translations of CGLTypes.h, CVBase.h, CVBuffer.h, CVDisplayLink.h, CVHostTime.h, CVImageBuffer.h, CVPixelBuffer.h, CVPixelBufferPool.h, CVPixelFormatDescription.h, and CVReturn.h from MacOSX10.4u.sdk. To avoid a GPC identifier redeclaration problem, Pascal unit and file name corresponding to CVReturn.h uses a "s" suffix. ... r212 | gale | 2008-03-19 09:55:13 +0100 (Wed, 19 Mar 2008) | 4 lines Changed paths: D /metaPascal/trunc/MPPInterfaces/CGDisplayFade.pas A /metaPascal/trunc/MPPInterfaces/CGDisplayFades.pas (from /metaPascal/trunc/MPPInterfaces/CGDisplayFade.pas:210) M /metaPascal/trunc/MPPInterfaces/CoreGraphics.pas Renamed CGDisplayFade unit to CGDisplayFades to fix a GPC gpc-20070904 redeclaration issue involving the function CGDisplayFade. Also, updated the CoreGraphics framework unit's uses clause to reflect the name change. ... r213 | adriaan | 2008-03-25 09:37:06 +0100 (Tue, 25 Mar 2008) | 1 line Changed paths: M /metaPascal/trunc/MPPInterfaces/fp.pas Fix precision of pi ... r214 | adriaan | 2008-03-25 09:50:48 +0100 (Tue, 25 Mar 2008) | 1 line Changed paths: M /metaPascal/trunc/MPPInterfaces/Menus.pas Fix byte parameter of GetMenuItemModifiers, SetMenuItemModifiers, GetMenuItemIconHandle and SetMenuItemIconHandle ... r215 | adriaan | 2008-03-25 12:19:33 +0100 (Tue, 25 Mar 2008) | 1 line Changed paths: M /metaPascal/trunc/Scripts/GenerateFile.pl Use FourCharCode casts for FPC instead of hex numbers. ... r216 | peter | 2008-03-25 14:20:20 +0100 (Tue, 25 Mar 2008) | 1 line Changed paths: M /metaPascal/trunc/Makefile M /metaPascal/trunc/Scripts/GenerateFile.pl M /metaPascal/trunc/Scripts/GenerateMakefile.pl M /metaPascal/trunc/Scripts/make-common-interfaces.pl XXXMacOSAll -> MacOSAll ... r217 | adriaan | 2008-03-25 17:52:07 +0100 (Tue, 25 Mar 2008) | 1 line Changed paths: M /metaPascal/trunc/MPPInterfaces/CFByteOrders.pas Fix the result type of CFConvertFloat64SwappedToHost and friends for GPC and MW ... r218 | gale | 2008-03-26 04:15:58 +0100 (Wed, 26 Mar 2008) | 2 lines Changed paths: M /metaPascal/trunc/Scripts/GenerateFile.pl Increment the GAP version number for tbe upcoming release. ... r219 | adriaan | 2008-03-26 11:41:37 +0100 (Wed, 26 Mar 2008) | 1 line Changed paths: M /metaPascal/trunc/MPPInterfaces/Events.pas Change KeyMap to packed array of boolean for FPC. Solve GetKeys endian issue on PowerPC for FPC and GPC. ... r220 | adriaan | 2008-03-26 12:19:19 +0100 (Wed, 26 Mar 2008) | 1 line Changed paths: M /metaPascal/trunc/MPPInterfaces/fp.pas Add pi=system.pi to fp.p for FPC ... r221 | adriaan | 2008-03-26 12:41:27 +0100 (Wed, 26 Mar 2008) | 1 line Changed paths: M /metaPascal/trunc/MPPInterfaces/Menus.pas Fix GetItemMark and GetItemCmd for FPC and GPC ... r222 | adriaan | 2008-03-26 16:42:53 +0100 (Wed, 26 Mar 2008) | 1 line Changed paths: M /metaPascal/trunc/Scripts/GenerateMakefile.pl Add support for: make GPC_COMPILER=xxx FPC_COMPILER=yyy compile ... r223 | adriaan | 2008-03-30 17:25:57 +0200 (Sun, 30 Mar 2008) | 1 line Changed paths: M /metaPascal/trunc/Scripts/GenerateFile.pl Implement 'const var' for GPCt ... r224 | adriaan | 2008-04-23 18:26:04 +0200 (Wed, 23 Apr 2008) | 1 line Changed paths: M /metaPascal/trunc/MPPInterfaces/AIFF.pas Rename ID in AIFF.pas to ChunkID ... r225 | adriaan | 2008-04-23 18:34:38 +0200 (Wed, 23 Apr 2008) | 1 line Changed paths: A /metaPascal/trunc/MPPInterfaces/ObjC.pas Add Objective-C Runtime ObjC.pas ... r226 | adriaan | 2008-05-04 07:19:30 +0200 (Sun, 04 May 2008) | 1 line Changed paths: M /metaPascal/trunc/MPPInterfaces/Files.pas M /metaPascal/trunc/MPPInterfaces/Folders.pas Introduce DirIDType = SInt32 ... r227 | adriaan | 2008-05-04 11:51:08 +0200 (Sun, 04 May 2008) | 1 line Changed paths: M /metaPascal/trunc/MPPInterfaces/CFByteOrders.pas M /metaPascal/trunc/MPPInterfaces/Events.pas M /metaPascal/trunc/MPPInterfaces/Menus.pas M /metaPascal/trunc/MPPInterfaces/ToolUtils.pas Fix MW warnings for units with an implementation part ... r228 | adriaan | 2008-05-05 09:13:10 +0200 (Mon, 05 May 2008) | 1 line Changed paths: M /metaPascal/trunc/MPPInterfaces/FPCStrings.pas Fix compile error in FPCStrings.pas ... r229 | adriaan | 2008-05-05 09:34:13 +0200 (Mon, 05 May 2008) | 1 line Changed paths: M /metaPascal/trunc/Scripts/GenerateMacOS.pl Add GPCStrings.pas (aka FPCStrings.pas) to MacOS.pas ... r230 | adriaan | 2008-05-06 12:30:18 +0200 (Tue, 06 May 2008) | 1 line Changed paths: M /metaPascal/trunc/Scripts/GenerateFile.pl Set GAP release version to 210 instead of 201 ... r232 | adriaan | 2008-05-07 09:09:30 +0200 (Wed, 07 May 2008) | 1 line Changed paths: M /metaPascal/trunc/Scripts/GenerateFile.pl Fix GPC implemented procedures, functions and constants ... r233 | adriaan | 2008-05-09 07:55:17 +0200 (Fri, 09 May 2008) | 1 line Changed paths: M /metaPascal/trunc/MPPInterfaces/ObjC.pas Add attribute(ignorable) to objc_msgSend(Super) ... r234 | adriaan | 2008-05-16 21:09:52 +0200 (Fri, 16 May 2008) | 1 line Changed paths: M /metaPascal/trunc/MPPInterfaces/ObjC.pas Remove FPC implemented functions that reference the ObjC runtime ... git-svn-id: trunk@11137 -
199 lines
7.0 KiB
ObjectPascal
199 lines
7.0 KiB
ObjectPascal
{
|
|
* Copyright (c) 2000-2002 Apple Computer, Inc. All rights reserved.
|
|
*
|
|
* @APPLE_LICENSE_HEADER_START@
|
|
*
|
|
* This file contains Original Code and/or Modifications of Original Code
|
|
* as defined in and that are subject to the Apple Public Source License
|
|
* Version 2.0 (the 'License'). You may not use this file except in
|
|
* compliance with the License. Please obtain a copy of the License at
|
|
* http://www.opensource.apple.com/apsl/ and read it before using this
|
|
* file.
|
|
*
|
|
* The Original Code and all software distributed under the License are
|
|
* distributed on an 'AS IS' basis, WITHOUT WARRANTY of ANY KIND, EITHER
|
|
* EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
|
|
* INCLUDING WITHOUT LIMITATION, ANY WARRANTIES of MERCHANTABILITY,
|
|
* FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
|
|
* Please see the License for the specific language governing rights and
|
|
* limitations under the License.
|
|
*
|
|
* @APPLE_LICENSE_HEADER_END@
|
|
}
|
|
{ Pascal Translation: Peter N Lewis, <peter@stairways.com.au>, 2004 }
|
|
|
|
|
|
{
|
|
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 SCDynamicStoreKey;
|
|
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,CFBase;
|
|
{$ALIGN MAC68K}
|
|
|
|
{!
|
|
@header SCDynamicStoreKey
|
|
}
|
|
|
|
{
|
|
* SCDynamicStoreKeyCreate*
|
|
* - convenience routines that create a CFString key for an item in the store
|
|
}
|
|
|
|
{!
|
|
@function SCDynamicStoreKeyCreate
|
|
@discussion Creates a store key using the given format.
|
|
}
|
|
// function SCDynamicStoreKeyCreate( allocator: CFAllocatorRef; fmt: CFStringRef; ... ): CFStringRef;
|
|
|
|
{!
|
|
@function SCDynamicStoreKeyCreateNetworkGlobalEntity
|
|
}
|
|
function SCDynamicStoreKeyCreateNetworkGlobalEntity( allocator: CFAllocatorRef; domain: CFStringRef; entity: CFStringRef ): CFStringRef; external name '_SCDynamicStoreKeyCreateNetworkGlobalEntity';
|
|
|
|
{!
|
|
@function SCDynamicStoreKeyCreateNetworkInterface
|
|
}
|
|
function SCDynamicStoreKeyCreateNetworkInterface( allocator: CFAllocatorRef; domain: CFStringRef ): CFStringRef; external name '_SCDynamicStoreKeyCreateNetworkInterface';
|
|
|
|
{!
|
|
@function SCDynamicStoreKeyCreateNetworkInterfaceEntity
|
|
}
|
|
function SCDynamicStoreKeyCreateNetworkInterfaceEntity( allocator: CFAllocatorRef; domain: CFStringRef; ifname: CFStringRef; entity: CFStringRef ): CFStringRef; external name '_SCDynamicStoreKeyCreateNetworkInterfaceEntity';
|
|
|
|
{!
|
|
@function SCDynamicStoreKeyCreateNetworkServiceEntity
|
|
}
|
|
function SCDynamicStoreKeyCreateNetworkServiceEntity( allocator: CFAllocatorRef; domain: CFStringRef; serviceID: CFStringRef; entity: CFStringRef ): CFStringRef; external name '_SCDynamicStoreKeyCreateNetworkServiceEntity';
|
|
|
|
{!
|
|
@function SCDynamicStoreKeyCreateComputerName
|
|
@discussion Creates a key that can be used by the SCDynamicStoreSetNotificationKeys()
|
|
function to receive notifications when the current
|
|
computer/host name changes.
|
|
@result A notification string for the current computer/host name.
|
|
}
|
|
function SCDynamicStoreKeyCreateComputerName( allocator: CFAllocatorRef ): CFStringRef; external name '_SCDynamicStoreKeyCreateComputerName';
|
|
|
|
{!
|
|
@function SCDynamicStoreKeyCreateConsoleUser
|
|
@discussion Creates a key that can be used by the SCDynamicStoreSetNotificationKeys()
|
|
function to receive notifications when the current "Console"
|
|
user changes.
|
|
@result A notification string for the current "Console" user.
|
|
}
|
|
function SCDynamicStoreKeyCreateConsoleUser( allocator: CFAllocatorRef ): CFStringRef; external name '_SCDynamicStoreKeyCreateConsoleUser';
|
|
|
|
{!
|
|
@function SCDynamicStoreKeyCreateHostNames
|
|
@discussion Creates a key that can be used in conjunction with
|
|
SCDynamicStoreSetNotificationKeys() to receive
|
|
notifications when the HostNames entity changes. The
|
|
HostNames entity contains the LocalHostName.
|
|
@result A notification string for the HostNames entity.
|
|
}
|
|
function SCDynamicStoreKeyCreateHostNames( allocator: CFAllocatorRef ): CFStringRef; external name '_SCDynamicStoreKeyCreateHostNames';
|
|
|
|
{!
|
|
@function SCDynamicStoreKeyCreateLocation
|
|
@discussion Creates a key that can be used in conjunction with
|
|
SCDynamicStoreSetNotificationKeys() to receive
|
|
notifications when the "location" identifier changes.
|
|
@result A notification string for the current "location" identifier.
|
|
}
|
|
function SCDynamicStoreKeyCreateLocation( allocator: CFAllocatorRef ): CFStringRef; external name '_SCDynamicStoreKeyCreateLocation';
|
|
|
|
{!
|
|
@function SCDynamicStoreKeyCreateProxies
|
|
@discussion Creates a key that can be used by the SCDynamicStoreSetNotificationKeys()
|
|
function to receive notifications when the current network proxy
|
|
settings (HTTP, FTP, ...) are changed.
|
|
@result A notification string for the current proxy settings.
|
|
}
|
|
function SCDynamicStoreKeyCreateProxies( allocator: CFAllocatorRef ): CFStringRef; external name '_SCDynamicStoreKeyCreateProxies';
|
|
|
|
end.
|