← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to fpcsrc/packages/extra/univint/DHCPClientPreferences.pas

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/extra/univint/DHCPClientPreferences.pas
 
1
{
 
2
 * Copyright (c) 2001 Apple Computer, Inc. All rights reserved.
 
3
 *
 
4
 * @APPLE_LICENSE_HEADER_START@
 
5
 * 
 
6
 * This file contains Original Code and/or Modifications of Original Code
 
7
 * as defined in and that are subject to the Apple Public Source License
 
8
 * Version 2.0 (the 'License'). You may not use this file except in
 
9
 * compliance with the License. Please obtain a copy of the License at
 
10
 * http://www.opensource.apple.com/apsl/ and read it before using this
 
11
 * file.
 
12
 * 
 
13
 * The Original Code and all software distributed under the License are
 
14
 * distributed on an 'AS IS' basis, WITHOUT WARRANTY of ANY KIND, EITHER
 
15
 * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
 
16
 * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES of MERCHANTABILITY,
 
17
 * FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
 
18
 * Please see the License for the specific language governing rights and
 
19
 * limitations under the License.
 
20
 * 
 
21
 * @APPLE_LICENSE_HEADER_END@
 
22
 }
 
23
{         Pascal Translation:  Peter N Lewis, <peter@stairways.com.au>, 2004 }
 
24
 
 
25
 
 
26
{
 
27
    Modified for use with Free Pascal
 
28
    Version 200
 
29
    Please report any bugs to <gpc@microbizz.nl>
 
30
}
 
31
 
 
32
{$mode macpas}
 
33
{$packenum 1}
 
34
{$macro on}
 
35
{$inline on}
 
36
{$CALLING MWPASCAL}
 
37
 
 
38
unit DHCPClientPreferences;
 
39
interface
 
40
{$setc UNIVERSAL_INTERFACES_VERSION := $0342}
 
41
{$setc GAP_INTERFACES_VERSION := $0200}
 
42
 
 
43
{$ifc not defined USE_CFSTR_CONSTANT_MACROS}
 
44
    {$setc USE_CFSTR_CONSTANT_MACROS := TRUE}
 
45
{$endc}
 
46
 
 
47
{$ifc defined CPUPOWERPC and defined CPUI386}
 
48
        {$error Conflicting initial definitions for CPUPOWERPC and CPUI386}
 
49
{$endc}
 
50
{$ifc defined FPC_BIG_ENDIAN and defined FPC_LITTLE_ENDIAN}
 
51
        {$error Conflicting initial definitions for FPC_BIG_ENDIAN and FPC_LITTLE_ENDIAN}
 
52
{$endc}
 
53
 
 
54
{$ifc not defined __ppc__ and defined CPUPOWERPC}
 
55
        {$setc __ppc__ := 1}
 
56
{$elsec}
 
57
        {$setc __ppc__ := 0}
 
58
{$endc}
 
59
{$ifc not defined __i386__ and defined CPUI386}
 
60
        {$setc __i386__ := 1}
 
61
{$elsec}
 
62
        {$setc __i386__ := 0}
 
63
{$endc}
 
64
 
 
65
{$ifc defined __ppc__ and __ppc__ and defined __i386__ and __i386__}
 
66
        {$error Conflicting definitions for __ppc__ and __i386__}
 
67
{$endc}
 
68
 
 
69
{$ifc defined __ppc__ and __ppc__}
 
70
        {$setc TARGET_CPU_PPC := TRUE}
 
71
        {$setc TARGET_CPU_X86 := FALSE}
 
72
{$elifc defined __i386__ and __i386__}
 
73
        {$setc TARGET_CPU_PPC := FALSE}
 
74
        {$setc TARGET_CPU_X86 := TRUE}
 
75
{$elsec}
 
76
        {$error Neither __ppc__ nor __i386__ is defined.}
 
77
{$endc}
 
78
{$setc TARGET_CPU_PPC_64 := FALSE}
 
79
 
 
80
{$ifc defined FPC_BIG_ENDIAN}
 
81
        {$setc TARGET_RT_BIG_ENDIAN := TRUE}
 
82
        {$setc TARGET_RT_LITTLE_ENDIAN := FALSE}
 
