git.m6w6.name Git - m6w6/ext-psi/blob - .gdbinit

   1 define psi_assert_stmt_dump
   2         call psi_assert_stmt_dump(1, $arg0)
   3         echo \n
   4 end
   5 define psi_const_dump
   6         call psi_const_dump(1, $arg0)
   7         echo \n
   8 end
   9 define psi_const_type_dump
  10         call psi_const_type_dump(1, $arg0)
  11         echo \n
  12 end
  13 define psi_decl_abi_dump
  14         call psi_decl_abi_dump(1, $arg0)
  15         echo \n
  16 end
  17 define psi_decl_arg_dump
  18         call psi_decl_arg_dump(1, $arg0, 0)
  19          echo \n
  20 end
  21 define psi_decl_enum_dump
  22         call psi_decl_enum_dump(1, $arg0, 0)
  23         echo \n
  24 end
  25 define psi_decl_enum_item_dump
  26         call psi_decl_enum_item_dump(1, $arg0)
  27         echo \n
  28 end
  29 define psi_decl_dump
  30         call psi_decl_dump(1, $arg0)
  31         echo \n
  32 end
  33 define psi_decl_struct_dump
  34         call psi_decl_struct_dump(1, $arg0)
  35         echo \n
  36 end
  37 define psi_decl_type_dump
  38         call psi_decl_type_dump(1, $arg0, 0)
  39          echo \n
  40 end
  41 define psi_decl_type_dump_args_with_layout
  42         call psi_decl_type_dump_args_with_layout(1, $arg0, 0)
  43          echo \n
  44 end
  45 define psi_decl_union_dump
  46         call psi_decl_union_dump(1, $arg0)
  47         echo \n
  48 end
  49 define psi_decl_var_dump
  50         call psi_decl_var_dump(1, $arg0)
  51         echo \n
  52 end
  53 define psi_free_exp_dump
  54         call psi_free_exp_dump(1, $arg0)
  55         echo \n
  56 end
  57 define psi_free_stmt_dump
  58         call psi_free_stmt_dump(1, $arg0)
  59         echo \n
  60 end
  61 define psi_impl_arg_dump
  62         call psi_impl_arg_dump(1, $arg0)
  63         echo \n
  64 end
  65 define psi_impl_def_val_dump
  66         call psi_impl_def_val_dump(1, $arg0)
  67         echo \n
  68 end
  69 define psi_impl_func_dump
  70         call psi_impl_func_dump(1, $arg0)
  71         echo \n
  72 end
  73 define psi_impl_dump
  74         call psi_impl_dump(1, $arg0)
  75         echo \n
  76 end
  77 define psi_let_callback_dump
  78         call psi_let_callback_dump(1, $arg0, 0)
  79          echo \n
  80 end
  81 define psi_let_calloc_dump
  82         call psi_let_calloc_dump(1, $arg0)
  83         echo \n
  84 end
  85 define psi_let_exp_dump
  86         call psi_let_exp_dump(1, $arg0, 0)
  87          echo \n
  88 end
  89 define psi_let_func_dump
  90         call psi_let_func_dump(1, $arg0, 0)
  91          echo \n
  92 end
  93 define psi_let_stmt_dump
  94         call psi_let_stmt_dump(1, $arg0)
  95         echo \n
  96 end
  97 define psi_number_dump
  98         call psi_number_dump(1, $arg0)
  99         echo \n
 100 end
 101 define psi_num_exp_dump
 102         call psi_num_exp_dump(1, $arg0)
 103         echo \n
 104 end
 105 define psi_return_stmt_dump
 106         call psi_return_stmt_dump(1, $arg0)
 107         echo \n
 108 end
 109 define psi_set_exp_dump
 110         call psi_set_exp_dump(1, $arg0, 0, 0)
 111          echo \n
 112 end
 113 define psi_set_func_dump
 114         call psi_set_func_dump(1, $arg0, 0)
 115          echo \n
 116 end
 117 define psi_set_stmt_dump
 118         call psi_set_stmt_dump(1, $arg0)
 119         echo \n
 120 end
 121 define psi_token_dump
 122         call psi_token_dump(1, $arg0)
 123 end
 124 define psi_token_list_dump
 125         set $i = 0
 126         while $i < $arg0->count
 127                 call psi_token_dump(1, ((struct psi_token **)$arg0->list)[$i++])
 128         end
 129 end
 130 define psi_plist_dump
 131         set $i = 0
 132         while $i < $arg0->count
 133                 set $arg = ((void **) $arg0->list)[$i++]
 134                 $arg1 $arg
 135         end
 136 end
 137 define psi_decl_type_dump_all
 138         if $argc > 0
 139                 set $context = $arg0
 140         else
 141                 set $context = psi_globals.context
 142         end
 143         set $i = 0
 144         set $c = psi_plist_count($context->types)
 145         while $i < $c
 146                 set $type = *(struct psi_decl_type **) ($context->types->list[$i++])
 147                 psi_decl_type_dump $type
 148                 echo
 149         end
 150 end