workbench/libs/muimaster/support_amigaos.c

   1 #include <stdarg.h>
   2 #include <stdio.h>
   3 #include <string.h>
   4 #include <stdarg.h>
   5
   6 #include <clib/alib_protos.h>
   7 #include <proto/exec.h>
   8 #include <proto/intuition.h>
   9 #include <proto/utility.h>
  10
  11 #include "support_amigaos.h"
  12
  13 /***************************************************************************/
  14
  15 #ifndef __amigaos4__
  16
  17 /************************************************************
  18  Like AllocVec() but for pools
  19 *************************************************************/
  20 APTR AllocVecPooled(APTR pool, ULONG size)
  21 {
  22     IPTR *memory;
  23
  24     if (pool == NULL) return NULL;
  25
  26     size   += sizeof(IPTR);
  27     memory  = AllocPooled(pool, size);
  28
  29     if (memory != NULL)
  30     {
  31         *memory++ = size;
  32     }
  33
  34     return memory;
  35 }
  36
  37 /************************************************************
  38  Like FreeVec() but for pools
  39 *************************************************************/
  40 VOID FreeVecPooled(APTR pool, APTR memory)
  41 {
  42     if (memory != NULL)
  43     {
  44         IPTR *real = (IPTR *) memory;
  45         IPTR size  = *--real;
  46
  47         FreePooled(pool, real, size);
  48     }
  49 }
  50
  51 struct snprintf_msg
  52 {
  53         int size;
  54         char *buf;
  55 };
  56
  57 /************************************************************
  58  Snprintf function for RawDoFmt()
  59 *************************************************************/
  60 __asm void snprintf_func(register __d0 UBYTE chr, register __a3 struct snprintf_msg *msg)
  61 {
  62     if (msg->size)
  63     {
  64                   *msg->buf++ = chr;
  65         msg->size--;
  66     }
  67 }
  68
  69 /************************************************************
  70  Snprintf via RawDoFmt()
  71 *************************************************************/
  72 int snprintf(char *buf, int size, const char *fmt, ...)
  73 {
  74     struct snprintf_msg msg;
  75                 if (!size) return 0;
  76
  77     msg.size = size;
  78     msg.buf = buf;
  79
  80     RawDoFmt(fmt, (((ULONG *)&fmt)+1), snprintf_func, &msg);
  81
  82     buf[size-1] = 0;
  83
  84     return (int)strlen(buf);
  85 }
  86
  87 /************************************************************
  88  sprintf via RawDoFmt()
  89 *************************************************************/
  90 int sprintf(char *buf, const char *fmt, ...)
  91 {
  92                 static const ULONG cpy_func = 0x16c04e75; /* move.b d0,(a3)+ ; rts */
  93                 RawDoFmt(fmt, (((ULONG *)&fmt)+1), (void(*)())&cpy_func, buf);
  94                 return (int)strlen(buf);
  95 }
  96
  97 Object *VARARGS68K DoSuperNewTags(struct IClass *cl, Object *obj, void *dummy, ...)
  98 {
  99     va_list argptr;
 100     va_start(argptr,dummy);
 101     obj = DoSuperNewTagList(cl,obj,dummy,(struct TagItem*)argptr);
 102     va_end(argptr);
 103     return obj;
 104 }
 105
 106 #else
 107
 108
 109 ASM ULONG HookEntry(REG(a0, struct Hook *hook),REG(a2, APTR obj), REG(a1, APTR msg))
 110 {
 111         return hook->h_SubEntry(hook,obj,msg);
 112 }
 113
 114 Object *VARARGS68K DoSuperNewTags(struct IClass *cl, Object *obj, void *dummy, ...)
 115 {
 116     va_list argptr;
 117     struct TagItem *tagList;
 118
 119     va_startlinear(argptr, dummy);
 120     tagList = va_getlinearva(argptr, struct TagItem *);
 121     obj = DoSuperNewTagList(cl,obj,dummy,tagList);
 122     va_end(argptr);
 123     return obj;
 124 }
 125
 126 int VARARGS68K SPrintf(char *buf, const char *fmt, ...)
 127 {
 128     va_list argptr;
 129     APTR args;
 130
 131     va_startlinear(argptr, fmt);
 132     args = va_getlinearva(argptr, APTR);
 133     RawDoFmt((STRPTR)fmt, args, NULL, buf);
 134     va_end(argptr);
 135
 136     return (int)strlen(buf);
 137 }
 138
 139
 140 #endif
 141
 142 /***************************************************************************/
 143
 144 char *StrDup(const char *x)
 145 {
 146     char *dup;
 147     if (!x) return NULL;
 148     dup = AllocVec(strlen(x) + 1, MEMF_PUBLIC);
 149     if (dup) CopyMem((char*)x, dup, strlen(x) + 1);
 150     return dup;
 151 }
 152
 153 Object *DoSuperNewTagList(struct IClass *cl, Object *obj,void *dummy, struct TagItem *tags)
 154 {
 155           return (Object*)DoSuperMethod(cl,obj,OM_NEW,tags,NULL);
 156 }
 157
 158 size_t strlcat(char *buf, const char *src, size_t len)
 159 {
 160     int l = strlen(buf);
 161     buf += l;
 162     len -= l;
 163
 164     if (len>0)
 165     {
 166         int i;
 167         for (i=0; i < len - 1 && *src; i++)
 168             *buf++ = *src++;
 169         *buf = 0;
 170     }
 171     return 0; /* Actually don't know right rt here */
 172 }