SvarDOSSvarDOS Packages

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /svarcom/trunk/ @ 1136

  → /svarcom/trunk/ @ 1137

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Ignore whitespace Rev 1136 → Rev 1137

/svarcom/trunk/cmd/set.c
60,7 → 60,7
}
} else { /* set variable (do not rely on argv, SET has its own rules...) */
const char far *ptr;
unsigned short i, errcode = 0;
unsigned short i;
/* locate the first space or tab */
for (ptr = p->cmdline; ((*ptr != ' ') && (*ptr != '\t')); ptr++);
75,29 → 75,10
buff[i++] = *ptr;
}
/* make variable name all caps */
_asm {
push ax
push cx
push dx
/* make variable name all caps (country-dependend) */
buff[i] = 0;
nls_strtoup(buff);
mov ax, 0x6521 /* country-dependent capitalize string (DOS 4+) */
mov cx, [i] /* CX=length of string */
mov dx, buff /* DS:DX->string to capitalize */
int 0x21
jnc DONE
mov [errcode], ax
DONE:
pop dx
pop cx
pop ax
}
if (errcode != 0) {
nls_outputnl_doserr(errcode);
return(CMD_FAIL);
}
/* copy value now */
while (*ptr != 0) {
buff[i++] = *ptr;

/svarcom/trunk/helpers.c
621,6 → 621,31
}
/* capitalize an ASCIZ string following country-dependent rules */
void nls_strtoup(char *buff) {
unsigned short errcode = 0;
/* requires DOS 4+ */
_asm {
push ax
push dx
mov ax, 0x6522 /* country-dependent capitalize string (DOS 4+) */
mov dx, buff /* DS:DX -> string to capitalize */
int 0x21
jnc DONE
mov errcode, ax /* set errcode on failure */
DONE:
pop dx
pop ax
}
/* rely on OpenWatcom's strupr() if DOS has no NLS support */
if (errcode != 0) strupr(buff);
}
/* reload nls ressources from svarcom.lng into svarlang_mem */
void nls_langreload(char *buff, unsigned short env) {
const char far *nlspath;

/svarcom/trunk/helpers.h
182,6 → 182,9
* returns length of result */
unsigned short nls_format_number(char *s, unsigned long num, const struct nls_patterns *p);
/* capitalize an ASCIZ string following country-dependent rules */
void nls_strtoup(char *buff);
/* reload nls ressources from svarcom.lng into langblock */
void nls_langreload(char *buff, unsigned short env);