… | |
… | |
1839 | # missing properties |
1839 | # missing properties |
1840 | |
1840 | |
1841 | int flag (object *op, int flag, int value = 1) |
1841 | int flag (object *op, int flag, int value = 1) |
1842 | PROTOTYPE: $$;$ |
1842 | PROTOTYPE: $$;$ |
1843 | CODE: |
1843 | CODE: |
1844 | RETVAL = QUERY_FLAG (op, flag); |
1844 | RETVAL = op->flag [flag]; |
1845 | if (items >= 3) |
1845 | if (items >= 3) |
1846 | if (value) |
1846 | op->flag [flag] = value; |
1847 | SET_FLAG (op, flag); |
|
|
1848 | else |
|
|
1849 | CLEAR_FLAG (op, flag); |
|
|
1850 | OUTPUT: RETVAL |
1847 | OUTPUT: RETVAL |
1851 | |
1848 | |
1852 | object *head (object *op) |
1849 | object *head (object *op) |
1853 | PROTOTYPE: $ |
1850 | PROTOTYPE: $ |
1854 | CODE: |
1851 | CODE: |