diff -r a137733c5776 -r b1a0e7a52c04 hedgewars/pas2cSystem.pas --- a/hedgewars/pas2cSystem.pas Fri Mar 30 17:00:34 2012 +0400 +++ b/hedgewars/pas2cSystem.pas Fri Mar 30 23:58:08 2012 +0400 @@ -13,15 +13,18 @@ QWord = integer; GLInt = integer; GLUInt = integer; + gl_unsigned_byte = integer; pointer = pointer; PChar = pointer; float = float; + single = float; double = float; real = float; extended = float; GLFloat = float; + gl_float = float; boolean = boolean; LongBool = boolean; @@ -29,6 +32,7 @@ string = string; shortstring = string; ansistring = string; + widechar = string; char = char; @@ -39,15 +43,49 @@ Handle = integer; stderr = Handle; + var false, true: boolean; - write, writeLn, read, readLn, inc, dec: procedure; + write, writeLn, read, readLn: procedure; StrLen, ord, Succ, Pred : function : integer; - Low, High : function : integer; + inc, dec, Low, High, Lo, Hi : function : integer; + odd, even : function : boolean; + Now : function : integer; Length : function : integer; + SetLength, val : procedure; + + new, dispose, FillChar, Move : procedure; + + trunc, round : function : integer; Abs, Sqr : function : integer; + StrPas, FormatDateTime, copy, delete, str : function : shortstring; - exit, flush : procedure; - Sqrt : function : float; + + assign, rewrite, reset, flush : procedure; + IOResult : function : integer; + exit, break, halt : procedure; TextFile : Handle; + + Sqrt, ArcTan2, pi, cos, sin : function : float; + + TypeInfo, GetEnumName : function : shortstring; + + UTF8ToUnicode, WrapText: function : shortstring; + + sizeof : function : integer; + + GetMem : function : pointer; + FreeMem : procedure; + + gl_texture_2d, glbindtexture, gltexparameterf, gl_rgba, + glteximage2d, glvertexpointer, gltexcoordpointer, + gl_triangle_fan, gldrawarrays, glpushmatrix, glpopmatrix, + gltranslatef, glscalef, glrotatef, gldisable, glenable, + gl_line_smooth, gllinewidth, gl_lines, gl_line_loop, + glcolor4ub, gl_texture_wrap_s, gltexparameteri, + gl_texture_wrap_t, gl_texture_min_filter, + gl_linear, gl_texture_mag_filter, glgentextures, + gldeletetextures : procedure; + + TThreadId : function : integer;