Hojun-Cho
2c33228b7e
Plan 9-style w-prefix on the per-arch tools, disambiguating from the
real Plan 9 6c/6a/6l in ref/plan9front/:
cmd/wwc/ → cmd/wcc/ libwwc.a → libwcc.a
cmd/6{c,a,l} → cmd/w6{c,a,l} binary names too
test/wwc/ → test/wcc/ 6 test files w/ w6 prefix
selfhost/cmd mirror in lockstep
bootstrap/amd64/{w6c,w6a,w6l} snapshot binaries (gitignored)
WW_6{C,A,L} → WW_W6{C,A,L} env-var overrides
Plan 9 source-tree refs ("Plan 9 6c shape", ref/plan9front/, etc.)
preserved. Hare-style driver, both C and ww sides:
ww test [path] discover *_test.ww in a directory module, run
each; single-file mode for `ww test foo.ww`
Module-by-name `ww build foo` resolves to foo.ww or foo/foo.ww
via search path (cwd : -I dirs : $WW_LIB)
Default-to-cwd `ww build` / `ww test` build the cwd module
Run pass-through `ww run path arg1 arg2` reaches the program
lib/os: getcwd (79) and getdents64 (217) syscalls power `.` resolution
and directory enumeration on the ww side.
Makefile: wwstage tool deps now include lib/os/os.ww (+ lib/strconv
for wwdump_ww) so lib/* edits force their rebuild instead of leaving
stale binaries — surfaced when test 995 first failed against a stale
w6c_ww built before the lib/os additions.
Test 993 byte-identical parity gate (C-side ww vs ww-side ww_ww on a
build corpus) stays green; all 19 tests pass.
75 lines
1.5 KiB
C
75 lines
1.5 KiB
C
/*
|
|
* sym.c — symbol table. Plan 9-flavoured: a per-scope hashtable
|
|
* chained to the parent scope. Lookup walks up. Duplicate definitions
|
|
* within the same scope are flagged by the caller (we just refuse the
|
|
* insert and return the first one).
|
|
*/
|
|
#include "ww.h"
|
|
#include <string.h>
|
|
|
|
#define INIT_BUCKETS 16
|
|
|
|
static u64
|
|
hashstr(const char *s)
|
|
{
|
|
/* FNV-1a 64-bit; small fixed footprint, decent distribution */
|
|
u64 h = 0xcbf29ce484222325ULL;
|
|
for (; *s; s++) {
|
|
h ^= (unsigned char)*s;
|
|
h *= 0x100000001b3ULL;
|
|
}
|
|
return h;
|
|
}
|
|
|
|
Scope *
|
|
newscope(Arena *a, Scope *parent)
|
|
{
|
|
Scope *s = amalloc(a, sizeof *s);
|
|
s->parent = parent;
|
|
s->a = a;
|
|
s->nbuckets = INIT_BUCKETS;
|
|
s->buckets = amalloc(a, s->nbuckets * sizeof(Sym *));
|
|
return s;
|
|
}
|
|
|
|
Sym *
|
|
scope_lookup_local(Scope *s, const char *name)
|
|
{
|
|
if (s == NULL) return NULL;
|
|
u64 h = hashstr(name) % s->nbuckets;
|
|
for (Sym *b = s->buckets[h]; b; b = b->hashnext)
|
|
if (strcmp(b->name, name) == 0)
|
|
return b;
|
|
return NULL;
|
|
}
|
|
|
|
Sym *
|
|
scope_lookup(Scope *s, const char *name)
|
|
{
|
|
for (; s; s = s->parent) {
|
|
Sym *r = scope_lookup_local(s, name);
|
|
if (r) return r;
|
|
}
|
|
return NULL;
|
|
}
|
|
|
|
Sym *
|
|
scope_define(Scope *s, const char *name, Skind k, Type *t, Node *decl)
|
|
{
|
|
if (scope_lookup_local(s, name) != NULL)
|
|
return NULL;
|
|
Sym *sy = amalloc(s->a, sizeof *sy);
|
|
sy->name = name;
|
|
sy->kind = k;
|
|
sy->type = t;
|
|
sy->decl = decl;
|
|
sy->scope = s;
|
|
u64 h = hashstr(name) % s->nbuckets;
|
|
sy->hashnext = s->buckets[h];
|
|
s->buckets[h] = sy;
|
|
if (s->first == NULL) s->first = sy;
|
|
else s->last->next = sy;
|
|
s->last = sy;
|
|
return sy;
|
|
}
|