project_files/hwc/rtl/SysUtils.h
author unc0rr
Tue, 07 Jan 2014 22:08:02 +0400
branchwebgl
changeset 9966 01e198990211
parent 8047 25a4daa6473c
child 10015 4feced261c68
permissions -rw-r--r--
pas2c engine now writes debug log
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
7983
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
     1
#ifndef _FPCRTL_SYSUTILS_H_
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
     2
#define _FPCRTL_SYSUTILS_H_
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
     3
8047
25a4daa6473c cleanup headers, remove -I . from rtl lib to save a few warnings
koda
parents: 7983
diff changeset
     4
#include "Types.h"
7983
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
     5
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
     6
// EFFECTS: return the current date time in pascal notation
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
     7
//          http://www.merlyn.demon.co.uk/del-prgg.htm#TDT
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
     8
TDateTime   fpcrtl_now();
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
     9
#define     now                     fpcrtl_now
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    10
#define     Now                     fpcrtl_now
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    11
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    12
// EFFECTS: return the current time
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    13
//          http://www.merlyn.demon.co.uk/del-prgg.htm#TDT
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    14
TDateTime   fpcrtl_time();
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    15
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    16
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    17
// EFFECTS: return the current date
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    18
//          http://www.merlyn.demon.co.uk/del-prgg.htm#TDT
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    19
TDateTime   fpcrtl_date();
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    20
#define     date                    fpcrtl_date
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    21
#define     Date                    fpcrtl_date
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    22
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    23
// EFFECTS: Trim strips blank characters (spaces) at the beginning and end of S
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    24
// and returns the resulting string. Only #32 characters are stripped.
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    25
// If the string contains only spaces, an empty string is returned.
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    26
string255   fpcrtl_trim(string255 s);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    27
#define     trim                    fpcrtl_trim
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    28
#define     Trim                    fpcrtl_trim
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    29
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    30
Integer     fpcrtl_strToInt(string255 s);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    31
#define     StrToInt                fpcrtl_strToInt
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    32
#define     strToInt                fpcrtl_strToInt
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    33
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    34
string255   fpcrtl_extractFileName(string255 f);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    35
#define     fpcrtl_ExtractFileName  fpcrtl_extractFileName
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    36
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    37
string255   fpcrtl_strPas(PChar);
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    38
#define     fpcrtl_StrPas           fpcrtl_strPas
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    39
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    40
02f36c3e7f6c add xymeng's rtl port
koda
parents:
diff changeset
    41
#endif