X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/e2fc40b4786f7ae8c255ce1184441bd94d9554a0..815f65bd0f673965230ed915d794497a8818dd35:/src/palmos/stdall.c

diff --git a/src/palmos/stdall.c b/src/palmos/stdall.c
index c4a0d054b6..3696320c21 100644
--- a/src/palmos/stdall.c
+++ b/src/palmos/stdall.c
@@ -1,15 +1,31 @@
+/******************************************************************************
+ * Name:        src/palmos/stdall.c
+ * Purpose:     the missing functions of Palm OS for wxPalm
+ * Author:      Yunhui Fu
+ * Created:     2007-10-18
+ * Modified by: 
+ * RCS-ID:      $Id$
+ * Copyright:   (c) 2007 Yunhui Fu
+ * Licence:     wxWindows licence
+ ******************************************************************************/
 
 #include <Preferences.h> // Core/System/
 #include <DateTime.h> //Core/System/, DateToAscii() etc.
 #include <TimeMgr.h> //Core/System/, TimGetTicks()
 
 #include "wx/defs.h"
+#define PALMOS_TRACE(msg) ErrFatalErrorInContext(__FILE__, __LINE__, msg)
 
 #if __WXPALMOS6__
+
+#ifdef TARGET_PLATFORM
+#if TARGET_PLATFORM != TARGET_PLATFORM_PALMSIM_WIN32
 void
 exit (int exitno)
 {
 }
+#endif
+#endif
 
 #else
 
@@ -150,7 +166,7 @@ strftime (char *buf, size_t sz_buf, const char *fmt, const struct tm *ptm)
             if (*p == '\0') {
                 break;
             }
