2008-02-17 07:38:48 +00:00
|
|
|
unit foundation;
|
|
|
|
|
|
|
|
|
|
{$ifdef fpc}
|
2008-03-14 01:05:09 +00:00
|
|
|
{$mode objfpc}{$H+}
|
2008-02-17 07:38:48 +00:00
|
|
|
{$packrecords c}
|
|
|
|
|
{$endif}
|
|
|
|
|
|
2008-06-24 02:01:19 +00:00
|
|
|
{$linkframework Cocoa}
|
|
|
|
|
|
2008-02-17 07:38:48 +00:00
|
|
|
interface
|
|
|
|
|
|
2008-09-29 00:47:50 +00:00
|
|
|
uses SysUtils, ctypes, objc, MacOSAll;
|
2008-02-17 07:38:48 +00:00
|
|
|
|
2008-02-22 22:39:15 +00:00
|
|
|
{$define HEADER}
|
2008-02-17 07:38:48 +00:00
|
|
|
{$include Foundation.inc}
|
2008-02-22 22:39:15 +00:00
|
|
|
{$undef HEADER}
|
|
|
|
|
|
|
|
|
|
type
|
|
|
|
|
{$define CLASSES}
|
|
|
|
|
{$include Foundation.inc}
|
|
|
|
|
{$undef CLASSES}
|
2008-02-17 07:38:48 +00:00
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
2008-02-22 22:39:15 +00:00
|
|
|
{$define IMPLEMENTATION}
|
|
|
|
|
{$include Foundation.inc}
|
|
|
|
|
{$undef IMPLEMENTATION}
|
2008-02-17 07:38:48 +00:00
|
|
|
|
|
|
|
|
end.
|
|
|
|
|
|
