author | koda |
Tue, 18 Jun 2013 22:10:06 +0200 | |
branch | webgl |
changeset 9254 | d5f513019851 |
parent 8047 | 25a4daa6473c |
child 10015 | 4feced261c68 |
permissions | -rw-r--r-- |
7983 | 1 |
#ifndef _FPCRTL_SYSUTILS_H_ |
2 |
#define _FPCRTL_SYSUTILS_H_ |
|
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 | 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 |