Macintosh-SW/CAP
1
0
Fork 0
mirror of https://github.com/mabam/CAP.git synced 2024-06-27 01:29:30 +00:00
Code Issues Projects Releases Wiki Activity
ab979f639d
CAP/lib/afp/afpcmd.c
mabam 743b427168 CAP 6.0 pl198 + asip1
2015-03-18 22:05:00 +01:00

657 lines
13 KiB
C
Raw Blame History

/*
* $Author: djh $ $Date: 1995/05/30 08:51:20 $
* $Header: /mac/src/cap60/lib/afp/RCS/afpcmd.c,v 2.5 1995/05/30 08:51:20 djh Rel djh $
* $Revision: 2.5 $
*
*/
/*
* afpcmd.c - Packing and unpacking commands
*
* AppleTalk package for UNIX (4.2 BSD).
*
* Copyright (c) 1986, 1987 by The Trustees of Columbia University in the
* City of New York.
*
* WARNING: if your machine is not a vax, sun, ibm pc/rt or pyramid you
* (or Configure) must define BYTESWAPPED if your machine is byteswapped
*
* Edit History:
*
* Thu Oct 30 Schilit Created
*
*/
#include <sys/types.h>
#include <sys/time.h>
#include <netinet/in.h> /* for ntohs, etc. */
#include <netat/appletalk.h>
#include <netat/afp.h>
#include <netat/afpcmd.h>
#ifndef BYTESWAPPED
# ifdef ultrix
# ifdef mips
# define BYTESWAPPED
# endif mips
# endif ultrix
#endif BYTESWAPPED
#ifndef BYTESWAPPED
# ifdef vax
# define BYTESWAPPED
# endif vax
#endif BYTESWAPPED
#ifndef BYTESWAPPED
# ifdef ns16000
# define BYTESWAPPED
# endif ns16000
#endif BYTESWAPPED
#ifndef BYTESWAPPED
# ifdef ns32000
# define BYTESWAPPED
# endif ns32000
#endif BYTESWAPPED
/* add this in case sequent doesn't define nsxxxxx */
#ifndef BYTESWAPPED
# ifdef sequent
# define BYTESWAPPED
# endif sequent
#endif BYTESWAPPED
#ifndef BYTESWAPPED
# ifdef MIPSEL
# define BYTESWAPPED
# endif MIPSEL
#endif BYTESWAPPED
#ifndef BYTESWAPPED
# ifdef i386
# define BYTESWAPPED
# endif i386
#endif BYTESWAPPED
/* machines that aren't byteswapped include: ibm032, pyr, sun, hpux, etc */
#ifndef NULL
#define NULL 0
#endif NULL
export void InitPackTime();
char *PackNames[] = {
"Word", /* P_WORD */
"Byte", /* P_BYTE */
"Double Word", /* P_DWRD */
"Bytes", /* P_BYTS */
"Pascal String", /* P_PSTR */
"BitMap", /* P_BMAP */
"Offset String", /* P_OSTR */
"Path String", /* P_PATH */
"Offset to Pointer", /* P_OPTR */
"Offset Path", /* P_OPTH */
"Even boundary", /* P_EVEN */
"Zero", /* P_ZERO */
"Time" /* P_TIME */
};
/*
* Convert between Internal Unix time and External AFP time.
*
* All date and time quantities used by AFP are Greenwich Mean Time (GMT)
* values. They are 32 bit signed integers corresponding to the number of
* seconds measured from 12:00AM January 1, 2000 (the start of the next
* century corresponds to datetime=0).
*
* BSD time base is 12:00AM January 1, 1970
* AFP time base is 12:00AM January 1, 2000
*
* Actually, it seems that the Mac sends MacTime - could it be
* that our copy of AppleShare does the wrong thing? Version 1.00 was
* bad. Fixed in 1.10 and (hopefully) beyond.
*
* Another problem exists with DST which is not handled here.
* I mean, things will be within 2 hours isn't that good enough :-)
*
* WARNING: if this code breaks, it will be on or near Jan 1, 2000
* or Jan 18, 2038. Of course, it's doubtful that this code
* will last that long :-)
*
*/
private int mactime_not_inited = 1;
private long mymactime;
private long maczerotime;
/* difference btwn unix and mac in seconds */
/* mac starts at jan 1, 1904 for appleshare 1.0 */
#define AS1DOT0_MACZEROTIME 0 /* zero time - see comments above */
#define AS1DOT0_MACTIME (66*365+17)*24*60*60L
/* difference btween midnight jan 1, 1970 and midnight jan 1, 2000 */
/* for all others */
#define MACTIME (((30*365+7)*(-24)*3600L))
#define MACZEROTIME 0x80000000 /* zero time - from AppleShare 1.1 on */
/* Does time zone adjustment */
/*
* call with flag set for appleshare 10 style
*
*/
export void
InitPackTime(flag)
int flag;
{
struct timeval tp;
struct timezone tzp;
mactime_not_inited = 0;
if (flag) {
mymactime = AS1DOT0_MACTIME;
maczerotime = AS1DOT0_MACZEROTIME;
} else {
mymactime = MACTIME;
maczerotime = MACZEROTIME;
}
#ifdef SOLARIS
tzset();
mymactime -= ((long)timezone);
#else /* SOLARIS */
gettimeofday(&tp, &tzp);
mymactime -= ((long)tzp.tz_minuteswest*60);
#endif /* SOLARIS */
return;
}
int
ntohPackX(pt, net, nlen, host)
PackEntry *pt;
byte *net;
byte *host;
int nlen;
{
int ntohPackXbitmap();
return(ntohPackXbitmap(pt, net, nlen, host, (word)0));
}
int
ntohPackXbitmap(pt, net, nlen, host, bitmap)
PackEntry *pt;
byte *net;
byte *host;
int nlen;
word bitmap;
{
int i;
int si = 0;
word bmap = bitmap;
void upack();
/* need to find bmap */
for (i=0; pt[i].pe_typ != P_END; i++)
if (si < nlen)
upack(&pt[i],net,&si,host,&bmap); /* unpack each item */
return(si);
}
typedef struct Var_Object {
int vo_typ; /* type of variable object */
byte *vo_offset; /* store offset word (INT) here */
byte *vo_object; /* pointer to the object to store */
} VarObject;
typedef struct {
int vol_first; /* index at start of var objects */
int vol_count; /* count of var objects */
VarObject vol_vos[10]; /* array of variable objects */
} VarObjList;
/*
* Convert Packet from Host to Net, returns size of net packet.
*
*/
int
htonPackX(pe, host, net)
PackEntry *pe;
byte *host;
byte *net;
{
return(htonPackXbitmap(pe, host, net, 0));
}
int
htonPackXbitmap(pe, host, net, bitmap)
PackEntry *pe;
byte *host;
byte *net;
word bitmap;
{
VarObjList vol;
int i;
word bmap = bitmap;
int nidx = 0;
void pack();
vol.vol_first = 0; /* position 0 for first var object */
vol.vol_count = 0; /* no var objects */
for (i=0; pe[i].pe_typ != P_END; i++)
pack(&pe[i],host,net,&nidx,&bmap,&vol);
/* scan variable length object list and pack them now */
for (i = 0; i < vol.vol_count; i++) {
byte *d;
VarObject *vo;
OPTRType *optr,**optrr;
word wrd;
vo = &vol.vol_vos[i]; /* handle on a var object */
/* set offset from start (in remember spot) */
wrd = htons(nidx-vol.vol_first);
bcopy(&wrd, vo->vo_offset, sizeof(word));
d = &net[nidx]; /* destination */
/* assume object is PSTR */
switch (vo->vo_typ) {
case P_OSTR:
cpyc2pstr(d,vo->vo_object); /* copy the pascal string */
nidx += (*d)+1;
break;
case P_OPTR: /* is a variable length object */
optrr = (OPTRType **) (vo->vo_object);
optr = *optrr;
bcopy(optr->optr_loc,d,optr->optr_len); /* copy the bytes */
nidx += optr->optr_len; /* increment length */
break;
}
}
return(nidx); /* return length */
}
/*
* Pack host to net.
*
*/
void
pack(pe, src, dest, di, bmap, vol)
PackEntry *pe;
byte *src, *dest;
int *di;
VarObjList *vol;
word *bmap;
{
byte *s, *d, *t;
int siz;
word wrd;
dword dwrd;
sdword sdwrd;
if (pe->pe_bit != 0) { /* check if bitmap item */
if ((*bmap & pe->pe_bit) == 0) /* see if a requested bitmap item */
return; /* no, forget it */
}
d = &dest[*di]; /* destination is net */
s = &src[pe->pe_off]; /* source is host */
siz = pe->pe_siz;
switch (pe->pe_typ) { /* according to the data type */
case P_BMAP: /* bitmap (2 bytes) */
t = (byte *)bmap;
t[0] = s[0];
t[1] = s[1];
vol->vol_first = *di; /* offset */
break; /* BITMAP does NOT get included */
case P_WORD: /* word (2 bytes) */
#ifdef BYTESWAPPED
d[0] = s[1];
d[1] = s[0];
#else BYTESWAPPED
d[0] = s[0];
d[1] = s[1];
#endif BYTESWAPPED
*di += 2;
break;
case P_DWRD: /* double word (4 bytes) */
#ifdef BYTESWAPPED
d[0] = s[3];
d[1] = s[2];
d[2] = s[1];
d[3] = s[0];
#else BYTESWAPPED
d[0] = s[0];
d[1] = s[1];
d[2] = s[2];
d[3] = s[3];
#endif BYTESWAPPED
*di += 4;
break;
case P_BYTE: /* single byte */
d[0] = s[0];
*di += 1;
break;
case P_BYTS: /* multiple bytes */
bcopy((char *)s, (char *)d, siz);
*di += siz;
break;
case P_TIME: /* internal to external time conv. */
t = (byte *)&sdwrd;
t[0] = s[0];
t[1] = s[1];
t[2] = s[2];
t[3] = s[3];
if (mactime_not_inited)
InitPackTime(0); /* assume version 1.0 obsolete */
if ((time_t)sdwrd == 0)
sdwrd = maczerotime;
else
sdwrd += mymactime;
#ifdef BYTESWAPPED
d[0] = t[3];
d[1] = t[2];
d[2] = t[1];
d[3] = t[0];
#else BYTESWAPPED
d[0] = t[0];
d[1] = t[1];
d[2] = t[2];
d[3] = t[3];
#endif BYTESWAPPED
*di += 4; /* advance */
break;
case P_PSTR: /* c to pascal string */
cpyc2pstr(d,s);
*di += (*d)+1;
break;
case P_OPTR:
case P_OSTR: /* offset string */
{
VarObject *vo;
vo = &vol->vol_vos[vol->vol_count++]; /* handle on object entry */
vo->vo_typ = pe->pe_typ; /* save type */
vo->vo_object = s; /* the object to pack */
vo->vo_offset = d; /* location to store offset */
*di += 2; /* increment by offset size */
}
break;
case P_PATH:
bcopy(s,d,(int) (*s)+1); /* pascal string with imbedded nulls */
*di += (*s)+1;
break;
case P_EVEN:
if ((*di % 2) != 0) {
*d = 0; /* zero the current byte */
(*di)++;
}
break;
case P_ZERO:
bzero(d, siz);
*di += siz;
break;
}
return;
}
/*
* Unpack net to host. Source is net, dest is host.
*
*/
void
upack(pe, src, si, dest, bmap)
PackEntry *pe;
int *si;
byte *src, *dest;
word *bmap;
{
word sos;
byte *d, *s, *t;
word wrd;
dword dwrd;
time_t timet;
int siz;
if (pe->pe_bit != 0) /* check bitmap active */
if ((*bmap & pe->pe_bit) == 0) /* then if not a bitmap item */
return; /* forget it */
d = &dest[pe->pe_off]; /* remember host destination */
s = &src[*si]; /* net source */
siz = pe->pe_siz;
switch (pe->pe_typ) { /* according to the data type */
case P_BMAP: /* bitmap (2 bytes) */
t = (byte *)bmap;
t[0] = d[0];
t[1] = d[1];
break;
case P_WORD: /* word (2 bytes) */
#ifdef BYTESWAPPED
d[0] = s[1];
d[1] = s[0];
#else BYTESWAPPED
d[0] = s[0];
d[1] = s[1];
#endif BYTESWAPPED
*si += 2;
break;
case P_DWRD: /* double word (4 bytes) */
#ifdef BYTESWAPPED
d[0] = s[3];
d[1] = s[2];
d[2] = s[1];
d[3] = s[0];
#else BYTESWAPPED
d[0] = s[0];
d[1] = s[1];
d[2] = s[2];
d[3] = s[3];
#endif BYTESWAPPED
*si += 4;
break;
case P_BYTE: /* byte (1 byte) */
d[0] = s[0];
*si += 1;
break;
case P_BYTS: /* byte string */
bcopy(s,d,siz); /* copy bytes */
*si += siz;
break;
case P_TIME: /* external to internal time conv. */
t = (byte *)&timet;
#ifdef BYTESWAPPED
t[0] = s[3];
t[1] = s[2];
t[2] = s[1];
t[3] = s[0];
#else BYTESWAPPED
t[0] = s[0];
t[1] = s[1];
t[2] = s[2];
t[3] = s[3];
#endif BYTESWAPPED
if (mactime_not_inited)
InitPackTime(0); /* assume version 1.0 obsolete */
if ((sdword)timet == maczerotime)
timet = 0;
else
timet = (time_t)((sdword)timet - mymactime);
d[0] = t[0];
d[1] = t[1];
d[2] = t[2];
d[3] = t[3];
*si += 4; /* advance */
break;
case P_PSTR: /* c to pascal string */
cpyp2cstr(d, s);
*si += (*s)+1;
break;
case P_OSTR: /* offset string */
t = (byte *)&sos;
#ifdef BYTESWAPPED
t[0] = s[1];
t[1] = s[0];
#else BYTESWAPPED
t[0] = s[0];
t[1] = s[1];
#endif BYTESWAPPED
*si += 2;
cpyp2cstr(d, &src[sos]); /* copy string */
break;
case P_OPTH:
t = (byte *)&sos;
#ifdef BYTESWAPPED
t[0] = s[1];
t[1] = s[0];
#else BYTESWAPPED
t[0] = s[0];
t[1] = s[1];
#endif BYTESWAPPED
*si += 2;
bcopy(&src[sos], d, (int)src[sos]+1); /* copy string */
break;
case P_PATH:
bcopy(s, d, (int)(*s)+1); /* pascal string with imbedded nulls */
*si += (*s)+1;
break;
case P_OPTR:
t = (byte *)&sos;
#ifdef BYTESWAPPED
t[0] = s[1];
t[1] = s[0];
#else BYTESWAPPED
t[0] = s[0];
t[1] = s[1];
#endif BYTESWAPPED
*si += 2;
*((char **)d) = (char *)&src[sos];
break;
case P_EVEN:
if ((*si % 2) != 0) /* even boundary? */
(*si)++; /* no, move ahead */
break;
case P_ZERO: /* supposed to be zero? */
*si += siz; /* then, just skip */
*d = 0; /* zero dest */
break;
}
return;
}
/*
* void PackDWord(dword s, byte *d)
*
* Pack a double word into destination.
*
*/
void
PackDWord(s, d)
dword s;
byte *d;
{
byte *t = (byte *)&s;
#ifdef BYTESWAPPED
d[0] = t[3];
d[1] = t[2];
d[2] = t[1];
d[3] = t[0];
#else BYTESWAPPED
d[0] = t[0];
d[1] = t[1];
d[2] = t[2];
d[3] = t[3];
#endif BYTESWAPPED
return;
}
/*
* void PackWord(dword s, byte *d)
*
* Pack a word into destination.
*
*/
void
PackWord(s, d)
word s;
byte *d;
{
byte *t = (byte *)&s;
#ifdef BYTESWAPPED
d[0] = t[1];
d[1] = t[0];
#else BYTESWAPPED
d[0] = t[0];
d[1] = t[1];
#endif BYTESWAPPED
return;
}
/*
*
* Unpack double word (4 bytes) from src into dest.
* The src pointer is updated.
*
*/
void
UnpackDWord(src, dest)
byte **src;
dword *dest;
{
byte *s = *src;
byte *d = (byte *)dest;
#ifdef BYTESWAPPED
d[0] = s[3];
d[1] = s[2];
d[2] = s[1];
d[3] = s[0];
#else BYTESWAPPED
d[0] = s[0];
d[1] = s[1];
d[2] = s[2];
d[3] = s[3];
#endif BYTESWAPPED
*src += 4; /* update source pointer */
return;
}
/*
*
* Unpack word (2 bytes) from src into dest.
* The src pointer is updated.
*
*/
void
UnpackWord(src, dest)
byte **src;
word *dest;
{
byte *s = *src;
byte *d = (byte *)dest;
#ifdef BYTESWAPPED
d[0] = s[1];
d[1] = s[0];
#else BYTESWAPPED
d[0] = s[0];
d[1] = s[1];
#endif BYTESWAPPED
*src += 2; /* update source pointer */
return;
}
Reference in New Issue View Git Blame Copy Permalink