/packages/cocoaint/src/Foundation.pas

https://github.com/slibre/freepascal · Pascal · 81 lines · 29 code · 18 blank · 34 comment · 0 complexity · 19dea1be81cc3094f92187c8454d7dbd MD5 · raw file 

    

  1. unit Foundation;
    2. 

  2. 

  3. {$mode objfpc}
    4. 

  4. {$modeswitch objectivec1}
    5. 

  5. {$define NSGEOMETRY_TYPES_SAME_AS_CGGEOMETRY_TYPES}
    6. 

  6. 

  7. interface
    8. 

  8. 

  9. uses 
    10. 

  10.   ctypes, MacOSAll;
    11. 

  11.   
    12. 

  12. {$linkframework Foundation}
    13. 

  13. 

  14. {$include UndefinedTypes.inc}
    15. 

  15. 

  16. {$define HEADER}
    17. 

  17. {$include foundation/Foundation.inc}
    18. 

  18. {$undef HEADER}
    19. 

  19. 

  20. {$define TYPES}
    21. 

  21. {$include foundation/Foundation.inc}
    22. 

  22. {$undef TYPES}
    23. 

  23. 

  24. {$define RECORDS}
    25. 

  25. {$include foundation/Foundation.inc}
    26. 

  26. {$undef RECORDS}
    27. 

  27. 

  28. type
    29. 

  29. {$define FORWARD}
    30. 

  30. {$include foundation/Foundation.inc}
    31. 

  31. {$undef FORWARD}
    32. 

  32. 

  33. {$define CLASSES}
    34. 

  34. {$include foundation/Foundation.inc}
    35. 

  35. {$undef CLASSES}
    36. 

  36.  
    37. 

  37. {$define PROTOCOLS}
    38. 

  38. {$include foundation/Foundation.inc}
    39. 

  39. {$undef PROTOCOLS}
    40. 

  40. 

  41. {$define FUNCTIONS}
    42. 

  42. {$include foundation/Foundation.inc}
    43. 

  43. {$undef FUNCTIONS}
    44. 

  44. 

  45. {$define EXTERNAL_SYMBOLS}
    46. 

  46. {$include foundation/Foundation.inc}
    47. 

  47. {$undef EXTERNAL_SYMBOLS}
    48. 

  48. 

  49. {$define USER_PATCHES}
    50. 

  50. {$include foundation/Foundation.inc}
    51. 

  51. {$undef USER_PATCHES}
    52. 

  52. 

  53. { Inline functions }
    54. 

  54. function NSSTR (inString: PChar): NSString;
    55. 

  55. function NSMakeRange (loc: NSUInteger; len: NSUInteger): NSRange;
    56. 

  56. function NSMaxRange (range: NSRange): NSUInteger;
    57. 

  57. function NSLocationInRange (loc: NSUInteger; range: NSRange): boolean;
    58. 

  58. function NSEqualRanges (range1, range2: NSRange): boolean;
    59. 

  59. function NSMakePoint (x: CGFloat; y: CGFloat): NSPoint;
    60. 

  60. function NSMakeSize(w: CGFloat; h: CGFloat): NSSize;
    61. 

  61. function NSMakeRect(x, y: CGFloat; w, h: CGFloat): NSRect;
    62. 

  62. function NSMaxX (aRect: NSRect): CGFloat;
    63. 

  63. function NSMaxY (aRect: NSRect): CGFloat;
    64. 

  64. function NSMidX (aRect: NSRect): CGFloat;
    65. 

  65. function NSMidY (aRect: NSRect): CGFloat;
    66. 

  66. function NSMinX (aRect: NSRect): CGFloat;
    67. 

  67. function NSMinY (aRect: NSRect): CGFloat;
    68. 

  68. function NSWidth (aRect: NSRect): CGFloat;
    69. 

  69. function NSHeight (aRect: NSRect): CGFloat;
    70. 

  70. function NSRectFromCGRect (aRect: CGRect): NSRect;
    71. 

  71. function NSRectToCGRect (aRect: NSRect): CGRect;
    72. 

  72. function NSPointFromCGPoint (aPoint: CGPoint): NSPoint;
    73. 

  73. function NSPointToCGPoint (aPoint: NSPoint): CGPoint;
    74. 

  74. function NSSizeFromCGSize(aSize: CGSize): NSSize;
    75. 

  75. function NSSizeToCGSize(aSize: NSSize): CGSize;
    76. 

  76. 

  77. implementation
    78. 

  78. 

  79. {$include InlineFunctions.inc}
    80. 

  80. 

  81. end.
    82.