Subversion Repositories SvarDOS

Rev

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

Rev 1007 Rev 1012
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 
        ptr = env_lookup_val(envseg, res + reslen);
 720 
        ptr = env_lookup_val(envseg, res + reslen);
720 
        if (ptr != NULL) {
 721 
        if (ptr != NULL) {
721 
          while ((*ptr != 0) && (reslen < ressz)) {
 722 
          while ((*ptr != 0) && (reslen < ressz)) {
722 
            res[reslen++] = *ptr;
 723 
            res[reslen++] = *ptr;
723 
            ptr++;
 724 
            ptr++;