Subversion Repositories SvarDOS

Rev

Rev 1279 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1279 Rev 1378
Line 27... Line 27...
27 
 
 27 
 
28 
#include "svarlang.h"
 28 
#include "svarlang.h"
29 
 
 29 
 
30 
int svarlang_autoload_exepath(const char *selfexe, const char *lang) {
 30 
int svarlang_autoload_exepath(const char *selfexe, const char *lang) {
31 
  unsigned short selflen;
 31 
  unsigned short selflen;
32 
  char self_ext_backup[3];
 32 
  unsigned long self_ext_backup;
33 
  char *self_ext_ptr;
 33 
  unsigned long *self_ext_ptr;
34 
  int res;
 34 
  int res;
35 
 
 35 
 
36 
  /* validate selfexe: must be at least 5 bytes long and 4th char from end must
36 
  /* validate selfexe: must be at least 5 bytes long and 4th char from end must
37 
   * be a dot (like "a.exe" or "c:\b.com" or "..\..\test\run.exe") */
 37 
   * be a dot (like "a.exe" or "c:\b.com" or "..\..\test\run.exe") */
38 
  if (selfexe == NULL) return(-1);
 38 
  if (selfexe == NULL) return(-200);
39 
  for (selflen = 0; selfexe[selflen] != 0; selflen++);
 39 
  for (selflen = 0; selfexe[selflen] != 0; selflen++);
40 
  if ((selflen < 5) || (selfexe[selflen - 4] != '.')) return(-2);
 40 
  if ((selflen < 5) || (selfexe[selflen - 4] != '.')) return(-200);
41 
 
 41 
 
42 
  self_ext_ptr = (char *)selfexe + selflen - 3; /* disregard CONST (I revert original content later, so the caller won't notice */
 42 
  self_ext_ptr = (void *)(selfexe + selflen - 3); /* disregard CONST (I revert original content later, so the caller won't notice */
43 
 
 43 
 
44 
  /* copy extension to buffer and replace it with "lng" */
 44 
  /* copy extension to buffer and replace it with "lng" */
45 
  self_ext_backup[0] = self_ext_ptr[0];
 - 
 
46 
  self_ext_backup[1] = self_ext_ptr[1];
 - 
 
47 
  self_ext_backup[2] = self_ext_ptr[2];
 45 
  self_ext_backup = *self_ext_ptr;
48 
 
 46 
 
49 
  self_ext_ptr[0] = 'L';
 47 
  *self_ext_ptr = 0x00474E4Cl; /* "LNG\0" */
50 
  self_ext_ptr[1] = 'N';
 - 
 
51 
  self_ext_ptr[2] = 'G';
 - 
 
52 
 
 48 
 
53 
  /* try loading it now */
 49 
  /* try loading it now */
54 
  res = svarlang_load(selfexe, lang);
 50 
  res = svarlang_load(selfexe, lang);
55 
 
 51 
 
56 
  /* restore the original filename and quit */
 52 
  /* restore the original filename and quit */
57 
  self_ext_ptr[0] = self_ext_backup[0];
 - 
 
58 
  self_ext_ptr[1] = self_ext_backup[1];
 - 
 
59 
  self_ext_ptr[2] = self_ext_backup[2];
 53 
  *self_ext_ptr = self_ext_backup;
60 
 
 54 
 
61 
  return(res);
 55 
  return(res);
62 
}
 56 
}