17c478bd9Sstevel@tonic-gate /*
27c478bd9Sstevel@tonic-gate * CDDL HEADER START
37c478bd9Sstevel@tonic-gate *
47c478bd9Sstevel@tonic-gate * The contents of this file are subject to the terms of the
57c478bd9Sstevel@tonic-gate * Common Development and Distribution License, Version 1.0 only
67c478bd9Sstevel@tonic-gate * (the "License"). You may not use this file except in compliance
77c478bd9Sstevel@tonic-gate * with the License.
87c478bd9Sstevel@tonic-gate *
97c478bd9Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
107c478bd9Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing.
117c478bd9Sstevel@tonic-gate * See the License for the specific language governing permissions
127c478bd9Sstevel@tonic-gate * and limitations under the License.
137c478bd9Sstevel@tonic-gate *
147c478bd9Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each
157c478bd9Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
167c478bd9Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the
177c478bd9Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying
187c478bd9Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner]
197c478bd9Sstevel@tonic-gate *
207c478bd9Sstevel@tonic-gate * CDDL HEADER END
217c478bd9Sstevel@tonic-gate */
227c478bd9Sstevel@tonic-gate /*
237c478bd9Sstevel@tonic-gate * Copyright 1998 Sun Microsystems, Inc. All rights reserved.
247c478bd9Sstevel@tonic-gate * Use is subject to license terms.
257c478bd9Sstevel@tonic-gate */
267c478bd9Sstevel@tonic-gate
277c478bd9Sstevel@tonic-gate /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
287c478bd9Sstevel@tonic-gate /* All Rights Reserved */
297c478bd9Sstevel@tonic-gate
307c478bd9Sstevel@tonic-gate #include "uucp.h"
317c478bd9Sstevel@tonic-gate
327c478bd9Sstevel@tonic-gate /*
337c478bd9Sstevel@tonic-gate * generate a vector of pointers (arps) to the
347c478bd9Sstevel@tonic-gate * substrings in string "s".
357c478bd9Sstevel@tonic-gate * Each substring is separated by blanks and/or tabs.
367c478bd9Sstevel@tonic-gate * s -> string to analyze -- s GETS MODIFIED
377c478bd9Sstevel@tonic-gate * arps -> array of pointers -- count + 1 pointers
387c478bd9Sstevel@tonic-gate * count -> max number of fields
397c478bd9Sstevel@tonic-gate * returns:
407c478bd9Sstevel@tonic-gate * i -> # of subfields
417c478bd9Sstevel@tonic-gate * arps[i] = NULL
427c478bd9Sstevel@tonic-gate */
437c478bd9Sstevel@tonic-gate
447c478bd9Sstevel@tonic-gate GLOBAL int
getargs(s,arps,count)457c478bd9Sstevel@tonic-gate getargs(s, arps, count)
467c478bd9Sstevel@tonic-gate register char *s, *arps[];
477c478bd9Sstevel@tonic-gate register int count;
487c478bd9Sstevel@tonic-gate {
497c478bd9Sstevel@tonic-gate register int i;
507c478bd9Sstevel@tonic-gate char *prev;
517c478bd9Sstevel@tonic-gate
527c478bd9Sstevel@tonic-gate prev = _uu_setlocale(LC_ALL, "C");
537c478bd9Sstevel@tonic-gate for (i = 0; i < count; i++) {
547c478bd9Sstevel@tonic-gate while (*s == ' ' || *s == '\t')
557c478bd9Sstevel@tonic-gate *s++ = '\0';
567c478bd9Sstevel@tonic-gate if (*s == '\n')
577c478bd9Sstevel@tonic-gate *s = '\0';
587c478bd9Sstevel@tonic-gate if (*s == '\0')
597c478bd9Sstevel@tonic-gate break;
607c478bd9Sstevel@tonic-gate arps[i] = s++;
617c478bd9Sstevel@tonic-gate while (*s != '\0' && *s != ' '
627c478bd9Sstevel@tonic-gate && *s != '\t' && *s != '\n')
637c478bd9Sstevel@tonic-gate s++;
647c478bd9Sstevel@tonic-gate }
657c478bd9Sstevel@tonic-gate arps[i] = NULL;
667c478bd9Sstevel@tonic-gate (void) _uu_resetlocale(LC_ALL, prev);
677c478bd9Sstevel@tonic-gate return(i);
687c478bd9Sstevel@tonic-gate }
697c478bd9Sstevel@tonic-gate
707c478bd9Sstevel@tonic-gate /*
717c478bd9Sstevel@tonic-gate * bsfix(args) - remove backslashes from args
727c478bd9Sstevel@tonic-gate *
737c478bd9Sstevel@tonic-gate * \123 style strings are collapsed into a single character
747c478bd9Sstevel@tonic-gate * \000 gets mapped into \N for further processing downline.
757c478bd9Sstevel@tonic-gate * \ at end of string is removed
767c478bd9Sstevel@tonic-gate * \t gets replaced by a tab
777c478bd9Sstevel@tonic-gate * \n gets replaced by a newline
787c478bd9Sstevel@tonic-gate * \r gets replaced by a carriage return
797c478bd9Sstevel@tonic-gate * \b gets replaced by a backspace
80*2a8bcb4eSToomas Soome * \s gets replaced by a blank
817c478bd9Sstevel@tonic-gate * any other unknown \ sequence is left intact for further processing
827c478bd9Sstevel@tonic-gate * downline.
837c478bd9Sstevel@tonic-gate */
847c478bd9Sstevel@tonic-gate
857c478bd9Sstevel@tonic-gate GLOBAL void
bsfix(args)867c478bd9Sstevel@tonic-gate bsfix (args)
877c478bd9Sstevel@tonic-gate char **args;
887c478bd9Sstevel@tonic-gate {
897c478bd9Sstevel@tonic-gate register char *str, *to, *cp;
907c478bd9Sstevel@tonic-gate register int num;
917c478bd9Sstevel@tonic-gate char *prev;
927c478bd9Sstevel@tonic-gate
937c478bd9Sstevel@tonic-gate prev = _uu_setlocale(LC_ALL, "C");
947c478bd9Sstevel@tonic-gate for (; *args; args++) {
957c478bd9Sstevel@tonic-gate str = *args;
967c478bd9Sstevel@tonic-gate for (to = str; *str; str++) {
977c478bd9Sstevel@tonic-gate if (*str == '\\') {
987c478bd9Sstevel@tonic-gate if (str[1] == '\0')
997c478bd9Sstevel@tonic-gate break;
1007c478bd9Sstevel@tonic-gate switch (*++str) {
1017c478bd9Sstevel@tonic-gate case '0':
1027c478bd9Sstevel@tonic-gate case '1':
1037c478bd9Sstevel@tonic-gate case '2':
1047c478bd9Sstevel@tonic-gate case '3':
1057c478bd9Sstevel@tonic-gate case '4':
1067c478bd9Sstevel@tonic-gate case '5':
1077c478bd9Sstevel@tonic-gate case '6':
1087c478bd9Sstevel@tonic-gate case '7':
1097c478bd9Sstevel@tonic-gate for ( num = 0, cp = str
1107c478bd9Sstevel@tonic-gate ; cp - str < 3
1117c478bd9Sstevel@tonic-gate ; cp++
1127c478bd9Sstevel@tonic-gate ) {
1137c478bd9Sstevel@tonic-gate if ('0' <= *cp && *cp <= '7') {
1147c478bd9Sstevel@tonic-gate num <<= 3;
1157c478bd9Sstevel@tonic-gate num += *cp - '0';
1167c478bd9Sstevel@tonic-gate }
1177c478bd9Sstevel@tonic-gate else
1187c478bd9Sstevel@tonic-gate break;
1197c478bd9Sstevel@tonic-gate }
1207c478bd9Sstevel@tonic-gate if (num == 0) {
1217c478bd9Sstevel@tonic-gate *to++ = '\\';
1227c478bd9Sstevel@tonic-gate *to++ = 'N';
1237c478bd9Sstevel@tonic-gate } else
1247c478bd9Sstevel@tonic-gate *to++ = (char) num;
1257c478bd9Sstevel@tonic-gate str = cp-1;
1267c478bd9Sstevel@tonic-gate break;
1277c478bd9Sstevel@tonic-gate
1287c478bd9Sstevel@tonic-gate case 't':
1297c478bd9Sstevel@tonic-gate *to++ = '\t';
1307c478bd9Sstevel@tonic-gate break;
1317c478bd9Sstevel@tonic-gate
132*2a8bcb4eSToomas Soome case 's':
1337c478bd9Sstevel@tonic-gate *to++ = ' ';
1347c478bd9Sstevel@tonic-gate break;
1357c478bd9Sstevel@tonic-gate
1367c478bd9Sstevel@tonic-gate case 'n':
1377c478bd9Sstevel@tonic-gate *to++ = '\n';
1387c478bd9Sstevel@tonic-gate break;
1397c478bd9Sstevel@tonic-gate
1407c478bd9Sstevel@tonic-gate case 'r':
1417c478bd9Sstevel@tonic-gate *to++ = '\r';
1427c478bd9Sstevel@tonic-gate break;
1437c478bd9Sstevel@tonic-gate
1447c478bd9Sstevel@tonic-gate case 'b':
1457c478bd9Sstevel@tonic-gate *to++ = '\b';
1467c478bd9Sstevel@tonic-gate break;
1477c478bd9Sstevel@tonic-gate
1487c478bd9Sstevel@tonic-gate default:
1497c478bd9Sstevel@tonic-gate *to++ = '\\';
1507c478bd9Sstevel@tonic-gate *to++ = *str;
1517c478bd9Sstevel@tonic-gate break;
1527c478bd9Sstevel@tonic-gate }
1537c478bd9Sstevel@tonic-gate }
1547c478bd9Sstevel@tonic-gate else
1557c478bd9Sstevel@tonic-gate *to++ = *str;
1567c478bd9Sstevel@tonic-gate }
1577c478bd9Sstevel@tonic-gate *to = '\0';
1587c478bd9Sstevel@tonic-gate }
1597c478bd9Sstevel@tonic-gate (void) _uu_resetlocale(LC_ALL, prev);
1607c478bd9Sstevel@tonic-gate return;
1617c478bd9Sstevel@tonic-gate }
1627c478bd9Sstevel@tonic-gate
1637c478bd9Sstevel@tonic-gate /*
1647c478bd9Sstevel@tonic-gate ** This routine is used so that the current
165*2a8bcb4eSToomas Soome ** locale can be saved and then restored.
1667c478bd9Sstevel@tonic-gate */
1677c478bd9Sstevel@tonic-gate char *
_uu_setlocale(int category,char * locale)1687c478bd9Sstevel@tonic-gate _uu_setlocale(int category, char *locale)
1697c478bd9Sstevel@tonic-gate {
1707c478bd9Sstevel@tonic-gate char *tmp, *ret;
1717c478bd9Sstevel@tonic-gate int len;
1727c478bd9Sstevel@tonic-gate
1737c478bd9Sstevel@tonic-gate /* get current locale */
1747c478bd9Sstevel@tonic-gate if ((tmp = setlocale(category, NULL)) == NULL)
175*2a8bcb4eSToomas Soome return (NULL);
1767c478bd9Sstevel@tonic-gate
1777c478bd9Sstevel@tonic-gate /* allocate space for the current locale and copy it */
1787c478bd9Sstevel@tonic-gate len = strlen(tmp) + 1;
1797c478bd9Sstevel@tonic-gate
1807c478bd9Sstevel@tonic-gate if ((ret = malloc(len)) == NULL)
1817c478bd9Sstevel@tonic-gate return ((char *) 0);
1827c478bd9Sstevel@tonic-gate
1837c478bd9Sstevel@tonic-gate strncpy(ret, tmp, len);
1847c478bd9Sstevel@tonic-gate
1857c478bd9Sstevel@tonic-gate /* now set the new locale */
1867c478bd9Sstevel@tonic-gate if (setlocale(category, locale) == NULL) {
1877c478bd9Sstevel@tonic-gate free(ret);
1887c478bd9Sstevel@tonic-gate return ((char *) 0);
1897c478bd9Sstevel@tonic-gate }
1907c478bd9Sstevel@tonic-gate return (ret);
1917c478bd9Sstevel@tonic-gate }
1927c478bd9Sstevel@tonic-gate
1937c478bd9Sstevel@tonic-gate /*
1947c478bd9Sstevel@tonic-gate ** Reset the previous locale, free memory
1957c478bd9Sstevel@tonic-gate */
1967c478bd9Sstevel@tonic-gate void
_uu_resetlocale(int category,char * locale)1977c478bd9Sstevel@tonic-gate _uu_resetlocale(int category, char *locale)
1987c478bd9Sstevel@tonic-gate {
1997c478bd9Sstevel@tonic-gate if (locale == NULL)
2007c478bd9Sstevel@tonic-gate return;
2017c478bd9Sstevel@tonic-gate (void) setlocale(category, locale);
2027c478bd9Sstevel@tonic-gate free(locale);
2037c478bd9Sstevel@tonic-gate }
204