1 #include <plan9.h> 2 #include <fcall.h> 3 #include <oldfcall.h> 4 5 extern int old9p; 6 7 static uint dumpsome(char*, char*, long); 8 static void fdirconv(char*, Dir*); 9 static char *qidtype(char*, uchar); 10 11 #define QIDFMT "(%.16llux %lud %s)" 12 13 int 14 fcallconv(va_list *arg, Fconv *f1) 15 { 16 Fcall *f; 17 int fid, type, tag, n, i; 18 char buf[512], tmp[200]; 19 Dir *d; 20 Qid *q; 21 22 f = va_arg(*arg, Fcall*); 23 type = f->type; 24 fid = f->fid; 25 tag = f->tag; 26 switch(type){ 27 case Tversion: /* 100 */ 28 sprint(buf, "Tversion tag %ud msize %ud version '%s'", tag, f->msize, f->version); 29 break; 30 case Rversion: 31 sprint(buf, "Rversion tag %ud msize %ud version '%s'", tag, f->msize, f->version); 32 break; 33 case Tauth: /* 102 */ 34 sprint(buf, "Tauth tag %ud afid %d uname %s aname %s", tag, 35 f->afid, f->uname, f->aname); 36 break; 37 case Rauth: 38 sprint(buf, "Rauth tag %ud qid " QIDFMT, tag, 39 f->aqid.path, f->aqid.vers, qidtype(tmp, f->aqid.type)); 40 break; 41 case Tattach: /* 104 */ 42 sprint(buf, "Tattach tag %ud fid %d afid %d uname %s aname %s", tag, 43 fid, f->afid, f->uname, f->aname); 44 break; 45 case Rattach: 46 sprint(buf, "Rattach tag %ud qid " QIDFMT, tag, 47 f->qid.path, f->qid.vers, qidtype(tmp, f->qid.type)); 48 break; 49 case Rerror: /* 107; 106 (Terror) illegal */ 50 sprint(buf, "Rerror tag %ud ename %s", tag, f->ename); 51 break; 52 case Tflush: /* 108 */ 53 sprint(buf, "Tflush tag %ud oldtag %ud", tag, f->oldtag); 54 break; 55 case Rflush: 56 sprint(buf, "Rflush tag %ud", tag); 57 break; 58 case Twalk: /* 110 */ 59 n = sprint(buf, "Twalk tag %ud fid %d newfid %d nwname %d ", tag, fid, f->newfid, f->nwname); 60 for(i=0; i<f->nwname; i++) 61 n += sprint(buf+n, "%d:%s ", i, f->wname[i]); 62 break; 63 case Rwalk: 64 n = sprint(buf, "Rwalk tag %ud nwqid %ud ", tag, f->nwqid); 65 for(i=0; i<f->nwqid; i++){ 66 q = &f->wqid[i]; 67 n += sprint(buf+n, "%d:" QIDFMT " ", i, 68 q->path, q->vers, qidtype(tmp, q->type)); 69 } 70 break; 71 case Topen: /* 112 */ 72 sprint(buf, "Topen tag %ud fid %ud mode %d", tag, fid, f->mode); 73 break; 74 case Ropen: 75 sprint(buf, "Ropen tag %ud qid " QIDFMT " iounit %ud ", tag, 76 f->qid.path, f->qid.vers, qidtype(tmp, f->qid.type), f->iounit); 77 break; 78 case Tcreate: /* 114 */ 79 sprint(buf, "Tcreate tag %ud fid %ud perm %M mode %d", tag, fid, (ulong)f->perm, f->mode); 80 break; 81 case Rcreate: 82 sprint(buf, "Rcreate tag %ud qid " QIDFMT " iounit %ud ", tag, 83 f->qid.path, f->qid.vers, qidtype(tmp, f->qid.type), f->iounit); 84 break; 85 case Tread: /* 116 */ 86 sprint(buf, "Tread tag %ud fid %d offset %lld count %ud", 87 tag, fid, f->offset, f->count); 88 break; 89 case Rread: 90 n = sprint(buf, "Rread tag %ud count %ud ", tag, f->count); 91 dumpsome(buf+n, f->data, f->count); 92 break; 93 case Twrite: /* 118 */ 94 n = sprint(buf, "Twrite tag %ud fid %d offset %lld count %ud ", 95 tag, fid, f->offset, f->count); 96 dumpsome(buf+n, f->data, f->count); 97 break; 98 case Rwrite: 99 sprint(buf, "Rwrite tag %ud count %ud", tag, f->count); 100 break; 101 case Tclunk: /* 120 */ 102 sprint(buf, "Tclunk tag %ud fid %ud", tag, fid); 103 break; 104 case Rclunk: 105 sprint(buf, "Rclunk tag %ud", tag); 106 break; 107 case Tremove: /* 122 */ 108 sprint(buf, "Tremove tag %ud fid %ud", tag, fid); 109 break; 110 case Rremove: 111 sprint(buf, "Rremove tag %ud", tag); 112 break; 113 case Tstat: /* 124 */ 114 sprint(buf, "Tstat tag %ud fid %ud", tag, fid); 115 break; 116 case Rstat: 117 n = sprint(buf, "Rstat tag %ud ", tag); 118 if(f->nstat > sizeof tmp) 119 sprint(buf+n, " stat(%d bytes)", f->nstat); 120 else{ 121 d = (Dir*)tmp; 122 (old9p?convM2Dold:convM2D)(f->stat, f->nstat, d, (char*)(d+1)); 123 sprint(buf+n, " stat "); 124 fdirconv(buf+n+6, d); 125 } 126 break; 127 case Twstat: /* 126 */ 128 n = sprint(buf, "Twstat tag %ud fid %ud", tag, fid); 129 if(f->nstat > sizeof tmp) 130 sprint(buf+n, " stat(%d bytes)", f->nstat); 131 else{ 132 d = (Dir*)tmp; 133 (old9p?convM2Dold:convM2D)(f->stat, f->nstat, d, (char*)(d+1)); 134 sprint(buf+n, " stat "); 135 fdirconv(buf+n+6, d); 136 } 137 break; 138 case Rwstat: 139 sprint(buf, "Rwstat tag %ud", tag); 140 break; 141 default: 142 sprint(buf, "unknown type %d", type); 143 } 144 strconv(buf, f1); 145 return(sizeof(Fcall*)); 146 } 147 148 static char* 149 qidtype(char *s, uchar t) 150 { 151 char *p; 152 153 p = s; 154 if(t & QTDIR) 155 *p++ = 'd'; 156 if(t & QTAPPEND) 157 *p++ = 'a'; 158 if(t & QTEXCL) 159 *p++ = 'l'; 160 if(t & QTMOUNT) 161 *p++ = 'm'; 162 *p = '\0'; 163 return s; 164 } 165 166 int 167 dirconv(va_list *arg, Fconv *f) 168 { 169 char buf[160]; 170 171 fdirconv(buf, va_arg(*arg, Dir*)); 172 strconv(buf, f); 173 return(sizeof(Dir*)); 174 } 175 176 static void 177 fdirconv(char *buf, Dir *d) 178 { 179 char tmp[16]; 180 181 sprint(buf, "'%s' '%s' '%s' '%s' " 182 "q " QIDFMT " m %#luo " 183 "at %ld mt %ld l %lld " 184 "t %d d %d", 185 d->name, d->uid, d->gid, d->muid, 186 d->qid.path, d->qid.vers, qidtype(tmp, d->qid.type), d->mode, 187 d->atime, d->mtime, d->length, 188 d->type, d->dev); 189 } 190 191 /* 192 * dump out count (or DUMPL, if count is bigger) bytes from 193 * buf to ans, as a string if they are all printable, 194 * else as a series of hex bytes 195 */ 196 #define DUMPL 64 197 198 static uint 199 dumpsome(char *ans, char *buf, long count) 200 { 201 int i, printable; 202 char *p; 203 204 printable = 1; 205 if(count > DUMPL) 206 count = DUMPL; 207 for(i=0; i<count && printable; i++) 208 if((buf[i]<32 && buf[i] !='\n' && buf[i] !='\t') || (uchar)buf[i]>127) 209 printable = 0; 210 p = ans; 211 *p++ = '\''; 212 if(printable){ 213 memmove(p, buf, count); 214 p += count; 215 }else{ 216 for(i=0; i<count; i++){ 217 if(i>0 && i%4==0) 218 *p++ = ' '; 219 sprint(p, "%2.2ux", (uchar)buf[i]); 220 p += 2; 221 } 222 } 223 *p++ = '\''; 224 *p = 0; 225 return p - ans; 226 } 227