rhodes 3.4.2 → 3.5.1.12

data/platform/shared/ruby/wp8/sys/stat.h

@@ -0,0 +1,70 @@
+#ifndef SYS_STAT_H
+#define SYS_STAT_H 1
+
+#ifndef SYS_TYPES_H
+#include <sys/types.h>
+#endif //SYS_TYPES_H
+
+#define _S_IFMT         0170000         /* file type mask */
+#define _S_IFDIR        0040000         /* directory */
+#define _S_IFCHR        0020000         /* character special */
+#define _S_IFIFO        0010000         /* pipe */
+#define _S_IFREG        0100000         /* regular */
+#define _S_IREAD        0000400         /* read permission, owner */
+#define _S_IWRITE       0000200         /* write permission, owner */
+#define _S_IEXEC        0000100         /* execute/search permission, owner */
+
+#define S_IFMT   _S_IFMT
+#define S_IFREG  _S_IFREG
+#define S_IFCHR  _S_IFCHR
+#define S_IFDIR  _S_IFDIR
+#define S_IREAD  _S_IREAD
+#define S_IWRITE _S_IWRITE
+#define S_IEXEC  _S_IEXEC
+
+#ifndef S_ISDIR
+#define S_ISDIR(X) (((X) & S_IFMT) == S_IFDIR)
+#endif
+#ifndef S_ISREG
+#define S_ISREG(X) (((X) & S_IFMT) == S_IFREG)
+#endif
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+// in sys/types.h
+//typedef unsigned int _dev_t;
+//typedef long _off_t;
+//typedef unsigned short _ino_t;
+
+#ifndef _STAT_DEFINED
+struct stat 
+{
+  dev_t st_dev;
+  ino_t st_ino;
+  unsigned short st_mode;
+  short st_nlink;
+  short st_uid;
+  short st_gid;
+  dev_t st_rdev;
+  off_t st_size;
+  time_t st_atime;
+  time_t st_mtime;
+  time_t st_ctime;
+};
+#define _STAT_DEFINED
+#endif /* _STAT_DEFINED */
+
+#define _stat stat
+
+int _stat(const char *filename, struct _stat *stat);
+int fstat(int file, struct stat *sbuf);
+
+
+#ifdef __cplusplus
+};
+#endif
+
+
+#endif

data/platform/shared/ruby/wp8/sys/timeb.c

@@ -0,0 +1,31 @@
+/***************************************************************
+  timeb.c
+***************************************************************/
+
+#include <windows.h>
+#include <time.h>
+#include <sys/timeb.h>
+#include "wp8.h"
+
+time_t wce_FILETIME2time_t(const FILETIME* f);
+
+int ftime(struct timeb *tp)
+{
+	SYSTEMTIME s;
+	FILETIME   f;
+
+	GetLocalTime(&s);
+	SystemTimeToFileTime( &s, &f );
+
+	tp->dstflag  = 0;
+	tp->timezone = _timezone/60;
+	tp->time     = wce_FILETIME2time_t(&f);
+	tp->millitm  = s.wMilliseconds;
+
+	return 0;
+}
+
+int _ftime(struct timeb *tp)
+{
+    return ftime(tp);
+}

data/platform/shared/ruby/wp8/sys/timeb.h

@@ -0,0 +1,27 @@
+#ifndef SYS_TIMEB_H
+#define SYS_TIMEB_H 1
+
+#include <sys/types.h>
+
+struct _timeb {
+	time_t time;
+	unsigned short millitm;
+	short timezone;
+	short dstflag;
+};
+
+#define timeb _timeb
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+int ftime(struct timeb *tp);
+int _ftime(struct timeb *tp);
+
+#ifdef __cplusplus
+};
+#endif
+
+
+#endif

data/platform/shared/ruby/wp8/sys/types.h

