Class: OSA::Element

Inherits:
Object
  • Object
show all
Defined in:
ext/rubyosa/rbosa.c,
lib/rubyosa/rbosa.rb

Direct Known Subclasses

ElementList, ElementRecord

Constant Summary collapse

REAL_NAME = 
CODE = nil

Class Method Summary collapse

Instance Method Summary collapse

Class Method Details

.__duplicate__ ⇒ Object 



196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
 
# File 'ext/rubyosa/rbosa.c', line 196

static VALUE
rbosa_element_dup (VALUE self, VALUE element)
{
    AEDesc *  desc;
    AEDesc    new_desc;
    OSErr     error;

    desc = rbosa_element_aedesc (element);
    error = AEDuplicateDesc (desc, &new_desc);
    if (error != noErr) 
        rb_raise (rb_eArgError, "Cannot duplicate element : %s (%d)", 
                  error_code_to_string (error), error);

    return rbosa_element_make (self, &new_desc, Qnil); 
}

.__new__ ⇒ Object 



132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
 
# File 'ext/rubyosa/rbosa.c', line 132

static VALUE
rbosa_element_new (VALUE self, VALUE type, VALUE value)
{
    FourCharCode    ffc_type;
    OSErr           error;
    const char *    c_value;
    unsigned long   c_value_size;
    AEDesc          desc;

    ffc_type = RVAL2FOURCHAR (type);

    if (NIL_P (value)) {
        c_value = NULL;
        c_value_size = 0;
    }
    else if (rb_obj_is_kind_of (value, rb_cInteger)) {
        FourCharCode code;

        code = NUM2INT (value);
        c_value = (const char *)&code;
        c_value_size = sizeof (FourCharCode);
    }  
    else if (ffc_type == 'alis') {
        AliasHandle     alias;

        rbobj_to_alias_handle (value, &alias);
        
        c_value = (const char *)*alias;
        c_value_size = GetHandleSize ((Handle)alias);
    }
    else {
        Check_Type (value, T_STRING);
        c_value = RSTRING_PTR(value);
        c_value_size = RSTRING_LEN(value);
    }

    error = AECreateDesc (ffc_type, c_value, c_value_size, &desc);
    if (error != noErr)     
        rb_raise (rb_eArgError, "Cannot create Apple Event descriptor from type '%s' value '%s' : %s (%d)", 
                  RVAL2CSTR (type), c_value, error_code_to_string (error), error);

    return rbosa_element_make (self, &desc, Qnil);
}

.__new_object_specifier__ ⇒ Object 



176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
 
# File 'ext/rubyosa/rbosa.c', line 176

static VALUE
rbosa_element_new_os (VALUE self, VALUE desired_class, VALUE container, VALUE key_form, VALUE key_data)
{
    OSErr   error;
    AEDesc  obj_specifier;   

    error = CreateObjSpecifier (RVAL2FOURCHAR (desired_class),
                                rbosa_element_aedesc (container),
                                RVAL2FOURCHAR (key_form),
                                rbosa_element_aedesc (key_data),
                                false,
                                &obj_specifier);

    if (error != noErr) 
        rb_raise (rb_eArgError, "Cannot create Apple Event object specifier for desired class '%s' : %s (%d)", 
                  RVAL2CSTR (desired_class), error_code_to_string (error), error);

    return rbosa_element_make (self, &obj_specifier, Qnil);
}

.from_rbobj(requested_type, value, enum_group_codes) ⇒ Object 



115
116
117
118
 
# File 'lib/rubyosa/rbosa.rb', line 115

def self.from_rbobj(requested_type, value, enum_group_codes)
  obj = OSA.convert_to_osa(requested_type, value, enum_group_codes)
  obj.is_a?(OSA::Element) ? obj : self.__new__(*obj)
end

Instance Method Details

#== ⇒ Object 



448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
 
# File 'ext/rubyosa/rbosa.c', line 448

