2008-02-17 07:38:48 +00:00
|
|
|
unit foundation;
|
|
|
|
|
|
|
|
|
|
{$ifdef fpc}
|
|
|
|
|
{$mode delphi}
|
|
|
|
|
{$packrecords c}
|
|
|
|
|
{$endif}
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
uses ctypes, objc, FPCMacOSAll;
|
|
|
|
|
|
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.
|
|
|
|
|
|
