[jog] / aunum.c

/* -*-c-*-
 *
 * $Id: aunum.c,v 1.1 2002/02/02 19:16:28 mdw Exp $
 *
 * Reading numbers to audio output
 *
 * (c) 2002 Mark Wooding
 */

/*----- Licensing notice --------------------------------------------------* 
 *
 * This file is part of Jog: Programming for a jogging machine.
 *
 * Jog 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.
 * 
 * Jog 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 Jog; if not, write to the Free Software Foundation,
 * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

/*----- Header files ------------------------------------------------------*/

#ifdef HAVE_CONFIG_H
#  include "config.h"
#endif

#include <assert.h>
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include <mLib/dstr.h>

#include "au.h"

/*----- Main code ---------------------------------------------------------*/

/* --- @digit@ --- *
 *
 * Arguments:   @char x@ = single digit to read
 *
 * Returns:     ---
 *
 * Use:         Reads a single digit.
 */

static void digit(int x)
{
  static char tagbuf[4] = "n-?";
  tagbuf[2] = x;
  au_play(tagbuf);
}

/* --- @digits@ --- *
 *
 * Arguments:   @const char *p@ = pointer to digits
 *              @size_t n@ = number of digits
 *
 * Returns:     ---
 *
 * Use:         Reads a sequence of digits.
 */

static void digits(const char *p, size_t n)
{
  while (n) {
    digit(*p++);
    n--;
  }
}

/* --- @lasttwo@ --- *
 *
 * Arguments:   @const char *p@ = pointer to digits
 *              @size_t n@ = number of digits
 *              @unsigned f@ = flags
 *
 * Returns:     Nonzero if the number was nonzero.
 *
 * Use:         Reads out a number of no more than two digits.
 */

#define f_and 1u

static int lasttwo(const char *p, size_t n, unsigned f)
{
  static char tagbuf[5] = "n-??";

  while (n && *p == '0') {
    n--;
    p++;
  }
  if (!n)
    return (0);

  if (f & f_and)
    au_play("n-and");
  if (n == 1)
    digit(*p);
  else if (*p == '1') {
    tagbuf[2] = p[0];
    tagbuf[3] = p[1];
    au_play(tagbuf);
  } else {
    tagbuf[2] = *p++;
    tagbuf[3] = '0';
    au_play(tagbuf);
    if (*p != '0')
      digit(*p);
  }
  return (1);
}

/* --- @bignum@ --- *
 *
 * Arguments:   @const char *p@ = pointer to digits
 *              @size_t n@ = number of digits
 *
 * Returns:     Nonzero if the number was nonzero.
 *
 * Use:         Reads out a (large) integer in English.
 */

static int bignum(const char *p, size_t n)
{
  int nz = 0;
  int rc;

  if (n > 6) {
    digits(p, n);
    return (1);
  }
  if (n > 3) {
    rc = bignum(p, n - 3);
    p += n - 3;
    n = 3;
    if (rc) {
      au_play("n-thou");
      nz = 1;
    }
  }
  if (n > 2) {
    if (*p == '0') {
      p++;
    } else {
      digit(*p++);
      au_play("n-hun");
      nz = 1;
    }
    n--;
  }
  return (lasttwo(p, n, nz ? f_and : 0) || nz);
}

/* --- @aunum@ --- *
 *
 * Arguments:   @const char *p@ = pointer to number's textual representation
 *
 * Returns:     ---
 *
 * Use:         Reads the given number aloud.
 */

void aunum(const char *p)
{
  size_t pl;
  int nz;

  /* --- Pick off a leading sign --- */

again:
  if (*p == '+')
    p++;
  else if (*p == '-') {
    au_play("n-minus");
    p++;
  }

  /* --- Work out how many digits we have --- */

  p += strspn(p, "0");
  pl = strspn(p, "0123456789");
  nz = bignum(p, pl);
  p += pl;

  /* --- If the value was zero, and there's no `point', say `zero' --- */

  if (*p != '.' && !nz)
    au_play("n-0");
  if (*p == '.') {
    au_play("n-point");
    p++;
    pl = strspn(p, "0123456789");
    digits(p, pl);
    p += pl;
  }
  if (*p == 'e' || *p == 'E') {
    au_play("n-exp");
    p++;
    goto again;
  }

  /* --- Run out of things to do --- */

  return;
}

/* --- @aunum_ulong@ --- *
 *
 * Arguments:   @unsigned long n@ = number to be read
 *
 * Returns:     ---
 *
 * Use:         Reads a number expressed as an @unsigned long@.
 */

void aunum_ulong(unsigned long n)
{
  dstr d = DSTR_INIT;

  dstr_putf(&d, "%lu", n);
  aunum(d.buf);
  dstr_destroy(&d);
}

/*----- That's all, folks -------------------------------------------------*/