void register_http(void)
{
(void) register_function("http_request", 1, 5, bf_http_request, TYPE_STR, TYPE_INT, TYPE_STR, TYPE_STR, TYPE_STR);
(void) register_function("urlencode", 1, 1, bf_urlencode, TYPE_STR);
(void) register_function("urldecode", 1, 1, bf_urldecode, TYPE_STR);
}
void
register_mysql()
{
register_task_queue(mysql_enumerator);
register_function("mysql_next_row", 0, 0, bf_mysql_next_row);
register_function("mysql_query", 1, 1, bf_mysql_query, TYPE_STR);
}
void register_arena(void)
{
at_register(&at_hurting);
register_item_use(use_wand_of_tears, "use_wand_of_tears");
register_function((pf_generic) enter_arena, "enter_arena");
register_function((pf_generic) leave_arena, "leave_arena");
tt_register(&tt_caldera);
}
Splitter::Splitter (Manager& manager)
: Droplet(manager),
m_collided(false)
{
if( register_class("Splitter") )
{
register_function("Ball",
(CollideFunc) &Splitter::collide_with_ball);
register_function("Droplet",
(CollideFunc) &Splitter::collide_with_droplet);
}
}
void
register_extensions()
{
#if EXAMPLE
register_task_queue(stdin_enumerator);
register_function("read_stdin", 0, 0, bf_read_stdin);
#endif
#ifdef STUPID_VERB_CACHE
register_function("log_cache_stats", 0, 0, bf_log_cache_stats);
register_function("verb_cache_stats", 0, 0, bf_verb_cache_stats);
#endif
}
Scheme_Object *
scheme_reload (Scheme_Env *env)
{
Scheme_Env *menv = NULL; // The module's environment
// Annotations for the garbage collector
MZ_GC_DECL_REG (2);
MZ_GC_VAR_IN_REG (0, env);
MZ_GC_VAR_IN_REG (1, menv);
MZ_GC_REG ();
// Build the module environment.
menv = scheme_primitive_module (scheme_intern_symbol ("loudbus"),
env);
// Build the procedures
register_function (loudbus_call, "loudbus-call", 2, -1, menv);
register_function (loudbus_import, "loudbus-import", 3, 3, menv);
register_function (loudbus_init, "loudbus-init", 1, 1, menv);
register_function (loudbus_method_info, "loudbus-method-info", 2, 2, menv);
register_function (loudbus_methods, "loudbus-methods", 1, 1, menv);
register_function (loudbus_objects, "loudbus-objects", 1, 1, menv);
register_function (loudbus_proxy, "loudbus-proxy", 3, 3, menv);
register_function (loudbus_services, "loudbus-services", 0, 0, menv);
// And we're done.
scheme_finish_primitive_module (menv);
MZ_GC_UNREG ();
return scheme_void;
} // scheme_reload
int __init check_tcp_hdr_init(void)
{
int ret;
#ifdef CONFIG_PROC_FS
if(create_proc_read_entry("checktcp",0,proc_path,check_tcp_hdr_read_proc,NULL) == NULL)
{
printk(KERN_ALERT "Error : Could not create proc file checktcp : %s,%i\n",__FILE__,__LINE__);
return -EPERM;
}
#endif
if((check_tcp_hdr_cache = kmem_cache_create("checktcp",sizeof(struct check_tcp_hdr_struct),0,SLAB_HWCACHE_ALIGN,NULL,NULL)) == NULL)
{
printk(KERN_ALERT "Error : Could not create check_tcp_hdr_cache : %s,%i\n",__FILE__,__LINE__);
return -EPERM;
}
if((ret = register_function(&fta)) != 0)
{
return ret;
}
return 0;
}
int __init netdev_stats_init()
{
int ret;
#ifdef CONFIG_PROC_FS
if(create_proc_read_entry("netdevstats", 0, proc_path, netdev_stats_read_proc, NULL) == NULL)
{
printk(KERN_ALERT "Error : Could not create proc file netdevstats : %s,%i\n",__FILE__,__LINE__);
return -EPERM;
}
#endif
if((netdev_stats_cache = kmem_cache_create("netdevstats",sizeof(struct netdev_stats_struct),0,SLAB_HWCACHE_ALIGN,NULL,NULL)) == NULL)
{
printk(KERN_ALERT "Error : Could not create netdev_stats_cache : %s,%i\n",__FILE__,__LINE__);
return -EPERM;
}
if((ret = register_function(&fta)) != 0)
{
return ret;
}
return 0;
}
void
register_verbs(void)
{
register_function("verbs", 1, 1, bf_verbs, TYPE_OBJ);
register_function("verb_info", 2, 2, bf_verb_info, TYPE_OBJ, TYPE_ANY);
register_function("set_verb_info", 3, 3, bf_set_verb_info,
TYPE_OBJ, TYPE_ANY, TYPE_LIST);
register_function("verb_args", 2, 2, bf_verb_args, TYPE_OBJ, TYPE_ANY);
register_function("set_verb_args", 3, 3, bf_set_verb_args,
TYPE_OBJ, TYPE_ANY, TYPE_LIST);
register_function("add_verb", 3, 3, bf_add_verb,
TYPE_OBJ, TYPE_LIST, TYPE_LIST);
register_function("delete_verb", 2, 2, bf_delete_verb, TYPE_OBJ, TYPE_ANY);
register_function("verb_code", 2, 4, bf_verb_code,
TYPE_OBJ, TYPE_ANY, TYPE_ANY, TYPE_ANY);
register_function("set_verb_code", 3, 3, bf_set_verb_code,
TYPE_OBJ, TYPE_ANY, TYPE_LIST);
register_function("eval", 1, 1, bf_eval, TYPE_STR);
}
int __init set_cycle_counter_init(void)
{
int ret;
if((ret = register_function(&fta)) != 0)
{
return ret;
}
return 0;
}
int __init print_udp_init()
{
int ret;
if((ret = register_function(&fta)) != 0)
{
return ret;
}
return 0;
}
void register_mysql(void)
{
(void) register_function("mysql_connect", 5, 5, bf_mysql_connect, TYPE_STR, TYPE_INT, TYPE_STR, TYPE_STR, TYPE_STR);
(void) register_function("mysql_close", 1, 1, bf_mysql_close, TYPE_OBJ);
(void) register_function("mysql_status",1,1,bf_mysql_status,TYPE_OBJ);
(void) register_function("mysql_ping",1,1,bf_mysql_ping,TYPE_OBJ);
(void) register_function("mysql_query",2,2,bf_mysql_query,TYPE_OBJ,TYPE_STR);
(void) register_function("mysql_connections",0,0,bf_mysql_connections);
(void) register_function("mysql_escape",2,2,bf_mysql_escape,TYPE_OBJ,TYPE_STR);
}
void register_names(void)
{
register_function((pf_generic)describe_braineater, "describe_braineater");
/* function name
* generate a name for a nonplayerunit
* race->generate_name() */
register_function((pf_generic)undead_name, "nameundead");
register_function((pf_generic)skeleton_name, "nameskeleton");
register_function((pf_generic)zombie_name, "namezombie");
register_function((pf_generic)ghoul_name, "nameghoul");
register_function((pf_generic)dragon_name, "namedragon");
register_function((pf_generic)dracoid_name, "namedracoid");
register_function((pf_generic)generic_name, "namegeneric");
}
void load_defaults()
{
//register ANONYMIZE
if (register_function(&anonymize_info) == -1 ||
register_function(&anonprint_info) == -1 ||
register_function(&anoncallback_info) == -1 ||
register_function(&uncook_info) == -1 ||
register_function(&bpf_info) == -1 ||
register_function(&cooking_info) == -1 || register_function(&strsearch_info) == -1) {
printf("Cannot register basic anonymization functions\n");
exit(-1);
}
}
void register_tolua_helpers(void)
{
tt_register(&tt_caldera);
at_register(&at_direction);
at_deprecate("lcbuilding", building_action_read);
callbacks.equip_unit = lua_equipunit;
callbacks.cast_spell = lua_callspell;
callbacks.use_item = use_item_callback;
callbacks.produce_resource = produce_resource_lua;
callbacks.limit_resource = limit_resource_lua;
register_function((pf_generic)lua_changeresource, "lua_changeresource");
register_item_give(lua_giveitem, "lua_giveitem");
}
int __init print_ip_init(void)
{
int ret;
if((ret = init_ipprotoarray()) != 0)
{
return ret;
}
if((ret = register_function(&fta)) != 0)
{
return ret;
}
return 0;
}
void
register_listutils()
{
oklog("Installing List Utils Extensions v%s\n", lists_version);
register_function("iassoc", 2, 3, bf_iassoc, TYPE_ANY, TYPE_LIST, TYPE_INT);
register_function("assoc", 2, 3, bf_assoc, TYPE_ANY, TYPE_LIST, TYPE_INT);
register_function("sort", 1, 1, bf_sort, TYPE_LIST);
register_function("make", 1, 2, bf_make, TYPE_INT, TYPE_ANY);
register_function("slice", 1, 2, bf_slice, TYPE_LIST, TYPE_INT);
register_function("remove_duplicates", 1, 1, bf_remove_duplicates, TYPE_LIST);
}
void register_buildings(void)
{
register_function((pf_generic)building_protection,
"building_protection");
register_function((pf_generic)meropis_building_protection,
"meropis_building_protection");
register_function((pf_generic)init_smithy, "init_smithy");
register_function((pf_generic)castle_name, "castle_name");
register_function((pf_generic)castle_name_2, "castle_name_2");
register_function((pf_generic)fort_name, "fort_name");
}
void
register_property(void)
{
(void) register_function("properties", 1, 1, bf_properties, TYPE_OBJ);
(void) register_function("has_property", 2, 2, bf_has_property,
TYPE_OBJ, TYPE_STR);
(void) register_function("property_info", 2, 2, bf_prop_info,
TYPE_OBJ, TYPE_STR);
(void) register_function("set_property_info", 3, 3, bf_set_prop_info,
TYPE_OBJ, TYPE_STR, TYPE_LIST);
(void) register_function("add_property", 4, 4, bf_add_prop,
TYPE_OBJ, TYPE_STR, TYPE_ANY, TYPE_LIST);
(void) register_function("delete_property", 2, 2, bf_delete_prop,
TYPE_OBJ, TYPE_STR);
(void) register_function("clear_property", 2, 2, bf_clear_prop,
TYPE_OBJ, TYPE_STR);
(void) register_function("is_clear_property", 2, 2, bf_is_clear_prop,
TYPE_OBJ, TYPE_STR);
}
int __init flow_key_init(void)
{
int ret;
if((flow_key_cache = kmem_cache_create("flowkey",sizeof(struct flow_key),0,0,NULL,NULL)) == NULL)
{
printk(KERN_ALERT "Error : Could not create flow_key_cache : %s,%i\n",__FILE__,__LINE__);
return -EPERM;
}
if((ret = register_function(&fta)) != 0)
{
return ret;
}
return 0;
}
/* Die Funktionen werden über den hier registrierten Namen in races.xml
* in die jeweilige Rassendefiniton eingebunden */
void register_races(void)
{
/* function initfamiliar */
register_function((pf_generic) oldfamiliars, "oldfamiliars");
register_function((pf_generic) allowed_dragon, "movedragon");
register_function((pf_generic) allowed_swim, "moveswimming");
register_function((pf_generic) allowed_fly, "moveflying");
register_function((pf_generic) allowed_walk, "movewalking");
/* function age for race->age() */
register_function((pf_generic) age_undead, "ageundead");
register_function((pf_generic) age_illusion, "ageillusion");
register_function((pf_generic) age_skeleton, "ageskeleton");
register_function((pf_generic) age_zombie, "agezombie");
register_function((pf_generic) age_ghoul, "ageghoul");
register_function((pf_generic) age_dragon, "agedragon");
register_function((pf_generic) age_firedragon, "agefiredragon");
/* function itemdrop
* to generate battle spoils
* race->itemdrop() */
register_function((pf_generic) equip_newunits, "equip_newunits");
}
void
lib_register(VMState *vm)
{
register_value(vm, value_null(), "null");
register_value(vm, value_undefined(), "undefined");
register_function(vm, _lib_char_at, "char_at");
register_function(vm, _lib_char_code_at, "char_code_at");
register_function(vm, _lib_concat, "concat");
register_function(vm, _lib_foreach, "foreach");
register_function(vm, _lib_import, "import");
register_function(vm, _lib_parse_number, "parse_number");
register_function(vm, _lib_print, "print");
register_function(vm, _lib_println, "println");
register_function(vm, _lib_random, "random");
register_function(vm, _lib_sizeof, "sizeof");
register_function(vm, _lib_to_string, "to_string");
register_function(vm, _lib_typeof, "typeof");
}
void
register_yajl(void)
{
register_function("parse_json", 1, 2, bf_parse_json, TYPE_STR, TYPE_STR);
register_function("generate_json", 1, 2, bf_generate_json, TYPE_ANY, TYPE_STR);
}
void register_tolua_helpers(void)
{
at_register(&at_direction);
at_register(&at_building_action);
register_function((pf_generic)lua_building_taxes,
TOLUA_CAST "lua_building_taxes");
register_function((pf_generic)lua_agebuilding,
TOLUA_CAST "lua_agebuilding");
register_function((pf_generic)lua_callspell, TOLUA_CAST "lua_castspell");
register_function((pf_generic)lua_initfamiliar,
TOLUA_CAST "lua_initfamiliar");
register_item_use(&lua_useitem, TOLUA_CAST "lua_useitem");
register_function((pf_generic)lua_getresource,
TOLUA_CAST "lua_getresource");
register_function((pf_generic)lua_canuse_item,
TOLUA_CAST "lua_canuse_item");
register_function((pf_generic)lua_changeresource,
TOLUA_CAST "lua_changeresource");
register_function((pf_generic)lua_equipmentcallback,
TOLUA_CAST "lua_equip");
register_function((pf_generic)lua_wage, TOLUA_CAST "lua_wage");
register_function((pf_generic)lua_maintenance,
TOLUA_CAST "lua_maintenance");
register_function((pf_generic)produce_resource,
TOLUA_CAST "lua_produceresource");
register_function((pf_generic)limit_resource,
TOLUA_CAST "lua_limitresource");
register_item_give(lua_giveitem, TOLUA_CAST "lua_giveitem");
}
void LuaScript::register_functions(luaL_Reg* funcs)
{
for (;funcs->name;++funcs) {
register_function(funcs->name, funcs->func);
}
}
void
register_xml()
{
register_function("xml_parse_tree", 1, 1, bf_parse_xml_tree, TYPE_STR);
register_function("xml_parse_document", 1, 1, bf_parse_xml_document, TYPE_STR);
}
