Subversion Repositories SvarDOS

Rev

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

Rev 1363 Rev 1364
Line 834... Line 834...
834 
  static struct file dbarr[10];
 834 
  static struct file dbarr[10];
835 
  unsigned short curfile;
 835 
  unsigned short curfile;
836 
  struct file *db = dbarr; /* visible file is the first slot by default */
 836 
  struct file *db = dbarr; /* visible file is the first slot by default */
837 
 
 837 
 
838 
  {
 838 
  {
- 
 
 839 
    unsigned short i = 0;
- 
 
 840 
    const char far *selfptr;
839 
    char nlspath[128], lang[8];
 841 
    char self[128], lang[8];
- 
 
 842 
    selfptr = mdr_dos_selfexe();
- 
 
 843 
    if (selfptr != NULL) {
- 
 
 844 
      do {
- 
 
 845 
        self[i] = selfptr[i];
- 
 
 846 
      } while (self[i++] != 0);
840 
    svarlang_autoload_pathlist("sved", mdr_dos_getenv(nlspath, "NLSPATH", sizeof(nlspath)), mdr_dos_getenv(lang, "LANG", sizeof(lang)));
 847 
      svarlang_autoload_exepath(self, mdr_dos_getenv(lang, "LANG", sizeof(lang)));
- 
 
 848 
    }
841 
  }
 849 
  }
842 
 
 850 
 
843 
  /* preload all slots with empty files */
 851 
  /* preload all slots with empty files */
844 
  for (curfile = 9;; curfile--) {
 852 
  for (curfile = 9;; curfile--) {
845 
    loadfile(&(dbarr[curfile]), "");
 853 
    loadfile(&(dbarr[curfile]), "");