octave-shane/gnulib-hg: lib/base64.c annotate

annotate lib/base64.c @ 17282:a4996fb12971

locale: port to Solaris 2.6 and 7 + GNU gettext * lib/locale.in.h: Just include_next <locale.h> when being invoked recursively. This prevents problems on Solaris 2.6 and 7 when combining the localename module with GNU gettext 0.18.2. Problem reported by Tom G. Christensen in <http://lists.gnu.org/archive/html/bug-gnulib/2013-01/msg00084.html>.

author	Paul Eggert <eggert@cs.ucla.edu>
date	Thu, 10 Jan 2013 13:24:13 -0800
parents	e542fd46ad6f
children	aa01b3e1b59f

rev	line source
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	1 /* base64.c -- Encode binary data using printable characters.
17249 e542fd46ad6f maint: update all copyright year number ranges Eric Blake <eblake@redhat.com> parents: 17180 diff changeset	2 Copyright (C) 1999-2001, 2004-2006, 2009-2013 Free Software Foundation, Inc.
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	3
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	4 This program is free software; you can redistribute it and/or modify
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	5 it under the terms of the GNU General Public License as published by
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	6 the Free Software Foundation; either version 2, or (at your option)
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	7 any later version.
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	8
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	9 This program is distributed in the hope that it will be useful,
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	10 but WITHOUT ANY WARRANTY; without even the implied warranty of
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	12 GNU General Public License for more details.
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	13
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	14 You should have received a copy of the GNU General Public License
16366 bb182ee4a09d maint: replace FSF snail-mail addresses with URLs Paul Eggert <eggert@cs.ucla.edu> parents: 16201 diff changeset	15 along with this program; if not, see <http://www.gnu.org/licenses/>. */
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	16
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	17 /* Written by Simon Josefsson. Partially adapted from GNU MailUtils
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	18 * (mailbox/filter_trans.c, as of 2004-11-28). Improved by review
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	19 * from Paul Eggert, Bruno Haible, and Stepan Kasal.
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	20 *
15515 988c80aec26d base64: Reference latest RFC. Simon Josefsson <simon@josefsson.org> parents: 15510 diff changeset	21 * See also RFC 4648 <http://www.ietf.org/rfc/rfc4648.txt>.
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	22 *
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	23 * Be careful with error checking. Here is how you would typically
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	24 * use these functions:
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	25 *
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	26 * bool ok = base64_decode_alloc (in, inlen, &out, &outlen);
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	27 * if (!ok)
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	28 * FAIL: input was not valid base64
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	29 * if (out == NULL)
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	30 * FAIL: memory allocation error
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	31 * OK: data in OUT/OUTLEN
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	32 *
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	33 * size_t outlen = base64_encode_alloc (in, inlen, &out);
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	34 * if (out == NULL && outlen == 0 && inlen != 0)
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	35 * FAIL: input too long
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	36 * if (out == NULL)
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	37 * FAIL: memory allocation error
6226 5ddf33c5823b 2005-09-12 Ralf Wildenhues <Ralf.Wildenhues@gmx.de> (tiny change) Simon Josefsson <simon@josefsson.org> parents: 5936 diff changeset	38 * OK: data in OUT/OUTLEN.
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	39 *
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	40 */
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	41
7584 a88f85e4728f * lib/arcfour.c: Assume config.h. Eric Blake <ebb9@byu.net> parents: 6871 diff changeset	42 #include <config.h>
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	43
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	44 /* Get prototype. */
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	45 #include "base64.h"
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	46
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	47 /* Get malloc. */
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	48 #include <stdlib.h>
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	49
6554 99e42c0a09e1 Fix warning, reported by Bruno Haible <bruno@clisp.org> and patch by Simon Josefsson <simon@josefsson.org> parents: 6226 diff changeset	50 /* Get UCHAR_MAX. */
99e42c0a09e1 Fix warning, reported by Bruno Haible <bruno@clisp.org> and patch by Simon Josefsson <simon@josefsson.org> parents: 6226 diff changeset	51 #include <limits.h>
99e42c0a09e1 Fix warning, reported by Bruno Haible <bruno@clisp.org> and patch by Simon Josefsson <simon@josefsson.org> parents: 6226 diff changeset	52
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	53 #include <string.h>
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	54
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	55 /* C89 compliant way to cast 'char' to 'unsigned char'. */
17180 e0def4d44688 base32, base64: no need for 'inline' Paul Eggert <eggert@cs.ucla.edu> parents: 16366 diff changeset	56 static unsigned char
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	57 to_uchar (char ch)
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	58 {
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	59 return ch;
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	60 }
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	61
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	62 /* Base64 encode IN array of size INLEN into OUT array of size OUTLEN.
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	63 If OUTLEN is less than BASE64_LENGTH(INLEN), write as many bytes as
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	64 possible. If OUTLEN is larger than BASE64_LENGTH(INLEN), also zero
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	65 terminate the output buffer. */
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	66 void
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	67 base64_encode (const char *restrict in, size_t inlen,
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	68 char *restrict out, size_t outlen)
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	69 {
6226 5ddf33c5823b 2005-09-12 Ralf Wildenhues <Ralf.Wildenhues@gmx.de> (tiny change) Simon Josefsson <simon@josefsson.org> parents: 5936 diff changeset	70 static const char b64str[64] =
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	71 "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	72
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	73 while (inlen && outlen)
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	74 {
6715 f8c57b2df51a 2006-03-24 Ralf Wildenhues <Ralf.Wildenhues@gmx.de> Simon Josefsson <simon@josefsson.org> parents: 6714 diff changeset	75 *out++ = b64str[(to_uchar (in[0]) >> 2) & 0x3f];
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	76 if (!--outlen)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	77 break;
5936 c1d164e8c502 2005-06-28 Simon Josefsson <jas@extundo.com> Simon Josefsson <simon@josefsson.org> parents: 5848 diff changeset	78 *out++ = b64str[((to_uchar (in[0]) << 4)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	79 + (--inlen ? to_uchar (in[1]) >> 4 : 0))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	80 & 0x3f];
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	81 if (!--outlen)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	82 break;
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	83 *out++ =
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	84 (inlen
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	85 ? b64str[((to_uchar (in[1]) << 2)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	86 + (--inlen ? to_uchar (in[2]) >> 6 : 0))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	87 & 0x3f]
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	88 : '=');
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	89 if (!--outlen)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	90 break;
5936 c1d164e8c502 2005-06-28 Simon Josefsson <jas@extundo.com> Simon Josefsson <simon@josefsson.org> parents: 5848 diff changeset	91 *out++ = inlen ? b64str[to_uchar (in[2]) & 0x3f] : '=';
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	92 if (!--outlen)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	93 break;
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	94 if (inlen)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	95 inlen--;
5936 c1d164e8c502 2005-06-28 Simon Josefsson <jas@extundo.com> Simon Josefsson <simon@josefsson.org> parents: 5848 diff changeset	96 if (inlen)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	97 in += 3;
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	98 }
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	99
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	100 if (outlen)
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	101 *out = '\0';
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	102 }
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	103
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	104 /* Allocate a buffer and store zero terminated base64 encoded data
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	105 from array IN of size INLEN, returning BASE64_LENGTH(INLEN), i.e.,
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	106 the length of the encoded data, excluding the terminating zero. On
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	107 return, the OUT variable will hold a pointer to newly allocated
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	108 memory that must be deallocated by the caller. If output string
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	109 length would overflow, 0 is returned and OUT is set to NULL. If
6716 2c14f8d1d5eb 2006-03-24 Simon Josefsson <jas@extundo.com> Simon Josefsson <simon@josefsson.org> parents: 6715 diff changeset	110 memory allocation failed, OUT is set to NULL, and the return value
2c14f8d1d5eb 2006-03-24 Simon Josefsson <jas@extundo.com> Simon Josefsson <simon@josefsson.org> parents: 6715 diff changeset	111 indicates length of the requested memory block, i.e.,
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	112 BASE64_LENGTH(inlen) + 1. */
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	113 size_t
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	114 base64_encode_alloc (const char in, size_t inlen, char *out)
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	115 {
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	116 size_t outlen = 1 + BASE64_LENGTH (inlen);
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	117
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	118 /* Check for overflow in outlen computation.
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	119 *
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	120 * If there is no overflow, outlen >= inlen.
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	121 *
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	122 * If the operation (inlen + 2) overflows then it yields at most +1, so
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	123 * outlen is 0.
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	124 *
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	125 * If the multiplication overflows, we lose at least half of the
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	126 * correct value, so the result is < ((inlen + 2) / 3) * 2, which is
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	127 * less than (inlen + 2) * 0.66667, which is less than inlen as soon as
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	128 * (inlen > 4).
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	129 */
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	130 if (inlen > outlen)
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	131 {
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	132 *out = NULL;
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	133 return 0;
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	134 }
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	135
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	136 *out = malloc (outlen);
6716 2c14f8d1d5eb 2006-03-24 Simon Josefsson <jas@extundo.com> Simon Josefsson <simon@josefsson.org> parents: 6715 diff changeset	137 if (!*out)
2c14f8d1d5eb 2006-03-24 Simon Josefsson <jas@extundo.com> Simon Josefsson <simon@josefsson.org> parents: 6715 diff changeset	138 return outlen;
2c14f8d1d5eb 2006-03-24 Simon Josefsson <jas@extundo.com> Simon Josefsson <simon@josefsson.org> parents: 6715 diff changeset	139
2c14f8d1d5eb 2006-03-24 Simon Josefsson <jas@extundo.com> Simon Josefsson <simon@josefsson.org> parents: 6715 diff changeset	140 base64_encode (in, inlen, *out, outlen);
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	141
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	142 return outlen - 1;
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	143 }
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	144
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	145 /* With this approach this file works independent of the charset used
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	146 (think EBCDIC). However, it does assume that the characters in the
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	147 Base64 alphabet (A-Za-z0-9+/) are encoded in 0..255. POSIX
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	148 1003.1-2001 require that char and unsigned char are 8-bit
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	149 quantities, though, taking care of that problem. But this may be a
6871 3f3ba5c21147 * base64.c (B64): Use _ as the formal parameter, not x, to avoid Paul Eggert <eggert@cs.ucla.edu> parents: 6739 diff changeset	150 potential problem on non-POSIX C99 platforms.
3f3ba5c21147 * base64.c (B64): Use _ as the formal parameter, not x, to avoid Paul Eggert <eggert@cs.ucla.edu> parents: 6739 diff changeset	151
3f3ba5c21147 * base64.c (B64): Use _ as the formal parameter, not x, to avoid Paul Eggert <eggert@cs.ucla.edu> parents: 6739 diff changeset	152 IBM C V6 for AIX mishandles "#define B64(x) ...'x'...", so use "_"
3f3ba5c21147 * base64.c (B64): Use _ as the formal parameter, not x, to avoid Paul Eggert <eggert@cs.ucla.edu> parents: 6739 diff changeset	153 as the formal parameter rather than "x". */
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	154 #define B64(_) \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	155 ((_) == 'A' ? 0 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	156 : (_) == 'B' ? 1 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	157 : (_) == 'C' ? 2 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	158 : (_) == 'D' ? 3 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	159 : (_) == 'E' ? 4 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	160 : (_) == 'F' ? 5 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	161 : (_) == 'G' ? 6 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	162 : (_) == 'H' ? 7 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	163 : (_) == 'I' ? 8 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	164 : (_) == 'J' ? 9 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	165 : (_) == 'K' ? 10 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	166 : (_) == 'L' ? 11 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	167 : (_) == 'M' ? 12 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	168 : (_) == 'N' ? 13 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	169 : (_) == 'O' ? 14 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	170 : (_) == 'P' ? 15 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	171 : (_) == 'Q' ? 16 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	172 : (_) == 'R' ? 17 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	173 : (_) == 'S' ? 18 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	174 : (_) == 'T' ? 19 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	175 : (_) == 'U' ? 20 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	176 : (_) == 'V' ? 21 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	177 : (_) == 'W' ? 22 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	178 : (_) == 'X' ? 23 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	179 : (_) == 'Y' ? 24 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	180 : (_) == 'Z' ? 25 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	181 : (_) == 'a' ? 26 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	182 : (_) == 'b' ? 27 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	183 : (_) == 'c' ? 28 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	184 : (_) == 'd' ? 29 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	185 : (_) == 'e' ? 30 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	186 : (_) == 'f' ? 31 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	187 : (_) == 'g' ? 32 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	188 : (_) == 'h' ? 33 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	189 : (_) == 'i' ? 34 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	190 : (_) == 'j' ? 35 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	191 : (_) == 'k' ? 36 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	192 : (_) == 'l' ? 37 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	193 : (_) == 'm' ? 38 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	194 : (_) == 'n' ? 39 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	195 : (_) == 'o' ? 40 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	196 : (_) == 'p' ? 41 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	197 : (_) == 'q' ? 42 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	198 : (_) == 'r' ? 43 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	199 : (_) == 's' ? 44 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	200 : (_) == 't' ? 45 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	201 : (_) == 'u' ? 46 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	202 : (_) == 'v' ? 47 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	203 : (_) == 'w' ? 48 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	204 : (_) == 'x' ? 49 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	205 : (_) == 'y' ? 50 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	206 : (_) == 'z' ? 51 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	207 : (_) == '0' ? 52 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	208 : (_) == '1' ? 53 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	209 : (_) == '2' ? 54 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	210 : (_) == '3' ? 55 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	211 : (_) == '4' ? 56 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	212 : (_) == '5' ? 57 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	213 : (_) == '6' ? 58 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	214 : (_) == '7' ? 59 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	215 : (_) == '8' ? 60 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	216 : (_) == '9' ? 61 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	217 : (_) == '+' ? 62 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	218 : (_) == '/' ? 63 \
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	219 : -1)
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	220
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	221 static const signed char b64[0x100] = {
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	222 B64 (0), B64 (1), B64 (2), B64 (3),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	223 B64 (4), B64 (5), B64 (6), B64 (7),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	224 B64 (8), B64 (9), B64 (10), B64 (11),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	225 B64 (12), B64 (13), B64 (14), B64 (15),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	226 B64 (16), B64 (17), B64 (18), B64 (19),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	227 B64 (20), B64 (21), B64 (22), B64 (23),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	228 B64 (24), B64 (25), B64 (26), B64 (27),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	229 B64 (28), B64 (29), B64 (30), B64 (31),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	230 B64 (32), B64 (33), B64 (34), B64 (35),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	231 B64 (36), B64 (37), B64 (38), B64 (39),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	232 B64 (40), B64 (41), B64 (42), B64 (43),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	233 B64 (44), B64 (45), B64 (46), B64 (47),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	234 B64 (48), B64 (49), B64 (50), B64 (51),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	235 B64 (52), B64 (53), B64 (54), B64 (55),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	236 B64 (56), B64 (57), B64 (58), B64 (59),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	237 B64 (60), B64 (61), B64 (62), B64 (63),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	238 B64 (64), B64 (65), B64 (66), B64 (67),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	239 B64 (68), B64 (69), B64 (70), B64 (71),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	240 B64 (72), B64 (73), B64 (74), B64 (75),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	241 B64 (76), B64 (77), B64 (78), B64 (79),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	242 B64 (80), B64 (81), B64 (82), B64 (83),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	243 B64 (84), B64 (85), B64 (86), B64 (87),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	244 B64 (88), B64 (89), B64 (90), B64 (91),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	245 B64 (92), B64 (93), B64 (94), B64 (95),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	246 B64 (96), B64 (97), B64 (98), B64 (99),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	247 B64 (100), B64 (101), B64 (102), B64 (103),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	248 B64 (104), B64 (105), B64 (106), B64 (107),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	249 B64 (108), B64 (109), B64 (110), B64 (111),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	250 B64 (112), B64 (113), B64 (114), B64 (115),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	251 B64 (116), B64 (117), B64 (118), B64 (119),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	252 B64 (120), B64 (121), B64 (122), B64 (123),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	253 B64 (124), B64 (125), B64 (126), B64 (127),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	254 B64 (128), B64 (129), B64 (130), B64 (131),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	255 B64 (132), B64 (133), B64 (134), B64 (135),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	256 B64 (136), B64 (137), B64 (138), B64 (139),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	257 B64 (140), B64 (141), B64 (142), B64 (143),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	258 B64 (144), B64 (145), B64 (146), B64 (147),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	259 B64 (148), B64 (149), B64 (150), B64 (151),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	260 B64 (152), B64 (153), B64 (154), B64 (155),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	261 B64 (156), B64 (157), B64 (158), B64 (159),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	262 B64 (160), B64 (161), B64 (162), B64 (163),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	263 B64 (164), B64 (165), B64 (166), B64 (167),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	264 B64 (168), B64 (169), B64 (170), B64 (171),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	265 B64 (172), B64 (173), B64 (174), B64 (175),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	266 B64 (176), B64 (177), B64 (178), B64 (179),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	267 B64 (180), B64 (181), B64 (182), B64 (183),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	268 B64 (184), B64 (185), B64 (186), B64 (187),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	269 B64 (188), B64 (189), B64 (190), B64 (191),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	270 B64 (192), B64 (193), B64 (194), B64 (195),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	271 B64 (196), B64 (197), B64 (198), B64 (199),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	272 B64 (200), B64 (201), B64 (202), B64 (203),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	273 B64 (204), B64 (205), B64 (206), B64 (207),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	274 B64 (208), B64 (209), B64 (210), B64 (211),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	275 B64 (212), B64 (213), B64 (214), B64 (215),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	276 B64 (216), B64 (217), B64 (218), B64 (219),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	277 B64 (220), B64 (221), B64 (222), B64 (223),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	278 B64 (224), B64 (225), B64 (226), B64 (227),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	279 B64 (228), B64 (229), B64 (230), B64 (231),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	280 B64 (232), B64 (233), B64 (234), B64 (235),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	281 B64 (236), B64 (237), B64 (238), B64 (239),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	282 B64 (240), B64 (241), B64 (242), B64 (243),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	283 B64 (244), B64 (245), B64 (246), B64 (247),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	284 B64 (248), B64 (249), B64 (250), B64 (251),
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	285 B64 (252), B64 (253), B64 (254), B64 (255)
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	286 };
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	287
6554 99e42c0a09e1 Fix warning, reported by Bruno Haible <bruno@clisp.org> and patch by Simon Josefsson <simon@josefsson.org> parents: 6226 diff changeset	288 #if UCHAR_MAX == 255
99e42c0a09e1 Fix warning, reported by Bruno Haible <bruno@clisp.org> and patch by Simon Josefsson <simon@josefsson.org> parents: 6226 diff changeset	289 # define uchar_in_range(c) true
99e42c0a09e1 Fix warning, reported by Bruno Haible <bruno@clisp.org> and patch by Simon Josefsson <simon@josefsson.org> parents: 6226 diff changeset	290 #else
99e42c0a09e1 Fix warning, reported by Bruno Haible <bruno@clisp.org> and patch by Simon Josefsson <simon@josefsson.org> parents: 6226 diff changeset	291 # define uchar_in_range(c) ((c) <= 255)
99e42c0a09e1 Fix warning, reported by Bruno Haible <bruno@clisp.org> and patch by Simon Josefsson <simon@josefsson.org> parents: 6226 diff changeset	292 #endif
99e42c0a09e1 Fix warning, reported by Bruno Haible <bruno@clisp.org> and patch by Simon Josefsson <simon@josefsson.org> parents: 6226 diff changeset	293
6716 2c14f8d1d5eb 2006-03-24 Simon Josefsson <jas@extundo.com> Simon Josefsson <simon@josefsson.org> parents: 6715 diff changeset	294 /* Return true if CH is a character from the Base64 alphabet, and
6717 72afe7281123 Doc fix. Simon Josefsson <simon@josefsson.org> parents: 6716 diff changeset	295 false otherwise. Note that '=' is padding and not considered to be
72afe7281123 Doc fix. Simon Josefsson <simon@josefsson.org> parents: 6716 diff changeset	296 part of the alphabet. */
14612 6ef4f1f39105 Revert "use _GL_ATTRIBUTE_CONST and _GL_ATTRIBUTE_PURE" Jim Meyering <meyering@redhat.com> parents: 14610 diff changeset	297 bool
5604 f946018d919e * base64.h (isbase64): Add. Simon Josefsson <simon@josefsson.org> parents: 5498 diff changeset	298 isbase64 (char ch)
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	299 {
6554 99e42c0a09e1 Fix warning, reported by Bruno Haible <bruno@clisp.org> and patch by Simon Josefsson <simon@josefsson.org> parents: 6226 diff changeset	300 return uchar_in_range (to_uchar (ch)) && 0 <= b64[to_uchar (ch)];
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	301 }
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	302
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	303 /* Initialize decode-context buffer, CTX. */
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	304 void
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	305 base64_decode_ctx_init (struct base64_decode_context *ctx)
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	306 {
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	307 ctx->i = 0;
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	308 }
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	309
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	310 /* If CTX->i is 0 or 4, there are four or more bytes in [*IN..IN_END), and
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	311 none of those four is a newline, then return *IN. Otherwise, copy up to
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	312 4 - CTX->i non-newline bytes from that range into CTX->buf, starting at
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	313 index CTX->i and setting CTX->i to reflect the number of bytes copied,
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	314 and return CTX->buf. In either case, advance *IN to point to the byte
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	315 after the last one processed, and set *N_NON_NEWLINE to the number of
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	316 verified non-newline bytes accessible through the returned pointer. */
17180 e0def4d44688 base32, base64: no need for 'inline' Paul Eggert <eggert@cs.ucla.edu> parents: 16366 diff changeset	317 static char *
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	318 get_4 (struct base64_decode_context *ctx,
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	319 char const restrict in, char const *restrict in_end,
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	320 size_t *n_non_newline)
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	321 {
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	322 if (ctx->i == 4)
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	323 ctx->i = 0;
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	324
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	325 if (ctx->i == 0)
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	326 {
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	327 char const t = in;
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	328 if (4 <= in_end - *in && memchr (t, '\n', 4) == NULL)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	329 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	330 /* This is the common case: no newline. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	331 *in += 4;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	332 *n_non_newline = 4;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	333 return (char *) t;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	334 }
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	335 }
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	336
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	337 {
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	338 /* Copy non-newline bytes into BUF. */
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	339 char const p = in;
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	340 while (p < in_end)
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	341 {
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	342 char c = *p++;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	343 if (c != '\n')
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	344 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	345 ctx->buf[ctx->i++] = c;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	346 if (ctx->i == 4)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	347 break;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	348 }
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	349 }
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	350
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	351 *in = p;
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	352 *n_non_newline = ctx->i;
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	353 return ctx->buf;
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	354 }
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	355 }
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	356
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	357 #define return_false \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	358 do \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	359 { \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	360 *outp = out; \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	361 return false; \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	362 } \
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	363 while (false)
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	364
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	365 /* Decode up to four bytes of base64-encoded data, IN, of length INLEN
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	366 into the output buffer, OUT, of size OUTLEN bytes. Return true if
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	367 decoding is successful, false otherwise. If *OUTLEN is too small,
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	368 as many bytes as possible are written to *OUT. On return, advance
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	369 *OUT to point to the byte after the last one written, and decrement
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	370 OUTLEN to reflect the number of bytes remaining in OUT. */
17180 e0def4d44688 base32, base64: no need for 'inline' Paul Eggert <eggert@cs.ucla.edu> parents: 16366 diff changeset	371 static bool
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	372 decode_4 (char const *restrict in, size_t inlen,
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	373 char restrict outp, size_t *outleft)
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	374 {
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	375 char out = outp;
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	376 if (inlen < 2)
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	377 return false;
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	378
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	379 if (!isbase64 (in[0]) \|\| !isbase64 (in[1]))
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	380 return false;
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	381
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	382 if (*outleft)
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	383 {
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	384 *out++ = ((b64[to_uchar (in[0])] << 2)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	385 \| (b64[to_uchar (in[1])] >> 4));
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	386 --*outleft;
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	387 }
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	388
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	389 if (inlen == 2)
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	390 return_false;
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	391
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	392 if (in[2] == '=')
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	393 {
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	394 if (inlen != 4)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	395 return_false;
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	396
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	397 if (in[3] != '=')
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	398 return_false;
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	399 }
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	400 else
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	401 {
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	402 if (!isbase64 (in[2]))
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	403 return_false;
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	404
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	405 if (*outleft)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	406 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	407 *out++ = (((b64[to_uchar (in[1])] << 4) & 0xf0)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	408 \| (b64[to_uchar (in[2])] >> 2));
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	409 --*outleft;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	410 }
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	411
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	412 if (inlen == 3)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	413 return_false;
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	414
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	415 if (in[3] == '=')
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	416 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	417 if (inlen != 4)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	418 return_false;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	419 }
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	420 else
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	421 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	422 if (!isbase64 (in[3]))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	423 return_false;
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	424
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	425 if (*outleft)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	426 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	427 *out++ = (((b64[to_uchar (in[2])] << 6) & 0xc0)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	428 \| b64[to_uchar (in[3])]);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	429 --*outleft;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	430 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	431 }
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	432 }
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	433
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	434 *outp = out;
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	435 return true;
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	436 }
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	437
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	438 /* Decode base64-encoded input array IN of length INLEN to output array
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	439 OUT that can hold *OUTLEN bytes. The input data may be interspersed
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	440 with newlines. Return true if decoding was successful, i.e. if the
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	441 input was valid base64 data, false otherwise. If *OUTLEN is too
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	442 small, as many bytes as possible will be written to OUT. On return,
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	443 *OUTLEN holds the length of decoded bytes in OUT. Note that as soon
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	444 as any non-alphabet, non-newline character is encountered, decoding
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	445 is stopped and false is returned. If INLEN is zero, then process
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	446 only whatever data is stored in CTX.
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	447
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	448 Initially, CTX must have been initialized via base64_decode_ctx_init.
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	449 Subsequent calls to this function must reuse whatever state is recorded
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	450 in that buffer. It is necessary for when a quadruple of base64 input
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	451 bytes spans two input buffers.
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	452
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	453 If CTX is NULL then newlines are treated as garbage and the input
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	454 buffer is processed as a unit. */
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	455
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	456 bool
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	457 base64_decode_ctx (struct base64_decode_context *ctx,
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	458 const char *restrict in, size_t inlen,
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	459 char restrict out, size_t outlen)
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	460 {
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	461 size_t outleft = *outlen;
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	462 bool ignore_newlines = ctx != NULL;
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	463 bool flush_ctx = false;
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	464 unsigned int ctx_i = 0;
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	465
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	466 if (ignore_newlines)
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	467 {
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	468 ctx_i = ctx->i;
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	469 flush_ctx = inlen == 0;
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	470 }
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	471
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	472
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	473 while (true)
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	474 {
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	475 size_t outleft_save = outleft;
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	476 if (ctx_i == 0 && !flush_ctx)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	477 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	478 while (true)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	479 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	480 /* Save a copy of outleft, in case we need to re-parse this
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	481 block of four bytes. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	482 outleft_save = outleft;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	483 if (!decode_4 (in, inlen, &out, &outleft))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	484 break;
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	485
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	486 in += 4;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	487 inlen -= 4;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	488 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	489 }
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	490
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	491 if (inlen == 0 && !flush_ctx)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	492 break;
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	493
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	494 /* Handle the common case of 72-byte wrapped lines.
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	495 This also handles any other multiple-of-4-byte wrapping. */
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	496 if (inlen && *in == '\n' && ignore_newlines)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	497 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	498 ++in;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	499 --inlen;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	500 continue;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	501 }
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	502
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	503 /* Restore OUT and OUTLEFT. */
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	504 out -= outleft_save - outleft;
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	505 outleft = outleft_save;
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	506
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	507 {
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	508 char const *in_end = in + inlen;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	509 char const *non_nl;
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	510
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	511 if (ignore_newlines)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	512 non_nl = get_4 (ctx, &in, in_end, &inlen);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	513 else
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	514 non_nl = in; /* Might have nl in this case. */
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	515
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	516 /* If the input is empty or consists solely of newlines (0 non-newlines),
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	517 then we're done. Likewise if there are fewer than 4 bytes when not
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	518 flushing context and not treating newlines as garbage. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	519 if (inlen == 0 \|\| (inlen < 4 && !flush_ctx && ignore_newlines))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	520 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	521 inlen = 0;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	522 break;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	523 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	524 if (!decode_4 (non_nl, inlen, &out, &outleft))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	525 break;
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	526
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	527 inlen = in_end - in;
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	528 }
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	529 }
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	530
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	531 *outlen -= outleft;
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	532
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	533 return inlen == 0;
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	534 }
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	535
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	536 /* Allocate an output buffer in *OUT, and decode the base64 encoded
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	537 data stored in IN of size INLEN to the *OUT buffer. On return, the
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	538 size of the decoded data is stored in *OUTLEN. OUTLEN may be NULL,
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	539 if the caller is not interested in the decoded length. *OUT may be
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	540 NULL to indicate an out of memory error, in which case *OUTLEN
6716 2c14f8d1d5eb 2006-03-24 Simon Josefsson <jas@extundo.com> Simon Josefsson <simon@josefsson.org> parents: 6715 diff changeset	541 contains the size of the memory block needed. The function returns
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	542 true on successful decoding and memory allocation errors. (Use the
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	543 OUT and OUTLEN parameters to differentiate between successful
6716 2c14f8d1d5eb 2006-03-24 Simon Josefsson <jas@extundo.com> Simon Josefsson <simon@josefsson.org> parents: 6715 diff changeset	544 decoding and memory error.) The function returns false if the
2c14f8d1d5eb 2006-03-24 Simon Josefsson <jas@extundo.com> Simon Josefsson <simon@josefsson.org> parents: 6715 diff changeset	545 input was invalid, in which case OUT is NULL and OUTLEN is
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	546 undefined. */
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	547 bool
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	548 base64_decode_alloc_ctx (struct base64_decode_context *ctx,
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	549 const char in, size_t inlen, char *out,
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 10090 diff changeset	550 size_t *outlen)
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	551 {
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	552 /* This may allocate a few bytes too many, depending on input,
8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	553 but it's not worth the extra CPU time to compute the exact size.
15510 d15d71163ff3 base64: fix off-by-one buffer size bug Paul Eggert <eggert@cs.ucla.edu> parents: 14612 diff changeset	554 The exact size is 3 * (inlen + (ctx ? ctx->i : 0)) / 4, minus 1 if the
d15d71163ff3 base64: fix off-by-one buffer size bug Paul Eggert <eggert@cs.ucla.edu> parents: 14612 diff changeset	555 input ends with "=" and minus another 1 if the input ends with "==".
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	556 Dividing before multiplying avoids the possibility of overflow. */
15510 d15d71163ff3 base64: fix off-by-one buffer size bug Paul Eggert <eggert@cs.ucla.edu> parents: 14612 diff changeset	557 size_t needlen = 3 * (inlen / 4) + 3;
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	558
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	559 *out = malloc (needlen);
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	560 if (!*out)
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	561 return true;
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	562
10090 8ea8f3be5116 Sync gnulib base64 with coreutils base64. Simon Josefsson <simon@josefsson.org> parents: 7584 diff changeset	563 if (!base64_decode_ctx (ctx, in, inlen, *out, &needlen))
5498 ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	564 {
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	565 free (*out);
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	566 *out = NULL;
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	567 return false;
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	568 }
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	569
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	570 if (outlen)
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	571 *outlen = needlen;
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	572
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	573 return true;
ac6438eb46c6 Add base64. Simon Josefsson <simon@josefsson.org> parents: diff changeset	574 }

Mercurial > hg > octave-shane > gnulib-hg

annotate lib/base64.c @ 17282:a4996fb12971