/vqdr/trunk

To get this branch, use:
bzr branch http://gegoxaren.bato24.eu/bzr/vqdr/trunk

« back to all changes in this revision

Viewing changes to src/utils/utils.vala

  • Committer: Gustav Hartvigsson
  • Date: 2022-06-01 12:44:04 UTC
  • Revision ID: gustav.hartvigsson@gmail.com-20220601124404-mpv4761nr16f0duq
run_gdb.sh +x

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/utils/utils.vala
1
 
namespace VQDR.Common.Utils {
 
1
/*
 
2
 * The contects of this file is in the Public Domain.
 
3
 *
 
4
 * Created by Gustav Hartivgsson.
 
5
 */
 
6
[CCode (cname = "V", cprefix = "v_")]
 
7
namespace Utils {
 
8
  [CCode (cname = "v_str_cmp")]
2
9
  public int str_cmp (string a, string b) {
3
10
    return a.collate (b);
4
11
  }
5
12
  
 
13
  [CCode (cname = "v_print_ln")]
6
14
  public void print_ln (string str, ...) {
7
15
    var va = va_list ();
8
 
    
9
 
    // Reallocate the string as it is not owned by the function.
10
 
    var tmp = str + "\n";
11
 
    
12
 
    // Hopefully this does not create any memony leaks. :-)
13
 
    print (tmp.vprintf (va));
14
 
  }
15
 
  
 
16
    var tmp = str + "\n";
 
17
    stdout.vprintf (tmp, va);
 
18
  }
 
19
 
 
20
  [CCode (cname = "v_err_print_ln")]
 
21
  public void err_print_ln (string str, ...) {
 
22
    var va = va_list ();
 
23
    var tmp = str + "\n";
 
24
    stderr.vprintf (tmp, va);
 
25
  }
 
26
 
 
27
  [CCode (cname = "v_object_to_string")]
16
28
  public string object_to_string (GLib.Object obj) {
17
 
    GLib.ObjectClass real_obj = (GLib.ObjectClass) obj.get_type ().class_ref ();
18
 
    
19
 
    var str_builder = new GLib.StringBuilder ();
20
 
    
21
 
    
22
 
    str_builder.append ("(")
 
29
     StringBuilder strbldr = new StringBuilder ();
 
30
     internal_object_to_string (obj, ref strbldr);
 
31
     return strbldr.str;
 
32
  }
 
33
 
 
34
  string collect_string (string[] segments) {
 
35
    if (segments.length == 0) {
 
36
      return "";
 
37
    }
 
38
    if (segments.length == 1) {
 
39
      return segments[0];
 
40
    }
 
41
    StringBuilder strbldr = new StringBuilder ();
 
42
    foreach (var segment in segments) {
 
43
      strbldr.append (segment);
 
44
    }
 
45
    return strbldr.str;
 
46
  }
 
47
 
 
48
  [CCode (cname = "v_internal_object_to_string")]
 
49
  internal unowned StringBuilder internal_object_to_string (GLib.Object obj,
 
50
                                                  ref StringBuilder str_builder,
 
51
                                                  int32 nesting = 0) {
 
52
    GLib.ObjectClass obj_class = (GLib.ObjectClass) obj.get_type ().class_ref ();
 
53
    
 
54
    for (var i = 0; i < nesting; i++) {
 
55
     str_builder.append ("\t");
 
56
    }
 
57
    
 
58
    str_builder.append ("((")
23
59
               .append (obj.get_type().name ())
24
 
               .append ("):\n");
 
60
               .append_printf (")->(%p):\n", obj);
25
61
    
26
 
    foreach (GLib.ParamSpec ps in real_obj.list_properties ()) {
 
62
    foreach (GLib.ParamSpec ps in obj_class.list_properties ()) {
27
63
      
28
64
      if (ps.value_type == 0 || ps.value_type == GLib.Type.INVALID) {
29
65
        continue;
36
72
      if (prop_val.type () == GLib.Type.INVALID || prop_val.type () == 0) {
37
73
        continue;
38
74
      }
39
 
      
 
75
 
40
76
      obj.get_property (prop_name, ref prop_val);
41
77
      
42
 
      
43
 
      str_builder.append ("\t (")
 
78
      for (var i = 0; i < nesting; i++) {
 
79
        str_builder.append ("\t");
 
80
      }
 
81
 
 
82
      str_builder.append ("\t(")
44
83
                 .append (prop_val.type_name ())
45
84
                 .append (") ")
46
85
                 .append (prop_name)
47
 
                 .append (": ");
 
86
                 .append (":");
 
87
 
 
88
 
48
89
      
49
90
      
50
91
      switch (prop_val.type ()) {
51
92
        case (GLib.Type.STRING):
52
 
          str_builder.append (prop_val.get_string ());
 
93
          if (prop_val.dup_string () == null) {
 
94
            str_builder.append ("(null)");
 
95
          } else {
 
96
            str_builder.append (prop_val.dup_string ());
 
97
          }
53
98
        break;
54
99
        case (GLib.Type.INT):
55
100
          str_builder.append (prop_val.get_int ().to_string ());
71
116
          str_builder.append (prop_val.get_enum ().to_string ());
72
117
        break;
73
118
        case (GLib.Type.FLAGS):
74
 
          // Probobly needs better handling, but this will do.
 
119
          // TODO: Probobly needs better handling, but this will do.
75
120
          str_builder.append (prop_val.get_flags ().to_string ());
76
121
        break;
77
122
        case (GLib.Type.FLOAT):
83
128
        case (GLib.Type.LONG):
84
129
          str_builder.append (prop_val.get_long ().to_string ());
85
130
        break;
86
 
        case (GLib.Type.OBJECT):
87
 
          str_builder.append_printf ("%llX", (((long)((pointer)prop_val.get_object ()))));
88
 
        break;
89
 
        case (GLib.Type.PARAM):
90
 
          var spsc = prop_val.get_param ();
91
 
          str_builder.append ("name: ")
92
 
                     .append (spsc.name)
93
 
                     .append (" type: ")
94
 
                     .append (spsc.value_type.name ());
95
 
        break;
96
131
        case (GLib.Type.POINTER):
97
 
          str_builder.append_printf ("%llX", (((long)prop_val.get_pointer ())));
 
132
          str_builder.append ("(")
 
133
                     .append_printf ("%p", prop_val.get_pointer ());
 
134
          str_builder.append (")");
 
135
        break;
 
136
        case (GLib.Type.BOXED):
 
137
          str_builder.append ("(")
 
138
                     .append_printf ("%p", prop_val.get_boxed ());
 
139
          str_builder.append (")");
98
140
        break;
99
141
        case (GLib.Type.UCHAR):
100
142
          var v = prop_val.get_uchar ();
113
155
          str_builder.append (prop_val.get_ulong ().to_string ());
114
156
        break;
115
157
        case (GLib.Type.VARIANT):
116
 
          GLib.Variant v = prop_val.get_variant ();
117
 
          str_builder.append ("(\n")
118
 
                     .append (v.print (true))
119
 
                     .append ("\n)");
 
158
          GLib.Variant v = prop_val.dup_variant ();
 
159
          GLib.Variant? tv = null;
 
160
          unowned string ts1 = v.get_type_string ();
 
161
          str_builder.append ("")
 
162
                     .append (ts1)
 
163
                     .append ("\n\t(\n");
 
164
          GLib.VariantIter iter = v.iterator ();
 
165
          tv = iter.next_value ();
 
166
          while (tv != null) {
 
167
            unowned string ts2 = tv.get_type_string ();
 
168
            string tp = tv.print (true);
 
169
            str_builder.append ("\t\t((")
 
170
                       .append (ts2)
 
171
                       .append ("): ")
 
172
                       .append (tp)
 
173
                       .append (")\n");
 
174
            tv = iter.next_value ();
 
175
          }
 
176
          
120
177
        break;
121
 
      }
 
178
 
 
179
      }
 
180
      if (prop_val.type ().is_a (typeof (GLib.Object))) {
 
181
        var new_nesting = nesting + 1;
 
182
        GLib.Object? dup_obj = prop_val.dup_object ();
 
183
        str_builder.append_printf ("->(%p):\n", dup_obj);
 
184
        internal_object_to_string (dup_obj, ref str_builder, new_nesting);
 
185
      }
 
186
 
122
187
      str_builder.append ("\n");
123
 
      
124
 
    }
125
 
    
126
 
    return str_builder.str;
 
188
    }
 
189
    for (var i = 0; i < nesting; i++) {
 
190
      str_builder.append ("\t");
 
191
    }
 
192
    str_builder.append (")\n");
 
193
    return str_builder;
127
194
  }
128
195
  
129
196
}