workbench/libs/iffparse/goodtype.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #define DEBUG 0
   7 #include <aros/debug.h>
   8 #include "iffparse_intern.h"
   9
  10 #define DEBUG_GOODTYPE(x)       ;
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <proto/iffparse.h>
  16
  17         AROS_LH1(LONG, GoodType,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(LONG, type, D0),
  21
  22 /*  LOCATION */
  23         struct Library *, IFFParseBase, 44, IFFParse)
  24
  25 /*  FUNCTION
  26         Determines whether a IFF chunk type is valid according to the IFF specification.
  27
  28     INPUTS
  29         type  - An IFF chunk type to be tested.
  30
  31     RESULT
  32         TRUE  - type is valid.
  33         FALSE  -  otherwise.
  34
  35     NOTES
  36         Assumes the input type to be in local byte order.
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43         GoodID()
  44
  45     INTERNALS
  46
  47 *****************************************************************************/
  48 {
  49     AROS_LIBFUNC_INIT
  50
  51     UBYTE theId[4];
  52     WORD  i;
  53
  54    /* How can it be a valid type if its not a valid ID */
  55     if(!GoodID(type))
  56     {
  57         DEBUG_GOODTYPE(bug("badtype 1\n"));
  58         return (FALSE);
  59     }
  60
  61     theId[0] = type >> 24;
  62     theId[1] = type >> 16;
  63     theId[2] = type >> 8;
  64     theId[3] = type;
  65
  66     for(i=0; i < 4; i++)
  67     {
  68         /* Greater than Z, not a type */
  69         if(theId[i] > 'Z')
  70         {
  71             DEBUG_GOODTYPE(bug("badtype 2\n"));
  72             return (FALSE);
  73         }
  74
  75         /*  If its less than 'A', and not in '0'..'9',
  76             then if its not a space its not valid. */
  77         if(    (theId[i] < 'A')
  78             && ((theId[i] < '0') || (theId[i] > '9'))
  79             && (theId[i] != ' ')
  80           )
  81         {
  82             DEBUG_GOODTYPE(bug("badtype 3\n"));
  83             return (FALSE);
  84         }
  85
  86         /* Must be valid, try the next one */
  87     }
  88
  89     DEBUG_GOODTYPE(bug("goodtype\n"));
  90     return (TRUE);
  91
  92     AROS_LIBFUNC_EXIT
  93 } /* GoodType */