BSD taskqueues via KMSGs
[akaros.git] / tests / cs.c
index 7d2e993..80cf424 100644 (file)
@@ -19,8 +19,8 @@
 #include <ctype.h>
 #include <error.h>
 #include <iplib.h>
-#include <dir.h>
 #include <ndb.h>
+#include <fcallfmt.h>
 #include <fcall.h>
 
 enum
@@ -251,6 +251,7 @@ main(int argc, char *argv[])
        argv0 = argv[0];
        justsetname = 0;
        setnetmtpt(mntpt, sizeof(mntpt), NULL);
+       register_printf_specifier('F', printf_fcall, printf_fcall_info);
        ext[0] = 0;
        argc--, argv++;
        while (argc && **argv == '-'){
@@ -338,7 +339,6 @@ mountinit(char *service, char *mntpt)
         * ORCLOSE means remove on last close. Handy. Not here yet. 
         */
        f = open(service, O_WRONLY|O_CREAT/*|ORCLOSE*/, 0666);
-printf("open %s gets %d\n", service, f);
        if(f < 0)
                error(1, 0, "%s: %r",service);
        snprintf(buf, sizeof(buf), "%d", p[1]);
@@ -399,7 +399,6 @@ newjob(void)
        if (! job){
                error(1, 0, "%s: %r","job calloc");
        }
-#warning "fix lock"
 //     //lock(&joblock);
        job->next = joblist;
        joblist = job;
@@ -412,7 +411,6 @@ void
 freejob(Job *job)
 {
        Job **l;
-return;
        //lock(&joblock);
        for(l = &joblist; *l; l = &(*l)->next){
                if((*l) == job){
@@ -444,13 +442,10 @@ void *job_thread(void* arg)
        Mfile *mf;
        Job *job = arg;
        //lock(&dblock);
-printf("JOB!\n");
        mf = newfid(job->request.fid);
 
-printf("NEWFID is %p\n", mf);
        if(debug)
                fprintf(stderr, "CS:%F", &job->request);
-printf("DO %d\n", job->request.type);
        switch(job->request.type){
        default:
                fprintf(stderr, "CS:unknown request type %d", job->request.type);
@@ -499,7 +494,8 @@ printf("DO %d\n", job->request.type);
 
        freejob(job);
 
-       fprintf(stderr, "CS:Job done\n");
+       if (debug)
+               fprintf(stderr, "CS:Job done\n");
        return 0;
 }
 
@@ -523,6 +519,8 @@ io(void)
                        error(1, 0, "%s: %r","mount read");
                job = newjob();
                if(convM2S(mdata, n, &job->request) != n){
+                       fprintf(stderr, "convM2S went south: format error %ux %ux %ux %ux %ux",
+                               mdata[0], mdata[1], mdata[2], mdata[3], mdata[4]);
                        error(1, 0, "format error %ux %ux %ux %ux %ux",
                                mdata[0], mdata[1], mdata[2], mdata[3], mdata[4]);
                        freejob(job);
@@ -532,9 +530,7 @@ io(void)
                 * later if we want to.
                 */
 #if 0
-printf("RUN THAT JOB!\n");
                if (pthread_create(&job->thread, NULL, &job_thread, job)) {
-printf("ERROR!\n");
                        error(1, 0, "%s: %r","Failed to create job");
                        continue;
                }
@@ -627,7 +623,6 @@ rwalk(Job *job, Mfile *mf)
        if(nelems > 0){
                /* walk fid */
                for(i=0; i<nelems && i<MAXWELEM; i++){
-printf("cs: i %d nelems %d \n", i, nelems);
                        if((qid.type & QTDIR) == 0){
                                err = "not a directory";
                                break;
@@ -643,11 +638,9 @@ printf("cs: i %d nelems %d \n", i, nelems);
                        if(strcmp(elems[i], "cs") == 0){
                                qid.type = QTFILE;
                                qid.path = Qcs;
-printf("found cs, goto Found\n");
                                goto Found;
                        }
-                       err = malloc(4096);
-                       snprintf(err, 4096,"%s:file does not exist", elems[i]);
+                       err = "file does not exist";
                        break;
                }
        }
@@ -663,10 +656,6 @@ printf("found cs, goto Found\n");
        if(err == NULL)
                mf->qid = qid;
        sendmsg(job, err);
-       free(err);
-       /* shoot me. */
-       /* we can fix this or we can get a real language. Guess how Ron votes? */
-       err = "file does not exist";
        return err;
 }
 
@@ -746,8 +735,6 @@ rread(Job *job, Mfile *mf)
                }
 
                /* give back a single reply (or part of one) */
-               printf("mf->reply[%d] is %s; off %d, toff %d\n", 
-                               i, mf->reply[i], off, toff);
                job->reply.data = mf->reply[i] + (off - toff);
                if(cnt > toff - off + n)
                        n = toff - off + n;
@@ -807,7 +794,6 @@ rwrite(Job *job, Mfile *mf)
                goto send;
        }
        job->request.data[cnt] = 0;
-printf("CS: request data is :%s:\n", job->request.data);
        /*
         *  toggle debugging
         */
@@ -890,8 +876,6 @@ printf("CS: request data is :%s:\n", job->request.data);
                mf->net = strdup(field[0]);
                break;
        }
-printf("CS: net %s host %s serv %s rem %s\n", 
-mf->net, mf->host, mf->serv, mf->rem);
        /*
         *  do the first net worth of lookup
         */
@@ -967,15 +951,12 @@ sendmsg(Job *job, char *err)
                job->reply.type = job->request.type+1;
        }
        job->reply.tag = job->request.tag;
-       if (job->reply.type == Rread && job->reply.data)
-               hexdump(stdout, job->reply.data, job->reply.count);
        n = convS2M(&job->reply, mdata, sizeof mdata);
        if(n == 1){
                fprintf(stderr,  "CS:sendmsg convS2M of %F returns 0", &job->reply);
                abort();
        }
        //lock(&joblock);
-       hexdump(stdout, mdata, n);
        if(job->flushed == 0)
                if(write(mfd[1], mdata, n)!=n)
                        error(1, 0, "%s: %r","mount write");
@@ -1206,7 +1187,6 @@ lookup(Mfile *mf)
        if(mf->net == NULL)
                return 0;       /* must have been a genquery */
 
-printf("CS: Look up net %s \n", mf->net);
        if(strcmp(mf->net, "net") == 0){
                /*
                 *  go through set of default nets
@@ -1247,16 +1227,13 @@ printf("CS: Look up net %s \n", mf->net);
        /*
         *  look for a specific network
         */
-printf("CS: netlist is %p\n", netlist);
        for(np = netlist; np && np->net != NULL; np++){
                if(np->fasttimeouthack)
                        continue;
-printf("CS: compare net np->net %s mf->net %s\n", np->net, mf->net);
                if(strcmp(np->net, mf->net) == 0)
                        break;
        }
 
-printf("CS: np is %p np->net %p\n", np, np ? np->net : NULL);
        if(np && np->net != NULL){
                /*
                 *  known network
@@ -1264,7 +1241,6 @@ printf("CS: np is %p np->net %p\n", np, np ? np->net : NULL);
                nt = (*np->lookup)(np, mf->host, mf->serv, 1);
                for(t = nt; mf->nreply < Nreply && t; t = t->entry){
                        cp = (*np->trans)(t, np, mf->serv, mf->rem, 0);
-printf("CS: Lookup %s\n", cp);
                        if(cp){
                                mf->replylen[mf->nreply] = strlen(cp);
                                mf->reply[mf->nreply++] = cp;
@@ -1274,7 +1250,6 @@ printf("CS: Lookup %s\n", cp);
                ndbfree(nt);
                return rv;
        } else {
-printf("UNKONW NET\n");
                /*
                 *  not a known network, don't translate host or service
                 */
@@ -1284,7 +1259,6 @@ printf("UNKONW NET\n");
                else
                        snprintf(reply, sizeof(reply), "%s/%s/clone %s",
                                mntpt, mf->net, mf->host);
-printf("CS: reply is %s\n", reply);
                mf->reply[0] = strdup(reply);
                mf->replylen[0] = strlen(reply);
                mf->nreply = 1;
@@ -1308,7 +1282,6 @@ ipserv(Network *np, char *name, char *buf, int blen)
        struct ndbtuple *t, *nt;
        struct ndbs s;
 
-printf("CS: port %s\n", name);
        /* '*' means any service */
        if(strcmp(name, "*")==0){
                strcpy(buf, name);
@@ -1329,7 +1302,6 @@ printf("CS: port %s\n", name);
        p = NULL;
        if(alpha){
                p = ndbgetvalue(db, &s, np->net, name, "port", &t);
-printf("CS: get value of port %s, p is (we hope not null)%p\n", name, p);
                if(p == NULL)
                        return 0;
        } else {
@@ -1350,7 +1322,6 @@ printf("CS: get value of port %s, p is (we hope not null)%p\n", name, p);
        }
        snprintf(buf, blen, "%s%s", p, restr ? "!r" : "");
        free(p);
-printf("CS: buf is %s\n", buf);
        return buf;
 }
 
@@ -1699,7 +1670,7 @@ qreply(Mfile *mf, struct ndbtuple *t)
                        len = 0;
                else {
                        len -= amt;
-                       cur += len;
+                       cur += amt;
                }
 
                if(nt->line != nt->entry){
@@ -1713,7 +1684,7 @@ qreply(Mfile *mf, struct ndbtuple *t)
                                len = 0;
                        else {
                                len -= amt;
-                               cur += len;
+                               cur += amt;
                        }
                }