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.367 by root, Mon Apr 12 05:22:38 2010 UTC vs.
Revision 1.368 by root, Tue Apr 13 02:39:53 2010 UTC

… …
1139 1139
1140 return retval; 1140 return retval;
1141} 1141}
1142 1142
1143maptile * 1143maptile *
1144find_style (const_utf8_string dirname, const_utf8_string stylename, int difficulty) 1144find_style (const_utf8_string dirname, const_utf8_string stylename, int difficulty, bool recurse)
1145{ 1145{
1146 CALL_BEGIN (3); 1146 CALL_BEGIN (4);
1147 CALL_ARG (dirname); 1147 CALL_ARG (dirname);
1148 CALL_ARG (stylename); 1148 CALL_ARG (stylename);
1149 CALL_ARG (difficulty); 1149 CALL_ARG (difficulty);
1150 CALL_ARG (recurse);
1150 CALL_CALL ("ext::map_random::find_style", G_SCALAR); 1151 CALL_CALL ("ext::map_random::find_style", G_SCALAR);
1151 1152
1152 maptile *retval = 0; 1153 maptile *retval = 0;
1153 if (count) sv_to (POPs, retval); 1154 if (count) sv_to (POPs, retval);
1154 1155
… …
1664 switch (items) 1665 switch (items)
1665 { 1666 {
1666 case 0: RETVAL = gen (); break; 1667 case 0: RETVAL = gen (); break;
1667 case 1: RETVAL = gen (SvUV (ST (0))); break; 1668 case 1: RETVAL = gen (SvUV (ST (0))); break;
1668 case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break; 1669 case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break;
1669 default: croak ("cf::rndm requires none, one or two parameters."); break; 1670 default: croak ("cf::rndm requires zero, one or two parameters."); break;
1670 } 1671 }
1671} 1672}
1672 OUTPUT: 1673 OUTPUT:
1673 RETVAL 1674 RETVAL
1674 1675

Diff Legend

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