/*
** vbcc-PowerOpen/WarpOS version of rename.c
**
** v1.0 29.10.98 phx
**      switched to Volker's (simple) version, which is also
**      used in M68k and PowerUp
** v0.2 01.08.98 phx
**      more ANSI, dest-file will be deleted if present, errno
** v0.1 06.03.98 phx
*/

#include <stdio.h>
#include <dos/dos.h>
#include <powerpc/powerpc.h>
#include <clib/powerpc_protos.h>

extern ULONG DOSBase;

int rename(const char *old,const char *new)
{
  struct PPCArgs pa;

  pa.PP_Code = (APTR)DOSBase;
  pa.PP_Flags = pa.PP_StackSize = 0;
  pa.PP_Stack = NULL;
  pa.PP_Offset = -78;  /* _LVORename */
  pa.PP_Regs[PPREG_D1] = (ULONG)old;
  pa.PP_Regs[PPREG_D2] = (ULONG)new;
  pa.PP_Regs[PPREG_A6] = DOSBase;
  Run68K(&pa);
  return (!pa.PP_Regs[PPREG_D0]);
}