hedgewars/pas2cSystem.pas
changeset 6855 807156c01475
parent 6854 873929cbd54b
child 6856 a5b0afb60862
equal deleted inserted replaced
6854:873929cbd54b 6855:807156c01475
    12     ShortInt = integer;
    12     ShortInt = integer;
    13     QWord = integer;
    13     QWord = integer;
    14     GLInt = integer;
    14     GLInt = integer;
    15     GLUInt = integer;
    15     GLUInt = integer;
    16     gl_unsigned_byte = integer;
    16     gl_unsigned_byte = integer;
       
    17     Int = integer;
    17 
    18 
    18     pointer = pointer;
    19     pointer = pointer;
    19     PChar = pointer;
    20     PChar = pointer;
    20 
    21 
    21     float = float;
    22     float = float;
    44     Handle = integer;
    45     Handle = integer;
    45     stderr = Handle;
    46     stderr = Handle;
    46 
    47 
    47 var 
    48 var 
    48     false, true: boolean;
    49     false, true: boolean;
       
    50     
    49     write, writeLn, read, readLn: procedure;
    51     write, writeLn, read, readLn: procedure;
       
    52     
    50     StrLen, ord, Succ, Pred : function : integer;
    53     StrLen, ord, Succ, Pred : function : integer;
    51     inc, dec, Low, High, Lo, Hi : function : integer;
    54     inc, dec, Low, High, Lo, Hi : function : integer;
    52     odd, even : function : boolean;
    55     odd, even : function : boolean;
    53 
    56 
    54     Now : function : integer;
    57     Now : function : integer;
    58     new, dispose, FillChar, Move : procedure;
    61     new, dispose, FillChar, Move : procedure;
    59 
    62 
    60     trunc, round : function : integer;
    63     trunc, round : function : integer;
    61     Abs, Sqr : function : integer;
    64     Abs, Sqr : function : integer;
    62 
    65 
    63     StrPas, FormatDateTime, copy, delete, str, pos : function : shortstring;
    66     StrPas, FormatDateTime, copy, delete, str, pos, trim : function : shortstring;
    64 
    67 
    65     assign, rewrite, reset, flush, BlockWrite, close : procedure;
    68     assign, rewrite, reset, flush, BlockWrite, BlockRead, close : procedure;
    66     IOResult : function : integer;
    69     IOResult : function : integer;
    67     exit, break, halt, continue : procedure;
    70     exit, break, halt, continue : procedure;
    68     TextFile, file : Handle;
    71     TextFile, file : Handle;
    69     FileMode : integer;
    72     FileMode : integer;
    70     eof : function : boolean;
    73     FileExists, DirectoryExists, eof : function : boolean;
       
    74     ExtractFileName : function : string;
       
    75     exitcode : integer;
    71     
    76     
    72     ParamCount : function : integer;
    77     ParamCount : function : integer;
    73     ParamStr : function : string;
    78     ParamStr : function : string;
    74 
    79 
    75     Sqrt, ArcTan2, pi, cos, sin : function : float;
    80     sqrt, arctan2, pi, cos, sin, power : function : float;
    76 
    81 
    77     TypeInfo, GetEnumName : function : shortstring;
    82     TypeInfo, GetEnumName : function : shortstring;
    78 
    83 
    79     UTF8ToUnicode, WrapText: function : shortstring;
    84     UTF8ToUnicode, WrapText: function : shortstring;
    80 
    85 
    89     gltranslatef, glscalef, glrotatef, gldisable, glenable,
    94     gltranslatef, glscalef, glrotatef, gldisable, glenable,
    90     gl_line_smooth, gllinewidth, gl_lines, gl_line_loop,
    95     gl_line_smooth, gllinewidth, gl_lines, gl_line_loop,
    91     glcolor4ub, gl_texture_wrap_s, gltexparameteri,
    96     glcolor4ub, gl_texture_wrap_s, gltexparameteri,
    92     gl_texture_wrap_t, gl_texture_min_filter,
    97     gl_texture_wrap_t, gl_texture_min_filter,
    93     gl_linear, gl_texture_mag_filter, glgentextures,
    98     gl_linear, gl_texture_mag_filter, glgentextures,
    94     gldeletetextures, glreadpixels : procedure;
    99     gldeletetextures, glreadpixels, glclearcolor,
       
   100     gl_line_strip, gldeleterenderbuffersext,
       
   101     gldeleteframebuffersext, glext_loadextension,
       
   102     gl_max_texture_size, glgetintegerv, gl_renderer,
       
   103     glgetstring, gl_vendor, gl_version, glgenframebuffersext,
       
   104     glbindframebufferext, glgenrenderbuffersext,
       
   105     glbindrenderbufferext, glrenderbufferstorageext,
       
   106     glframebufferrenderbufferext, glframebuffertexture2dext,
       
   107     gl_framebuffer_ext, gl_depth_component, 
       
   108     gl_depth_attachment_ext, gl_renderbuffer_ext, gl_rgba8,
       
   109     gl_color_attachment0_ext, gl_modelview, gl_blend,
       
   110     gl_src_alpha, gl_one_minus_src_alpha,  
       
   111     gl_perspective_correction_hint, gl_fastest,
       
   112     gl_dither, gl_vertex_array, gl_texture_coord_array,
       
   113     glviewport, glloadidentity, glmatrixmode, glhint,
       
   114     glblendfunc, glenableclientstate, gl_color_buffer_bit,
       
   115     glclear : procedure;
    95 
   116 
    96     TThreadId : function : integer;
   117     TThreadId : function : integer;
    97     BeginThread, ThreadSwitch : procedure;
   118     BeginThread, ThreadSwitch : procedure;
    98     InterlockedIncrement, InterlockedDecrement : procedure;
   119     InterlockedIncrement, InterlockedDecrement : procedure;
    99     
   120     
   100     random : function : integer;
   121     random : function : integer;
       
   122     randomize : procedure;
   101     
   123     
   102     Assigned : function : boolean;
   124     Assigned : function : boolean;
   103     
   125     
   104 
   126