diff -r 796f2653f21d -r 25a4daa6473c project_files/hwc/rtl/sysutils.h --- a/project_files/hwc/rtl/sysutils.h Tue Nov 13 22:24:30 2012 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,41 +0,0 @@ -#ifndef _FPCRTL_SYSUTILS_H_ -#define _FPCRTL_SYSUTILS_H_ - -#include "types.h" - -// EFFECTS: return the current date time in pascal notation -// http://www.merlyn.demon.co.uk/del-prgg.htm#TDT -TDateTime fpcrtl_now(); -#define now fpcrtl_now -#define Now fpcrtl_now - -// EFFECTS: return the current time -// http://www.merlyn.demon.co.uk/del-prgg.htm#TDT -TDateTime fpcrtl_time(); - - -// EFFECTS: return the current date -// http://www.merlyn.demon.co.uk/del-prgg.htm#TDT -TDateTime fpcrtl_date(); -#define date fpcrtl_date -#define Date fpcrtl_date - -// EFFECTS: Trim strips blank characters (spaces) at the beginning and end of S -// and returns the resulting string. Only #32 characters are stripped. -// If the string contains only spaces, an empty string is returned. -string255 fpcrtl_trim(string255 s); -#define trim fpcrtl_trim -#define Trim fpcrtl_trim - -Integer fpcrtl_strToInt(string255 s); -#define StrToInt fpcrtl_strToInt -#define strToInt fpcrtl_strToInt - -string255 fpcrtl_extractFileName(string255 f); -#define fpcrtl_ExtractFileName fpcrtl_extractFileName - -string255 fpcrtl_strPas(PChar); -#define fpcrtl_StrPas fpcrtl_strPas - - -#endif