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

annotate lib/base64.c @ 14612:6ef4f1f39105

Revert "use _GL_ATTRIBUTE_CONST and _GL_ATTRIBUTE_PURE" This reverts commit 349d7fe0e307d59d508b3579317ee8d4eacfeb9c. Revert accidentally-pushed patch. Not yet ready.

author	Jim Meyering <meyering@redhat.com>
date	Mon, 25 Apr 2011 10:38:33 +0200
parents	b427a1938336
children	d15d71163ff3

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

Mercurial > hg > octave-shane > gnulib-hg

annotate lib/base64.c @ 14612:6ef4f1f39105