/* $Header: /CVSROOT/tinolib/old/put.h,v 1.3 2011-04-11 22:35:37 tino Exp $
 *
 * Simple putters
 *
 * Putters are stubs to do output with tino_io_put().
 * Do not forget to call tino_io_flush() afterwards
 * as it's buffered!
 *
 * Copyright (C)2009-2011 Valentin Hilbig <webmaster@scylla-charybdis.com>
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License as
 * published by the Free Software Foundation; either version 2 of the
 * License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
 * 02110-1301 USA.
 *
 * $Log: put.h,v $
 * Revision 1.3  2011-04-11 22:35:37  tino
 * tino_put_ansi_if added
 *
 * Revision 1.2  2009-08-13 00:41:39  tino
 * See ChangeLog
 *
 * Revision 1.1  2009-07-31 22:18:00  tino
 * Unit test works now.  io.h starts to become usable, see put.h
 * Several minor fixes and addons, see ChangeLog
 */

#ifndef tino_INC_put_h
#define tino_INC_put_h

#include "io.h"

#if 0
#include <string.h>
#endif

static void
tino_put_s(int io, const char *s)
{
  while (*s)
    tino_io_put(io, *s++);
}

static void
tino_put_oct_digit(int io, unsigned char x)
{
  tino_io_put(io, '0'+(x&7));
}

static void
tino_put_dec_digit(int io, unsigned char x)
{
  tino_io_put(io, '0'+(x%10));
}

static void
tino_put_hex_digit(int io, unsigned char x)
{
  tino_io_put(io, "0123456789abcdef"[x&15]);
}

/* This is uppercase HEX and BASE85 according to RFC1924 (it's usable, so why not?)
 */
static void
tino_put_base_l(int io, int minsize, unsigned long long u, int base)
{
  int	i;

  if (base<2)
    base	= 2;
  if (base>85)
    base	= 85;
  if (--minsize>0 || u>=base)
    tino_put_base_l(io, minsize, u/base, base);
  i	= u%base;
  if ((i+='0')>'9')
    if ((i+='A'-'9'-1)>'Z')
      if ((i+='a'-'Z'-1)>'z')
	if ((i+='!'-'z'-1)>='\"')
	  if (++i>='\'')
	    if (++i>=',')
	      if (++i>='.')
		if ((i+=';'-'.')>='A')
		  if ((i+='^'-'A')>='a')
		    i+='{'-'a';
  tino_io_put(io, i);
}

static void
tino_put_oct(int io, int minsize, unsigned u)
{
  if (minsize<=0)
    minsize	= 1;
  minsize	*= 3;
  while (u>>minsize)
    minsize	+= 3;
  while ((minsize-=3)>=0)
    tino_put_oct_digit(io, (unsigned char)(u>>minsize));
}

static void
tino_put_oct_l(int io, int minsize, unsigned long long u)
{
  if (minsize<=0)
    minsize	= 1;
  minsize	*= 3;
  while (u>>minsize)
    minsize	+= 3;
  while ((minsize-=3)>=0)
    tino_put_oct_digit(io, (unsigned char)(u>>minsize));
}

static void
tino_put_hex(int io, int minsize, unsigned u)
{
  if (minsize<=0)
    minsize	= 1;
  minsize	*= 4;
  while (u>>minsize)
    minsize	+= 4;
  while ((minsize-=4)>=0)
    tino_put_hex_digit(io, (unsigned char)(u>>minsize));
}

static void
tino_put_hex_l(int io, int minsize, unsigned long long u)
{
  if (minsize<=0)
    minsize	= 1;
  minsize	*= 4;
  while (u>>minsize)
    minsize	+= 4;
  while ((minsize-=4)>=0)
    tino_put_hex_digit(io, (unsigned char)(u>>minsize));
}

static void
tino_put_dec(int io, int minsize, unsigned u)
{
  if (--minsize>0 || u>=10)
    tino_put_dec(io, minsize, u/10);
  tino_put_dec_digit(io, u%10);
}

static void
tino_put_dec_l(int io, int minsize, unsigned long long u)
{
  if (--minsize>0 || u>=10)
    tino_put_dec_l(io, minsize, u/10);
  tino_put_dec_digit(io, u%10);
}

/** Escape string using ANSI sequence (aka. \-escape).
 *
 * Afterwards the string is properly \-escaped.
 * It does no more contain the characters given in esc.
 *
 * By default, this is the space and a single quote: '
 * So you can use the default for bash $'ANSI-SEQUENCE'
 * and need not to worry about 'read -r x y'
 */
static void
tino_put_ansi_buf(int io, const void *ptr, size_t len, const char *esc)
{
  const unsigned char	*s=ptr;

  if (!esc)
    esc	= " '";
  for (; len--; s++)
    if (*s<32 || *s>=127 || strchr(esc,*s))
      {
	tino_io_put(io, '\\');
	tino_io_put(io, 'x');
	tino_put_hex(io, 2, *s);
      }
    else
      {
        if (*s=='\\')
          tino_io_put(io, '\\');
        tino_io_put(io, *s);
      }
}

static void
tino_put_ansi(int io, const char *s, const char *esc)
{
  tino_put_ansi_buf(io, s, strlen(s), esc);
}

/* Put shell usable string, either single quoted string or ANSI escape
 * sequence.
 *
 * Note that spaces are escaped, too, for more easy 'read -r a b c'
 * usage
 */
static void
tino_put_ansi_if(int io, const char *s)
{
  const char *t;
  for (t=s; *t; t++)
    if (*t<=32 || *t>=127 || *t=='\'')
      {
	tino_io_put(io, '$');
	tino_io_put(io, '\'');
	tino_put_ansi(io, s, NULL);
	tino_io_put(io, '\'');
	return;
      }
  tino_io_put(io, '\'');
  tino_put_s(io, s);
  tino_io_put(io, '\'');
}

#endif