|
|
| version 1.8, 2004/06/20 01:03:04 | version 1.13, 2005/02/07 14:46:08 |
|---|---|
| Line 1 | Line 1 |
| #include "compiler.h" | #include "compiler.h" |
| // ---- ANK / UCS2 / UCS4 | |
| // ---- ANK | |
| #if defined(SUPPORT_ANK) | #if defined(SUPPORT_ANK) |
| int milank_charsize(const char *str) { | int STRCALL milank_charsize(const OEMCHAR *str) { |
| return((str[0] != '\0')?1:0); | return((str[0] != '\0')?1:0); |
| } | } |
| int milank_cmp(const char *str, const char *cmp) { | int STRCALL milank_cmp(const OEMCHAR *str, const OEMCHAR *cmp) { |
| int s; | int s; |
| int c; | int c; |
| do { | do { |
| s = (BYTE)*str++; | s = *str++; |
| if (((s - 'a') & 0xff) < 26) { | if ((s >= 'a') && (s <= 'z')) { |
| s -= 0x20; | s -= 0x20; |
| } | } |
| c = (BYTE)*cmp++; | c = *cmp++; |
| if (((c - 'a') & 0xff) < 26) { | if ((c >= 'a') && (c <= 'z')) { |
| c -= 0x20; | c -= 0x20; |
| } | } |
| if (s != c) { | if (s != c) { |
| Line 31 int milank_cmp(const char *str, const ch | Line 30 int milank_cmp(const char *str, const ch |
| return(0); | return(0); |
| } | } |
| int milank_memcmp(const char *str, const char *cmp) { | int STRCALL milank_memcmp(const OEMCHAR *str, const OEMCHAR *cmp) { |
| int s; | int s; |
| int c; | int c; |
| do { | do { |
| c = (BYTE)*cmp++; | c = *cmp++; |
| if (c == 0) { | if (c == 0) { |
| return(0); | return(0); |
| } | } |
| if (((c - 'a') & 0xff) < 26) { | if ((c >= 'a') && (c <= 'z')) { |
| c -= 0x20; | c -= 0x20; |
| } | } |
| s = (BYTE)*str++; | s = *str++; |
| if (((s - 'a') & 0xff) < 26) { | if ((s >= 'a') && (s <= 'z')) { |
| s -= 0x20; | s -= 0x20; |
| } | } |
| } while(s == c); | } while(s == c); |
| return((s > c)?1:-1); | return((s > c)?1:-1); |
| } | } |
| void milank_ncpy(char *dst, const char *src, int maxlen) { | void STRCALL milank_ncpy(OEMCHAR *dst, const OEMCHAR *src, int maxlen) { |
| int i; | int i; |
| Line 65 void milank_ncpy(char *dst, const char * | Line 64 void milank_ncpy(char *dst, const char * |
| } | } |
| } | } |
| void milank_ncat(char *dst, const char *src, int maxlen) { | void STRCALL milank_ncat(OEMCHAR *dst, const OEMCHAR *src, int maxlen) { |
| int i; | int i; |
| int j; | int j; |
| Line 84 void milank_ncat(char *dst, const char * | Line 83 void milank_ncat(char *dst, const char * |
| } | } |
| } | } |
| char *milank_chr(const char *str, int c) { | OEMCHAR * STRCALL milank_chr(const OEMCHAR *str, int c) { |
| int s; | int s; |
| Line 92 char *milank_chr(const char *str, int c) | Line 91 char *milank_chr(const char *str, int c) |
| do { | do { |
| s = *str; | s = *str; |
| if (s == c) { | if (s == c) { |
| return((char *)str); | return((OEMCHAR *)str); |
| } | } |
| str++; | str++; |
| } while(s); | } while(s); |
| Line 105 char *milank_chr(const char *str, int c) | Line 104 char *milank_chr(const char *str, int c) |
| // ---- Shift-JIS | // ---- Shift-JIS |
| #if defined(SUPPORT_SJIS) | #if defined(SUPPORT_SJIS) |
| int milsjis_charsize(const char *str) { | int STRCALL milsjis_charsize(const char *str) { |
| int pos; | int pos; |
| Line 113 int milsjis_charsize(const char *str) { | Line 112 int milsjis_charsize(const char *str) { |
| return((str[pos] != '\0')?(pos+1):0); | return((str[pos] != '\0')?(pos+1):0); |
| } | } |
| int milsjis_cmp(const char *str, const char *cmp) { | int STRCALL milsjis_cmp(const char *str, const char *cmp) { |
| int s; | int s; |
| int c; | int c; |
| do { | do { |
| s = (BYTE)*str++; | s = (UINT8)*str++; |
| if ((((s ^ 0x20) - 0xa1) & 0xff) < 0x3c) { | if ((((s ^ 0x20) - 0xa1) & 0xff) < 0x3c) { |
| c = (BYTE)*cmp++; | c = (UINT8)*cmp++; |
| if (s != c) { | if (s != c) { |
| goto mscp_err; | goto mscp_err; |
| } | } |
| s = (BYTE)*str++; | s = (UINT8)*str++; |
| c = (BYTE)*cmp++; | c = (UINT8)*cmp++; |
| } | } |
| else { | else { |
| if (((s - 'a') & 0xff) < 26) { | if (((s - 'a') & 0xff) < 26) { |
| s -= 0x20; | s -= 0x20; |
| } | } |
| c = (BYTE)*cmp++; | c = (UINT8)*cmp++; |
| if (((c - 'a') & 0xff) < 26) { | if (((c - 'a') & 0xff) < 26) { |
| c -= 0x20; | c -= 0x20; |
| } | } |
| Line 147 mscp_err: | Line 146 mscp_err: |
| return((s > c)?1:-1); | return((s > c)?1:-1); |
| } | } |
| int milsjis_memcmp(const char *str, const char *cmp) { | int STRCALL milsjis_memcmp(const char *str, const char *cmp) { |
| int s; | int s; |
| int c; | int c; |
| do { | do { |
| c = (BYTE)*cmp++; | c = (UINT8)*cmp++; |
| if ((((c ^ 0x20) - 0xa1) & 0xff) < 0x3c) { | if ((((c ^ 0x20) - 0xa1) & 0xff) < 0x3c) { |
| s = (BYTE)*str++; | s = (UINT8)*str++; |
| if (c != s) { | if (c != s) { |
| break; | break; |
| } | } |
| c = (BYTE)*cmp++; | c = (UINT8)*cmp++; |
| s = (BYTE)*str++; | s = (UINT8)*str++; |
| } | } |
| else if (c) { | else if (c) { |
| if (((c - 'a') & 0xff) < 26) { | if (((c - 'a') & 0xff) < 26) { |
| c &= ~0x20; | c &= ~0x20; |
| } | } |
| s = (BYTE)*str++; | s = (UINT8)*str++; |
| if (((s - 'a') & 0xff) < 26) { | if (((s - 'a') & 0xff) < 26) { |
| s &= ~0x20; | s &= ~0x20; |
| } | } |
| Line 178 int milsjis_memcmp(const char *str, cons | Line 177 int milsjis_memcmp(const char *str, cons |
| return((s > c)?1:-1); | return((s > c)?1:-1); |
| } | } |
| int milsjis_kanji1st(const char *str, int pos) { | int STRCALL milsjis_kanji1st(const char *str, int pos) { |
| int ret; | int ret; |
| Line 190 int milsjis_kanji1st(const char *str, in | Line 189 int milsjis_kanji1st(const char *str, in |
| return(ret); | return(ret); |
| } | } |
| int milsjis_kanji2nd(const char *str, int pos) { | int STRCALL milsjis_kanji2nd(const char *str, int pos) { |
| int ret = 0; | int ret; |
| ret = 0; | |
| while((pos > 0) && ((((str[--pos] ^ 0x20) - 0xa1) & 0xff) < 0x3c)) { | while((pos > 0) && ((((str[--pos] ^ 0x20) - 0xa1) & 0xff) < 0x3c)) { |
| ret ^= 1; | ret ^= 1; |
| } | } |
| return(ret); | return(ret); |
| } | } |
| void milsjis_ncpy(char *dst, const char *src, int maxlen) { | void STRCALL milsjis_ncpy(char *dst, const char *src, int maxlen) { |
| int i; | int i; |
| Line 218 void milsjis_ncpy(char *dst, const char | Line 218 void milsjis_ncpy(char *dst, const char |
| } | } |
| } | } |
| void milsjis_ncat(char *dst, const char *src, int maxlen) { | void STRCALL milsjis_ncat(char *dst, const char *src, int maxlen) { |
| int i; | int i; |
| int j; | int j; |
| Line 242 void milsjis_ncat(char *dst, const char | Line 242 void milsjis_ncat(char *dst, const char |
| } | } |
| } | } |
| char *milsjis_chr(const char *str, int c) { | char * STRCALL milsjis_chr(const char *str, int c) { |
| int s; | int s; |
| Line 267 char *milsjis_chr(const char *str, int c | Line 267 char *milsjis_chr(const char *str, int c |
| // ---- EUC | // ---- EUC |
| #if defined(SUPPORT_EUC) // あれ 半角カナ忘れてるぞ? | #if defined(SUPPORT_EUC) // あれ 半角カナ忘れてるぞ? |
| int mileuc_charsize(const char *str) { | int STRCALL mileuc_charsize(const char *str) { |
| int pos; | int pos; |
| pos = (((str[0] - 0xa1) & 0xff) < 0x5d)?1:0; | pos = (str[0] & 0x80)?1:0; |
| return((str[pos] != '\0')?(pos+1):0); | return((str[pos] != '\0')?(pos+1):0); |
| } | } |
| int mileuc_cmp(const char *str, const char *cmp) { | int STRCALL mileuc_cmp(const char *str, const char *cmp) { |
| int s; | int s; |
| int c; | int c; |
| do { | do { |
| s = (BYTE)*str++; | s = (UINT8)*str++; |
| if (((s - 0xa1) & 0xff) < 0x5d) { | if (s & 0x80) { |
| c = (BYTE)*cmp++; | c = (UINT8)*cmp++; |
| if (s != c) { | if (s != c) { |
| goto mscp_err; | goto mscp_err; |
| } | } |
| s = (BYTE)*str++; | s = (UINT8)*str++; |
| c = (BYTE)*cmp++; | c = (UINT8)*cmp++; |
| } | } |
| else { | else { |
| if (((s - 'a') & 0xff) < 26) { | if (((s - 'a') & 0xff) < 26) { |
| s -= 0x20; | s -= 0x20; |
| } | } |
| c = (BYTE)*cmp++; | c = (UINT8)*cmp++; |
| if (((c - 'a') & 0xff) < 26) { | if (((c - 'a') & 0xff) < 26) { |
| c -= 0x20; | c -= 0x20; |
| } | } |
| Line 309 mscp_err: | Line 309 mscp_err: |
| return((s > c)?1:-1); | return((s > c)?1:-1); |
| } | } |
| int mileuc_memcmp(const char *str, const char *cmp) { | int STRCALL mileuc_memcmp(const char *str, const char *cmp) { |
| int s; | int s; |
| int c; | int c; |
| do { | do { |
| c = (BYTE)*cmp++; | c = (UINT8)*cmp++; |
| if (((c - 0xa1) & 0xff) < 0x5d) { | if (c & 0x80) { |
| s = (BYTE)*str++; | s = (UINT8)*str++; |
| if (c != s) { | if (c != s) { |
| break; | break; |
| } | } |
| c = (BYTE)*cmp++; | c = (UINT8)*cmp++; |
| s = (BYTE)*str++; | s = (UINT8)*str++; |
| } | } |
| else if (c) { | else if (c) { |
| if (((c - 'a') & 0xff) < 26) { | if (((c - 'a') & 0xff) < 26) { |
| c -= 0x20; | c -= 0x20; |
| } | } |
| s = (BYTE)*str++; | s = (UINT8)*str++; |
| if (((s - 'a') & 0xff) < 26) { | if (((s - 'a') & 0xff) < 26) { |
| s -= 0x20; | s -= 0x20; |
| } | } |
| Line 340 int mileuc_memcmp(const char *str, const | Line 340 int mileuc_memcmp(const char *str, const |
| return((s > c)?1:-1); | return((s > c)?1:-1); |
| } | } |
| int mileuc_kanji1st(const char *str, int pos) { | int STRCALL mileuc_kanji1st(const char *str, int pos) { |
| int ret; | int ret; |
| ret = 0; | ret = 0; |
| while((pos >= 0) && | while((pos >= 0) && (str[pos--] & 0x80)) { |
| (((str[pos--] - 0xa1) & 0xff) < 0x5d)) { | |
| ret ^= 1; | ret ^= 1; |
| } | } |
| return(ret); | return(ret); |
| } | } |
| int mileuc_kanji2nd(const char *str, int pos) { | int STRCALL mileuc_kanji2nd(const char *str, int pos) { |
| int ret = 0; | int ret; |
| while((pos > 0) && (((str[--pos] - 0xa1) & 0xff) < 0x5d)) { | ret = 0; |
| while((pos > 0) && (str[--pos] & 0x80)) { | |
| ret ^= 1; | ret ^= 1; |
| } | } |
| return(ret); | return(ret); |
| } | } |
| void mileuc_ncpy(char *dst, const char *src, int maxlen) { | void STRCALL mileuc_ncpy(char *dst, const char *src, int maxlen) { |
| int i; | int i; |
| Line 380 void mileuc_ncpy(char *dst, const char * | Line 380 void mileuc_ncpy(char *dst, const char * |
| } | } |
| } | } |
| void mileuc_ncat(char *dst, const char *src, int maxlen) { | void STRCALL mileuc_ncat(char *dst, const char *src, int maxlen) { |
| int i; | int i; |
| int j; | int j; |
| Line 404 void mileuc_ncat(char *dst, const char * | Line 404 void mileuc_ncat(char *dst, const char * |
| } | } |
| } | } |
| char *mileuc_chr(const char *str, int c) { | char * STRCALL mileuc_chr(const char *str, int c) { |
| int s; | int s; |
| Line 414 char *mileuc_chr(const char *str, int c) | Line 414 char *mileuc_chr(const char *str, int c) |
| if (s == c) { | if (s == c) { |
| return((char *)str); | return((char *)str); |
| } | } |
| if (((s - 0xa1) & 0xff) < 0x5d) { | if (s & 0x80) { |
| str++; | str++; |
| s = *str; | s = *str; |
| } | } |
| Line 429 char *mileuc_chr(const char *str, int c) | Line 429 char *mileuc_chr(const char *str, int c) |
| // ---- UTF8 | // ---- UTF8 |
| #if defined(SUPPORT_UTF8) | #if defined(SUPPORT_UTF8) |
| int milutf8_charsize(const char *str) { | int STRCALL milutf8_charsize(const char *str) { |
| if (str[0] == '\0') { | if (str[0] == '\0') { |
| return(0); | return(0); |
| Line 437 int milutf8_charsize(const char *str) { | Line 437 int milutf8_charsize(const char *str) { |
| else if (!(str[0] & 0x80)) { | else if (!(str[0] & 0x80)) { |
| return(1); | return(1); |
| } | } |
| else if ((src[0] & 0xe0) == 0xc0) { | else if ((str[0] & 0xe0) == 0xc0) { |
| if ((src[1] & 0xc0) == 0x80) { | if ((str[1] & 0xc0) == 0x80) { |
| return(2); | return(2); |
| } | } |
| } | } |
| else if ((src[0] & 0xf0) == 0xe0) { | else if ((str[0] & 0xf0) == 0xe0) { |
| if (((src[1] & 0xc0) == 0x80) || | if (((str[1] & 0xc0) == 0x80) || |
| ((src[2] & 0xc0) == 0x80)) { | ((str[2] & 0xc0) == 0x80)) { |
| return(3); | return(3); |
| } | } |
| } | } |
| return(0); | return(0); |
| } | } |
| int milutf8_cmp(const char *str, const char *cmp) { | int STRCALL milutf8_cmp(const char *str, const char *cmp) { |
| int s; | int s; |
| int c; | int c; |
| Line 461 int milutf8_cmp(const char *str, const c | Line 461 int milutf8_cmp(const char *str, const c |
| if (((s - 'a') & 0xff) < 26) { | if (((s - 'a') & 0xff) < 26) { |
| s -= 0x20; | s -= 0x20; |
| } | } |
| c = (BYTE)*cmp++; | c = (UINT8)*cmp++; |
| if (((c - 'a') & 0xff) < 26) { | if (((c - 'a') & 0xff) < 26) { |
| c -= 0x20; | c -= 0x20; |
| } | } |
| Line 472 int milutf8_cmp(const char *str, const c | Line 472 int milutf8_cmp(const char *str, const c |
| return(0); | return(0); |
| } | } |
| int milutf8_memcmp(const char *str, const char *cmp) { | int STRCALL milutf8_memcmp(const char *str, const char *cmp) { |
| int s; | int s; |
| int c; | int c; |
| Line 493 int milutf8_memcmp(const char *str, cons | Line 493 int milutf8_memcmp(const char *str, cons |
| return((s > c)?1:-1); | return((s > c)?1:-1); |
| } | } |
| int milutf8_kanji1st(const char *str, int pos) { | int STRCALL milutf8_kanji1st(const char *str, int pos) { |
| return(((str[pos] & 0xc0) >= 0xc0)?1:0); | return(((str[pos] & 0xc0) >= 0xc0)?1:0); |
| } | } |
| int milutf8_kanji2nd(const char *str, int pos) { | int STRCALL milutf8_kanji2nd(const char *str, int pos) { |
| return(((str[pos] & 0xc0) == 0x80)?1:0); | return(((str[pos] & 0xc0) == 0x80)?1:0); |
| } | } |
| void milutf8_ncpy(char *dst, const char *src, int maxlen) { | void STRCALL milutf8_ncpy(char *dst, const char *src, int maxlen) { |
| int i; | int i; |
| Line 512 void milutf8_ncpy(char *dst, const char | Line 512 void milutf8_ncpy(char *dst, const char |
| for (i=0; i<maxlen && src[i]; i++) { | for (i=0; i<maxlen && src[i]; i++) { |
| dst[i] = src[i]; | dst[i] = src[i]; |
| } | } |
| while((i) && ((dst[i] & 0xc0) == 0x80)) { | |
| i--; | |
| } | |
| dst[i] = '\0'; | dst[i] = '\0'; |
| if (i) { | |
| do { | |
| i--; | |
| } while((i) && ((dst[i] & 0xc0) == 0x80)); | |
| i += milutf8_charsize(dst + i); | |
| dst[i] = '\0'; | |
| } | |
| } | } |
| } | } |
| void milutf8_ncat(char *dst, const char *src, int maxlen) { | void STRCALL milutf8_ncat(char *dst, const char *src, int maxlen) { |
| int i; | int i; |
| int j; | int j; |
| Line 534 void milutf8_ncat(char *dst, const char | Line 538 void milutf8_ncat(char *dst, const char |
| for (j=0; i<maxlen && src[j]; i++, j++) { | for (j=0; i<maxlen && src[j]; i++, j++) { |
| dst[i] = src[j]; | dst[i] = src[j]; |
| } | } |
| while((i) && ((dst[i] & 0xc0) == 0x80)) { | |
| i--; | |
| } | |
| dst[i] = '\0'; | dst[i] = '\0'; |
| if (i) { | |
| do { | |
| i--; | |
| } while((i) && ((dst[i] & 0xc0) == 0x80)); | |
| i += milutf8_charsize(dst + i); | |
| dst[i] = '\0'; | |
| } | |
| } | } |
| } | } |
| char *milutf8_chr(const char *str, int c) { | char * STRCALL milutf8_chr(const char *str, int c) { |
| int s; | int s; |
| Line 561 char *milutf8_chr(const char *str, int c | Line 569 char *milutf8_chr(const char *str, int c |
| // ---- other | // ---- other |
| int milstr_extendcmp(const char *str, const char *cmp) { | int STRCALL milstr_extendcmp(const OEMCHAR *str, const OEMCHAR *cmp) { |
| int c; | int c; |
| int s; | int s; |
| do { | do { |
| while(1) { | while(1) { |
| c = (BYTE)*cmp++; | c = (UINT8)*cmp++; |
| if (!c) { | if (!c) { |
| return(0); | return(0); |
| } | } |
| Line 597 int milstr_extendcmp(const char *str, co | Line 605 int milstr_extendcmp(const char *str, co |
| return((s > c)?1:-1); | return((s > c)?1:-1); |
| } | } |
| char *milstr_nextword(const char *str) { | OEMCHAR * STRCALL milstr_nextword(const OEMCHAR *str) { |
| if (str) { | if (str) { |
| while(!(((*str) - 1) & 0xe0)) { | while((*str > '\0') && (*str <= ' ')) { |
| str++; | str++; |
| } | } |
| } | } |
| return((char *)str); | return((OEMCHAR *)str); |
| } | } |
| int milstr_getarg(char *str, char *arg[], int maxarg) { | int STRCALL milstr_getarg(OEMCHAR *str, OEMCHAR *arg[], int maxarg) { |
| int ret = 0; | int ret = 0; |
| char *p; | OEMCHAR *p; |
| BOOL quot; | BRESULT quot; |
| while(maxarg--) { | while(maxarg--) { |
| quot = FALSE; | quot = FALSE; |
| while((*str) && (((BYTE)*str) <= 0x20)) { | while((*str > '\0') && (*str <= ' ')) { |
| str++; | str++; |
| } | } |
| if (*str == '\0') { | if (*str == '\0') { |
| Line 624 int milstr_getarg(char *str, char *arg[] | Line 632 int milstr_getarg(char *str, char *arg[] |
| arg[ret++] = str; | arg[ret++] = str; |
| p = str; | p = str; |
| while(*str) { | while(*str) { |
| if (*str == 0x22) { | if (*str == '\"') { |
| quot = !quot; | quot = !quot; |
| } | } |
| else if ((((BYTE)*str) > 0x20) || (quot)) { | else if ((quot) || (*str < '\0') || (*str > ' ')) { |
| *p++ = *str; | *p++ = *str; |
| } | } |
| else { | else { |
| Line 641 int milstr_getarg(char *str, char *arg[] | Line 649 int milstr_getarg(char *str, char *arg[] |
| return(ret); | return(ret); |
| } | } |
| long milstr_solveHEX(const char *str) { | long STRCALL milstr_solveHEX(const OEMCHAR *str) { |
| long ret; | long ret; |
| int i; | int i; |
| char c; | OEMCHAR c; |
| ret = 0; | ret = 0; |
| for (i=0; i<8; i++) { | for (i=0; i<8; i++) { |
| Line 668 long milstr_solveHEX(const char *str) { | Line 676 long milstr_solveHEX(const char *str) { |
| return(ret); | return(ret); |
| } | } |
| long milstr_solveINT(const char *str) { | long STRCALL milstr_solveINT(const OEMCHAR *str) { |
| long ret; | long ret; |
| int c; | int c; |
| Line 697 long milstr_solveINT(const char *str) { | Line 705 long milstr_solveINT(const char *str) { |
| return(ret * s); | return(ret * s); |
| } | } |
| char *milstr_list(const char *lststr, UINT pos) { | OEMCHAR * STRCALL milstr_list(const OEMCHAR *lststr, UINT pos) { |
| if (lststr) { | if (lststr) { |
| while(pos) { | while(pos) { |
| Line 706 char *milstr_list(const char *lststr, UI | Line 714 char *milstr_list(const char *lststr, UI |
| } | } |
| } | } |
| } | } |
| return((char *)lststr); | return((OEMCHAR *)lststr); |
| } | } |