project_files/hwc/rtl/sysutils.h
branchwebgl
changeset 8047 25a4daa6473c
parent 8044 796f2653f21d
child 8050 c82b68016c68
--- 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