pike.git
/
src
/
post_modules
/
Nettle
/
nettle.cmod
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/post_modules/Nettle/nettle.cmod:569:
unsigned int h=0xffffffff, i=0; for(; i<data->len; i++) h = (h>>8)^crc[(h^data->str[i])&0xFF]; push_int64(h ^ 0xffffffff); } } /*! @endmodule */
+
struct program *inherit_internal_class(struct pike_string *name)
+
{
+
struct program *parent_prog = Pike_compiler->previous->new_program;
+
struct object *parent_obj = Pike_compiler->previous->fake_object;
+
int parent_class_fun_num =
+
really_low_find_shared_string_identifier(name,
+
parent_prog,
+
SEE_PROTECTED|SEE_PRIVATE);
+
if (parent_class_fun_num >= 0) {
+
struct program *parent_class_prog =
+
low_program_from_function(parent_obj, parent_class_fun_num);
+
if (parent_class_prog) {
+
parent_class_fun_num =
+
really_low_reference_inherited_identifier(Pike_compiler->previous,
+
0, parent_class_fun_num);
+
low_inherit(parent_class_prog, 0,
+
parent_class_fun_num,
+
1 + 42, 0, NULL);
+
}
+
return parent_class_prog;
+
}
+
return NULL;
+
}
+
#endif /* HAVE_LIBNETTLE */ PIKE_MODULE_INIT { #ifdef __NT__ struct program *nt_program = NULL; struct object *nt_object = NULL; #endif /* __NT__ */ INIT; #ifdef HAVE_LIBNETTLE