83
{$elifc defined FPC_LITTLE_ENDIAN}
 
84
        {$setc TARGET_RT_BIG_ENDIAN := FALSE}
 
85
        {$setc TARGET_RT_LITTLE_ENDIAN := TRUE}
 
86
{$elsec}
 
87
        {$error Neither FPC_BIG_ENDIAN nor FPC_LITTLE_ENDIAN are defined.}
 
88
{$endc}
 
89
{$setc ACCESSOR_CALLS_ARE_FUNCTIONS := TRUE}
 
90
{$setc CALL_NOT_IN_CARBON := FALSE}
 
91
{$setc OLDROUTINENAMES := FALSE}
 
92
{$setc OPAQUE_TOOLBOX_STRUCTS := TRUE}
 
93
{$setc OPAQUE_UPP_TYPES := TRUE}
 
94
{$setc OTCARBONAPPLICATION := TRUE}
 
95
{$setc OTKERNEL := FALSE}
 
96
{$setc PM_USE_SESSION_APIS := TRUE}
 
97
{$setc TARGET_API_MAC_CARBON := TRUE}
 
98
{$setc TARGET_API_MAC_OS8 := FALSE}
 
99
{$setc TARGET_API_MAC_OSX := TRUE}
 
100
{$setc TARGET_CARBON := TRUE}
 
101
{$setc TARGET_CPU_68K := FALSE}
 
102
{$setc TARGET_CPU_MIPS := FALSE}
 
103
{$setc TARGET_CPU_SPARC := FALSE}
 
104
{$setc TARGET_OS_MAC := TRUE}
 
105
{$setc TARGET_OS_UNIX := FALSE}
 
106
{$setc TARGET_OS_WIN32 := FALSE}
 
107
{$setc TARGET_RT_MAC_68881 := FALSE}
 
108
{$setc TARGET_RT_MAC_CFM := FALSE}
 
109
{$setc TARGET_RT_MAC_MACHO := TRUE}
 
110
{$setc TYPED_FUNCTION_POINTERS := TRUE}
 
111
{$setc TYPE_BOOL := FALSE}
 
112
{$setc TYPE_EXTENDED := FALSE}
 
113
{$setc TYPE_LONGLONG := TRUE}
 
114
uses MacTypes,CFBase;
 
115
{$ALIGN MAC68K}
 
116
 
 
117
{!
 
118
        @header DHCPClientPreferences.h
 
119
 }
 
120
 
 
121
{!
 
122
        @function DHCPClientPreferencesSetApplicationOptions
 
123
        @discussion Updates the DHCP client preferences to include the
 
124
                given list of options for the given "applicationID".
 
125
        @param applicationID The application's preference ID, for example:
 
126
                "com.apple.SystemPreferences".
 
127
        @param options An array of 8-bit values containing the
 
128
                DHCP option codes (see RFC 2132) for this applicationID.
 
129
                A NULL value will clear the list of options for this
 
130
                application ID.
 
131
        @param count The number of elements in "options".
 
132
        @result TRUE if the operation succeeded, FALSE otherwise.
 
133
 }
 
134
 
 
135
function DHCPClientPreferencesSetApplicationOptions( applicationID: CFStringRef; options: UInt8Ptr; count: CFIndex ): Boolean; external name '_DHCPClientPreferencesSetApplicationOptions';
 
136
 
 
137
{!
 
138
        @function DHCPClientPreferencesCopyApplicationOptions
 
139
        @discussion Copies the requested DHCP options for the
 
140
                given "applicationID".
 
141
        @param applicationID The application's preference ID, for example
 
142
                "com.apple.SystemPreferences".
 
143
        @param count The number of elements in the returned array.
 
144
        @result The list of options for the given "applicationID", or
 
145
                NULL if no options are defined or an error occurred.
 
146
 
 
147
                When done, use free() to release a non-NULL return value.
 
148
 }
 
149
 
 
150
function DHCPClientPreferencesCopyApplicationOptions( applicationID: CFStringRef; var count: CFIndex ): UInt8Ptr; external name '_DHCPClientPreferencesCopyApplicationOptions';
 
151
 
 
152
end.