/*-
 * $Id: support.c,v 1.2 90/02/03 17:01:19 Rhialto Exp $
 * $Log:       support.c,v $
 * Revision 1.2  90/02/03  17:01:19  Rhialto
 * Add error checking in dosalloc()
 * 
 * Revision 1.1  89/12/17  19:57:50  Rhialto
 * Initial revision
 *
-*/

#include "dos.h"

extern PORT    *DosPort;       /* Our DOS port... */

typedef unsigned long          ulong;
typedef unsigned char          ubyte;

/*
 * PACKET ROUTINES.    Dos Packets are in a rather strange format as you
 * can see by this and how the PACKET structure is extracted in the
 * GetMsg() of the main routine.
 */

void
returnpacket(packet)
register struct DosPacket *packet;
{
    register struct Message *mess;
    register struct MsgPort *replyport;

    replyport = packet->dp_Port;
    mess = packet->dp_Link;
    packet->dp_Port = DosPort;
    mess->mn_Node.ln_Name = (char *) packet;
    mess->mn_Node.ln_Succ = NULL;
    mess->mn_Node.ln_Pred = NULL;
    PutMsg(replyport, mess);
}

/*
 * Are there any packets queued to our device?
 */

int
packetsqueued()
{
    return ((void *) DosPort->mp_MsgList.lh_Head !=
           (void *) &DosPort->mp_MsgList.lh_Tail);     /* & inserted by OIS */
}

/*
 * DOS MEMORY ROUTINES
 */

void          *
dosalloc(bytes)
register ulong bytes;
{
    register ulong *ptr;

    bytes += sizeof (*ptr);
    if (ptr = AllocMem(bytes, MEMF_PUBLIC | MEMF_CLEAR)) {
       *ptr = bytes;
       return (ptr + 1);
    }

    return NULL;
}

dosfree(ptr)
register ulong *ptr;
{
    --ptr;
    FreeMem(ptr, *ptr);
}

/*
 * Convert a BSTR into a normal string.. copying the string into buf. I
 * use normal strings for internal storage, and convert back and forth
 * when required.
 */

void
btos(bstr, buf)
ubyte         *bstr;
ubyte         *buf;
{
    bstr = BTOC(bstr);
    bmov(bstr + 1, buf, *bstr);
    buf[*bstr] = 0;
}

/*
 * Some EXEC list handling routines not found in the EXEC library.
 */

#ifdef notdef

void          *
NextNode(node)
register NODE          *node;
{
    node = node->mln_Succ;
    if (node->mln_Succ == NULL)
       return (NULL);
    return (node);
}

#endif

void          *
GetHead(list)
register LIST          *list;
{
    if ((void *) list->mlh_Head != (void *) &list->mlh_Tail)
       return (list->mlh_Head);
    return (NULL);
}

void          *
GetTail(list)
register LIST          *list;
{
    if ((void *) list->mlh_Head != (void *) &list->mlh_Tail)
       return (list->mlh_TailPred);
    return (NULL);
}

#ifdef DEBUG
char          *
typetostr(ty)
long ty;
{
    switch (ty) {
    case ACTION_DIE:
       return ("DIE");
    case ACTION_CURRENT_VOLUME:
       return ("CURRENT VOLUME");
    case ACTION_OPENRW:
       return ("OPEN-RW");
    case ACTION_OPENOLD:
       return ("OPEN-OLD");
    case ACTION_OPENNEW:
       return ("OPEN-NEW");
    case ACTION_READ:
       return ("READ");
    case ACTION_WRITE:
       return ("WRITE");
    case ACTION_CLOSE:
       return ("CLOSE");
    case ACTION_SEEK:
       return ("SEEK");
    case ACTION_EXAMINE_NEXT:
       return ("EXAMINE NEXT");
    case ACTION_EXAMINE_OBJECT:
       return ("EXAMINE OBJ");
    case ACTION_INFO:
       return ("INFO");
    case ACTION_DISK_INFO:
       return ("DISK INFO");
    case ACTION_PARENT:
       return ("PARENTDIR");
    case ACTION_DELETE_OBJECT:
       return ("DELETE");
    case ACTION_CREATE_DIR:
       return ("CREATEDIR");
    case ACTION_LOCATE_OBJECT:
       return ("LOCK");
    case ACTION_COPY_DIR:
       return ("DUPLOCK");
    case ACTION_FREE_LOCK:
       return ("FREELOCK");
    case ACTION_SET_PROTECT:
       return ("SETPROTECT");
    case ACTION_SET_COMMENT:
       return ("SETCOMMENT");
    case ACTION_RENAME_OBJECT:
       return ("RENAME");
    case ACTION_INHIBIT:
       return ("INHIBIT");
    case ACTION_RENAME_DISK:
       return ("RENAME DISK");
    case ACTION_MORECACHE:
       return ("MORE CACHE");
    case ACTION_WAIT_CHAR:
       return ("WAIT FOR CHAR");
    case ACTION_FLUSH:
       return ("FLUSH");
    case ACTION_RAWMODE:
       return ("RAWMODE");
    case ACTION_SET_DATE:
       return ("SET_DATE");
    default:
       return ("---------UNKNOWN-------");
    }
}

#endif                         /* DEBUG */