bgui/misc.c

   1 /*
   2  * @(#) $Header$
   3  *
   4  * BGUI library
   5  * misc.c
   6  *
   7  * (C) Copyright 1998 Manuel Lemos.
   8  * (C) Copyright 1996-1997 Ian J. Einman.
   9  * (C) Copyright 1993-1996 Jaba Development.
  10  * (C) Copyright 1993-1996 Jan van den Baard.
  11  * All Rights Reserved.
  12  *
  13  * $Log$
  14  * Revision 42.4  2004/06/16 20:16:48  verhaegs
  15  * Use METHODPROTO, METHOD_END and REGFUNCPROTOn where needed.
  16  *
  17  * Revision 42.3  2003/01/18 19:09:59  chodorowski
  18  * Instead of using the _AROS or __AROS preprocessor symbols, use __AROS__.
  19  *
  20  * Revision 42.2  2000/05/29 00:40:24  bergers
  21  * Update to compile with AROS now. Should also still compile with SASC etc since I only made changes that test the define __AROS__. The compilation is still very noisy but it does the trick for the main directory. Maybe members of the BGUI team should also have a look at the compiler warnings because some could also cause problems on other systems... (Comparison always TRUE due to datatype (or something like that)). And please compile it on an Amiga to see whether it still works... Thanks.
  22  *
  23  * Revision 42.1  2000/05/14 23:32:48  stegerg
  24  * changed over 200 function headers which all use register
  25  * parameters (oh boy ...), because the simple REG() macro
  26  * doesn't work with AROS. And there are still hundreds
  27  * of headers left to be fixed :(
  28  *
  29  * Many of these functions would also work with stack
  30  * params, but since i have fixed every single one
  31  * I encountered up to now, I guess will have to do
  32  * the same for the rest.
  33  *
  34  * Revision 42.0  2000/05/09 22:09:42  mlemos
  35  * Bumped to revision 42.0 before handing BGUI to AROS team
  36  *
  37  * Revision 41.11  2000/05/09 19:54:46  mlemos
  38  * Merged with the branch Manuel_Lemos_fixes.
  39  *
  40  * Revision 41.10.2.4  1998/12/07 03:07:08  mlemos
  41  * Replaced OpenFont and CloseFont calls by the respective BGUI debug macros.
  42  *
  43  * Revision 41.10.2.3  1998/11/23 14:59:16  mlemos
  44  * Fixed mistaken initialization of allocated buffer.
  45  *
  46  * Revision 41.10.2.2  1998/11/16 20:11:04  mlemos
  47  * Added missing brackets in the previous changes.
  48  *
  49  * Revision 41.10.2.1  1998/11/16 19:59:24  mlemos
  50  * Replaced AllocVec and FreeVec calls by BGUI_AllocPoolMem and
  51  * BGUI_FreePoolMem calls respectively.
  52  *
  53  * Revision 41.10  1998/02/25 21:12:40  mlemos
  54  * Bumping to 41.10
  55  *
  56  * Revision 1.1  1998/02/25 17:09:07  mlemos
  57  * Ian sources
  58  *
  59  *
  60  */
  61
  62 #ifdef __AROS__
  63 #include "include/bgui_macros.h"
  64 #endif
  65
  66 #include "include/classdefs.h"
  67
  68 makeproto struct TextAttr Topaz80 =
  69 {
  70    "topaz.font",
  71    TOPAZ_EIGHTY,
  72    FS_NORMAL,
  73    FPF_ROMFONT
  74 };
  75
  76 makeproto ASM LONG max(REG(d0) LONG a, REG(d1) LONG b)
  77 { return (a > b) ? a : b; }
  78
  79 makeproto ASM LONG min(REG(d0) LONG a, REG(d1) LONG b)
  80 { return (a < b) ? a : b; }
  81
  82 makeproto ASM LONG abs(REG(d0) LONG a)
  83 { return (a > 0) ? a :-a; }
  84
  85 makeproto ASM LONG range(REG(d0) LONG c, REG(d1) LONG a, REG(d2) LONG b)
  86 {
  87    if (c < a) return a;
  88    if (c > b) return b;
  89    return c;
  90 }
  91
  92 /*
  93  * Count the number of labels in an array.
  94  */
  95 makeproto ASM ULONG CountLabels(REG(a0) UBYTE **labels)
  96 {
  97    int n = 0;
  98
  99    while (labels[n]) n++;
 100
 101    return (ULONG)(n - 1);
 102 }
 103
 104 /*
 105  * See if a point is in a box.
 106  */
 107 makeproto ASM BOOL PointInBox(REG(a0) struct IBox *box, REG(d0) WORD x, REG(d1) WORD y)
 108 {
 109    x -= box->Left;
 110    y -= box->Top;
 111
 112    return (BOOL)((x >= 0) && (y >= 0) && (x < box->Width) && (y < box->Height));
 113 }
 114
 115 /*
 116  * Scale a width and height.
 117  */
 118 makeproto VOID Scale(struct RastPort *rp, UWORD *width, UWORD *height, UWORD dwidth, UWORD dheight, struct TextAttr *font)
 119 {
 120    struct TextFont *tf;
 121    int   open = FALSE;
 122    ULONG fw, fh;
 123
 124    /*
 125     * Setup the font.
 126     */
 127    if (font)
 128    {
 129       if ((tf = BGUI_OpenFont(font)))
 130          open = TRUE;
 131    }
 132    else
 133    {
 134       tf = rp->Font;
 135    };
 136
 137    /*
 138     * Get font size.
 139     */
 140    if (tf->tf_Flags & FPF_PROPORTIONAL)
 141    {
 142       fw = (tf->tf_Modulo << 3) / (tf->tf_HiChar - tf->tf_LoChar);
 143    }
 144    else
 145    {
 146       fw = tf->tf_XSize;
 147    };
 148    fh = tf->tf_YSize;
 149
 150    /*
 151     * Close font.
 152     */
 153    if (open) BGUI_CloseFont(tf);
 154
 155    /*
 156     * Scale size;
 157     */
 158    *height  = fh + (dheight - 8);
 159    *width   = fw + (dwidth - 8);
 160 }
 161
 162 /*
 163  * Map a RAW key to an ansi character.
 164  */
 165 makeproto WORD MapKey(UWORD code, UWORD qualifier, APTR *iaddress)
 166 {
 167    struct InputEvent ie = { NULL };
 168    UBYTE       chr;
 169
 170    ie.ie_Class     = IECLASS_RAWKEY;
 171    ie.ie_Code      = code;
 172    ie.ie_Qualifier     = qualifier;
 173    ie.ie_EventAddress  = *iaddress;
 174
 175    if ( MapRawKey( &ie, &chr, 1, NULL ) != 1 )
 176       return( ~0 );
 177
 178    return( chr );
 179 }
 180
 181 /*
 182  * Show online-help requester.
 183  */
 184 makeproto ASM VOID ShowHelpReq( REG(a0) struct Window *win, REG(a1) UBYTE *text )
 185 {
 186    struct bguiRequest      req = { };
 187
 188    InitLocale();
 189
 190    req.br_Title      = LOCSTR( MSG_BGUI_HELP_TITLE );
 191    req.br_GadgetFormat  = LOCSTR( MSG_BGUI_HELP_CONTINUE );
 192    req.br_TextFormat = text;
 193    req.br_Flags      = BREQF_CENTERWINDOW | BREQF_LOCKWINDOW | BREQF_AUTO_ASPECT;
 194
 195    BGUI_RequestA( win, &req, NULL );
 196 }
 197
 198
 199 /*
 200  * Re-allocate and format a buffer.
 201  */
 202 makeproto ASM UBYTE *DoBuffer(REG(a0) UBYTE *text, REG(a1) UBYTE **buf_ptr, REG(a2) ULONG *buf_len, REG(a3) RAWARG args)
 203 {
 204    ULONG       len;
 205
 206    /*
 207     * Find out the formatted string length.
 208     */
 209    len = CompStrlenF( text, args );
 210
 211    /*
 212     * Longer than the current buffer?
 213     */
 214    if ( len > *buf_len ) {
 215       /*
 216        * Deallocate old buffer.
 217        */
 218       if ( *buf_ptr )
 219          BGUI_FreePoolMem( *buf_ptr );
 220       /*
 221        * And allocate a new one.
 222        */
 223       if ( (*buf_ptr = ( UBYTE * )BGUI_AllocPoolMem( len ))) {
 224          /*
 225           * Setup new buffer length.
 226           */
 227          **buf_ptr = '\0';
 228          *buf_len = len;
 229       }
 230       else {
 231          /*
 232           * Screw up.
 233           */
 234          *buf_len = 0;
 235          return( text );
 236       }
 237    }
 238    /*
 239     * Format the string.
 240     */
 241    DoSPrintF( *buf_ptr, text, args );
 242    return( *buf_ptr );
 243 }
 244
 245 /*
 246  * Set on multiple object.
 247  */
 248 makeproto VOID DoMultiSet(Tag tag, IPTR data, ULONG count, Object *obj1, ...)
 249 {
 250    ULONG         i;
 251    va_list ap;
 252    va_start(ap, obj1);
 253
 254    for (i = 0; i < count; i++, obj1 = va_arg(ap, Object *))
 255        if (obj1) DoSetMethodNG(obj1, tag, data, TAG_END);
 256
 257    va_end(ap);
 258 }
 259
 260 /*
 261  * Set a gadget's bounds.
 262  */
 263 makeproto ASM VOID SetGadgetBounds(REG(a0) Object *obj, REG(a1) struct IBox *bounds)
 264 {
 265    DoSetMethodNG(obj, GA_Left,   bounds->Left,    GA_Top,    bounds->Top,
 266                       GA_Width,  bounds->Width,   GA_Height, bounds->Height, TAG_DONE);
 267 }
 268
 269 /*
 270  * Set an image's bounds.
 271  */
 272 makeproto ASM VOID SetImageBounds(REG(a0) Object *obj, REG(a1) struct IBox *bounds)
 273 {
 274    DoSetMethodNG(obj, IA_Left,   bounds->Left,    IA_Top,    bounds->Top,
 275                       IA_Width,  bounds->Width,   IA_Height, bounds->Height, TAG_DONE);
 276 }
 277
 278
 279 /*
 280  * Un-map a mapped tag-list.
 281  */
 282 makeproto ASM VOID UnmapTags(REG(a0) struct TagItem *tags, REG(a1) struct TagItem *map)
 283 {
 284    struct TagItem *tag, *tag1;
 285    struct TagItem *at = map;
 286
 287    /*
 288     * Go through the mapped tag-list.
 289     */
 290    while ((tag = NextTagItem(&at)))
 291    {
 292       /*
 293        * Is this tag in the unmapped list?
 294        */
 295       if ((tag1 = FindTagItem(tag->ti_Data, tags)))
 296          /*
 297           * Yes. Unmap this tag.
 298           */
 299          tag1->ti_Tag = tag->ti_Tag;
 300    }
 301 }
 302
 303 /*
 304  * Create a vector image.
 305  */
 306 makeproto ASM Object *CreateVector(REG(a0) struct TagItem *attr)
 307 {
 308    struct TagItem    *tag;
 309    struct TagItem *tstate = attr;
 310
 311    while ((tag = NextTagItem(&tstate)))
 312    {
 313       if (VIT_TAG(tag->ti_Tag))
 314          return BGUI_NewObjectA(BGUI_VECTOR_IMAGE, tag);
 315    }
 316    return NULL;
 317 }
 318
 319 /*
 320  * Fix the tag pointer.
 321  */
 322 makeproto ASM struct TagItem *BGUI_NextTagItem(REG(a0) struct TagItem **t)
 323 {
 324    struct TagItem *rt, *tag, *tag2;
 325    struct TagItem *tstate;
 326
 327    rt = NextTagItem(t);
 328
 329    if (rt)
 330    {
 331       switch (rt->ti_Tag)
 332       {
 333       case GROUP_Member:
 334          tag2   = rt;
 335          tstate = rt + 1;
 336          while ((tag = NextTagItem(&tstate)))
 337             tag2 = tag;
 338          *t = tag2 + 2;
 339          break;
 340       };
 341    };
 342    return rt;
 343 }