1/* $Header: /src/pub/tcsh/sh.set.c,v 3.39 2001/03/18 19:06:30 christos Exp $ */
2/*
3 * sh.set.c: Setting and Clearing of variables
4 */
5/*-
6 * Copyright (c) 1980, 1991 The Regents of the University of California.
7 * All rights reserved.
8 *
--- 1198 unchanged lines hidden (view full) ---
1207{
1208 int i;
1209 struct dspm_autoset_Table {
1210 Char *n;
1211 Char *v;
1212 } dspmt[] = {
1213 { STRLANGEUCJP, STRKEUC },
1214 { STRLANGEUCKR, STRKEUC },
1215 { STRLANGEUCJPB, STRKEUC },
1216 { STRLANGEUCKRB, STRKEUC },
1217 { STRLANGSJIS, STRKSJIS },
1218 { STRLANGSJISB, STRKSJIS },
1219 { STRLANGBIG5, STRKBIG5 },
1220 { NULL, NULL }
1221 };
1222
1223 if (*pcp == '\0')
1224 return;
1225
1226 for (i = 0; dspmt[i].n; i++) {
1227 if (eq(pcp, dspmt[i].n)) {
1228 set(CHECK_MBYTEVAR, Strsave(dspmt[i].v), VAR_READWRITE);
1229 update_dspmbyte_vars();
1230 break;
1231 }
1232 }
1233}
1234#endif
2/*
3 * sh.set.c: Setting and Clearing of variables
4 */
5/*-
6 * Copyright (c) 1980, 1991 The Regents of the University of California.
7 * All rights reserved.
8 *
--- 1198 unchanged lines hidden (view full) ---
1207{
1208 int i;
1209 struct dspm_autoset_Table {
1210 Char *n;
1211 Char *v;
1212 } dspmt[] = {
1213 { STRLANGEUCJP, STRKEUC },
1214 { STRLANGEUCKR, STRKEUC },
1215 { STRLANGEUCJPB, STRKEUC },
1216 { STRLANGEUCKRB, STRKEUC },
1217 { STRLANGSJIS, STRKSJIS },
1218 { STRLANGSJISB, STRKSJIS },
1219 { STRLANGBIG5, STRKBIG5 },
1220 { NULL, NULL }
1221 };
1222
1223 if (*pcp == '\0')
1224 return;
1225
1226 for (i = 0; dspmt[i].n; i++) {
1227 if (eq(pcp, dspmt[i].n)) {
1228 set(CHECK_MBYTEVAR, Strsave(dspmt[i].v), VAR_READWRITE);
1229 update_dspmbyte_vars();
1230 break;
1231 }
1232 }
1233}
1234#endif