| /* |
| static char Copyright[] = "Copyright Yngvi Sigurjonsson (yngvi@hafro.is), 1993"; |
| */ |
| #include <stdio.h> |
| #include <stdlib.h> |
| #include <string.h> |
| #include <ctype.h> |
| #include <sys/types.h> |
| #include <fcntl.h> |
| #include <unistd.h> |
| |
| #include "prototypes.h" |
| #include "regfunc.h" |
| #include "windows.h" |
| |
| #define ToUpper(c) toupper(c) |
| #define ToLower(c) tolower(c) |
| |
| /* Funny to divide them between user and kernel. */ |
| |
| /* KERNEL.89 */ |
| LPSTR lstrcat(LPSTR target,LPCSTR source) |
| { |
| #ifdef DEBUG_STRING |
| fprintf(stderr,"lstrcat(%s,%s)\n",target,source); |
| #endif |
| return strcat(target,source); |
| } |
| |
| /* USER.430 */ |
| INT lstrcmp(LPCSTR str1,LPCSTR str2) |
| { |
| return strcmp(str1,str2); |
| } |
| |
| /* USER.471 */ |
| INT lstrcmpi(LPCSTR str1,LPCSTR str2) |
| { |
| int i; |
| i=0; |
| while((toupper(str1[i])==toupper(str2[i]))&&(str1[i]!=0)) |
| i++; |
| return toupper(str1[i])-toupper(str2[i]); |
| } |
| |
| /* KERNEL.88 */ |
| LPSTR lstrcpy(LPSTR target,LPCSTR source) |
| { |
| return strcpy(target,source); |
| } |
| |
| /* KERNEL.353 */ |
| LPSTR lstrcpyn(LPSTR target,LPCSTR source,int n) |
| { |
| return strncpy(target,source,n); |
| } |
| |
| /* KERNEL.90 */ |
| INT lstrlen(LPCSTR str) |
| { |
| return strlen(str); |
| } |
| |
| /* IsCharAlpha USER 433 */ |
| BOOL IsCharAlpha(char ch) |
| { |
| return isalpha(ch); /* This is probably not right for NLS */ |
| } |
| |
| /* IsCharAlphanumeric USER 434 */ |
| BOOL IsCharAlphanumeric(char ch) |
| { |
| return (ch<'0')?0:(ch<'9'); |
| } |
| |
| /* IsCharUpper USER 435 */ |
| BOOL IsCharUpper(char ch) |
| { |
| return isupper(ch); |
| } |
| |
| /* IsCharLower USER 436 */ |
| BOOL IsCharLower(char ch) |
| { |
| return islower(ch); |
| } |
| |
| /* AnsiUpper USER.431 */ |
| LPSTR AnsiUpper(LPSTR strOrChar) |
| { |
| char *s = strOrChar; |
| /* I am not sure if the locale stuff works with toupper, but then again |
| I am not sure if the Linux libc locale stuffs works at all */ |
| |
| /* uppercase only one char if strOrChar < 0x10000 */ |
| if(HIWORD((DWORD)strOrChar)) { |
| while (*s) { |
| if (IsCharLower(*s)) |
| *s = ToUpper(*s); |
| s++; |
| } |
| return strOrChar; |
| } else |
| if (IsCharLower((int)strOrChar)) |
| return (LPSTR) ToUpper((int)strOrChar); |
| else |
| return (LPSTR) strOrChar; |
| } |
| |
| /* AnsiUpperBuff USER.437 */ |
| UINT AnsiUpperBuff(LPSTR str,UINT len) |
| { |
| int i; |
| len=(len==0)?65536:len; |
| |
| for(i=0;i<len;i++) |
| str[i]=toupper(str[i]); |
| return i; |
| } |
| |
| /* AnsiLower USER.432 */ |
| LPSTR AnsiLower(LPSTR strOrChar) |
| { |
| char *s = strOrChar; |
| /* I am not sure if the locale stuff works with toupper, but then again |
| I am not sure if the Linux libc locale stuffs works at all */ |
| |
| /* lowercase only one char if strOrChar < 0x10000 */ |
| if(HIWORD((DWORD)strOrChar)) { |
| while (*s) { |
| if (IsCharUpper(*s)) |
| *s = ToLower(*s); |
| s++; |
| } |
| return strOrChar; |
| } else |
| if (IsCharUpper((int)strOrChar)) |
| return (LPSTR) ToLower((int)strOrChar); |
| else |
| return (LPSTR) strOrChar; |
| } |
| |
| /* AnsiLowerBuff USER.438 */ |
| UINT AnsiLowerBuff(LPSTR str,UINT len) |
| { |
| int i; |
| len=(len==0)?65536:len; |
| i=0; |
| |
| for(i=0;i<len;i++) |
| str[i]=tolower(str[i]); |
| |
| return i; |
| } |
| |
| /* AnsiNext USER.472 */ |
| LPSTR AnsiNext(LPSTR current) |
| { |
| return (*current)?current+1:current; |
| } |
| |
| /* AnsiPrev USER.473 */ |
| char FAR* AnsiPrev(/*const*/ char FAR* start,char FAR* current) |
| { |
| return (current==start)?start:current-1; |
| } |
| |
| BYTE Oem2Ansi[256], Ansi2Oem[256]; |
| |
| void InitOemAnsiTranslations(void) |
| { |
| static int inited=0; /* should called called in some init function*/ |
| int transfile,i; |
| if(inited) return; |
| if((transfile=open("oem2ansi.trl",O_RDONLY))){ |
| read(transfile,Oem2Ansi,256); |
| close(transfile); |
| } |
| else { /* sets up passive translations if it does not find the file */ |
| for(i=0;i<256;i++) /* Needs some fixing */ |
| Oem2Ansi[i]=i; |
| } |
| if((transfile=open("ansi2oem.trl",O_RDONLY))){ |
| read(transfile,Ansi2Oem,256); |
| close(transfile); |
| } |
| else { /* sets up passive translations if it does not find the file */ |
| for(i=0;i<256;i++) /* Needs some fixing */ |
| Ansi2Oem[i]=i; |
| } |
| inited=1; |
| } |
| |
| /* AnsiToOem Keyboard.5 */ |
| INT AnsiToOem(LPSTR lpAnsiStr, LPSTR lpOemStr) /* why is this int ??? */ |
| { |
| InitOemAnsiTranslations(); /* should called called in some init function*/ |
| while(*lpAnsiStr){ |
| *lpOemStr++=Ansi2Oem[*lpAnsiStr++]; |
| } |
| return -1; |
| } |
| |
| /* OemToAnsi Keyboard.6 */ |
| BOOL OemToAnsi(LPSTR lpOemStr, LPSTR lpAnsiStr) /* why is this BOOL ???? */ |
| { |
| InitOemAnsiTranslations(); /* should called called in some init function*/ |
| while(*lpOemStr){ |
| *lpAnsiStr++=Oem2Ansi[*lpOemStr++]; |
| } |
| return -1; |
| } |
| |
| /* AnsiToOemBuff Keyboard.134 */ |
| void AnsiToOemBuff(LPSTR lpAnsiStr, LPSTR lpOemStr, INT nLength) |
| { |
| int i; |
| InitOemAnsiTranslations(); /* should called called in some init function*/ |
| for(i=0;i<nLength;i++) |
| lpOemStr[i]=Ansi2Oem[lpAnsiStr[i]]; |
| } |
| |
| /* OemToAnsi Keyboard.135 */ |
| void OemToAnsiBuff(LPSTR lpOemStr, LPSTR lpAnsiStr, INT nLength) |
| { |
| int i; |
| InitOemAnsiTranslations(); /* should called called in some init function*/ |
| for(i=0;i<nLength;i++) |
| lpAnsiStr[i]=Oem2Ansi[lpOemStr[i]]; |
| } |