/* Code to access $name$ objects as mappings */

static int
$abbrev$_length(self)
	$abbrev$object *self;
{
	/* XXXX Return the size of the mapping */
}

static object *
$abbrev$_subscript(self, key)
	$abbrev$object *self;
	object *key;
{
	/* XXXX Return the item of self indexed by key */
}

static int
$abbrev$_ass_sub(self, v, w)
	$abbrev$object *self;
	object *v, *w;
{
	/* XXXX Put w in self under key v */
	return 0;
}

static mapping_methods $abbrev$_as_mapping = {
	(inquiry)$abbrev$_length,		/*mp_length*/
	(binaryfunc)$abbrev$_subscript,		/*mp_subscript*/
	(objobjargproc)$abbrev$_ass_sub,	/*mp_ass_subscript*/
};

/* -------------------------------------------------------- */