| verzia 1.1, 2003/02/15 15:23:54 |
verzia 1.2, 2003/02/18 10:37:05 |
|
|
| CO_OBJECT (person) |
CO_OBJECT (person) |
| { |
{ |
| CO_HEAD_FULL; |
CO_HEAD_FULL; |
| CO_ATTR (person, int, id); |
CO_ATTR (int, id); |
| }; |
}; |
| /* }}} */ |
/* }}} */ |
| /* {{{ */ |
/* {{{ */ |
| Riadok 39 CO_OBJECT (employee) |
|
| Riadok 39 CO_OBJECT (employee) |
|
| { |
{ |
| CO_HEAD_FULL; |
CO_HEAD_FULL; |
| co person; |
co person; |
| CO_ATTR (employee, int, id); |
CO_ATTR (int, id); |
| }; |
}; |
| /* }}} */ |
/* }}} */ |
| |
|
| Riadok 49 CO_OBJECT (employee) |
|
| Riadok 49 CO_OBJECT (employee) |
|
| { |
{ |
| co_o_head_full o; |
co_o_head_full o; |
| o = new (person_s); |
o = new (person_s); |
| CO_BLESS_M (o, person); |
person_meth_ar_init (o); |
| |
CO_BLESS (o, person, 0); |
| return o; |
return o; |
| } /* }}} */ |
} /* }}} */ |
| /* {{{ */ static co employee_new (void) |
/* {{{ */ static co employee_new (void) |
| { |
{ |
| co_o_head_full o; |
co_o_head_full o; |
| o = new (person_s); |
o = new (person_s); |
| CO_BLESS_M (o, employee); |
employee_meth_ar_init (o); |
| |
CO_BLESS (o, employee, 0); |
| return o; |
return o; |
| } /* }}} */ |
} /* }}} */ |
| |
|
| Riadok 75 CO_METH (employee, getid_nodeleg) |
|
| Riadok 77 CO_METH (employee, getid_nodeleg) |
|
| } |
} |
| /* }}} */ |
/* }}} */ |
| /* {{{ */ |
/* {{{ */ |
| |
CO_METH (employee, default) |
| |
{ |
| |
CO_METH_INI (employee, default); |
| |
CO_RETURN (int, 0); |
| |
} |
| |
/* }}} */ |
| |
/* {{{ */ |
| CO_METH (person, getid) |
CO_METH (person, getid) |
| { |
{ |
| CO_METH_INI (person, getid); |
CO_METH_INI (person, getid); |
| CO_RETURN (int, CO_A (int, self, id)); |
CO_RETURN (int, CO_A (int, self, id)); |
| } |
} |
| /* }}} */ |
/* }}} */ |
| |
/* {{{ */ |
| |
CO_METH (person, default) |
| |
{ |
| |
CO_METH_INI (person, default); |
| |
CO_RETURN (int, 0); |
| |
} |
| |
/* }}} */ |
| |
|
| /* {{{ */ int main (void) |
/* {{{ */ int main (void) |
| { |
{ |
| Riadok 102 CO_METH (person, getid) |
|
| Riadok 118 CO_METH (person, getid) |
|
| pid_ind = CO_M (p, getid) . _int; |
pid_ind = CO_M (p, getid) . _int; |
| pid_dir = CO_A (int, p, id); |
pid_dir = CO_A (int, p, id); |
| eid_nod = CO_M (e, getid_nodeleg) . _int; |
eid_nod = CO_M (e, getid_nodeleg) . _int; |
| //printf ("pid: dir = %d, ind = %d\n", pid_dir, pid_ind); |
CO_DEBUG (1, "pid: dir = %d, ind = %d", pid_dir, pid_ind); |
| //printf ("eid: dir = %d, ind = %d, nodeleg = %d\n", eid_dir, eid_ind, eid_nod); |
CO_DEBUG (1, "eid: dir = %d, ind = %d, nodeleg = %d", eid_dir, eid_ind, eid_nod); |
| if (eid_ind != eid_dir || eid_dir != 42 || pid_dir != 13) |
if (eid_ind != eid_dir || eid_dir != 42 || pid_dir != 13) |
| error (1, "unexpected results\n"); |
error (1, "unexpected results\n"); |
| if (pid_dir != pid_ind || pid_dir != eid_nod) |
if (pid_dir != pid_ind || pid_dir != eid_nod) |