]> git.saurik.com Git - apple/libc.git/blob - locale/frune.c
Libc-1439.100.3.tar.gz
[apple/libc.git] / locale / frune.c
1 /*-
2 * Copyright (c) 1993
3 * The Regents of the University of California. All rights reserved.
4 *
5 * This code is derived from software contributed to Berkeley by
6 * Paul Borman at Krystal Technologies.
7 *
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
10 * are met:
11 * 1. Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
16 * 3. All advertising materials mentioning features or use of this software
17 * must display the following acknowledgement:
18 * This product includes software developed by the University of
19 * California, Berkeley and its contributors.
20 * 4. Neither the name of the University nor the names of its contributors
21 * may be used to endorse or promote products derived from this software
22 * without specific prior written permission.
23 *
24 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
25 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
26 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
28 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34 * SUCH DAMAGE.
35 */
36
37 #if defined(LIBC_SCCS) && !defined(lint)
38 static char sccsid[] = "@(#)frune.c 8.1 (Berkeley) 6/4/93";
39 #endif /* LIBC_SCCS and not lint */
40 #include <sys/cdefs.h>
41 __FBSDID("$FreeBSD: src/lib/libc/locale/frune.c,v 1.3 2002/09/18 06:19:12 tjr Exp $");
42
43 #include "xlocale_private.h"
44
45 #include <limits.h>
46 #include <rune.h>
47 #include <stddef.h>
48 #include <stdio.h>
49 #include "runedepreciated.h"
50
51 long
52 fgetrune(fp)
53 FILE *fp;
54 {
55 rune_t r;
56 int c, len;
57 char buf[MB_LEN_MAX];
58 char const *result;
59 __darwin_rune_t invalid_rune = __current_locale()->__lc_ctype->_CurrentRuneLocale.__invalid_rune;
60 static int warn_depreciated = 1;
61
62 if (warn_depreciated) {
63 warn_depreciated = 0;
64 fprintf(stderr, __rune_depreciated_msg, "fgetrune");
65 }
66
67 len = 0;
68 do {
69 if ((c = getc(fp)) == EOF) {
70 if (len)
71 break;
72 return (EOF);
73 }
74 buf[len++] = c;
75
76 if ((r = __sgetrune(buf, len, &result)) != invalid_rune)
77 return (r);
78 } while (result == buf && len < MB_LEN_MAX);
79
80 while (--len > 0)
81 ungetc(buf[len], fp);
82 return (invalid_rune);
83 }
84
85 int
86 fungetrune(r, fp)
87 rune_t r;
88 FILE* fp;
89 {
90 int len;
91 char buf[MB_LEN_MAX];
92 static int warn_depreciated = 1;
93
94 if (warn_depreciated) {
95 warn_depreciated = 0;
96 fprintf(stderr, __rune_depreciated_msg, "fungetrune");
97 }
98
99 len = __sputrune(r, buf, MB_LEN_MAX, 0);
100 while (len-- > 0)
101 if (ungetc(buf[len], fp) == EOF)
102 return (EOF);
103 return (0);
104 }
105
106 int
107 fputrune(r, fp)
108 rune_t r;
109 FILE *fp;
110 {
111 int i, len;
112 char buf[MB_LEN_MAX];
113 static int warn_depreciated = 1;
114
115 if (warn_depreciated) {
116 warn_depreciated = 0;
117 fprintf(stderr, __rune_depreciated_msg, "fputrune");
118 }
119
120 len = __sputrune(r, buf, MB_LEN_MAX, 0);
121
122 for (i = 0; i < len; ++i)
123 if (putc(buf[i], fp) == EOF)
124 return (EOF);
125
126 return (0);
127 }