/packages/univint/src/CFDate.pas

https://github.com/slibre/freepascal · Pascal · 263 lines · 62 code · 36 blank · 165 comment · 0 complexity · 73cba8b2580bddbe9106addedb46ecd1 MD5 · raw file 

    

  1. {	CFDate.h
    2. 

  2. 	Copyright (c) 1998-2012, Apple Inc. All rights reserved.
    3. 

  3. }
    4. 

  4. {   Pascal Translation Updated:  Peter N Lewis, <peter@stairways.com.au>, September 2005 }
    5. 

  5. {   Pascal Translation Updated:  Jonas Maebe, <jonas@freepascal.org>, October 2009 }
    6. 

  6. {   Pascal Translation Updated:  Jonas Maebe <jonas@freepascal.org>, September 2012 }
    7. 

  7. {
    8. 

  8.     Modified for use with Free Pascal
    9. 

  9.     Version 308
    10. 

  10.     Please report any bugs to <gpc@microbizz.nl>
    11. 

  11. }
    12. 

  12. 

  13. {$ifc not defined MACOSALLINCLUDE or not MACOSALLINCLUDE}
    14. 

  14. {$mode macpas}
    15. 

  15. {$packenum 1}
    16. 

  16. {$macro on}
    17. 

  17. {$inline on}
    18. 

  18. {$calling mwpascal}
    19. 

  19. 

  20. unit CFDate;
    21. 

  21. interface
    22. 

  22. {$setc UNIVERSAL_INTERFACES_VERSION := $0400}
    23. 

  23. {$setc GAP_INTERFACES_VERSION := $0308}
    24. 

  24. 

  25. {$ifc not defined USE_CFSTR_CONSTANT_MACROS}
    26. 

  26.     {$setc USE_CFSTR_CONSTANT_MACROS := TRUE}
    27. 

  27. {$endc}
    28. 

  28. 

  29. {$ifc defined CPUPOWERPC and defined CPUI386}
    30. 

  30. 	{$error Conflicting initial definitions for CPUPOWERPC and CPUI386}
    31. 

  31. {$endc}
    32. 

  32. {$ifc defined FPC_BIG_ENDIAN and defined FPC_LITTLE_ENDIAN}
    33. 

  33. 	{$error Conflicting initial definitions for FPC_BIG_ENDIAN and FPC_LITTLE_ENDIAN}
    34. 

  34. {$endc}
    35. 

  35. 

  36. {$ifc not defined __ppc__ and defined CPUPOWERPC32}
    37. 

  37. 	{$setc __ppc__ := 1}
    38. 

  38. {$elsec}
    39. 

  39. 	{$setc __ppc__ := 0}
    40. 

  40. {$endc}
    41. 

  41. {$ifc not defined __ppc64__ and defined CPUPOWERPC64}
    42. 

  42. 	{$setc __ppc64__ := 1}
    43. 

  43. {$elsec}
    44. 

  44. 	{$setc __ppc64__ := 0}
    45. 

  45. {$endc}
    46. 

  46. {$ifc not defined __i386__ and defined CPUI386}
    47. 

  47. 	{$setc __i386__ := 1}
    48. 

  48. {$elsec}
    49. 

  49. 	{$setc __i386__ := 0}
    50. 

  50. {$endc}
    51. 

  51. {$ifc not defined __x86_64__ and defined CPUX86_64}
    52. 

  52. 	{$setc __x86_64__ := 1}
    53. 

  53. {$elsec}
    54. 

  54. 	{$setc __x86_64__ := 0}
    55. 

  55. {$endc}
    56. 

  56. {$ifc not defined __arm__ and defined CPUARM}
    57. 

  57. 	{$setc __arm__ := 1}
    58. 

  58. {$elsec}
    59. 

  59. 	{$setc __arm__ := 0}
    60. 

  60. {$endc}
    61. 

  61. 

  62. {$ifc defined cpu64}
    63. 

  63.   {$setc __LP64__ := 1}
    64. 

  64. {$elsec}
    65. 

  65.   {$setc __LP64__ := 0}
    66. 

  66. {$endc}
    67. 

  67. 

  68. 

  69. {$ifc defined __ppc__ and __ppc__ and defined __i386__ and __i386__}
    70. 

  70. 	{$error Conflicting definitions for __ppc__ and __i386__}
    71. 

  71. {$endc}
    72. 

  72. 

  73. {$ifc defined __ppc__ and __ppc__}
    74. 

  74. 	{$setc TARGET_CPU_PPC := TRUE}
    75. 

  75. 	{$setc TARGET_CPU_PPC64 := FALSE}
    76. 

  76. 	{$setc TARGET_CPU_X86 := FALSE}
    77. 

  77. 	{$setc TARGET_CPU_X86_64 := FALSE}
    78. 

  78. 	{$setc TARGET_CPU_ARM := FALSE}
    79. 

  79. 	{$setc TARGET_OS_MAC := TRUE}
    80. 

  80. 	{$setc TARGET_OS_IPHONE := FALSE}
    81. 

  81. 	{$setc TARGET_IPHONE_SIMULATOR := FALSE}
    82. 

  82. 	{$setc TARGET_OS_EMBEDDED := FALSE}
    83. 

  83. {$elifc defined __ppc64__ and __ppc64__}
    84. 

  84. 	{$setc TARGET_CPU_PPC := FALSE}
    85. 

  85. 	{$setc TARGET_CPU_PPC64 := TRUE}
    86. 

  86. 	{$setc TARGET_CPU_X86 := FALSE}
    87. 

  87. 	{$setc TARGET_CPU_X86_64 := FALSE}
    88. 

  88. 	{$setc TARGET_CPU_ARM := FALSE}
    89. 

  89. 	{$setc TARGET_OS_MAC := TRUE}
    90. 

  90. 	{$setc TARGET_OS_IPHONE := FALSE}
    91. 

  91. 	{$setc TARGET_IPHONE_SIMULATOR := FALSE}
    92. 

  92. 	{$setc TARGET_OS_EMBEDDED := FALSE}
    93. 

  93. {$elifc defined __i386__ and __i386__}
    94. 

  94. 	{$setc TARGET_CPU_PPC := FALSE}
    95. 

  95. 	{$setc TARGET_CPU_PPC64 := FALSE}
    96. 

  96. 	{$setc TARGET_CPU_X86 := TRUE}
    97. 

  97. 	{$setc TARGET_CPU_X86_64 := FALSE}
    98. 

  98. 	{$setc TARGET_CPU_ARM := FALSE}
    99. 

  99. {$ifc defined(iphonesim)}
    100. 

  100.  	{$setc TARGET_OS_MAC := FALSE}
    101. 

  101. 	{$setc TARGET_OS_IPHONE := TRUE}
    102. 

  102. 	{$setc TARGET_IPHONE_SIMULATOR := TRUE}
    103. 

  103. {$elsec}
    104. 

  104. 	{$setc TARGET_OS_MAC := TRUE}
    105. 

  105. 	{$setc TARGET_OS_IPHONE := FALSE}
    106. 

  106. 	{$setc TARGET_IPHONE_SIMULATOR := FALSE}
    107. 

  107. {$endc}
    108. 

  108. 	{$setc TARGET_OS_EMBEDDED := FALSE}
    109. 

  109. {$elifc defined __x86_64__ and __x86_64__}
    110. 

  110. 	{$setc TARGET_CPU_PPC := FALSE}
    111. 

  111. 	{$setc TARGET_CPU_PPC64 := FALSE}
    112. 

  112. 	{$setc TARGET_CPU_X86 := FALSE}
    113. 

  113. 	{$setc TARGET_CPU_X86_64 := TRUE}
    114. 

  114. 	{$setc TARGET_CPU_ARM := FALSE}
    115. 

  115. 	{$setc TARGET_OS_MAC := TRUE}
    116. 

  116. 	{$setc TARGET_OS_IPHONE := FALSE}
    117. 

  117. 	{$setc TARGET_IPHONE_SIMULATOR := FALSE}
    118. 

  118. 	{$setc TARGET_OS_EMBEDDED := FALSE}
    119. 

  119. {$elifc defined __arm__ and __arm__}
    120. 

  120. 	{$setc TARGET_CPU_PPC := FALSE}
    121. 

  121. 	{$setc TARGET_CPU_PPC64 := FALSE}
    122. 

  122. 	{$setc TARGET_CPU_X86 := FALSE}
    123. 

  123. 	{$setc TARGET_CPU_X86_64 := FALSE}
    124. 

  124. 	{$setc TARGET_CPU_ARM := TRUE}
    125. 

  125. 	{ will require compiler define when/if other Apple devices with ARM cpus ship }
    126. 

  126. 	{$setc TARGET_OS_MAC := FALSE}
    127. 

  127. 	{$setc TARGET_OS_IPHONE := TRUE}
    128. 

  128. 	{$setc TARGET_IPHONE_SIMULATOR := FALSE}
    129. 

  129. 	{$setc TARGET_OS_EMBEDDED := TRUE}
    130. 

  130. {$elsec}
    131. 

  131. 	{$error __ppc__ nor __ppc64__ nor __i386__ nor __x86_64__ nor __arm__ is defined.}
    132. 

  132. {$endc}
    133. 

  133. 

  134. {$ifc defined __LP64__ and __LP64__ }
    135. 

  135.   {$setc TARGET_CPU_64 := TRUE}
    136. 

  136. {$elsec}
    137. 

  137.   {$setc TARGET_CPU_64 := FALSE}
    138. 

  138. {$endc}
    139. 

  139. 

  140. {$ifc defined FPC_BIG_ENDIAN}
    141. 

  141. 	{$setc TARGET_RT_BIG_ENDIAN := TRUE}
    142. 

  142. 	{$setc TARGET_RT_LITTLE_ENDIAN := FALSE}
    143. 

  143. {$elifc defined FPC_LITTLE_ENDIAN}
    144. 

  144. 	{$setc TARGET_RT_BIG_ENDIAN := FALSE}
    145. 

  145. 	{$setc TARGET_RT_LITTLE_ENDIAN := TRUE}
    146. 

  146. {$elsec}
    147. 

  147. 	{$error Neither FPC_BIG_ENDIAN nor FPC_LITTLE_ENDIAN are defined.}
    148. 

  148. {$endc}
    149. 

  149. {$setc ACCESSOR_CALLS_ARE_FUNCTIONS := TRUE}
    150. 

  150. {$setc CALL_NOT_IN_CARBON := FALSE}
    151. 

  151. {$setc OLDROUTINENAMES := FALSE}
    152. 

  152. {$setc OPAQUE_TOOLBOX_STRUCTS := TRUE}
    153. 

  153. {$setc OPAQUE_UPP_TYPES := TRUE}
    154. 

  154. {$setc OTCARBONAPPLICATION := TRUE}
    155. 

  155. {$setc OTKERNEL := FALSE}
    156. 

  156. {$setc PM_USE_SESSION_APIS := TRUE}
    157. 

  157. {$setc TARGET_API_MAC_CARBON := TRUE}
    158. 

  158. {$setc TARGET_API_MAC_OS8 := FALSE}
    159. 

  159. {$setc TARGET_API_MAC_OSX := TRUE}
    160. 

  160. {$setc TARGET_CARBON := TRUE}
    161. 

  161. {$setc TARGET_CPU_68K := FALSE}
    162. 

  162. {$setc TARGET_CPU_MIPS := FALSE}
    163. 

  163. {$setc TARGET_CPU_SPARC := FALSE}
    164. 

  164. {$setc TARGET_OS_UNIX := FALSE}
    165. 

  165. {$setc TARGET_OS_WIN32 := FALSE}
    166. 

  166. {$setc TARGET_RT_MAC_68881 := FALSE}
    167. 

  167. {$setc TARGET_RT_MAC_CFM := FALSE}
    168. 

  168. {$setc TARGET_RT_MAC_MACHO := TRUE}
    169. 

  169. {$setc TYPED_FUNCTION_POINTERS := TRUE}
    170. 

  170. {$setc TYPE_BOOL := FALSE}
    171. 

  171. {$setc TYPE_EXTENDED := FALSE}
    172. 

  172. {$setc TYPE_LONGLONG := TRUE}
    173. 

  173. uses MacTypes,CFBase;
    174. 

  174. {$endc} {not MACOSALLINCLUDE}
    175. 

  175. 

  176. {$ALIGN POWER}
    177. 

  177. 

  178. 

  179. type
    180. 

  180. 	CFTimeInterval = Float64;
    181. 

  181. 	CFAbsoluteTime = CFTimeInterval;
    182. 

  182. 	CFAbsoluteTimePtr = ^CFAbsoluteTime;
    183. 

  183. { absolute time is the time interval since the reference date }
    184. 

  184. { the reference date (epoch) is 00:00:00 1 January 2001. }
    185. 

  185. 

  186. function CFAbsoluteTimeGetCurrent: CFAbsoluteTime; external name '_CFAbsoluteTimeGetCurrent';
    187. 

  187. 

  188. var kCFAbsoluteTimeIntervalSince1970: CFTimeInterval; external name '_kCFAbsoluteTimeIntervalSince1970'; (* attribute const *)
    189. 

  189. var kCFAbsoluteTimeIntervalSince1904: CFTimeInterval; external name '_kCFAbsoluteTimeIntervalSince1904'; (* attribute const *)
    190. 

  190. 

  191. type
    192. 

  192. 	CFDateRef = ^__CFDate; { an opaque type }
    193. 

  193. 	__CFDate = record end;
    194. 

  194. 	CFDateRefPtr = ^CFDateRef;
    195. 

  195. 

  196. function CFDateGetTypeID: CFTypeID; external name '_CFDateGetTypeID';
    197. 

  197. 

  198. function CFDateCreate( allocator: CFAllocatorRef; at: CFAbsoluteTime ): CFDateRef; external name '_CFDateCreate';
    199. 

  199. 

  200. function CFDateGetAbsoluteTime( theDate: CFDateRef ): CFAbsoluteTime; external name '_CFDateGetAbsoluteTime';
    201. 

  201. 

  202. function CFDateGetTimeIntervalSinceDate( theDate: CFDateRef; otherDate: CFDateRef ): CFTimeInterval; external name '_CFDateGetTimeIntervalSinceDate';
    203. 

  203. 

  204. function CFDateCompare( theDate: CFDateRef; otherDate: CFDateRef; context: UnivPtr ): CFComparisonResult; external name '_CFDateCompare';
    205. 

  205. 

  206. type
    207. 

  207. 	CFTimeZoneRef = ^__CFTimeZone; { an opaque type }
    208. 

  208. 	__CFTimeZone = record end;
    209. 

  209. 	CFTimeZoneRefPtr = ^CFTimeZoneRef;
    210. 

  210. 

  211. type
    212. 

  212. 	CFGregorianDate = record
    213. 

  213. 		year: SInt32;
    214. 

  214. 		month: SInt8;
    215. 

  215. 		day: SInt8;
    216. 

  216. 		hour: SInt8;
    217. 

  217. 		minute: SInt8;
    218. 

  218. 		second: Float64;
    219. 

  219. 	end;
    220. 

  220. 	CFGregorianDatePtr = ^CFGregorianDate;
    221. 

  221. 

  222. type
    223. 

  223. 	CFGregorianUnits = record
    224. 

  224. 		years: SInt32;
    225. 

  225. 		months: SInt32;
    226. 

  226. 		days: SInt32;
    227. 

  227. 		hours: SInt32;
    228. 

  228. 		minutes: SInt32;
    229. 

  229. 		seconds: Float64;
    230. 

  230. 	end;
    231. 

  231. 	CFGregorianUnitsPtr = ^CFGregorianUnits;
    232. 

  232. 

  233. type
    234. 

  234. 	CFGregorianUnitFlags = CFOptionFlags;
    235. 

  235. const
    236. 

  236. 	kCFGregorianUnitsYears = 1 shl 0;
    237. 

  237. 	kCFGregorianUnitsMonths = 1 shl 1;
    238. 

  238. 	kCFGregorianUnitsDays = 1 shl 2;
    239. 

  239. 	kCFGregorianUnitsHours = 1 shl 3;
    240. 

  240. 	kCFGregorianUnitsMinutes = 1 shl 4;
    241. 

  241. 	kCFGregorianUnitsSeconds = 1 shl 5;
    242. 

  242. 	kCFGregorianAllUnits = $00FFFFFF;
    243. 

  243. 

  244. function CFGregorianDateIsValid( gdate: CFGregorianDate; unitFlags: CFOptionFlags ): Boolean; external name '_CFGregorianDateIsValid';
    245. 

  245. 

  246. function CFGregorianDateGetAbsoluteTime( gdate: CFGregorianDate; tz: CFTimeZoneRef ): CFAbsoluteTime; external name '_CFGregorianDateGetAbsoluteTime';
    247. 

  247. 

  248. function CFAbsoluteTimeGetGregorianDate( at: CFAbsoluteTime; tz: CFTimeZoneRef ): CFGregorianDate; external name '_CFAbsoluteTimeGetGregorianDate';
    249. 

  249. 

  250. function CFAbsoluteTimeAddGregorianUnits( at: CFAbsoluteTime; tz: CFTimeZoneRef; units: CFGregorianUnits ): CFAbsoluteTime; external name '_CFAbsoluteTimeAddGregorianUnits';
    251. 

  251. 

  252. function CFAbsoluteTimeGetDifferenceAsGregorianUnits( at1: CFAbsoluteTime; at2: CFAbsoluteTime; tz: CFTimeZoneRef; unitFlags: CFOptionFlags ): CFGregorianUnits; external name '_CFAbsoluteTimeGetDifferenceAsGregorianUnits';
    253. 

  253. 

  254. function CFAbsoluteTimeGetDayOfWeek( at: CFAbsoluteTime; tz: CFTimeZoneRef ): SInt32; external name '_CFAbsoluteTimeGetDayOfWeek';
    255. 

  255. 

  256. function CFAbsoluteTimeGetDayOfYear( at: CFAbsoluteTime; tz: CFTimeZoneRef ): SInt32; external name '_CFAbsoluteTimeGetDayOfYear';
    257. 

  257. 

  258. function CFAbsoluteTimeGetWeekOfYear( at: CFAbsoluteTime; tz: CFTimeZoneRef ): SInt32; external name '_CFAbsoluteTimeGetWeekOfYear';
    259. 

  259. 

  260. {$ifc not defined MACOSALLINCLUDE or not MACOSALLINCLUDE}
    261. 

  261. 

  262. end.
    263. 

  263. {$endc} {not MACOSALLINCLUDE}
    264.