mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-21 14:28:11 +02:00
31 lines
383 B
ObjectPascal
31 lines
383 B
ObjectPascal
unit foundation;
|
|
|
|
{$ifdef fpc}
|
|
{$mode objfpc}{$H+}
|
|
{$packrecords c}
|
|
{$endif}
|
|
|
|
{$linkframework Cocoa}
|
|
|
|
interface
|
|
|
|
uses SysUtils, ctypes, lobjc, MacOSAll;
|
|
|
|
{$define HEADER}
|
|
{$include Foundation.inc}
|
|
{$undef HEADER}
|
|
|
|
type
|
|
{$define CLASSES}
|
|
{$include Foundation.inc}
|
|
{$undef CLASSES}
|
|
|
|
implementation
|
|
|
|
{$define IMPLEMENTATION}
|
|
{$include Foundation.inc}
|
|
{$undef IMPLEMENTATION}
|
|
|
|
end.
|
|
|