static VALUE
rbosa_element_eql (VALUE self, VALUE other)
{
    AEDesc *    self_desc;
    AEDesc *    other_desc; 
    Size        data_size;
    void *      self_data;
    void *      other_data;
    OSErr       error;
    Boolean     ok;

    if (!rb_obj_is_kind_of (other, rb_class_real (rb_class_of (self))))
        return Qfalse;

    self_desc = rbosa_element_aedesc (self);
    other_desc = rbosa_element_aedesc (other);

    if (self_desc == other_desc)
        return Qtrue;

    if (self_desc->descriptorType != other_desc->descriptorType)
        return Qfalse;

    data_size = AEGetDescDataSize (self_desc);
    if (data_size != AEGetDescDataSize (other_desc))
        return Qfalse;
  
    self_data = (void *)malloc (data_size);
    other_data = (void *)malloc (data_size);  
    ok = 0;

    if (self_data == NULL || other_data == NULL)
        rb_fatal ("cannot allocate memory");

    error = AEGetDescData (self_desc, self_data, data_size);
    if (error != noErr)
        goto bails;

    error = AEGetDescData (other_desc, other_data, data_size);
    if (error != noErr)
        goto bails;
    
    ok = memcmp (self_data, other_data, data_size) == 0;

bails:
    free (self_data);
    free (other_data);

    return CBOOL2RVAL (ok);
}

#__data__ ⇒ Object 



361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
 
# File 'ext/rubyosa/rbosa.c', line 361

static VALUE
rbosa_element_data (int argc, VALUE *argv, VALUE self)
{
    VALUE       coerce_type;
    AEDesc      coerced_desc;
    AEDesc *    desc;
    OSErr       error;
    void *      data;
    Size        datasize;
    VALUE       retval;
    bool        to_4cc;

    rb_scan_args (argc, argv, "01", &coerce_type);
    to_4cc = false;

    desc  = rbosa_element_aedesc (self);
    
    if (!NIL_P (coerce_type)) {
        FourCharCode code;

        code = RVAL2FOURCHAR (coerce_type);
        error = AECoerceDesc (desc, code, &coerced_desc);
        if (error != noErr)
            rb_raise (rb_eRuntimeError, "Cannot coerce desc to type %s : %s (%d)", 
                      RVAL2CSTR (coerce_type), error_code_to_string (error), error);
        
        desc = &coerced_desc;
        to_4cc = code == 'type';
    }

    datasize = AEGetDescDataSize (desc);
    data = (void *)malloc (datasize);
    if (data == NULL) 
        rb_fatal ("cannot allocate memory");
 
    error = AEGetDescData (desc, data, datasize);
    if (error == noErr) {
        if (to_4cc)
            *(DescType*)data = CFSwapInt32HostToBig (*(DescType*)data);
        retval = rb_str_new (data, datasize);
    }
    else {
        retval = Qnil;
    }

    if (!NIL_P (coerce_type))
        AEDisposeDesc (&coerced_desc); 
    free (data);

    if (error != noErr)
        rb_raise (rb_eRuntimeError, "Cannot get desc data : %s (%d)", 
                  error_code_to_string (error), error);
    
    return retval; 
}

#__type__ ⇒ Object 



349
350
351
352
353
354
355
356
357
358
359
 
# File 'ext/rubyosa/rbosa.c', line 349

static VALUE
rbosa_element_type (VALUE self)
{
    AEDesc  *desc;
    char    dtStr[5];

    desc = rbosa_element_aedesc (self);
    *(DescType*)dtStr = CFSwapInt32HostToBig (desc->descriptorType);

    return rb_str_new (dtStr, 4);
}

#after ⇒ Object 



436
437
438
439
440
 
# File 'ext/rubyosa/rbosa.c', line 436

static VALUE
rbosa_element_after (VALUE self)
{
    return __rbosa_insertion_loc_new (self, kAEAfter); 
}

#before ⇒ Object 



442
443
444
445
446
 
# File 'ext/rubyosa/rbosa.c', line 442

static VALUE
rbosa_element_before (VALUE self)
{
    return __rbosa_insertion_loc_new (self, kAEBefore);
}

#inspect ⇒ Object 



499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
 
# File 'ext/rubyosa/rbosa.c', line 499

static VALUE
rbosa_element_inspect (VALUE self)
{
    Handle  h;
    char    buf[1024];

    if (AEPrintDescToHandle (rbosa_element_aedesc (self), &h) != noErr) {
      snprintf (buf, sizeof buf, "<%s:%p>", rb_obj_classname (self), (void *)self);
    }
    else {
      snprintf (buf, sizeof buf, "<%s:%p desc=\"%s\">", rb_obj_classname (self), (void *)self, *h);
      DisposeHandle (h);
    }
    
    return CSTR2RVAL (buf);
}

#to_rbobj ⇒ Object 



108
109
110
111
112
113
 
# File 'lib/rubyosa/rbosa.rb', line 108

def to_rbobj
  unless __type__ == 'null'
  val = OSA.convert_to_ruby(self)
  val == 'msng' ? nil : val == nil ? self : val
  end
end