author | frd |
Sat, 23 Apr 2016 13:52:30 -0400 | |
changeset 11679 | 8f5db41471f4 |
parent 10564 | 0cb20aa8877a |
child 14913 | 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(); |
|
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 |
||
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
|
34 |
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
|
35 |
#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
|
36 |
|
10015 | 37 |
string255 fpcrtl_extractFileName(string255 f); |
38 |
#define fpcrtl_ExtractFileName fpcrtl_extractFileName |
|
39 |
||
40 |
string255 fpcrtl_strPas(PChar); |
|
41 |
#define fpcrtl_StrPas fpcrtl_strPas |
|
42 |
||
43 |
||
44 |
#endif |