| 0,0 → 1,81 |
|---|
| /* |
| * chcp |
| */ |
| |
| static int cmd_chcp(struct cmd_funcparam *p) { |
| short nnn = 0; |
| unsigned short errcode = 0; |
| |
| if (cmd_ishlp(p)) { |
| outputnl("Displays or sets the active code page number"); |
| outputnl(""); |
| outputnl("CHCP [nnn]"); |
| outputnl(""); |
| outputnl("nnn Specifies a code page number"); |
| outputnl(""); |
| outputnl("Type CHCP without a parameter to display the active code page number."); |
| return(-1); |
| } |
| |
| /* too many parameters */ |
| if (p->argc > 1) { |
| outputnl("Too many parameters"); |
| return(-1); |
| } |
| |
| /* one param? must be numeric in range 1+ */ |
| if (p->argc == 1) { |
| nnn = atoi(p->argv[0]); |
| if (nnn < 1) { |
| outputnl("Invalid code page number"); |
| return(-1); |
| } |
| /* set code page to nnn */ |
| _asm { |
| push ax |
| push bx |
| |
| mov ax, 0x6602 /* DOS 3.3+ -- Activate Code Page */ |
| mov bx, [nnn] |
| int 0x21 /* CF set on error and err code in AX */ |
| jnc DONE |
| mov [errcode], ax /* store err code in nnn on failure */ |
| DONE: |
| |
| pop bx |
| pop ax |
| } |
| if (errcode == 1) { /* DOS ERR 1 means "Function number invalid" (ie. no NLS) */ |
| outputnl("NLSFUNC not installed"); |
| } else if (errcode != 0) { |
| outputnl("Failed to change code page"); |
| } |
| |
| } else { /* no parameter given: display active code page */ |
| |
| _asm { |
| push ax |
| push bx |
| push dx |
| |
| mov ax, 0x6601 /* DOS 3.3+ -- Query Active Code Page */ |
| int 0x21 /* CF set on error, current CP in BX */ |
| mov [nnn], bx |
| jnc DONE |
| mov [errcode], ax |
| DONE: |
| |
| pop dx |
| pop bx |
| pop ax |
| } |
| if (errcode == 0) { |
| sprintf(p->BUFFER, "Active code page: %d", nnn); |
| outputnl(p->BUFFER); |
| } else { |
| outputnl(doserr(errcode)); |
| } |
| } |
| |
| return(-1); |
| } |