/*

Directory Opus 4
Original GPL release version 4.12
Copyright 1993-2000 Jonathan Potter

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

All users of Directory Opus 4 (including versions distributed
under the GPL) are entitled to upgrade to the latest version of
Directory Opus version 5 at a reduced price. Please see
http://www.gpsoft.com.au for more information.

The release of Directory Opus 4 under the GPL in NO WAY affects
the existing commercial status of Directory Opus 5.

*/

#include "dopuslib.h"

__saveds DoSendPacket(register struct MsgPort *port __asm("a0"),
    register int action __asm("d0"),
    register ULONG *args __asm("a1"),
    register int nargs __asm("d1"))
{
    struct StandardPacket *packet;
    struct MsgPort *repport;
    struct Process *myproc;
    int count,res1,a;
    ULONG *pargs;

    myproc=(struct Process *)FindTask(NULL);
    if (!(packet=AllocMem(sizeof(struct StandardPacket),MEMF_PUBLIC|MEMF_CLEAR)))
        return(0);
    if (!(repport=LCreatePort(NULL,0))) {
        FreeMem(packet,sizeof(struct StandardPacket));  
        return(0);
    }

    packet->sp_Msg.mn_Node.ln_Name=(char *)&(packet->sp_Pkt);
    packet->sp_Pkt.dp_Link=&(packet->sp_Msg);
    packet->sp_Pkt.dp_Port=repport;
    packet->sp_Pkt.dp_Type=action;

    pargs=(ULONG *)&(packet->sp_Pkt.dp_Arg1);
    if (nargs>7) nargs=7;
    for (count=0;count<nargs;count++) pargs[count]=args[count];

    PutMsg(port,(struct Message *)packet);
    WaitPort(repport);
    GetMsg(repport);

    res1=packet->sp_Pkt.dp_Res1;
    a=packet->sp_Pkt.dp_Res2;
    FreeMem(packet,sizeof(struct StandardPacket));
    LDeletePort(repport);
    if (myproc) myproc->pr_Result2=a;
    return(res1);   
}

ULONG __saveds DoAllocRemember(register struct DOpusRemember **key __asm("a0"),
    register ULONG size __asm("d0"),
    register ULONG type __asm("d1"))
{
    struct DOpusRemember *node,*cur;

    size+=sizeof(struct DOpusRemember);
    if (!(node=AllocMem(size,type))) return(NULL);
    node->next=NULL;
    if ((*key)==NULL) {
        node->current=node;
        (*key)=node;
    }
    else {
        cur=(*key)->current;
        (*key)->current=node;
        cur->next=node;
    }
    node->size=size;
    size=(ULONG)node+sizeof(struct DOpusRemember);
    return((ULONG)size);
}

void __saveds DoFreeRemember(register struct DOpusRemember **key __asm("a0"))
{
    struct DOpusRemember *node,*cur;

    if ((*key)==NULL) return;
    node=(*key);
    while (node) {
        cur=node->next;
        FreeMem(node,node->size);
        node=cur;
    }
    (*key)=NULL;
}

void __saveds DoFreeRemEntry(register struct DOpusRemember **key __asm("a0"),
    register char *pointer __asm("a1"))
{
    struct DOpusRemember *node,*last=NULL;

    if ((*key)==NULL) return;
    pointer-=sizeof(struct DOpusRemember);

    node=(*key);
    while (node) {
        if (node==(struct DOpusRemember *)pointer) {
            if (last) last->next=node->next;
            if ((*key)->current==node) (*key)->current=last;
            if (node==(*key)) {
                last=(*key)->current;
                if (((*key)=node->next)) (*key)->current=last;
            }
            FreeMem(node,node->size);
            break;
        }
        last=node;
        node=node->next;
    }
}