34 lines
687 B
Plaintext
34 lines
687 B
Plaintext
|
/* 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*/
|
||
|
|
};
|
||
|
|
|
||
|
|
/* -------------------------------------------------------- */
|