@@ -0,0 +1,62 @@
+#ifndef SYS_TYPES_H
+#define SYS_TYPES_H 1
+
+#include <wchar.h>
+
+#define BIG_ENDIAN    1234
+#define LITTLE_ENDIAN 4321
+
+#ifdef MIPS
+#define BYTE_ORDER LITTLE_ENDIAN
+#endif
+
+//#if UNDER_CE > 201
+//  typedef unsigned long time_t;
+//  #define _TIME_T_DEFINED_
+//#endif
+typedef unsigned long dev_t;
+//typedef unsigned long ino_t;
+#ifndef _MODE_T_DEFINED_
+  typedef unsigned long mode_t;
+  #define _MODE_T_DEFINED_
+#endif
+
+typedef long clock_t;
+
+#ifndef _PTRDIFF_T_DEFINED
+typedef long ptrdiff_t;
+#define _PTRDIFF_T_DEFINED
+#endif
+
+typedef long off_t;
+
+//typedef unsigned char u_char;
+//typedef unsigned short u_short;
+
+#ifndef _CADDR_T_DEFINED_
+typedef unsigned char * caddr_t;
+#define _CADDR_T_DEFINED_
+#endif
+
+#ifndef _SIZE_T_DEFINED_
+typedef unsigned int size_t;
+#define _SIZE_T_DEFINED_
+#endif
+
+//typedef unsigned char u_int8_t;
+
+//typedef short int16_t;
+//typedef unsigned short u_int16_t;
+
+//typedef int int32_t;
+//typedef unsigned int u_int32_t;
+
+//typedef unsigned long u_long;
+//typedef unsigned int u_int;
+
+//#ifndef _TIME_T_DEFINED_
+//typedef unsigned long time_t;
+//#define _TIME_T_DEFINED_
+//#endif
+
+#endif

data/platform/shared/ruby/wp8/sys/utime.c

@@ -0,0 +1,44 @@
+/***************************************************************
+  utime.c
+***************************************************************/
+
+#include <windows.h>
+#include <sys/utime.h>
+#include "..\wp8.h" /* for wce_mbtowc */
+
+
+#ifdef _WIN32_WCE
+  #if _WIN32_WCE < 300
+    #define Int32x32To64(a, b) ((LONGLONG)((LONG)(a)) * (LONGLONG)((LONG)(b)))
+/*    #define Int32x32To64(a, b) ((__int64)((LONG)(a)) * (__int64)((LONG)(b))) */
+  #endif
+#endif
+
+int utime(const char *f, struct utimbuf *t)
+{
+	HANDLE h;
+	FILETIME atime={0}, mtime={0};
+	__int64 time64;
+	BOOL rc=FALSE;
+	wchar_t *w;
+
+	//w = wce_mbtowc(f);
+	//h = CreateFileW(w, GENERIC_WRITE, 
+	//		FILE_SHARE_READ|FILE_SHARE_WRITE,
+	//		NULL, OPEN_EXISTING, 0, 0);
+	//free(w);
+
+	//if( h==INVALID_HANDLE_VALUE )
+	//	return -1;
+
+	//time64 = Int32x32To64(t->actime, 10000000) + 116444736000000000;
+	//atime.dwLowDateTime  = (DWORD)time64;
+	//atime.dwHighDateTime = (DWORD)(time64 >> 32);
+	//time64 = Int32x32To64(t->modtime, 10000000) + 116444736000000000;
+	//mtime.dwLowDateTime  = (DWORD)time64;
+	//mtime.dwHighDateTime = (DWORD)(time64 >> 32);
+
+	//rc = SetFileTime(h, NULL, &atime, &mtime);
+	return rc==TRUE ? 0 : -1;
+}
+

data/platform/shared/ruby/wp8/sys/utime.h

@@ -0,0 +1,27 @@
+#ifndef SYS_UTIME_H
+#define SYS_UTIME_H 1
+
+#include <time.h>
+
+struct utimbuf 
+{
+  time_t actime;
+  time_t modtime;
+};
+
+#define _utimbuf utimbuf
+
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+int utime(const char *f, struct utimbuf *t);
+
+#ifdef __cplusplus
+};
+#endif
+
+//#define utime _utime
+
+#endif

data/platform/shared/ruby/wp8/time_wp8.c

