Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

95 lines (78 sloc) 2.437 kb
Copyright (c) 1992, 1995, 1996 Xerox Corporation. All rights reserved.
Portions of this code were written by Stephen White, aka ghond.
Use and copying of this software and preparation of derivative works based
upon this software are permitted. Any distribution of this software or
derivative works must comply with all applicable United States export
control laws. This software is made available AS IS, and Xerox Corporation
makes no warranty about the software, its performance or its conformity to
any specification. Any person obtaining a copy of this software is requested
to send their name and post office or electronic mail address to:
Pavel Curtis
Xerox PARC
3333 Coyote Hill Rd.
Palo Alto, CA 94304
#include "bf_register.h"
#include "collection.h"
#include "functions.h"
#include "list.h"
#include "map.h"
#include "utils.h"
struct ismember_data {
int i;
Var value;
int case_matters;
static int
do_map_iteration(Var key, Var value, void *data, int first)
struct ismember_data *ismember_data = (struct ismember_data *)data;
if (equality(value, ismember_data->value, ismember_data->case_matters)) {
return ismember_data->i;
return 0;
ismember(Var lhs, Var rhs, int case_matters)
if (rhs.type == TYPE_LIST) {
int i;
for (i = 1; i <= rhs.v.list[0].v.num; i++) {
if (equality(lhs, rhs.v.list[i], case_matters)) {
return i;
return 0;
} else if (rhs.type == TYPE_MAP) {
struct ismember_data ismember_data;
ismember_data.i = 1;
ismember_data.value = lhs;
ismember_data.case_matters = case_matters;
return mapforeach(rhs, do_map_iteration, &ismember_data);
} else {
return 0;
/**** built in functions ****/
static package
bf_is_member(Var arglist, Byte next, void *vdata, Objid progr)
Var r;
Var rhs = arglist.v.list[2];
if (rhs.type != TYPE_LIST && rhs.type != TYPE_MAP) {
return make_error_pack(E_INVARG);
r.type = TYPE_INT;
r.v.num = ismember(arglist.v.list[1], rhs, 1);
return make_var_pack(r);
register_function("is_member", 2, 2, bf_is_member, TYPE_ANY, TYPE_ANY);
Jump to Line
Something went wrong with that request. Please try again.