1 system;

     2 

     3 type 

     4     Integer = integer;

     5     LongInt = integer;

     6     LongWord = integer;

     7     Cardinal = integer;

     8     PtrInt = integer;

     9     Word = integer;

    10     Byte = integer;

    11     SmallInt = integer;

    12     ShortInt = integer;

    13     QWord = integer;

    14     GLint = integer;

    15     GLuint = integer;

    16     int = integer;

    17     size_t = integer;

    18 

    19     pointer = pointer;

    20 

    21     float = float;

    22     single = float;

    23     double = float;

    24     real = float;

    25     extended = float;

    26     GLfloat = float;

    27 

    28     boolean = boolean;

    29     LongBool = boolean;

    30 

    31     string = string;

    32     shortstring = string;

    33     ansistring = string;

    34     widechar = string;

    35 

    36     char = char;

    37     PChar = ^char;

    38     PPChar = ^Pchar;

    39     

    40     PByte = ^Byte;

    41     PWord = ^Word;

    42     PLongInt = ^LongInt;

    43     PLongWord = ^LongWord;

    44     PInteger = ^Integer;

    45     

    46     Handle = integer;

    47 

    48     png_structp = pointer;

    49     png_size_t = integer;

    50 

    51 var 

    52     false, true: boolean;

    53     

    54     write, writeLn, read, readLn: procedure;

    55     

    56     StrLen, ord, Succ, Pred : function : integer;

    57     inc, dec, Low, High, Lo, Hi : function : integer;

    58     odd, even : function : boolean;

    59 

    60     Now : function : integer;

    61 

    62     new, dispose, FillChar, Move : procedure;

    63 

    64     trunc, round : function : integer;

    65     abs, sqr : function : integer;

    66 

    67     StrPas, FormatDateTime, copy, delete, str, pos, trim, LowerCase : function : shortstring;

    68     Length, StrToInt : function : integer;

    69     SetLength, val : procedure;

    70     _pchar : function : PChar;

    71     pchar2str : function : string;

    72     memcpy : procedure;

    73 

    74     assign, rewrite, reset, flush, BlockWrite, BlockRead, close : procedure;

    75     IOResult : integer;

    76     exit, break, halt, continue : procedure;

    77     TextFile, file : Handle;

    78     FileMode : integer;

    79     FileExists, DirectoryExists, eof : function : boolean;

    80     ExtractFileName : function : string;

    81     exitcode : integer;

    82     stdout, stderr : Handle;

    83     

    84     ParamCount : function : integer;

    85     ParamStr : function : string;

    86 

    87     sqrt, arctan2, cos, sin, power : function : float;

    88     pi : float;

    89 

    90     TypeInfo, GetEnumName : function : shortstring;

    91 

    92     UTF8ToUnicode, WrapText: function : shortstring;

    93 

    94     sizeof : function : integer;

    95 

    96     GetMem : function : pointer;

    97     FreeMem : procedure;

    98    

    99     glGetString : function : pchar;

   100  

   101     glBegin, glBindTexture, glBlendFunc, glClear, glClearColor,

   102     glColor4ub, glColorMask, glColorPointer, glDeleteTextures,

   103     glDisable, glDisableClientState, glDrawArrays, glEnable,

   104     glEnableClientState, glEnd, glGenTextures, glGetIntegerv,

   105     glHint, glLineWidth, glLoadIdentity, glMatrixMode, glPopMatrix,

   106     glPushMatrix, glReadPixels, glRotatef, glScalef, glTexCoord2f,

   107     glTexCoordPointer, glTexImage2D, glTexParameterf,

   108     glTexParameteri, glTranslatef, glVertex2d, glVertexPointer,

   109     glViewport, glext_LoadExtension, glDeleteRenderbuffersEXT,

   110     glDeleteFramebuffersEXT, glGenFramebuffersEXT,

   111     glGenRenderbuffersEXT, glBindFramebufferEXT, 

   112     glBindRenderbufferEXT, glRenderbufferStorageEXT,

   113     glFramebufferRenderbufferEXT, glFramebufferTexture2DEXT : procedure;

   114 

   115     GL_BGRA, GL_BLEND, GL_CLAMP_TO_EDGE, GL_COLOR_ARRAY,

   116     GL_COLOR_BUFFER_BIT, GL_DEPTH_BUFFER_BIT, GL_DEPTH_COMPONENT,

   117     GL_DITHER, GL_EXTENSIONS, GL_FALSE, GL_FASTEST, GL_LINEAR,

   118     GL_LINE_LOOP, GL_LINES, GL_LINE_SMOOTH, GL_LINE_STRIP,

   119     GL_MAX_TEXTURE_SIZE, GL_MODELVIEW, GL_ONE_MINUS_SRC_ALPHA,

   120     GL_PERSPECTIVE_CORRECTION_HINT, GL_PROJECTION, GL_QUADS,

   121     GL_RENDERER, GL_RGBA, GL_RGBA8, GL_SRC_ALPHA, GL_TEXTURE_2D,

   122     GL_TEXTURE_COORD_ARRAY, GL_TEXTURE_MAG_FILTER,

   123     GL_TEXTURE_MIN_FILTER, GL_TEXTURE_PRIORITY, GL_TEXTURE_WRAP_S,

   124     GL_TEXTURE_WRAP_T, GL_TRIANGLE_FAN, GL_TRUE, GL_VENDOR,

   125     GL_VERSION, GL_VERTEX_ARRAY, GLenum,  GL_FRAMEBUFFER_EXT,

   126     GL_RENDERBUFFER_EXT, GL_DEPTH_ATTACHMENT_EXT,

   127     GL_COLOR_ATTACHMENT0_EXT, GL_FLOAT, GL_UNSIGNED_BYTE : integer;

   128 

   129     TThreadId : function : integer;

   130     BeginThread, ThreadSwitch : procedure;

   131     InterlockedIncrement, InterlockedDecrement : procedure;

   132     

   133     random : function : integer;

   134     randomize : procedure;

   135     

   136     Assigned : function : boolean;

   137     

   138     _strconcat, _strappend, _strprepend, _chrconcat : function : string;

   139     _strcompare, _strncompare, _strcomparec : function : boolean;

   140 

   141     png_structp, png_set_write_fn, png_get_io_ptr,

   142     png_get_libpng_ver, png_create_write_struct,

   143     png_create_info_struct, png_destroy_write_struct,

   144     png_write_row, png_set_ihdr, png_write_info,

   145     png_write_end : procedure;

   146 

   147     EnumToStr : function : string;

   148