workbench/system/Wanderer/portable_utils.c

   1 #include "portable_macros.h"
   2
   3 #include <stdio.h>
   4 #include <string.h>
   5 #include <time.h>
   6
   7 #include <proto/exec.h>
   8 #include <proto/utility.h>
   9
  10 #include <proto/graphics.h>
  11 #include <proto/datatypes.h>
  12 #include <proto/dos.h>
  13 #include <proto/icon.h>
  14 #include <proto/locale.h>
  15 #include <proto/layers.h>
  16 #include <proto/diskfont.h>
  17 #include <proto/asl.h>
  18 #include <proto/keymap.h>
  19 #include <proto/iffparse.h>
  20 #include <exec/memory.h>
  21 #include <graphics/rastport.h>
  22 #include <intuition/pointerclass.h>
  23
  24 #if defined(__AMIGA__) && !defined(__PPC__)
  25 #define NO_INLINE_STDARG
  26 #endif
  27 #include <proto/intuition.h>
  28 #include <proto/muimaster.h>
  29
  30 #ifndef __AROS__
  31 #define DEBUG 1
  32
  33 #ifdef DEBUG
  34   #define D(x) if (DEBUG) x
  35   #ifdef __amigaos4__
  36   #define bug DebugPrintF
  37   #else
  38   #define bug kprintf
  39   #endif
  40 #else
  41   #define  D(...)
  42 #endif
  43 #endif
  44
  45
  46 #ifndef __MORPHOS__
  47 Object * VARARGS68K DoSuperNew(struct IClass *cl, Object *obj, ...)
  48 {
  49     Object *rc;
  50     VA_LIST args;
  51
  52     VA_START(args, obj);
  53
  54     rc = (Object *)DoSuperMethod(cl, obj, OM_NEW, VA_ARG(args, IPTR), NULL);
  55
  56     VA_END(args);
  57
  58     return rc;
  59 }
  60 #endif
  61
  62 Object *VARARGS68K DoSuperNewTags(struct IClass *cl, Object *obj, void *dummy, ...)
  63 {
  64     Object *rc;
  65     VA_LIST argptr;
  66
  67     VA_START(argptr, dummy);
  68
  69     rc = (Object*)DoSuperMethod(cl,obj,OM_NEW,VA_ARG(argptr, IPTR),dummy);
  70
  71     VA_END(argptr);
  72
  73     return rc;
  74 }
  75
  76 STRPTR StrDup (CONST_STRPTR str)
  77 {
  78     STRPTR dup;
  79     ULONG  len;
  80
  81     if (str == NULL) return NULL;
  82
  83     len = strlen(str);
  84     dup = AllocVec(len + 1, MEMF_PUBLIC);
  85     if (dup != NULL) CopyMem(str, dup, len + 1);
  86
  87     return dup;
  88
  89 } /* StrDup */
  90
  91
  92 struct RastPort *CreateRastPort(void)
  93 {
  94     struct RastPort *newrp = AllocMem(sizeof(*newrp), MEMF_PUBLIC);
  95
  96     if (newrp)
  97     {
  98         InitRastPort(newrp);
  99     }
 100
 101     return newrp;
 102 }
 103
 104 struct RastPort *CloneRastPort(struct RastPort *rp)
 105 {
 106     struct RastPort *newrp = NULL;
 107
 108     if (rp)
 109     {
 110         newrp = AllocMem(sizeof(*newrp), MEMF_PUBLIC);
 111         if (newrp)
 112         {
 113             // *newrp = *rp;
 114
 115             memcpy(newrp,rp,sizeof(struct RastPort));
 116         }
 117     }
 118
 119     return newrp;
 120 }
 121
 122 void FreeRastPort(struct RastPort *rp)
 123 {
 124     FreeMem(rp, sizeof(*rp));
 125 }
 126
 127
 128 BOOL AndRectRect(struct Rectangle *rect1, struct Rectangle *rect2, struct Rectangle *intersect)
 129 {
 130     if (!(((LONG)rect1 > 1024) && TypeOfMem((APTR)rect1)))
 131         D(bug("\x07, %ld: bad pointer: %s = $%lx\n", __LINE__, rect1, (APTR)(rect1)) );
 132
 133     if (!(((LONG)(rect2) > 1024) && TypeOfMem((APTR)(rect2))))
 134         D(bug("\x07, %ld: bad pointer: %s = $%lx\n", __LINE__, rect2, (APTR)(rect2)) );
 135
 136     if (!((((APTR)(intersect)) == NULL) ||  (((LONG)(intersect) > 1024) &&  TypeOfMem((APTR)(intersect)))))
 137         D(bug("\x07:%ld: bad pointer: %s = $%lx\n", __LINE__, intersect, (APTR)(intersect)));
 138
 139     if (intersect)
 140         return _AndRectRect(rect1, rect2, intersect);
 141     else
 142         return overlap(*rect1, *rect2);
 143
 144 } /* AndRectRect */
 145
 146 #if defined(__AMIGA__) && !defined(__PPC__)
 147 APTR AllocVecPooled(APTR  pool, ULONG size)
 148 {
 149
 150     IPTR *memory;
 151
 152     if (pool == NULL) return NULL;
 153
 154     size   += sizeof(IPTR);
 155     memory  = AllocPooled(pool, size);
 156
 157     if (memory != NULL)
 158     {
 159         *memory++ = size;
 160     }
 161
 162     return memory;
 163 } /* AllocVecPooled() */
 164
 165
 166 void FreeVecPooled(APTR pool, APTR memory)
 167 {
 168     if (memory != NULL)
 169     {
 170         IPTR *real = (IPTR *) memory;
 171         IPTR size  = *--real;
 172
 173         FreePooled(pool, real, size);
 174     }
 175 } /* FreeVecPooled() */
 176 #endif