Lines Matching defs:obj
384 struct alisp_object * obj;
386 obj = search_object_integer(instance, value);
387 if (obj != NULL)
388 return obj;
389 obj = new_object(instance, ALISP_OBJ_INTEGER);
390 if (obj) {
391 list_add(&obj->list, &instance->used_objs_list[value & ALISP_OBJ_PAIR_HASH_MASK][ALISP_OBJ_INTEGER]);
392 obj->value.i = value;
394 return obj;
399 struct alisp_object * obj;
401 obj = search_object_float(instance, value);
402 if (obj != NULL)
403 return obj;
404 obj = new_object(instance, ALISP_OBJ_FLOAT);
405 if (obj) {
406 list_add(&obj->list, &instance->used_objs_list[(long)value & ALISP_OBJ_PAIR_HASH_MASK][ALISP_OBJ_FLOAT]);
407 obj->value.f = value;
409 return obj;
414 struct alisp_object * obj;
416 obj = search_object_string(instance, str);
417 if (obj != NULL)
418 return obj;
419 obj = new_object(instance, ALISP_OBJ_STRING);
420 if (obj)
421 list_add(&obj->list, &instance->used_objs_list[get_string_hash(str)][ALISP_OBJ_STRING]);
422 if (obj && (obj->value.s = strdup(str)) == NULL) {
423 delete_object(instance, obj);
427 return obj;
432 struct alisp_object * obj;
434 obj = search_object_identifier(instance, id);
435 if (obj != NULL)
436 return obj;
437 obj = new_object(instance, ALISP_OBJ_IDENTIFIER);
438 if (obj)
439 list_add(&obj->list, &instance->used_objs_list[get_string_hash(id)][ALISP_OBJ_IDENTIFIER]);
440 if (obj && (obj->value.s = strdup(id)) == NULL) {
441 delete_object(instance, obj);
445 return obj;
450 struct alisp_object * obj;
452 obj = search_object_pointer(instance, ptr);
453 if (obj != NULL)
454 return obj;
455 obj = new_object(instance, ALISP_OBJ_POINTER);
456 if (obj) {
457 list_add(&obj->list, &instance->used_objs_list[(long)ptr & ALISP_OBJ_PAIR_HASH_MASK][ALISP_OBJ_POINTER]);
458 obj->value.ptr = ptr;
460 return obj;
743 static struct alisp_object * quote_object(struct alisp_instance *instance, struct alisp_object * obj)
747 if (obj == NULL)
763 delete_tree(instance, obj);
767 p->value.c.cdr->value.c.car = obj;
3311 struct alisp_object *aargs = NULL, *obj, *res;
3327 obj = NULL;
3331 obj = new_string(instance, va_arg(ap, char *));
3334 obj = new_integer(instance, va_arg(ap, int));
3337 obj = new_integer(instance, va_arg(ap, long));
3341 obj = new_integer(instance, va_arg(ap, double));
3353 obj = new_cons_pointer(instance, _ptrid, va_arg(ap, void *));
3354 obj = quote_object(instance, obj);
3363 if (obj == NULL) {
3377 p->value.c.car = obj;
3393 if ((obj = get_object1(instance, id)) != &alsa_lisp_nil) {
3394 res = eval_func(instance, obj, aargs);