Luxophia

1
unit LUX.Code.C;
2

3
interface
4

5
uses
6
  Winapi.Windows,
7
  LUX;
8

9
type
10
     T_bool               = Boolean;    P_bool               = PBoolean;  { PP_bool               = PPBoolean;   } /////                 bool
11
     T_char               = AnsiChar;   P_char               = PAnsiChar;   PP_char               = PPAnsiChar;    /////                 char
12
     T_signed_char        = Shortint;   P_signed_char        = PShortint; { PP_signed_char        = PPShortint;  } /////    signed       char
13
     T_unsigned_char      = Byte;       P_unsigned_char      = PByte;       PP_unsigned_char      = PPByte;        /////  unsigned       char
14
     T_short              = Smallint;   P_short              = PSmallint; { PP_short              = PPSmallint;  } /////           short
15
     T_signed_short       = Smallint;   P_signed_short       = PSmallint; { PP_signed_short       = PPSmallint;  } /////    signed short
16
     T_unsigned_short     = Word;       P_unsigned_short     = PWord;     { PP_unsigned_short     = PPWord;      } /////  unsigned short
17
     T_short_int          = Smallint;   P_short_int          = PSmallint; { PP_short_int          = PPSmallint;  } /////           short int
18
     T_signed_short_int   = Smallint;   P_signed_short_int   = PSmallint; { PP_signed_short_int   = PPSmallint;  } /////    signed short int
19
     T_unsigned_short_int = Word;       P_unsigned_short_int = PWord;     { PP_unsigned_short_int = PPWord;      } /////  unsigned short int
20
     T_long               = Longint;    P_long               = PLongint;  { PP_long               = PPLongint;   } /////            long
21
     T_signed_long        = Longint;    P_signed_long        = PLongint;  { PP_signed_long        = PPLongint;   } /////    signed  long
22
     T_unsigned_long      = LongWord;   P_unsigned_long      = PLongWord; { PP_unsigned_long      = PPLongWord;  } /////  unsigned  long
23
     T_long_int           = Longint;    P_long_int           = PLongint;  { PP_long_int           = PPLongint;   } /////            long int
24
     T_signed_long_int    = Longint;    P_signed_long_int    = PLongint;  { PP_signed_long_int    = PPLongint;   } /////    signed  long int
25
     T_unsigned_long_int  = LongWord;   P_unsigned_long_int  = PLongWord; { PP_unsigned_long_int  = PPLongWord;  } /////  unsigned  long int
26
     T_signed             = Longint;    P_signed             = PLongint;  { PP_signed             = PPLongint;   } /////    signed
27
     T_unsigned           = LongWord;   P_unsigned           = PLongWord; { PP_unsigned           = PPLongWord;  } /////  unsigned
28
     T_int                = Longint;    P_int                = PLongint;  { PP_int                = PPLongint;   } /////                 int
29
     T_signed_int         = Longint;    P_signed_int         = PLongint;  { PP_signed_int         = PPLongint;   } /////    signed       int
30
     T_unsigned_int       = LongWord;   P_unsigned_int       = PLongWord; { PP_unsigned_int       = PPLongWord;  } /////  unsigned       int
31
     T___int64            = Int64;      P___int64            = PInt64;    { PP___int64            = PPInt64;     } /////                 __int64
32
     T_signed___int64     = Int64;      P_signed___int64     = PInt64;    { PP_signed___int64     = PPInt64;     } /////    signed       __int64
33
     T_float              = Single;     P_float              = PSingle;   { PP_float              = PPSingle;    } /////                 float
34
     T_double             = Double;     P_double             = PDouble;   { PP_double             = PPDouble;    } /////                 double
35
     T_long_double        = Extended;   P_long_double        = PExtended; { PP_long_double        = PPExtended;  } /////            long double
36
   { T_void                           } P_void               = Pointer;     PP_void               = PPointer;      /////                 void
37

38
     T_HANDLE             = THandle;    P_HANDLE             = PHandle;
39
     T_HINSTANCE          = HINST;
40
     T_HWND               = HWND;
41

42
     T_size_t             = SIZE_T;     P_size_t             = PSIZE_T;
43

44
     T_wchar_t            = WideChar;   P_wchar_t            = PWideChar;
45

46
     T_int8_t             = Int8;       P_int8_t             = PInt8;
47
     T_uint8_t            = UInt8;      P_uint8_t            = PUInt8;
48
     T_int16_t            = Int16;      P_int16_t            = PInt16;
49
     T_uint16_t           = UInt16;     P_uint16_t           = PUInt16;
50
     T_int32_t            = Int32;      P_int32_t            = PInt32;
51
     T_uint32_t           = UInt32;     P_uint32_t           = PUInt32;
52
     T_int64_t            = Int64;      P_int64_t            = PInt64;
53
     T_uint64_t           = UInt64;     P_uint64_t           = PUInt64;
54

55
     T_intptr_t           = IntPtr;     P_intptr_t           = PIntPtr;
56
     T_uintptr_t          = UIntPtr;    P_uintptr_t          = PUIntPtr;
57

58

59
//const
60

61
//var
62

63
implementation
64

65
initialization
66

67
finalization
68

69
end.
70