[u/mdw/catacomb] / math / group-dstr.c

/* -*-c-*-
 *
 * Dynamic string I/O for group elements
 *
 * (c) 2004 Straylight/Edgeware
 */

/*----- Licensing notice --------------------------------------------------*
 *
 * This file is part of Catacomb.
 *
 * Catacomb is free software; you can redistribute it and/or modify
 * it under the terms of the GNU Library General Public License as
 * published by the Free Software Foundation; either version 2 of the
 * License, or (at your option) any later version.
 *
 * Catacomb 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 Library General Public License for more details.
 *
 * You should have received a copy of the GNU Library General Public
 * License along with Catacomb; if not, write to the Free
 * Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
 * MA 02111-1307, USA.
 */

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

#include "group.h"

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

/* --- @group_readdstr@ --- *
 *
 * Arguments:	@group *g@ = an abstract group
 *		@ge *d@ = destination group element
 *		@dstr *dd@ = string to read from
 *		@size_t *off@ = offset to start at (updated)
 *
 * Returns:	Zero on success, nonzero on failure.
 *
 * Use:		Parses a group element from a dynamic string.
 */

int group_readdstr(group *g, ge *d, dstr *dd, size_t *off)
{
  mptext_dstrctx md;

  md.d = dd;
  md.i = off ? *off : 0;
  if (G_READ(g, d, &mptext_dstrops, &md))
    return (-1);
  if (off) *off = md.i;
  return (0);
}

/* --- @group_writedstr@ --- *
 *
 * Arguments:	@group *g@ = an abstract group
 *		@ge *x@ = a group element
 *		@dstr *d@ = string to write to
 *		@size_t sz@ = how long the buffer is
 *
 * Returns:	Zero on success, nonzero on failure.
 *
 * Use:		Writes a group element to a dstr buffer.
 */

int group_writedstr(group *g, ge *x, dstr *d)
{
  mptext_dstrctx md;

  md.d = d;
  if (G_WRITE(g, x, &mptext_dstrops, &md))
    return (-1);
  DPUTZ(d);
  return (0);
}


/*----- That's all, folks -------------------------------------------------*/
Commit	Line	Data
34e4f738	1	/* --c--
34e4f738	2	*
34e4f738	3	* Dynamic string I/O for group elements
	4	*
	5	* (c) 2004 Straylight/Edgeware
	6	*/
	7
45c0fd36	8	/----- Licensing notice --------------------------------------------------
34e4f738	9	*
	10	* This file is part of Catacomb.
	11	*
	12	* Catacomb is free software; you can redistribute it and/or modify
	13	* it under the terms of the GNU Library General Public License as
	14	* published by the Free Software Foundation; either version 2 of the
	15	* License, or (at your option) any later version.
45c0fd36	16	*
34e4f738	17	* Catacomb is distributed in the hope that it will be useful,
	18	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	19	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	20	* GNU Library General Public License for more details.
45c0fd36	21	*
34e4f738	22	* You should have received a copy of the GNU Library General Public
	23	* License along with Catacomb; if not, write to the Free
	24	* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
	25	* MA 02111-1307, USA.
	26	*/
	27
34e4f738	28	/----- Header files ------------------------------------------------------/
	29
	30	#include "group.h"
	31
	32	/----- Main code ---------------------------------------------------------/
	33
	34	/* --- @group_readdstr@ --- *
	35	*
	36	* Arguments: @group *g@ = an abstract group
	37	* @ge *d@ = destination group element
	38	* @dstr *dd@ = string to read from
	39	* @size_t *off@ = offset to start at (updated)
	40	*
	41	* Returns: Zero on success, nonzero on failure.
	42	*
	43	* Use: Parses a group element from a dynamic string.
	44	*/
	45
	46	int group_readdstr(group g, ge d, dstr dd, size_t off)
	47	{
	48	mptext_dstrctx md;
	49
	50	md.d = dd;
	51	md.i = off ? *off : 0;
	52	if (G_READ(g, d, &mptext_dstrops, &md))
	53	return (-1);
	54	if (off) *off = md.i;
	55	return (0);
	56	}
	57
	58	/* --- @group_writedstr@ --- *
	59	*
	60	* Arguments: @group *g@ = an abstract group
	61	* @ge *x@ = a group element
	62	* @dstr *d@ = string to write to
	63	* @size_t sz@ = how long the buffer is
	64	*
	65	* Returns: Zero on success, nonzero on failure.
	66	*
	67	* Use: Writes a group element to a dstr buffer.
	68	*/
	69
	70	int group_writedstr(group g, ge x, dstr *d)
	71	{
	72	mptext_dstrctx md;
	73
	74	md.d = d;
	75	if (G_WRITE(g, x, &mptext_dstrops, &md))
	76	return (-1);
	77	DPUTZ(d);
	78	return (0);
	79	}
	80
	81
	82
	83	/----- That's all, folks -------------------------------------------------/