@@ -0,0 +1,256 @@
+/***************************************************************
+  time.c
+
+  author : uema2
+  date   : Nov 30, 2002
+
+  You can freely use, copy, modify, and redistribute
+  the whole contents.
+***************************************************************/
+
+/*#define __SCRATCH_TIMEC_DEBUG__ */
+
+#include <windows.h>
+#include <tchar.h>
+#include <time.h>
+#include "wp8.h"
+
+/* globals */
+const __int64 _onesec_in100ns = (__int64)10000000;
+//int   _timezone, altzone;
+//int   daylight;
+//char *tzname[2];
+
+static char Standard_Name[32] = "GMT";
+static char Daylight_Name[32] = "GMT";
+char *tzname[2] = {Standard_Name, Daylight_Name};
+long timezone = 0;
+//int daylight = 0;
+
+/* __int64 <--> FILETIME */
+static __int64 wce_FILETIME2int64(FILETIME f)
+{
+	__int64 t;
+
+	t = f.dwHighDateTime;
+	t <<= 32;
+	t |= f.dwLowDateTime;
+	return t;
+}
+
+static FILETIME wce_int642FILETIME(__int64 t)
+{
+	FILETIME f;
+
+	f.dwHighDateTime = (DWORD)((t >> 32) & 0x00000000FFFFFFFF);
+	f.dwLowDateTime  = (DWORD)( t        & 0x00000000FFFFFFFF);
+	return f;
+}
+
+/* FILETIME utility */
+static FILETIME wce_getFILETIMEFromYear(WORD year)
+{
+	SYSTEMTIME s={0};
+	FILETIME f;
+
+	s.wYear      = year;
+	s.wMonth     = 1;
+	s.wDayOfWeek = 1;
+	s.wDay       = 1;
+
+	SystemTimeToFileTime( &s, &f );
+	return f;
+}
+
+static time_t wce_getYdayFromSYSTEMTIME(const SYSTEMTIME* s)
+{
+	__int64 t;
+	FILETIME f1, f2;
+
+	f1 = wce_getFILETIMEFromYear( s->wYear );
+	SystemTimeToFileTime( s, &f2 );
+
+	t = wce_FILETIME2int64(f2)-wce_FILETIME2int64(f1);
+
+	return (time_t)((t/_onesec_in100ns)/(60*60*24));
+}
+
+/* tm <--> SYSTEMTIME */
+static SYSTEMTIME wce_tm2SYSTEMTIME(struct tm *t)
+{
+	SYSTEMTIME s;
+
+	s.wYear      = t->tm_year + 1900;
+	s.wMonth     = t->tm_mon  + 1;
+	s.wDayOfWeek = t->tm_wday;
+	s.wDay       = t->tm_mday;
+	s.wHour      = t->tm_hour;
+	s.wMinute    = t->tm_min;
+	s.wSecond    = t->tm_sec;
+	s.wMilliseconds = 0;
+
+	return s;
+}
+
+static struct tm wce_SYSTEMTIME2tm(SYSTEMTIME *s)
+{
+	struct tm t;
+
+	t.tm_year  = s->wYear - 1900;
+	t.tm_mon   = s->wMonth- 1;
+	t.tm_wday  = s->wDayOfWeek;
+	t.tm_mday  = s->wDay;
+	t.tm_yday  = wce_getYdayFromSYSTEMTIME(s);
+	t.tm_hour  = s->wHour;
+	t.tm_min   = s->wMinute;
+	t.tm_sec   = s->wSecond;
+	t.tm_isdst = 0;
+
+	return t;
+}
+
+/* FILETIME <--> time_t */
+time_t wce_FILETIME2time_t(const FILETIME* f)
+{
+	FILETIME f1601, f1970;
+	__int64 t, offset;
+
+	f1601 = wce_getFILETIMEFromYear(1601);
+	f1970 = wce_getFILETIMEFromYear(1970);
+
+	offset = wce_FILETIME2int64(f1970) - wce_FILETIME2int64(f1601);
+
+	t = wce_FILETIME2int64(*f);
+
+	t -= offset;
+	return (time_t)(t / _onesec_in100ns);
+}
+
+FILETIME wce_time_t2FILETIME(const time_t t)
+{
+	FILETIME f, f1970;
+	__int64 time;
+
+	f1970 = wce_getFILETIMEFromYear(1970);
+
+	time = t;
+	time *= _onesec_in100ns;
+	time += wce_FILETIME2int64(f1970);
+
+	f = wce_int642FILETIME(time);
+
+	return f;
+}
+
+#ifdef OS_PLATFORM_CE
+struct tm *__cdecl localtime_s(const time_t *t)
+{
+    return localtime_s(t);
+}
+#endif //OS_PLATFORM_CE
+
+char *asctime(const struct tm *pt)
+{
+	static char buf[30]={0};
+	char week[] = "Sun Mon Tue Wed Thr Fri Sat ";
+	char month[]= "Jan Feb Mar Apl May Jun Jul Aug Sep Oct Nov Dec ";
+
+	strncpy( buf,    week+pt->tm_wday*4, 4 );
+	strncpy( buf+4,  month+pt->tm_mon*4, 4 );
+	sprintf( buf+8,  "%02d ", pt->tm_mday );
+	sprintf( buf+11, "%02d:%02d:%02d %d\n", 
+		pt->tm_hour, pt->tm_min, pt->tm_sec, pt->tm_year+1900 );
+	return buf;
+}
+/*
+void tzset()
+{
+	daylight = 1;
+	_timezone = 28800;
+	timezone = 28800;
+}*/
+
+void tzset(void)
+{
+	TIME_ZONE_INFORMATION Info;
+	int Result;
+
+	/*
+	 *	Get our current timezone information
+	 */
+	Result = GetTimeZoneInformation(&Info);
+	switch(Result) {
+		/*
+		 *	We are on standard time
+		 */
+		case TIME_ZONE_ID_STANDARD:
+			daylight = 0;
+			break;
+		/*
+		 *	We are on daylight savings time
+		 */
+		case TIME_ZONE_ID_DAYLIGHT:
+			daylight = 1;
+			break;
+		/*
+		 *	We don't know the timezone information (leave it GMT)
+		 */
+		default: return;
+	}
+	/*
+	 *	Extract the timezone information
+	 */
+	timezone = Info.Bias * 60;
+	if (Info.StandardName[0])
+		WideCharToMultiByte(CP_ACP, 0, Info.StandardName, -1, Standard_Name, sizeof(Standard_Name) - 1, NULL, NULL);
+	if (Info.DaylightName[0])
+		WideCharToMultiByte(CP_ACP, 0, Info.DaylightName, -1, Daylight_Name, sizeof(Daylight_Name) - 1, NULL, NULL);
+}
+
+//---------------------------------------------------------------
+#ifdef __SCRATCH_TIMEC_DEBUG__
+
+int main()
+{
+	time_t t1, t2;
+	struct tm tm1, tm2;
+
+	time( &t1 );
+	tm1 = *localtime(&t1);
+	t1 = mktime(&tm1);
+	tm1 = *gmtime(&t1);
+
+	_time( &t2 );
+	tm2 = *_localtime(&t2);
+	t2 = _mktime(&tm2);
+	tm2 = *_gmtime(&t2);
+
+	// time, mktime
+	if( t1==t2 )
+		OutputDebugString( "ok\n" );
+	else
+	{
+		static char buf[128];
+		wsprintf( buf, "ng : %d, %d\n", t1, t2 );
+		OutputDebugString( buf );
+	}
+
+	// localtime, gmtime
+	if( 0==memcmp( &tm1, &tm2, sizeof(struct tm) ) )
+		OutputDebugString( "ok\n" );
+	else
+		OutputDebugString( "ng\n" );
+
+	// ctime
+	OutputDebugString( ctime(&t1) );
+	OutputDebugString( _ctime(&t2) );
+
+	// asctime
+	OutputDebugString( asctime(&tm1) );
+	OutputDebugString( _asctime(&tm2) );
+
+	return 0;
+}
+
+#endif
+