/*
 * This file is part of the UCB release of Plan 9. It is subject to the license
 * terms in the LICENSE file found in the top-level directory of this
 * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No
 * part of the UCB release of Plan 9, including this file, may be copied,
 * modified, propagated, or distributed except according to the terms contained
 * in the LICENSE file.
 */

#include "all.h"
#include "9p1.h"

static void dumpsome(char*, char*, int32_t);
static void fdirconv(char*, Dentry*);

int
ofcallfmt(Fmt *f1)
{
	char buf[512];
	Oldfcall *f;
	int fid, type, tag, n;
	Dentry d;

	f = va_arg(f1->args, Oldfcall*);
	type = f->type;
	fid = f->fid;
	tag = f->tag;
	switch(type){
	case Tnop9p1:	/* 50 */
		sprint(buf, "Tnop9p1 tag %u", tag);
		break;
	case Rnop9p1:
		sprint(buf, "Rnop9p1 tag %u", tag);
		break;
	case Tsession9p1:	/* 52 */
		sprint(buf, "Tsession9p1 tag %u", tag);
		break;
	case Rsession9p1:
		sprint(buf, "Rsession9p1 tag %u", tag);
		break;
	case Rerror9p1:	/* 55 */
		sprint(buf, "Rerror9p1 tag %u error %.64s", tag, f->ename);
		break;
	case Tflush9p1:	/* 56 */
		sprint(buf, "Tflush9p1 tag %u oldtag %d", tag, f->oldtag);
		break;
	case Rflush9p1:
		sprint(buf, "Rflush9p1 tag %u", tag);
		break;
	case Tattach9p1:	/* 58 */
		sprint(buf, "Tattach9p1 tag %u fid %d uname %.28s aname %.28s auth %.28s",
			tag, f->fid, f->uname, f->aname, f->auth);
		break;
	case Rattach9p1:
		sprint(buf, "Rattach9p1 tag %u fid %d qid 0x%lx|0x%lx",
			tag, fid, f->qid.path, f->qid.version);
		break;
	case Tclone9p1:	/* 60 */
		sprint(buf, "Tclone9p1 tag %u fid %d newfid %d", tag, fid, f->newfid);
		break;
	case Rclone9p1:
		sprint(buf, "Rclone9p1 tag %u fid %d", tag, fid);
		break;
	case Twalk9p1:	/* 62 */
		sprint(buf, "Twalk9p1 tag %u fid %d name %.28s", tag, fid, f->name);
		break;
	case Rwalk9p1:
		sprint(buf, "Rwalk9p1 tag %u fid %d qid 0x%lx|0x%lx",
			tag, fid, f->qid.path, f->qid.version);
		break;
	case Topen9p1:	/* 64 */
		sprint(buf, "Topen9p1 tag %u fid %d mode %d", tag, fid, f->mode);
		break;
	case Ropen9p1:
		sprint(buf, "Ropen9p1 tag %u fid %d qid 0x%lx|0x%lx",
			tag, fid, f->qid.path, f->qid.version);
		break;
	case Tcreate9p1:	/* 66 */
		sprint(buf, "Tcreate9p1 tag %u fid %d name %.28s perm 0x%lx mode %d",
			tag, fid, f->name, f->perm, f->mode);
		break;
	case Rcreate9p1:
		sprint(buf, "Rcreate9p1 tag %u fid %d qid 0x%lx|0x%lx",
			tag, fid, f->qid.path, f->qid.version);
		break;
	case Tread9p1:	/* 68 */
		sprint(buf, "Tread9p1 tag %u fid %d offset %ld count %ld",
			tag, fid, f->offset, f->count);
		break;
	case Rread9p1:
		n = sprint(buf, "Rread9p1 tag %u fid %d count %ld ", tag, fid, f->count);
		dumpsome(buf+n, f->data, f->count);
		break;
	case Twrite9p1:	/* 70 */
		n = sprint(buf, "Twrite9p1 tag %u fid %d offset %ld count %ld ",
			tag, fid, f->offset, f->count);
		dumpsome(buf+n, f->data, f->count);
		break;
	case Rwrite9p1:
		sprint(buf, "Rwrite9p1 tag %u fid %d count %ld", tag, fid, f->count);
		break;
	case Tclunk9p1:	/* 72 */
		sprint(buf, "Tclunk9p1 tag %u fid %d", tag, fid);
		break;
	case Rclunk9p1:
		sprint(buf, "Rclunk9p1 tag %u fid %d", tag, fid);
		break;
	case Tremove9p1:	/* 74 */
		sprint(buf, "Tremove9p1 tag %u fid %d", tag, fid);
		break;
	case Rremove9p1:
		sprint(buf, "Rremove9p1 tag %u fid %d", tag, fid);
		break;
	case Tstat9p1:	/* 76 */
		sprint(buf, "Tstat9p1 tag %u fid %d", tag, fid);
		break;
	case Rstat9p1:
		n = sprint(buf, "Rstat9p1 tag %u fid %d", tag, fid);
		convM2D9p1(f->stat, &d);
		sprint(buf+n, " stat ");
		fdirconv(buf+n+6, &d);
		break;
	case Twstat9p1:	/* 78 */
		convM2D9p1(f->stat, &d);
		n = sprint(buf, "Twstat9p1 tag %u fid %d stat ", tag, fid);
		fdirconv(buf+n, &d);
		break;
	case Rwstat9p1:
		sprint(buf, "Rwstat9p1 tag %u fid %d", tag, fid);
		break;
	case Tclwalk9p1:	/* 81 */
		sprint(buf, "Tclwalk9p1 tag %u fid %d newfid %d name %.28s",
			tag, fid, f->newfid, f->name);
		break;
	case Rclwalk9p1:
		sprint(buf, "Rclwalk9p1 tag %u fid %d qid 0x%lx|0x%lx",
			tag, fid, f->qid.path, f->qid.version);
		break;
	default:
		sprint(buf,  "unknown type %d", type);
	}
	return fmtstrcpy(f1, buf);
}

static void
fdirconv(char *buf, Dentry *d)
{
	sprint(buf, "'%s' uid=%d gid=%d "
		"q %lx|%lx m %uo "
		"at %ld mt %ld l %ld ",
			d->name, d->uid, d->gid,
			d->qid.path, d->qid.version, d->mode,
			d->atime, d->mtime, d->size);
}

/*
 * dump out count (or DUMPL, if count is bigger) bytes from
 * buf to ans, as a string if they are all printable,
 * else as a series of hex bytes
 */
#define DUMPL 24

static void
dumpsome(char *ans, char *buf, int32_t count)
{
	int i, printable;
	char *p;

	printable = 1;
	if(count > DUMPL)
		count = DUMPL;
	for(i=0; i<count && printable; i++)
		if((buf[i]<32 && buf[i] !='\n' && buf[i] !='\t') || (uint8_t)buf[i]>127)
			printable = 0;
	p = ans;
	*p++ = '\'';
	if(printable){
		memmove(p, buf, count);
		p += count;
	}else{
		for(i=0; i<count; i++){
			if(i>0 && i%4==0)
				*p++ = ' ';
			sprint(p, "%2.2ux", buf[i]);
			p += 2;
		}
	}
	*p++ = '\'';
	*p = 0;
}