ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/cfperl.xs
(Generate patch)

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.103 by root, Sat Dec 23 06:21:02 2006 UTC vs.
Revision 1.104 by root, Sat Dec 23 06:41:39 2006 UTC

… …
1839# missing properties 1839# missing properties
1840 1840
1841int flag (object *op, int flag, int value = 1) 1841int 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
1852object *head (object *op) 1849object *head (object *op)
1853 PROTOTYPE: $ 1850 PROTOTYPE: $
1854 CODE: 1851 CODE:

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines