Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-11 23:17:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

updating sexp_intern calls

Browse source
This commit is contained in:
Alex Shinn 2010-03-25 17:40:02 +09:00
parent 061dacbf8e
commit 74f7c5737c
1 changed files with 16 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
opt/plan9.c
View file

@ -143,37 +143,37 @@ void sexp_build_srv (sexp ctx, sexp_plan9_srv s, sexp ls) {
= s->create = s->remove = s->read = s->write = s->stat = s->wstat = s->create = s->remove = s->read = s->write = s->stat = s->wstat
= s->flush = s->destroyfid = s->destroyreq = s->end = SEXP_FALSE; = s->flush = s->destroyfid = s->destroyreq = s->end = SEXP_FALSE;
for ( ; sexp_pairp(ls) && sexp_pairp(sexp_cdr(ls)); ls=sexp_cddr(ls)) { for ( ; sexp_pairp(ls) && sexp_pairp(sexp_cdr(ls)); ls=sexp_cddr(ls)) {
if (sexp_car(ls) == sexp_intern(ctx, "auth:")) { if (sexp_car(ls) == sexp_intern(ctx, "auth:", -1)) {
s->auth = sexp_cadr(ls); s->auth = sexp_cadr(ls);
} else if (sexp_car(ls) == sexp_intern(ctx, "attach:")) { } else if (sexp_car(ls) == sexp_intern(ctx, "attach:", -1)) {
s->attach = sexp_cadr(ls); s->attach = sexp_cadr(ls);
} else if (sexp_car(ls) == sexp_intern(ctx, "walk:")) { } else if (sexp_car(ls) == sexp_intern(ctx, "walk:", -1)) {
s->walk = sexp_cadr(ls); s->walk = sexp_cadr(ls);
} else if (sexp_car(ls) == sexp_intern(ctx, "walk1:")) { } else if (sexp_car(ls) == sexp_intern(ctx, "walk1:", -1)) {
s->walk1 = sexp_cadr(ls); s->walk1 = sexp_cadr(ls);
} else if (sexp_car(ls) == sexp_intern(ctx, "clone:")) { } else if (sexp_car(ls) == sexp_intern(ctx, "clone:", -1)) {
s->clone = sexp_cadr(ls); s->clone = sexp_cadr(ls);
} else if (sexp_car(ls) == sexp_intern(ctx, "open:")) { } else if (sexp_car(ls) == sexp_intern(ctx, "open:", -1)) {
s->open = sexp_cadr(ls); s->open = sexp_cadr(ls);
} else if (sexp_car(ls) == sexp_intern(ctx, "create:")) { } else if (sexp_car(ls) == sexp_intern(ctx, "create:", -1)) {
s->create = sexp_cadr(ls); s->create = sexp_cadr(ls);
} else if (sexp_car(ls) == sexp_intern(ctx, "remove:")) { } else if (sexp_car(ls) == sexp_intern(ctx, "remove:", -1)) {
s->remove = sexp_cadr(ls); s->remove = sexp_cadr(ls);
} else if (sexp_car(ls) == sexp_intern(ctx, "read:")) { } else if (sexp_car(ls) == sexp_intern(ctx, "read:", -1)) {
s->read = sexp_cadr(ls); s->read = sexp_cadr(ls);
} else if (sexp_car(ls) == sexp_intern(ctx, "write:")) { } else if (sexp_car(ls) == sexp_intern(ctx, "write:", -1)) {
s->write = sexp_cadr(ls); s->write = sexp_cadr(ls);
} else if (sexp_car(ls) == sexp_intern(ctx, "stat:")) { } else if (sexp_car(ls) == sexp_intern(ctx, "stat:", -1)) {
s->stat = sexp_cadr(ls); s->stat = sexp_cadr(ls);
} else if (sexp_car(ls) == sexp_intern(ctx, "wstat:")) { } else if (sexp_car(ls) == sexp_intern(ctx, "wstat:", -1)) {
s->wstat = sexp_cadr(ls); s->wstat = sexp_cadr(ls);
} else if (sexp_car(ls) == sexp_intern(ctx, "flush:")) { } else if (sexp_car(ls) == sexp_intern(ctx, "flush:", -1)) {
s->flush = sexp_cadr(ls); s->flush = sexp_cadr(ls);
} else if (sexp_car(ls) == sexp_intern(ctx, "destroyfid:")) { } else if (sexp_car(ls) == sexp_intern(ctx, "destroyfid:", -1)) {
s->destroyfid = sexp_cadr(ls); s->destroyfid = sexp_cadr(ls);
} else if (sexp_car(ls) == sexp_intern(ctx, "destroyreq:")) { } else if (sexp_car(ls) == sexp_intern(ctx, "destroyreq:", -1)) {
s->destroyreq = sexp_cadr(ls); s->destroyreq = sexp_cadr(ls);
} else if (sexp_car(ls) == sexp_intern(ctx, "end:")) { } else if (sexp_car(ls) == sexp_intern(ctx, "end:", -1)) {
s->end = sexp_cadr(ls); s->end = sexp_cadr(ls);
} }
} }