misc/lstr.c

   1 static char Copyright[] = "Copyright  Yngvi Sigurjonsson (yngvi@hafro.is), 1993";
   2
   3 #include <stdio.h>
   4 #include <stdlib.h>
   5 #include <string.h>
   6 #include <ctype.h>
   7 #include <sys/types.h>
   8 #include <fcntl.h>
   9 #include <unistd.h>
  10
  11 #include "prototypes.h"
  12 #include "regfunc.h"
  13 #include "windows.h"
  14
  15
  16   /* Funny to divide them between user and kernel. */
  17
  18 /* KERNEL.89 */
  19 LPSTR lstrcat(LPSTR target,LPCSTR source)
  20 {
  21 #ifdef DEBUG_STRING
  22   fprintf(stderr,"lstrcat(%s,%s)\n",target,source);
  23 #endif
  24   return strcat(target,source);
  25 }
  26
  27 /* USER.430 */
  28 INT lstrcmp(LPCSTR str1,LPCSTR str2)
  29 {
  30   return strcmp(str1,str2);
  31 }
  32
  33 /* USER.471 */
  34 INT lstrcmpi(LPCSTR str1,LPCSTR str2)
  35 {
  36   int i;
  37   i=0;
  38   while((toupper(str1[i])==toupper(str2[i]))&&(str1[i]!=0))
  39     i++;
  40   return toupper(str1[i])-toupper(str2[i]);
  41 }
  42
  43 /* KERNEL.88 */
  44 LPSTR lstrcpy(LPSTR target,LPCSTR source)
  45 {
  46   return strcpy(target,source);
  47 }
  48
  49 /* KERNEL.353 */
  50 LPSTR lstrcpyn(LPSTR target,LPCSTR source,int n)
  51 {
  52   return strncpy(target,source,n);
  53 }
  54
  55 /* KERNEL.90 */
  56 INT lstrlen(LPCSTR str)
  57 {
  58   return strlen(str);
  59 }
  60
  61 /* AnsiUpper USER.431 */
  62 char FAR* AnsiUpper(char FAR* strOrChar)
  63 {
  64   /* I am not sure if the locale stuff works with toupper, but then again
  65      I am not sure if the Linux libc locale stuffs works at all */
  66   if((int)strOrChar<256)
  67     return (char FAR*) toupper((int)strOrChar);
  68   else {
  69     int i;
  70     for(i=0;(i<65536)&&strOrChar[i];i++)
  71       strOrChar[i]=toupper(strOrChar[i]);
  72     return strOrChar;
  73   }
  74 }
  75
  76 /* AnsiLower USER.432 */
  77 char FAR* AnsiLower(char FAR* strOrChar)
  78 {
  79   /* I am not sure if the locale stuff works with tolower, but then again
  80      I am not sure if the Linux libc locale stuffs works at all */
  81   if((int)strOrChar<256)
  82     return (char FAR*)tolower((int)strOrChar);
  83   else {
  84     int i;
  85     for(i=0;(i<65536)&&strOrChar[i];i++)
  86       strOrChar[i]=tolower(strOrChar[i]);
  87     return strOrChar;
  88   }
  89 }
  90
  91 /* AnsiUpperBuff USER.437 */
  92 UINT AnsiUpperBuff(LPSTR str,UINT len)
  93 {
  94   int i;
  95   len=(len==0)?65536:len;
  96
  97   for(i=0;i<len;i++)
  98     str[i]=toupper(str[i]);
  99   return i;
 100 }
 101
 102 /* AnsiLowerBuff USER.438 */
 103 UINT AnsiLowerBuff(LPSTR str,UINT len)
 104 {
 105   int i;
 106   len=(len==0)?65536:len;
 107   i=0;
 108
 109   for(i=0;i<len;i++)
 110     str[i]=tolower(str[i]);
 111
 112   return i;
 113 }
 114
 115 /* AnsiNext USER.472 */
 116 LPSTR AnsiNext(LPSTR current)
 117 {
 118   return (*current)?current+1:current;
 119 }
 120
 121 /* AnsiPrev USER.473 */
 122 char FAR*  AnsiPrev(/*const*/ char FAR* start,char FAR* current)
 123 {
 124   return (current==start)?start:current-1;
 125 }
 126
 127 /* IsCharAlpha USER 433 */
 128 BOOL IsCharAlpha(char ch)
 129 {
 130   return isalpha(ch);   /* This is probably not right for NLS */
 131 }
 132 /* IsCharAlphanumeric USER 434 */
 133 BOOL IsCharAlphanumeric(char ch)
 134 {
 135   return (ch<'0')?0:(ch<'9');
 136 }
 137
 138 /* IsCharUpper USER 435 */
 139 BOOL IsCharUpper(char ch)
 140 {
 141   return isupper(ch);
 142 }
 143
 144 /* IsCharUpper USER 436 */
 145 BOOL IsCharLower(char ch)
 146 {
 147   return islower(ch);
 148 }
 149
 150 static char Oem2Ansi[256];
 151 static char Ansi2Oem[256];
 152
 153 void InitOemAnsiTranslations(void)
 154 {
 155   static int inited=0; /* should called called in some init function*/
 156   int transfile,i;
 157   if(inited) return;
 158   if(transfile=open("oem2ansi.trl",O_RDONLY)){
 159     read(transfile,Oem2Ansi,256);
 160     close(transfile);
 161   }
 162   else {  /* sets up passive translations if it does not find the file */
 163     for(i=0;i<256;i++)  /* Needs some fixing */
 164       Oem2Ansi[i]=i;
 165   }
 166   if(transfile=open("ansi2oem.trl",O_RDONLY)){
 167     read(transfile,Ansi2Oem,256);
 168     close(transfile);
 169   }
 170   else {  /* sets up passive translations if it does not find the file */
 171     for(i=0;i<256;i++)  /* Needs some fixing */
 172       Ansi2Oem[i]=i;
 173   }
 174   inited=1;
 175 }
 176
 177 /* AnsiToOem Keyboard.5 */
 178 INT AnsiToOem(LPSTR lpAnsiStr, LPSTR lpOemStr)   /* why is this int ??? */
 179 {
 180   InitOemAnsiTranslations(); /* should called called in some init function*/
 181   while(*lpAnsiStr){
 182     *lpOemStr++=Ansi2Oem[*lpAnsiStr++];
 183   }
 184   return -1;
 185 }
 186
 187 /* OemToAnsi Keyboard.6 */
 188 BOOL OemToAnsi(LPSTR lpOemStr, LPSTR lpAnsiStr)   /* why is this BOOL ???? */
 189 {
 190   InitOemAnsiTranslations(); /* should called called in some init function*/
 191   while(*lpOemStr){
 192     *lpAnsiStr++=Oem2Ansi[*lpOemStr++];
 193   }
 194   return -1;
 195 }
 196
 197 /* AnsiToOemBuff Keyboard.134 */
 198 void AnsiToOemBuff(LPSTR lpAnsiStr, LPSTR lpOemStr, INT nLength)
 199 {
 200   int i;
 201   InitOemAnsiTranslations(); /* should called called in some init function*/
 202   for(i=0;i<nLength;i++)
 203     lpOemStr[i]=Ansi2Oem[lpAnsiStr[i]];
 204 }
 205
 206 /* OemToAnsi Keyboard.135 */
 207 void OemToAnsiBuff(LPSTR lpOemStr, LPSTR lpAnsiStr, INT nLength)
 208 {
 209   int i;
 210   InitOemAnsiTranslations(); /* should called called in some init function*/
 211   for(i=0;i<nLength;i++)
 212     lpAnsiStr[i]=Oem2Ansi[lpOemStr[i]];
 213 }