gdb/testsuite/gdb.chill/builtins.ch

   1 xx: MODULE
   2
   3 DCL v_bool BOOL INIT := FALSE;
   4 DCL v_char CHAR INIT := 'X';
   5 DCL v_byte BYTE INIT := -30;
   6 DCL v_ubyte UBYTE INIT := 30;
   7 DCL v_int INT INIT := -333;
   8 DCL v_uint UINT INIT := 333;
   9 DCL v_long LONG INIT := -4444;
  10 DCL v_ulong ULONG INIT := 4444;
  11 DCL v_ptr PTR;
  12
  13 SYNMODE m_set = SET (e1, e2, e3, e4, e5, e6);
  14 DCL v_set m_set INIT := e3;
  15
  16 SYNMODE m_set_range = m_set(e2:e5);
  17 DCL v_set_range m_set_range INIT := e3;
  18
  19 SYNMODE m_numbered_set = SET (n1 = 25, n2 = 22, n3 = 35, n4 = 33,
  20                               n5 = 45, n6 = 43);
  21 DCL v_numbered_set m_numbered_set INIT := n3;
  22
  23 SYNMODE m_char_range = CHAR('A':'Z');
  24 DCL v_char_range m_char_range INIT := 'G';
  25
  26 SYNMODE m_bool_range = BOOL(FALSE:FALSE);
  27 DCL v_bool_range m_bool_range;
  28
  29 SYNMODE m_long_range = LONG(255:3211);
  30 DCL v_long_range m_long_range INIT := 1000;
  31
  32 SYNMODE m_range = RANGE(12:28);
  33 DCL v_range m_range INIT := 23;
  34
  35 SYNMODE m_chars = CHARS(20);
  36 SYNMODE m_chars_v = CHARS(20) VARYING;
  37 DCL v_chars CHARS(20);
  38 DCL v_chars_v CHARS(20) VARYING INIT := "foo bar";
  39
  40 SYNMODE m_bits = BOOLS(10);
  41 DCL v_bits BOOLS(10);
  42
  43 SYNMODE m_arr = ARRAY(1:10) BYTE;
  44 DCL v_arr ARRAY(1:10) BYTE;
  45
  46 SYNMODE m_char_arr = ARRAY (CHAR) BYTE;
  47 DCL v_char_arr ARRAY(CHAR) BYTE;
  48
  49 SYNMODE m_bool_arr = ARRAY (BOOL) BYTE;
  50 DCL v_bool_arr ARRAY (BOOL) BYTE;
  51
  52 SYNMODE m_int_arr = ARRAY (INT) BYTE;
  53 DCL v_int_arr ARRAY (INT) BYTE;
  54
  55 SYNMODE m_set_arr = ARRAY (m_set) BYTE;
  56 DCL v_set_arr ARRAY (m_set) BYTE;
  57
  58 SYNMODE m_numbered_set_arr = ARRAY (m_numbered_set) BYTE;
  59 DCL v_numbered_set_arr ARRAY (m_numbered_set) BYTE;
  60
  61 SYNMODE m_char_range_arr = ARRAY (m_char_range) BYTE;
  62 DCL v_char_range_arr ARRAY (m_char_range) BYTE;
  63
  64 SYNMODE m_set_range_arr = ARRAY (m_set_range) BYTE;
  65 DCL v_set_range_arr ARRAY (m_set_range) BYTE;
  66
  67 SYNMODE m_bool_range_arr = ARRAY (m_bool_range) BYTE;
  68 DCL v_bool_range_arr ARRAY (m_bool_range) BYTE;
  69
  70 SYNMODE m_long_range_arr = ARRAY (m_long_range) BYTE;
  71 DCL v_long_range_arr ARRAY (m_long_range) BYTE;
  72
  73 SYNMODE m_range_arr = ARRAY (m_range) BYTE;
  74 DCL v_range_arr ARRAY (m_range) BYTE;
  75
  76 SYNMODE m_struct = STRUCT (i LONG,
  77                            c CHAR,
  78                            s CHARS(30));
  79 DCL v_struct m_struct;
  80
  81 v_bool := TRUE;
  82
  83 END xx;