1 redo;

     2 {This file contains functions that are re-implemented}

     3 {pas2c will add prefix fpcrtl_ to all these functions}

     4 type

     5     uinteger = uinteger;

     6     Integer = integer;

     7     LongInt = integer;

     8     LongWord = uinteger;

     9     Cardinal = uinteger;

    10     PtrInt = integer;

    11     Word = uinteger;

    12     Byte = integer;

    13     SmallInt = integer;

    14     ShortInt = integer;

    15     Int64 = integer;

    16     QWord = uinteger;

    17     GLint = integer;

    18     GLuint = integer;

    19     int = integer;

    20     size_t = integer;

    21 

    22     pointer = pointer;

    23 

    24     float = float;

    25     single = float;

    26     double = float;

    27     real = float;

    28     extended = float;

    29     GLfloat = float;

    30 

    31     boolean = boolean;

    32     LongBool = boolean;

    33 

    34     string = string;

    35     shortstring = string;

    36     ansistring = string;

    37     widechar = string;

    38 

    39     char = char;

    40     PChar = ^char;

    41     PPChar = ^Pchar;

    42 

    43     PByte = ^Byte;

    44     PLongInt = ^LongInt;

    45     PLongWord = ^LongWord;

    46     PInteger = ^Integer;

    47 

    48     Handle = integer;

    49 

    50 var

    51     write, writeLn, read, readLn, flush, CreateDir: procedure;

    52 

    53     halt:procedure;

    54 

    55     GetEnumName:function:shortstring;

    56     TypeInfo:function:Integer;

    57 

    58     lo:function:Integer;

    59 

    60     init:procedure;

    61 

    62     StrLen:function : integer;

    63     odd, even : function : boolean;

    64 

    65     Length : function : integer;

    66 

    67     Now : function : integer;

    68 

    69     new, dispose, FillChar, Move : procedure;

    70 

    71     trunc, round : function : integer;

    72     abs, sqr : function : integer;

    73 

    74     StrPas, FormatDateTime, copy, delete, str, PosS, trim, LowerCase : function : shortstring;

    75     pos : function : integer;

    76     StrToInt : function : integer;

    77     SetLength, val : procedure;

    78     _pchar : function : PChar;

    79     pchar2str : function : string;

    80     memcpy : procedure;

    81 

    82      min, max:function:integer;

    83     assign, rewrite, rewrite_2, reset, reset_2, flush, BlockWrite, BlockRead, close : procedure;

    84     FileExists, DirectoryExists, eof : function : boolean;

    85     ExtractFileName : function : string;

    86 

    87     ParamCount : function : integer;

    88     ParamStr : function : string;

    89 

    90     arctan2, power: function : float;

    91 

    92     //TypeInfo, GetEnumName : function : shortstring;

    93 

    94     UTF8ToUnicode, WrapText: function : shortstring;

    95 

    96     GetMem : function : pointer;

    97     FreeMem : procedure;

    98 

    99     BeginThread, ThreadSwitch : procedure;

   100     InterlockedIncrement, InterlockedDecrement : procedure;

   101 

   102     random : function : integer;

   103     randomize : procedure;

   104 

   105     Assigned : function : boolean;

   106 

   107     //EnumToStr : function : string;

   108 

   109     initParams : procedure;

   110 

   111     Load_GL_VERSION_2_0 : procedure;

   112 

   113