Subversion Repositories SvarDOS

Rev

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

Rev 1138 Rev 1139
Line 714... Line 714...
714 
        res[reslen++] = '%';
 714 
        res[reslen++] = '%';
715 
      } else {   /* otherwise variable name */
 715 
      } else {   /* otherwise variable name */
716 
        const char far *ptr;
 716 
        const char far *ptr;
717 
        res[reslen] = 0;
 717 
        res[reslen] = 0;
718 
        reslen = lastperc;
 718 
        reslen = lastperc;
719 
        strupr(res + reslen); /* turn varname uppercase before lookup */
 719 
        nls_strtoup(res + reslen); /* turn varname uppercase before lookup */
720 
        ptr = env_lookup_val(envseg, res + reslen);
 720 
        ptr = env_lookup_val(envseg, res + reslen);
721 
        if (ptr != NULL) {
 721 
        if (ptr != NULL) {
722 
          while ((*ptr != 0) && (reslen < ressz)) {
 722 
          while ((*ptr != 0) && (reslen < ressz)) {
723 
            res[reslen++] = *ptr;
 723 
            res[reslen++] = *ptr;
724 
            ptr++;
 724 
            ptr++;