misc/lstr.c

   1 /*
   2  * String functions
   3  *
   4  * Copyright 1993 Yngvi Sigurjonsson (yngvi@hafro.is)
   5  */
   6
   7 #include <stdio.h>
   8 #include <stdlib.h>
   9 #include <string.h>
  10 #include <ctype.h>
  11
  12 #include "ldt.h"
  13 #include "windows.h"
  14 #include "stddebug.h"
  15 #include "debug.h"
  16
  17 #define ToUpper(c)      toupper(c)
  18 #define ToLower(c)      tolower(c)
  19
  20
  21 static const BYTE Oem2Ansi[256] =
  22 "\000\001\002\003\004\005\006\007\010\011\012\013\014\015\016\244"
  23 "\020\021\022\023\266\247\026\027\030\031\032\033\034\035\036\037"
  24 "\040\041\042\043\044\045\046\047\050\051\052\053\054\055\056\057"
  25 "\060\061\062\063\064\065\066\067\070\071\072\073\074\075\076\077"
  26 "\100\101\102\103\104\105\106\107\110\111\112\113\114\115\116\117"
  27 "\120\121\122\123\124\125\126\127\130\131\132\133\134\135\136\137"
  28 "\140\141\142\143\144\145\146\147\150\151\152\153\154\155\156\157"
  29 "\160\161\162\163\164\165\166\167\170\171\172\173\174\175\176\177"
  30 "\307\374\351\342\344\340\345\347\352\353\350\357\356\354\304\305"
  31 "\311\346\306\364\366\362\373\371\377\326\334\242\243\245\120\203"
  32 "\341\355\363\372\361\321\252\272\277\137\254\275\274\241\253\273"
  33 "\137\137\137\246\246\246\246\053\053\246\246\053\053\053\053\053"
  34 "\053\055\055\053\055\053\246\246\053\053\055\055\246\055\053\055"
  35 "\055\055\055\053\053\053\053\053\053\053\053\137\137\246\137\137"
  36 "\137\337\137\266\137\137\265\137\137\137\137\137\137\137\137\137"
  37 "\137\261\137\137\137\137\367\137\260\225\267\137\156\262\137\137";
  38
  39 static const BYTE Ansi2Oem[256] =
  40 "\000\001\002\003\004\005\006\007\010\011\012\013\014\015\016\017"
  41 "\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037"
  42 "\040\041\042\043\044\045\046\047\050\051\052\053\054\055\056\057"
  43 "\060\061\062\063\064\065\066\067\070\071\072\073\074\075\076\077"
  44 "\100\101\102\103\104\105\106\107\110\111\112\113\114\115\116\117"
  45 "\120\121\122\123\124\125\126\127\130\131\132\133\134\135\136\137"
  46 "\140\141\142\143\144\145\146\147\150\151\152\153\154\155\156\157"
  47 "\160\161\162\163\164\165\166\167\170\171\172\173\174\175\176\177"
  48 "\200\201\054\237\054\137\375\374\210\045\123\074\117\215\216\217"
  49 "\220\140\047\042\042\371\055\137\230\231\163\076\157\235\236\131"
  50 "\040\255\233\234\017\235\335\025\042\143\246\256\252\055\162\137"
  51 "\370\361\375\063\047\346\024\372\054\061\247\257\254\253\137\250"
  52 "\101\101\101\101\216\217\222\200\105\220\105\105\111\111\111\111"
  53 "\104\245\117\117\117\117\231\170\117\125\125\125\232\131\137\341"
  54 "\205\240\203\141\204\206\221\207\212\202\210\211\215\241\214\213"
  55 "\144\244\225\242\223\157\224\366\157\227\243\226\201\171\137\230";
  56
  57
  58 /* Funny to divide them between user and kernel. */
  59
  60 /* KERNEL.89 */
  61 SEGPTR lstrcat( SEGPTR target, SEGPTR source )
  62 {
  63     strcat( (char *)PTR_SEG_TO_LIN(target), (char *)PTR_SEG_TO_LIN(source) );
  64     return target;
  65 }
  66
  67 /* USER.430 */
  68 INT lstrcmp(LPCSTR str1,LPCSTR str2)
  69 {
  70   return strcmp(str1,str2);
  71 }
  72
  73 /* USER.471 */
  74 INT lstrcmpi(LPCSTR str1,LPCSTR str2)
  75 {
  76   int i;
  77   i=0;
  78   while((toupper(str1[i])==toupper(str2[i]))&&(str1[i]!=0))
  79     i++;
  80   return toupper(str1[i])-toupper(str2[i]);
  81 }
  82
  83 /* KERNEL.88 */
  84 SEGPTR lstrcpy( SEGPTR target, SEGPTR source )
  85 {
  86     strcpy( (char *)PTR_SEG_TO_LIN(target), (char *)PTR_SEG_TO_LIN(source) );
  87     return target;
  88 }
  89
  90 /* KERNEL.353 */
  91 SEGPTR lstrcpyn( SEGPTR target, SEGPTR source, WORD n )
  92 {
  93     strncpy((char *)PTR_SEG_TO_LIN(target), (char *)PTR_SEG_TO_LIN(source), n);
  94     return target;
  95 }
  96
  97 /* KERNEL.90 */
  98 INT lstrlen(LPCSTR str)
  99 {
 100   return strlen(str);
 101 }
 102
 103 /* IsCharAlpha USER 433 */
 104 BOOL IsCharAlpha(char ch)
 105 {
 106   return isalpha(ch);   /* This is probably not right for NLS */
 107 }
 108
 109 /* IsCharAlphanumeric USER 434 */
 110 BOOL IsCharAlphanumeric(char ch)
 111 {
 112   return (ch<'0')?0:(ch<'9');
 113 }
 114
 115 /* IsCharUpper USER 435 */
 116 BOOL IsCharUpper(char ch)
 117 {
 118   return isupper(ch);
 119 }
 120
 121 /* IsCharLower USER 436 */
 122 BOOL IsCharLower(char ch)
 123 {
 124   return islower(ch);
 125 }
 126
 127 /***********************************************************************
 128  *           AnsiUpper   (USER.431)
 129  */
 130
 131 /* 16-bit version */
 132 SEGPTR WIN16_AnsiUpper( SEGPTR strOrChar )
 133 {
 134   /* I am not sure if the locale stuff works with toupper, but then again
 135      I am not sure if the Linux libc locale stuffs works at all */
 136
 137     /* uppercase only one char if strOrChar < 0x10000 */
 138     if (HIWORD(strOrChar))
 139     {
 140         char *s = PTR_SEG_TO_LIN(strOrChar);
 141         while (*s) *s++ = ToUpper( *s );
 142         return strOrChar;
 143     }
 144     else return (SEGPTR)ToUpper( (int)strOrChar );
 145 }
 146
 147 /* 32-bit version */
 148 LPSTR AnsiUpper(LPSTR strOrChar)
 149 {
 150     char *s = strOrChar;
 151   /* I am not sure if the locale stuff works with toupper, but then again
 152      I am not sure if the Linux libc locale stuffs works at all */
 153
 154     while (*s) *s++ = ToUpper( *s );
 155     return strOrChar;
 156 }
 157
 158
 159 /***********************************************************************
 160  *           AnsiUpperBuff   (USER.437)
 161  */
 162 UINT AnsiUpperBuff(LPSTR str,UINT len)
 163 {
 164   int i;
 165   len=(len==0)?65536:len;
 166
 167   for(i=0;i<len;i++)
 168     str[i]=toupper(str[i]);
 169   return i;
 170 }
 171
 172 /***********************************************************************
 173  *           AnsiLower   (USER.432)
 174  */
 175
 176 /* 16-bit version */
 177 SEGPTR WIN16_AnsiLower(SEGPTR strOrChar)
 178 {
 179   /* I am not sure if the locale stuff works with toupper, but then again
 180      I am not sure if the Linux libc locale stuffs works at all */
 181
 182     /* lowercase only one char if strOrChar < 0x10000 */
 183     if (HIWORD(strOrChar))
 184     {
 185         char *s = PTR_SEG_TO_LIN( strOrChar );
 186         while (*s) *s++ = ToLower( *s );
 187         return strOrChar;
 188     }
 189     else return (SEGPTR)ToLower( (int)strOrChar );
 190 }
 191
 192 /* 32-bit version */
 193 LPSTR AnsiLower(LPSTR strOrChar)
 194 {
 195     char *s = strOrChar;
 196   /* I am not sure if the locale stuff works with toupper, but then again
 197      I am not sure if the Linux libc locale stuffs works at all */
 198
 199     while (*s) *s++ = ToLower( *s );
 200     return strOrChar;
 201 }
 202
 203
 204 /***********************************************************************
 205  *           AnsiLowerBuff   (USER.438)
 206  */
 207 UINT AnsiLowerBuff(LPSTR str,UINT len)
 208 {
 209   int i;
 210   len=(len==0)?65536:len;
 211   i=0;
 212
 213   for(i=0;i<len;i++)
 214     str[i]=tolower(str[i]);
 215
 216   return i;
 217 }
 218
 219
 220 /* AnsiNext USER.472 */
 221 SEGPTR AnsiNext(SEGPTR current)
 222 {
 223     return (*(char *)PTR_SEG_TO_LIN(current)) ? current + 1 : current;
 224 }
 225
 226 /* AnsiPrev USER.473 */
 227 SEGPTR AnsiPrev( SEGPTR start, SEGPTR current)
 228 {
 229     return (current==start)?start:current-1;
 230 }
 231
 232
 233 /* AnsiToOem Keyboard.5 */
 234 INT AnsiToOem(LPSTR lpAnsiStr, LPSTR lpOemStr)   /* why is this int ??? */
 235 {
 236   while(*lpAnsiStr){
 237     *lpOemStr++=Ansi2Oem[(unsigned char)(*lpAnsiStr++)];
 238   }
 239   *lpOemStr = 0;
 240   return -1;
 241 }
 242
 243 /* OemToAnsi Keyboard.6 */
 244 BOOL OemToAnsi(LPSTR lpOemStr, LPSTR lpAnsiStr)   /* why is this BOOL ???? */
 245 {
 246   while(*lpOemStr){
 247     *lpAnsiStr++=Oem2Ansi[(unsigned char)(*lpOemStr++)];
 248   }
 249   *lpAnsiStr = 0;
 250   return -1;
 251 }
 252
 253 /* AnsiToOemBuff Keyboard.134 */
 254 void AnsiToOemBuff(LPSTR lpAnsiStr, LPSTR lpOemStr, INT nLength)
 255 {
 256   int i;
 257   for(i=0;i<nLength;i++)
 258     lpOemStr[i]=Ansi2Oem[(unsigned char)(lpAnsiStr[i])];
 259 }
 260
 261 /* OemToAnsi Keyboard.135 */
 262 void OemToAnsiBuff(LPSTR lpOemStr, LPSTR lpAnsiStr, INT nLength)
 263 {
 264   int i;
 265   for(i=0;i<nLength;i++)
 266     lpAnsiStr[i]=Oem2Ansi[(unsigned char)(lpOemStr[i])];
 267 }