1 #ifndef _FPCRTL_SYSUTILS_H_

     2 #define _FPCRTL_SYSUTILS_H_

     3 

     4 #include "Types.h"

     5 

     6 // EFFECTS: return the current date time in pascal notation

     7 //          http://www.merlyn.demon.co.uk/del-prgg.htm#TDT

     8 TDateTime   fpcrtl_now();

     9 #define     now                     fpcrtl_now

    10 #define     Now                     fpcrtl_now

    11 

    12 // EFFECTS: return the current time

    13 //          http://www.merlyn.demon.co.uk/del-prgg.htm#TDT

    14 TDateTime   fpcrtl_time();

    15 

    16 

    17 // EFFECTS: return the current date

    18 //          http://www.merlyn.demon.co.uk/del-prgg.htm#TDT

    19 TDateTime   fpcrtl_date();

    20 #define     date                    fpcrtl_date

    21 #define     Date                    fpcrtl_date

    22 

    23 // EFFECTS: Trim strips blank characters (spaces) at the beginning and end of S

    24 // and returns the resulting string. Only #32 characters are stripped.

    25 // If the string contains only spaces, an empty string is returned.

    26 string255   fpcrtl_trim(string255 s);

    27 #define     trim                    fpcrtl_trim

    28 #define     Trim                    fpcrtl_trim

    29 

    30 Integer     fpcrtl_strToInt(string255 s);

    31 #define     StrToInt                fpcrtl_strToInt

    32 #define     strToInt                fpcrtl_strToInt

    33 

    34 string255   fpcrtl_extractFileName(string255 f);

    35 #define     fpcrtl_ExtractFileName  fpcrtl_extractFileName

    36 

    37 string255   fpcrtl_strPas(PChar);

    38 #define     fpcrtl_StrPas           fpcrtl_strPas

    39 

    40 

    41 #endif