-            // FIXME: Åжϻº³åÊÇ·ñÒç³ö
+            // FIXME: test the overflow of the buffer
             switch (*p) {
             case 'a':
                 strcpy (pret, g_strftime_wdayconv[ptm->tm_wday % 7][SFCONV_ABBR]);
@@ -336,25 +352,524 @@ wint_t towlower(wint_t C) {return 0;}
 wint_t towupper(wint_t C) {return 0;}
 size_t wcsftime(wchar_t *strDest, size_t maxsize, const wchar_t *format, const struct tm *timeptr) {return 0;}
 
-size_t wcslen (const wchar_t * str) {return 0;}
-wchar_t * wcscpy (wchar_t * dst, const wchar_t * src) {return NULL;}
-wchar_t * wcsncpy (wchar_t * dst, const wchar_t * src, size_t n) {return NULL;}
-wchar_t * wcscat (wchar_t * dst, const wchar_t * src) {return NULL;}
-wchar_t * wcsncat (wchar_t * dst, const wchar_t * src, size_t n) {return NULL;}
-int wcscmp (const wchar_t * str1, const wchar_t * str2) {return 0;}
-int wcsncmp (const wchar_t * str1, const wchar_t * str2, size_t n) {return 0;}
-wchar_t * wcschr (const wchar_t * str, const wchar_t chr) {return NULL;}
-int wcscoll (const wchar_t *str1, const wchar_t * str2) {return 0;}
-size_t wcsxfrm (wchar_t * str1, const wchar_t * str2, size_t n) {return 0;}
-wchar_t * wcsrchr (const wchar_t * str, wchar_t chr) {return NULL;}
-wchar_t * wcspbrk (const wchar_t * str, const wchar_t * set) {return NULL;}
-size_t wcsspn (const wchar_t * str, const wchar_t * set) {return 0;}
-size_t wcscspn (const wchar_t * str, const wchar_t * set) {return 0;}
-wchar_t * wcsstr (const wchar_t * str, const wchar_t * pat) {return NULL;}
-wchar_t * wcstok (wchar_t * str, const wchar_t * set, wchar_t ** a) {return NULL;}
-
-unsigned long wcstoul (const wchar_t * a, wchar_t ** b, int c) {return 0;}
-double wcstod (const wchar_t * a, wchar_t ** b) {return 0.0;}
-
-long wcstol (const wchar_t * str, wchar_t ** end, int base) {return 0;}
+size_t
+wcslen (const wchar_t * str)
+{
+    size_t i;
+    for (i = 0; str[i] != 0; i ++);
+    return i;
+}
+
+wchar_t *
+wcscpy (wchar_t * dst, const wchar_t * src)
+{
+    size_t len;
+    len = wcslen (src);
+    if (len < 1) {
+        return NULL;
+    }
+    memmove (dst, src, len * sizeof (wchar_t));
+    dst[len] = 0;
+    return dst;
+}
+
+wchar_t *
+wcsncpy (wchar_t * dst, const wchar_t * src, size_t len_max)
+{
+    size_t len;
+    len = wcslen (src);
+    if (len < 1) {
+        return NULL;
+    }
+    if (len_max < len + 1) {
+        len = len_max - 1;
+    }
+    if (len > 0) {
+        memmove (dst, src, len * sizeof (wchar_t));
+    }
+    dst[len] = 0;
+    return dst;
+}
+
+wchar_t *
+wcscat (wchar_t * dst, const wchar_t * src)
+{
+    size_t len_dst;
+    len_dst = wcslen (dst);
+    return wcscpy (dst + len_dst, src);
+}
+
+wchar_t *
+wcsncat (wchar_t * dst, const wchar_t * src, size_t n)
+{
+    size_t len_dst;
+    len_dst = wcslen (dst);
+    return wcsncpy (dst + len_dst, src, n);
+}
+
+#define SYS_IS_BIGENDIAN 0
+
+#if SYS_IS_BIGENDIAN
+#define _wcmcmp(a,b,len) memcmp((a),(b),(len) * sizeof (wchar_t))
+#else // SYS_IS_BIGENDIAN
+int
+_wcmcmp (const wchar_t * str1, const wchar_t * str2, size_t len)
+{
+    size_t i;
+    for (i = 0; i < len; i ++) {
+        if (str1[i] == str2[i]) {
+            continue;
+        } else if (str1[i] < str2[i]) {
+            return -1;
+        }
+        return 1;
+    }
+    return 0;
+}
+#endif // SYS_IS_BIGENDIAN
+
+int
+wcscmp (const wchar_t * str1, const wchar_t * str2)
+{
+    int ret;
+    size_t len;
+    size_t len1;
+    size_t len2;
+    len1 = wcslen (str1);
+    len2 = wcslen (str2);
+    len = len1;
+    if (len > len2) {
+        len = len2;
+    }
+    ret = _wcmcmp (str1, str2, len);
+    if (0 == ret) {
+        if (len1 > len2) {
+            return -1;
+        } else if (len1 == len2) {
+            return 0;
+        }
+        return 1;
+    }
+    return ret;
+}
+
+int
+wcsncmp (const wchar_t * str1, const wchar_t * str2, size_t n)
+{
+    int ret;
+    size_t len;
+    size_t len1;
+    size_t len2;
+    len1 = wcslen (str1);
+    len2 = wcslen (str2);
+    len = len1;
+    if (len > len2) {
+        len = len2;
+    }
+    if (len > n) {
+        len = n;
+    }
+    ret = _wcmcmp (str1, str2, len);
+    if (0 == ret) {
+        if (len >= n) {
+            return 0;
+        }
+        if (len1 > len2) {
+            return -1;
+        } else if (len1 == len2) {
+            return 0;
+        }
+        return 1;
+    }
+    return ret;
+}
+
+wchar_t *
+wcschr (const wchar_t * str, const wchar_t chr)
+{
+    wchar_t * str2 = (wchar_t *)str;
+    size_t i;
+    size_t len;
+    len = wcslen (str2);
+    for (i = 0; i < len; i ++) {
+        if (str2[i] == chr) {
+            str2 += i;
+            return str2;
+        }
+    }
+    return NULL;
+}
+
+int wcscoll (const wchar_t *str1, const wchar_t * str2) {return wcscmp(str1, str2);}
+
+/*
+ * wcsxfrm: Transfom the wide-char str2 and place the result into the str1,
+ * return the length of the wide-char, return -1 on error.
+ */
+size_t
+wcsxfrm (wchar_t * str1, const wchar_t * str2, size_t n)
+{
+    wcsncpy (str1, str2, n);
+    return wcslen (str1);
+}
+
+wchar_t *
+wcsrchr (const wchar_t * str, wchar_t chr)
+{
+    wchar_t * str2 = (wchar_t *)str;
+    ssize_t i;
+    i = wcslen (str2);
+    for (; i >= 0; i ++) {
+        if (str2[i] == chr) {
+            str2 += i;
+            return str2;
+        }
+    }
+    return NULL;
+}
+
+wchar_t *
+wcspbrk (const wchar_t * str, const wchar_t * set)
+{
+    wchar_t * str2 = (wchar_t *)str;
+    size_t i;
+    size_t j;
+    size_t len;
+    size_t len_set;
+    len = wcslen (str2);
+    len_set = wcslen (set);
+    for (i = 0; i < len; i ++) {
+        for (j = 0; j < len_set; j ++) {
+            if (str2[i] == set[j]) {
+                str2 += i;
+                return str2;
+            }
+        }
+    }
+    return NULL;
+}
+
+/*
+ * wcsspn: compute the maxinum initial segment of the wide-char str which consists entirely of wide-char codes from the set.
+ * returnt he length of the initial substring of str
+ * examples:
+ * str="13134abcde", set="1234567890", wcsspn(str,set)==5
+ * str="abcde", set="1234567890", wcsspn(str,set)==0
+ */
+size_t
+wcsspn (const wchar_t * str, const wchar_t * set)
+{
+    size_t i;
+    size_t j;
+    size_t len;
+    size_t len_set;
+    len = wcslen (str);
+    len_set = wcslen (set);
+    for (i = 0; i < len; i ++) {
+        for (j = 0; j < len_set; j ++) {
+            if (str[i] == set[j]) {
+                break;
+            }
+        }
+        if (j >= len_set) {
+            return i;
+        }
+    }
+    return i;
+}
+
+/*
+ * wcscspn: determines the length of the initial segment of str which consists entirely of characters not found in set.
+ * examples:
+ * str="13134abcde", set="1234567890", wcsspn(str,set)==0
+ * str="abcde123", set="1234567890", wcsspn(str,set)==5
+*/
+size_t
+wcscspn (const wchar_t * str, const wchar_t * set)
+{
+    size_t i;
+    size_t j;
+    size_t len;
+    size_t len_set;
+    len = wcslen (str);
+    len_set = wcslen (set);
+    for (i = 0; i < len; i ++) {
+        for (j = 0; j < len_set; j ++) {
+            if (str[i] == set[j]) {
+                break;
+            }
+        }
+        if (j < len_set) {
+            return i;
+        }
+    }
+    return i;
+}
+
+wchar_t *
+wcsstr (const wchar_t * str, const wchar_t * pat)
+{
+    // TODO: improvement the alg for search
+    wchar_t *p;
+    p = wcschr (str, pat[0]);
+    for (; NULL != p;) {
+        if (0 == wcscmp (p, pat)) {
+            return p;
+        }
+        p = wcschr (p, pat[0]);
+    }
+    return NULL;
+}
+
+wchar_t *
+wcstok (wchar_t * str, const wchar_t * set, wchar_t ** a)
+{
+    wchar_t * p;
+    if (NULL == str) {
+        if (NULL == a) {
+            return NULL;
+        }
+        str = *a;
+    }
+    if (NULL == str) {
+        return NULL;
+    }
+    p = wcspbrk (str, set);
+    if (NULL == p) {
+        return NULL;
+    }
+    *p = 0;
+    *a = p;
+    return str;
+}
+
+#define iswblank iswspace
+//#define ULONG_MAX INT_MAX
+unsigned long
+wcstoul (const wchar_t *nptr, wchar_t **endptr, int base)
+{
+    int flg_overflow;
+    //int val_remain;
+    unsigned long val_ch;
+    unsigned long val_old;
+    unsigned long val;
+    /* check the base */
+    if ((1 == base) || (base > 36) || (base < 0)) {
+        // error
+        return 0;
+    }
+    // skip blank
+    while (iswblank (*nptr)) {nptr ++;}
+    if (0 == *nptr) {
+        return 0;
+    }
+    if (0 == base) {
+        // auto detect
+        switch (*nptr) {
+        case '0':
+            if (('x' == *(nptr + 1)) || ('X' == *(nptr + 1))) {
+                base = 16;
+                nptr += 2;
+            } else {
+                nptr += 1;
+                base = 8;
+            }
+            break;
+        case '1':
+        case '2':
+        case '3':
+        case '4':
+        case '5':
+        case '6':
+        case '7':
+        case '8':
+        case '9':
+            base = 10;
+            break;
+        }
+    } else {
+        if (16 == base) {
+            // detect if it has '0x' or '0X'
+            if (('0' == *nptr) && (('x' == *(nptr + 1)) || ('x' == *(nptr + 1)))) {
+                nptr += 2;
+            }
+        }
+    }
+    if (0 == base) {
+        // error
+        return 0;
+    }
+    val = 0;
+    val_old = 0;
+    flg_overflow = 0;
+    //val_remain = ULONG_MAX % base;
+    for (; '\0' != *nptr; nptr ++) {
+        val_ch = *nptr;
+        if (('0' <= val_ch) && (val_ch <= '9')) {
+            val_ch -= '0';
+        } else if (('a' <= val_ch) && (val_ch <= 'z')) {
+            val_ch = val_ch - 'a' + 10;
+        } else if (('A' <= val_ch) && (val_ch <= 'Z')) {
+            val_ch = val_ch - 'A' + 10;
+        } else {
+            // val_ch = base + 1;
+            break;
+        }
+        if (val_ch >= base) {
+            break;
+        }
+        if (flg_overflow) continue;
+        val_old = val;
+        val *= base;
+        val += val_ch;
+        if (val_old > val) {
+            flg_overflow = 1;
+        }
+    }
+    if (flg_overflow) {
+        val = ULONG_MAX;
+    }
+    if (0L != endptr) {
+        *endptr = (wchar_t *)nptr;
+    }
+    return val;
+}
+
+long
+wcstol (const wchar_t * str, wchar_t ** end, int base)
+{
+    int sign = 0;
+    unsigned long val0;
+    long val;
+    wchar_t ch;
+    // skip blank
+    for (; iswblank (*str); str ++) {
+    }
+    for (ch = *str; (ch == '-') || (ch == '+'); str ++) {
+    }
+    // the sign
+    if ('-' == ch) {
+        sign = 1;
+        str ++;
+    }
+    val0 = wcstoul (str, end, base);
+    if (val0 >= LONG_MAX) {
+        // overflow
+        val = LONG_MAX;
+        if (sign) {
+            val = LONG_MIN;
+        }
+    } else {
+        val = val0;
+        if (sign) {
+            val = -val0;
+        }
+    }
+    return val;
+}
+
+double
+wcstod (const wchar_t * str, wchar_t ** end)
+{
+    double val;
+    double mantissa;
+    unsigned long divisor;
+    unsigned long power;
+    int sign;
+    int sign_power;
+    wchar_t *pend;
+    wchar_t ch;
+    // skip blank
+    for (; iswblank (*str); str ++) {
+    }
+    for (ch = *str; (ch == '-') || (ch == '+'); str ++) {
+    }
+    // the sign
+    sign = 0;
+    if ('-' == ch) {
+        sign = 1;
+        str ++;
+    }
+    // skip leading zero
+    for (; '0' == (*str); str ++) {
+    }
+    val = 0.0;
+    mantissa = 0.0;
+    divisor = 0;
+    power = 0.0;
+    // integer part
+    for (ch = *str; ('0' <= ch) && (ch <= '9'); str ++) {
+        ch -= '0';
+        val *= 10;
+        val += ch;
+    }
+    // floating point & mantissa
+    if ('.' == *str) {
+        str ++;
+        for (ch = *str; ('0' <= ch) && (ch <= '9'); str ++) {
+            ch -= '0';
+            mantissa *= 10.0;
+            mantissa += ch;
+            divisor ++;
+        }
+    }
+    for (; divisor > 0; divisor --) {
+        mantissa /= 10.0;
+    }
+    val += mantissa;
+    sign_power = 0;
+    if (('e' == *str) || ('E' == *str)) {
+        str ++;
+        if ('-' == ch) {
+            sign_power = 1;
+            str ++;
+        }
+        pend = NULL;
+        power = wcstoul (str, &pend, 10);
+        if (NULL != pend) {
+            str = pend;
+        }
+    }
+    if (power > 0) {
+        if (sign_power) {
+            for (; power > 0; power --) {
+                val /= 10.0;
+            }
+        } else {
+            for (; power > 0; power --) {
+                val *= 10.0;
+            }
+        }
+    }
+    if (sign) {
+        val = - val;
+    }
+    if (end) {
+        *end = (wchar_t *)str;
+    }
+    return val;
+}
+
 char * setlocale (int category, const char *locale) {return NULL;}
+
+int
+eof (int fd)
+{
+    return 0;
+}
+
+int
+remove (const char *fn)
+{
+    return svfs_filedelete (fn);
+}
+
+// access(): check access permissions of a file or pathname
+// R_OK: read permission
+// W_OK: write permission
+// X_OK: execute/search permission
+// F_OK: existence test
+//All components of the pathname path are checked for access permissions (including F_OK)
+int access(const char *path, int amode) {return amode;}
+
+off_t lseek(int fildes, off_t offset, int whence) {return 0;}