dopus/Library/functions.c

   1 /*
   2 ; Directory Opus 4
   3 ; Original GPL release version 4.12
   4 ; Copyright 1993-2000 Jonathan Potter
   5 ;
   6 ; This program is free software; you can redistribute it and/or
   7 ; modify it under the terms of the GNU General Public License
   8 ; as published by the Free Software Foundation; either version 2
   9 ; of the License, or (at your option) any later version.
  10 ;
  11 ; This program is distributed in the hope that it will be useful,
  12 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 ; GNU General Public License for more details.
  15 ;
  16 ; You should have received a copy of the GNU General Public License
  17 ; along with this program; if not, write to the Free Software
  18 ; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  19 ;
  20 ; All users of Directory Opus 4 (including versions distributed
  21 ; under the GPL) are entitled to upgrade to the latest version of
  22 ; Directory Opus version 5 at a reduced price. Please see
  23 ; http://www.gpsoft.com.au for more information.
  24 ;
  25 ; The release of Directory Opus 4 under the GPL in NO WAY affects
  26 ; the existing commercial status of Directory Opus 5.
  27 */
  28 #define PROTO_DOPUS_H
  29 #include "dopuslib.h"
  30
  31 extern ULONG RangeSeed;
  32
  33 void __saveds GetWBScreen(register struct Screen *screen __asm("a0"))
  34 {
  35     struct Screen *scr;
  36
  37 D(bug("GetWBScreen()\n");/*Delay(50);*/)
  38     if ((scr = LockPubScreen(NULL/*"Workbench"*/)))
  39      {
  40       CopyMem(scr,screen,sizeof(struct Screen));
  41       UnlockPubScreen(NULL,scr);
  42      }
  43 }
  44
  45 void __saveds Seed(register int seed __asm("d0"))
  46 {
  47 D(bug("Seed()\n");/*Delay(50);*/)
  48     RangeSeed = FastRand(seed);
  49 }
  50
  51 UWORD /*__saveds*/ Random(register UWORD limit __asm("d0"))
  52 {
  53 D(bug("Random()\n");/*Delay(50);*/)
  54     return RangeRand(limit+1);
  55 }
  56
  57 void /*__saveds*/ BtoCStr(register BSTR bstr __asm("a0"), register char *cstr __asm("a1"), register int len __asm("d0"))
  58 {
  59 #ifndef __AROS__
  60     char *c = (char *)BADDR(bstr);
  61     short i = 0;
  62
  63 //D(bug("BtoCStr()\n"));
  64     len--;
  65     i = *((UBYTE *)c);
  66     c++;
  67     if (i < len) len = i;
  68     for(i=0;i<len;i++) *(cstr++)=*(c++);
  69     *cstr=0;
  70 #else
  71     short l;
  72
  73     l = AROS_BSTR_strlen(bstr);
  74     if (l + 1 > len)
  75         l = len - 1;
  76     CopyMem(AROS_BSTR_ADDR(bstr), cstr, l);
  77     cstr[l] = 0;
  78 #endif
  79 }
  80
  81 void SwapMem(register char *src __asm("a0"), register char *dst __asm("a1"), register int size __asm("d0"))
  82 {
  83     register char tmp;
  84
  85 //D(bug("SwapMem()\n");/*Delay(50);*/)
  86     for(;size;size--)
  87      {
  88       tmp = *dst;
  89       *dst++ = *src;
  90       *src++ = tmp;
  91      }
  92 }
  93
  94 #ifndef __AROS__
  95 void stuffChar(register char c __asm("d0"), register char **buf __asm("a3"))
  96 {
  97 //asm("moveb %d0,%a3@+");
  98     *(*buf) ++ = c;
  99 }
 100 #endif
 101
 102 #include <stdarg.h>
 103 #ifdef __AROS__
 104 #include <exec/rawfmt.h>
 105 #else
 106 #include <clib/alib_stdio_protos.h>
 107 #endif
 108
 109 void __saveds __stdargs LSprintf(char *buf, char *fmt, ...)
 110  {
 111   va_list args;
 112
 113 //D(bug("LSprintf()\n");/*Delay(50);*/)
 114   va_start(args,fmt);
 115 //    movem.l a2/a3/a6,-(sp)
 116 //    move.l 4*4(sp),a3
 117 //    move.l 5*4(sp),a0
 118 //    lea.l 6*4(sp),a1
 119 //    lea.l stuffChar(pc),a2
 120 //    move.l 4,a6
 121 //    jsr _LVORawDoFmt(a6)
 122 #ifdef __AROS__
 123   VNewRawDoFmt(fmt,RAWFMTFUNC_STRING,buf,args);
 124 #else
 125   RawDoFmt(fmt,args,stuffChar,&buf2);
 126 #endif
 127 //  sprintf(buf,fmt,args);
 128   va_end(args);
 129 //    movem.l (sp)+,a2/a3/a6
 130 //    rts
 131  }
 132
 133 unsigned char __saveds LToUpper(register unsigned char c __asm("d0"))
 134 {
 135 //D(bug("LToUpper()\n");/*Delay(50);*/)
 136     return ToUpper(c);
 137 }
 138
 139 unsigned char __saveds LToLower(register unsigned char c __asm("d0"))
 140 {
 141 //D(bug("LToLower()\n");/*Delay(50);*/)
 142     return ToLower(c);
 143 }
 144
 145 void __saveds StrToUpper(register unsigned char *src __asm("a0"), register unsigned char *dst __asm("a1"))
 146 {
 147 //D(bug("LStrToUpper()\n");/*Delay(50);*/)
 148     while((*dst++ = ToUpper(*src++)));
 149 }
 150
 151 void __saveds StrToLower(register unsigned char *src __asm("a0"), register unsigned char *dst __asm("a1"))
 152 {
 153 //D(bug("LStrToLower()\n");/*Delay(50);*/)
 154     while((*dst++ = ToLower(*src++)));
 155 }
 156
 157 void /*__saveds*/ LStrnCat(register char *s1 __asm("a0"), register char *s2 __asm("a1"), register int len __asm("d0"))
 158
 159 {
 160 D(bug("LStrnCat()\n");/*Delay(50);*/)
 161     while (*s1++);
 162     for(s1--;len;len--)
 163      {
 164       *s1++ = *s2++;
 165       if (!(*s2)) break;
 166      }
 167     *s1=0;
 168 }
 169
 170 void /*__saveds*/ LStrCat(register char *s1 __asm("a0"), register char *s2 __asm("a1"))
 171
 172 {
 173 D(bug("LStrCat()\n");/*Delay(50);*/)
 174     LStrnCat(s1,s2,0xffff);
 175 }
 176
 177 void /*__saveds*/ LStrCpy(register char *dst __asm("a0"), register const char *src __asm("a1"))
 178
 179 {
 180 //char *d=dst,*s=src;
 181     while((*dst++ = *src++));
 182 //D(bug("LStrCpy(%s,%s)\n",d,s);Delay(25);)
 183 //    *dst=0;
 184
 185 //strcpy(dst,src);
 186 }
 187
 188 void /*__saveds*/ LStrnCpy(register char *dst __asm("a0"), register const char *src __asm("a1"), register int len __asm("d0"))
 189
 190 {
 191     char c;
 192
 193 //D(bug("LStrnCpy()\n");Delay(50);)
 194     while (len-- >= 0)
 195      {
 196       c = *src++;
 197
 198       *dst++ = c;
 199       if (!c) break;
 200      }
 201     *(--dst) = 0;
 202 //strncpy(dst,src,len);
 203 }
 204
 205 int __saveds LStrnCmpI(register char *s1 __asm("a0"), register char *s2 __asm("a1"), register int len __asm("d0"))
 206
 207 {
 208     register char c1,c2,diff;
 209 //D(bug("LStrnCmpI()\n");/*Delay(50);*/)
 210
 211     while(1)
 212      {
 213       c1 = ToUpper(*s1++);
 214       c2 = ToUpper(*s2++);
 215
 216       diff = c1-c2;
 217
 218       if (diff>0) return 1;
 219       else if (diff<0) return -1;
 220       else if ((c1 ==0) || (len == 0)) break;
 221       len--;
 222      }
 223     return 0;
 224 }
 225
 226 int /*__saveds*/ LStrCmpI(register char *s1 __asm("a0"), register char *s2 __asm("a1"))
 227
 228 {
 229 //D(bug("LStrCmpI()\n");/*Delay(50);*/)
 230     return LStrnCmpI(s1,s2,0x7fff);
 231 }
 232
 233 int /*__saveds*/ LStrnCmp(register char *s1 __asm("a0"), register char *s2 __asm("a1"), register int len __asm("d0"))
 234
 235 {
 236     register char c1,c2,diff;
 237
 238 //D(bug("LStrnCmp()\n");/*Delay(50);*/)
 239     while(1)
 240      {
 241       c1 = *s1++;
 242       c2 = *s2++;
 243
 244       diff = c1-c2;
 245
 246       if (diff>0) return 1;
 247       else if (diff<0) return -1;
 248       else if ((c1 ==0) || (len == 0)) break;
 249       len--;
 250      }
 251     return 0;
 252 }
 253
 254 int /*__saveds*/ LStrCmp(register char *s1 __asm("a0"),
 255             register char *s2 __asm("a1"))
 256
 257 {
 258 //D(bug("LStrCmp()\n");/*Delay(50);*/)
 259     return LStrnCmp(s1,s2,0x7fff);
 260 }
 261
 262 int atoi(const char *str)
 263 {
 264     LONG i;
 265
 266 //D(bug("atoi()\n");Delay(50);)
 267     StrToLong(str,&i);
 268
 269     return i;
 270 }