| 88064b | 2011-12-20 | Henrik Grubbström (Grubba) | |
|
| 86a727 | 2013-10-05 | Henrik Grubbström (Grubba) | | DOCSTART() @class PIKE_NAME
*!
*! Implementation of the PIKE_NAME hash algorithm.
|
| 88064b | 2011-12-20 | Henrik Grubbström (Grubba) | | *!
DOCEND()
|
| 86a727 | 2013-10-05 | Henrik Grubbström (Grubba) | | PIKECLASS PIKE_NAME
|
| 88064b | 2011-12-20 | Henrik Grubbström (Grubba) | | {
|
| 86a727 | 2013-10-05 | Henrik Grubbström (Grubba) | | DOCSTART() @decl inherit Hash
DOCEND()
|
| 895c72 | 2014-03-29 | Henrik Grubbström (Grubba) | | INHERIT Nettle_Hash;
|
| 86a727 | 2013-10-05 | Henrik Grubbström (Grubba) | |
|
| 88064b | 2011-12-20 | Henrik Grubbström (Grubba) | | INIT
{
|
| 895c72 | 2014-03-29 | Henrik Grubbström (Grubba) | | struct Nettle_Hash_struct *hash;
ASSIGN_CURRENT_STORAGE(hash, struct Nettle_Hash_struct, 1,
Nettle_Hash_program);
|
| 86a727 | 2013-10-05 | Henrik Grubbström (Grubba) | |
werror(cmod_STRFY_EVAL(PIKE_NAME) "->INIT\n");
|
| 69e263 | 2013-10-20 | Henrik Grubbström (Grubba) | | hash->meta = &cmod_CONCAT_EVAL(nettle_, NETTLE_NAME);
|
| 88064b | 2011-12-20 | Henrik Grubbström (Grubba) | | }
|
| 86a727 | 2013-10-05 | Henrik Grubbström (Grubba) | | DOCSTART() @class State
*!
*! State for PIKE_NAME hashing.
*!
DOCEND()
PIKECLASS State
program_flags PROGRAM_NEEDS_PARENT|PROGRAM_USES_PARENT;
{
|
| 4561b6 | 2013-10-05 | Henrik Grubbström (Grubba) | | DOCSTART() @decl inherit Hash::State
DOCEND()
|
| 86a727 | 2013-10-05 | Henrik Grubbström (Grubba) | | EXTRA
{
|
| 0bb0ef | 2013-10-19 | Henrik Grubbström (Grubba) | | |
| 86a727 | 2013-10-05 | Henrik Grubbström (Grubba) | | */
struct program *parent_prog = Pike_compiler->previous->new_program;
struct object *parent_obj = Pike_compiler->previous->fake_object;
int parent_State_fun_num =
really_low_find_shared_string_identifier(MK_STRING("State"),
parent_prog,
SEE_PROTECTED|SEE_PRIVATE);
if (parent_State_fun_num >= 0) {
struct program *parent_State_prog =
low_program_from_function(parent_obj, parent_State_fun_num);
if (parent_State_prog) {
low_inherit(parent_State_prog, 0,
parent_State_fun_num +
parent_prog->inherits[1].identifier_level,
1 + 42, 0, NULL);
}
}
}
|
| 88064b | 2011-12-20 | Henrik Grubbström (Grubba) | |
CVAR struct cmod_CONCAT_EVAL(NETTLE_NAME, _ctx) NETTLE_NAME;
INIT
{
|
| 895c72 | 2014-03-29 | Henrik Grubbström (Grubba) | | struct Nettle_Hash_State_struct *instance;
ASSIGN_CURRENT_STORAGE(instance, struct Nettle_Hash_State_struct, 1,
Nettle_Hash_State_program);
|
| 88064b | 2011-12-20 | Henrik Grubbström (Grubba) | |
|
| 69e263 | 2013-10-20 | Henrik Grubbström (Grubba) | | werror(cmod_STRFY_EVAL(PIKE_NAME) ".State->INIT\n");
|
| 88064b | 2011-12-20 | Henrik Grubbström (Grubba) | |
cmod_CONCAT_EVAL(NETTLE_NAME, _init)(&THIS->NETTLE_NAME);
instance->ctx = &THIS->NETTLE_NAME;
}
|
| 86a727 | 2013-10-05 | Henrik Grubbström (Grubba) | | }
DOCSTART() @endclass State
DOCEND()
|
| 88064b | 2011-12-20 | Henrik Grubbström (Grubba) | | }
|
| 86a727 | 2013-10-05 | Henrik Grubbström (Grubba) | | DOCSTART() @endclass PIKE_NAME
|
| 88064b | 2011-12-20 | Henrik Grubbström (Grubba) | | DOCEND()
|
| 86a727 | 2013-10-05 | Henrik Grubbström (Grubba) | |
|