Import sources from 2011-03-30 iso image

1 files changed, 335 insertions, 0 deletions

diff --git a/sys/src/cmd/aquarela/smbcommon.c b/sys/src/cmd/aquarela/smbcommon.c
new file mode 100755
index 000000000..3b0465d62
--- /dev/null
+++ b/sys/src/cmd/aquarela/smbcommon.c
@@ -0,0 +1,335 @@
+#include "headers.h"
+
+int
+smbsendunicode(SmbPeerInfo *i)
+{
+	return smbglobals.unicode && (i == nil || (i->capabilities & CAP_UNICODE) != 0);
+}
+
+int
+smbcheckwordcount(char *name, SmbHeader *h, ushort wordcount)
+{
+	if (h->wordcount != wordcount) {
+		smblogprint(-1, "smb%s: word count not %ud\n", name, wordcount);
+		return 0;
+	}
+	return 1;
+}
+
+int
+smbcheckwordandbytecount(char *name, SmbHeader *h, ushort wordcount, uchar **bdatap, uchar **edatap)
+{
+	ushort bytecount;
+	uchar *bdata;
+	if (h->wordcount != wordcount) {
+		smblogprint(-1, "smb%s: word count not %ud\n", name, wordcount);
+		return 0;
+	}
+	bdata = *bdatap;
+	if (bdata + 2 > *edatap) {
+		smblogprint(-1, "smb%s: not enough data for byte count\n", name);
+		return 0;
+	}
+	bytecount = smbnhgets(bdata); bdata += 2;
+	if (bdata + bytecount > *edatap) {
+		smblogprint(-1, "smb%s: not enough data for bytes\n", name);
+		return 0;
+	}
+	*edatap = bdata + bytecount;
+	*bdatap = bdata;
+	return 1;
+}
+
+SmbProcessResult
+smbchaincommand(SmbSession *s, SmbHeader *h, ulong andxoffsetfixup, uchar cmd, ushort offset, SmbBuffer *b)
+{
+	SmbOpTableEntry *ote;
+	uchar *pdata;
+	ushort bytecount;
+
+	h->command = cmd;
+	ote = smboptable + cmd;
+	if (ote->process == nil) {
+		smblogprint(-1, "smbchaincommand: %s (0x%.2ux) not implemented\n", ote->name, cmd);
+		return SmbProcessResultUnimp;
+	}
+	if (!smbresponsealignl2(s, 2)
+		|| !smbresponseoffsetputs(s, andxoffsetfixup, smbresponseoffset(s))
+		|| !smbbufferpopreadlimit(b))
+		return SmbProcessResultMisc;
+	if (!smbbufferreadskipto(b, offset)) {
+		smblogprint(-1, "smbchaincommand: illegal offset\n");
+		return SmbProcessResultFormat;
+	}
+	if (!smbbuffergetb(b, &h->wordcount)) {
+		smblogprint(-1, "smbchaincommand: not enough space for wordcount\n");
+		return SmbProcessResultFormat;
+	}
+	pdata = smbbufferreadpointer(b);
+	if (!smbbuffergetbytes(b, nil, h->wordcount * 2)) {
+		smblogprint(-1, "smbchaincommand: not enough space for parameters\n");
+		return SmbProcessResultFormat;
+	}
+	if (!smbbuffergets(b, &bytecount)) {
+		smblogprint(-1, "smbchaincommand: not enough space for bytecount\n");
+		return SmbProcessResultFormat;
+	}
+	if (!smbbufferpushreadlimit(b, smbbufferreadoffset(b) + bytecount)) {
+		smblogprint(-1, "smbchaincommand: not enough space for bytes\n");
+		return SmbProcessResultFormat;
+	}
+smblogprint(cmd, "chaining to %s\n", ote->name);
+	return (*ote->process)(s, h, pdata, b);
+}
+
+int
+smbbuffergetheader(SmbBuffer *b, SmbHeader *h, uchar **parametersp, ushort *bytecountp)
+{
+	SmbOpTableEntry *ote;
+	SmbRawHeader *rh;
+	rh = (SmbRawHeader *)smbbufferreadpointer(b);
+	if (!smbbuffergetbytes(b, nil, (long)offsetof(SmbRawHeader, parameterwords[0]))) {
+		smblogprint(-1, "smbgetheader: short packet\n");
+		return 0;
+	}
+	if (rh->protocol[0] != 0xff || memcmp(rh->protocol + 1, "SMB", 3) != 0) {
+		smblogprint(-1, "smbgetheader: invalid protocol\n");
+		return 0;
+	}
+	h->command = rh->command;
+	ote = smboptable + h->command;
+	if (ote->name == nil) {
+		smblogprint(-1, "smbgetheader: illegal opcode 0x%.2ux\n", h->command);
+		return 0;
+	}
+	h->errclass = rh->status[0];
+	h->error = smbnhgets(rh->status + 2);
+	h->flags = rh->flags;
+	h->flags2 = smbnhgets(rh->flags2);
+	if (h->flags & ~(SmbHeaderFlagCaseless | SMB_FLAGS_SERVER_TO_REDIR | SmbHeaderFlagReserved | SmbHeaderFlagServerIgnore))
+		smblogprint(-1, "smbgetheader: warning: unexpected flags 0x%.2ux\n", h->flags);
+	h->wordcount = rh->wordcount;
+	if (parametersp)
+		*parametersp = smbbufferreadpointer(b);
+	if (!smbbuffergetbytes(b, nil, h->wordcount * 2)) {
+		smblogprint(-1, "smbgetheader: not enough data for parameter words\n");
+		return 0;
+	}
+	h->tid = smbnhgets(rh->tid);
+	h->pid = smbnhgets(rh->pid);
+	h->uid = smbnhgets(rh->uid);
+	h->mid = smbnhgets(rh->mid);
+	if (!smbbuffergets(b, bytecountp))
+		*bytecountp = 0;
+	if (!smbbufferpushreadlimit(b, smbbufferreadoffset(b) + *bytecountp))
+		return 0;
+
+smblogprint(h->command, "%s %s: tid 0x%.4ux pid 0x%.4ux uid 0x%.4ux mid 0x%.4ux\n", ote->name,
+	(h->flags & SMB_FLAGS_SERVER_TO_REDIR) ? "response" : "request", h->tid, h->pid, h->uid, h->mid);
+	return 1;
+}
+
+int
+smbcheckheaderdirection(SmbHeader *h, int response, char **errmsgp)
+{
+	if (((h->flags & SMB_FLAGS_SERVER_TO_REDIR) == 0) == response) {
+		smbstringprint(errmsgp, "unexpected %s", response ? "request" : "response");
+		return 0;
+	}
+	return 1;
+}
+
+int
+smbcheckheader(SmbHeader *h, uchar command, int response, char **errmsgp)
+{
+	if (response && h->command != command) {
+		smbstringprint(errmsgp, "sent %.2uc request, got %.2ux response", command, h->command);
+		return 0;
+	}
+	if (!smbcheckheaderdirection(h, response, errmsgp))
+		return 0;
+	return 1;
+}
+
+int
+smbbuffergetandcheckheader(SmbBuffer *b, SmbHeader *h, uchar command, int response, uchar **pdatap, ushort *bytecountp, char **errmsgp)
+{
+	if (!smbbuffergetheader(b, h, pdatap, bytecountp)) {
+		smbstringprint(errmsgp, "smbbuffergetandcheckheader: not enough data for header");
+		return 0;
+	}
+	return smbcheckheader(h, command, response, errmsgp);
+}
+
+int
+smbsuccess(SmbHeader *h, char **errmsgp)
+{
+	if (h->errclass != SUCCESS) {
+		smbstringprint(errmsgp, "%s returned error %d/%d", smboptable[h->command].name, h->errclass, h->error);
+		return 0;
+	}
+	return 1;
+}
+
+#define BASE_FLAGS (0)
+
+int
+smbbufferputheader(SmbBuffer *b, SmbHeader *h, SmbPeerInfo *p)
+{
+	SmbRawHeader *rh;
+	if (offsetof(SmbRawHeader, parameterwords[0]) > smbbufferwritespace(b))
+		return 0;
+	if (smbbufferwriteoffset(b) == 0) {
+		rh = (SmbRawHeader *)smbbufferwritepointer(b);
+		rh->protocol[0] = 0xff;
+		memcpy(rh->protocol + 1, "SMB", 3);
+		rh->flags = SMB_FLAGS_SERVER_TO_REDIR | SmbHeaderFlagCaseless;
+		rh->command = h->command;
+		smbhnputs(rh->flags2, BASE_FLAGS | (smbsendunicode(p) ? SMB_FLAGS2_UNICODE : 0));
+		memset(rh->extra, 0, sizeof(rh->extra));
+		if (!smbbufferputbytes(b, nil, offsetof(SmbRawHeader, parameterwords[0])))
+			return 0;
+		rh->wordcount = h->wordcount;
+	}
+	else {
+		rh = (SmbRawHeader *)smbbufferreadpointer(b);
+		smbbufferputb(b, h->wordcount);
+	}
+	rh->status[0] = h->errclass;
+	rh->status[1] = 0;
+	smbhnputs(rh->status + 2, h->error);
+	smbhnputs(rh->tid, h->tid);
+	smbhnputs(rh->pid, h->pid);
+	smbhnputs(rh->uid, h->uid);
+	smbhnputs(rh->mid, h->mid);
+	return 1;
+}
+
+int
+smbbufferputerror(SmbBuffer *s, SmbHeader *h, SmbPeerInfo *p, uchar errclass, ushort error)
+{
+	h->errclass = errclass;
+	h->error = error;
+	return smbbufferputheader(s, h, p);
+}
+
+int
+smbbufferputandxheader(SmbBuffer *b, SmbHeader *h, SmbPeerInfo *p, uchar andxcommand, ulong *andxoffsetfixupp)
+{
+	if (!smbbufferputheader(b, h, p)
+		|| !smbbufferputb(b, andxcommand)
+		|| !smbbufferputb(b, 0))
+		return 0;
+	*andxoffsetfixupp = smbbufferwriteoffset(b);
+	return smbbufferputbytes(b, nil, 2);
+}
+
+void
+smbseterror(SmbSession *s, uchar errclass, ushort error)
+{
+	s->errclass = errclass;
+	s->error = error;
+}
+
+SmbProcessResult
+smbbufferputack(SmbBuffer *b, SmbHeader *h, SmbPeerInfo *p)
+{
+	h->wordcount = 0;
+	return smbbufferputheader(b, h, p) && smbbufferputs(b, 0) ? SmbProcessResultReply : SmbProcessResultMisc;
+}
+
+ushort
+smbplan9mode2dosattr(ulong mode)
+{
+	if (mode & DMDIR)
+		return SMB_ATTR_DIRECTORY;
+	return SMB_ATTR_NORMAL;
+}
+
+ulong
+smbdosattr2plan9mode(ushort attr)
+{
+	ulong mode = 0444;
+	if ((attr & SMB_ATTR_READ_ONLY) == 0)
+		mode |= 0222;
+	if (attr & SMB_ATTR_DIRECTORY) {
+		mode |= DMDIR | 0711;
+		mode &= DMDIR | 0755;
+	}
+	else
+		mode &= 0744;
+	return mode;
+}
+
+ulong
+smbdosattr2plan9wstatmode(ulong oldmode, ushort attr)
+{
+	ulong mode;
+	if (oldmode & DMDIR)
+		attr |= SMB_ATTR_DIRECTORY;
+	else
+		attr &= ~SMB_ATTR_DIRECTORY;
+	mode = smbdosattr2plan9mode(attr);
+	if (oldmode & 0444)
+		mode = (mode & ~0444) | (mode & 0444);
+	if ((attr & SMB_ATTR_READ_ONLY) == 0)
+		mode |= oldmode & 0222;
+	if (mode == oldmode)
+		mode = 0xffffffff;
+	return mode;
+}
+
+ulong
+smbplan9length2size32(vlong length)
+{
+	if (length > 0xffffffff)
+		return 0xffffffff;
+	return length;
+}
+
+vlong
+smbl2roundupvlong(vlong v, int l2)
+{
+	ulong mask;
+	mask = (1 << l2) - 1;
+	return (v + mask) & ~mask;
+}
+
+SmbSlut smbsharemodeslut[] = {
+	{ "compatibility", SMB_OPEN_MODE_SHARE_COMPATIBILITY },
+	{ "exclusive", SMB_OPEN_MODE_SHARE_EXCLUSIVE },
+	{ "denywrite", SMB_OPEN_MODE_SHARE_DENY_WRITE },
+	{ "denyread", SMB_OPEN_MODE_SHARE_DENY_READOREXEC },
+	{ "denynone", SMB_OPEN_MODE_SHARE_DENY_NONE },
+	{ 0 }
+};
+
+SmbSlut smbopenmodeslut[] = {
+	{ "oread", OREAD },
+	{ "owrite", OWRITE },
+	{ "ordwr", ORDWR },
+	{ "oexec", OEXEC },
+	{ 0 }
+};
+
+int
+smbslut(SmbSlut *s, char *pat)
+{
+	while (s->name) {
+		if (cistrcmp(s->name, pat) == 0)
+			return s->val;
+		s++;
+	}
+	return -1;
+}
+
+char *
+smbrevslut(SmbSlut *s, int val)
+{
+	while (s->name) {
+		if (s->val == val)
+			return s->name;
+		s++;
+	}
+	return nil;
+}