sexp-transport-format.c

   1 /* sexp-transport-format.c
   2  *
   3  * Writing s-expressions in transport format.
   4  */
   5
   6 /* nettle, low-level cryptographics library
   7  *
   8  * Copyright (C) 2002 Niels Möller
   9  *
  10  * The nettle library is free software; you can redistribute it and/or modify
  11  * it under the terms of the GNU Lesser General Public License as published by
  12  * the Free Software Foundation; either version 2.1 of the License, or (at your
  13  * option) any later version.
  14  *
  15  * The nettle library is distributed in the hope that it will be useful, but
  16  * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  17  * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
  18  * License for more details.
  19  *
  20  * You should have received a copy of the GNU Lesser General Public License
  21  * along with the nettle library; see the file COPYING.LIB.  If not, write to
  22  * the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  23  * MA 02111-1307, USA.
  24  */
  25
  26 #if HAVE_CONFIG_H
  27 # include "config.h"
  28 #endif
  29
  30 #include "sexp.h"
  31
  32 #include "base64.h"
  33 #include "buffer.h"
  34
  35 unsigned
  36 sexp_transport_vformat(struct nettle_buffer *buffer,
  37                        const char *format, va_list args)
  38 {
  39   unsigned start = 0;
  40   unsigned length;
  41   unsigned base64_length;
  42
  43   if (buffer)
  44     {
  45       if (!NETTLE_BUFFER_PUTC(buffer, '{'))
  46         return 0;
  47
  48       start = buffer->size;
  49     }
  50
  51   length = sexp_vformat(buffer, format, args);
  52
  53   if (!length)
  54     return 0;
  55
  56   base64_length = BASE64_ENCODE_RAW_LENGTH(length);
  57
  58   if (buffer)
  59     {
  60       if (!nettle_buffer_space(buffer, base64_length - length))
  61         return 0;
  62
  63       base64_encode_raw(buffer->contents + start,
  64                         length, buffer->contents + start);
  65
  66       if (!NETTLE_BUFFER_PUTC(buffer, '}'))
  67         return 0;
  68     }
  69
  70   return base64_length + 2;
  71 }
  72
  73 unsigned
  74 sexp_transport_format(struct nettle_buffer *buffer,
  75                       const char *format, ...)
  76 {
  77   unsigned done;
  78   va_list args;
  79
  80   va_start(args, format);
  81   done = sexp_transport_vformat(buffer, format, args);
  82   va_end(args);
  83
  84   return done;
  85 }