← Back to branch summary

~ubuntu-branches/ubuntu/lucid/fpc/lucid-proposed

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-10-09 23:29:00 UTC
  • mfrom: (4.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20081009232900-553f61m37jkp6upv
Tags: 2.2.2-4
http://bugs.debian.org/498882
[ Torsten Werner ]
* Update ABI version in fpc-depends automatically.
* Remove empty directories from binary package fpc-source.

[ Mazen Neifer ]
* Removed leading path when calling update-alternatives to remove a Linitian
  error.
* Fixed clean target.
* Improved description of packages. (Closes: #498882)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/extra/univint/PLStringFuncs.pas
1
 
{
2
 
     File:       PLStringFuncs.p
3
 
 
4
 
     Contains:   Pascal string manipulation routines that parallel ANSI C string.h
5
 
 
6
 
     Version:    Technology: Mac OS
7
 
                 Release:    Universal Interfaces 3.4.2
8
 
 
9
 
     Copyright:  � 1999-2002 by Apple Computer, Inc., all rights reserved.
10
 
 
11
 
     Bugs?:      For bug reports, consult the following page on
12
 
                 the World Wide Web:
13
 
 
14
 
                     http://www.freepascal.org/bugs.html
15
 
 
16
 
}
17
 
 
18
 
 
19
 
{
20
 
    Modified for use with Free Pascal
21
 
    Version 200
22
 
    Please report any bugs to <gpc@microbizz.nl>
23
 
}
24
 
 
25
 
{$mode macpas}
26
 
{$packenum 1}
27
 
{$macro on}
28
 
{$inline on}
29
 
{$CALLING MWPASCAL}
30
 
 
31
 
unit PLStringFuncs;
32
 
interface
33
 
{$setc UNIVERSAL_INTERFACES_VERSION := $0342}
34
 
{$setc GAP_INTERFACES_VERSION := $0200}
35
 
 
36
 
{$ifc not defined USE_CFSTR_CONSTANT_MACROS}
37
 
    {$setc USE_CFSTR_CONSTANT_MACROS := TRUE}
38
 
{$endc}
39
 
 
40
 
{$ifc defined CPUPOWERPC and defined CPUI386}
41
 
        {$error Conflicting initial definitions for CPUPOWERPC and CPUI386}
42
 
{$endc}
43
 
{$ifc defined FPC_BIG_ENDIAN and defined FPC_LITTLE_ENDIAN}
44
 
        {$error Conflicting initial definitions for FPC_BIG_ENDIAN and FPC_LITTLE_ENDIAN}
45
 
{$endc}
46
 
 
47
 
{$ifc not defined __ppc__ and defined CPUPOWERPC}
48
 
        {$setc __ppc__ := 1}
49
 
{$elsec}
50
 
        {$setc __ppc__ := 0}
51
 
{$endc}
52
 
{$ifc not defined __i386__ and defined CPUI386}
53
 
        {$setc __i386__ := 1}
54
 
{$elsec}
55
 
        {$setc __i386__ := 0}
56
 
{$endc}
57
 
 
58
 
{$ifc defined __ppc__ and __ppc__ and defined __i386__ and __i386__}
59
 
        {$error Conflicting definitions for __ppc__ and __i386__}
60
 
{$endc}
61
 
 
62
 
{$ifc defined __ppc__ and __ppc__}
63
 
        {$setc TARGET_CPU_PPC := TRUE}
64
 
        {$setc TARGET_CPU_X86 := FALSE}
65
 
{$elifc defined __i386__ and __i386__}
66
 
        {$setc TARGET_CPU_PPC := FALSE}
67
 
        {$setc TARGET_CPU_X86 := TRUE}
68
 
{$elsec}
69
 
        {$error Neither __ppc__ nor __i386__ is defined.}
70
 
{$endc}
71
 
{$setc TARGET_CPU_PPC_64 := FALSE}
72
 
 
73
 
{$ifc defined FPC_BIG_ENDIAN}
74
 
        {$setc TARGET_RT_BIG_ENDIAN := TRUE}
75
 
        {$setc TARGET_RT_LITTLE_ENDIAN := FALSE}
76
 
{$elifc defined FPC_LITTLE_ENDIAN}
77
 
        {$setc TARGET_RT_BIG_ENDIAN := FALSE}
78
 
        {$setc TARGET_RT_LITTLE_ENDIAN := TRUE}
79
 
{$elsec}
80
 
        {$error Neither FPC_BIG_ENDIAN nor FPC_LITTLE_ENDIAN are defined.}
81
 
{$endc}
82
 
{$setc ACCESSOR_CALLS_ARE_FUNCTIONS := TRUE}
83
 
{$setc CALL_NOT_IN_CARBON := FALSE}
84
 
{$setc OLDROUTINENAMES := FALSE}
85
 
{$setc OPAQUE_TOOLBOX_STRUCTS := TRUE}
86
 
{$setc OPAQUE_UPP_TYPES := TRUE}
87
 
{$setc OTCARBONAPPLICATION := TRUE}
88
 
{$setc OTKERNEL := FALSE}
89
 
{$setc PM_USE_SESSION_APIS := TRUE}
90
 
{$setc TARGET_API_MAC_CARBON := TRUE}
91
 
{$setc TARGET_API_MAC_OS8 := FALSE}
92
 
{$setc TARGET_API_MAC_OSX := TRUE}
93
 
{$setc TARGET_CARBON := TRUE}
94
 
{$setc TARGET_CPU_68K := FALSE}
95
 
{$setc TARGET_CPU_MIPS := FALSE}
96
 
{$setc TARGET_CPU_SPARC := FALSE}
97
 
{$setc TARGET_OS_MAC := TRUE}
98
 
{$setc TARGET_OS_UNIX := FALSE}
99
 
{$setc TARGET_OS_WIN32 := FALSE}
100
 
{$setc TARGET_RT_MAC_68881 := FALSE}
101
 
{$setc TARGET_RT_MAC_CFM := FALSE}
102
 
{$setc TARGET_RT_MAC_MACHO := TRUE}
103
 
{$setc TYPED_FUNCTION_POINTERS := TRUE}
104
 
{$setc TYPE_BOOL := FALSE}
105
 
{$setc TYPE_EXTENDED := FALSE}
106
 
{$setc TYPE_LONGLONG := TRUE}
107
 
uses MacTypes;
108
 
 
109
 
 
110
 
{$ALIGN MAC68K}
111
 
 
112
 
{
113
 
 *  PLstrcmp()
114
 
 *  
115
 
 *  Availability:
116
 
 *    Non-Carbon CFM:   not available
117
 
 *    CarbonLib:        in CarbonLib 1.0 and later
118
 
 *    Mac OS X:         in version 10.0 and later
119
 
 }
120
 
function PLstrcmp(const (*var*) str1: Str255; const (*var*) str2: Str255): SInt16; external name '_PLstrcmp';
121
 
 
122
 
{
123
 
 *  PLstrncmp()
124
 
 *  
125
 
 *  Availability:
126
 
 *    Non-Carbon CFM:   not available
127
 
 *    CarbonLib:        in CarbonLib 1.0 and later
128
 
 *    Mac OS X:         in version 10.0 and later
129
 
 }
130
 
function PLstrncmp(const (*var*) str1: Str255; const (*var*) str2: Str255; num: SInt16): SInt16; external name '_PLstrncmp';
131
 
 
132
 
{
133
 
 *  PLstrcpy()
134
 
 *  
135
 
 *  Availability:
136
 
 *    Non-Carbon CFM:   not available
137
 
 *    CarbonLib:        in CarbonLib 1.0 and later
138
 
 *    Mac OS X:         in version 10.0 and later
139
 
 }
140
 
function PLstrcpy(str1: StringPtr; const (*var*) str2: Str255): StringPtr; external name '_PLstrcpy';
141
 
 
142
 
{
143
 
 *  PLstrncpy()
144
 
 *  
145
 
 *  Availability:
146
 
 *    Non-Carbon CFM:   not available
147
 
 *    CarbonLib:        in CarbonLib 1.0 and later
148
 
 *    Mac OS X:         in version 10.0 and later
149
 
 }
150
 
function PLstrncpy(str1: StringPtr; const (*var*) str2: Str255; num: SInt16): StringPtr; external name '_PLstrncpy';
151
 
 
152
 
{
153
 
 *  PLstrcat()
154
 
 *  
155
 
 *  Availability:
156
 
 *    Non-Carbon CFM:   not available
157
 
 *    CarbonLib:        in CarbonLib 1.0 and later
158
 
 *    Mac OS X:         in version 10.0 and later
159
 
 }
160
 
function PLstrcat(str1: StringPtr; const (*var*) str2: Str255): StringPtr; external name '_PLstrcat';
161
 
 
162
 
{
163
 
 *  PLstrncat()
164
 
 *  
165
 
 *  Availability:
166
 
 *    Non-Carbon CFM:   not available
167
 
 *    CarbonLib:        in CarbonLib 1.0 and later
168
 
 *    Mac OS X:         in version 10.0 and later
169
 
 }
170
 
function PLstrncat(str1: StringPtr; const (*var*) str2: Str255; num: SInt16): StringPtr; external name '_PLstrncat';
171
 
 
172
 
{
173
 
 *  PLstrchr()
174
 
 *  
175
 
 *  Availability:
176
 
 *    Non-Carbon CFM:   not available
177
 
 *    CarbonLib:        in CarbonLib 1.0 and later
178
 
 *    Mac OS X:         in version 10.0 and later
179
 
 }
180
 
function PLstrchr(const (*var*) str1: Str255; ch1: SInt16): Ptr; external name '_PLstrchr';
181
 
 
182
 
{
183
 
 *  PLstrrchr()
184
 
 *  
185
 
 *  Availability:
186
 
 *    Non-Carbon CFM:   not available
187
 
 *    CarbonLib:        in CarbonLib 1.0 and later
188
 
 *    Mac OS X:         in version 10.0 and later
189
 
 }
190
 
function PLstrrchr(const (*var*) str1: Str255; ch1: SInt16): Ptr; external name '_PLstrrchr';
191
 
 
192
 
{
193
 
 *  PLstrpbrk()
194
 
 *  
195
 
 *  Availability:
196
 
 *    Non-Carbon CFM:   not available
197
 
 *    CarbonLib:        in CarbonLib 1.0 and later
198
 
 *    Mac OS X:         in version 10.0 and later
199
 
 }
200
 
function PLstrpbrk(const (*var*) str1: Str255; const (*var*) str2: Str255): Ptr; external name '_PLstrpbrk';
201
 
 
202
 
{
203
 
 *  PLstrspn()
204
 
 *  
205
 
 *  Availability:
206
 
 *    Non-Carbon CFM:   not available
207
 
 *    CarbonLib:        in CarbonLib 1.0 and later
208
 
 *    Mac OS X:         in version 10.0 and later
209
 
 }
210
 
function PLstrspn(const (*var*) str1: Str255; const (*var*) str2: Str255): SInt16; external name '_PLstrspn';
211
 
 
212
 
{
213
 
 *  PLstrstr()
214
 
 *  
215
 
 *  Availability:
216
 
 *    Non-Carbon CFM:   not available
217
 
 *    CarbonLib:        in CarbonLib 1.0 and later
218
 
 *    Mac OS X:         in version 10.0 and later
219
 
 }
220
 
function PLstrstr(const (*var*) str1: Str255; const (*var*) str2: Str255): Ptr; external name '_PLstrstr';
221
 
 
222
 
{
223
 
 *  PLstrlen()
224
 
 *  
225
 
 *  Availability:
226
 
 *    Non-Carbon CFM:   not available
227
 
 *    CarbonLib:        in CarbonLib 1.0 and later
228
 
 *    Mac OS X:         in version 10.0 and later
229
 
 }
230
 
function PLstrlen(const (*var*) str: Str255): SInt16; external name '_PLstrlen';
231
 
 
232
 
{
233
 
 *  PLpos()
234
 
 *  
235
 
 *  Availability:
236
 
 *    Non-Carbon CFM:   not available
237
 
 *    CarbonLib:        in CarbonLib 1.0 and later
238
 
 *    Mac OS X:         in version 10.0 and later
239
 
 }
240
 
function PLpos(const (*var*) str1: Str255; const (*var*) str2: Str255): SInt16; external name '_PLpos';
241
 
 
242
 
 
243
 
{$ALIGN MAC68K}
244
 
 
245
 
 
246
 
end.