ref: cabbe0a84c7aae53316347185a5bdf8095bac9c8
dir: /sys/src/libsunrpc/prog.c/
#include <u.h> #include <libc.h> #include <thread.h> #include <sunrpc.h> SunStatus sunCallPack(SunProg *prog, uchar *a, uchar *ea, uchar **pa, SunCall *c) { uchar *x; int (*pack)(uchar*, uchar*, uchar**, SunCall*); if(pa == nil) pa = &x; if(c->type < 0 || c->type >= prog->nproc || (pack=prog->proc[c->type].pack) == nil) return SunProcUnavail; if((*pack)(a, ea, pa, c) < 0) return SunGarbageArgs; return SunSuccess; } SunStatus sunCallUnpack(SunProg *prog, uchar *a, uchar *ea, uchar **pa, SunCall *c) { uchar *x; int (*unpack)(uchar*, uchar*, uchar**, SunCall*); if(pa == nil) pa = &x; if(c->type < 0 || c->type >= prog->nproc || (unpack=prog->proc[c->type].unpack) == nil) return SunProcUnavail; if((*unpack)(a, ea, pa, c) < 0){ fprint(2, "in: %.*H unpack failed\n", (int)(ea-a), a); return SunGarbageArgs; } return SunSuccess; } SunStatus sunCallUnpackAlloc(SunProg *prog, SunCallType type, uchar *a, uchar *ea, uchar **pa, SunCall **pc) { uchar *x; uint size; int (*unpack)(uchar*, uchar*, uchar**, SunCall*); SunCall *c; if(pa == nil) pa = &x; if(type < 0 || type >= prog->nproc || (unpack=prog->proc[type].unpack) == nil) return SunProcUnavail; size = prog->proc[type].sizeoftype; if(size == 0) return SunProcUnavail; c = mallocz(size, 1); if(c == nil) return SunSystemErr; c->type = type; if((*unpack)(a, ea, pa, c) < 0){ fprint(2, "in: %.*H unpack failed\n", (int)(ea-a), a); free(c); return SunGarbageArgs; } *pc = c; return SunSuccess; } uint sunCallSize(SunProg *prog, SunCall *c) { uint (*size)(SunCall*); if(c->type < 0 || c->type >= prog->nproc || (size=prog->proc[c->type].size) == nil) return ~0; return (*size)(c); }