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, Insert, Delete, Move : procedure;

    70 

    71     trunc, round, ceil : function : integer;

    72     abs, sqr : function : integer;

    73 

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

    75     pos : function : integer;

    76     StrToInt : function : integer;

    77     SetLength, SetLengthA, val, StrDispose, StrCopy : procedure;

    78     _pchar, _pcharA, StrAlloc : function : PChar;

    79     pchar2str, astr2str : function : string;

    80     pchar2astr, str2astr : function : ansistring;

    81     memcpy : procedure;

    82     StrLength : function : integer;

    83 

    84      min, max:function:integer;

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

    86     FileExists, DirectoryExists, eof : function : boolean;

    87     ExtractFileDir : function : string;

    88     ExtractFileName : function : string;

    89 

    90     ParamCount : function : integer;

    91     ParamStr : function : string;

    92 

    93     arctan2, power: function : float;

    94 

    95     //TypeInfo, GetEnumName : function : shortstring;

    96 

    97     UTF8ToUnicode, WrapText: function : shortstring;

    98 

    99     GetMem : function : pointer;

   100     FreeMem : procedure;

   101 

   102     BeginThread, ThreadSwitch : procedure;

   103     InterlockedIncrement, InterlockedDecrement : procedure;

   104 

   105     random : function : integer;

   106     randomize : procedure;

   107 

   108     Assigned : function : boolean;

   109 

   110     //EnumToStr : function : string;

   111 

   112     initParams : procedure;

   113 

   114     Load_GL_VERSION_2_0 : procedure;

   115 

   116