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 { STRLANGEUCZH, STRKEUC },
1216 { STRLANGEUCJPB, STRKEUC },
1217 { STRLANGEUCKRB, STRKEUC },
1218 { STRLANGEUCZHB, STRKEUC },
1219 { STRLANGSJIS, STRKSJIS },
1220 { STRLANGSJISB, STRKSJIS },
1221 { STRLANGBIG5, STRKBIG5 },
1222 { NULL, NULL }
1223 };
1224
1225 if (*pcp == '\0')
1226 return;
1227
1228 for (i = 0; dspmt[i].n; i++) {
1229 if (eq(pcp, dspmt[i].n)) {
1230 set(CHECK_MBYTEVAR, Strsave(dspmt[i].v), VAR_READWRITE);
1231 update_dspmbyte_vars();
1232 break;
1233 }
1234 }
1235}
1236#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 { STRLANGEUCZH, STRKEUC },
1216 { STRLANGEUCJPB, STRKEUC },
1217 { STRLANGEUCKRB, STRKEUC },
1218 { STRLANGEUCZHB, STRKEUC },
1219 { STRLANGSJIS, STRKSJIS },
1220 { STRLANGSJISB, STRKSJIS },
1221 { STRLANGBIG5, STRKBIG5 },
1222 { NULL, NULL }
1223 };
1224
1225 if (*pcp == '\0')
1226 return;
1227
1228 for (i = 0; dspmt[i].n; i++) {
1229 if (eq(pcp, dspmt[i].n)) {
1230 set(CHECK_MBYTEVAR, Strsave(dspmt[i].v), VAR_READWRITE);
1231 update_dspmbyte_vars();
1232 break;
1233 }
1234 }
1235}
1236#endif