author | alfadur |
Wed, 04 Sep 2019 00:07:23 +0300 | |
changeset 15398 | 0ef770a40e75 |
parent 14918 | 68e1783762bc |
permissions | -rw-r--r-- |
10015 | 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(); |
|
14918
68e1783762bc
Pas2C: Support FileSize and Delete; add dummy implementation of FormatDateTime
Wuzzy <Wuzzy2@mail.ru>
parents:
10564
diff
changeset
|
9 |
#define fpcrtl_Now fpcrtl_now |
68e1783762bc
Pas2C: Support FileSize and Delete; add dummy implementation of FormatDateTime
Wuzzy <Wuzzy2@mail.ru>
parents:
10564
diff
changeset
|
10 |
#define now fpcrtl_Now |
68e1783762bc
Pas2C: Support FileSize and Delete; add dummy implementation of FormatDateTime
Wuzzy <Wuzzy2@mail.ru>
parents:
10564
diff
changeset
|
11 |
#define Now fpcrtl_Now |
68e1783762bc
Pas2C: Support FileSize and Delete; add dummy implementation of FormatDateTime
Wuzzy <Wuzzy2@mail.ru>
parents:
10564
diff
changeset
|
12 |
|
68e1783762bc
Pas2C: Support FileSize and Delete; add dummy implementation of FormatDateTime
Wuzzy <Wuzzy2@mail.ru>
parents:
10564
diff
changeset
|
13 |
string255 fpcrtl_formatDateTime(string255 FormatStr, TDateTime DateTime); |
68e1783762bc
Pas2C: Support FileSize and Delete; add dummy implementation of FormatDateTime
Wuzzy <Wuzzy2@mail.ru>
parents:
10564
diff
changeset
|
14 |
#define fpcrtl_FormatDateTime fpcrtl_formatDateTime |
10015 | 15 |
|
16 |
// EFFECTS: return the current time |
|
17 |
// http://www.merlyn.demon.co.uk/del-prgg.htm#TDT |
|
18 |
TDateTime fpcrtl_time(); |
|
19 |
||
20 |
||
21 |
// EFFECTS: return the current date |
|
22 |
// http://www.merlyn.demon.co.uk/del-prgg.htm#TDT |
|
23 |
TDateTime fpcrtl_date(); |
|
24 |
#define date fpcrtl_date |
|
25 |
#define Date fpcrtl_date |
|
26 |
||
27 |
// EFFECTS: Trim strips blank characters (spaces) at the beginning and end of S |
|
28 |
// and returns the resulting string. Only #32 characters are stripped. |
|
29 |
// If the string contains only spaces, an empty string is returned. |
|
30 |
string255 fpcrtl_trim(string255 s); |
|
31 |
#define trim fpcrtl_trim |
|
32 |
#define Trim fpcrtl_trim |
|
33 |
||
34 |
Integer fpcrtl_strToInt(string255 s); |
|
35 |
#define StrToInt fpcrtl_strToInt |
|
36 |
#define strToInt fpcrtl_strToInt |
|
37 |
||
10564
0cb20aa8877a
more fixing and allow pas2c to run tests. they will still fail though - engine does not exit with the specified exit codes, also data types are messed up
sheepluva
parents:
10015
diff
changeset
|
38 |
string255 fpcrtl_extractFileDir(string255 f); |
0cb20aa8877a
more fixing and allow pas2c to run tests. they will still fail though - engine does not exit with the specified exit codes, also data types are messed up
sheepluva
parents:
10015
diff
changeset
|
39 |
#define fpcrtl_ExtractFileDir fpcrtl_extractFileDir |
0cb20aa8877a
more fixing and allow pas2c to run tests. they will still fail though - engine does not exit with the specified exit codes, also data types are messed up
sheepluva
parents:
10015
diff
changeset
|
40 |
|
10015 | 41 |
string255 fpcrtl_extractFileName(string255 f); |
42 |
#define fpcrtl_ExtractFileName fpcrtl_extractFileName |
|
43 |
||
44 |
string255 fpcrtl_strPas(PChar); |
|
45 |
#define fpcrtl_StrPas fpcrtl_strPas |
|
46 |
||
47 |
||
48 |
#endif |