test/oop/hidd.cs

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 /*
   7     This is an example for a pseudolanguage to use our OOP
   8     system in C.
   9 */
  10
  11 class HIDD
  12 {
  13     version 41.0;
  14
  15     /* This is a global constant for this class */
  16     const ClassTable = 0;
  17
  18     /*
  19         FindHIDD takes three arguments: A string with the type
  20         and the subtype of the HIDD (eg. "gfx"/"printer")
  21         and a list of attributes.
  22
  23         It returns an array of HIDDs which match the specified
  24         attributes.
  25     */
  26     Array findHIDD
  27     (
  28         String   type,
  29         String   subType,
  30         TagArray attrs
  31     )
  32     {
  33         hiddTableLock.lock ();
  34
  35         Array hiddTable = classTable.get (type);
  36         Array hidds = Array (hiddTable.len ());
  37
  38         ULONG t;
  39         for (t=0; hiddTable[t]; t++)
  40         {
  41             if (!strcasecmp (hiddTable[t].subType, subType)
  42                 && hiddTable[t].match (attrs)
  43             )
  44             {
  45                 hidds.append (hiddTable[t])
  46             }
  47         }
  48
  49         hiddTableLock.unlock ();
  50
  51         return hidds;
  52     }
  53
  54     /* These are global class variables */
  55     static HashTable hiddTable = HashTable (256, HashTable.calcStringHashCode);
  56     static Semaphore hiddTableLock = Semaphore ();
  57 }
  58
  59 class Window
  60 {
  61     /* Position and size of the window. The attribute can be read
  62        and written from outside. */
  63     [RW] UWORD x, y, width, height;
  64     [RW] UWORD minWidth, minHeight, maxWidth, maxHeight;
  65
  66     /* Before writing to width, execute this code */
  67     pre W width
  68     {
  69         if (width < 0)
  70             Raise IllegalValue ("width (%d) too small, must be > 0", width);
  71
  72         if (width < minWidth)
  73             /* This could also raise an error */
  74             width = minWidth;
  75
  76         if (width > maxWidth)
  77             width = maxWidth;
  78     }
  79
  80     post W width
  81     {
  82         this.resize (this.width, this.height);
  83     }
  84
  85     ...
  86 }