-
Notifications
You must be signed in to change notification settings - Fork 17
/
match.cc
135 lines (119 loc) · 3.24 KB
/
match.cc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
/******************************************************************************
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
Pavel@Xerox.Com
*****************************************************************************/
#include "my-stdlib.h"
#include "my-string.h"
#include "config.h"
#include "db.h"
#include "structures.h"
#include "match.h"
#include "parse_cmd.h"
#include "storage.h"
#include "unparse.h"
#include "utils.h"
static Var *
aliases(Objid oid)
{
Var value;
db_prop_handle h;
h = db_find_property(Var::new_obj(oid), "aliases", &value);
if (!h.ptr || value.type != TYPE_LIST) {
/* Simulate a pointer to an empty list */
return &zero;
} else
return value.v.list;
}
struct match_data {
int lname;
const char *name;
Objid exact, partial;
};
static int
match_proc(void *data, Objid oid)
{
struct match_data *d = (struct match_data *)data;
Var *names = aliases(oid);
int i;
const char *name;
for (i = 0; i <= names[0].v.num; i++) {
if (i == 0)
name = db_object_name(oid);
else if (names[i].type != TYPE_STR)
continue;
else
name = names[i].v.str;
if (!mystrncasecmp(name, d->name, d->lname)) {
if (name[d->lname] == '\0') { /* exact match */
if (d->exact == NOTHING || d->exact == oid)
d->exact = oid;
else
return 1;
} else { /* partial match */
if (d->partial == FAILED_MATCH || d->partial == oid)
d->partial = oid;
else
d->partial = AMBIGUOUS;
}
}
}
return 0;
}
static Objid
match_contents(Objid player, const char *name)
{
Objid loc;
int step;
Objid oid;
struct match_data d;
d.lname = strlen(name);
d.name = name;
d.exact = NOTHING;
d.partial = FAILED_MATCH;
if (!valid(player))
return FAILED_MATCH;
loc = db_object_location(player);
for (oid = player, step = 0; step < 2; oid = loc, step++) {
if (!valid(oid))
continue;
if (db_for_all_contents(oid, match_proc, &d))
/* We only abort the enumeration for exact ambiguous matches... */
return AMBIGUOUS;
}
if (d.exact != NOTHING)
return d.exact;
else
return d.partial;
}
Objid
match_object(Objid player, const char *name)
{
if (name[0] == '\0')
return NOTHING;
if (name[0] == '#') {
char *p;
Objid r = strtol(name + 1, &p, 10);
if (*p != '\0' || !valid(r))
return FAILED_MATCH;
return r;
}
if (!valid(player))
return FAILED_MATCH;
if (!mystrcasecmp(name, "me"))
return player;
if (!mystrcasecmp(name, "here"))
return db_object_location(player);
return match_contents(player, name);
}